Gpc

gpc@gnu.de

5400 discussions

gpc-2.7.2 on kampi.hut.fi
by Peter Gerwinski 27 Aug '96

27 Aug '96

Hello folks, the GPC 1.2 (2.7.2) pre-release is now available on kampi.hut.fi, too. The directory is jtv/gnu-pascal/gpc-2.7.2. Peter

1 0

ANNOUNCE: GPC 1.2 (2.7.2) pre-release
by Peter Gerwinski 27 Aug '96

27 Aug '96

Dear readers of the GPC list, we herewith announce a pre-release of GPC version 1.2, based on GNU C 2.7.2. This is a beta test release. We ask you to try the new GPC version on as many different platforms as possible, isolate bugs, correct the documentation, etc.. Once we know it is stable enough, we will do the "official" 1.2-2.7.2 release. New features: * easier to compile and install, also for cross-compilation * Texinfo documentation * More stable (Borland-style) objects * "String" bug fixed (see the old `PROBLEMS' file) * Extended Pascal "export foo = all" extension * PXSC operator fragments (redefineable symbols) * Precompiled Module/Unit interfaces (needn't #include the interface any longer) * AutoMake facility (automatically compile Modules/Units which have been changed) Source and binaries for DJGPP, EMX, Linux, FreeBSD, and IRIX5 are available per anonymous ftp from agnes.dida.physik.uni-essen.de in the directory gpc-2.7.2 (They also will be available on kampi.hut.fi, soon.) Have fun, Jan Jaap <J.J.vanderHeijden(a)student.utwente.nl> Peter <peter.gerwinski(a)uni-essen.de>

1 0

part of system.pas unit ready
by Berend de Boer 14 Aug '96

14 Aug '96

Hello All, I promised to create a System.pas unit, here is a large part of it (see next message). It seems to work on gnu-win32 systems (I tested it in a NT workstation). It probably also works on BSD unix systems. I used gpc 2.6.3 (which was more useful than I expected and have said so in the past )-: ), but I still encountered some strange things. So here my comments: 1. how do you use the __unsigned__ prefix? 2. Instead of using __byte__, etc. ranges should be better as Juki already suggested. 3. nil assignment to void pointer unacceptable? (var p: ^void; p := nil; ) Things I found missing: - schema types ( type t(max:integer) = array[0..max] of double; ) - function result variables ( function f(p: integer) = Result: integer; ) - pre-initialized variables - renaming in export clause I like to here comments, Berend.

1 0

System.pas module
by Berend de Boer 14 Aug '96

14 Aug '96

{ Created: 1996-07-26 System module for emulating the Borland Pascal System unit. This one is specific for the GNU Extended Pascal implementation and provides a System.Pas interface specifically to emulate the 16-bit Borland Pascal compilers. Copyright (C) 1996 Berend de Boer <berend(a)pobox.com> This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. Notes: - This one has hardcoded errorcodes!! It probably does not work on every machine. One really need to convert errno.h and stat.h first to make it portable. But I'll do that when I complete the Extended Pascal Posix interface for GNU Pascal. - assumes all Extended Pascal compilers have the local addition to provide an additional parameter to the Halt procedure. - certain procedures are almost untranslatable as Addr, Move and Str. They are therefore not translated, but require a change to the source code - there is no Assign or Close procedure for a file type variable, only for a text type variable. - Rename does not work for some reason. To do: - Append - FilePos - FileSize - Flush - Rename - Seek - Truncate $Date: 96-08-14 9:45 $ $Revision: 1 $ $Log: /Extended Pascal/Borland/GPC/system.pas $ * * 1 96-08-14 9:45 Berend * Borland Pascal's system unit for Extended Pascal, as far as applicable. } module System interface; export System = (shortint, byte, word, longint, PChar, pointer, string255, HeapError, ExitCode, PrefixSeg, Assign, BPChDir => ChDir, Close, Copy, Dec, Delete, Erase, GetDir, GetMem, Inc, IOResult, MaxAvail, MemAvail, BPMkDir => MkDir, ParamCount, ParamStr, BPRename => Rename, BPRmDir => RmDir, UpCase); type shortint = __byte__ integer; byte = __byte__ integer; word = __short__ integer; longint = integer; TChar = array[0..MaxInt] of char; PChar = TChar; pointer = void; string255= string(255); var HeapError: pointer; { Heap error function } {?ExitProc: Pointer; { Exit procedure } ExitCode: Integer; { Exit code } {?ErrorAddr: Pointer; { Runtime error address } PrefixSeg: Word; { Program segment prefix } InOutRes : integer; { I/O result buffer } procedure Assign(var t: text; protected Name: string); procedure BPChDir(protected s: string); procedure Close(var t: text); function Copy(protected s: string; Index: integer; Count: integer): string255; procedure Dec(var i: integer); procedure Delete(var s: string255; Index: integer; Count: integer); procedure Erase(var f: text); procedure GetDir(D: byte; var s: string); procedure Inc(var i : integer); function IOResult : integer; function MaxAvail: longint; function MemAvail : longint; procedure BPMkDir(protected s: string); function ParamCount: word; function ParamStr(Index: word): string255; procedure BPRename(var f: text; protected Newname: string); procedure BPRmDir(protected s: string); function UpCase(Ch: char): char; end. module System implementation; import StandardOutput; { support routines } const MaxPath = 4096; type TPath = array[0..MaxPath] of char; function StrPas(Str: PChar): String255; var i: integer; s: string255; begin i := 0; s := ''; while Str[i] <> Chr(0) do begin s := s + Str[i]; i := i + 1; end; StrPas := s; end; { StrPas } function unlink(path: __cstring__): integer; c; function chdir(path: __cstring__): integer; c; function getcwd(var buf: TPath; size: integer): PChar; c; function mkdir(path: __cstring__; mode: integer): integer; c; function _p_paramcount: integer; c; function _p_paramstr(num: integer; var str: string): Boolean; c; function rename(old: __cstring__; new: __cstring__): integer; c; function rmdir(path: __cstring__): integer; c; function MapUnixErrorToDosError(ErrorOccured: integer): integer; const EPERM = 1; { Not super-user } ENOENT = 2; { No such file or directory } EACCES = 13; { Permission denied } EBUSY = 16; { Mount device busy } EEXIST = 17; { File exists } ENOTDIR = 20; { Not a directory } ENOSPC = 28; { No space left on device } EROFS = 30; { Read only file system } EMLINK = 31; { Too many links } ENAMETOOLONG= 91; { File or path name too long } var Result: integer; UnixError: integer; begin if ErrorOccured then begin UnixError := EACCES; { should be errno... } case UnixError of ENOENT : Result := 2; ENOTDIR : Result := 3; EPERM, EACCES, EEXIST, ENOSPC, EROFS, EMLINK, ENAMETOOLONG: Result := 5; EBUSY : Result := 152; otherwise Result := UnixError; end; { case } end else begin Result := 0; end; MapUnixErrorToDosError := Result; end; { MapUnixErrorToDosError } { the system routines itself } procedure Assign; var b : BindingType; begin unbind(t); b := binding(t); b.Name := Name; bind(t, b); b := binding(t); end; procedure BPChDir(s: string); begin InOutRes := MapUnixErrorToDosError(chdir(s)); end; { ChDir } procedure Close; begin unbind(t); end; function Copy; begin if Index+Count > length(s) then Copy := SubStr(s, Index) else Copy := SubStr(s, Index, Count); end; procedure Dec; begin i := i - 1; end; procedure Delete; begin if Index = 1 then begin if 1+Count > length(s) then s := '' else s := s[1+Count..length(s)]; end else begin if Index+Count > length(s) then s := s[1..Index-1] else s := s[1..Index-1] + SubStr(s, Index+Count); end; end; procedure Erase; var bt: BindingType; begin bt := Binding(f); unbind(f); InOutRes := MapUnixErrorToDosError(unlink(bt.name)); end; procedure GetDir(D: byte; var s: string); var Buffer: TPath; pc: PChar; i: integer; begin pc := getcwd(Buffer, MaxPath); s := ''; i := 0; while pc[i] <> Chr(0) do begin s := s + pc[i]; i := i + 1; end; { call to StrPas does not work???? s := StrPas(pc);} end; { GetDir } procedure Inc; begin i := i + 1; end; function IOResult : integer; begin IOResult := InOutRes; InOutRes := 0; end; function MaxAvail; begin MaxAvail := MaxInt; end; function MemAvail; begin MemAvail := MaxInt; end; procedure BPMkDir; begin InOutRes := MapUnixErrorToDosError(mkdir(s, 8#0700)); end; { BPMkDir } function ParamCount; begin ParamCount := _p_paramcount - 1; end; { ParamCount } function ParamStr; var Str : string255; Success: Boolean; begin Success := _p_paramstr(Index, Str); if Success then ParamStr := Str else ParamStr := ''; end; { ParamStr } procedure BPRename; var bt: BindingType; begin bt := Binding(f); unbind(f); InOutRes := MapUnixErrorToDosError(rename(bt.name, Newname)); bt.Name := Newname; bind(f, bt); end; { BPRename } procedure BPRmDir; begin InOutRes := MapUnixErrorToDosError(rmdir(s)); end; { RmDir } function UpCase; begin if Ch in ['a'..'z'] then UpCase := Chr(Ord('A') + (Ord(Ch) - Ord('a'))) else UpCase := Ch; end; { we need an initialization section because gpc doesn't yet have initialized variables } to begin do begin {HeapError := nil;} InOutRes := 0; end; end.

1 0

Program to test system.pas unit
by Berend de Boer 14 Aug '96

14 Aug '96

Here a small program which 'demonstrates' the use of the system.pas unit. -------------------------test.pas------------------------ #include "system.pas" program Test(Output); import System; var f: text; path: string(1024); i: integer; begin Assign(f, 'tmp.tmp'); Erase(f); writeln('IOResult = ', IOResult); Assign(f, 'q.pas.bak'); BPRename(f, 'renamed.file'); writeln('IOResult = ', IOResult); GetDir(0, path); writeln('Current dir = ', path); BPMkDir('mydir'); writeln('IOResult = ', IOResult); BPRmDir('mydir'); writeln('IOResult = ', IOResult); writeln('ParamCount = ', ParamCount); for i := 1 to ParamCount do begin writeln('parameter ', i, ' = ', ParamStr(i)); end; end. -------------------------test.pas------------------------ Groetjes, Berend. (-:

1 0

HELP
by OESY＠HSOCIETY.berlinet.de 11 Aug '96

11 Aug '96

HELP Bye OESY -- OS/2: Never stop that feeling... Using Speed-Pascal/2 (SP/2)! Questions? PM me! ## CrossPoint v3.1 ##

1 0

GPC autoconf-ed
by J.J. van der Heijden 29 Jul '96

29 Jul '96

I mentioned my rts-autoconf adventures on the mailinglist; I dumped a modified RTS (rts-autoconf.tar.gz) in my homedir on agnes.dida.... Usage is straightforward: cd to your $(gpcbin)/rts directory and run ../../$(gpcsrc)/rts/configure ; make Autoconf is the way to go for GNU software and I think GNU Pascal should use it too. This is not finished: I have to do GPC itself, plus the result of a number of tests is not yet used in the RTS makefile. But it deals with all the -DSYSV -DNO_CASECMP -DMY_VERY_WEIRD_SYSTEM flags. It can also do crosscompilation: run CC=i386-go32-gcc AR=i386-go32-ar RANLIB=i386-go32-ranlib \ ../../$(gpcsrc)/rts/configure --target=i386-go32 ; make to get a djgpp RTS (on Linux) I also added a definition in Makefile.in to build libgpc as a shared lib. A 'make libgpc.so.2.8 CFLAGS="-O2 -fPIC"' results in: lrwxrwxrwx 1 root root 13 Jul 29 02:06 /usr/lib/libgpc.so -> libgpc.so.2.8* -rwxr-xr-x 1 root root 48960 Jul 29 02:06 /usr/lib/libgpc.so.2.8* This reduces the size of executables: -rwxr-xr-x 1 janjaap users 2856 Jul 29 02:09 hello* -rw-r--r-- 1 janjaap users 63 Jul 29 02:07 hello.pas Statically linked, the minimum is ~33K. BTW: this will work only on ELF un*x systems and I have only tested it on Linux. "ldd hello" shows: libgpc.so.2.8 => /usr/lib/libgpc.so.2.8 libm.so.5 => /lib/libm.so.5.0.5 libc.so.5 => /lib/libc.so.5.2.18 I will add this as an "--enable-shared" option to "configure" As for your desire to release 2.7.2: I can have this finished by friday (I think ...), then it should be tested on a number of different platforms. I'm especially curious about BSD unix systems, because I developed this on Linux, which is essentially SysV. I created a "configure.bat" for the dos world where there's no bash. Peter, you have the same with OS/2 so maybe you can take a look at it and create something simular for the EMX thing. (I ripped of binutils and GCC to create "configure.bat") /janjaap --- Thus spake the master programmer: "After three days without programming, life becomes meaningless." [The Tao Of Programming]

1 0

Re: release?
by J.J. van der Heijden 29 Jul '96

29 Jul '96

On Sat, 27 Jul 1996 23:00:20 +0200 (MET DST, Peter Gerwinski <peter(a)agnes.dida.physik.uni-essen.de> wrote: >Hello again, > >there was a bug in my GPI stuff: File types did not >survive transport through a GPI file. I am sure this >was not the last bug, but now a very useful physics >program works, so I am optimistic. > >gpc-pg-1.2-2.7.2.tar.gz has been updated. > >Release? > I know of two good reasons not to release 2.7.2 (yet): 1) Remaining bug(s). Last time I looked, that "functions returning a string are called three times" bug was still there. That's a serious problem for anything bigger than "Hello world". Also (I mentioned before): gpc fails two of the "paranoia" Pascal compiler float tests because it loses significant digits. I'd be carefull with that physics program, Peter. 2) Almost all messages / email I read about GPC are not about "compiler bug X keeps me from using it" or "feature Y is missing" but "HOW DO I INSTALL THE THING ON MY SYSTEM ?" "Where's the docs" is a popular one too. That's why I'm busy rewriting configuration scripts using GNU autoconf and have created .bat files for the dos version. Then, building it is reduced to "configure ; make" I have it done for the RTS, am working on GPC itself now. I think it should be able to locate gcc sources and objects by itself (if they are in a reasonable location). It works great for the RTS already. Arguments in favour of release: 1) New features (These have to be mentioned in a "NEWS" file. I think we have (a) better BPascal Objects (b) Improved module support, but there must be other user-visible changes as well. 2) Releasing 2.7.2 because gcc-2.6.3 is obsolete is an argument, but I don't think we'll have to wait much longer for gcc 2.8 and from what I've seen so far, it's not radically different from gcc-2.7.x (internally). So porting gpc to 2.8 should take too long. If this thing is to be released in one or two weeks I think we should make a "release candidate" so everybody can check wether his patches are in and binaries for all platforms can be built. /janjaap --- Thus spake the master programmer: "After three days without programming, life becomes meaningless." [The Tao Of Programming]

1 0

GNU Pascal WWW home page
by Peter Gerwinski 26 Jul '96

26 Jul '96

Hello folks, I have constructed a GNU Pascal WWW home page: http://agnes.dida.physik.uni-essen.de/~gnu-pascal Comments, suggestions, bug reports welcome. Peter <peter.gerwinski(a)uni-essen.de>

1 0

forwarded Usenet article
by operator＠civpczaal.utwente.nl 26 Jul '96

26 Jul '96

[article forwarded from Student (operator(a)civpczaal.utwente.nl)] Path: news.nic.utwente.nl!surfnet.nl!howland.reston.ans.net!newsfeed.internetmci.com!btnet!news.enterprise.net!usenet From: eurgain(a)enterprise.net (Alistair Hamilton) Newsgroups: comp.os.msdos.djgpp Subject: Re: GPC112B.ZIP & GPT112B.ZIP Date: Tue, 23 Jul 1996 23:30:15 GMT Organization: Ty Eurgain Lines: 45 Message-ID: <4t3nq5$ih8(a)news.enterprise.net> References: <960718165325_74617.365_EHH119-1(a)CompuServe.COM> NNTP-Posting-Host: max02-063.enterprise.net X-Newsreader: Forte Free Agent 1.0.82 "Troy D. Van Horn" <74617.365(a)CompuServe.COM> wrote: >Hi all, > I just last night discovered these files for a PASCAL compiler last night >on a simtelnet mirror, and I was wondering where I could get some documentation >on how to use either compiler? The source file is really large (>8Meg) so I >would really prefer not to download it. Where should I look for documentation >on GPC and the differences between GPC and GPT version? (I already know >PASCAL). >Thanks, Troy Van Horn 74617.365(a)compuserve.com >Please E-mail all replys direct to my address, Thank you. PROGRAM GetSomeHelp (Input, Output|) CONST PascalExists = TRUE; VAR CIsBetter : BOOLEAN; BEGIN WRITELN('I would really like this info too. OK, as an ex Unix/C/X nerd, I cannot dispute that C cannot be beaten (except , perhaps, by C++). However, age has revealed that Pascal really is useful sometimes! Typing B E G I N and E N D sure as hell is! (I have programmed for accountancy apps ZZZzzzz in Pascal - but better P than C in that case).'); CIsBetter := TRUE; WRITELN ('I also have the GNUPascal binaries, and am held back from using them by lack of documentation. So come on, folks! At least you might tell us to b****r off and consult another really tesious group specially for Pascal bores, but if you do, it least you might tell us waht the group is called.'); WRITELN ('Regards'); WRITELN ('Alistair') END. :-) :-) :-)

1 0

Jump to page:

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