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

* removed redefinition of TextRec, included Dos-Unit for TextRec

Browse Source
This commit is contained in:
armin 2004-09-22 13:45:48 +00:00
parent ef512a0bfe
commit 75a3f6a4f9
3 changed files with 17 additions and 32 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
packages/extra/ncurses/ncrt.inc
View File

@ -216,33 +216,6 @@ Var
tios : TermIOS; { saves the term settings at startup } tios : TermIOS; { saves the term settings at startup }
prev_textattr : integer; { detect change in TextAttr } prev_textattr : integer; { detect change in TextAttr }
{==========================================================================
This code chunk is from the FPC source tree in rtl/inc/textrec.inc.
It is the internal format of a variable of type "Text" as defined and
described in the Borland Pascal docs.
==========================================================================}
const
TextRecNameLength = 256;
TextRecBufSize = 256;
type
TextBuf = array[0..TextRecBufSize-1] of char;
TextRec = Packed Record
Handle : THandle;
Mode : longint;
bufsize,
_private,
bufpos,
bufend : SizeInt;
bufptr : ^textbuf;
openfunc,
inoutfunc,
flushfunc,
closefunc : pointer;
UserData : array[1..16] of byte;
name : array[0..textrecnamelength-1] of char;
buffer : textbuf;
End;
{==========================================================================} {==========================================================================}
{ set the active window for write(ln), read(ln) } { set the active window for write(ln), read(ln) }
@ -964,7 +937,10 @@ Begin
End; End;
{ {
$Log$ $Log$
Revision 1.5 2004-05-25 15:52:15 peter Revision 1.6 2004-09-22 13:45:48 armin
* removed redefinition of TextRec, included Dos-Unit for TextRec
Revision 1.5 2004/05/25 15:52:15 peter
* adapt for 64bit textrec * adapt for 64bit textrec
Revision 1.4 2004/05/03 20:52:48 peter Revision 1.4 2004/05/03 20:52:48 peter

8
packages/extra/ncurses/ncrt.pp
View File

@ -33,7 +33,8 @@ Uses
termio, termio,
{$endif} {$endif}
{$endif} {$endif}
ncurses; ncurses,
dos; {dos needed for TextRec}
{$i ncrt.inc} {$i ncrt.inc}
@ -47,7 +48,10 @@ Begin
End. { of Unit nCrt } End. { of Unit nCrt }
{ {
$Log$ $Log$
Revision 1.5 2003-11-19 17:11:40 marco Revision 1.6 2004-09-22 13:45:48 armin
* removed redefinition of TextRec, included Dos-Unit for TextRec
Revision 1.5 2003/11/19 17:11:40 marco
* termio unit * termio unit
Revision 1.4 2003/09/27 12:19:20 peter Revision 1.4 2003/09/27 12:19:20 peter

9
packages/extra/ncurses/ocrt.pp
View File

@ -157,7 +157,8 @@ Uses
termio, termio,
{$endif} {$endif}
{$endif} {$endif}
ncurses,panel,menu; ncurses,panel,menu,
dos; {dos needed for TextRec}
Const Const
@ -3069,6 +3070,7 @@ Var
sp1,sp2,sp3 : plongint; sp1,sp2,sp3 : plongint;
Begin Begin
If IsValid(i) Then Begin If IsValid(i) Then Begin
sp1:=nil; sp2:=nil; sp3:=nil;
ClearItem(i); ClearItem(i);
GetMem(items[i],Length(s)+1); GetMem(items[i],Length(s)+1);
StrPCopy(items[i]^,s); StrPCopy(items[i]^,s);
@ -3272,7 +3274,10 @@ End. { of Unit oCrt }
{ {
$Log$ $Log$
Revision 1.4 2003-11-19 17:11:40 marco Revision 1.5 2004-09-22 13:45:48 armin
* removed redefinition of TextRec, included Dos-Unit for TextRec
Revision 1.4 2003/11/19 17:11:40 marco
* termio unit * termio unit
Revision 1.3 2003/09/27 12:19:20 peter Revision 1.3 2003/09/27 12:19:20 peter