add getArg

fanhqme · Jan 8, 2017 · 6065a31 · 6065a31
1 parent 73b0a69
commit 6065a31
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 9 deletions.
diff --git a/UCompile.hs b/UCompile.hs
@@ -11,10 +11,10 @@ compileToC l = header++compileToCS l (Map.fromList []) 0 footer where
 		\VExp * makeAbs(VExp* abs_val);\n\
 		\VExp * makeRef(int ref_val);\n\
 		\VExp * makeApply(VExp * f,VExp * x);\n\
-		\int executeVExp(VExp * exp);\n\
-		\int main(){\n\
+		\int executeVExp(VExp * exp,int argc,char ** argv);\n\
+		\int main(int argc,char ** argv){\n\
 		\return executeVExp("
-	footer=");\n}"
+	footer=",argc,argv);\n}"
 	compileToCS :: LExpr -> Map.Map [Char] Int -> Int -> ShowS
 	compileToCS l names curlevel = case l of
 		LInt v -> showString ("makeInt("++(show v)++")")

diff --git a/simpleruntime.c b/simpleruntime.c
@@ -138,7 +138,6 @@ typedef struct ValueStack{
 }ValueStack;
 struct VContext{
     Value* val;
-    //struct VContext * next;
     VContext * prev;
     int refcount;
 };
@@ -1009,7 +1008,7 @@ VExp * makeBuiltin(const char* func_name){
     return NULL;
 }
 
-int executeVExp(VExp * exp){
+int executeVExp(VExp * exp,int argc,char ** argv){
     Value * v = newValue();
     VContext * context = newVContext();
     Continuation * cont = newContinuation();
@@ -1019,11 +1018,10 @@ int executeVExp(VExp * exp){
     v->r_exp = NULL;
     v->r_context = NULL;
     v->r_cont = cont;
-    return executeValue(v, 0, NULL);
+    return executeValue(v,argc,argv);
 }
 
-int main()
-{
+/*{
     int resultcode =executeVExp(makeApply(
 makeAbs(
 makeRef(0)),
@@ -1044,5 +1042,5 @@ makeInt(0))))));
     //printf("\nhere\n");
     //printf("%d",resultcode);
 
-}
+}*/