Gpc August 1997

gpc@gnu.de

23 participants
88 discussions

14 Aug '97

I'd like to use GPC for some simple CGIs I'm writing for my own server. To accomplish this I need to know how to: 1) Read from various environment variables like $QUERY_STRING. 2) Read from Standard Input. Any and all help greatly appreciated. Fred pismo(a)mclv.net

1 0

Typed file functions
by Peter Gerwinski 13 Aug '97

13 Aug '97

Hello, Miguel! Hello, everybody! (* Below are some words about ISO vs. Borland Pascal ... *) According to JoÃ£o Miguel Domingos: > > Thank you for your very useful help. I apolagize about my constant > questions but I feel like someone in the desert searching for water. No problem. One day, you will read another one's question on this list, know the answer, and "become water" yourself. :-) > This code was gaved by you and I think it is working properlly. After > assigning the file I'm doing : > > reset(f1); > while not eof(f1) do > begin > seekread(f1,n); (n is integer); > end; > > After the seekread I want to read one record to the variable r1 of type > tf1. What function do I use to do this. `read'. > I know that GPC contains a get > procedure but the only parametres that it accepts if the file variable. You can use `get' as well, see below. The following example program worked on my Linux box: Program Test (output, f1); type tf1 = record preco : integer; idade : integer; titulo : string[90]; end; f1file = file[1..1000] of tf1; var r1 : tf1; f1 : f1file; n : integer; Procedure FAssign ( Var t: f1file; Name: String ); Var b : bindingtype; begin unbind(t); b:=binding(t); b.name:=name; bind(t,b); b:=binding(t); end; begin FAssign (f1, 'test.dat'); rewrite(f1); for n:= 1 to 3 do begin r1.preco:= n; write (f1, r1); end (* for *); FAssign (f1, 'test.dat'); reset(f1); seekread(f1,2); get (f1); (* Read a value into the "file variable" `f1^' *) r1:= f1^; (* Assign the value of the file variable to `r1' *) writeln (r1.preco); (* Must be 2 *) end. Or, using `read' (compatible to Borland Pascal which does not support `get'): reset(f1); seekread(f1,2); read (f1, r1); (* Same as `get (f1); r1:= f1^'; *) writeln (r1.preco); (* Must be 2 *) Without the `(output, f1)' in the program's headline it does not work. :-( I consider this a bug in GPC; others might consider this a feature. Okay, ISO Pascal, as far as I have understood it, requires all files to appear in the program headline. While GPC partially supports this, I am sure that it does not yet comply to the requirements of the standard. OTOH, I consider this a bug anyway: I see no use for this, and - correct me if I am wrong - makes it a pain to write a large program (> 50000 lines) which reads and writes *many* files at *many* uncorrelated places. Thus, GPC's standard behaviour should be as follows: * Accept program headline parameters, but don't require them. * If program headline parameters are given, do all checks required by ISO. * If they are not given, allow to do everything with files which is allowed by UCSD and Borland Pascal. * With `--standard-pascal', `--extended-pascal', or whatever, these parameters are required. (Already the case.) I would be glad if somebody sent me test programs which show deficiencies in GPC's treatment of program headline parameters - both concerning ISO Pascal requirements and the treatment of files in UCSD/Borland Pascal. For example, GPC should work with the following (but doesn't): Program Test; (* Doesn't work without `F' parameter *) Var F: file of Integer; n: Integer; begin Assign ( F, 'test.dat' ); rewrite ( F ); for n:= 0 to 5 do write ( F, n ); close ( F ); reset ( F ); Seek ( F, 4 ); (* `Seek' unknown; must use `SeekRead' *) read ( F, n ); writeln ( n ); close ( f ); end. There are probably more, independent cases where GPC fails to compile valid UCSD/Borland Pascal. And a similar example can certainly be constructed for valid Extended Pascal rejected by GPC - or invalid Extended Pascal accepted by "gpc --extended-pascal". Please help to improve GPC by finding all these cases and posting test programs here! Greetings, Peter Dipl.-Phys. Peter Gerwinski, Essen, Germany, free physicist and programmer peter.gerwinski(a)uni-essen.de - http://home.pages.de/~peter.gerwinski/ [970201] maintainer GNU Pascal [970714] - http://home.pages.de/~gnu-pascal/ [970125]

1 0

Typed file functions
by João Miguel Domingos 13 Aug '97

13 Aug '97

Dear Peter G. Thank you for your very useful help. I apolagize about my constant questions but I feel like someone in the desert searching for water. All my actual problems are with accessing files. The description of my file is the following: type tf1 = record preco : integer; idade : integer; titulo : string[90]; end; var r1 : tf1; f1 : file[1..1000] of tf1; Now i'm using the following routine to assign a types file: Procedure FAssign ( Var somefile; Name: String ); Var t : bindable text absolute somefile; b : bindingtype; begin unbind(t); b:=binding(t); b.name:=name; bind(t,b); b:=binding(t); end; This code was gaved by you and I think it is working properlly. After assigning the file I'm doing : reset(f1); while not eof(f1) do begin seekread(f1,n); (n is integer); end; After the seekread I want to read one record to the variable r1 of type tf1. What function do I use to do this. I know that GPC contains a get procedure but the only parametres that it accepts if the file variable. Can you help me once more ? Please ! Best regards Joao Miguel Domingos

1 0

Resign me from the list
by Hans Petter Fasteng 12 Aug '97

12 Aug '97

Plase drop me from this list, if I have to do something my self, please tell me how, or where I find the FAQ for doing so. -hans

1 0

Re: Typed file functions ?
by Peter Gerwinski 12 Aug '97

12 Aug '97

Hello! (* I am in hurry ... just some short notes ... *) According to JoÃ£o Miguel Domingos: > [...] > I'm defining the record variable this way: > > r1 : tf1 > > and the file variable like this: > > f1 : file of tf1; > > Is this correct ??? Yes. Maybe it is necessary to write `file [ 1..1000 ] of tf1;'. > I want to assign, reset, read and seek the file to > read records in a sequencial way or just read one in position "x".I have > downloaded the Peter's G. system.pas unit that have the bin* functions, > but I don't know how to use them. These are not written by me, but by The African Chief, and they are designed to work with "untyped" files, AFAIK. For what you have in mind, use the `Assign' procedure from the `System' Unit. Maybe you need to replace the untyped `Var' parameter with `Var foo: tf1File' (with tf1File being `bindable file [ 1..1000 ] of tf1;') and so on. > Do you have any other functions to > work with this type of files ??? `SeekRead', `SeekWrite', `SeekUpdate'. > Please help me with this problem. My boss is geting very bored with me > !!! Good luck! (* I am back in ~2 hours ... *) Hope this helps, Peter Dipl.-Phys. Peter Gerwinski, Essen, Germany, free physicist and programmer peter.gerwinski(a)uni-essen.de - http://home.pages.de/~peter.gerwinski/ [970201] maintainer GNU Pascal [970714] - http://home.pages.de/~gnu-pascal/ [970125]

1 0

Typed file functions ?
by João Miguel Domingos 12 Aug '97

12 Aug '97

Dear Sirs, I'm writing a program that needs to work with a file with a predefined record structure like this below: type tf1 = record preco : integer; idade : integer; titulo : string[90]; tema : string[48]; end; I'm defining the record variable this way: r1 : tf1 and the file variable like this: f1 : file of tf1; Is this correct ??? I want to assign, reset, read and seek the file to read records in a sequencial way or just read one in position "x".I have downloaded the Peter's G. system.pas unit that have the bin* functions, but I don't know how to use them. Do you have any other functions to work with this type of files ??? Please help me with this problem. My boss is geting very bored with me !!! Best regards Joao Domingos

1 0

GPC on HP-UX 10.20, alpha-dec-osf3.2, solaris 2.5
by Peter Gerwinski 12 Aug '97

12 Aug '97

According to John Miller: > > I wrote earlier about problems with gpc making on solaris 2.5 (SunOS 5.5). > > I'm wanting to run this same program on a DEC alpha, a Sun ULTRA, an > HP9000 K370, and some kind of IBM box. > > [...] Unfortunately, I have no experience with these machines, and I can't read off anything I understand from the error messages. :-( Maybe you can use one of the binaries we are providing at ftp://agnes.dida.physik.uni-essen.de/gnu-pascal/binary? Otherwise, I recommend to try again with a recent beta version of GPC. The compilation/installation method has changed violently - in part for solving such incomatibility problems. Hope this helps, Peter Dipl.-Phys. Peter Gerwinski, Essen, Germany, free physicist and programmer peter.gerwinski(a)uni-essen.de - http://home.pages.de/~peter.gerwinski/ [970201] maintainer GNU Pascal [970714] - http://home.pages.de/~gnu-pascal/ [970125]

1 0

A More Serious GPC Bug
by Phil Robertson 11 Aug '97

11 Aug '97

Here's a more serious problem I've found while attempting to port a "legacy" application (250,000 LOC) to GNU Pascal: FILE: test1.pas UNIT Test1; INTERFACE TYPE eFlagDefs = (IDEInterface,DoubleDensity,HighDensity); sFlagDefs = SET OF eFlagDefs; FUNCTION GetFlagVal : eFlagDefs; IMPLEMENTATION END. FILE: test.pas PROGRAM Test; USES Test1; VAR Flags : sFlagDefs; BEGIN Flags := [IDEInterface,HighDensity]; IF IDEInterface IN Flags THEN WRITELN ('IDE Interface'); IF GetFlagVal IN [HighDensity,DoubleDensity] THEN WRITELN ('Dump Core'); END. test.pas: In function `program_Test': test.pas:9: type of set constructor element must be the set basetype test.pas:9: type of set constructor element must be the set basetype test.pas:9: aggregate value used where an integer was expected test.pas:10: invalid operands to binary `in' test.pas:10: condition must be of Boolean type gpc: Internal compiler error: program gpc1 got fatal signal 11 Problem seems to be related to performing operations on "set elements" when defined in an external UNIT. Note that the same functions appear to work when all defined in one unit. Phil ------------------------------------------------------------------------- Philip A. Robertson <phil_robertson(a)gilbarco.com> Gilbarco Inc. F-78 Phone (910) 547-5164 7300 W. Friendly Ave Fax (910) 292-8871 Greensboro, NC 27410 -------------------------------------------------------------------------

1 0

Minor GPC Bug
by Phil Robertson 11 Aug '97

11 Aug '97

I found this problem with the current "beta" GPC: Code Segment ============ PROGRAM TEST; VAR CharSet : SET OF CHAR; BEGIN CharSet := [#192, #193, #194, #195]; END. Error Message During Compile ============================ test.pas: In function `program_Test': test.pas:6: type of set constructor element must be the set basetype The error goes away if new-line after #193 is removed: CharSet := [#192,#193,#194,#195]; Thanks; Phil ------------------------------------------------------------------------- Philip A. Robertson <phil_robertson(a)gilbarco.com> Gilbarco Inc. F-78 Phone (910) 547-5164 7300 W. Friendly Ave Fax (910) 292-8871 Greensboro, NC 27410 -------------------------------------------------------------------------

1 0

_p_initfdr() not called in units
by Bill Currie 11 Aug '97

11 Aug '97

The attached files give a gpc runtime error of 701 (?GPC runtime error: (gpc-rts) _p_initfdr() has not been called for file (#701)). Is this a bug or is there a way I can force _p_initfdr to be called? Bill -- Leave others their otherness. The following section of this message contains a file attachment prepared for transmission using the Internet MIME message format. If you are using Pegasus Mail, or any another MIME-compliant system, you should be able to save it or view it from within your mailer. If you cannot, please ask your system administrator for assistance. ---- File information ----------- File: bar.pas Date: 11 Aug 1997, 17:29 Size: 303 bytes. Type: Program-source The following section of this message contains a file attachment prepared for transmission using the Internet MIME message format. If you are using Pegasus Mail, or any another MIME-compliant system, you should be able to save it or view it from within your mailer. If you cannot, please ask your system administrator for assistance. ---- File information ----------- File: foo.pas Date: 11 Aug 1997, 17:25 Size: 34 bytes. Type: Program-source

1 0

← Newer
1
2
3
4
5
6
7
8
9
Older →

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 1997