blob: 637ca81834318ed78f503fbf403051fa168d5df9 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
|
{
This file is part of the Free Pascal Run time library.
Copyright (c) 2010 by Florian Klaempfl
This unit contain procedures specific for iso pascal mode.
It should be platform independant.
See the file COPYING.FPC, included in this distribution,
For details about the copyright.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
**********************************************************************}
unit iso7185;
interface
const
MaxInt = MaxLongint;
type
Integer = Longint;
Procedure Rewrite(var t : Text);
Procedure Reset(var t : Text);
Procedure Reset(var f : TypedFile); [INTERNPROC: fpc_in_Reset_TypedFile];
Procedure Rewrite(var f : TypedFile); [INTERNPROC: fpc_in_Rewrite_TypedFile];
Function Eof(Var t: Text): Boolean;
Function Eof:Boolean;
Function Eoln(Var t: Text): Boolean;
Function Eoln:Boolean;
implementation
{$i textrec.inc}
{$i-}
procedure DoAssign(var t : Text);
begin
Assign(t,'fpc_'+HexStr(random(1000000000),8)+'.tmp');
end;
Procedure Rewrite(var t : Text);[IOCheck];
Begin
{ create file name? }
if Textrec(t).mode=0 then
DoAssign(t);
System.Rewrite(t);
End;
Procedure Reset(var t : Text);[IOCheck];
Begin
case Textrec(t).mode of
{ create file name? }
0:
DoAssign(t);
fmOutput:
Write(t,#26);
end;
System.Reset(t);
End;
Function Eof(Var t: Text): Boolean;[IOCheck];
var
OldCtrlZMarksEof : Boolean;
Begin
OldCtrlZMarksEof:=CtrlZMarksEOF;
CtrlZMarksEof:=false;
Eof:=System.Eof(t);
CtrlZMarksEof:=OldCtrlZMarksEOF;
end;
Function Eof:Boolean;
Begin
Eof:=Eof(Input);
End;
Function Eoln(Var t: Text): Boolean;[IOCheck];
var
OldCtrlZMarksEof : Boolean;
Begin
OldCtrlZMarksEof:=CtrlZMarksEOF;
CtrlZMarksEof:=true;
Eoln:=System.Eoln(t);
CtrlZMarksEof:=OldCtrlZMarksEOF;
end;
Function Eoln:Boolean;
Begin
Eoln:=Eoln(Input);
End;
begin
{ we shouldn't do this because it might confuse user programs, but for now it
is good enough to get pretty unique tmp file names }
Randomize;
end.
|
