home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga MA Magazine 1998 #6
/
amigamamagazinepolishissue1998.iso
/
coders
/
jËzyki_programowania
/
oberon
/
loader
/
loggerlib.def
< prev
next >
Wrap
Text File
|
1977-12-31
|
835b
|
36 lines
DEFINITION MODULE LoggerLib;
FROM SYSTEM IMPORT ADDRESS;
FROM ExecD IMPORT Library;
IMPORT R; (* Register-Nummern *)
(* Eigene Importe: *)
CONST
version = 40; (* Ihre Versionsnummer *)
TYPE
LoggerBasePtr = POINTER TO LoggerBase;
LoggerBase = RECORD
lib: Library;
(* Globale Variablen hier hinein! *)
END;
CONST
baseSize = SIZE(LoggerBase); (* Nur für M2LibLink wichtig *)
PROCEDURE LibOpen(myLib{R.A6}:LoggerBasePtr):ADDRESS;
PROCEDURE LibClose(myLib{R.A6}:LoggerBasePtr):ADDRESS;
PROCEDURE LibExpunge(myLib{R.A6}:LoggerBasePtr):ADDRESS;
PROCEDURE LibExtFunc(myLib{R.A6}:LoggerBasePtr):ADDRESS;
(* Ihre Prozeduren: *)
PROCEDURE clear;
PROCEDURE firstPos():LONGCARD;
PROCEDURE nextPos():LONGCARD;
PROCEDURE read(pos{R.D2}:LONGCARD):CHAR;
PROCEDURE write(ch{R.D2}:CHAR);
PROCEDURE writeStamp;
END LoggerLib.def