- Gpc - gnu.de

TclExpect and Pascal
by Rick Engebretson 15 Jun '05

15 Jun '05

The EXPECT extension to TCL is made for controlling and communicating with other user specific programs. Pascal user specific programs would be perfect. TCL was developed at UCBerkeley and Sun. Expect was developed at the US NIST. Nice, stable, well documented, public domain software. Pascal is the weak link. You are very talented people with GPC. I really appreciate CBFalconer's concerns.

2 4

Symbol names clash
by Pascal Viandier 15 Jun '05

15 Jun '05

Hi, While converting some SUN Pascal Code to GNU Pascal, I encounter a problem of symbol name clash: I have a module named 'Screen' that contains (and exports) a procedure named 'Screen'. When I compile the module, there is no problem, but when I want to Import SCREEN in an other module, the compiler produces an error on the Import line saying: bad import, and an other saying 'redeclaration of 'Screen'. So it looks like one cannot have a module and a procedure with the same name. However the two are very different entities - from my point of view -. Are there other possible entities conflicts? (variable or type names) Is there a way to circumvent this problem? Thanks Pascal Viandier pascal(a)accovia.com

2 1

Re: GPC ALPHA 20050331 released
by Adriaan van Os 12 Jun '05

12 Jun '05

Below are the testsuite results for gpc-20050331 with gcc-3.4.3 on powerpc-apple-darwin. Regards, Adriaan van Os [G5:gcc/p/test] adriaan% make EXTRA_PFLAGS=--longjmp-all-nonlocal-labels rm -f *.dat *.o *.s *.i *.gpi *.gpd *.gpc core a.out stderr.out *.exe testmake.tmp dummy.c dummy.pas dummy.out diff_cr*.tmp fixcr fixcr.exe rm -f todo/a.out todo/*.exe todo/*.o todo/*.s todo/*.i todo/*.gpi todo/*.gpd todo/core GP= PC="gpc" PFLAGS=" --autobuild -g -O3 -W -Wall -Wno-unused --longjmp-all-nonlocal-labels " PFLAGS_NO_PATHS="-g -O3 -W -Wall -Wno-unused --longjmp-all-nonlocal-labels " SRCDIR="." TEST_MAKE_FLAG=test-make-flag "./test_run" "*.pas" | tee test_log | "./test_sum" -d Test Run By adriaan on 2005-06-12 18:33:59 Native configuration is powerpc-apple-darwin7 (G5.local) === gpc tests === Running target any Running testsuite ... UNSUPPORTED: agettext2test.pas UNSUPPORTED: agettexttest.pas UNSUPPORTED: aregextest.pas UNSUPPORTED: asmtest.pas FAIL: chief56.pas FAIL: fjf1021d.pas FAIL: fjf1021h.pas FAIL: fjf1021i.pas FAIL: fjf1021j.pas FAIL: fjf1021k.pas UNSUPPORTED: fjf165a.pas FAIL: fjf998r.pas UNSUPPORTED: gmptest.pas UNSUPPORTED: longr2.pas FAIL: systemtest.pas === gpc Summary === # of tests 4946 # of expected passes 4931 # of unexpected failures 8 # of unsupported tests 7 gpc version 20050331, based on gcc-3.4.3 [G5:gcc/p/test] adriaan% gpc -v Reading specs from /Developer/Pascal/gpc343d8/lib/gcc/powerpc-apple-darwin7/3.4.3/specs Configured with: ../gcc-3.4.3/configure --enable-languages=pascal,c --enable-threads=posix --target=powerpc-apple-darwin7 --host=powerpc-apple-darwin7 --prefix=/Developer/Pascal/gpc343d8 Thread model: posix gpc version 20050331, based on gcc-3.4.3

1 0

Question on procedure parameters
by Pascal Viandier 12 Jun '05

12 Jun '05

Hi, I have a question regarding arrays of characters passed as parameters to procedures. If I declare: Type Str40 = Array[1..40] Of Char; Str80 = Array[1..80] Of Char; Var S40 : Str40; S80 : Str80; S : String(50); Procedure DoArray(SParam : STRING); .. Procedure DoArrayVar(VAR SParam : STRING); ... I can call DoArray with S40, S80 and S as parameter with no problem, but I cannot call DoArrayVar with S40 or S80 (It gives the error: type mismatch in argument 1 of 'DoArrayVar' at compilation time). I don't understand why it works when the parameter is not VAR and why it does not work when it is VAR. To have DoArrayVar work, I had to remove the parameter type, and assign the parameter S to a local variable pointer to a Str80. It works for S40 and S80 but not anymore for S. Is there a way to declare a VAR parameter that would accept S40, S80 and S? Or is there a way to disable temporarily the type checking? Or something else ;-) Thanks Pascal Viandier pascal(a)accovia.com

4 5

[Fwd: Re: source code formatting]
by Maurice Lombardi 12 Jun '05

12 Jun '05

Any body here has a copy ? -------- Message d'origine -------- Sujet: Re: source code formatting Date: Sat, 11 Jun 2005 15:40:29 +0100 De: Maurice Lombardi <Maurice.Lombardi(a)ujf-grenoble.fr> A: eng(a)pinenet.com Références: <8C73C552CB889D8-BD4-B903(a)mblk-d31.sysops.aol.com> <42AAB4E6.5060907(a)pinenet.com> Rick Engebretson a écrit: > mingeborg(a)aol.com wrote: > >> We have a large GPC application with inconsistent source code >> formatting - unpredictable indentation, several statements on one >> line, etc. >> >> Is there a quick and easy way to fix this? For instance, can any of >> the available GUI interfaces be used to reformat the code? There has been a formatting program pindent written by Peter Gerwinskii. But the goc mailing list and archives are down. Maurice -- Maurice Lombardi Laboratoire de Spectrometrie Physique, Universite Joseph Fourier de Grenoble, BP87 38402 Saint Martin d'Heres Cedex FRANCE Tel: 33 (0)4 76 51 47 51 Fax: 33 (0)4 76 63 54 95 mailto:Maurice.Lombardi@ujf-grenoble.fr -- Maurice Lombardi Laboratoire de Spectrometrie Physique, Universite Joseph Fourier de Grenoble, BP87 38402 Saint Martin d'Heres Cedex FRANCE Tel: 33 (0)4 76 51 47 51 Fax: 33 (0)4 76 63 54 95 mailto:Maurice.Lombardi@ujf-grenoble.fr

4 4

TclX with Unix
by Rick Engebretson 11 Jun '05

11 Jun '05

My apologies for rambling on, here. My earlier point was that I believe Pascal has a different context in Unix(Linux) than it did in DOS or with Delphi. Unix has many existing tools that do what Pascal does on other platforms. But Pascal can replace C for low level Unix programming. For those who might be interested, TclX is quite a Unix system shell extension to TCL. The last source version I found was 8.35 at sourceforge. It compiles with TCL8.4, but I'm trying it with TCL8.35. I had problems but I always have problems :) TclX includes system calls to fork, and other process management system calls. Exec can then launch a GPC program. In other words, you can create a process "multiplexer" of many Pascal programs running independently from a controller parent process. Robotics?? Signals are also dealt with in TclX. As well, stdin and stdout can be piped. I don't know much about fifos and sockets and mmaps yet. Since TCL after 8.0 is compiled to bytecode (afaik), it is faster than migh be assumed.

1 0

Default linker names
by Adriaan van Os 11 Jun '05

11 Jun '05

Frank Heckenbach wrote: > Relying on the default linker names was never reliable. OK, but how to solve the following problem, without relying on linker names: - create a Mac OS X dynamic library (dylib) - for that purpose, use a GPC unit "MyDylib" - pass -init _MyDylibInit to ld so that MyDylibInit is called when the dynamic library is loaded - declare a procedure MyDylibInit with attribute( name = 'MyDylibInit') So far no problem, but MyDylibInit ... - first calls GPCRuntimeInitialize (or GPC_Initialize if you like) declared with external name '_p_initialize' (relying on a linker name that may change) - then calls MyDylibUnitInit, the compiler glue that initializes the MyDylib unit. The external name used to be init_Mydylib but has recently changed to _p__M7_Mydylib_init (relying on a linker name again). Regards, Adriaan van Os

2 2

source code formatting
by mingeborg＠aol.com 11 Jun '05

11 Jun '05

We have a large GPC application with inconsistent source code formatting - unpredictable indentation, several statements on one line, etc. Is there a quick and easy way to fix this? For instance, can any of the available GUI interfaces be used to reformat the code? Thanks, - Inga

2 1

Passing by reference
by Adriaan van Os 06 Jun '05

06 Jun '05

Another problem, also reported on the macpascal mailing list and reproduced by the following program: [G5:gcc/p/test] adriaan% cat avo12.pas program avo12; type Str255 = record sLength: Byte; sChars: packed array[1..255] of char; end; function StringToStr255 ( const s: String ) = Result : Str255; begin Result.sLength := Min( Length( s ), 255 ); if Result.sLength > 0 then begin Result.sChars[1..Result.sLength] := s[1..Result.sLength]; end; end; procedure DrawString1( const s: Str255); external name 'DrawString'; procedure DrawString2( protected var s: Str255); external name 'DrawString'; begin DrawString1( StringToStr255( 'Hello')); {OK} DrawString2( StringToStr255( 'Hello')) {Error: reference expected, value given} end. [G5:gcc/p/test] adriaan% gpc avo12.pas avo12.pas: In main program: avo12.pas:19: error: reference expected, value given In gpc-20030830, this was no problem, but now it is no longer allowed, which is quite inconvenient. In the GPC interfaces for Mac OS X, we use the external declaration form with a "protected var" because (according to the gc docs) the "const" declaration form doesn't guarantuee that the parameter is passed by reference, which is an ABI requirement. Regards, Adriaan van Os

5 23

The CRT Unit
by Alex v.Below 06 Jun '05

06 Jun '05

Hello, I am trying to help students use gpc (on Mac OS X, in particular) instead of TurboPascal, which is still taught in some schools: http://macentwicklerwelt.net/index.php?title=Leben_ohne_TurboPascal (Sorry, German only) However, I have been unsuccessful in getting the CRT Unit to work on OS X: I tried to compile the crtdemo.pas in the demo folder, and after searching the mail archives, tried the --automake option. Neither was successful. Is there any other trick in getting the CRT Unit to work? I installed the binary installation of gpc for OS X. If anyone is interested I will gladly post the error output. I am a pretty skilled OS X coder, but my memory of pascal seems to have faded away... Thanks for your help! Alex

9 20