Changeset 25 for branches/AS8051toC/UParser.pas

Timestamp:

Oct 15, 2012, 12:00:21 PM (12 years ago)

Author:

chronos

Message:

• Upraveno: Rozšířeno převádění kódu na další případy.

File:

• branches/AS8051toC/UParser.pas (modified) (12 diffs)

branches/AS8051toC/UParser.pas

@@ -17 +17 @@
   TErrorEvent = procedure (Message: string) of object;
 
+
   { TParser }
 
@@ -23 +24 @@
     FOnError: TErrorEvent;
   public
+    procedure Error(Text: string); virtual;
+    function Expect(Text: string): Boolean; virtual;
+    function GetNext(ChangePos: Boolean = False): string; virtual;
+    function ReadNext: string; virtual;
+    property OnError: TErrorEvent read FOnError write FOnError;
+  end;
+
+  { TParserASM51 }
+
+  TParserASM51 = class(TParser)
+  public
     Source: string;
     Position: Integer;
-    procedure Error(Text: string);
-    function Expect(Text: string): Boolean;
-    function GetNext(ChangePos: Boolean = False): string;
-    function ReadNext: string;
+    function Expect(Text: string): Boolean; override;
+    function GetNext(ChangePos: Boolean = False): string; override;
+    function ReadNext: string; override;
     function ReadChar: Char;
     function NextChar: Char;
@@ -39 +50 @@
     function IsKeyword(Text: string): Boolean;
     function IsNumber(Text: string): Boolean;
+    function IsHexNumber(Text: string): Boolean;
     function IsString(Text: string): Boolean;
     function IsWhiteSpace(Character: char): boolean;
     function Eof: Boolean;
-    property OnError: TErrorEvent read FOnError write FOnError;
+  end;
+
+  TParserMacro = class
+
   end;
 
@@ -48 +63 @@
 implementation
 
-{ TParser }
-
 procedure TParser.Error(Text: string);
 begin
@@ -56 +69 @@
 
 function TParser.Expect(Text: string): Boolean;
+begin
+
+end;
+
+function TParser.GetNext(ChangePos: Boolean): string;
+begin
+
+end;
+
+function TParser.ReadNext: string;
+begin
+
+end;
+
+{ TParserASM51 }
+
+function TParserASM51.Expect(Text: string): Boolean;
 var
   NextToken: string;
@@ -64 +94 @@
 end;
 
-function TParser.GetNext(ChangePos: Boolean = False): string;
+function TParserASM51.GetNext(ChangePos: Boolean = False): string;
 var
   OldPosition: Integer;
@@ -77 +107 @@
     end;
   end else
-  if IsNumeric(NextChar) then begin
+  if IsHex(NextChar) then begin
     Result := ReadChar;
-    while IsNumeric(NextChar) do begin
+    while IsHex(NextChar) do begin
       Result := Result + ReadChar;
     end;
+    if NextChar = 'h' then Result := Result + ReadChar;
+//    else
   end else Result := ReadChar;
   if not ChangePos then Position := OldPosition;
 end;
 
-function TParser.ReadNext: string;
+function TParserASM51.ReadNext: string;
 begin
   Result := GetNext(True);
 end;
 
-function TParser.ReadChar: Char;
+function TParserASM51.ReadChar: Char;
 begin
   Result := NextChar;
@@ -97 +129 @@
 end;
 
-function TParser.NextChar: Char;
+function TParserASM51.NextChar: Char;
 begin
   Result := Source[Position];
 end;
 
-function TParser.ReadEol: string;
+function TParserASM51.ReadEol: string;
 begin
   Result := '';
@@ -112 +144 @@
 end;
 
-function TParser.IsAlphabetic(Character: char): boolean;
+function TParserASM51.IsAlphabetic(Character: char): boolean;
 begin
   Result := (Character in ['a'..'z']) or (Character in ['A'..'Z']);
 end;
 
-function TParser.IsAlphanumeric(Character: char): boolean;
+function TParserASM51.IsAlphanumeric(Character: char): boolean;
 begin
   Result := IsAlphabetic(Character) or IsNumeric(Character);
 end;
 
-function TParser.IsNumeric(Character: char): boolean;
+function TParserASM51.IsNumeric(Character: char): boolean;
 begin
   Result := Character in ['0'..'9'];
 end;
 
-function TParser.IsHex(Character: char): boolean;
-begin
-  Result := IsNumeric(Character) or (Character in ['A'..'F']);
-end;
-
-function TParser.IsString(Text: string): Boolean;
+function TParserASM51.IsHex(Character: char): boolean;
+begin
+  Result := IsNumeric(Character) or (Character in ['A'..'F']) or
+    (Character in ['a'..'f']);
+end;
+
+function TParserASM51.IsString(Text: string): Boolean;
 begin
   raise Exception.Create('Not implemented');
 end;
 
-function TParser.IsIdentificator(Text: string): boolean;
+function TParserASM51.IsIdentificator(Text: string): boolean;
 var
   I: integer;
@@ -154 +187 @@
 end;
 
-function TParser.IsWhiteSpace(Character: char): boolean;
+function TParserASM51.IsWhiteSpace(Character: char): boolean;
 begin
   Result := (Character <= ' ');
 end;
 
-function TParser.Eof: Boolean;
-begin
-  Result := Position > Length(Source);
-end;
-
-function TParser.IsKeyword(Text: string): Boolean;
+function TParserASM51.Eof: Boolean;
+begin
+  Result := (Position > Length(Source)) or (Trim(Copy(Source, Position, Length(Source))) = '');
+end;
+
+function TParserASM51.IsKeyword(Text: string): Boolean;
 var
   I: integer;
@@ -174 +207 @@
 end;
 
-function TParser.IsNumber(Text: string): Boolean;
+function TParserASM51.IsNumber(Text: string): Boolean;
 var
   Num: Integer;
@@ -181 +214 @@
 end;
 
+function TParserASM51.IsHexNumber(Text: string): Boolean;
+var
+  Num: Integer;
+begin
+  Result := TryStrToInt('$' + Text, Num);
+end;
+
 
 end.