Changeset 141 for branches/easy compiler/USourceGenerator.pas

Timestamp:

Jan 16, 2018, 2:44:19 PM (7 years ago)

Author:

chronos

Message:

• Added: Support for multiple value types. String and Integer are supported for the start.
• Added: "var" keyword for compile time definition of variable and its type.
• Added: Increment function for integer values.

File:

• branches/easy compiler/USourceGenerator.pas (modified) (4 diffs)

branches/easy compiler/USourceGenerator.pas

@@ -25 +25 @@
   Instruction: TSourceInstruction;
   I: Integer;
+  Value: TSourceValue;
 
 function GenerateRef(Reference: TSourceReference): string;
@@ -30 +31 @@
   Result := '';
   if Reference is TSourceReferenceConstant then begin
-    Result := Result + '''' + TSourceReferenceConstant(Reference).Constant.Value + '''';
+    Value := TSourceReferenceConstant(Reference).Constant.Value;
+    if Value is TSourceValueString then
+      Result := Result + '''' + TSourceValueString(Value).Value + ''''
+    else
+    if Value is TSourceValueInteger then
+      Result := Result + IntToStr(TSourceValueInteger(Value).Value);
   end else
   if Reference is TSourceReferenceVariable then begin
@@ -43 +49 @@
   with SourceCode do
   for I := 0 to Variables.Count - 1 do
-    Output := Output + '  ' + TSourceVariable(Variables[I]).Name + ': string;' + LineEnding;
+  with TSourceVariable(Variables[I]) do begin
+    Output := Output + '  ' + Name + ': ';
+    if ValueType.Name = 'String' then
+      Output := Output + 'string'
+    else if ValueType.Name = 'Integer' then
+      Output := Output + 'Integer'
+    else raise Exception.Create('Unsupported type');
+    Output := Output + ';' + LineEnding;
+  end;
   Output := Output + 'begin' + LineEnding;
   with SourceCode do
@@ -63 +77 @@
       end else
       if Name = 'inputln' then begin
-        Output := Output + '  ' + GenerateRef(Parameters[0]) + ' := ReadLn;' + LineEnding;
+        Output := Output + '  ReadLn(' + GenerateRef(Parameters[0]) + ');' + LineEnding;
+      end else
+      if Name = 'increment' then begin
+        Output := Output + '  Inc(' + GenerateRef(Parameters[0]) + ', ' +
+          GenerateRef(Parameters[1]) + ');' + LineEnding;
       end else
       raise Exception.Create('Unsupported instruction name.');