[Parser] Roughly support V8 native syntax

Author: DaramG

src/AST/Parser.fs

@@ -4,7 +4,7 @@ open System
 open Common.Utils
 open Common.Executor
 
-let parseAll jsonDir saveDir =
+let parseAll engine jsonDir saveDir =
   let path = Reflection.Assembly.GetAssembly(typeof<Program>).Location
   let js = (getDirName path) +/ "Parser.js"
-  execNodeJs js (jsonDir + " " + saveDir)
+  execNodeJs js (engine + " " + jsonDir + " " + saveDir)

src/AST/Parser.js

@@ -3,36 +3,49 @@ const fs = require('fs');
 const path = require('path');
 const print = console.log;
 const exit = process.exit;
+const PRE = "CodeAlchemist_V8Native"
+const RE = new RegExp (PRE, "g");
 
-function parse(fname){
+function resolveV8Native (src) {
+    src = src.replace(/%[a-zA-Z]+/g, function(src){ return PRE + src.slice(1)});
+    return esprima.parse(src);
+}
+
+function parse(fname, isV8){
     try{
-        var str = fs.readFileSync(fname, 'utf8');
-        return esprima.parse(str);
+        var src = fs.readFileSync(fname, 'utf8');
+        return esprima.parse(src);
     }catch(e){
-        print(fname + ' : parse error! ' + e);
+        if (isV8) {
+            try { return resolveV8Native (src) }
+            catch (e) { print (fname + ' : parse error! ' + e); }
+        } else print(fname + ' : parse error! ' + e);
     }
 }
 
-function astToJson(ast){
+function astToJson(ast, isV8){
     try{
         var ret = JSON.stringify(ast, null, 2);
     }catch(e){
         print('astsToJson error!');
     }
+    if (isV8 && ret) ret = ret.replace(RE, "%")
     return ret
 }
 
-function listdir(dir){
+function listDir(dir){
   return fs.readdirSync(dir)
 }
 
 function main(){
-  var js_dir = process.argv[2];
-  var json_dir = process.argv[3];
-  var js_files = listdir(js_dir);
+  var engine = process.argv[2];
+  var isV8 = (engine === "V8");
+  var js_dir = process.argv[3];
+  var json_dir = process.argv[4];
+  var js_files = listDir(js_dir);
   for (let name of js_files){
     if(name.endsWith('.js')){
-      let json = astToJson(parse(path.join(js_dir, name)));
+      let json = astToJson(parse(path.join(js_dir, name), isV8), isV8);
       if(json !== undefined){
         fs.writeFileSync(path.join(json_dir, name), json);
       }

src/Main/Preprocess.fs

@@ -11,7 +11,7 @@ open Analyzer.Instrument
 let parseSeed conf =
   let jsonDir = conf.PreprocDir +/ "json"
   if existDir jsonDir then ()
-  else mkDir jsonDir |> parseAll conf.SeedDir
+  else mkDir jsonDir |> parseAll (Conf.engineToStr conf.Engine) conf.SeedDir
   loads jsonDir
 
 let rewrite rewriteDir loader ctx (name, ast) = async {