Changeset 98 for branches/interpreter/Source3.pas

Timestamp:

Feb 3, 2017, 10:48:19 PM (8 years ago)

Author:

chronos

Message:

• Modified: Handling of constant and variables values with different type.

File:

• branches/interpreter/Source3.pas (modified) (7 diffs)

branches/interpreter/Source3.pas

@@ -6 +6 @@
 
 type
+  TBaseType = (btBoolean, btInteger, btChar, btShortString, btArray);
+
   TType = record
     Name: string;
+    BaseType: TBaseType;
   end;
   PType = ^TType;
@@ -23 +26 @@
     Name: string;
     DataType: PType;
+    case Integer of
+      0: (ValueChar: Char);
+      1: (ValueInteger: Integer);
+      2: (ValueString: ShortString);
+      3: (ValueBoolean: Boolean);
   end;
   PVariable = ^TVariable;
@@ -33 +41 @@
     function GetByName(Name: string): PVariable;
   end;
+
+  TConstant = record
+    Name: string;
+    DataType: PType;
+    case Integer of
+      0: (ValueChar: Char);
+      1: (ValueInteger: Integer);
+      2: (ValueString: ShortString);
+      3: (ValueBoolean: Boolean);
+  end;
+  PConstant = ^TConstant;
 
   TFunctionParameter = record
@@ -59 +78 @@
       3: (Assignment: TAssignment);
       4: (Execution: TExecution);
-    end;
  } end;
   PCommand = ^TCommand;
@@ -98 +116 @@
     ReturnType: PType;
     BeginEnd: TBeginEnd;
+    Variables: TVariables;
   end;
   PFunction = ^TFunction;
@@ -131 +150 @@
 function VariableCreate(Name: string; DataType: PType): TVariable;
 function FunctionCreate(Name: string; DataType: PType): TFunction;
-function TypeCreate(Name: string): TType;
+function TypeCreate(Name: string; BaseType: TBaseType): TType;
 function FunctionParameterCreate(Name: string; DataType: PType): TFunctionParameter;
 
@@ -149 +168 @@
 end;
 
-function TypeCreate(Name: string): TType;
-begin
-  Result.Name := Name;
+function TypeCreate(Name: string; BaseType:TBaseType): TType;
+begin
+  Result.Name := Name;
+  Result.BaseType := BaseType;
 end;