paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-19 05:09:07 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ some darwin support, doesn't work yet because of imported variables

Browse Source 
problem
This commit is contained in:
Jonas Maebe 2004-02-06 22:35:50 +00:00
parent ed8e0bd27c
commit 8bda33eb61
1 changed files with 17 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
rtl/unix/terminfo.pp
View File

@ -22,6 +22,8 @@ interface
{$linklib c} {$linklib c}
{$packrecords c} {$packrecords c}
const curseslib = 'ncurses';
const const
{ boolean values } { boolean values }
auto_left_margin = 0; auto_left_margin = 0;
@ -600,7 +602,11 @@ type
WriterFunc = function (P: PChar): Longint; WriterFunc = function (P: PChar): Longint;
var var
cur_term : TerminalCommon_ptr1; external name 'cur_term'; {$ifndef darwin}
cur_term : TerminalCommon_ptr1; cvar; external;
{$else darwin}
cur_term : TerminalCommon_ptr1; external curseslib name '_cur_term';
{$endif darwin}
cur_term_booleans: ^TT_BoolArray; cur_term_booleans: ^TT_BoolArray;
cur_term_numbers: ^TT_WordArray; cur_term_numbers: ^TT_WordArray;
cur_term_strings: ^TT_PCharArray; cur_term_strings: ^TT_PCharArray;
@ -665,13 +671,13 @@ begin
tputs := F(P); tputs := F(P);
end; end;
function set_curterm(term: TerminalCommon_ptr1): TerminalCommon_ptr1; cdecl; external; function set_curterm(term: TerminalCommon_ptr1): TerminalCommon_ptr1; cdecl; external curseslib;
procedure use_env(B: Longint); cdecl; external; procedure use_env(B: Longint); cdecl; external curseslib;
function restartterm(Term: PChar; fd: Longint; var ErrCode: Longint): Longint; cdecl; external; function restartterm(Term: PChar; fd: Longint; var ErrCode: Longint): Longint; cdecl; external curseslib;
function setuptermC(Term: PChar; fd: Longint; var ErrCode: Longint): Longint; cdecl; external name 'setupterm'; function setuptermC(Term: PChar; fd: Longint; var ErrCode: Longint): Longint; cdecl; external curseslib name 'setupterm';
function setupterm(Term: PChar; fd: Longint; var ErrCode: Longint): Longint; function setupterm(Term: PChar; fd: Longint; var ErrCode: Longint): Longint;
var var
@ -706,7 +712,7 @@ begin
end; end;
end; end;
function del_curtermC(term: TerminalCommon_ptr1): Longint; cdecl; external name 'del_curterm'; function del_curtermC(term: TerminalCommon_ptr1): Longint; cdecl; external curseslib name 'del_curterm';
function del_curterm(term: TerminalCommon_ptr1): Longint; function del_curterm(term: TerminalCommon_ptr1): Longint;
var var
@ -741,7 +747,11 @@ function tparam(const char *, char *, int, ...): PChar; cdecl; external;}
end. end.
{ {
$Log$ $Log$
Revision 1.4 2003-09-14 20:15:01 marco Revision 1.5 2004-02-06 22:35:50 jonas
+ some darwin support, doesn't work yet because of imported variables
problem
Revision 1.4 2003/09/14 20:15:01 marco
* Unix reform stage two. Remove all calls from Unix that exist in Baseunix. * Unix reform stage two. Remove all calls from Unix that exist in Baseunix.
Revision 1.3 2002/09/07 16:01:28 peter Revision 1.3 2002/09/07 16:01:28 peter