ranger-compiler 2.1.70 → 3.0.4

package/compiler/commonmark_plugin.clj

@@ -1,359 +0,0 @@
-
-Import "ng_Compiler.clj"
-
-flag npm (
-  name "ranger-markdown"
-  version "0.0.7"
-  description "Markdown output plugin for Ranger Compiler"
-  author "Tero Tolonen"
-  license "MIT"
-)
-
-plugin.file 'README.md' "
-
-# Markdown plugin for Ranger Compiler
-
-Simple commonmark markdown syntax generator for Ranger.
-
-## Usage
-
-Install ranger compiler
-
-`npm install -g ranger-compiler`
-
-Install this package 
-
-`npm install ranger-markdown`
-
-Create a file with slides, for example `test.ranger`
-
-```
-plugin.md 'README.md' {
-    ## Hello World
-    table {
-        tr 1 2 3 
-        tr 4 5 6 
-        tr 7 8 9 
-    }
-    code.javascript `
-    function foo() {
-
-    }
-    `
-}
-
-```
-
-And then run the compiler with command:
-
-`ranger-compiler -plugins=ranger-markdown test.ranger`
-
-The results will be saved in `bin/README.md`
-
-"
-
-operator type:string all {
-    fn remove_trailing:string (ch:string) {
-        def parts (strsplit self ch)
-        if( ( array_length parts ) == 1 ) {
-            return self     
-        }
-        removeLast parts
-        return (join parts ch)
-    } 
-}
-
-class Plugin {
-
-    def html_mode ""
-    def vendor_prefixes:[string] ([] "-moz-" "-webkit-" "-o-" "-ms-")
-    def prefixable:[string] ([] "borderRadius" "border-radius" )
-    def transform:[string] ([] 
-                                "borderRadius" "border-radius" 
-                            )
-
-    fn features:[string] () {
-        return ([]  "postprocess")
-    }
-
-    fn WalkHTML (node:CodeNode ctx:RangerAppWriterContext wr:CodeWriter) {
-
-        if(node.value_type == RangerNodeType.XMLText) {
-            wr.out(node.string_value false)
-            return
-        }
-
-        if(node.value_type == RangerNodeType.XMLNode) {
-            wr.out('<' + node.vref + ' '  , false)
-            node.attrs.forEach({
-                wr.out(item.vref + '="' , false)
-                wr.out(item.string_value false)
-                wr.out('" ' false )
-            })
-            wr.out('>' false)
-            node.children.forEach({
-                this.WalkHTML( item ctx wr )
-            })
-
-            wr.out('</' + node.vref + '>' , false)
-            return
-        }
-
-        if(node.is_block_node) {
-            node.children.forEach({
-                this.WalkHTML( item ctx wr)
-            })
-            return
-        }
-
-        if(node.value_type == RangerNodeType.String) {
-            wr.raw(node.string_value false)
-            return
-        }
-        if(node.value_type == RangerNodeType.Integer) {
-            wr.out( ('' + node.int_value) false)
-            return
-        }
-        if(node.value_type == RangerNodeType.Double) {
-            wr.out( (node.getParsedString()) false)
-            return
-        }
-        if(node.value_type == RangerNodeType.Boolean) {
-            if node.boolean_value {
-                wr.out( 'true' false)
-            } {
-                wr.out( 'false' false)
-            }
-            return
-        }
-        if(node.value_type == RangerNodeType.VRef) {
-            wr.out((node.vref + " ") false)
-            return
-        }
-
-        if(node.expression) {
-            def fc (node.getFirst())
-            def cmd (itemAt fc.ns 0 )
-            def class_string ""
-            def ns_list (clone fc.ns)
-            def bb false
-            ns_list = (ns_list.filter({
-                if(index > 0 ) {
-                    bb = true
-                }
-                return (index > 0)
-            }))
-            class_string = (join ns_list " ")
-            switch cmd {
-                case "h1" {
-                    cmd = "#"
-                }
-                case "h2" {
-                    cmd = "##"
-                }
-                case "h3" {
-                    cmd = "###"
-                }
-                case "slide" {
-                    cmd = "section"
-                }
-                case "quote" {
-                    cmd = "blockquote"
-                }
-            }
-
-            def heads ([] "#" "##" "###" "####")
-            if( (indexOf heads cmd) >= 0 ) {
-                wr.out("" true)                    
-                wr.out((cmd + ' ') false)
-                node.children.forEach({
-                    if(index > 0 ) {
-                        this.WalkHTML( item ctx wr)
-                    }
-                })
-                wr.newline()            
-                wr.out("" true)                    
-                  
-                return  
-            }
-
-            def simpleTags ([] "p" "b" "i" "u" "h1" "h2" "h3" "h4" "h5" "ul" "li" "ol" "blockquote")
-            def effects([] "fade-in" "fade-out" "zoom-in" "zoom-out" )
-            if( (indexOf simpleTags cmd) >= 0 ) {
-                wr.out('<' + cmd  , false)
-                
-                effects.forEach({
-                    if( (indexOf fc.ns item)  >= 0 ) {
-                        wr.out(' data-transition="' + item + '" ' , false)
-                    }
-                })
-                if(node.hasStringProperty("class")) {
-                    wr.out(' class="' + class_string , false)
-                    wr.out( (node.getStringProperty('class')) false )
-                    wr.out('" ' false)
-                } {
-                    wr.out(' class="' + class_string + '" ' , false)
-                }                 
-                if(node.hasStringProperty("id")) {
-                    wr.out(' id="' false)
-                    wr.out( (node.getStringProperty('id')) false )
-                    wr.out('" ' false)
-                } 
-                wr.out( '>' , true)
-                wr.indent(1)
-                node.children.forEach({
-                    if(index > 0 ) {
-                        this.WalkHTML( item ctx wr)
-                    }
-                })
-                wr.newline()
-                wr.indent(-1)
-                wr.out('</' + cmd + '>' , true)
-                return
-            }
-
-            switch cmd {
-                case "section" {
-                    node.children.forEach({
-                        if(index > 0 ) {
-                            this.WalkHTML( item ctx wr)
-                        }
-                    })                    
-                }
-                case "code" {
-                    ; code.javascript
-
-                    wr.out("" true)                    
-                    def linkRef (node.getSecond())
-                    def tags ""
-                    if(node.hasBooleanProperty("noescape")) {
-                        tags = tags + 'data-noescape'
-                    }
-                    def lang_name ""
-                    if( (array_length fc.ns) > 1) {
-                        lang_name = (itemAt fc.ns 1)
-                    }
-                    wr.out("```" false)
-                    if( (strlen lang_name) > 0) {
-                        wr.out(lang_name false)
-                    }
-                    wr.newline()
-                    this.WalkHTML( linkRef ctx wr )
-                    wr.newline()
-                    wr.out("" true)                    
-                    wr.out("```" true)
-                    wr.out("" true)
-
-                    
-                }
-                case "a" {
-                    def linkAddr (node.getSecond())
-                    def linkTxt (node.getThird())
-
-                    ; <a href="../html-link.htm#generator">
-                    wr.out('[' false)
-                    this.WalkHTML( linkTxt ctx wr)
-                    wr.out("](" false)
-                    this.WalkHTML(linkAddr ctx wr)
-                    if( node.hasStringProperty('title')) {
-                        wr.out( (' ' + (node.getStringProperty('title')) ) false )
-                    }
-                    wr.out(')' false)
-                }
-                case "pre" {
-                    wr.out("" true)                    
-                    wr.out("```" true)
-                    node.children.forEach({
-                        if(index > 0 ) {
-                            this.WalkHTML( item ctx wr)
-                        }
-                    })
-                    wr.newline()
-                    wr.out("```" true)
-                    wr.out("" true)
-                }
-                case "thead" {
-                    wr.out('<thead>' false)
-                    wr.out('<tr>' false)
-                    wr.indent(1)
-                    node.children.forEach({
-                        if(index > 0 ) {
-                            wr.out('<th>' false)
-                            this.WalkHTML( item ctx wr)
-                            wr.out('</th>' false)
-                        }
-                    })
-                    wr.newline()
-                    wr.indent(-1)
-                    wr.out('</tr>' false)
-                    wr.out('</thead>' false)
-                }
-                case "tr" {
-
-                    def pIndex 1
-                    try {
-                        if(!null? node.parent) {
-                            pIndex = (indexOf node.parent.children node)
-                        }
-                    } {
-
-                    }
-                    if( (pIndex % 2) == 0) {
-                        wr.out('<tr >' false)
-                    } {
-                        wr.out('<tr>' false)
-                    }
-                    wr.indent(1)
-                    node.children.forEach({
-                        if(index > 0 ) {
-                            wr.out('<td>' false)
-                            this.WalkHTML( item ctx wr)
-                            wr.out('</td>' false)
-                        }
-                    })
-                    wr.newline()
-                    wr.indent(-1)
-                    wr.out('</tr>' false)                    
-                }
-                case "table" {
-                    wr.out('<table>' , false)                    
-                    wr.indent(1)
-                    def body (node.getSecond())
-                    body.children.forEach({
-                        this.WalkHTML(item ctx wr)
-                    })                                        
-                    wr.indent(-1)
-                    wr.out('</table>' true)
-                    wr.out("" true)
-
-                }
-                default {
-                    node.children.forEach({
-                        this.WalkHTML( item ctx wr)
-                    })
-                }
-            }
-        }
-    }
-
-    fn postprocess (root:CodeNode ctx:RangerAppWriterContext wr:CodeWriter) {
-        try {
-            def nodes (ctx.getPluginNodes("markdown"))
-            nodes.forEach({
-                def fileName (item.getSecond())
-                def fileContents (item.getThird())
-                def pageWriter (wr.getFileWriter("." (fileName.string_value )))
-                this.WalkHTML( fileContents ctx pageWriter )
-            })            
-            def nodes (ctx.getPluginNodes("md"))
-            nodes.forEach({
-                def fileName (item.getSecond())
-                def fileContents (item.getThird())
-                def pageWriter (wr.getFileWriter("." (fileName.string_value )))
-                this.WalkHTML( fileContents ctx pageWriter )
-            })            
-        } {
-            print (error_msg)
-        }
-    }
-}

package/compiler/feat2.bat

@@ -1,2 +0,0 @@
-call ranger-compiler -compiler
-call node bin\ng_Compiler.js feature_tests.clj -o=test.js -l=es6

package/compiler/feats.bat

@@ -1,9 +0,0 @@
-call ranger-compiler -compiler
-call node bin\ng_Compiler.js feature_tests.clj -o=test.scala -l=scala -scalafiddle
-call node bin\ng_Compiler.js feature_tests.clj -o=test.go -l=go 
-call node bin\ng_Compiler.js feature_tests.clj -o=test.php -l=php 
-call node bin\ng_Compiler.js feature_tests.clj -o=test.js -l=es6
-call node bin\ng_Compiler.js feature_tests.clj -o=test.java -l=java7
-
-call node bin\ng_Compiler.js feature_tests.clj -npm -nodemodule -d="bin/feats" -o=index.js -classdoc="README.md" 
-copy bin\feats\*.* ..\..\..\tools\feature-test

package/compiler/feature_tests.clj

@@ -1,192 +0,0 @@
-
-Import "JSON.clj"
-
-; enable default flags for the compiler
-flag defaults (
-    foobar 'the default foobar value'
-)
-
-flag npm (
-  name "ranger-feature-tests"
-  version "0.0.5"
-  description "NPM output test and a small language feature test case."
-  author "Tero Tolonen"
-  license "MIT"    
-)
-
-operators {
-    when_testing _:void ( code:block) @flags(test) {
-        templates {
-            * @macro(true) ( (block 1) )
-        }
-    }
-    when_testing _:void ( code:block) {
-        templates {
-            * ( "" )
-        }
-    }
-}
-
-union primitives (int string double)
-
-class childMsg @serialize(true) {
-    def msgName "childName"
-    def cnt      15
-}
-; @serialize(true)
-class serverMsg @serialize(true) {
-    def msgName "defaultname"
-    def cnt      5
-    def children:[childMsg]
-}
-
-class childObj {
-    def name "ok"
-}
-class mainObj {
-    def ch:childObj
-}
-
-class TestCase {
-
-    ; documentation for the class described here...
-
-    doc run 'Runs all the test cases
-
-Use it like
-```javascript
-const test = require("ranger-feature-tests").TestCase;
-(new test()).run()
-```    
-    '
-
-    fn helloToNode:string () {
-        return 'This is compiled result to hello node.js'
-    }
-
-    fn return_array:[string] () {
-        return ([] 'a' 'b' 'c' 'a' 'a' 'c' 'e' 'g')
-    }
-    fn return_int_array:[int] () {
-        return ([] 1 2 3 4 5 6 7 8 9 10)
-    }
-    fn return_argument:string (arg1:string) {
-        return arg1
-    }
-    fn fn_which_throws@(throws):void () {
-        throw "not handled exception!"
-    }
-    fn fn_which_throws2@(throws):void () {
-        throw "not handled exception!"
-    }
-    fn try_reading_json:boolean (str:string) {
-        try {
-            def obj (serverMsg.fromDictionary( (from_string str)))
-            print (to_string (obj.toDictionary()))
-        } {
-            print "-- invalid JSON"
-            return false
-        }
-        return true
-    }
-    fn try_catch_void_fn () {
-        print "-- entering a void function --- "
-        try {
-            print "do something"
-            throw "<exception>"
-        } {
-            print "catch fn... after this should return"
-            return
-        }
-        print "This line should not be visible"
-    }
-    fn run() {
-        def main (new mainObj)
-        try {
-            print main.ch.name
-        } {
-
-        }
-        
-        def obj (new TestCase)
-        try {
-            obj.fn_which_throws()
-        } {
-
-        }
-        def n 1 ; define integer 
-        print 'n = ' + n
-        print (obj.return_argument('first argument'))
-        def arr (obj.return_array())
-        arr.forEach({
-            print item
-        })
-        arr.forEach({
-            print "--- multiline lamda ---"
-            print item
-        })
-        print (get_option 'foobar')
-        if( has_option 'foobar') {
-            print ' - the option was given'
-        }
-        if( contains arr {
-            return (item == 'b') } ) {
-            print "Array contains b"
-        }
-        def item (find arr {
-            return (item == 'c')
-        })
-        if(!null? item ) {
-            print "did find item " + (unwrap item) 
-        }
-        def item (find arr {
-            return (item == 'd')
-        })
-        if(null? item ) {
-            print "did not find 'd'" 
-        }
-        print "Count of 'a' == " + (count arr {
-            return (item == 'a')
-        })
-
-        def msg (new serverMsg)
-        print msg.msgName
-        print "count : " + (msg.cnt)
-        push msg.children (new childMsg)
-        print (to_string (msg.toDictionary()))
-
-        print "--- reading serialized data ---- "
-
-        if( ( this.try_reading_json(  '{"msgName":"hallo!"}' ) ) ) {
-            print "JSON reading was success"
-        }
-
-        if( false == ( this.try_reading_json(  `{msgName:hallo!}` ) ) ) {
-            print 'JSON reading failed'
-        }
-
-        this.try_catch_void_fn()
-
-        when_testing {
-            print "If flag 'test' is enabled show this message"
-        }
-        
-        ; the line below should throw exception
-        ; def nn (from_string 'Good')
-
-        try {
-            ; the line below should throw exception
-            def nn (from_string 'Good')
-            ; --> these lines whould not be executed because of the exception
-            def i_val (getInt nn "cnt")
-            print "-> i_val == " + (unwrap i_val)
-        } {
-            print "--> got exception, like expected"
-        }
-
-    }
-    static fn main () {
-        def obj (new TestCase)
-        obj.run()
-    }
-}