Gpc November 1997

gpc@gnu.de

32 participants
113 discussions

Sockets
by RHS Linux User 27 Nov '97

27 Nov '97

I am not a part of the mailing list as of now, but I have subscribed. anyway, I was trying to open a socket, but the problem I kept running into was that connect wants a sockaddr struct, and in C you just casted it... (struct sockaddr *)&address but, I don't think that that is possible in pascal, so if anyone has successfully done this or knows how. please email me, lithium(a)lumni.com matthew wiggins

1 0

Re: binary gpc2.0 for Solaris 2.5.1
by Frank Heckenbach 27 Nov '97

27 Nov '97

Javier Medina Bautista wrote: > Hi team of gpc. > > My name is Javier Medina I'am the system manager at Universidad Autonoma > Metropolitana in Mexico City. > > I already compiled the gpc2.0 in a Sparcstation with Solaris 2.5.1 and I > have a binary distribution. > > What can I do for send you this file?, I thing there are many people > interested in binary from Solaris operating system. Great! We have such machines at our university, and I'd like to try GPC on them! (Up to now, I haven't had the chance to build one myself.) When you've uploaded it, I'll be happy to try some programs on these machines. I hope, when GPC 2.1 comes out soon, you can make a sparc-sun-solaris binary for it, too. Greetings, Frank -- Frank Heckenbach, Erlangen, Germany fjf(a)gmx.de http://home.pages.de/~fjf/links.htm

1 0

Re: iso10206 Seek Functions and a couple other little things....
by Kevin A. Foss 27 Nov '97

27 Nov '97

On Thu, 27 Nov 1997 12:06:27 +0100 (MET), Peter Gerwinski wrote: >I consider this a bug in GPC, but in fact I am not sure either what the >EP standard really means. Prospero's Extended Pascal compiler (PEP) >rejects your code but it accepts the following: [...] (seekrd.pas) >To fix GPC so it produces 'OK' from this source, edit the >file `rts/rts-random.c' and comment out the `if' statement >after "Seek back to the place ..." in `_p_seekread()' and >in `_p_seekupdate()'. Actually it works without patching the source because you are doing non-continuous reads -e.g. using seekread() before each read(). >(* BTW, EP experts, if I write `Program Test ( Output, Data );', >the program does *not* ask me for a file name for `Data' when >compiled with PEP. It works anyway, but I do not detect the >data file on my hard disk afterwards. What is the legal way >to produce an external file in EP? *) My understanding is that you have to bind a file name. Program Test ( Output, Data ); Var Data: bindable File [ 0..25 ] of Char; b : BindingType; C: Char; begin b := binding (data); b.Name := 'data'; bind(data, b); [... rest of seekrd.pas] But then again, I'm shooting in the dark, as I was with the seek* calls, not having played around with extended Pascal features before. -Kevin -- Kevin A. Foss --- kfoss(a)mint.net --

1 0

Re: iso10206 Seek Functions and a couple other little things....
by Peter Gerwinski 27 Nov '97

27 Nov '97

According to Kevin A. Foss: > While I'm on the topic of exploring the file functions, does > anyone want to explain the function of the various Seek* functions in > extended Pascal? The descriptions in the standard contain a lot of > intelligible text and little in the way of examples. I have the same problem. > I assumed that > Seekread(file, n) would simply take me to the nth record in 'file,' -- > which it does, but then it actually seems to stall the file pointer at > n until you read two items. > [...] > I would have expected D D E F G H for output? Why does the file > pointer stay at 3 for two consecutive reads? Is this a bug or am I > misusing seekread()? I consider this a bug in GPC, but in fact I am not sure either what the EP standard really means. Prospero's Extended Pascal compiler (PEP) rejects your code but it accepts the following: Program Test ( Output ); Var Data: File [ 0..25 ] of Char; C: Char; begin rewrite ( Data ); for C:= 'A' to 'Z' do write ( Data, C ); reset ( Data ); SeekRead ( Data, ord ( 'O' ) - ord ( 'A' ) ); read ( Data, C ); write ( C ); SeekRead ( Data, ord ( 'K' ) - ord ( 'A' ) ); read ( Data, C ); writeln ( C ); end. (seekrd.pas) To fix GPC so it produces 'OK' from this source, edit the file `rts/rts-random.c' and comment out the `if' statement after "Seek back to the place ..." in `_p_seekread()' and in `_p_seekupdate()'. (* BTW, EP experts, if I write `Program Test ( Output, Data );', the program does *not* ask me for a file name for `Data' when compiled with PEP. It works anyway, but I do not detect the data file on my hard disk afterwards. What is the legal way to produce an external file in EP? *) (* sqr ( BTW ), UCSD/BP's `Seek' is now in GPC, too. *) (* BTW pow 3, I see it's time for the next beta ... *) > Also isn't the typechecking of seekread a little harsh to not allow: > [...] > reset(inputfile, 'data'); > [...] > when it does allow: > [...] > index : integer = 3; > [...] > seekread(inputfile, index); The problem was that, in order to avoid arithmetical overflow, GPC assigned the largest possible type to integer constants (either `LongestInt' or `LongestCard') and converted it to something smaller when the constant is used together with something of known type. This is fixed now, too: Integer constants in GPC are now `Integer'. Only if this does not fit, `Cardinal', `LongestInt', and `LongestCard' are used (in this order). > Various Miscellany: > When I was playing around with all of this I wrote an ugly bit of code > that could be reduced to: > > program test(output); > var i : 3..3; > begin > i := i + 1; > writeln(i); > end. > > Why isn't there a warning about i being undefined? This code outputs > 1, btw :) A good question. Maybe the GCC backend initializes global variables to zero, so it has a defined value (out of range)? I will have to investigate it (kevin2.pas) ... > Lastly according to iso7185:6.4.2.4, "The first constant of a > subrange-type shall specify the smallest value, and this shall be less > than or equal to the largest value..." yet gpc happily compiles code > like: > > program test(output); var i: 4..1;begin writeln(i) end. Fixed. :-) Thanks for the bug reports, Peter Dipl.-Phys. Peter Gerwinski, Essen, Germany, free physicist and programmer peter.gerwinski(a)uni-essen.de - http://home.pages.de/~peter.gerwinski/ [971005] maintainer GNU Pascal [971001] - http://home.pages.de/~gnu-pascal/ [971005]

1 0

Re: reading from a typed file
by Peter Gerwinski 27 Nov '97

27 Nov '97

According to Kevin A. Foss: > > 1) is the following legal Pascal code? [...] No. A type `file' variable does not accept arrays of the type it was declared with for reading and writing. > 2) I take it GPC should do something more graceful than dump > core (OS/2) or give a fatal signal (Linux), even if the source is > invalid? :) This is with the 971001 beta. (kevin3.pas) Yes, that's a bug. Thanks for the report! Peter Dipl.-Phys. Peter Gerwinski, Essen, Germany, free physicist and programmer peter.gerwinski(a)uni-essen.de - http://home.pages.de/~peter.gerwinski/ [971005] maintainer GNU Pascal [971001] - http://home.pages.de/~gnu-pascal/ [971005]

1 0

Re: binary gpc2.0 for Solaris 2.5.1
by Peter Gerwinski 27 Nov '97

27 Nov '97

Hi, Javier! Hi, everybody! > I already compiled the gpc2.0 in a Sparcstation with Solaris 2.5.1 and I > have a binary distribution. > > What can I do for send you this file?, I thing there are many people > interested in binary from Solaris operating system. Please upload it to ftp://agnes.dida.physik.uni-essen.de/incoming/ and send me an e-mail when you have done that, so I can move it in place. > Another thing, I want to build a site gnu mirror can you help me for this > porpouse. See the GNU site for instructions, topic "Help GNU" - "mirroring". Thanks for your contribution! Peter Dipl.-Phys. Peter Gerwinski, Essen, Germany, free physicist and programmer peter.gerwinski(a)uni-essen.de - http://home.pages.de/~peter.gerwinski/ [971005] maintainer GNU Pascal [971001] - http://home.pages.de/~gnu-pascal/ [971005]

1 0

Re: reading from a typed file
by Dr E. Buxbaum 27 Nov '97

27 Nov '97

> program readdata(input, output, inputfile); > > var > inputfile : file of char; > temp : array[1..10] of char; > > begin > reset(inputfile, 'test'); > read(inputfile, temp); > writeln(temp); > close(inputfile); > end. try for i := 1 to 10 do read(InputFile, temp[i]); as your file is of type char, not temp. Also, I am not sure out of hand wether gpc allows writing to a file opend with Reset. Check the docs.

1 0

iso10206 Seek Functions and a couple other little things....
by Kevin A. Foss 27 Nov '97

27 Nov '97

Hi again, While I'm on the topic of exploring the file functions, does anyone want to explain the function of the various Seek* functions in extended Pascal? The descriptions in the standard contain a lot of intelligible text and little in the way of examples. I assumed that Seekread(file, n) would simply take me to the nth record in 'file,' -- which it does, but then it actually seems to stall the file pointer at n until you read two items. Take for example: program readchar(input, output, inputfile); var inputfile : file of char; letter : char; i : integer; begin reset(inputfile, 'data'); seekread(inputfile, 3); writeln(inputfile^); for i := 1 to 5 do begin read(inputfile,letter); writeln(letter); end; close(inputfile); end. Output: coltrane:~/Pascal> cat data ABCDEFGHIJKLMNOPQRSTUVWXYZ coltrane:~/Pascal> gpc readchar.pas -o readchar coltrane:~/Pascal> readchar D D D E F G coltrane:~/Pascal> I would have expected D D E F G H for output? Why does the file pointer stay at 3 for two consecutive reads? Is this a bug or am I misusing seekread()? Also isn't the typechecking of seekread a little harsh to not allow: program indexseek(input, output, inputfile); var inputfile : file [0..25] of char; begin reset(inputfile, 'data'); seekread(inputfile, 3); close(inputfile); end. when it does allow: program indexseek(input, output, inputfile); var inputfile : file [0..25] of char; index : integer = 3; begin reset(inputfile, 'data'); seekread(inputfile, index); close(inputfile); end. Various Miscellany: When I was playing around with all of this I wrote an ugly bit of code that could be reduced to: program test(output); var i : 3..3; begin i := i + 1; writeln(i); end. Why isn't there a warning about i being undefined? This code outputs 1, btw :) Lastly according to iso7185:6.4.2.4, "The first constant of a subrange-type shall specify the smallest value, and this shall be less than or equal to the largest value..." yet gpc happily compiles code like: program test(output); var i: 4..1;begin writeln(i) end. thanks for any explanations about the seekread() stuff, -Kevin -- Kevin A. Foss --- kfoss(a)mint.net --

1 0

binary gpc2.0 for Solaris 2.5.1
by Javier Medina Bautista 26 Nov '97

26 Nov '97

Hi team of gpc. My name is Javier Medina I'am the system manager at Universidad Autonoma Metropolitana in Mexico City. I already compiled the gpc2.0 in a Sparcstation with Solaris 2.5.1 and I have a binary distribution. What can I do for send you this file?, I thing there are many people interested in binary from Solaris operating system. Another thing, I want to build a site gnu mirror can you help me for this porpouse. Greetings from Mexico. ******************* Javier Medina Bautista ** ** Administrador de Sist. ** device ** E-mail:jmb@hp9000a1.uam.mx ** ** Tel: 724-45-05 ******************* Fax: 724-44-54

1 0

reading from a typed file
by Kevin A. Foss 26 Nov '97

26 Nov '97

Hello, I have a couple questions about the code sample at the bottom of this message: 1) is the following legal Pascal code? My gut feeling is that it isn't (my only other Pascal system -- albeit an interpreter, doesn't take it either), but I've never really played with typed files enough to know what to expect. 2) I take it GPC should do something more graceful than dump core (OS/2) or give a fatal signal (Linux), even if the source is invalid? :) This is with the 971001 beta. program readdata(input, output, inputfile); var inputfile : file of char; temp : array[1..10] of char; begin reset(inputfile, 'test'); read(inputfile, temp); writeln(temp); close(inputfile); end. -Kevin -- Kevin A. Foss --- kfoss(a)mint.net --

1 0

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 November 1997