Changeset 144

Timestamp:

Jan 16, 2018, 4:06:32 PM (6 years ago)

Author:

chronos

Message:

• Modified: Handle non-numeric input text for integer value as zero.

Location:

branches/easy compiler

Files:

• Steps.txt (modified) (2 diffs)
• USourceExecutor.pas (modified) (2 diffs)

branches/easy compiler/Steps.txt

@@ -3 +3 @@
 Add parser
 Add function calls without parameters 
+- every line is one command
+- whitespaces trimmed
 - printhelloworld function
 Add functions with parameters
 - change printhelloworld function to println
-- add tokenizer: identifier and string constants token types
+- add tokenizer: identifier and string constants token types, whitespaces ignored
 Add executor
 Add generator
@@ -18 +20 @@
 Add begin-end block support
 - local variables, constants, types
+
+
+TODO:
+Expressions
+Enumerations
+Arrays
+Records
+User defined functions
+Parametrized Types

branches/easy compiler/USourceExecutor.pas

@@ -80 +80 @@
   Value: TSourceValue;
   ExecutorVar: TExecutorVariable;
+  Text: string;
+  IntValue: Integer;
 
 function ReadValueReference(Reference: TSourceReference): TSourceValue;
@@ -135 +137 @@
           end else
           if ExecutorVar.Value is TSourceValueInteger then begin
-            TSourceValueInteger(ExecutorVar.Value).Value := StrToInt(FOnInput);
+            Text := FOnInput;
+            if TryStrToInt(Text, IntValue) then
+              TSourceValueInteger(ExecutorVar.Value).Value := IntValue
+              else TSourceValueInteger(ExecutorVar.Value).Value := 0;
             FOnOutput(IntToStr(TSourceValueInteger(ExecutorVar.Value).Value) + LineEnding);
           end else