File size: Difference between revisions
Added XPL0 example.
Drkameleon (talk | contribs) (Added Arturo implementation) |
(Added XPL0 example.) |
||
Line 1,815:
syscall
</lang>
=={{header|XPL0}}==
<lang XPL0>proc ShowSize(FileName);
char FileName; int Size, C;
[Trap(false); \disable abort on error
FSet(FOpen(FileName, 0), ^i);
Size:= 0;
repeat C:= ChIn(3); \reads 2 EOFs before
Size:= Size+1; \ read beyond end-of-file
until GetErr; \ is detected
IntOut(0, Size-2);
CrLf(0);
];
[ShowSize("input.txt");
ShowSize("/input.txt"); \root under Linux
]</lang>
=={{header|zkl}}==
| |||