- Gpc - gnu.de

small ncurses demo
by Rick Engebretson 06 May '05

06 May '05

Here is an example of the gpc-ncurses "software label key" terminal display : ======================================================= > program slk ; > > uses ncurses ; > > > > var > label1, label2, label3, label4, label5, label6, label7, label8 : > CString ; > n : int32 ; > > begin > n := slk_init(1); > stdscr := initscr ; > n := start_color ; > > label1 := 'one' ; > label2 := 'two' ; > label3 := 'three' ; > label4 := 'four' ; > label5 := 'five' ; > label6 := 'six' ; > label7 := 'seven' ; > label8 := 'eight' ; > > n := slk_set(1, label1, 1); > n := slk_set(2, label2, 1); > n := slk_set(3, label3, 1); > n := slk_set(4, label4, 1); > n := slk_set(5, label5, 1); > n := slk_set(6, label6, 1); > n := slk_set(7, label7, 1); > n := slk_set(8, label8, 1); > > n := slk_refresh ; > > > n := init_pair (1, COLOR_RED, COLOR_BLUE ) ; > n := attron ( COLOR_PAIR(1)) ; > > n := getch ; > > n := endwin ; > end. > It especially looks nice on a SuSE 8.1 xterm. If the __p* name conflict gets resolved, gpc-libplot will complement nicely.

2 2

bug: ncurses + slackware 10.0, 10.1
by Russell Whitaker 01 May '05

01 May '05

Hi Program below illustrates a bug: lower case a, lower case f thru z, and number 0 are printed with graphic characters. This bug did not appear in earlier versions of slackware. If you make the window with a frame around it, (uncomment the framewin line) the characters are printed normally, and afterwards any window written to is also printed normally. program ncurtest; uses GPC, GPCUtil, CRT, FrameWin; var submenu : WinState; Data : array[1..3] of string( 32 ) = ( 'ABCDEFGHIJKLMNOPQRSTUVWXYZ', 'abcdefghijklmnopqrstuvwxyz', '0123456789'); i : integer; begin i := (ScreenSize.X - 32) div 2; MakeWin( SubMenu, i, 2, i + 32, 7 ); { FrameWin('HELP: hit Enter to exit', DoubleFrame ); } FillWin( ' ', 16 * Blue ); HideCursor; for i := 1 to 3 do WriteStrAt( 2,i, Data[ i ], 16 * Blue + LightGray ); end. Russ Note to support(a)slackware.com, bug-ncurses(a)gnu.org: gpc(a)gnu.de is a pascal mailing list unit CRT is a pascal interface to ncurses

4 8

GPC ALPHA 20050331 released
by Frank Heckenbach 29 Apr '05

29 Apr '05

I have uploaded a new alpha version of GPC to <http://www.gnu-pascal.de/alpha/>. This is an ALPHA version. Not so many extensive tests have been made and the test suite is not expected to pass without errors. I'm not uploading binaries, diffs, separate test suite archives, updated web pages etc., just the source distribution. (Of course, others may feel free to upload binaries for various platforms.) I'm not aware of any serious bugs, but you have to decide for yourself whether to use it for production work. New features: * new options `--[no]-nonlocal-exit' (default in `--ucsd-pascal' and `--mac-pascal') (fjf988[fijk].pas, fjf1062*.pas) (U) (M) * new options `--[no]-object-checking' (on by default) to check on virtual method calls if VMT pointer is not nil and has matching `Size' and `NegatedSize' entries, new options `--[no]-range-and-object-checking' which are now equivalent to `$R[+-]' (fjf1053*.pas) (B) * new options `--[no]-pointer-checking', `--[no]-pointer-checking-user-defined'; new variable `ValidatePointerPtr' (fjf1052*.pas, pcerrorc.pas) (these options are _off_ by default!) * new options `--[no]-implicit-result' (fjf1022*.pas) (on by default *only* in `--delphi' mode!) (D) (@) * new options `--{en,dis}able-predefined-identifier' (fjf1037*.pas) - Bug fixes: * check initializers of unused types (fjf898*.pas) * check identifier scopes stricter (az25.pas, fjf1059*.pas) * in `--borland-pascal' give only a warning, not an error, for duplicate `case' elements (drf6*.pas) * multi-dimensional `packed' arrays are not correctly packed (fjf149*.pas) * check arithmetical overflow in constants somewhat better (fjf206*.pas) * check duplicate external declarations stricter (fjf948.pas) * check that actual discriminants match in parameters and assignments, and in strict EP mode, check that actual discriminants of parameters within one identifier list match (berend4.pas, fjf104[45]*.pas, typeof[2-4].pas) * check pointer to schema types stricter (fjf130.pas, fjf614.pas, schema3a.pas affected) * allow importing the same value as a result of distinct expressions under the same name for EP modules for ordinal, pointer, string and set constants (fjf1040*.pas, stef1.pas) * allow attributes for procedural types (chief56.pas) * problem with string operations and `goto' (contour0.pas, contourbug.pas, martin1.pas, berend3.pas) * check `goto' targets more strictly <261020020000077022%gpaeper(a)empirenet.com>, <Pine.LNX.4.44.0210281004000.31943-100000(a)duch.mimuw.edu.pl> (az48.pas, fjf701*.pas, fjf1038*.pas, gale6.pas) * `Result' is not completely Delphi compatible (fjf1022*.pas) * problem if a `Write' or `WriteLn' argument calls a routine which writes to the same file (fjf1036.pas) * `Update' as well as writing after reading or checking `EOF' can get the file position wrong in some cases (arp2*.pas, fjf159.pas, fjf160*.pas) Frank -- Frank Heckenbach, frank(a)g-n-u.de, http://fjf.gnu.de/, 7977168E GPC To-Do list, latest features, fixed bugs: http://www.gnu-pascal.de/todo.html GPC download signing key: ACB3 79B2 7EB2 B7A7 EFDE D101 CD02 4C9D 0FE0 E5E8

9 37

better framebuffer upload
by Rick Engebretson 26 Apr '05

26 Apr '05

I just uploaded a better formatting of the framebuffer draw stuff. http://www.pinenet.com/~eng/fbDraw.html Same code as before. Just better formatting. It should work. It probably has some debug stuff still in it. Certainly not done.

1 0

Portability issues
by Rick Engebretson 26 Apr '05

26 Apr '05

Maintaining a broadly portable compiler is no easy task. But it seems clear that the Unix-like OSs are the future. Today I took time to read up on signals, IPC, terminals (ie; any serial character device). Of course all the system calls are unreadable C. Readable Object Pascal on a powerful Unix desktop. For a guy who started by feeding punched cards with fortran; wow. Great progress. Thanks.

1 0

curses and graphics window
by Anonymous 23 Apr '05

23 Apr '05

I want to move beyond my TurboPascal program in DOS. Can I keep my character based menu (very fast, compact, and efficient with screen space) for the interface, and open a graphics window for the data graphing? KDE with Qt are daunting, while Curses is appealing. Thanks.

3 4

dereferencing untyped pointer
by Prof A Olowofoyeku (The African Chief) 23 Apr '05

23 Apr '05

Hi How does one get rid of the "dereferencing untyped pointer" error without endless typecasting? Is there a switch or compiler directive? Thanks. Best regards, The Chief -------- Prof. Abimbola A. Olowofoyeku (The African Chief) web: http://www.greatchief.plus.com/

8 18

Re: bug: ncurses + slackware 10.0, 10.1
by Frank Heckenbach 12 Apr '05

12 Apr '05

Thomas Dickey wrote: > On Sun, 10 Apr 2005, Frank Heckenbach wrote: > > > Russell Whitaker wrote: > > > >> Program below illustrates a bug: lower case a, lower case f thru z, > >> and number 0 are printed with graphic characters. This bug did not > >> appear in earlier versions of slackware. > > With the given example, I see a difference which I assume is what you're > talking about: if I run the sample in Linux console, linked against > ncurses 5.4 (or current), I'm seeing the cells 32-127 as line-drawing. > (Cells 0-31 are control characters, and are blank). > > Running against ncurses 5.3 or earlier, I don't see line-drawing. > > In each case, cells 128-255 are displaying the PC-specific font (some > double-width lines, etc). Indeed 128-255 are ok in all versions I tried. (I left 0-31 out of the test to avoid side-effects, and they don't seem relevant here.) > Since the difference is in how cells 32-127 are displayed, I assume that's > the issue. (Though the comments about direct access to the PC font are > a little confusing to me...). > > I agree with part of this. The part that I don't agree with is the > assumption that setting A_ALTCHARSET would in some cases not try to use > the terminal's alternate character set. (The sample code sets it in every > cell). Yes, it does, but in addition to setting smacs/rmacs ncurses does some internal remapping by means of real_map[] which it didn't do before AIUI. > > Anyway, the affected characters are all printable ASCII characters > > which are the same, at least in the IBM PC character mapping and > > probably most other fonts, so if necessary I could just turn off > > A_ALTCHARSET for those characters (#if 0 in the example below). > > yes - that sounds right. > > Bear in mind that you're actually using the smpch/rmpch feature, which > happens to work because smacs/smpch and rmacs/rmpch are the same strings. > I seem to recall that long ago ncurses had something like A_PCCHARSET > to distinguish these, but since it was not part of X/Open curses, that > was dropped. It was still available, I could probably use it, but now, A_ALTCHARSET is the only way to get at the font directly, isn't it? > > Is this the recommended thing to do, or is there another way to get > > direct access to all characters of the underlying font (on the Linux > > console)? > > As I understand the issue yes (though actually there's underlying font for > cells 32-127, which you don't seem to want). Maybe we have different definitions of underlying font, but in the end, we seem to mean the same. What I mean is the font as loaded which has the standard ASCII characters in 32-127 (and other characters such as line drawing in higher positions), and I want to output them just this way. Since ncurses remaps some of the ASCII characters, and since they're usually mapped 1:1 to the font anyway, I think I should just not set A_ALTCHARSET for those charaters as my patch did. If that's just it, I think we can consider the issue solved. Frank -- Frank Heckenbach, frank(a)g-n-u.de, http://fjf.gnu.de/, 7977168E GPC To-Do list, latest features, fixed bugs: http://www.gnu-pascal.de/todo.html GPC download signing key: ACB3 79B2 7EB2 B7A7 EFDE D101 CD02 4C9D 0FE0 E5E8

1 0

Strange error message in GPC20050331
by Markus Gerwinski 11 Apr '05

11 Apr '05

Hi folks, the line: if getMouseButtonPressStream^ .getLastEvent^ .getTarget = fLastEvent^ .getTarget then results in an error message: alpevents.pas:1255: error: invalid type of argument of `^' The error message disappears if I change the line into: if ( getMouseButtonPressStream^ .getLastEvent )^ .getTarget = fLastEvent^ .getTarget then What's that? Regards, Markus

2 4

"pos" and whole words
by Prof A Olowofoyeku (The African Chief) 10 Apr '05

10 Apr '05

Hi I have been trying to implement a "pos" function that only matches whole words. Below is my best effort. Is there a more efficient (or "better") way of implementing this? Thanks. { a "pos" function that matches whole words only } function PosInString (const sub, str : String) : Cardinal; Const nSeparators = ['a'..'z', 'A'..'Z', '0'..'9']; { non-separators } Var i, j : Cardinal; begin result := 0; If (sub = '') or (str = '') then Exit; i := pos (sub, str); { any match? } if (i = 0) then exit; { search for whole words only } result := i; j := length (sub) + i; if (i = 1) or ((i >1) and (Not (str [pred (i)] in nSeparators))) then begin if (j < length (str)) and (str [j] in nSeparators) then result := 0; end else result := 0; end; { test: correct results in comments } begin writeln (PosInString ('adam', 'he is adamant')); {0} writeln (PosInString ('adam', 'why is he so adamant about it?')); {0} writeln (PosInString ('adam', 'he knows about adam ant')); {16} writeln (PosInString ('adam', 'adam and eve')); {1} writeln (PosInString ('adam', 'eve and adam')); {9} writeln (PosInString ('adam', 'eve and adam ate the apple')); {9} end. Best regards, The Chief -------- Prof. Abimbola A. Olowofoyeku (The African Chief) web: http://www.greatchief.plus.com/

7 13