diff options
Diffstat (limited to 'avx512-0037785/rtl/inc/iso7185.pp')
| -rw-r--r-- | avx512-0037785/rtl/inc/iso7185.pp | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/avx512-0037785/rtl/inc/iso7185.pp b/avx512-0037785/rtl/inc/iso7185.pp index 45007412d7..539339382d 100644 --- a/avx512-0037785/rtl/inc/iso7185.pp +++ b/avx512-0037785/rtl/inc/iso7185.pp @@ -44,6 +44,8 @@ unit iso7185; Procedure Get(Var t: Text); Procedure Put(Var t: Text); + procedure Get; + Procedure Put; Procedure Get(Var f: TypedFile); Procedure Put(Var f: TypedFile); @@ -204,6 +206,24 @@ unit iso7185; end; + procedure Get;[IOCheck]; + var + c : char; + Begin + Read(input,c); + End; + + + Procedure Put;[IOCheck]; + type + FileFunc = Procedure(var t : TextRec); + begin + inc(TextRec(Output).BufPos); + If TextRec(Output).BufPos>=TextRec(Output).BufSize Then + FileFunc(TextRec(Output).InOutFunc)(TextRec(Output)); + end; + + procedure Get(var f:TypedFile);[IOCheck]; Begin if not(system.eof(f)) then |