DEADSOFTWARE
GIT
/
REPO
/
FRED-BOY
Projects
/
dsw-obn.git
/ blob
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
Для обычных процедур всегда генерируется return
[dsw-obn.git]
/
tests
/
Test19.obn
1
MODULE
Test19
;
2
3
IMPORT
Files
,
Out
;
4
5
VAR
6
f
:
Files
.
File
;
7
r
:
Files
.
Rider
;
8
len
:
LONGINT
;
9
x
:
POINTER
TO ARRAY OF
CHAR
;
10
11
BEGIN
12
f
:=
Files
.
Old
(
"tests/Test19.obn"
);
13
ASSERT
(
f
#
NIL
);
14
Files
.
Set
(
r
,
f
,
0
);
15
16
len
:=
Files
.
Length
(
f
);
17
NEW
(
x
,
len
+
1
);
18
19
Files
.
ReadBytes
(
r
,
x
,
len
);
20
Out
.
String
(
x^
);
Out
.
Ln
;
21
END
Test19
.
22
23
Тест модуля Files
.
Должно выводить содержимое файла Test19
.
obn
.