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,91 @@
+// ============================================================================
+// This file is generated by the Delphi Parser Generator.
+// ----------------------------------------------------------------------------
+// DPG version: 1.0.0.118r
+// Grammar:     javaparser.g
+// ============================================================================
+unit javaParser;
+
+interface
+
+uses
+   Classes,
+   Contnrs,
+   dpgLLkParser,
+   dpgToken,
+   dpgTypes,
+   javaParserTokens,
+   SysUtils;
+
+type
+   // =========================================================================
+   // Class TJavaParser declaration
+   // =========================================================================
+   TJavaParser = class( TdpgLLkParser)
+   
+   public    // Public grammar rules
+      procedure input   ;
+      procedure javadoc ;
+   
+   end;
+
+implementation
+uses
+   dpgException,
+   dpgExceptionSemantic,
+   dpgExceptionMismatchedToken;
+
+// ============================================================================
+// input
+// ============================================================================
+procedure TJavaParser.input;
+var
+   _cnt_4: integer;
+
+begin
+   _cnt_4 := 0;
+
+   while(true) do
+   begin
+      if (( LA(1) in [LT_int,TT_JAVADOC_OPEN])) then
+      begin
+         if (( LA(1) in [TT_JAVADOC_OPEN])) then
+         begin
+            javadoc;
+         end;
+         match(LT_int);
+         match(TT_ID);
+         match(TT_SEMI);
+      end
+      
+      else
+      begin
+         if _cnt_4 >= 1 then
+            break
+         else
+            Raise EdpgMismatchedToken.Create( LT(1), [LT_int,TT_JAVADOC_OPEN], FileName);
+      end;
+      
+      INC(_cnt_4);
+   end;
+end;
+
+// ============================================================================
+// javadoc
+// ============================================================================
+procedure TJavaParser.javadoc;
+begin
+   
+   match(TT_JAVADOC_OPEN);
+   if (( LA(1) in [TT_PARAM])) then
+   begin
+      match(TT_PARAM);
+   end;
+   if (( LA(1) in [TT_EXCEPTION])) then
+   begin
+      match(TT_EXCEPTION);
+   end;
+   match(TT_JAVADOC_CLOSE);
+end;
+
+end.