Initial check in docu

2026-01-03 18:31:15 +01:00
parent e2c3cbc520
commit ee130973e2
98 changed files with 9430 additions and 0 deletions
@@ -0,0 +1,36 @@
+program calc;
+
+{$APPTYPE CONSOLE}
+
+uses
+   Classes,
+   SysUtils,
+   calcLexer  in 'calcLexer.pas',
+   calcParser in 'calcParser.pas';
+
+var
+   stm:  TFileStream;
+   lex:  TcalcLexer;
+   par:  TcalcParser;
+
+begin
+   if ParamCount <> 1 then
+   begin
+      writeln('usage: calc <filename>');
+      exit;
+   end
+   else
+   begin
+      try
+         stm := TFileStream.Create( ParamStr(1), fmOpenRead);
+         lex := TcalcLexer.Create(stm);
+         par := TcalcParser.Create(lex);
+
+         par.calc;
+      except
+      end;
+   end;
+
+   stm.Free;
+   par.Free;
+end.