lib-s.mod

来自「<B>Digital的Unix操作系统VAX 4.2源码</B>」· MOD 代码 · 共 13 行

(*#@(#)lib-s.mod	4.1	Ultrix	7/17/90 *)
MODULE testlib;
IMPORT SYSTEM, BITOPERATIONS, IO, Storage, unix, parameters, strings, math;
VAR
    f : IO.FILE;
    i : INTEGER;
    a : SYSTEM.ADDRESS;
BEGIN
    i := unix.open("test",0);
    f := IO.OPEN("test","r");
    Storage.ALLOCATE(a,100);
END testlib.