February 2001 - Gpc

StringUtils, FileUtils
by Frank Heckenbach 31 May '02

31 May '02

Hi, in the current GPC version, I've included a StringUtils unit for general string handling routines (on a higher level than the built-in and RTS routines). Up to now, it only contains routines for a string hash table, but I'm planning to add some more routines. Perhaps some of you also have some routines to contribute (or features to request). Conditions for inclusion into this unit should be, IMHO: - Generally useful (not meant specifically for a certain program or something), - self-contained (not relying on an external library etc.), - new functionality compared to the existing routines (whereas the same or similar functionality under a different interface for compatibility purposes should go into other units, like GPCUtil for compatibility to `Turbo Power' units), - and, of course, compilable with the current GPC version, portable, bug-free, etc. ;-) The same goes for the FileUtils unit which has been there for some months already. Frank -- Frank Heckenbach, frank(a)g-n-u.de, http://fjf.gnu.de/ GPC To-Do list, latest features, fixed bugs: http://agnes.dida.physik.uni-essen.de/~gnu-pascal/todo.html

2 10

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

operators pow and **
by Maurice Lombardi 01 Feb '02

01 Feb '02

Hi all, It seems that operators pow and ** cannot be redefined in gpc. Is that expected ? I work with djgpp / w98 dos box (should be irrelevant I think) Thanks Maurice -- Maurice Lombardi Laboratoire de Spectrometrie Physique, Universite Joseph Fourier de Grenoble, BP87 38402 Saint Martin d'Heres Cedex FRANCE Tel: 33 (0)4 76 51 47 51 Fax: 33 (0)4 76 51 45 44 mailto:Maurice.Lombardi@ujf-grenoble.fr

4 4

Re: Memory use problem
by david＠tcs01.demon.co.uk 07 May '01

07 May '01

In message <Pine.LNX.4.21.0011240232590.265-100000(a)rusty.russwhit.com> Russ Whitaker writes: > > Hi > > suggestion: a script to take a snapshot of the /proc filesystem > so you can find what's growing > > take a look at > dir /proc > and cat /proc/<ID>/status > or cat /proc/<ID>/maps The application has been running for some 21 hours now, and I've been taking occasional snapshots both of status and maps. status shows VmSize and VmRSS growing. maps shows the end of the rwxp region that starts at 08171000 growing - can I deduce anything more from this? (for example is it likely to be Pascal heap space or something else?). Both status and maps snapshots follow. Any further suggestions will be gratefully received ... status ====== Name: webmake.e State: S (sleeping) Pid: 27006 PPid: 31555 Uid: 500 500 500 500 Gid: 500 500 500 500 Groups: 500 VmSize: 110776 kB VmLck: 0 kB VmRSS: 108340 kB VmData: 107944 kB VmStk: 84 kB VmExe: 1172 kB VmLib: 1360 kB SigPnd: 0000000000000000 SigBlk: 0000000000000000 SigIgn: 800000000000a006 SigCgt: 0000000008094000 CapInh: 0000000000000000 CapPrm: 0000000000000000 CapEff: 0000000000000000 maps ==== 08048000-0816d000 r-xp 00000000 03:07 32300 /var/rally/bin/webmake.e 0816d000-08171000 rw-p 00124000 03:07 32300 /var/rally/bin/webmake.e 08171000-0e9d0000 rwxp 00000000 00:00 0 40000000-40013000 r-xp 00000000 03:05 34138 /lib/ld-2.1.3.so 40013000-40014000 rw-p 00012000 03:05 34138 /lib/ld-2.1.3.so 40014000-40015000 rw-p 00000000 00:00 0 40015000-40016000 r--p 00000000 03:06 94 /usr/share/locale/en_US/LC_MESSAGES/SYS_LC_MESSAGES 40016000-40017000 r--p 00000000 03:06 96660 /usr/share/locale/en_US/LC_MONETARY 40017000-40018000 r--p 00000000 03:06 96662 /usr/share/locale/en_US/LC_TIME 40018000-40019000 r--p 00000000 03:06 96661 /usr/share/locale/en_US/LC_NUMERIC 4001a000-4001b000 rwxs 00000000 00:00 0 4001b000-4001e000 r-xp 00000000 03:06 96925 /usr/lib/libpanel.so.4.0 4001e000-4001f000 rw-p 00002000 03:06 96925 /usr/lib/libpanel.so.4.0 4001f000-40054000 r-xp 00000000 03:06 96923 /usr/lib/libncurses.so.4.0 40054000-4005d000 rw-p 00034000 03:06 96923 /usr/lib/libncurses.so.4.0 4005d000-40061000 rw-p 00000000 00:00 0 40061000-4007d000 r-xp 00000000 03:05 34156 /lib/libm-2.1.3.so 4007d000-4007e000 rw-p 0001b000 03:05 34156 /lib/libm-2.1.3.so 4007e000-4016b000 r-xp 00000000 03:05 34145 /lib/libc-2.1.3.so 4016b000-4016f000 rw-p 000ec000 03:05 34145 /lib/libc-2.1.3.so 4016f000-40174000 rw-p 00000000 00:00 0 40174000-4017c000 r--p 00000000 03:06 96658 /usr/share/locale/en_US/LC_COLLATE 4017c000-40192000 r--p 00000000 03:06 96659 /usr/share/locale/en_US/LC_CTYPE 40192000-401cc000 rwxs 00000000 00:00 0 401cc000-40292000 rwxs 00000000 00:00 0 bffeb000-c0000000 rwxp fffec000 00:00 0 -- David James mailto:david@tcs01.demon.co.uk Special Stage Rally results archive <URL:http://www.tcs01.demon.co.uk/>

5 11

Timestamp format and calculations?
by Pernille Bech & Klaus F. Østergaard 11 Mar '01

11 Mar '01

type TimeStamp = {@@packed} record DateValid, TimeValid : Boolean; Year : Integer; Month : 1 .. 12; Day : 1 .. 31; DayOfWeek : 0 .. 6; { 0 means Sunday } Hour : 0 .. 23; Minute : 0 .. 59; Second : 0 .. 61; { to allow for leap seconds } MicroSecond : 0 .. 999999 end; Is there a function/procedure that calculates the DateValid and TimeValid. Does it proof the DayOfWeek? What is leap seconds and how does one calculate with leap seconds? Does any one know of standard libs/rutines for doing calculations/manipulations with the timestamp, like calculating the day of the week or finding time between two timestamps, with corrections to the diffent length of months ect. Thanks, Klaus

3 5

compiling gcc/gpc on AIX
by Christopher Ferrall 03 Mar '01

03 Mar '01

I have been attempting to compile gpc on AIX. I encounter this error: ld: 0711-781 ERROR: TOC overflow. TOC size: 67804 Maximum size: 65536 collect2: ld returned 12 exit status Apparently this problem is known, because gcc/p/Makefile includes: # f771 and cc1plus overflow the AIX TOC BOOT_LDFLAGS=-Wl,-bbigtoc and "-bbigtoc" is the ld option that relaxes the TOC limit. I can't find BOOT_LDFLAGS referenced anywhere below its definition. Could this be the problem? Thanks --Chris Ferrall P.S: Thank you, thank you, thank you for continuing to develop GNU Pascal. I had dreaded the thought of quitting Pascal because the demise of AIX Pascal was starting limit my work. It appears GPC might allow me to carry on - if I could get it installed.

3 2

enumerated types problem/question
by Oldham, Adam 28 Feb '01

28 Feb '01

First, I want to apologize for bombarding the list with some bad questions. I have been thrown on this job porting Pascal code from one platform/compiler to Linux/GPC and I am having a tough time with it. I am not sure exactly if this is a problem, or a feature of GPC, or a code problem on my end. In a nutshell, I have a makefile that runs through and compiles (but not links) Pascal source into the object files. I have fixed many inconsistencies between the compilers so far.... but this one is a bit stranger. So far it compiles source files fine up to one where I get this error: phileif.pas:1102: incompatible type for argument 1 of `Getcurlangphrase' This function is being called as such: GetCurLangPhrase(Asterisk, 2, AddrType(@SearchStr)); The Prototype for the function is: PROCEDURE GetCurLangPhrase( Phrase_Id : eSysMessages; Buf_Size : INTEGER; Phrase_Buf : AddrType ); And lastly eSysMessages is an enumerated type containing Asterisk from the call. OK.... The Function is declared in a file called sysutl.pas, eSysMessages is in a global.pas, and the call of GetCurLangPhrase is in phileif.pas. Now, sysutl compiles to object code with no errors or warnings as does global. And phileif.pas USES both global and sysutl with the UNITs being defined correctly. This compiles with an old non-standard compiler, but doesn't with GPC and I can't figure it out for the life of me. The odd thing is, I can comment the line out, and this will happen for other function calls where a value in an enumerated type sits in a function call. Has anyone seen anything like this? Or does USES work differently with gpc than with other compilers? Thanks for any help! Adam Oldham Wishing he knew more about Pascal at this point. ----------------------------------------------------------------------- C. Adam Oldham Marconi Commerce Systems Inc. Software Engineer 7300 West Friendly Ave. adam.oldham(a)marconi.com Greensboro, NC 27420-2087 Phone : 336.547.5952 Fax : 336.547.5079 ----------------------------------------------------------------------- This document contains confidential information of Marconi Commerce Systems Inc. In consideration of the receipt of this document, the recipient agrees not to reproduce, copy, use or transmit this document and/or the information contained herein, in whole or in part, or to suffer such actions by others, for any purpose except with written permission, first obtained, of Marconi Commerce Systems Inc., and further agrees to surrender the same to Marconi Commerce Systems Inc. upon demand. -----------------------------------------------------------------------

3 2

File locking?
by Stephen Hurd 28 Feb '01

28 Feb '01

How can I lock a file in GPC? I would like to do something like: type message:array[1..80] of char;

2 1

GtkUnit-20010228 ANNOUNCEMENT
by Nicola Girardi 28 Feb '01

28 Feb '01

Hi, everybody! This is to announce the first public release of GtkUnit. (No real version number by now, just the timestamp "20010228".) GtkUnit is a set of units, test programs and programs from the Gtk+ tutorial written in GPC to allow Pascal programmers to use a comfortable interface to the Gtk+ library. GtkUnit should compile and work successfully on every system supported by GPC with a working Gtk+ library installation. We (Eike and I) invite anyone to code their own programs and help us find out bugs, often due to typos during the port process. In fact, no automagic translator was used. The main web site of the Gtk+ port project is reachable at <http://www.swlibero.org/~nikke/gtkunit/>. In the future, this will contain the updated information about the project as well as pointers to projects based on GtkUnit (in case there are any;-)). I won't be reachable for 4/5 days, because I will be on a school trip, so write to Eike Lange <eike.lange(a)uni-essen.de> instead. We hope we'll get bug reports (and fixes;-)), but also some thanks would be appreciated. :-PP Thanks to Frank Heckenbach for his advice! Have much fun with GtkUnit! -- Nicola Girardi <nikke(a)swlibero.org>

1 0

RE: Strings, Lengths, etc
by Oldham, Adam 26 Feb '01

26 Feb '01

So should I take this to mean, that in GPC, a pointer must point to the exact data type? Meaning a Pointer to a string40 cannot point to a string15 or point to any lesser string than a string40, basically? Adam -----Original Message----- From: Maurice Lombardi [mailto:Maurice.Lombardi@ujf-grenoble.fr] Sent: Monday, February 26, 2001 9:36 AM To: Oldham, Adam Cc: 'gpc(a)gnu.de' Subject: Re: Strings, Lengths, etc "Oldham, Adam" a Ã©crit : > > Hey, the code I am having a problem with is more like: > > TYPE > PString = STRING[40]; > pPString = ^PString; > > VAR > PPtr : pPString; > ConsVers : String(15); > BEGIN > PPtr := @ConsVers; > END. > > test.pas:1425: assignment from incompatible pointer type > > This code has worked with Turbo and SVS, but not GPC. But the behaviour of gpc is logical in this case, TP and SVS are not. -- Maurice Lombardi Laboratoire de Spectrometrie Physique, Universite Joseph Fourier de Grenoble, BP87 38402 Saint Martin d'Heres Cedex FRANCE Tel: 33 (0)4 76 51 47 51 Fax: 33 (0)4 76 51 45 44 mailto:Maurice.Lombardi@ujf-grenoble.fr

2 1