Gpc

gpc@gnu.de

5400 discussions

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

Pipes, Shared memory & other Linux stuff...
by kc7rad＠vegasnet.net 21 Nov '98

21 Nov '98

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. TNX es 73s Ken

1 0

gpc on HPUX 10.20?
by Nicholas Geovanis 20 Nov '98

20 Nov '98

Guten Morgen Has anyone compiled gpc-19980830 on HPUX 10.20 with the HP ANSI C compiler? I'm using their ANSI compiler in K-and-R mode (should I be using ANSI mode?). The first three or four source files compile OK but gpc.c has problems. At least one error looks completely bogus and I've worked around it easily, in other words it looks like a compiler bug. But I have another and I'm starting to get concerned. In general, are you using gcc as your "cc" rather than a vendor's? tschues - Nick G. <---------------------------------------------------------------------------> America's a pretty good country but you should | Nick Geovanis never love it more than it loves you. | IT Computing Svcs - Horace Coleman - "Nam Boogie (Tet Version)" | Northwestern Univ from The Veteran, Spring 1998 V n-geovanis(a)nwu.edu

2 1

YEE HAW!!!...
by Orlando Llanes 19 Nov '98

19 Nov '98

Just had to say KEEP UP THE GREAT WORK GPC TEAM!!! :) The latest Borland extensions work great! I wrote a program that saves PCX files in BP a while ago, and all I had to do was change 2 declarations and it compiled without any other changes!!! Not only that, but the program works as expected!!!! :) 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

minor graphics questions
by Robert P. Ewing 18 Nov '98

18 Nov '98

Hi, all. A few questions on the use of graphics in grx20. I am coming from Borlad Pascal, and have a lot to learn about graphics. 1) How do I flip back and forth between text and graphics screens? I know how to initialize the graphics, and the computer reverts to text mode when the progrma terminates. But I don't know how to flip between them myself. 2) How do I -- or can I? -- control the 0-15th entries in the palette? I have no trouble changing 16-255, but the bottom 16 seem resistant. Toby Ewing ewing(a)iastate.edu 515/294-7856 http://www.agron.iastate.edu/soilphysics/ewing.html Soil Scientist, Iowa State University

2 1

Jump to page:

2025

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