blob: 5230e8bc9024238a214f1dbd042f4b223db5ae69 (
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
|
lex
token t /any*/
end
def d [t]
int testAppend( Fn: str, Mode: str )
{
S: stream = open( Fn, Mode )
send S
"colm networks
S->close()
}
testAppend( 'working/open2.w', 'w' )
testAppend( 'working/open2.w', 'a' )
S: stream = open( 'working/open2.w', 'r' )
parse D: d [S]
print( D )
##### EXP #####
colm networks
colm networks
|