Gpc February 1998

gpc@gnu.de

17 participants
35 discussions

Files
by berend＠beard.nest.nl 01 Feb '02

01 Feb '02

* Moved (from: gpc) by Berend de Boer using timEd 1.10.b3+. Peter Gerwinski wrote in a message to Berend de Boer: PG> I tried to use Extended Pascal "binding" to assign a file PG> variable to an external -- existing -- file. I just copied PG> the "Assign" pro- cedure by Berend as published in PG> borland2ep.doc. It does not always work: I often get a PG> runtime error saying that the file did not exist. If you can repeat it, compile with another Extended Pascal compiler, for example Prospero's one. If that fails too, there is really something wrong with the code. But I suspect gpc. You're using which OS? Groetjes, Berend (-: fido: 2:281/527.23 email: berend(a)beard.nest.nl

4 3

I should really update my GPC version!
by Laussy Fabrice 26 Feb '98

26 Feb '98

Hi again list, (sorry Peter) Here is a sample of some code I am currently working on: 1 if (abs(x-transient^.x)<2) then 2 if (abs(y-transient^.y)<2) then 3 tmp:=tmp+1; 4 if (transient^.x=x) and (transient^.y=y) then Well, what happens is that everything goes ok for the first test, but whatever the value is for the second one (y-transient^.y), the PC will jump to line 4, never doing 3. I have tested with gdb: (gdb) p Y $1 = 30 '\036' (gdb) p Transient.Y $2 = 31 '\037' (gdb) n (gdb) p Tmp $3 = 0 '\000' where Tmp was previously naught. Those are declared as byte. Is it a GPC bug? Is it a Pascal misunderstanding of mine? What the hell is it?

2 1

invoking assembler
by Laussy Fabrice 26 Feb '98

26 Feb '98

Hi the list. Is the way to tackle a part of code directly in code machine with GPC is to use RTL? F.P.L

2 1

Bug report
by Laussy Fabrice 26 Feb '98

26 Feb '98

Pardon me if I report a bug of an out of date version. Mine is 2.0(2.7.2.1) (is that not getting pretty old?). Assuming I've defined type matrix = array[1..4] of array[1..4] of integer; Then an error of mine like matrix[1][1]:=1; instead of lorentz[1][1]:=1; where lorentz is defined as a type matrix in the var field, will make GPC crash. gpc: Internal compiler error: program gpc1 got fatal signal 6 F.P.L

2 1

[Req] Script Interface Feedback...
by Orlando Llanes 25 Feb '98

25 Feb '98

I've been thinking about it more and more, and I've pretty much thought of how I want to handle the script interface. One of the goals of the interface is to have multiple front-ends which will compile the same code. The two ways I plan on handling this are: 1) Setting the default language as a subset of C (not the run-time stuff, but the logic operators, identifier structures, etc). Then creating a language "translator" in the default language. [Example of script language front-end definition]: /********************/ /* PASCAL.SC */ /* */ /* Pascal front-end */ /********************/ ... tokenType getToken( char *curline ) { if( getFirstStringToken( curline ) = "BEGIN" ) return '{'; } ... int main( argc, argv[] ) { tokenType curToken; ... /* The following is shorthand for a line of source */ /* which can be a string variable */ curToken = getToken( "BEGIN END;" ); ... return erNone; } [Example of the Pascal library syntax to use the above script]: { Main program } ... { 1A } Script^.CompileScript( 'pascal.sc' ); ... { 1B } Script^.Run( 'pascal.vm', 'foobar.sp' ); Script^.CompileScript( 'foobar.sc' ); Script^.Run( 'foobar.vm', '' ); ... In the above examples, 1A needs to be executed only once, to compile the pascal translator. In 1B 'foobar.sc' or 'foobar.sp' need to be compiled once, or after the script is significantly modified. Also, 'foobar.sp' is the script in Pascal, 'foobar.sc' is the result of the Pascal translator which converts Pascal code to the default script language. 2) Providing variables to "override" symbols. [Pascal definitions]: CONST PascalKeywordDefs : TScrDef = 'b="BEGIN"' + 'e="END"' + 'i="IF"' + 't="THEN"' + 'l="ELSE"'; PascalGrammarRules : TRulesDef = 'CAPS="NONE"' + 'IF="i c t [b]..[e] [l [b]..[e]];"'; CKeywordDefs : TScrDef = 'b="{"' + 'e="}"' + 'i="IF"' + 't=""' + 'l="else"'; CGrammarRules : TRulesDef = 'CAPS="MIX"' + 'IF="i (c) [b]..[e] [l [b]..[e]];"'; ... { The following loads and parses Pascal values from memory } Script^.SetKeywordDefs( PascalKeywordDefs ); Script^.SetGrammarRules( PascalGrammarRules ); { OR } { The following loads and parses Pascal values from a file } Script^.LoadKeywordDefs( 'PAS.KWD' ); Script^.LoadGrammarRules( 'PAS.RUL' ); { Compile Pascal script } Script^.Compile( 'foo.sp' ); { The following loads and parses C values from memory } Script^.SetKeywordDefs( CKeywordDefs ); Script^.SetGrammarRules( CGrammarRules ); { OR } { The following loads and parses C values from a file } Script^.LoadKeywordDefs( 'C.KWD' ); Script^.LoadGrammarRules( 'C.RUL' ); { Compile C script } Script^.Compile( 'foo.sc' ); ... Note something about example 2, yes it might be better to use Lex/Yacc, but this allows the grammar rules and the syntax to be re-defined at run-time, and it makes it possible to load definitions from a file. The advantage to both of these examples (1 and 2) is that there is room for a user-defined language. I think that idea #1 would be easier on the programmer and user than idea #2, but that's me, I'd like to see if any of you have a good alternative if you're not comfortable with either of these ideas. Oh! One other thing, I've decided that pointers used carefully can't harm anyone as long as their addresses cannot be set. The reason I'm thinking of adding pointers is so that linked lists and/or binary trees can be implemented. Thanks in advance! See ya! Orlando Llanes "Meine Damen und Herren, Elvis hat soeben das Gebaeude verlassen!" "Look out fo' flyeeng feet" O__/ a010111t(a)bc.seflin.org \/|____. O <__. \/\> / \ ____________|___\______ http://ourworld.compuserve.com/homepages/Monkey414

1 0

Protected...
by Orlando Llanes 25 Feb '98

25 Feb '98

How does the Protected keyword work? And what standards is it defined in (besides BP)? See ya! Orlando Llanes "Meine Damen und Herren, Elvis hat soeben das Gebaeude verlassen!" "Look out fo' flyeeng feet" O__/ a010111t(a)bc.seflin.org \/|____. O <__. \/\> / \ ____________|___\______ http://ourworld.compuserve.com/homepages/Monkey414

2 1

RFC to the GPC Archive
by Hans Ecke 24 Feb '98

24 Feb '98

Hi all! Some weeks ago, I volunteered for beeing the archiver at the upcoming GPC archive. In the following, I shall lay out the prinziples and structures I would like to follow. All suggestions and comments are welcome. **1** general policy The archive will contain * the gpc-source and supplied binaries * related files (i.e. the gcc-source) * contributed tools/apps/libs The main policy should be "less is better". This means that we would prefer a well organized archive with a content that is truly spezific to gpc over an archive which contains much misc packages which could also be found in other archives. **2** Incoming policy This leads to the point, that packages which are to be included, should be selected from the archiver, rather than from the author or uploader. There will be an "Incoming"-directory with write-access. The archiver will select the appropriate files and add them to the archive. All uploaded files should contain a file foobar.lsm (which should be really descriptive not just "it is a library for graphics") and can contain a file foobar.readme. Templates will be supplied, of course. But thats all not that critical, as far as the archiver is human and not some script. **3** Access Access to the archive should be possible via raw ftp as well as via the comfortable www (but viewable with any browser, including lynx). The best solution should be a ftp-directory with files "index.html" in each directory. Some may be familar with this from the sunsite.unc.edu linux-archive. **4** The files index.html They contain * subdirectories with description * files in the current directory with description * links to navigate inside the archive : UP NEXT PREV ROOT GPC-HOME * maybe a text with information related to the current directory I would like to have the files index.html be very customized - i.e. descriptions could include links to the homepage of the package, the text could provide links to related interesting places. I personally dont like scrolling, if Im working in an archive. So I would try to design in a way, that at least the subdirectories are within one page, better that subdirectories+files are within one page. A typical page would look like ___________________________________________________ PREV NEXT UP ROOT GPC-HOME This is the Source of the Version 2.5.76 of GPC. MORE /\ /\ || || Link to a tree, see 5 Link to the Text at bottom subdirectories with description files with description some text (explanations, links) _____________________________________________________ **5** Other navigating files As a second concept of navigation, there will be a tree (<ul>) representing the archive. The Name of the directory ("This is the Source of the Version 2.5.76 of GPC" above) would link to this tree. For raw ftp-access there will be an index.txt. **6** tree structure of the archive --stable-----binary---linux .tar.gz and .rpm ask for contributed .deb | |-freebsd | |-...(djgpp, solaris) ask for contributions |-source .tar.gz, .src.rpm, gcc-source, ask for source-deb --unstable---versionx Source of unstable versions (beta versions) |-versiony If it doesnt make sense, put all in one |-versionz directory --old--------versionx Dito |-versiony |-versionz --doc list, homepage, faq, fpkvsgnu --devel gpcasm, solaris-includes, tply wenn portiert, bpcompat, bgi2grx, xbgi --contrib relochtml, lord --unported what is worth porting --system-----djgpp Directories made via symlinks. The user goes |-linux-redhat into the archive, directory |-linux-debian system/$HIS_SYSTEM. There (s)he will find |-linux-targz current stable/unstable source/binary |-emx |-freebsd |-...other. ask for contributions --Incoming **7** Search A searchfunction will be included in future. It should do search for category, name, word from name, description, lsm-file. Search-sheme would be regexp, substring, exact string, case sensitive/insensitive, agrep(fuzzy-search) **8** Other future Plans Not much. Any Ideas? Of course if the archive gets to big, one must set up an automated archiver, based on the foobar.lsm-files. These are Peters and my ideas about the archive. I hope I could make the general idea clear. Any suggestions and comments are really appreciate. As I will have no internet-access in march, maybe I wont get it done till the first days of april. Hans

2 1

Problem with gnu Pascal (memory)
by Joerg Tomes 23 Feb '98

23 Feb '98

Hello, sorry, but i have a little question, and did not know whom to ask, i found no answer in faq's neither to Gnu C nor to Gnu-Pascal. I use Gnu-Pascal for scientific reasons, and have some trouble with it (but it's a very good program!). First: I use an Pc with Linux (2XPPro 200, 256 MB Memory) Kernel 2.0.33 (new) and gpc version 2.0(2.7.2.1) . But i saw this problem with other configurations and Versions. The Problem is if i want to use much memory e.g. for arrays the compiled program results in segmentation fault, while it runs with smaller arrays. ( I found this program in Gnu-C also with static arrays). Here is an attached test program, that runs with xsiz<1010 and not with xsiz > 1050. In my opinion it's not a problem of Linux, it's a problem of gnu-C, maybe any wrong configuration. Did you hear about a solution. Sincerly Joerg Tomes ************************************************************ Joerg Tomes, Theoretische Festkoerperphysik, Uni-Tuebingen, Auf der Morgenstelle 14, D-72076 Tuebingen, Tel : 07071-29-78633 Fax : 07071-29-5604 email: joerg.tomes(a)uni-tuebingen.de ************************************************************ program benchmark; const xsiz=1010; ysiz=1000; var a,b:real; d:array[0..xsiz,0..ysiz] of real; i,j:integer; Begin a:=1.0; For j:=1 to xsiz do For i:=1 to ysiz do begin d[i,j]:=a; end; b:=0.0; For j:=1 to xsiz do For i:=1 to ysiz do begin b:=b+d[i,j]; end; writeln(b,': Array entries used'); end.

2 1

Re: Graphical UNIT
by Peter Gerwinski 22 Feb '98

22 Feb '98

Hi! According to Laussy Fabrice: > > I have no favourite SimTel mirror... What is yours? ftp://ftp.ruhr-uni-bochum.de/pub/simtelnet/gnu/djgpp/ > Also, is there a `mouse unit'? Yes: GRX includes mouse support. > Is it near compatible with BP's one? BP doesn't have a "mouse unit". In Turbo Vision, it has a `drivers' unit which covers mouse support. Greetings, Peter -- Peter Gerwinski, Essen, Germany, free physicist and programmer Maintainer GNU Pascal - http://home.pages.de/~GNU-Pascal/ - 1 Oct 1997 PGP key fingerprint: AC 6C 94 45 BE 28 A4 96 0E CC E9 12 47 25 82 75 Fight the SPAM! - http://maps.vix.com/

1 0

Graphical UNIT
by Laussy Fabrice 21 Feb '98

21 Feb '98

Hi GPC fellows, I was few weeks ago wondering about a Borland graphical unit, and Peter answered me about the one of GPC. Few questions about it: Is it near compatible with the one of Borland (I know it is not the aim of *GNU* Pascal to be Borland compatible, that such oriented UN*X Pascal do exist, and so on...) Meanwhile I am interested in making some code with graphical output using GPC's unit and GPC itself that would be almost compatible with a Borland compilation (which would require minor changes). The other question is about the availability of the GPC library, where can one find it? Also, is it well (at least, somewhat) documented? Cheers. Laussy.

2 1

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

2003

2002

2001

2000

1999

1998

1997

1996

1995

Gpc February 1998