ranger-compiler 2.1.70 → 3.0.3

package/dist/lib/lib/WebLib.rgr

@@ -0,0 +1,47 @@
+systemclass View {
+  java7 View
+  es6 View
+}
+
+systemclass Button {
+    java7 Button
+    es6 HTMLElement
+}
+
+operators {
+    setTextNotUsed _:void (btn:Button txt:string) {
+        templates {
+            ranger  ( "(setText " (e 1) " " (e 2) " )" )
+        }
+    }
+}
+
+
+
+operator type:void es6 {
+
+  fn findView:View (name:string) (
+    "view.querySelectorAll('[x-id=" (str 1) "]')[0]"
+  )
+
+  fn setText (btn:Button txt:string) ( (e 1) ".textContent = " (e 2) "; // ?? " )
+  
+  ; ev:(_:void (view:View))
+  fn onClick:void (view:View ev:block) (
+    (e 1) ".addEventListener('click', () => {" nl
+      I (block 2) nl i 
+     "});" nl
+  )
+
+  fn loadFragment:void ( pageName:string into:string ) (
+        "() => {" nl
+         I "var replaced = view.querySelectorAll('[x-id=" (str 2) "]')[0];" nl
+           "var newChild = document.querySelectorAll('[x-id=" (str 1) "]')[0];" nl
+           "replaced.parentNode.replaceChild(newChild, replaced);" nl
+         i "}();" nl
+  ) 
+}
+
+operator type:void ranger {
+  fn setText (btn:Button txt:string) ( "(setText " (e 1) " " (e 2) " )" )
+}

package/dist/lib/lib/WebServerLib.rgr

@@ -0,0 +1,137 @@
+
+; Plan:
+; to support: Go, PHP, Node.js
+
+; maybe could be using Scalatra
+; http://scalatra.org/guides/2.5/http/routes.html
+
+
+class DefinedHTTPServer {
+    def port:int 80
+    constructor ( p:int ) {
+        this.port = p
+    }
+    fn golangPortStr:string () {
+        return (":" + port)
+    }
+}
+
+systemclass WebServer {
+    es6 Object
+    go "*DefinedHTTPServer"
+}
+
+systemclass WebRequest {
+    es6 Object
+    go "*http.Request"
+}
+
+systemclass WebResponse {
+    es6 Object
+    go "http.ResponseWriter"
+}
+
+
+operators {
+    create_web_server _:WebServer ( port:int ) {
+        templates {
+            go ( "CreateNew_DefinedHTTPServer(" (e 1) ")" 
+                (imp "net/http")
+                (imp "fmt")            
+            )
+            ranger ("(create_web_server " (e 1) ")")
+            es6 ("(require('express'))()")
+        }
+    }
+    prepare_server _:void ( s:WebServer )  {
+        templates {
+            ranger ("(prepare_server " (e 1) ")")
+            es6 (
+    (e 1) ".use(function(req, res, next){" nl I
+        "var data = '';" nl
+        "req.on('data', function(chunk){ " nl I
+            "data += chunk;" nl i
+        "});" nl 
+        "req.on('end', function(){"nl I
+          "req.rawBody = data;" nl 
+          "next();" nl i
+        "})" nl i
+    "});" nl    
+
+            )
+            go ()
+        }
+    }
+}
+
+
+operator class:WebRequest es6 {
+    fn get_post_data:string () ( (e 1) ".rawBody" )
+    fn getVar:string ( varName:string ) ( (e 1) ".query[" (e 2) "] ? " (e 1) ".query[" (e 2) "] : \"\" ")
+}
+operator class:WebResponse es6 {
+    fn contentType ( typeName:string) (
+            (e 1) ".writeHead(200,  {'Content-Type': " (e 2) "});"
+    )
+    fn plaintext () ( (e 1) ".writeHead(200,  {'Content-Type': 'text/plain'});")
+    fn send (value:string) ( (e 1) ".send(" (e 2) ")")
+    fn sendFile (value:string) ( (e 1) ".sendFile(" (e 2) ")")
+}
+
+operator class:WebServer es6 {
+    fn startServer ( post:int code:block) ( (e 1) ".listen(" (e 2) ", () => {" nl I (e 3) i nl "})" )
+    fn route ( path:string cb:(_:void (req:WebRequest res:WebResponse))) ( (e 1) ".get(" (e 2) ", " nl I (e 3) i nl ")" )
+    fn post_route ( path:string cb:(_:void (req:WebRequest res:WebResponse))) ( (e 1) ".post(" (e 2) ", " nl I (e 3) i nl ")" )    
+}
+
+; http.HandleFunc("/", handler)
+; body, err := ioutil.ReadAll(r.Body)
+
+operators {
+    getVar _:string ( varName:string ) {
+        templates {
+            go ('req.URL.Query().Get(' (e 1) ')')
+        }
+    }
+    get_post_data _:string ( req:WebRequest) {
+        templates {
+            go ( "_req_to_string(" (e 1) ")"
+                (imp "io/ioutil")
+(create_polyfill "
+func _req_to_string (r *http.Request) string {        
+    body, err := ioutil.ReadAll(r.Body)
+    if err != nil {
+        return \"\"
+    }
+    return string(body)
+}
+")
+            )
+        }
+    }
+;    class:WebRequest go {
+;    fn get_post_data:string () 
+
+}
+operator class:WebServer go {
+    fn startServer ( port:int code:block) ( "http.ListenAndServe( " (e 1) ".golangPortStr(), nil)"  )
+    fn route ( path:string cb:(_:void ( res:WebResponse req:WebRequest))) ( "http.HandleFunc(" (e 2) ", " (e 3) ")" )
+    fn post_route ( path:string cb:(_:void ( res:WebResponse req:WebRequest))) ( "http.HandleFunc(" (e 2) ", " (e 3) ")" )
+}
+; http.ServeFile(w, r, "file")
+operator class:WebResponse go {
+    fn contentType ( typeName:string) (
+            (e 1 ) ".Header().Add(\"Content-Type\", " (e 2) ")"
+    )
+    fn send (value:string) ( "fmt.Fprint( " (e 1) ", " (e 2) ")")
+    fn sendFile (value:string) ( "http.ServeFile("  (e 1) ", req, " (e 2) ")")    
+}
+operator class:WebRequest go {
+;     fn get_post_data:string () ( (e 1) ".rawBody" )
+    fn getVar:string ( varName:string ) ( (e 1) ".URL.Query().Get(" (e 2) ")")
+}
+
+
+
+
+

package/{lib/ranger-dir.clj → dist/lib/lib/ranger-dir.rgr}

@@ -172,4 +172,4 @@ class testFilesystem {
             }
         }
     }
-}
+}

package/{compiler/stdlib.clj → dist/lib/lib/stdlib.rgr}

@@ -1,25 +1,11 @@
 
 ; union type operators
 
-Import "JSON.clj"
+Import "stdops.rgr"
+Import "JSON.rgr"
 
 operators {
 
-    cast _:S  (arg:T target@(noeval):S) {
-        templates {
-            ranger ("(cast " (e 1) " " (e 2) ":" (typeof 2) " )")
-            es6 ( (e 1) )
-            java7 ( "((" (typeof 2) ")" (e 1) ")" )
-            swift3 ( (e 1) " as " (typeof 2) "" )
-            cpp ( "mpark::get<" (typeof 2) ">(" (e 1) ")" 
-            
-                (plugin 'makefile' ((dep 'variant.hpp' 'https://github.com/mpark/variant/releases/download/v1.2.2/variant.hpp')))            
-            )
-            go ( (e 1) ".(" (typeof 2) ")" )
-            php ( (e 1) )
-        }
-    }
-
     cast _:Any  (arg:T target@(noeval):Any) {
         templates {
             go ( (e 1) )
@@ -33,7 +19,13 @@ operators {
                         "var " (e 2) " = " (e 1) ";" nl
                         (block 3)                        
                         nl i "}"
-            )  
+            )
+            kotlin (
+                (forkctx _ ) (def 2) "if( " (e 1) " is Boolean ) /* union case for boolean */ {" nl I
+                        "val " (e 2) " : Boolean = " (e 1) " as Boolean;" nl
+                        (block 3)
+                        nl i "}"
+            )
         }
     }
     case             _@(newcontext):void           ( arg@(union):T item2@(define):int code:block )  {
@@ -49,7 +41,13 @@ operators {
                         (e 2) " = " (e 1) ";" nl
                         (block 3)                        
                         nl i "}"
-            )  
+            )
+            kotlin (
+                (forkctx _ ) (def 2) "if( " (e 1) " is Int ) /* union case for int */ {" nl I
+                        "val " (e 2) " : Int = " (e 1) " as Int;" nl
+                        (block 3)
+                        nl i "}"
+            )
         }
     }
     case             _@(newcontext):void           ( arg@(union):T item2@(define):double code:block )  {
@@ -65,7 +63,13 @@ operators {
                         (e 2) " = " (e 1) ";" nl
                         (block 3)                        
                         nl i "}"
-            )  
+            )
+            kotlin (
+                (forkctx _ ) (def 2) "if( " (e 1) " is Double ) /* union case for double */ {" nl I
+                        "val " (e 2) " : Double = " (e 1) " as Double;" nl
+                        (block 3)
+                        nl i "}"
+            )
         }
     }
 
@@ -83,6 +87,12 @@ operators {
                         (block 3)                        
                         nl i "}"
             )
+            kotlin (
+                (forkctx _ ) (def 2) "if( " (e 1) " is String ) /* union case for string */ {" nl I
+                        "val " (e 2) " : String = " (e 1) " as String;" nl
+                        (block 3)
+                        nl i "}"
+            )
             ranger ( 'case ' (e 1) " " (e 2) ":" (typeof 2) " {" nl
                         I (block 3) i nl "}" nl
             )
@@ -133,6 +143,12 @@ operators {
                         (typeof 2) " " (e 2) " = (" (typeof 2) ") " (e 1) ";" nl
                         (block 3)
                         
+                        nl i "}"
+            )
+            kotlin (
+                (forkctx _ ) (def 2) "if( " (e 1) " is " (typeof 2) " ) /* union case */ {" nl I
+                        "val " (e 2) " : " (typeof 2) " = " (e 1) " as " (typeof 2) ";" nl
+                        (block 3)
                         nl i "}"
             ) 
             cpp (
@@ -543,6 +559,10 @@ operator type:Vector all {
         def val (self.get(idx))
         return val
     } 
+    fn at:T (idx:int) { 
+        def val (self.get(idx))
+        return val
+    } 
     fn push:S (item:T) {
         return (self.add(item))
     }
@@ -555,6 +575,9 @@ operator type:Vector all {
     fn length:int () {
         return (self.count())
     }    
+    fn size:int () {
+        return (self.count())
+    }    
     fn forEach:void (cb:(_:void (item:T))) {
         def cnt (self.count())
         def i 0

package/{lib/stdops.clj → dist/lib/lib/stdops.rgr}

@@ -165,4 +165,4 @@ defn ShowAny (anyItem) {
   case anyItem b:boolean {
     print " boolean : " + (? b 'true' 'false')
   }
-}
+}

package/dist/lib/ranger-dir.rgr

@@ -0,0 +1,175 @@
+
+systemclass  UIElement {
+    es6          DOMElement
+}
+
+systemclass SystemDate {
+    es6 Date
+}
+
+systemclass SystemUnixDate {
+    es6 Number
+}
+
+operators {
+    watch_has_file cmdFiles:boolean () {
+        templates {
+            es6  ( " typeof(_fileName) != 'undefined' " )
+        }
+    }
+    ; statSync
+
+    to_date _:SystemDate ( timevalue:int ) {
+        templates {
+            es6 ( "(new Date(" (e 1) "))" )
+        }     
+    }
+
+    remove_file _:void (path:string name:string) {
+        templates {
+            ranger ('(remove_file ' (e 1)' ' (e 2) ' )')
+            es6 ('(require("fs")).unlinkSync(' (e 1) ' + "/" + ' (e 2) ')')
+        }
+    }
+
+    utc_to_string _:string ( sd:int ) {
+        templates {
+            es6 ( "(new Date(" (e 1) ")).toString()" )
+        }     
+    }
+
+    file_created _:int ( path:string) {
+        templates {
+            es6 ( "(new Date((require('fs')).statSync(" (e 1) ").birthtime)).getTime()" ) 
+        }     
+    }
+
+    file_modtime _:int ( path:string) {
+        templates {
+            es6 ( "(new Date((require('fs')).statSync(" (e 1) ").mtime)).getTime()" )
+        }     
+    }
+
+    file_modtime_str _:int ( path:string) {
+        templates {
+            es6 ( "(new Date((require('fs')).statSync(" (e 1) ").mtime)).toString()" )
+        }     
+    }    
+
+    watch_filename cmdFiles:string () {
+        templates {
+            es6 ( "_fileName" )
+        }        
+    }    
+    watch_dir cmdFiles:void (path:string code:block) {
+        templates {
+            es6 ( "require('fs').watch(" (e 1) ", (_eventType, _fileName) => { " nl I (block 2) i nl " })" )
+        }        
+    }
+
+    cs_list_dir_files cmdFiles:[string] (path:string) {
+        templates {
+            csharp( "new List<String>(Directory.GetFiles(" (e 1) "))" (imp "System") (imp "System.IO") (imp "System.Collections.Generic"))         
+        }¨
+    }   
+
+
+    ; Path.GetFileName  
+    list_dir_files cmdFiles:[string] (path:string) {
+        templates {
+            ranger ( '(list_dir_files (' (e 1) '))')
+            go ( 'r_io_list_directory(' (e 1) ')'
+
+(create_polyfill `
+
+func r_io_list_directory( path string ) []string {
+    res := make([]string, 0)
+    files, err := ioutil.ReadDir("./")
+    if err != nil {
+        return res
+    }
+    for _, f := range files {
+        res = append(res, f.Name())
+    }
+    return res
+}
+
+`)
+
+            )
+            csharp ("DirListReader.getFiles(" (e 1) ")"
+
+(create_polyfill 
+"
+class DirListReader {
+    public static List<String> getFiles( String path ) {
+        string[] names = Directory.GetFiles(path);
+        string[] basenames = new string[names.Length];
+        for(int i=0; i<names.Length; i++) {
+            basenames[i] = Path.GetFileName(names[i]);
+        }
+        return (new List<String>(basenames));
+    }
+}
+"
+) )
+            es6 ( "require('fs').readdirSync(" (e 1) ")" )
+            cpp ( "__cpp_list_directory_files(" (e 1) ")"
+(create_polyfill
+"
+
+#ifdef _MSC_VER
+    #include <windows.h>
+#else
+#endif
+
+std::vector<std::string> __cpp_list_directory_files(std::string dirName) {
+    WIN32_FIND_DATA data;
+    std::vector<std::string> fileList;
+    std::string query = (dirName + \"\\\\*\");
+    HANDLE hFind = FindFirstFile(query.c_str(), &data);      // DIRECTORY
+
+    if ( hFind != INVALID_HANDLE_VALUE ) {
+        do {
+            std::string name(data.cFileName);
+            fileList.push_back( name );
+        } while (FindNextFile(hFind, &data));
+        FindClose(hFind);
+    }   
+    return fileList;
+}
+"
+
+
+            )
+        }        
+    }
+    is_directory cmdFiles:boolean (path:string) {
+        templates {
+            es6 ( "require('fs').statSync(" (e 1) ").isDirectory()" )
+        }        
+    }
+    is_file cmdFiles:boolean (path:string) {
+        templates {
+            es6 ( "require('fs').statSync(" (e 1) ").isFile()" )
+        }        
+    }
+}
+
+class testFilesystem {
+    fn test_case:void () {
+        print "Directory testing ready"
+        def list:[string] (list_dir_files ".")
+        for list name:string i {
+            if( ( indexOf name ".js" ) > 0 ) {
+                print name
+            }
+        }
+        ; watch interface...
+        watch_dir "." {
+            if( watch_has_file) {
+                print "... something changed with " + (watch_filename)
+            }
+        }
+    }
+}

package/{lib/stdlib.clj → dist/lib/stdlib.rgr}

@@ -1,8 +1,8 @@
 
 ; union type operators
 
-Import "stdops.clj"
-Import "JSON.clj"
+Import "stdops.rgr"
+Import "JSON.rgr"
 
 operators {
 

package/dist/lib/stdops.rgr

@@ -0,0 +1,168 @@
+
+operators {
+  ret _:[T] ( a:[T] ) {
+    templates {
+      * ( (e 1) )
+    }
+  }
+  ret _:T ( a:T ) {
+    templates {
+      * ( (e 1) )
+    }
+  }
+}
+
+defn Print (x) (print '' + x)
+defn Print (x) (print x)
+
+defn Range (from to) {
+  def res:[int]
+  def f from
+  while ( f < to ) {
+    push res f 
+    f = f + 1
+  }
+  ret res
+}
+
+
+defn ForEach (list f) {
+  def cnt (size list)
+  def i 0
+  while(i < cnt) {
+    f (at list i) 
+    i = i + 1
+  }
+}
+
+
+defn Compose (f1 f2) (fn:? (x:?) {
+  return (f1 ( (f2 (x) ) ) )
+})
+
+defn Map ( list f ) {
+  def cnt (size list)
+  def res:[?] 
+  def i 0
+  while(i < cnt) {
+    def myItem (at list i)
+    def item ( f myItem )
+    push res item
+    i = i + 1
+  }
+  ret res
+}
+
+defn Reduce ( list theFn initial) {
+  def cnt (size list)
+  def acc@(weak temp) initial
+  def i 0
+  while (i < cnt) {
+    def myItem (at list i)
+    acc = ( theFn acc myItem )
+    i = i + 1
+  }
+  ret acc
+}
+
+defn Reduce ( list2 theFn initial) {
+  def cnt (size list2)
+  def acc@(weak temp) initial
+  def i 0
+  while (i < cnt) {
+    def myItem (at list2 i)
+    acc = ( theFn (acc myItem ) )
+    i = i + 1
+  }
+  ret acc
+}
+
+defn Filter ( list f ) {
+  def cnt (size list)
+  def res:[?] 
+  def i 0
+  while(i < cnt) {
+    def myItem (at list i)
+    if( f myItem ) {
+      push res myItem
+    }
+    i = i + 1
+  }
+  ret res
+}
+
+defn Filter ( list f ) {
+  def cnt (size list)
+  def res:[?] 
+  def i 0
+  while(i < cnt) {
+    def myItem (at list i)
+    if( f (myItem ) ) {
+      push res myItem
+    }
+    i = i + 1
+  }
+  ret res
+}
+
+defn Revert (list) {
+  def cnt (size list)
+  def i 0
+  def end (cnt - 1)
+  def res (clone list)
+  while(i < end) {
+    def v1 (at list i)
+    def v2 (at list end)
+    set res end v1
+    set res i v2
+    i = i + 1
+    end = end - 1
+  }
+  ret res
+}
+
+
+defn ForEach (list f) {
+  def cnt (size list)
+  def i 0
+  while(i < cnt) {
+    f ( (at list i) ) 
+    i = i + 1
+  }
+}
+
+defn ForEach (list f) {
+  def keyList (keys list)
+  def cnt (size keyList)
+  def i 0
+  while(i < cnt) {
+    def k (at keyList i)
+    f (unwrap (get list k))
+    i = i + 1
+  }
+}
+
+defn ConCat (left right) {
+  def results:[Any]
+  forEach left {
+    def tmp@(temp) item
+    push results tmp
+  }
+  forEach right {
+    def tmp@(temp) item
+    push results tmp
+  }
+  ret results
+}
+
+defn ShowAny (anyItem) {
+  case anyItem str:string {
+    print 'string: ' + str
+  }
+  case anyItem i:int {
+    print " int : " + i
+  }
+  case anyItem b:boolean {
+    print " boolean : " + (? b 'true' 'false')
+  }
+}