Gpc February 1998

gpc@gnu.de

17 participants
35 discussions

CRT unit
by Frank Heckenbach 21 Feb '98

21 Feb '98

Since I needed some functions of the BP unit CRT, I implemented them using ncurses. As a result, we now have a very primitive CRT that should be portable (ncurses is widely available, AFAIK). However, there are some problems: - Some CRT functions are missing, most prominently AssignCrt and the TFDD stuff (which is impossible to do with the current GPC -- but I'll try to implement it sometime later), the Window procedure (which might not be too hard to implement), TextMode (which doesn't make much sense in general, but perhaps can be done so it works where possible)... - As a consequence of the missing TFDD stuff, input and output is not possible though the normal routines (read[ln], write[ln]), but only through CRTRead and CRTWrite. This is, of course, a big disadvantage, but thanks to ReadStr and WriteStr input and output can at least be converted quite automatically. - The code is very alpha, I just wrote it, and didn't really test it. It only works in the program I wrote it for. Some routines haven't been tested at all. Some other remarks: - The interface routines to ncurses are written in C to remain portable (writing them in Pascal would have been possible, but require some manual translation of system headers which might be importable). - When compiling, give "-lncurses" on the command line. (Sometimes, the automake mechanism doesn't find crtc.o, then give that on the command line, too.)-: - I haven't made any attempt to merge it with the existing CRT unit for DJGPP. I'm not sure if this is useful at all (since ncurses should exist there, too), but if so, it should be possible... For anyone who's daring to try and hopefully improve it, I'll put it at: http://home.pages.de/~fjf/crt.pas http://home.pages.de/~fjf/crtc.c -- Frank Heckenbach, Erlangen, Germany fjf(a)gmx.de http://home.pages.de/~fjf/links.htm

1 0

CString
by Jim Roland 18 Feb '98

18 Feb '98

Okay, I've got a CGI app written. There are subtlies that are different than Borland 5 & 6 that I'm used to, but nonetheless it's done. I can't compile because I don't have the data-type correct for setenv() and getenv(). What exactly is __cstring__ in pascal terms? Is it a pointer to a string type, actual string, etc...help! BTW, I forget and leave one end out during a case statement, and you get errors on just about everything in the file, including errors telling you that the ; at the end of a function blah(data):blahtype is not needed...just FYI. ====================================================================== Jim Roland, running the most stable operating system in the world: OS/2 v4.0--I TALK to my OS, and IT LISTENS, does yours? ----------------------------------- Running Internet Servers on OS/2 & Linux (a free & stable Unix OS) ----------------------------------- Get free PGP software today to keep your files & messages private! Don't let ANYONE deprive you of your right to privacy!! ======================================================================

2 1

Re: BP -> GPC: High()/Low()...
by Kevin A. Foss 17 Feb '98

17 Feb '98

On Mon, 16 Feb 1998 14:40:21 -0500 (EST), Orlando Llanes wrote: > Another thing to note is that GPC will return the actual first and >last element number, but BP starts it at 0 and ends on the last element. >For example, if the index goes from -1 to 4, BP will treat it as 0..6 >whereas GPC (and any Standard Pascal compliant Pascal Compiler?) will >treat it as -1..4 (don'tcha just LOVE GPC?!?!?!?! :) Um, so Low()/High() return the indices of the lower/upper bound of the array, right? [Just making sure I understood the examples, as I have no experience with these BP functions] It seems to me that the GPC behavior makes more sense (and would return more useful values), or was that your point? What good does Low() do in BP if it always returns a 0? -Kevin -- Kevin A. Foss --- kfoss(a)mint.net

2 1

BP -> GPC: High()/Low()...
by Orlando Llanes 16 Feb '98

16 Feb '98

I didn't see this at first, but for those of you who use High() and Low() in BP can use it in GPC with 2 "work-arounds": First a BP function (to demonstrate it's use so you understand how the work around functions): PROCEDURE BPFoo( B : ARRAY OF Integer ); BEGIN WriteLn( 'ARRAY[ ', Low( B ), '..', High( B ), ' ] OF Integer;' ); END; The 2 GPC work arounds are as follows: PROCEDURE GPCFooParam( B : ARRAY[ Low..High : Integer ] OF Integer ); BEGIN WriteLn( 'ARRAY[ ', Low, '..', High, ' ] OF Integer;' ); END; -=[ OR ]=- FUNCTION GPCHighInt( B : ARRAY[ Low..High : Integer ] OF Integer ): Integer; BEGIN GPCHighInt := High; END; FUNCTION GPCLowInt( B : ARRAY[ Low..High : Integer ] OF Integer ): Integer; BEGIN GPCLowInt := Low; END; In the first example of the GPC work around, there's no need for the High()/Low() functions as Low and High already mark the first and last element, respectively. In the second example, it's a work-around that prolly isn't worth it, but another way to do it nonetheless (especially if you need to know the first and last element index from the main program). I don't know if there's a way to do the latter GPC work-around so that it can take an array of any type (I don't know how to do that yet if it's possible), but as far as I know, you need a function for each type you will be using. Another thing to note is that GPC will return the actual first and last element number, but BP starts it at 0 and ends on the last element. For example, if the index goes from -1 to 4, BP will treat it as 0..6 whereas GPC (and any Standard Pascal compliant Pascal Compiler?) will treat it as -1..4 (don'tcha just LOVE GPC?!?!?!?! :) 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

x86 i/o port access
by Frank Heckenbach 12 Feb '98

12 Feb '98

Following a request on a German Pascal newsgroup, I put together a little unit for accessing the i/o ports on the x86 from code posted here last year, together with specific Linux functions to enable port access, and a demo program. I put them at http://home.pages.de/~fjf/programs.htm in case someone here is interested or has any comments. Frank -- Frank Heckenbach, Erlangen, Germany fjf(a)gmx.de http://home.pages.de/~fjf/links.htm

1 0

Manuals...
by croy＠osiris.com 12 Feb '98

12 Feb '98

Hello, I need a better source of documentation for GPC... I did read the documentation on agnes but I still have a feeling of missing something when I use the compiler.... Most of the time I go by intuition, having used for many years various Pascal implementation I end up with a trial and error process to functions, libraries and RTL function calls... Is there a place where we have a list of the function and there call parameter structure. I am using right now a generic Pascal reference and an old Borland Pascal language definition with a grain of salt and lots of little test programs but I find that so time consuming. Hopefully some people on the list are more experience with the GPC more specific issues and can help guiding me to a better reference. Thanks Claude.

2 1

Re: GPC problem with DJGPP
by Peter Gerwinski 11 Feb '98

11 Feb '98

According to Johan Larsson: > > Furthermore, the following program does not compile (parse > error at the class model `Class' etc. are not yet implemented into GPC; only the "old" OOP model from BP7 (`object' etc.) is supported at the moment. > though -fobject-pascal -fextended-pascal is enabled): These options do not enable anything; in contrast they disable everything outside the specified Pascal dialects. Greetings, Peter -- Peter Gerwinski, Essen, Germany, free physicist and programmer Maintainer GNU Pascal - http://home.pages.de/~GNU-Pascal/ - 1 Oct 1997 PGP key fingerprint: AC 6C 94 45 BE 28 A4 96 0E CC E9 12 47 25 82 75 Fight the SPAM! - http://maps.vix.com/

1 0

GPC problem with DJGPP
by Johan Larsson 11 Feb '98

11 Feb '98

Hi, I've tried to install GPC together with DJGPP and RHIDE. I get some very odd results. When attempting to compile .pas files the compiler report: "cannot open crt0.o: No such file or directory (ENOENT)" It appears as the lib path cannot be reached. Furthermore, the following program does not compile (parse error at the class model though -fobject-pascal -fextended-pascal is enabled): program classes; type efClass = class constructor Create; end; efMetaClass = class end; constructor efClass.Create; begin end; begin end. Can someone help me here? Is there detailed configuration information available on the Internet? Best Regards, Johan Larsson URL: http://www.acc.umu.se/~jola/ MAIL: jola(a)acc.umu.se Also, REMEMBER to check out EFLIB, the free object-oriented framework for EVERY Pascal programmer, at http://ftp.sunet.se/EFLIB/. Simply SOPHISTICATED!

2 1

Re: BP and BO question...
by Peter Gerwinski 09 Feb '98

09 Feb '98

According to Jim Roland: > > Thanks for the help. I got a successful compile now (no errors), however, > when I run the program i compiled (with gcc cgi-postsplit.pas -o > cgi-postsplit), You mean `gpc cgi-postsplit.pas -o cgi-postsplit'? > I get a bash error telling me the file is not there. Please try the following: * Make sure that this is no trivial error, for instance the executable is in the current directory, but the current directory is not in your path. (This is - or should be - the case when you are working as `root' (which you shouldn't do anyway.;-)) To check it, try `./postsplit' instead of just `postsplit'. * Use GPC only to compile, but link with GCC: `gpc -c postsplit.pas'; `gcc postsplit.o -o postsplit'. * If this does not help, add the `-v' option to your call to `gpc' and post the result here: `gpc cgi-postsplit.pas -v -o cgi-postsplit'. BTW, what system do you use? Linux probably (from your signature), but we must be sure about this in order to offer any help. > I tried running configure and make (even a make distclean before i > started) and I get an error 126 on ../gcc-2.7.2.2/specs! Thoughts? No idea, sorry. :-( > Right > now (I don't know what happened to cause this not to work nor compile > properly), but now I can't compile a program. A simple program that > assigns a string to S and writeln's it out doesn't error on compile, but > runs w/o output (test.pas). [...] As you can imagine, my GPC has no problem with this. Good luck, Peter -- Peter Gerwinski, Essen, Germany, free physicist and programmer Maintainer GNU Pascal - http://home.pages.de/~GNU-Pascal/ - 1 Oct 1997 PGP key fingerprint: AC 6C 94 45 BE 28 A4 96 0E CC E9 12 47 25 82 75 Fight the SPAM! - http://maps.vix.com/

1 0

Re: BP and BO question... (fwd)
by Jim Roland 09 Feb '98

09 Feb '98

Thanks for the help. I got a successful compile now (no errors), however, when I run the program i compiled (with gcc cgi-postsplit.pas -o cgi-postsplit), I get a bash error telling me the file is not there. When I compile a test program test.pas, I get no output at all Attached are those files. I tried running configure and make (even a make distclean before i started) and I get an error 126 on ../gcc-2.7.2.2/specs! Thoughts? Right now (I don't know what happened to cause this not to work nor compile properly), but now I can't compile a program. A simple program that assigns a string to S and writeln's it out doesn't error on compile, but runs w/o output (test.pas). a program that I have attached (cgi-postsplit.pas) give me a bash error telling me there is no such file or directory...HELP! Thanks! program stringsplit; var x,y : integer; s : string(255); begin s:='This is a string'; writeln('The String is = ',s) end. program stringsplit; #include "strpas.pas" var x, y : integer; s, newenv, curenv, newenvval, curenvval : string(255); teststr: CString; type PCString = ^CString; Function getenv(curenv:CString): PCString; C; Function setenv(newenv,newenvval:Tstring; x:integer): integer; C; begin s:='Test string'; writeln('The String is = ',s) 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 February 1998