ranger-compiler 2.1.70 → 3.0.4

package/dist/lib/lib/Ajax.rgr

@@ -0,0 +1,196 @@
+Import "JSON.rgr"
+
+
+operators {
+    fetch_json _:void ( url:string callback:(_:void ( data:JSONDataObject )) error:(_:void ()) ) {
+        templates {
+            ranger ('(post_json ' (e 1) ' ' (e 2) ' ' (e 3) ' ' (e 4) ')' )
+            es6 ( "axios.get(" (e 1) ") .then((res)=>{
+                    (("(e 2) ")(res.data));
+                })"
+                )
+            java7 (
+                ""
+            )
+        }
+    }
+    post_json _@(throws):void  ( url:string data:JSONDataObject callback:(_:void ( data:JSONDataObject )) error:(_:void ()) ) {
+        templates {
+            ranger ('(post_json ' (e 1) ' ' (e 2) ' ' (e 3) ' ' (e 4) ')' )
+            es6 ( "axios.post(" (e 1) ", " (e 2) ") .then((res)=>{
+                    (("(e 3) ")(res.data));
+                })"
+            )
+            java7 ( "AsyncPostTest.PostJSONData( (new AsyncPostTest() { " nl I
+                        "@Override" nl
+                        "protected void onPostExecute(String strData) {" nl I
+                            'try {' I
+                                (e 3) ".run(new JSONObject(strData)); " nl i
+                            '} catch( Exception e) {}' nl i
+                        "}" nl i
+                    "})," (e 1) ", " (e 2) " ); " (imp "android.os.AsyncTask") 
+                    (imp "org.json.JSONObject") (plugin 'maven' (  (dep 'org.json' 'json' '20171018'  ) ) )
+(java_class 'AsyncPostTest' `
+import android.os.AsyncTask;
+
+import java.io.BufferedReader;
+import java.io.DataOutputStream;
+import java.io.InputStreamReader;
+import java.net.HttpURLConnection;
+import java.net.URL;
+import org.json.JSONObject;
+
+class AsyncPostTest extends AsyncTask<String, Void, String> {
+
+    private Exception exception;
+    public String dataToSend = "";
+    public String urlToSend = "";
+    static void PostJSONData( AsyncPostTest req, String url, JSONObject data ) {
+        req.dataToSend = data.toString();
+        req.urlToSend = url;
+        req.execute();
+    }
+    protected String doInBackground(String... urls) {
+        HttpURLConnection urlConnection = null;
+        StringBuilder x = new StringBuilder();
+        try {
+
+            URL url = new URL(this.urlToSend);
+            HttpURLConnection connection = (HttpURLConnection) url.openConnection();
+            connection.setConnectTimeout(500);
+            connection.setReadTimeout(500);
+            // Allow Outputs (sending)
+            connection.setDoOutput(true);
+            connection.setUseCaches(false);
+
+            // Enable POST method
+            connection.setRequestMethod("POST");
+            connection.setRequestProperty("Content-Type", "application/json");
+            connection.setRequestProperty("charset", "utf-8");
+            DataOutputStream printout = new DataOutputStream(connection.getOutputStream());
+            printout.write(this.dataToSend.getBytes("UTF8"));
+            printout.flush();
+            //  Here you read any answer from server.
+            BufferedReader serverAnswer = new BufferedReader(new InputStreamReader(connection.getInputStream()));
+            String read_data = "";
+            String line;
+            while ((line = serverAnswer.readLine()) != null) {
+                read_data = read_data + line;
+            }
+            printout.close();
+            serverAnswer.close();
+            printout.close();
+            return read_data;
+        } catch (Exception e) {
+            e.printStackTrace();
+        } finally {
+            if (urlConnection != null) {
+                urlConnection.disconnect();
+            }
+        }
+        return x.toString();
+    }
+
+    protected void onPostExecute(String strData) {
+        // TODO: check this.exception
+        // TODO: do something with the feed
+    }
+}
+
+`)                    
+                    )
+        }
+    }
+
+    https_post_json _@(throws):void  ( url:string data:JSONDataObject callback:(_:void ( data:JSONDataObject )) error:(_:void ()) ) {
+        templates {
+            ranger ('(post_json ' (e 1) ' ' (e 2) ' ' (e 3) ' ' (e 4) ')' )
+            es6 ( "axios.post(" (e 1) ", " (e 2) ") .then((res)=>{
+                    (("(e 3) ")(res.data));
+                })"
+            )
+            java7 ( "AsyncHttpsPostTest.PostJSONData( (new AsyncHttpsPostTest() { " nl I
+                        "@Override" nl
+                        "protected void onPostExecute(String strData) {" nl I
+                            'try {' I
+                                (e 3) ".run(new JSONObject(strData)); " nl i
+                            '} catch( Exception e) {'nl I
+                                (e 4) ".run(); " nl i
+                            '}' nl i
+                        "}" nl i
+                    "})," (e 1) ", " (e 2) " ); " (imp "android.os.AsyncTask") 
+                    (imp "org.json.JSONObject") (plugin 'maven' (  (dep 'org.json' 'json' '20171018'  ) ) )
+(java_class 'AsyncHttpsPostTest' `
+import android.os.AsyncTask;
+
+import java.io.BufferedReader;
+import java.io.DataOutputStream;
+import java.io.InputStreamReader;
+import javax.net.ssl.HttpsURLConnection;
+import java.net.URL;
+import org.json.JSONObject;
+
+class AsyncHttpsPostTest extends AsyncTask<String, Void, String> {
+
+    private Exception exception;
+    public String dataToSend = "";
+    public String urlToSend = "";
+    static void PostJSONData( AsyncHttpsPostTest req, String url, JSONObject data ) {
+        req.dataToSend = data.toString();
+        req.urlToSend = url;
+        req.execute();
+    }
+    protected String doInBackground(String... urls) {
+        HttpsURLConnection urlConnection = null;
+        StringBuilder x = new StringBuilder();
+        try {
+
+            URL url = new URL(this.urlToSend);
+            HttpsURLConnection connection = (HttpsURLConnection) url.openConnection();
+            connection.setConnectTimeout(500);
+            connection.setReadTimeout(500);
+            // Allow Outputs (sending)
+            connection.setDoOutput(true);
+            connection.setUseCaches(false);
+
+            // Enable POST method
+            connection.setRequestMethod("POST");
+            connection.setRequestProperty("Content-Type", "application/json");
+            connection.setRequestProperty("charset", "utf-8");
+            DataOutputStream printout = new DataOutputStream(connection.getOutputStream());
+            printout.write(this.dataToSend.getBytes("UTF8"));
+            printout.flush();
+            //  Here you read any answer from server.
+            BufferedReader serverAnswer = new BufferedReader(new InputStreamReader(connection.getInputStream()));
+            String read_data = "";
+            String line;
+            while ((line = serverAnswer.readLine()) != null) {
+                read_data = read_data + line;
+            }
+            printout.close();
+            serverAnswer.close();
+            printout.close();
+            return read_data;
+        } catch (Exception e) {
+            e.printStackTrace();
+        } finally {
+            if (urlConnection != null) {
+                urlConnection.disconnect();
+            }
+        }
+        return x.toString();
+    }
+
+    protected void onPostExecute(String strData) {
+        // TODO: check this.exception
+        // TODO: do something with the feed
+    }
+}
+
+`)                    
+                    )
+        }
+    }
+
+
+}

package/dist/lib/lib/CmdParams.rgr

@@ -0,0 +1,72 @@
+
+
+; -i file2.pdf -o file3.pdf
+class CmdParams @serialize(true) {
+
+    def flags:[string:boolean]
+    def params:[string:string]
+    def values:[string]
+
+    fn hasParam:boolean (name:string) {
+        return (has params name)
+    }
+
+    fn getParam@(optional):string ( name:string) {
+        return (get params name)
+    }
+
+    ; -p=100
+    ; -o=""
+    fn collect() {
+        def cnt (shell_arg_cnt)
+        def i 0 
+        while( cnt > 0 ) {
+            def argStr (shell_arg i)
+            def firstC (charAt argStr 0)
+            if( firstC == (ccode "-") ) {
+                def pS (substring argStr 1 (strlen argStr))
+                def parts (strsplit pS "=")
+                if( (array_length parts) == 1 ) {
+                    def flag (itemAt parts 0)
+                    set flags flag true
+                } {
+                    def name (itemAt parts 0)
+                    remove_index parts 0
+                    def value (join parts "=")
+                    set params name value
+                }
+            } {
+                push values argStr
+            }
+            cnt = cnt - 1
+            i = i + 1
+        }
+    }
+}
+
+class test_cmdparams {
+
+    fn run () {
+        def prms (new CmdParams)
+        prms.collect()
+        print "--- params ----"
+        def pNames (keys prms.params)
+        for pNames v:string i {
+            print v + " = " + (unwrap (get prms.params v))
+        }
+        print "--- flags ----"
+        def flagNames (keys prms.flags)
+        for flagNames v:string i {
+            print v
+        }
+        print "--- values ----"
+        for prms.values v:string i {
+            print v
+        }
+    }
+
+    sfn m@(main) () {
+        def o (new test_cmdparams)
+        o.run()
+    }
+}

package/dist/lib/lib/Crypto.rgr

@@ -0,0 +1,90 @@
+
+Import "TypedArrays.rgr"
+
+systemclass RandomGenerator {
+  java7 SecureRandom  ( (imp 'java.security.SecureRandom'))
+  es6 RandomSource
+}
+systemclass KeyGenerator {
+  java7 KeyGenerator  ( (imp 'javax.crypto.KeyGenerator'))
+}
+systemclass SecretKey {
+  java7 SecretKeySpec ( (imp 'javax.crypto.spec.SecretKeySpec'))
+}
+systemclass Cipher {
+  java7 Cipher  ( (imp 'javax.crypto.Cipher'))
+}
+
+
+
+operators {
+
+  newRandomGenerator _:RandomGenerator () {
+      templates {
+          java7 ('SecureRandom.getInstance("SHA1PRNG")')
+          es6 ( 'window.crypto' )
+      }      
+  }
+  
+  generate _:void ( generator:RandomGenerator buff:RUint32Array) {
+    templates {
+      es6 ( (e 1) '.getRandomValues(' (e 2) ')')
+    }
+  }
+
+  setSeed _:void ( g:RandomGenerator str:string) {
+      templates {
+          java7 ((e 1) '.setSeed(' (e 2) '.getBytes());')
+      }      
+  }
+
+  newKeyGenerator _:KeyGenerator () {
+    templates {
+      java7 ( 'KeyGenerator.getInstance("AES")')
+    }
+  }
+  init _:void ( kg:KeyGenerator keylen:int rand:RandomGenerator) {
+    templates {
+      java7 ( (e 1 ) '.init(' (e 2) ', ' (e 3)');' )
+    }
+  }
+  createAESKey _:SecretKey ( gen:KeyGenerator) {
+    templates {
+      java7 ('new SecretKeySpec(('(e 1)'.generateKey()).getEncoded(), "AES")')
+    }
+  }
+  createAESKey _:SecretKey ( bytes:Bytes) {
+    templates {
+      java7 ('new SecretKeySpec('(e 1)', 0, 128 / 8 , "AES")')
+    }
+  }
+  newAESCipher _:Cipher ( ) {
+    templates {
+      java7 ( 'Cipher.getInstance("AES")')
+    }
+  }
+  init_decoder _:void ( c:Cipher key:SecretKey  ) {
+    templates {
+      java7 ( (e 1) '.init(Cipher.DECRYPT_MODE, ' (e 2) ');')
+    }
+  }
+  init_encoder _:void ( c:Cipher key:SecretKey  ) {
+    templates {
+      java7 ( (e 1) '.init(Cipher.ENCRYPT_MODE, ' (e 2) ');')
+    }
+  }
+  encode _@(throws):Bytes ( c:Cipher data:Bytes ) {
+    templates {
+      java7 ( (e 1) '.doFinal(' (e 2) ')')
+    }
+  }
+  decode _@(throws):Bytes ( c:Cipher data:Bytes ) {
+    templates {
+      java7 ( (e 1) '.doFinal(' (e 2) ')')
+    }
+  }
+
+}
+
+
+

package/dist/lib/lib/DOMLib.rgr

@@ -0,0 +1,307 @@
+Import "ViewLib.rgr"
+Import "ACEEditor.rgr"
+
+systemclass SystemCanvasElement {
+    es6 CanvasElement
+}
+systemclass CanvasDrawCtx {
+    es6 CanvasDrawCtx
+}
+systemclass ACEEditor {
+    es6 ACE
+}
+systemclass MediaQueryList {
+  es6 Object
+}
+
+
+systemunion CoordinateType (double int)
+
+
+operator type:void es6 {
+  fn window:string ( location@(keyword) ) ('document.location.hash')
+  fn hashchange ( cb:(_void ()) ) ('window.addEventListener("hashchange",(_event)=>{ (' (e 1) ')()})')    
+
+  fn mediaQuery:MediaQueryList (query:string) ('window.matchMedia(' (e 1) ')')
+  fn matches:boolean (q:MediaQueryList) ( (e 1) '.matches')
+}
+
+operators {
+
+
+    set _:string ( el:ACEEditor text:string ) {
+        templates {
+            es6 ( (e 1) ".setValue(" (e 2) ")")
+        }
+    }
+
+    valueof _:string ( el:ACEEditor ) {
+        templates {
+            es6 ( (e 1) ".getValue()")
+        }
+    }
+    create_ace _:ACEEditor ( el:ViewGroup) {
+        templates {
+            es6 ("ace.edit(" (e 1) ")" )
+        }
+    }
+    create_ace _:ACEEditor ( el:View) {
+        templates {
+            es6 ("ace.edit(" (e 1) ")" )
+        }
+    }
+    set_mode _:void ( el:ACEEditor name:string) {
+        templates {
+            es6 ( (e 1 )".getSession().setMode(" (e 2) ") " )
+        }
+    }
+    onChange _:void ( el:ACEEditor code:block) {
+        templates {
+            es6 ( (e 1 ) ".on(\"input\", () => {" nl I (block 2) i nl "}) " )
+        }
+    }
+
+    eval_code _:void (code:string) {
+        templates {
+            es6 ( "eval(" (e 1 ) ")")
+        }           
+    }
+    window_width _:int () {    
+        templates {
+            es6 ( 'window.innerWidth')
+        }
+    }
+    window_height _:int () {    
+        templates {
+            es6 ( 'window.innerHeight')
+        }
+    }
+    ctx _:CanvasDrawCtx (elem:SystemCanvasElement ) {
+        templates {
+            es6 ((e 1 ) '.getContext("2d")')
+        }
+    }
+
+    beginPath _:void ( ctx:CanvasDrawCtx ) {
+        templates {
+            es6 ( (e 1) ".beginPath();" nl)
+        }        
+    }
+    moveTo _:void (x:CoordinateType y:CoordinateType) {
+        templates {
+            es6 ( (e 1) ".moveTo(" (e 1) "," (e 2) ");" nl)
+        }        
+    }
+    lineTo _:void (x:CoordinateType y:CoordinateType) {
+        templates {
+            es6 ( (e 1) ".lineTo(" (e 1) "," (e 2) ");" nl )
+        }        
+    }
+    fill _:void () {
+        templates {
+            es6 ( (e 1) ".fill()")
+        }        
+    }
+
+    create_canvas _:SystemCanvasElement ( width:int height:int ) {
+        templates {
+            es6 ( 'document.createElement("canvas")' )
+        }
+    }
+    setWidth _:void ( c:SystemCanvasElement width:int) {
+        templates {
+            es6 ( (e 1) '.width = ' (e 2) ';' nl (e 1) '.style.width = ' (e 2) ' +"px";' nl)
+        }
+    }
+    setHeight _:void ( c:SystemCanvasElement height:int) {
+        templates {
+            es6 ( (e 1) '.height = ' (e 2) ';' nl (e 1) '.style.height = ' (e 2) ' +"px";' nl)
+        }
+    }
+
+    append _:void ( el:ViewGroup c:SystemCanvasElement ) {
+        templates {
+            es6 ( (e 1) '.appendChild(' (e 2) ')')
+        }
+    }
+
+    beginPath _:void (c:CanvasDrawCtx) {
+        templates {
+            es6 ( (e 1 ) ".beginPath()")
+        }        
+    }
+    scale _:void (c:CanvasDrawCtx amount:CoordinateType) {
+        templates {
+            es6 ( (e 1 ) ".scale(" (e 2) ", " (e 2) ")")
+        }        
+    }
+    translate _:void (c:CanvasDrawCtx x:CoordinateType y:CoordinateType) {
+        templates {
+            es6 ( (e 1 ) ".translate(" (e 2) ", " (e 3) ")")
+        }        
+    }
+    fill _:void (c:CanvasDrawCtx) {
+        templates {
+            es6 ( (e 1 ) ".fill()")
+        }        
+    }
+    stroke _:void (c:CanvasDrawCtx) {
+        templates {
+            es6 ( (e 1 ) ".stroke()")
+        }        
+    }
+    stroke _:void (c:CanvasDrawCtx color:string width:CoordinateType) {
+        templates {
+            es6 ( (e 1 ) ".strokeStyle = " (e 2) nl (e 1 ) ".lineWidth = " (e 3) nl )
+        }        
+    }
+    stroke _:void (c:CanvasDrawCtx color:string) {
+        templates {
+            es6 ( (e 1 ) ".strokeStyle = " (e 2))
+        }        
+    }
+    fillStyle _:void (c:CanvasDrawCtx color:string) {
+        templates {
+            es6 ( (e 1 ) ".fillStyle = " (e 2))
+        }        
+    }
+    moveTo _:void (c:CanvasDrawCtx x:CoordinateType y:CoordinateType) {
+        templates {
+            es6 ( (e 1 ) ".moveTo(" (e 2) "," (e 3) ")")
+        }        
+    }
+    lineTo _:void (c:CanvasDrawCtx x:CoordinateType y:CoordinateType) {
+        templates {
+            es6 ( (e 1 ) ".lineTo(" (e 2) "," (e 3) ")")
+        }        
+    }
+    bezierCurveTo _:void (c:CanvasDrawCtx x1:CoordinateType y1:CoordinateType x2:CoordinateType y2:CoordinateType x3:CoordinateType y3:CoordinateType) {
+        templates {
+            es6 ( (e 1 ) ".bezierCurveTo(" (e 2) "," (e 3) "," (e 4) "," (e 5) "," (e 6) "," (e 7) ")")
+        }        
+    }
+    get_context _:CanvasDrawCtx ( e:SystemCanvasElement) {
+        templates {
+            es6 ( (e 1 ) ".getContext(\"2d\") ")
+        }
+    }
+    save _:void ( e:CanvasDrawCtx) {
+        templates {
+            es6 ( (e 1) '.save()')
+        }
+    }
+    restore _:void ( e:CanvasDrawCtx) {
+        templates {
+            es6 ( (e 1) '.restore()')
+        }
+    }
+    opacity _:void (e:CanvasDrawCtx v:double) {
+        templates {
+            es6 ( (e 1) '.globalAlpha = ' (e 2))
+        }
+    }
+    document_body  base:ViewGroup () {
+        templates {
+            es6 ("document.body")
+        }        
+    }
+    create_text _:ViewGroup ( text:string) {
+        templates {
+            es6  ("document.createTextNode( " (e 1) ")")
+        }
+    }
+    getChild _@(optional):ViewGroup ( el:ViewGroup i:int) {
+        templates {
+            es6 ( (e 1) ".children[" (e 2) "]")
+        }        
+    }
+    ; myAnchor.parentNode.replaceChild(mySpan, myAnchor);
+    replace_dom _:ViewGroup ( oldEl:ViewGroup newEl:ViewGroup ) {
+        templates {
+            es6  ( (e 1) ".parentNode.replaceChild( " (e 2) ", " (e 1) ")")
+        }
+    }
+    clear _:ViewGroup ( oldEl:ViewGroup ) {
+        templates {
+            es6  ( "while( " (e 1) ".firstChild) " (e 1) ".removeChild( " (e 1) ".firstChild);" )
+        }
+    }
+    remove_dom _:ViewGroup ( oldEl:ViewGroup ) {
+        templates {
+            es6  ( "(" (e 1) ".parentNode ? " (e 1) ".parentNode.removeChild( " (e 1) ") : null);")
+            ranger ( '(remove_dom ' (e 1) ')' )
+        }
+    }
+    create_element _:ViewGroup ( elName:string) {
+        templates {
+            es6  ("document.createElement( " (e 1) ")")
+            ranger ("(create_dom " (e 1) ")")
+        }
+    }
+    set_class _:void ( el:ViewGroup className:string ) {
+        templates {
+            es6 ( (e 1) ".className = " (e 2))
+        }
+    }
+    value _:void ( el:ViewGroup value:string ) {
+        templates {
+            es6 ( (e 1) ".value = " (e 2))
+        }
+    }
+    value _:string ( el:ViewGroup) {
+        templates {
+            es6 ( (e 1) ".value")
+        }
+    }
+    add_listener _:void (el:ViewGroup name:string cb:(_:void (event:DOMEvent))) {
+        templates {
+            es6 ( (e 1) ".addEventListener( " ( e 2 ) ", " (e 3) ")")
+        }
+    }
+    clone _:ViewGroup (elem:ViewGroup) {
+        templates {
+            es6 ( (e 1) ".cloneNode(true)")
+            ranger ( '(clone ' (e 1 )' )')
+        }
+    } 
+    insert _:void (el:ViewGroup newChild:ViewGroup index:int) {
+        templates {
+            es6 ( (e 1) ".insertBefore( " (e 2) ", " (e 1) ".children[" (e 3) "]);")
+        }
+    }
+    add _:void (el:ViewGroup newChild:ViewGroup) {
+        templates {
+            es6 ( (e 1) ".appendChild(" (e 2) ");")
+            ranger ( '(add ' (e 1 )' ' (e 2) ' )')
+        }
+    }
+    attr _:void (el:ViewGroup name:string value:string ) {
+        templates {
+            es6 ( (e 1) ".setAttribute(" (e 2) ", " (e 3)")")
+            ranger ('(attr ' (e 1 ) ' ' (e 2 ) ' ' (e 3 ) ' ) ')
+        }
+    }
+    text _:void (el:ViewGroup value:string ) {
+        templates {
+            es6 ( (e 1) ".textContent = " (e 2) )
+            ranger ('(text ' (e 1) ' ' (e 2) ')')
+        }
+    }
+    find_canvas _@(optional):SystemCanvasElement (id:string) {
+        templates {
+            es6 ( 'document.getElementById(' (e 1) ')')
+        }        
+    }
+    find_element _@(optional):ViewGroup (id:string) {
+        templates {
+            es6 ( 'document.getElementById(' (e 1) ')')
+        }        
+    }
+    find_element_by_attr _@(optional):ViewGroup ( attr:string value:string ) {
+        templates {
+            es6 ( `document.querySelectorAll('[' + ` (e 1) ` + '="' + ` (e 2) ` + '"]')[0]` )
+            ranger ( '(find_element_by_attr ' (e 1) ' ' (e 2) ')' )
+        }
+    }
+}
+