Start a Modula-2 experiment

boot/Lexer.def

@@ -0,0 +1,19 @@
+DEFINITION MODULE Lexer;
+
+FROM FIO IMPORT File;
+
+TYPE
+  PLexerBuffer = POINTER TO CHAR;
+  Lexer = RECORD
+    Input: File;
+	Buffer: PLexerBuffer;
+	Size: CARDINAL;
+	Length: CARDINAL
+  END;
+  PLexer = POINTER TO Lexer;
+
+PROCEDURE LexerInitialize(ALexer: PLexer; Input: File);
+PROCEDURE LexerDestroy(ALexer: PLexer);
+PROCEDURE LexerLex(ALexer: PLexer);
+
+END Lexer.