Gpc November 1998

gpc@gnu.de

18 participants
47 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 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

Problem with compiling a program.
by Andrew Cameron 29 Nov '98

29 Nov '98

Hi, I have a problem in that I need to compile a program where a function is declared as type string. Here is a sample program test(input,output); function getname: string; begin getname := 'somestring'; end; begin end. The compiler aborts with parse error before 'String' If I declare the function as char it compiles. How do I get this to compile? Please reply directly as I have just subscribed to the List. I am using gpc version 2.0 Thanks in Anticipation Andrew Cameron

2 1

Re: Append on untyped files?...
by Frank Heckenbach 29 Nov '98

29 Nov '98

Orlando Llanes wrote: > On Thu, 26 Nov 1998, Frank Heckenbach wrote: > > Yes, use `Reset' and then `Seek' to the `FileSize' (BP compatible) > > or use `SeekWrite' or `SeekUpdate' (Extended Pascal standard) > > instead. (I hope this all works correctly now -- there were some > > problems with these things earlier. If there still are problems, > > send me a test program.) > > I tried with both BP and GPC, I don't think using Reset is supposed to > work since it's read only (I don't think it should either, it'll make > Reset -a read only statement- into an ambiguos statement). Well, that's what BP does. It's funny -- when GPC behaves differently as BP does, we get requests to make GPC "compatible"; and when we do, people start to realize BP's strangenesses. ;-) In BP, Reset is read-only only for text files, and for typed and untyped files when the global variable FileMode is set to 0 (default 2). In GPC, it's the same now... > I even tried > with SeekWrite, didn't bother to write SeekUpdate since 2 out of 3 are not > good odds :P The program I wrote to test it is at the end of this e-mail. Well, I tried it with BP 7.0 and the current GPC, and it does work with both. Of course, foo.txt has to exist before starting the program, just like it has to with Append in BP. If this is the problem, you can check FileExists before opening or use I/O checking like in the following code fragment (again, works well with BP and GPC for me). If there are other problems, tell me which ones. Assign( f, 'foo.txt' ); {$I-} Reset( F, 1 ); {$I+} if IOResult = 0 then Seek( F, FileSize(F) ) else Rewrite (F, 1); BlockWrite( F, V, sizeof(V) ); Close( F ); > Rename the file > Create a new file with the old name > Copy the contents of the renamed file into the new one > Delete the renamed file > > This is prolly also the only way to do it. I hope not. Besides the fact that it's very inefficient as you pointed out, it also loses information about file ownership, permissions etc. (maybe not applicable under Dos). Kevin A. Foss wrote: > If you want (non-extended) standard Pascal, you'll have to do this on > any type of file -- because there is no choice other than to rewrite() > when doing file output. The file handling that is there is as simple > as possible, probably so > it would be portable, but it has always been a pain with Pascal. True, but I think we should really allow ourselves at least the luxury of Extended Pascal... ;-) > Anyways, here's a use of extend (based on Orlando's code) on an untyped > file: This code doesn't work with the current GPC any more because of too strict type checking, but I fixed it so it should work again with the next GPC version, except that you have to replace rewrite(out); [...] extend(out); by rewrite(out,1); [...] extend(out,1); (Another stupid BP legacy for untyped files...)-: So, this will be the best solution after the next release. Until then, Reset and Seek should work fine. -- Frank Heckenbach, frank(a)fjf.gnu.de http://fjf.gnu.de/ PGP and GPG keys: http://fjf.gnu.de/plan

2 1

Re: Some questions
by Frank Heckenbach 29 Nov '98

29 Nov '98

Gerry Dubois wrote: > RE Translating C header files > > Contact Florian Klaempfl <ba2395(a)fen.baynet.de> > a C to P header conversion program does exist and is currently being > inproved as part > of the FPC Pascal development. Especially for the PalmPilot port which > requires the conversion of all the PALM O/S C header files. > > You can download a copy from > > ftp://tflily.fys.kuleuven.ac.be/pub/fpc/source/ > > It's in rtl.zip utils/convert/h2pas How well does it work now? Last time I checked (which was some weeks ago), it wasn't quite usable. It failed for stdio.h and other standard headers, and what it did translate was far from a verbatim translation -- ISTR that it got the types quite mixed up, and tried to translate preprocessor macros to Pascal functions -- which I think causes more problems than it solves -- and other things... -- Frank Heckenbach, frank(a)fjf.gnu.de http://fjf.gnu.de/ PGP and GPG keys: http://fjf.gnu.de/plan

1 0

Re: Append on untyped files?...
by Kevin A. Foss 29 Nov '98

29 Nov '98

On Sat, 28 Nov 1998 19:50:35 -0500 (EST), Orlando Llanes wrote: >On Thu, 26 Nov 1998, Frank Heckenbach wrote: >> BTW, should we make `Append'/`Extend' work on typed and untyped >> files? Neither BP or the standard do it/allow it, but I don't see >> any reason why not, and it doesn't *seem* too hard to implement... As far as I know, Extend already does. I tried the code that follows with GPC 980420 (the last version that worked with gcc 2.7.x) and it worked fine for me. > > So far, the easiest way I've seen is to.. > >Rename the file >Create a new file with the old name >Copy the contents of the renamed file into the new one >Delete the renamed file If you want (non-extended) standard Pascal, you'll have to do this on any type of file -- because there is no choice other than to rewrite() when doing file output. The file handling that is there is as simple as possible, probably so it would be portable, but it has always been a pain with Pascal. Anyways, here's a use of extend (based on Orlando's code) on an untyped file: program Tmp(output); var out : bindable file; b : BindingType; V : array[ 1..4 ] of char; begin b := binding(out); b.name := 'foo.txt'; bind(out,b); b := binding(out); rewrite(out); V := 'Foo,'; BlockWrite(out, V, sizeof(V)); unbind(out); b := binding(out); b.name := 'foo.txt'; bind(out, b); b := binding(out); extend(out); V := 'Bar'; BlockWrite(out, V, sizeof(V)); unbind(out); end. -- Kevin A. Foss --- kfoss(a)mint.net

1 0

Re: Append on untyped files?...
by Frank Heckenbach 29 Nov '98

29 Nov '98

Orlando Llanes wrote: > Is it possible to open a file for writing without truncating it? Yes, use `Reset' and then `Seek' to the `FileSize' (BP compatible) or use `SeekWrite' or `SeekUpdate' (Extended Pascal standard) instead. (I hope this all works correctly now -- there were some problems with these things earlier. If there still are problems, send me a test program.) BTW, should we make `Append'/`Extend' work on typed and untyped files? Neither BP or the standard do it/allow it, but I don't see any reason why not, and it doesn't *seem* too hard to implement... -- Frank Heckenbach, frank(a)fjf.gnu.de http://fjf.gnu.de/ PGP and GPG keys: http://fjf.gnu.de/plan

2 1

Do nothing program does something???
by kc7rad＠vegasnet.net 26 Nov '98

26 Nov '98

The following program displays 'Linux' as if I did a writeln('Linux') when it is run. I am running an older ver of Slackware & GPC beta. Any ideas? Ken L. %<----------------------------------------------- program uname; const BuffSize = 2048; var read_fp : file; buffer : array[1..BuffSize+1] of char; chars_read : integer; procedure memset(cPtr : PChar; SetVal : char; size : integer); C; begin (* memset(buffer, char($00), BuffSize);*) (* This strange program looks like it is doing a writeln('Linux') when run! *) end.

2 2

Append on untyped files?...
by Orlando Llanes 26 Nov '98

26 Nov '98

Is it possible to open a file for writing without truncating it? The reason I ask is because recently I thought about how POV Ray allows you to stop a rendering in progress and save a partial file, then later allows you to continue where you left off. The only way I can think of is by renaming the file to a temporary name, writing a new file with the same name (truncates it to 0), copy the contents of the temporary file into the new one, delete the temporary file, then you write to the new file from then on. Is there a better way? Am I doing it the hard way? :) See ya! Orlando Llanes "Meine Damen und Herren, Elvis hat soeben das Gebaeude verlassen!" "Look out fo' flyeeng feet" O__/ a010111t(a)bc.seflin.org \/|____. O <__. \/\> / \ ____________|___\______ http://ourworld.compuserve.com/homepages/Monkey414

1 0

Some questions
by Pablo Bendersky 21 Nov '98

21 Nov '98

Hello, Maybe my questions are a little bit off topic, but I think here is the best place to ask Pascal related questions. I'm currently programming in Delphi, and I wold like to "translate" it to GPC. How can it be done ? Can it be done ? Other question. Is there any way to translate a C header file into a Delphi Unit ? Thanks --- Pablo Gabriel Bendersky bender(a)einstein.com.ar UIN : 1916679 Buenos Aires - Argentina

3 4

Re: Pipes, Shared memory & other Linux stuff...
by Frank Heckenbach 21 Nov '98

21 Nov '98

kc7rad(a)vegasnet.net wrote: > Has anyone here experimented with pipes, shared memory, > semaphores, message queues, etc in Linux with GPC? I curious > if there are any units or modules that help do any of this. I've done a little with pipes. I wrote the following routines (mainly because I needed one of them to do some printing via lpr in GPC). They're written in C (but the Pascal declarations are included), so that they're portable (among Unix systems, this is -- of course, they won't work under Dos). Frank -- Frank Heckenbach, frank(a)fjf.gnu.de http://fjf.gnu.de/ PGP and GPG keys: http://fjf.gnu.de/plan begin 600 pipe.tar.gz M'XL(`%OR5C8"`^U8;7/;-A+V9_Z*;>XFHCRR3,J)?(F:FRJNE6CJV!I)OIRO MX]-`)"AA0H$<`)2CIOGOW05)F7)3UVE[[4V&.Q[)6`#[^NQ"0"I2W@[V_J?D M>U[7\V`/`([\_-M_\L1^$QU[3X\`NMW.TZ?=8]_KXJS7[?I[X.W]"91IPQ3` M7J28?'?O.J[TWA='A_M.:B$`!P>`_PFY@)`9!I%*5L!D"":!5"4!UYIK9T!1 M@M<\>,?EG`7+%OC/GOWCP/<._([C3)="0R1B3CO6(N0XRF1@1"(UW`BS!+/D M$"5QG-R0HA'3`8LAY$',%+/+GCM.N05(a)A)8-R`Y+[HBAA.=P,C$*=_>@KQ;_ M:L&I7(^0.RK8NHDK!FC#R*@>G/3NB)LF!>H>*JX';YDP+3B)$\TO,I-F!J=? M)DG,F;RKRP8JS!3?FMZ7(:I\L*XU8I&VS:S8%DR3_#^H*KK/(&L&)H)K7HD] M8=S8X!>IA)LE[H:4S,*<+<2:2YAO@.QLV50YM)JI1;;BTFAK,+A6#F4N1T<Q M"U[3(H7+M5")M"QRK>40-U"<&4[8(C@4J#I,%`&K8A'7#3)3ADR%D%BW#H7$ MSS9Y4VQG&%G%3:8D#X'I/"8:7!0UYX`E&N8PZVLM%M+.-MMP(1VN5*):($5, M[I8BVC",;#2)J3D&=2=$(HY!)H9$6\=YZ&32H`@6F(S%\2:O%#)*D\^E0U1/ M)+F:H8H")UB*.-Q5$]!2$(92%:+W+1`2$A5RE=<?7Y."!3<V^N0<B[43811/ MC(H/3H";H.T4%1B+N6)J0SHCQ=&X)#(W:&4/-DD&`9,8@%!HQ-P\,Z2US,@J M"46T<9"12:L:O3%<K30DD1V\.K^$LT+Z*RZYPNH=9?-8!,@.N$0?,"LI<?02 MDS'?6!@-R(I)804,$I1NJ[T%:VRJ5)N=]L]MOS4QI&B0H&62HD5+9LAH&[@\ M[5$6MP!7.F^'T]<7EU/HGU_!V_YXW#^?7O4L)C"H0%&T<L0JC06!A2EL:&9# M_KTY'9^\QO7]E\.SX?3*P7(a),AM/ST\D$!A=CZ,.H/YX.3R[/^F,878Y'%Y/3 M-L"$\U^)C%-&)K(1Q@"$W#`1:W3Y"O.AT32$PY*M"=L!QU)$;$.0I)N'A]UA M<8+`*'KL;1Q[B+K<0-N63RY&5\/S5^VSX4NT'2&*\,9R5P)A8))?R=50!NT6 M/'T&4X[APQ87LX##`4PRVGYTY+6P"VF#2YTW??`ZON\?^$?><0LN)_VVLW_H M.'\3,HBSD,/7F<3LANWE/RL\9(CD#FNC#\T&2_\3;+'B/^=BH1KB.K0KY!$B MF:H%0QHLL;<6;1);)"W$^`DLJQOL`+;5@-MT/C@`43C#8L4OW<,1HC`+#+4` M_)@39_#M[#^GXPMP'^.29L&9G$[!Q1AL>3=+"KFK><QQN^OG4RWP\K\FO'B! MG[0R[T<06156AI[GT_#X,>IL:S/3X@<.7R&KYWQTG,'P[!3VJ=/8CNI:Y_93 MV[WS_[$YK^'[ZW*(O3G%8>X?.1V%\'WGFK2G(IP9^J2!B,!E(a)6U,;B[NW[.+ M[YKPXX^VKX$;A7;@NK@!7A"HWV'8FO`U^M(L/?%*4;BHZ=!I^\')3]V\T;FD MW;^VSA.5`0BQOF4^ZZ'IC]2C8LE'_.0QXKPJ*\S2#I2R\)?(5EQ%B7?]*6Y% M-7_/`ZR\PEF*6HL.LG2[8,;?"TK?76.]TK*==&"W?G`R6B4<+0)O1Y5SX_\I M7]Z]^:(,/+IY:+XHN]YORA=960U0N<S?6?$5193\KM9V\X])]CK!2):EAR?G MYZ4\A\H^[=T.3/*94)C9JD<\M&B`!OQ&:.#6W3')O0<O.^FT/N`2-!]>E!$J M(W8+@_MA57CB?R+MY!?L(*+4>(N[8OMNLP!K$NPNS(5]#DJW^JM0O9TM#?]D MX]G:]8M3#_/X[M1?50@$_+V:OCRBR@_Y*FFG3/]%[S_^DXY?O/\<>]W.,7(Z M^%V___PI^5?)0K&5?:_X%G&`OXS14PVO1O2.\('N"'AI5+!(`X((A`G7LH$W MQABO]>$&KRD2+S-TJZ+F<^<EAWZ#8_O8OF]@1_[O=/O8@3/3R@Q=Q3;8_*#= MAC?L_5"::[K_E$\F#BXOGT!P]2C!DY`K9*^9PJG3RMO#<[R$KB1;<6C,TAFU MM4;EC86.\`]_/\NOZ<''^KGI]S\WY2D@_I2_-Y185*@I#Y6<^M5T8@;=QCQH MV"<9/&.<.5\(21MO7V[`1;5%$-W&8:;5X5S(0[MKZX/[#:EJMJH`P-]5#$_U MXJMIC[`QSV^YKK'#MS2(I571Z,(^'#>:#I=ANS[E:JJIIIIJJJFFFFJJJ::: 0:JJIIB^-?@)^VS9'`"@````` ` end

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 1998