ranger-compiler 2.1.70 → 3.0.4

package/compiler/t.bat

@@ -1,3 +0,0 @@
-rem call ranger-compiler -compiler
-call node bin\ng_Compiler.js VirtualCompiler.clj
-rem call node bin\VirtualCompiler.js

package/compiler/test_any.clj

@@ -1,43 +0,0 @@
-
-Import "ng_Compiler.clj"
-
-class any_tester {
-
-    fn myFn ( x : Any ) {
-        case x str:string {
-            print " it was " + str
-        }
-    }
-
-    static fn main () {
-        def o (new any_tester)
-        o.myFn("Hello")
-        def ss (o.fnsig('int' 'int' 'int'))
-        print (ss)
-    }
-
-    static fn map_node_args:CodeNode (name:string tn@(temp):CodeNode ) {
-        def fnArg (r.vref name)
-        if tn.expression {
-            fnArg = (r.vref 'fn')                
-            fnArg.expression_value = tn
-            fnArg.value_type = RangerNodeType.ExpressionType
-        } {
-            fnArg = tn
-        }
-        return fnArg
-    }
-
-    fn fnsig:string ( p1:Any p2:Any p3:Any) {
-
-        case p1 tn:string {
-            return tn
-        } 
-        case p1 tn:CodeNode {
-            return 'CodeNode'
-        } 
-
-        return "OK"
-    }
-
-}

package/compiler/test_call.clj

@@ -1,141 +0,0 @@
-
-; Import "ng_Compiler.clj"
-
-class third_obj {
-    def name '3rd Object'
-    fn foobar () {
-        print "Foobar was called!!!"
-    }
-    fn bar:string () {
-        return "Bar was called!!!"
-    }
-    fn getAnon:(_:string ()) () {
-        return (fn:string () {
-            return 'getAnon function returning something'
-        })
-    }
-    fn simpleAnon:(_:string ()) () {
-        return (fn:string () {
-            print "------------------------------------------"
-            print "Simple anonymous function was called !!!!"
-            print "------------------------------------------"
-            return 'getAnon function returning something'
-        })
-    }
-}
-
-class second_obj {
-    def name 'name of second object...'
-    def someLambda:(_:string ())
-    def sub2:third_obj (new third_obj)
-
-    def someList:[string] ([] 'A' 'B' 'C') 
-    fn getName:string () {
-        return this.name
-    }
-    fn getIntVal:int () {
-        return 1234
-    }
-
-    fn copy:second_obj () {
-        return (new second_obj())
-    }
-}
-
-operator type:third_obj all {
-    fn funfun () {
-        print "Funfun for third_obj with name " + self.name
-    }
-}
-
-operator type:second_obj all {
-    fn funfun () {
-        print "Funfun for second_obj with sub2 with name " + self.sub2.name
-    }
-}
-
-
-class any_tester {
-
-    def someProp "GOOD!"
-    def optString:string
-
-    def subObj:second_obj (new second_obj)
-
-    fn myFn ( x : Any ) {
-        case x str:string {
-            print " it was " + str
-        }
-    }
-
-    fn callFn (cb:(_:string ())) {
-        print ('CallFn gets method and calls : ' + (cb()) )
-    }
-
-    fn callFn2 (cb:(_:int ())) {
-        print ('CallFn2 gets method and calls : ' + (cb()) )
-    }
-
-    fn askValue:string ( x:string ) {
-        return "askValue: " + x
-    }
-
-    fn getObj:second_obj () {
-        return (new second_obj)
-    }
-
-    static fn main () {
-
-        def o (new any_tester)
-        o.myFn("Hello")
-        (new any_tester).myFn('The second Hello using obj')
-        def someString "abcd"
-
-        print (first someString)
-        print (at someString 2)
-
-        def str ((new any_tester).askValue('Asking the value here...'))
-        print str
-        print ((new any_tester).askValue('I like...'))
-        print (((new any_tester).getObj()).getName()) 
-
-        print ((new any_tester).subObj.sub2.name) 
-        ((new any_tester).subObj.sub2.foobar()) 
-
-        ( ((new any_tester).subObj.sub2.simpleAnon()) ())
-
-        print ((new any_tester).subObj.sub2.bar()) 
-
-        o.optString = 'Optional OK'
-
-        print (property o someProp)
-        print (unwrap (property o optString))
-        print (property (new second_obj) name)
-        print (property ((new any_tester).getObj()) name) 
-
-        print "automatially transferred : " + (((new any_tester).getObj()).name) 
-                      
-        o.callFn( ( ((new any_tester).getObj()).getName ) ) 
-        o.callFn( ( ((new any_tester).getObj()).sub2.bar ) )
-        o.callFn( ( ((new any_tester).getObj()).sub2.getAnon() ) ) 
-
-        ; --> any type can implement "funfun"
-        funfun ( ((new any_tester).getObj()) )
-        funfun ( ((new any_tester).getObj()).sub2 )
-        
-        o.callFn({
-            return 'Simple way'
-        })
-        o.callFn2( ( ((new any_tester).getObj()).getIntVal ) ) 
-        print "traditional property access == " + (o.subObj.name)
-
-        def list ((new second_obj).someList)
-        list.forEach({
-            print item
-        })
-        
-        (((new second_obj).someList).forEach({
-            print item
-        }))
-    }
-}

package/compiler/test_chain.clj

@@ -1,79 +0,0 @@
-
-class mySecondClass {
-    def name "Second Class"
-    def name2 "--> the name 2"
-    fn bar () {
-        print "Bar called"
-    }
-    fn getname:string() {
-        return "--- "
-    }
-}
-class myClass {
-    def name "myClassObj"
-    def list1:[string] ([] "A" "B" "C" "D")
-    fn foo () {
-        print "Foo called!!!"
-    }
-    fn second:mySecondClass () {
-        return (new mySecondClass)
-    }
-    fn show (str:string) {
-        print "SHOW " + str
-    }
-}
-class test_chain {
-
-    static fn main () {
-
-        def list ([] "a" "b" "c")
-        print "first call to main"
-
-        new myClass().foo()
-        new myClass().second().bar()
-
-        ; --> simple transformation of any call
-        (call ( (new myClass()).list1) forEach ({
-            print item
-        }))
-
-;        print (  new myClass().second().name )
-
-        ; def n ((((new myClass())).second()).name)
-        def n (new myClass().second().name)
-        print "Here : " + n
-        print "Again : " + (new myClass().second().name)
-        
-        ; extra parenthesis there still: .show(())
-        new myClass().show( (new myClass().second().name) )
-        new myClass().show(  new myClass().second().name )
-
-        print ( new myClass().second().name2 )
-        def obj2 (new myClass())
-
-;        print ( obj2.second().name2  +  obj2.second().name )
-        
-
-; THIS was translated...
-; (call: ((new: myClass: ())) show: ((call: ((new: myClass: ())) second: ()) .name:))
-        
-        (call ((new myClass ())) show ( ((call ((new myClass ())) second ()) .name) )  )
-;        (call ((new myClass ())) show ( (call ((new myClass ())) second ()) .name )  )
-
-       ; ((new myClass()).foo())
-
-        ; if encounters operator ? 
-        ;  ^ should you test if it matches ?? 
-        print (first list)
-
-        ; also print list.first() <-- or list.first().print()
-        ; 
-
-        ; could you create something like:
-        ;
-        ;  list.filter( a == b )
-        ; 
-        ;  new myClass().getList().filter( item < 10 )
-
-    }
-}

package/compiler/test_json.clj

@@ -1,10 +0,0 @@
-
-Import "JSON.clj"
-
-class test_json @serialize(true) {
-    def name "hello world"
-    static fn main() {
-        def o (new test_json)
-        print (to_string (o.toDictionary()))
-    }
-}

package/compiler/test_lambda.clj

@@ -1,153 +0,0 @@
-
-class utils {
-    static fn adder2:int (value:int index:int) {
-        print "Cool, Static function adder2 called"
-        return (value + 20)
-    }    
-}
-
-class dynamicUtility {
-    fn add:int (value:int index:int) {
-        return (value + 50)
-    }    
-}
-
-class dynamic2 extends dynamicUtility {
-    
-    fn add:int (value:int index:int) {
-        return (value + 150)
-    }        
-
-    fn filter_odd:boolean (x:int i:int) {
-        return ((x % 2) == 0)
-    }
-}
-
-class closure_test {
-    
-    ; static functions could be given...
-
-    def propFn:(_:void ()) 
-
-    static fn adder:int (left:int right:int) {
-        return (left + right)
-    }
-
-    static fn adder2:int (value:int index:int) {
-        print "Static function adder2 called"
-        return (value + 20)
-    }
-
-    fn adder3:int (value:int index:int) {
-        print "Dynamic function adder3 called"
-        return (value + 30)
-    }
-
-    fn run() {
-        this.propFn = (fn:void () {
-            print "The anonymous function to match..."
-        })
-        ((unwrap propFn)()) 
-
-        def list1 ([] 1 2 3 4 5)
-
-        ; curry the adder first parameter...
-        def make_adder (fn:(_:int (x:int i:int)) (value:int) {
-            return (fn:int (x:int i:int) {
-                    return (x + value)
-            })        
-        })
-
-        def filter_3 (fn:boolean (x:int i:int) {
-            return (x != 3)
-        })
-
-        def multiplier (fn:int (x:int n:int) {
-            return (x * x)
-        })
-        def printer (fn:int (x:int n:int) {
-            print (to_string x)
-            return (x * 1)
-        })
-
-        def printer2 (fn (x:int n:int) {
-            print (to_string x)
-        })
-
-        ; is this necessary ??
-        ; Curry to create a new function with binded parameters ??
-        ; def byTen (curry multiplier 10)
-        ; --> (fn:<rvofmul> ( p2:T) ( return multiplier(10 p2)))
-
-        def o (new dynamicUtility)
-        def o2 (new dynamic2)
-
-; -------- these do not work yet:
-;       def test1 o2.add
-;       print "trying test 1 " + ( test1(2 2) )
-;       def fnList ([] o2.add o2.add )
-
-        print "---- list items ---"
-        forEach list1 printer2
-
-        print "---- multiplier ---"
-        forEach (list1.map(multiplier)) printer2 
-
-        print "---- adder of 10 ---"
-        map (list1.map( (make_adder(10)) )) printer 
-
-        ; test static function call as closure parameter...
-        print "---- static adder of 20 ---"
-        map (list1.map(utils.adder2)) printer 
-
-        print "---- dynamic adder of 30 for this ---"
-        map (list1.map(this.adder3)) printer 
-
-        print "---- dynamic adder from object ---"
-        map (list1.map(o.add)) printer 
-
-        print "---- dynamic 2 adder from object ---"
-        map (list1.map(o2.add)) printer 
-
-        print "---- add and multiply ----"
-        map (map ( map list1 (make_adder(10)) ) multiplier ) printer 
-
-        print "---- filter 3 add and multiply ----"
-        map (map ( map (filter list1 filter_3) (make_adder(10)) ) multiplier ) printer 
-
-        print "---- filter o2.filter_odd and multiply, ng version ----"
-        map (map ( map (filter list1 o2.filter_odd) (make_adder(10)) ) multiplier ) printer 
-
-        ((fn:void (x:string y:int) {
-            print "oh, nice, " + x + " now this works too!!!  with " +y
-        })("Look!!!!" 12345))
-
-        def str ((fn:string (x:string y:int) {
-            return ( 'second ... oh, nice, ' + x + ' now this works too!!!  with ' +y)
-        })( ((fn:string () {
-                return ' *** inner fn works *** '
-            })()) 1234))
-
-        print "res == " + str
-
-        def myFn ( (fn:(_:string ()) () {
-            return (fn:string () {
-                    return "message from inner function"
-                })
-        })())
-
-        print (myFn())
-
-        print (( (fn:(_:string ()) (m:string) {
-            return (fn:string () {
-                    return "message from second inner function " + m
-                })
-        })('OK!'))())
-
-
-    }
-    static fn main () {
-        def o (new closure_test)
-        o.run()
-    }
-}

package/compiler/test_pcmd.clj

@@ -1,32 +0,0 @@
-
-operators {
-    test1 _:void () {
-        templates {
-            es6 ( '' (plugin 'maven' (  (dep 'org.json' 'json' '20171018'  ) ) ) )
-            java7 ( '' (plugin 'maven' (  (dep 'org.json' 'json' '20171018'  ) ) ) )
-            cpp ( '' (plugin 'makefile' (  (dep 'picosha2.h' 'https://github.com/okdshin/PicoSHA2/blob/master/picosha2.h'  ) ) ) )
-        }
-    }
-}
-
-class someClass @serialize(true) {
-    def name 'foobar'
-    def lastName 'OK'
-}
-
-; testing plugin commands
-class testpcmd {
-    static fn main () {
-        
-        print "" || "second"
-        print "first " || "second"
-        print "" || "" || "Third"
-
-        test1
-
-;        def o (new someClass)
-;        print (to_string (o.toDictionary()))
-
-
-    }
-}

package/compiler/test_pcmd2.clj

@@ -1,29 +0,0 @@
-
-operators {
-    test1 _:void () {
-        templates {
-            es6 ( '' (plugin 'maven' (  (dep 'org.json' 'json' '20171018'  ) ) ) )
-            java7 ( '' (plugin 'maven' (  (dep 'org.json' 'json' '20171018'  ) ) ) )
-            cpp ( '' (plugin 'makefile' (  (dep 'picosha2.h' 'https://github.com/okdshin/PicoSHA2/blob/master/picosha2.h'  ) ) ) )
-        }
-    }
-}
-
-class testpcmd2 {
-    static fn main () {
-        
-        print "---- new version of the test ---"
-        print "" || "second"
-        print "first " || "second"
-        print "" || "" || "Third"
-
-        print "OK"
-
-        test1
-
-;        def o (new someClass)
-;        print (to_string (o.toDictionary()))
-
-
-    }
-}