Gpc August 1996

gpc@gnu.de

5 participants
10 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 … [View More]

4 3

Problem with constant strings in gpc 1.2(2.7.2)#7 ???
by Peter Gerwinski 31 Aug '96

31 Aug '96

According to Harry Reed: > In the users' manual chapter "About Pascal and Extended Pascal > languages" > there is a small example on how to initialize constant strings. When I > try > compiling the fragment with gpc 1.2(2.7.2)#7 I get the error messages > as showm below. Is this a valid bug or am I just doing something wrong? Extended Pascal initialized *structured* variables are not (yet) implemented into GPC, only (parts of) Borland Pascal style initializers. However … [View More]

1 0

Problem with constant strings in gpc 1.2(2.7.2)#7 ???
by Harry Reed 30 Aug '96

30 Aug '96

Hi, In the users' manual chapter "About Pascal and Extended Pascal languages" there is a small example on how to initialize constant strings. When I try compiling the fragment with gpc 1.2(2.7.2)#7 I get the error messages as showm below. Is this a valid bug or am I just doing something wrong? Cheers, Harry Reed doon(a)hrc.nevada.edu PS: Great work on GPC! Keep it up!!!! source program --- cut here --- 8< --- cut here --- 8< --- cut here --- program test; const … [View More]

1 0

gpc-2.7.2 for Linux-elf and Win32
by Peter Gerwinski 30 Aug '96

30 Aug '96

Hello folks, GPC-2.7.2 pre-release binaries for Linux-elf and Win32 (with CygWin beta 14) are now available on kampi and on agnes. Peter

2 1

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) … [View More]

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 … [View More]

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 … [View More]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. [View Less]

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'); … [View More]

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

2025

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 August 1996