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

* inoutres 103 for closed files, just like delphi

Browse Source
This commit is contained in:
peter 1999-10-26 12:25:19 +00:00
parent a905c026f2
commit 1a27ce8a2d
1 changed files with 65 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

82
rtl/inc/text.inc
View File

@ -179,9 +179,12 @@ Procedure Flush(var t : Text);[IOCheck];
Begin Begin
If InOutRes<>0 then If InOutRes<>0 then
exit; exit;
If TextRec(t).mode<>fmOutput Then if TextRec(t).mode<>fmOutput then
begin begin
InOutres:=105; if TextRec(t).mode=fmClosed then
InOutRes:=103
else
InOutRes:=105;
exit; exit;
end; end;
{ Not the flushfunc but the inoutfunc should be used, becuase that { Not the flushfunc but the inoutfunc should be used, becuase that
@ -241,7 +244,10 @@ Begin
exit(true); exit(true);
if (TextRec(t).mode<>fmInput) Then if (TextRec(t).mode<>fmInput) Then
begin begin
InOutRes:=104; if TextRec(t).mode=fmClosed then
InOutRes:=103
else
InOutRes:=104;
exit(true); exit(true);
end; end;
If TextRec(t).BufPos>=TextRec(t).BufEnd Then If TextRec(t).BufPos>=TextRec(t).BufEnd Then
@ -270,7 +276,10 @@ Begin
exit(true); exit(true);
if (TextRec(t).mode<>fmInput) Then if (TextRec(t).mode<>fmInput) Then
begin begin
InOutRes:=104; if TextRec(t).mode=fmClosed then
InOutRes:=103
else
InOutRes:=104;
exit(true); exit(true);
end; end;
repeat repeat
@ -304,7 +313,10 @@ Begin
exit(true); exit(true);
if (TextRec(t).mode<>fmInput) Then if (TextRec(t).mode<>fmInput) Then
begin begin
InOutRes:=104; if TextRec(t).mode=fmClosed then
InOutRes:=103
else
InOutRes:=104;
exit(true); exit(true);
end; end;
If TextRec(t).BufPos>=TextRec(t).BufEnd Then If TextRec(t).BufPos>=TextRec(t).BufEnd Then
@ -329,7 +341,10 @@ Begin
exit(true); exit(true);
if (TextRec(t).mode<>fmInput) Then if (TextRec(t).mode<>fmInput) Then
begin begin
InOutRes:=104; if TextRec(t).mode=fmClosed then
InOutRes:=103
else
InOutRes:=104;
exit(true); exit(true);
end; end;
repeat repeat
@ -446,7 +461,10 @@ Begin
exit; exit;
if (f.mode<>fmOutput) Then if (f.mode<>fmOutput) Then
begin begin
InOutRes:=105; if TextRec(f).mode=fmClosed then
InOutRes:=103
else
InOutRes:=105;
exit; exit;
end; end;
If Len>Length(s) Then If Len>Length(s) Then
@ -464,7 +482,10 @@ Begin
exit; exit;
if (f.mode<>fmOutput) Then if (f.mode<>fmOutput) Then
begin begin
InOutRes:=105; if TextRec(f).mode=fmClosed then
InOutRes:=103
else
InOutRes:=105;
exit; exit;
end; end;
p:=pchar(@s); p:=pchar(@s);
@ -485,7 +506,10 @@ Begin
exit; exit;
if (f.mode<>fmOutput) Then if (f.mode<>fmOutput) Then
begin begin
InOutRes:=105; if TextRec(f).mode=fmClosed then
InOutRes:=103
else
InOutRes:=105;
exit; exit;
end; end;
PCharLen:=StrLen(p); PCharLen:=StrLen(p);
@ -580,7 +604,10 @@ Begin
exit; exit;
if (TextRec(t).mode<>fmOutput) Then if (TextRec(t).mode<>fmOutput) Then
begin begin
InOutRes:=105; if TextRec(t).mode=fmClosed then
InOutRes:=103
else
InOutRes:=105;
exit; exit;
end; end;
If Len>1 Then If Len>1 Then
@ -691,7 +718,10 @@ Begin
exit; exit;
if (f.mode<>fmInput) Then if (f.mode<>fmInput) Then
begin begin
InOutRes:=104; if TextRec(f).mode=fmClosed then
InOutRes:=103
else
InOutRes:=104;
exit; exit;
end; end;
repeat repeat
@ -722,7 +752,10 @@ Begin
exit; exit;
if (f.mode<>fmInput) Then if (f.mode<>fmInput) Then
begin begin
InOutRes:=104; if TextRec(f).mode=fmClosed then
InOutRes:=103
else
InOutRes:=104;
exit; exit;
end; end;
{ Read maximal until Maxlen is reached } { Read maximal until Maxlen is reached }
@ -803,7 +836,10 @@ Begin
exit; exit;
if (f.mode<>fmInput) Then if (f.mode<>fmInput) Then
begin begin
InOutRes:=104; if TextRec(f).mode=fmClosed then
InOutRes:=103
else
InOutRes:=104;
exit; exit;
end; end;
{ Read next char or EOF } { Read next char or EOF }
@ -830,7 +866,10 @@ Begin
exit; exit;
if (f.mode<>fmInput) Then if (f.mode<>fmInput) Then
begin begin
InOutRes:=104; if TextRec(f).mode=fmClosed then
InOutRes:=103
else
InOutRes:=104;
exit; exit;
end; end;
If f.BufPos>=f.BufEnd Then If f.BufPos>=f.BufEnd Then
@ -856,7 +895,10 @@ Begin
exit; exit;
if (f.mode<>fmInput) Then if (f.mode<>fmInput) Then
begin begin
InOutRes:=104; if TextRec(f).mode=fmClosed then
InOutRes:=103
else
InOutRes:=104;
exit; exit;
end; end;
If f.BufPos>=f.BufEnd Then If f.BufPos>=f.BufEnd Then
@ -881,7 +923,10 @@ begin
exit; exit;
if (f.mode<>fmInput) Then if (f.mode<>fmInput) Then
begin begin
InOutRes:=104; if TextRec(f).mode=fmClosed then
InOutRes:=103
else
InOutRes:=104;
exit; exit;
end; end;
If f.BufPos>=f.BufEnd Then If f.BufPos>=f.BufEnd Then
@ -949,7 +994,10 @@ end;
{ {
$Log$ $Log$
Revision 1.58 1999-10-04 20:42:45 peter Revision 1.59 1999-10-26 12:25:19 peter
* inoutres 103 for closed files, just like delphi
Revision 1.58 1999/10/04 20:42:45 peter
* read ansistring speedup (no length(s) calls anymore) * read ansistring speedup (no length(s) calls anymore)
Revision 1.57 1999/09/10 17:14:43 peter Revision 1.57 1999/09/10 17:14:43 peter