cast object

Author: tranleduy2000

libCompiler/src/main/java/com/duy/pascal/backend/ast/function_declaretion/builtin/CastObjectFunction.java

@@ -17,20 +17,21 @@
 package com.duy.pascal.backend.ast.function_declaretion.builtin;
 
 
-import com.duy.pascal.backend.parse_exception.ParsingException;
-import com.duy.pascal.backend.linenumber.LineInfo;
-import com.duy.pascal.backend.pascaltypes.ArgumentType;
-import com.duy.pascal.backend.pascaltypes.DeclaredType;
-import com.duy.pascal.backend.pascaltypes.JavaClassBasedType;
-import com.duy.pascal.backend.pascaltypes.RuntimeType;
+import com.duy.pascal.backend.ast.codeunit.RuntimeExecutableCodeUnit;
 import com.duy.pascal.backend.ast.expressioncontext.CompileTimeContext;
 import com.duy.pascal.backend.ast.expressioncontext.ExpressionContext;
 import com.duy.pascal.backend.ast.instructions.Executable;
+import com.duy.pascal.backend.ast.runtime_value.VariableContext;
+import com.duy.pascal.backend.ast.runtime_value.references.PascalReference;
 import com.duy.pascal.backend.ast.runtime_value.value.FunctionCall;
 import com.duy.pascal.backend.ast.runtime_value.value.RuntimeValue;
-import com.duy.pascal.backend.ast.runtime_value.references.PascalReference;
-import com.duy.pascal.backend.ast.runtime_value.VariableContext;
-import com.duy.pascal.backend.ast.codeunit.RuntimeExecutableCodeUnit;
+import com.duy.pascal.backend.linenumber.LineInfo;
+import com.duy.pascal.backend.parse_exception.ParsingException;
+import com.duy.pascal.backend.pascaltypes.ArgumentType;
+import com.duy.pascal.backend.pascaltypes.DeclaredType;
+import com.duy.pascal.backend.pascaltypes.JavaClassBasedType;
+import com.duy.pascal.backend.pascaltypes.PointerType;
+import com.duy.pascal.backend.pascaltypes.RuntimeType;
 import com.duy.pascal.backend.runtime_exception.RuntimePascalException;
 
 /**
@@ -43,16 +44,18 @@ public class CastObjectFunction implements IMethodDeclaration {
                     new RuntimeType(new JavaClassBasedType(Object.class), false)};
 
     @Override
-   public String getName() {
+    public String getName() {
         return "cast";
     }
 
     @Override
     public FunctionCall generateCall(LineInfo line, RuntimeValue[] arguments,
-                                                      ExpressionContext f) throws ParsingException {
+                                     ExpressionContext f) throws ParsingException {
         RuntimeValue pointer = arguments[0];
         RuntimeValue value = arguments[1];
-        return new InstanceObjectCall(pointer, value, line);
+        PointerType declType = (PointerType) pointer.getType(f).declType;
+        Class<?> storageClass = declType.pointedToType.getStorageClass();
+        return new InstanceObjectCall(pointer, value, storageClass, line);
     }
 
     @Override
@@ -77,12 +80,14 @@ public String description() {
 
     private class InstanceObjectCall extends FunctionCall {
         private RuntimeValue value;
+        private Class<?> storageClass;
         private LineInfo line;
         private RuntimeValue pointer;
 
-        InstanceObjectCall(RuntimeValue pointer, RuntimeValue value, LineInfo line) {
+        InstanceObjectCall(RuntimeValue pointer, RuntimeValue value, Class<?> storageClass, LineInfo line) {
             this.value = value;
             this.pointer = pointer;
+            this.storageClass = storageClass;
             this.line = line;
         }
 
@@ -105,13 +110,13 @@ public Object compileTimeValue(CompileTimeContext context) {
         @Override
         public RuntimeValue compileTimeExpressionFold(CompileTimeContext context)
                 throws ParsingException {
-            return new InstanceObjectCall(pointer, value, line);
+            return new InstanceObjectCall(pointer, value, storageClass, line);
         }
 
         @Override
         public Executable compileTimeConstantTransform(CompileTimeContext c)
                 throws ParsingException {
-            return new InstanceObjectCall(pointer, value, line);
+            return new InstanceObjectCall(pointer, value, storageClass, line);
         }
 
         @Override
@@ -129,13 +134,8 @@ public Object getValueImpl(VariableContext f, RuntimeExecutableCodeUnit<?> main)
             //indexOf value of arg 2
             Object value = this.value.getValue(f, main);
 
-            //indexOf value of variable
-            Object o = pointer.get();
-            //indexOf class of variable
-            Class<?> aClass = o.getClass();
-
             //cast object to type of variable
-            Object casted = aClass.cast(value);
+            Object casted = storageClass.cast(value);
 
             //set value
             pointer.set(casted);

libCompiler/src/main/java/com/duy/pascal/backend/ast/runtime_value/operators/number/JavaBiOperatorEval.java

@@ -16,16 +16,16 @@
 
 package com.duy.pascal.backend.ast.runtime_value.operators.number;
 
-import com.duy.pascal.backend.parse_exception.ParsingException;
-import com.duy.pascal.backend.linenumber.LineInfo;
-import com.duy.pascal.backend.pascaltypes.BasicType;
-import com.duy.pascal.backend.pascaltypes.RuntimeType;
-import com.duy.pascal.backend.pascaltypes.OperatorTypes;
-import com.duy.pascal.backend.ast.runtime_value.operators.BinaryOperatorEval;
 import com.duy.pascal.backend.ast.expressioncontext.CompileTimeContext;
 import com.duy.pascal.backend.ast.expressioncontext.ExpressionContext;
+import com.duy.pascal.backend.ast.runtime_value.operators.BinaryOperatorEval;
 import com.duy.pascal.backend.ast.runtime_value.value.ConstantAccess;
 import com.duy.pascal.backend.ast.runtime_value.value.RuntimeValue;
+import com.duy.pascal.backend.linenumber.LineInfo;
+import com.duy.pascal.backend.parse_exception.ParsingException;
+import com.duy.pascal.backend.pascaltypes.BasicType;
+import com.duy.pascal.backend.pascaltypes.OperatorTypes;
+import com.duy.pascal.backend.pascaltypes.RuntimeType;
 import com.duy.pascal.backend.runtime_exception.PascalArithmeticException;
 import com.duy.pascal.backend.runtime_exception.internal.InternalInterpreterException;
 
@@ -51,8 +51,14 @@ public Object operate(Object value1, Object value2)
             throws PascalArithmeticException, InternalInterpreterException {
         switch (operator_type) {
             case EQUALS:
+                if (value1 == null || value2 == null) {
+                    return value1 == value2;
+                }
                 return value1.equals(value2);
             case NOTEQUAL:
+                if (value1 == null || value2 == null) {
+                    return !(value1 == value2);
+                }
                 return !value1.equals(value2);
             default:
                 throw new InternalInterpreterException(line);

libCompiler/src/test/java/com/duy/pascal/test_interpreter/ForStatementTest.java

@@ -18,21 +18,32 @@
 
 import com.duy.pascal.frontend.DLog;
 
-import junit.framework.TestCase;
-
 import static com.duy.pascal.Compiler.runProgram;
 
 /**
  * Created by Duy on 29-May-17.
  */
 
-public class ForStatementTest extends TestCase {
+public class ForStatementTest extends BaseTestCase {
+    @Override
+    public String getDirTest() {
+        return "C:\\github\\pascalnide\\test_pascal\\test_statement\\for_statement";
+    }
+
     @Override
     protected void setUp() throws Exception {
         super.setUp();
         DLog.ANDROID = false;
     }
 
+    public void test1() {
+        run("test1.pas");
+    }
+
+    public void test2() {
+        run("test2.pas");
+    }
+
     public void testForInEnum() {
         try {
             runProgram("C:\\github\\pascalnide\\test_pascal\\test_statement\\test_for_in_enum.pas");
@@ -64,4 +75,5 @@ public void testForInArray() {
     }
 
 
+
 }

test_pascal/test_location/test_get_long_lat.pas

@@ -39,13 +39,12 @@ procedure printData(data: map);
         if (data.get(name) <> null) then //if the data of provider is exist
         begin
             cast(info, data.get(name));
-
             //print long,lat to console
-            writeln('getLatitude = ', info.getLatitude());
-            writeln('getLongitude = ', info.getLongitude());
+            writeln('Latitude = ', info.getLatitude());
+            writeln('Longitude = ', info.getLongitude());
         end;
     end;
-    writeln;
+    writeln('...');
 end;
 
 

test_pascal/test_statement/for_statement/test.out

@@ -0,0 +1,3 @@
+1
+2
+3

test_pascal/test_statement/for_statement/test1.pas

@@ -0,0 +1,5 @@
+var
+    i: integer ;
+begin
+    for i := 1 to 3 do  writeln(i):
+end.

test_pascal/test_statement/for_statement/test2.in

@@ -0,0 +1 @@
+3

test_pascal/test_statement/for_statement/test2.out

@@ -0,0 +1,3 @@
+4
+5
+6

test_pascal/test_statement/for_statement/test2.pas

@@ -0,0 +1,6 @@
+var
+    i, j: integer;
+begin
+    readln(j);
+    for i := j  + 1 to j +3 do writeln(i);
+end.