November 1997 - Gpc

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

Re: agnes down ?
by Jan-Jaap van der Heijden 30 Nov '97

30 Nov '97

I'm sorry that I ever questioned the stability of agnes. We seem to be dealing with a severe case of Micro$ofteritis here: [janjaap@ZOO-station janjaap]$ traceroute agnes.dida.physik.uni-essen.de traceroute to agnes.dida.physik.uni-essen.de (132.252.78.226), 30 hops max, 40 byte packets 1 router (130.89.220.1) 2.711 ms 3.995 ms 2.914 ms 2 Enschede2.router.surfnet.nl (145.41.162.97) 3.528 ms 2.835 ms 2.879 ms 3 BR1.Enschede.surf.net (145.41.8.109) 2.121 ms 6.237 ms 4.252 ms 4 BR2.Amsterdam.surf.net (145.41.7.30) 5.64 ms 14.08 ms 8.182 ms 5 BR1.Amsterdam.surf.net (145.41.8.101) 7.403 ms 12.607 ms 24.147 ms 6 Amsterdam1.belsurf.net (192.12.54.9) 7.402 ms 6.613 ms 9.705 ms 7 Amsterdam6.att-unisource.net (192.12.54.2) 8.483 ms 8.549 ms 7.352 ms 8 amsterdam5.att-unisource.net (195.206.64.17) 318.871 ms 361.2 ms 18.563 ms 9 frankfurt5.att-unisource.net (195.206.64.22) 17.684 ms 21.509 ms 23.506 ms 10 frankfurt6.att-unisource.net (195.206.64.42) 22.506 ms 43.934 ms 46.413 ms 11 DE.ten-34.net (195.206.64.62) 225.805 ms 264.866 ms 287.893 ms 12 ir-frankfurt1.WiN-IP.DFN.DE (193.203.227.18) 33.907 ms 20.889 ms 21.918 ms 13 ZR-Frankfurt1.WiN-IP.DFN.DE (188.1.144.98) 22.164 ms 22.444 ms 23.534 ms 14 ZR-Koeln1.WiN-IP.DFN.DE (188.1.144.33) 75.619 ms 211.154 ms 242.466 ms 15 Uni-Essen1.WiN-IP.DFN.DE (188.1.6.102) 27.147 ms 28.515 ms 36.096 ms 16 KR-Uni-Essen1.WiN-IP.DFN.DE (188.1.6.166) 28.153 ms 30.981 ms 24.481 ms 17 Uni-Essen1.WiN-IP.DFN.DE (188.1.6.165) 28.175 ms 27.505 ms 27.928 ms 18 KR-Uni-Essen1.WiN-IP.DFN.DE (188.1.6.166) 251.871 ms 30.899 ms 30.939 ms 19 Uni-Essen1.WiN-IP.DFN.DE (188.1.6.165) 30.12 ms 33.21 ms 39.284 ms 20 KR-Uni-Essen1.WiN-IP.DFN.DE (188.1.6.166) 27.753 ms 28.763 ms 28.15 ms 21 Uni-Essen1.WiN-IP.DFN.DE (188.1.6.165) 46.955 ms 32.169 ms 37.127 ms 22 KR-Uni-Essen1.WiN-IP.DFN.DE (188.1.6.166) 37.985 ms 35.388 ms 26.641 ms 23 Uni-Essen1.WiN-IP.DFN.DE (188.1.6.165) 28.455 ms 30.814 ms 30.428 ms 24 KR-Uni-Essen1.WiN-IP.DFN.DE (188.1.6.166) 47.757 ms 29.068 ms 30.278 ms 25 Uni-Essen1.WiN-IP.DFN.DE (188.1.6.165) 28.909 ms 49.848 ms 38.464 ms 26 KR-Uni-Essen1.WiN-IP.DFN.DE (188.1.6.166) 42.089 ms 31.354 ms 35.137 ms 27 Uni-Essen1.WiN-IP.DFN.DE (188.1.6.165) 30.687 ms 44.349 ms 70.558 ms 28 KR-Uni-Essen1.WiN-IP.DFN.DE (188.1.6.166) 33.559 ms 49.084 ms 36.502 ms 29 Uni-Essen1.WiN-IP.DFN.DE (188.1.6.165) 36.483 ms 45.423 ms 33.041 ms 30 KR-Uni-Essen1.WiN-IP.DFN.DE (188.1.6.166) 34.048 ms 32.716 ms 33.079 ms Damn, you shouldn't use NT for serious work :-( JJ --- With sufficient thrust, pigs fly just fine. However, this is not necessarily a good idea. It is hard to be sure where they are going to land, and it could be dangerous sitting under them as they fly overhead. -- RFC1925.

1 0

agnes down ?
by Jan-Jaap van der Heijden 30 Nov '97

30 Nov '97

agnes.dida.physik.uni-essen.de seems to be down since last night. Peter (you're not reading this -- your email is @agnes...), I hope nothing serious happened. JJ --- With sufficient thrust, pigs fly just fine. However, this is not necessarily a good idea. It is hard to be sure where they are going to land, and it could be dangerous sitting under them as they fly overhead. -- RFC1925.

1 0

Re: Interfacing DJGPP C with Pascal
by Peter Gerwinski 29 Nov '97

29 Nov '97

According to Stanislaw Kozlowski: > I am trying to link a Pascal unit DJGPP C. It links OK but > Pascal run time library seems to be unitialized [...] Before you can use the Pascal run time library you must initialize it by calling `_p_initialize()'. External declaration in C notation follows: extern void _p_initialize ( int argc, char **argv, char **envp ); (The parameters are self-explanatory for C programmers.;-) GPC quits the program by calling extern void _p_finalize ( void ); but it is sufficient to call `_p_fflush()' since `_p_finalize()' reads /* This is called when program ends normally */ void _p_finalize () { _p_fflush(FALSE); /* Call an empty routine, user might want to execute some code here */ _p_final (); exit (0); } 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/ [971005] maintainer GNU Pascal [971001] - http://home.pages.de/~gnu-pascal/ [971005]

1 0

this unit does not work
by laussy 29 Nov '97

29 Nov '97

Hi all, I would like to put some file operation in a separate precompiled unit. The matter is the assign binding code given in the info file does not work when put in a UNIT, where it works when in the program source itself, and some others units I made exactly the same way works fine (not using to begin do). Here is the unit code contening just the binding : -------------- UNIT files_operations; INTERFACE Procedure Assign ( Var T: Text; Name: String ); IMPLEMENTATION Procedure Assign ( Var T: Text; Name: String ); Var B : BindingType; begin (* Assign *) unbind ( T ); B:= binding ( T ); B.Name:= Name; bind ( T, B ); B:= binding ( T ); end; (* Assign *) END. --------------- And when linked as the usual way in the program, it makes it crash (segmentation fault). gpc --version 2.0(2.7.2.1)

2 1

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

28 Nov '97

According to Kevin A. Foss: > > Actually it works without patching the source because you are doing > non-continuous reads -e.g. using seekread() before each read(). Okay, so what about this one: 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' ) - 1 ); read ( Data, C ); read ( Data, C ); writeln ( C ); end. It produces "OK" with the patch; "OJ" without. Greetings, 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 28 Nov '97

28 Nov '97

Hello, everybody! I moved the binary compiled by Javier in place. It can be downloaded now from ftp://kampi.hut.fi/jtv/gnu-pascal/binary/ and from ftp://agnes.dida.physik.uni-essen.de/gnu-pascal/binary/ Greetings, 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

Unsubscscribe
by m00g0s01＠email.mcmail.com 28 Nov '97

28 Nov '97

Please Unsubscribe me from your mailing lists

1 0

Interfacing DJGPP C with Pascal
by Stanislaw Kozlowski 28 Nov '97

28 Nov '97

Hello I am trying to link a Pascal unit DJGPP C. It links OK but Pascal run time library seems to be unitialized so writeln would not work. The error is: ?GPC runtime error: File is not open for writing (#9) Is there any possibility to initalize it properly either from this unit of from C main ? Best regards Stanislaw Kozlowski

1 0

Interfacing GNU Pascal with GNU C
by Stanislaw Kozlowski 28 Nov '97

28 Nov '97

Hello ! I tried calling GNU Pascal procedure (compiled as separate unit) from GNU DJGPP C main program. Everything worked fine except that Pascal run time output seems to be uninitialized so writeln would not work. How can I initialize it (from initialization of the Pascal unit or C main program) ? Best regards Stanislaw Kozlowski

1 0