Scriptor · aartibagul · Feb 19, 2016 · Feb 19, 2016
diff --git a/.gitignore b/.gitignore
@@ -7,6 +7,5 @@ lib/phake/builtins.php
 lib/pharen/*.php
 examples/*.php
 test/*.php
-test/tmp
 ex
 .DS_Store
diff --git a/lang.php b/lang.php
diff --git a/test/tests/function_definition.phn b/test/tests/function_definition.phn
@@ -2,14 +2,23 @@
   1)
 (check (one-expr) 1)
 
+(local foo #one-expr)
+(check ($foo) 1)
+
 (fn one-arg (a)
     (. "Argument is " a))
 (check (one-arg "this") "Argument is this")
 
+(local foo2 #one-arg)
+(check ($foo2 "this") "Argument is this")
+
 (fn add-two-args (a b)
     (+ a b))
 (check (add-two-args 133 123) 256)
 
+(local foo3 #add-two-args)
+(check ($foo3 133 123) 256)
+
 (fn two-exprs (a b)
     (one-arg a)
     (one-arg b))

diff --git a/test/tmp/bindings.php b/test/tmp/bindings.php
@@ -0,0 +1,16 @@
+<?php
+require_once('/Users/aarti/pharen/lang.php');
+use Pharen\Lexical as Lexical;
+use \Seq as Seq;
+use \FastSeq as FastSeq;
+Lexical::$scopes['_Users_aarti_pharen_test_tmpbindings'] = array();
+$__scope_id = Lexical::init_closure("_Users_aarti_pharen_test_tmpbindings", 261);
+$name = "Arthur Dent";
+Lexical::bind_lexing("_Users_aarti_pharen_test_tmpbindings", 261, '$name', $name);
+check($name, "Arthur Dent");
+$job = "Jedi Masta";
+check($job, "Jedi Masta");
+$question = NULL;
+$answer = (6 * 9);
+check($question, NULL);
+check($answer, 54);
diff --git a/test/tmp/comments.php b/test/tmp/comments.php
@@ -0,0 +1,9 @@
+<?php
+require_once('/Users/aarti/pharen/lang.php');
+use Pharen\Lexical as Lexical;
+use \Seq as Seq;
+use \FastSeq as FastSeq;
+Lexical::$scopes['_Users_aarti_pharen_test_tmpcomments'] = array();
+check(1, 1);
+check(1, 1);
+check(1, 1);
diff --git a/test/tmp/cond.php b/test/tmp/cond.php
@@ -0,0 +1,46 @@
+<?php
+require_once('/Users/aarti/pharen/lang.php');
+use Pharen\Lexical as Lexical;
+use \Seq as Seq;
+use \FastSeq as FastSeq;
+Lexical::$scopes['_Users_aarti_pharen_test_tmpcond'] = array();
+$__scope_id = Lexical::init_closure("_Users_aarti_pharen_test_tmpcond", 264);
+$num = 3;
+Lexical::bind_lexing("_Users_aarti_pharen_test_tmpcond", 264, '$num', $num);
+if(($num == 1)){
+	fail();
+}
+else if(($num == 2)){
+	fail();
+}
+else if(($num == 3)){
+	check(TRUE, TRUE);
+}
+else{
+	fail();
+}
+$s = "Hello, world!";
+Lexical::bind_lexing("_Users_aarti_pharen_test_tmpcond", 264, '$s', $s);
+
+
+$__condtmpvar5 =  Null;
+if(($s == "!dlrow, olleH")){
+	$__condtmpvar5 = "That's backwards!";
+}
+else if(($s == "Hello, world!")){
+	"Creative" . " much?";
+	$__condtmpvar5 = "Who is world anyway?";
+}
+check($__condtmpvar5, "Who is world anyway?");
+
+
+$__condtmpvar6 =  Null;
+if((1 == 1)){
+	$__condtmpvar6 = "chicken";
+}
+else if((1 == 2)){
+	$__condtmpvar6 = "math broke again!";
+}
+$foo = $__condtmpvar6;
+Lexical::bind_lexing("_Users_aarti_pharen_test_tmpcond", 264, '$foo', $foo);
+check($foo, "chicken");
diff --git a/test/tmp/func_calls.php b/test/tmp/func_calls.php
@@ -0,0 +1,14 @@
+<?php
+require_once('/Users/aarti/pharen/lang.php');
+use Pharen\Lexical as Lexical;
+use \Seq as Seq;
+use \FastSeq as FastSeq;
+Lexical::$scopes['_Users_aarti_pharen_test_tmpfunc_calls'] = array();
+check(substr("abc", 1), "bc");
+check((1 + 2 + 3.1), 6.1);
+check(("hello, " . "world"), "hello, world");
+check(substr(("foo" . "bar"), 3), "bar");
+$__tmpfuncname4 = ("sub" . "str");
+check($__tmpfuncname4("abc", 1), "bc");
+$foo = "substr";
+check($foo("abc", 1), "bc");
diff --git a/test/tmp/function_definition.php b/test/tmp/function_definition.php
diff --git a/test/tmp/hello.txt b/test/tmp/hello.txt
diff --git a/test/tmp/if.php b/test/tmp/if.php
@@ -0,0 +1,56 @@
+<?php
+require_once('/Users/aarti/pharen/lang.php');
+use Pharen\Lexical as Lexical;
+use \Seq as Seq;
+use \FastSeq as FastSeq;
+Lexical::$scopes['_Users_aarti_pharen_test_tmpif'] = array();
+$__scope_id = Lexical::init_closure("_Users_aarti_pharen_test_tmpif", 265);
+$bool = TRUE;
+Lexical::bind_lexing("_Users_aarti_pharen_test_tmpif", 265, '$bool', $bool);
+if($bool){
+	check(TRUE, TRUE);
+}
+else{
+	check(TRUE, FALSE);
+}
+
+$__condtmpvar7 = Null;
+if(TRUE){
+	$__condtmpvar7 = "This " . "works";
+}
+else{
+	$__condtmpvar7 = "Doesn't" . "work";
+}
+check($__condtmpvar7, "This works");
+
+$__condtmpvar8 = Null;
+if(FALSE){
+	$__condtmpvar8 = "Doesn't" . "work";
+}
+else{
+	$__condtmpvar8 = "This " . "works";
+}
+check($__condtmpvar8, "This works");
+
+$__condtmpvar9 = Null;
+if(TRUE){
+	$value = "True after all";
+$__condtmpvar9 = Lexical::bind_lexing("_Users_aarti_pharen_test_tmpif", 265, '$value', $value);
+}
+else{
+	$value = "Shouldn't be here";
+$__condtmpvar9 = Lexical::bind_lexing("_Users_aarti_pharen_test_tmpif", 265, '$value', $value);
+}
+$result = $__condtmpvar9;
+Lexical::bind_lexing("_Users_aarti_pharen_test_tmpif", 265, '$result', $result);
+check($result, "True after all");
+
+$__condtmpvar10 = Null;
+if(TRUE){
+	"Working";
+	$__condtmpvar10 = "Done!";
+}
+else{
+	$__condtmpvar10 = "Not working";
+}
+check($__condtmpvar10, "Done!");
diff --git a/test/tmp/lambdas.php b/test/tmp/lambdas.php
@@ -0,0 +1,75 @@
+<?php
+require_once('/Users/aarti/pharen/lang.php');
+use Pharen\Lexical as Lexical;
+use \Seq as Seq;
+use \FastSeq as FastSeq;
+Lexical::$scopes['_Users_aarti_pharen_test_tmplambdas'] = array();
+function _Users_aarti_pharen_test_tmplambdas__lambdafunc22($n, $__closure_id){
+	return ($n * 2);
+}
+
+
+check(arr(map(new \PharenLambda("\\_Users_aarti_pharen_test_tmplambdas__lambdafunc22", Lexical::get_closure_id("_Users_aarti_pharen_test_tmplambdas", Null)), \PharenVector::create_from_array(array(1, 2, 3)))), \PharenVector::create_from_array(array(2, 4, 6)));
+function apply_test($f, $n){
+	$__scope_id = Lexical::init_closure("_Users_aarti_pharen_test_tmplambdas", 268);
+	Lexical::bind_lexing("_Users_aarti_pharen_test_tmplambdas", 268, '$f', $f);
+	return $f($n);
+}
+
+function _Users_aarti_pharen_test_tmplambdas__lambdafunc23($n, $__closure_id){
+	return ($n . " bar");
+}
+
+
+check(apply_test(new \PharenLambda("\\_Users_aarti_pharen_test_tmplambdas__lambdafunc23", Lexical::get_closure_id("_Users_aarti_pharen_test_tmplambdas", Null)), "foo"), "foo bar");
+function _Users_aarti_pharen_test_tmplambdas__lambdafunc24($__closure_id){
+	$s = Lexical::get_lexical_binding('_Users_aarti_pharen_test_tmplambdas', 270, '$s', isset($__closure_id)?$__closure_id:0);;
+	return ("Hello " . $s . "!");
+}
+
+function greet_generator_test($s){
+	$__scope_id = Lexical::init_closure("_Users_aarti_pharen_test_tmplambdas", 270);
+	Lexical::bind_lexing("_Users_aarti_pharen_test_tmplambdas", 270, '$s', $s);
+	"line1";
+	return new \PharenLambda("\\_Users_aarti_pharen_test_tmplambdas__lambdafunc24", Lexical::get_closure_id("_Users_aarti_pharen_test_tmplambdas", $__scope_id));
+}
+
+
+
+$__tmpfuncname7 = greet_generator_test("Hammurabi");
+check($__tmpfuncname7(), "Hello Hammurabi!");
+function _Users_aarti_pharen_test_tmplambdas__lambdafunc25($__closure_id){
+	;
+	return "";
+}
+
+function _Users_aarti_pharen_test_tmplambdas__lambdafunc26($__closure_id){
+	;
+	return "foo";
+}
+
+function multi_lambdas(){
+
+
+new \PharenLambda("\\_Users_aarti_pharen_test_tmplambdas__lambdafunc25", Lexical::get_closure_id("_Users_aarti_pharen_test_tmplambdas", Null));
+	return new \PharenLambda("\\_Users_aarti_pharen_test_tmplambdas__lambdafunc26", Lexical::get_closure_id("_Users_aarti_pharen_test_tmplambdas", Null));
+}
+
+
+
+$__tmpfuncname8 = multi_lambdas();
+check($__tmpfuncname8(), "foo");
+function _Users_aarti_pharen_test_tmplambdas__lambdafunc27($__closure_id){
+	return "foobar";
+}
+
+function multiple_calls_test(){
+	return new \PharenLambda("\\_Users_aarti_pharen_test_tmplambdas__lambdafunc27", Lexical::get_closure_id("_Users_aarti_pharen_test_tmplambdas", Null));
+}
+
+
+
+multiple_calls_test();
+multiple_calls_test();
+$__tmpfuncname9 = multiple_calls_test();
+check($__tmpfuncname9(), "foobar");