ranger-compiler 2.1.70 → 3.0.4

package/dist/lib/lib/SQL.rgr

@@ -0,0 +1,44 @@
+
+
+systemclass SQLSchemaBuilder {
+  es6 Object
+}
+systemclass SQLSchemaTable {
+  es6 Object
+}
+systemclass SQLDatabase {
+  es6 Object
+}
+systemclass DBSchema {
+  es6 Object
+}
+systemclass DBTable {
+  es6 Object
+}
+systemclass DBInsertableRow {
+  es6 Object
+}
+systemclass DBTableQuery {
+  es6 Object
+}
+operator type:void es6 {
+  fn schema:SQLSchemaBuilder (name:string version:int) (`lf.schema.create(`(e 1)`,`(e 2)`)`)
+  fn create_table:SQLSchemaTable (  s:SQLSchemaBuilder name:string ) ( (e 1) `.createTable(`(e 2)`)`)
+
+  fn add_int (t:SQLSchemaTable fieldName:string ) ( (e 1) `.addColumn(`(e 2)`, lf.Type.INTEGER)`)
+  fn add_string (t:SQLSchemaTable fieldName:string ) ( (e 1) `.addColumn(`(e 2)`, lf.Type.STRING)`)
+  fn add_datetime (t:SQLSchemaTable fieldName:string ) ( (e 1) `.addColumn(`(e 2)`, lf.Type.DATE_TIME)`)
+  fn add_boolean (t:SQLSchemaTable fieldName:string ) ((e 1) `.addColumn(`(e 2)`, lf.Type.BOOLEAN)`)
+  fn set_primary_key (t:SQLSchemaTable fieldName:string) ((e 1) `.addPrimaryKey([`(e 2)`])`)
+  fn create_index (t:SQLSchemaTable indexName:string fields:[string]) ( (e 1) `.addIndex(`(e 2)`,`(e 3)`,false,lf.Order.DESC)`)
+
+  fn connect@(async):SQLDatabase (b:SQLSchemaBuilder) ('await ' (e 1) '.connect()')
+  fn getSchema:DBSchema (db:SQLDatabase) ( (e 1) '.getSchema()')
+  fn getTable:DBTable (db:DBSchema name:string) ( (e 1) '.table(' (e 2) ')')
+
+  fn addRow:DBInsertableRow (tbl:DBTable row:JSONDataObject) (  (e 1) '.createRow(' (e 2) ')') 
+  fn insert@(async):void (db:SQLDatabase t:DBTable rows:[DBInsertableRow]) ('await (' (e 1) '.insertOrReplace().into(' (e 2) ').values(' (e 3) ').exec())')
+  ; fn query@(async):[JSONDataObject] (db:SQLDatabase t:DBTable id:int ) ('await (' (e 1) '.select().from(' (e 2) ').where(' (e 2) '.id.eq(' (e 3)')).exec())')
+  fn select@(async):[JSONDataObject] (db:SQLDatabase t:DBTable id:int ) ('await (' (e 1) '.select().from(' (e 2) ').where(' (e 2) '.id.eq(' (e 3)')).exec())')
+}
+

package/dist/lib/lib/ServiceLib.rgr

@@ -0,0 +1,9 @@
+
+operators {
+    service_url _:string ( name@(noeval) ) {
+        templates {
+            ranger ( "(service_url " (e 1) ")")
+            * @macro(true) ( "\"http://10.0.2.2:1777/" (service_id 1) "\"")
+        }
+    }
+}

package/dist/lib/lib/Storage.rgr

@@ -0,0 +1,89 @@
+
+; https://developer.android.com/guide/topics/data/data-storage.html#filesInternal
+
+
+systemclass StorageOutputStream {
+  java7 FileOutputStream   ( (imp 'java.io.FileOutputStream'))
+}
+systemclass StorageInputStream {
+  java7 FileInputStream    ( (imp 'java.io.FileInputStream '))
+}
+
+operators {
+
+  ; JavaScript localstorage functions using localforage
+  localStorage _@(async):void (path:string value:string) {
+      templates {
+          es6 (`await (new Promise(resolve => { localforage.setItem(` (e 1) `, ` (e 2) `, resolve ) } ) )` )
+      }
+  }
+  
+  localStorage _@(optional async):string (path:string) {
+      templates {
+          es6 (`await (new Promise(resolve => { localforage.getItem(` (e 1) `, (err,value) => {
+              if(err) resolve(null);
+              resolve(value)
+          }) } ))` )
+      }
+  }
+
+  ; Android + UIContext functions
+  file_exists _:boolean (ui:UIContext filename:string) {
+    templates {
+      java7 ( '__storageFileExist(' (e 1) '.getCtx(), ' (e 2) ')' (imp 'java.io.File')
+(create_polyfill `
+static boolean __storageFileExist(Context ctx, String fname){
+    File file = ctx.getFileStreamPath(fname);
+    return file.exists();
+}
+`)
+
+      )
+    }
+  }
+
+  open_private_output _:StorageOutputStream (ui:UIContext filename:string) {
+    templates {
+      java7 ( (e 1) '.getCtx().openFileOutput(' (e 2) ', Context.MODE_PRIVATE)')
+    }
+  }
+  open_private_input _:StorageInputStream (ui:UIContext filename:string) {
+    templates {
+      java7 ( (e 1) '.getCtx().openFileInput(' (e 2) ')')
+    }
+  }
+  read _:Bytes (stream:StorageInputStream) {
+    templates {
+      java7 ( '__readStream(' (e 1) ')' (imp 'java.io.BufferedInputStream') (imp 'java.io.FileNotFoundException')
+
+(create_polyfill `
+static byte[] __readStream(FileInputStream fis) {
+  byte[] bytes = null;
+  try {
+      bytes = new byte[fis.available()];
+      BufferedInputStream buf = new BufferedInputStream(fis);
+      buf.read(bytes, 0, bytes.length);
+      buf.close();
+  } catch (FileNotFoundException e) {
+      e.printStackTrace();
+  } catch (IOException e) {
+      e.printStackTrace();
+  }
+  return bytes;
+}
+`)
+
+      )
+    }
+  }
+  write _:void (stream:StorageOutputStream data:Bytes) {
+    templates {
+      java7 ( (e 1) '.write(' (e 2) ');')
+    }
+  }
+  close _:void (stream:StorageOutputStream) {
+    templates {
+      java7 ( (e 1) '.close();')
+    }
+  }
+}

package/dist/lib/lib/Time.rgr

@@ -0,0 +1,75 @@
+
+; Date functions
+; https://cdnjs.cloudflare.com/ajax/libs/date-fns/1.29.0/date_fns.min.js
+
+systemclass SystemDate {
+  es6 Date
+}
+
+operator type:void es6 {
+  
+  fn to_date:SystemDate ( value:int ) ('new Date(' (e 1) ')')
+  fn to_date:SystemDate ( y:int m:int d:int) ('new Date(' (e 1) ', ' (e 2) ' - 1, ' (e 3) ')')
+  fn to_string:string (d:SystemDate) ( (e 1) '.toString()')
+  fn to_utc:int (d:SystemDate) ( (e 1) '.getTime()')
+  fn yyyy:int (d:SystemDate) ( (e 1) '.getFullYear()')
+  fn mm:int (d:SystemDate) ( '(' (e 1) '.getMonth() + 1)')
+  fn dd:int (d:SystemDate) ( (e 1) '.getDate()')
+
+  fn weekday:int (d:SystemDate) ( (e 1) '.getDay()')
+
+  fn month:int (d:int) ('(new Date(' (e 1) ')).getMonth() + 1')
+
+  fn day_step:int () ( '1000*60*60*24' )
+  fn week_step:int () ( '1000*60*60*24*7' )
+
+  fn monday:SystemDate (d:SystemDate) {
+    def day (weekday d)
+    if( day == 0 ) {
+      return (add_days d -6 )
+    }
+    return (add_days d ( -1 * (day - 1)) )
+  }
+
+  fn tuesday:SystemDate (d:SystemDate) {
+    return ( add_days (monday d) 1)
+  }
+
+  ; calculate the year and week from the date
+  fn year_week:[int] (d:SystemDate) ('((d)=>{
+      var d = new Date(Date.UTC(d.getFullYear(), d.getMonth(), d.getDate()))
+      d.setUTCDate(d.getUTCDate() + 4 - (d.getUTCDay()||7));
+      var yearStart = new Date(Date.UTC(d.getUTCFullYear(),0,1));
+      var weekNo = Math.ceil(( ( (d - yearStart) / 86400000) + 1)/7);
+      return [d.getUTCFullYear(), weekNo];
+    })('(e 1)') ')
+
+  fn ms:int (d:SystemDate) ( (e 1) '.getTime()')
+
+  fn clone:SystemDate (d:SystemDate) ( '(new Date(' (e 1) '.getTime())' )
+  fn add_days:SystemDate ( d:SystemDate value:int ) ( '(()=>{ var _=(new Date(' (e 1) '.getTime())); _.setDate(' (e 1) '.getDate() + ' (e 2) ');return _;})()')
+
+  fn to_ymd:string ( dd:SystemDate ) {
+    return ( (yyyy dd) + "-" + (mm dd) + "-" + (dd dd))
+  }
+}
+
+operator type:void all {
+  fn ymd_to_date@(throws):SystemDate (ymd:string) {
+    def parts (strsplit ymd '-')
+    if( (size parts) < 3) {
+      throw "Invalid date"
+    }
+    def yy 0 
+    def mm 0
+    def dd 0 
+    try {
+      yy  = (unwrap ( to_int (at parts 0)))
+      mm  = (unwrap ( to_int (at parts 1)))
+      dd  = (unwrap ( to_int (at parts 2)))
+    } {
+      throw "Invalid date format"
+    }
+    return (to_date yy mm dd)
+  }  
+}

package/dist/lib/lib/Timers.rgr

@@ -0,0 +1,176 @@
+; operators to get time from JavaScript
+systemclass TimeIntervalID {
+    es6 TimeInterval
+}
+systemclass TimeOutID {
+    es6 number
+    java7 Thread
+    swift3 setTimeoutClass
+    go '*r_go_timer'
+}
+operators {
+    clearInterval cmdClearInterval:void ( i:TimeIntervalID) {
+        templates {
+            es6 ("clearInterval( " (e 1) ")")
+        }
+    }
+    setInterval cmdInterval:TimeIntervalID (code:block ms:int) {
+        templates {
+            es6 ("setInterval( () => {" (block 1 ) "} , " (e 2) ")")
+        }
+    }
+    clearTimeout cmdClearInterval:void ( i:TimeOutID) {
+        templates {
+            es6 ("clearTimeout(" (e 1) ")")
+            java7 ( (e 1) ".interrupt();" nl)
+            swift3 ( (e 1) '.stop()' nl)
+            cpp ()
+            go ( (e 1) ".is_valid = false;" nl)
+        }
+    }
+
+    setTimeout cmdInterval:TimeOutID (ms:int code:block) {
+        templates {
+            go (
+                "r_setTimeout( " (e 1) ",  func() {" nl I (block 2) i nl " } )"
+                (imp "time")
+
+(create_polyfill '
+type r_go_timer struct { 
+  is_valid bool 
+}
+func r_setTimeout(  ms int64, cb func() () ) *r_go_timer {
+    o := new(r_go_timer)
+    o.is_valid = true
+    time.AfterFunc( time.Duration(ms)*time.Millisecond, func() () {
+        if o.is_valid {
+            cb() 
+        }   
+    })
+    return o
+} 
+') ) 
+            cpp ( 'setTimeout(' (e 1) ', [&](){' nl I (block 2) i nl '});' 
+    (imp '<future>')
+    (imp '<chrono>')
+    (imp '<thread>')
+(create_polyfill `
+
+void setTimeout(int milliseconds,std::function<void()> func)
+{   
+    std::async(std::launch::async,[=]()
+    {       
+        std::this_thread::sleep_for(std::chrono::milliseconds(milliseconds));        
+        func(); 
+    });
+};
+`)
+
+            )
+
+            test1_swift3 ( 'setTimeoutClass(ms: ' (e 1) ', callback: { () ->  Void in ' nl I  (block 2) i nl '})'
+            (imp "Foundation")
+(create_polyfill '
+class setTimeoutClass {
+  var cb : (() -> Void)?
+  init( ms:Int, callback : @escaping  (() -> Void) ) { 
+    self.cb = callback
+    self.cb!()
+  }
+  func call() {
+    self.cb!()
+  } 
+  func stop() {
+  }
+} 
+'    )
+
+            )
+
+
+            swift3 ( 'setTimeoutClass(ms: ' (e 1) ', callback: { () ->  Void in ' nl I  (block 2) i nl '})'
+            (imp "Foundation")
+(create_polyfill '
+class setTimeoutClass {
+  var timer = Timer()
+  var cb : (() -> Void)?
+	init( ms:Int, callback : @escaping  (() -> Void) ) { 
+    self.timer = Timer.scheduledTimer(timeInterval:(Double(ms)*0.001), target: self, selector: #selector(self.callMe), userInfo: nil, repeats: false)
+    self.cb = callback
+  }
+	@objc func callMe(t: Timer) {
+    self.cb!()
+  } 
+  func stop() {
+    self.timer.invalidate();
+  }
+} 
+'    )
+
+            )
+
+            es6 ("setTimeout( () => {" (block 2 ) "} , " (e 1) ")") ;"
+            rust (
+                "std::thread::spawn(move || {" nl I
+                "std::thread::sleep(std::time::Duration::from_millis(" (e 1) " as u64));" nl
+                (block 2)
+                i nl "});" nl
+            )
+            java7 (
+"__startThread(" 
+    "new Thread() {" nl I
+        "@Override" nl
+        "public void run() {" nl I
+            "try {" nl I
+                "Thread.sleep( (long) ( " (e 1) "));" nl
+                (block 2)
+                nl i
+            "} catch (Exception e) {" nl I
+                "System.err.println(e);" nl i
+            "}" nl i
+        "}" nl i
+    "}" nl
+ ");"
+(create_polyfill
+"static Thread __startThread( Thread t) {
+    t.start();
+    return t;
+}"
+)
+            )
+
+            java7uisave (
+            "new Thread() {" nl I
+                "@Override" nl
+                "public void run() {" nl I
+                    "try {" nl I
+                        "Thread.sleep( (long) (1000 *" (e 1) "));" nl
+                        "getActivity().runOnUiThread(new Runnable(){" nl
+                            "@Override" nl
+                            "public void run() {" nl I                    
+                                (block 2)
+                            nl i "}"
+                            nl i 
+                        "});"
+                        nl i
+                    "} catch (Exception e) {" nl I
+                        "System.err.println(e);" nl i
+                    "}" nl i
+                "}" nl i
+            "}.start();" nl
+
+            )
+            
+        }
+    }
+    setTimeout cmdInterval:TimeOutID (code:block ms:int) {
+        templates {
+            es6 ("setTimeout( () => {" (block 1 ) "} , " (e 2) ")")
+        }
+    }
+    time_as_string cmdTime:string () {
+        templates {
+            es6 ("(new Date()).toString()")
+        }
+    }
+}

package/dist/lib/lib/TypedArrays.rgr

@@ -0,0 +1,14 @@
+systemclass RUint32Array {
+  es6 Uint32Array
+}
+
+systemclass Uint32 {
+  es6 Uint32
+}
+
+operator type:void es6 {
+  fn create_Uint32Array:RUint32Array (size:int) ('new Uint32Array(' (e 1) ')') 
+  fn at:Uint32 (buff:RUint32Array index:int) ( (e 1) '[' (e 2) ']')
+  fn to_int:int (value:Uint32) ( (e 1) )
+  fn to_hex_string:string (value:Uint32) ( (e 1) '.toString(16)' )
+}