8bitworkshop/gen/basic-TCPQRNE5.js.map

{
  "version": 3,
  "sources": ["../src/common/basic/runtime.ts", "../src/platform/basic.ts"],
  "sourcesContent": ["\nimport * as basic from \"./compiler\";\nimport { EmuHalt } from \"../emu\";\nimport { SourceLocation } from \"../workertypes\";\nimport { isArray } from \"../util\";\n\nfunction isLiteral(arg: basic.Expr): arg is basic.Literal {\n    return (arg as any).value != null;\n}\nfunction isLookup(arg: basic.Expr): arg is basic.IndOp {\n    return (arg as any).name != null;\n}\nfunction isBinOp(arg: basic.Expr): arg is basic.BinOp {\n    return (arg as any).op != null && (arg as any).left != null && (arg as any).right != null;\n}\nfunction isUnOp(arg: basic.Expr): arg is basic.UnOp {\n    return (arg as any).op != null && (arg as any).expr != null;\n}\n\nexport interface InputResponse {\n    line: string;\n    vals: string[];\n    elapsed?: number;\n}\n\n// expr2js() options\nclass ExprOptions {\n    isconst?: boolean;      // only allow constant operations\n    novalid?: boolean;      // check for valid values when fetching\n    locals?: string[];      // pass local variable names when defining functions\n}\n\ninterface CompiledStatement {\n    $run?: () => void;\n}\n\nclass RNG {\n    next : () => number;\n    seed : (aa,bb,cc,dd) => void;\n    seedfloat : (n) => void;\n    randomize() {\n        this.seed(Math.random()*0x7fffffff, Math.random()*0x7fffffff, Math.random()*0x7fffffff, Math.random()*0x7fffffff);\n    }\n    constructor() {\n        let f = () => {\n            var a, b, c, d : number;\n            this.seed = function(aa,bb,cc,dd) {\n                a = aa; b = bb; c = cc; d = dd;\n            }\n            this.seedfloat = function(n) {\n                this.seed(n, n*4294, n*429496, n*4294967296);\n                this.next(); this.next(); this.next();\n            }\n            this.next = function() {\n                // sfc32\n                a >>>= 0; b >>>= 0; c >>>= 0; d >>>= 0; \n                var t = (a + b) | 0;\n                a = b ^ b >>> 9;\n                b = c + (c << 3) | 0;\n                c = (c << 21 | c >>> 11);\n                d = d + 1 | 0;\n                t = t + d | 0;\n                c = c + t | 0;\n                return (t >>> 0) / 4294967296;\n            }\n        };\n        f();\n        this.seedfloat(-1);\n    }\n};\n\nconst DEFAULT_MAX_ARRAY_ELEMENTS = 1024*1024;\n\nexport class BASICRuntime {\n\n    program : basic.BASICProgram;\n    allstmts : basic.Statement[];\n    pc2label : Map<number,string>;\n    label2pc : {[label : string] : number};\n    label2dataptr : {[label : string] : number};\n    datums : basic.Literal[];\n    builtins : {};\n    opts : basic.BASICOptions;\n    margin : number = 80; // number of columns\n\n    curpc : number;\n    dataptr : number;\n    vars : {[name:string] : any}; // actually Value, but += doesn't work\n    globals : {[name:string] : any};\n    arrays : {};\n    defs : {};\n    subroutines : {};\n    forLoops : { [varname:string] : { $next:(name:string) => void } };\n    forLoopStack: string[];\n    whileLoops : number[];\n    returnStack : number[];\n    column : number;\n    rng : RNG;\n\n    running : boolean = false;\n    exited : boolean = true;\n    trace : boolean = false;\n\n    load(program: basic.BASICProgram) : boolean {\n        // get previous label and offset for hot reload\n        let prevlabel = null;\n        let prevpcofs = 0;\n        if (this.pc2label != null) {\n            let pc = this.curpc;\n            while (pc > 0 && (prevlabel = this.pc2label.get(pc)) == null) {\n                pc--;\n            }\n            prevpcofs = this.curpc - pc;\n            console.log('oldpc=', this.curpc, 'restart @ label', prevlabel, '+', prevpcofs);\n        }\n        // initialize program\n        this.program = program;\n        this.opts = program.opts;\n        if (!this.opts.maxArrayElements) this.opts.maxArrayElements = DEFAULT_MAX_ARRAY_ELEMENTS;\n        this.allstmts = program.stmts;\n        this.label2pc = program.labels;\n        this.label2dataptr = {};\n        this.pc2label = new Map();\n        this.datums = [];\n        this.subroutines = {};\n        this.builtins = this.get
  "mappings": "mUAMA,WAAmB,EAAuC,CACtD,MAAQ,GAAY,OAAS,KAEjC,WAAkB,EAAqC,CACnD,MAAQ,GAAY,MAAQ,KAEhC,WAAiB,EAAqC,CAClD,MAAQ,GAAY,IAAM,MAAS,EAAY,MAAQ,MAAS,EAAY,OAAS,KAEzF,WAAgB,EAAoC,CAChD,MAAQ,GAAY,IAAM,MAAS,EAAY,MAAQ,KAoB3D,WAAU,CAIN,WAAY,CACR,KAAK,KAAK,KAAK,SAAS,WAAY,KAAK,SAAS,WAAY,KAAK,SAAS,WAAY,KAAK,SAAS,YAE1G,aAAc,CAuBV,AAtBQ,KAAM,CACV,GAAI,GAAG,EAAG,EAAG,EACb,KAAK,KAAO,SAAS,EAAG,EAAG,EAAG,EAAI,CAC9B,EAAI,EAAI,EAAI,EAAI,EAAI,EAAI,EAAI,GAEhC,KAAK,UAAY,SAAS,EAAG,CACzB,KAAK,KAAK,EAAG,EAAE,KAAM,EAAE,OAAQ,EAAE,YACjC,KAAK,OAAQ,KAAK,OAAQ,KAAK,QAEnC,KAAK,KAAO,UAAW,CAEnB,KAAO,EAAG,KAAO,EAAG,KAAO,EAAG,KAAO,EACrC,GAAI,GAAK,EAAI,EAAK,EAClB,SAAI,EAAI,IAAM,EACd,EAAI,EAAK,IAAK,GAAK,EACnB,EAAK,GAAK,GAAK,IAAM,GACrB,EAAI,EAAI,EAAI,EACZ,EAAI,EAAI,EAAI,EACZ,EAAI,EAAI,EAAI,EACJ,KAAM,GAAK,gBAI3B,KAAK,UAAU,MAIjB,EAA6B,KAAK,KAEjC,OAAmB,CAAnB,aAzEP,CAmFI,YAAkB,GAgBlB,aAAoB,GACpB,YAAmB,GACnB,WAAkB,GAElB,KAAK,EAAuC,CAExC,GAAI,GAAY,KACZ,EAAY,EAChB,GAAI,KAAK,UAAY,KAAM,CACvB,GAAI,GAAK,KAAK,MACd,KAAO,EAAK,GAAM,GAAY,KAAK,SAAS,IAAI,KAAQ,MACpD,IAEJ,EAAY,KAAK,MAAQ,EACzB,QAAQ,IAAI,SAAU,KAAK,MAAO,kBAAmB,EAAW,IAAK,GAGzE,KAAK,QAAU,EACf,KAAK,KAAO,EAAQ,KACf,KAAK,KAAK,kBAAkB,MAAK,KAAK,iBAAmB,GAC9D,KAAK,SAAW,EAAQ,MACxB,KAAK,SAAW,EAAQ,OACxB,KAAK,cAAgB,GACrB,KAAK,SAAW,GAAI,KACpB,KAAK,OAAS,GACd,KAAK,YAAc,GACnB,KAAK,SAAW,KAAK,sBAGrB,OAAS,KAAS,GAAQ,OAAQ,CAC9B,GAAI,GAAW,EAAQ,OAAO,GAC9B,KAAK,SAAS,IAAI,EAAU,GAiBhC,MAdA,MAAK,SAAS,QAAQ,CAAC,EAAM,IAAO,CAEhC,KAAK,MAAQ,EAAK,EAClB,KAAK,iBAAiB,GAElB,EAAK,SAAW,QAChB,MAAK,cAAc,EAAK,KAAK,OAAS,KAAK,OAAO,OACjD,EAA8B,OAAO,QAAQ,GAAS,CACnD,KAAK,MAAQ,EAAK,KAAK,OACvB,KAAK,OAAO,KAAK,QAKzB,KAAK,SAAS,IAAc,KAC5B,MAAK,MAAQ,KAAK,SAAS,GAAa,EACjC,IAEP,MAAK,MAAQ,EACN,IAIf,OAAQ,CACJ,KAAK,MAAQ,EACb,KAAK,QAAU,EACf,KAAK,YACL,KAAK,YAAc,GACnB,KAAK,OAAS,EACd,KAAK,QAAU,GACf,KAAK,OAAS,GAElB,WAAY,CACR,KAAK,QAAU,KAAK,KAAO,GAC3B,KAAK,OAAS,GACd,KAAK,KAAO,GACZ,KAAK,SAAW,GAChB,KAAK,aAAe,GACpB,KAAK,WAAa,GAClB,KAAK,IAAM,GAAI,GAEX,KAAK,MAAQ,KAAK,KAAK,cACvB,KAAK,SAAS,OAAO,AAAC,GAAS,EAAK,SAAW,OAAO,QAAQ,AAAC,GAAiC,CAC5F,EAAQ,KAAK,QAAS,AAAC,GAAQ,KAAK,UAAU,KAAK,KAAK,SAMpE,WAAY,CAER,MAAO,GAAE,OAAO,GAAM,GAAI,MAE9B,UAAU,EAAO,CACb,EAAE,OAAO,GAAM,KAAM,GAGzB,qBAAsB,CAClB,GAAI,GAAS,KAAK,SAAW,KAAK,KAAK,eAEvC,AAAK,GAAQ,GAAS,OAAO,oBAAoB,EAAa,WAAW,OAAO,AAAC,GAAS,kBAAkB,KAAK,KACjH,GAAI,GAAO,GACX,OAAS,KAAM,GAAQ,AAAI,KAAK,iBAAiB,IAAK,GAAK,GAAM,KAAK,GAAI,KAAK,OAC/E,MAAO,GAEX,iBAAiB,EAAgB,CAC7B,MAAO,OAAO,MAAK,IAAY,WAGnC,aAAa,EAAc,CACvB,WAAK,QACC,GAAI,GAAQ,EAAK,KAAK,4BAGhC,aAAa,EAAe,CACxB,KAAK,aAAa,WAAW,+BAGjC,aAAa,EAAW,CACpB,GAAI,GAAO,KAAK,SAAS,GACzB,MAAO,IAAQ,EAAK,MAAQ,EAAK,KAAK,KAG1C,cAAc,EAAW,CACrB,GAAI,GAAO,KAAK,SAAS,GACzB,MAAO,IAAQ,EAAK,MAAQ,EAAK,KAAK,MAG1C,0BAA4C,CACxC,GAAI,GAAO,KAAK,eAChB,MAAO,IAAQ,EAAK,KAGxB,iBAA2B,CACvB,GAAI,GAAM,KAAK,2BACf,MAAO,IAAO,EAAI,MAGtB,cAAe,CACX,MAAO,MAAK,SAAS,KAAK,OAG9B,MAAiB,CACb,GAAI,CAAC,KAAK,QAAS,MAAO,GAC1B,GAAI,GAAO,KAAK,eAEhB,MAAK,GAKD,MAAK,OAAO,QAAQ,IAAI,KAAK,MAAO,EAAM,KAAK,KAAM,OAAO,KAAK,KAAK,SAE1E,KAAK,QAEL,KAAK,iBAAiB,GACf,KAAK,SATR,MAAK,QAAU,GACf,KAAK,OAAS,GACP,IAUf,iBAAiB,EAA2C,CACxD,GAAI,EAAK,MAAQ,KACb,GAAI,CACA,GAAI,GAAS,KAAK,OAAS,EAAK,SAChC,AAAI,GAAU,MAAM,KAAK,aAAa,wBAAwB,EAAK,aACnE,GAAI,GAAW,EAAO,KAAK,MAAM,GACjC,AAAI,KAAK,OAAO,QAAQ,IAAI,GAC5B,EAAK,KAAO,KAAK,UAAU,SACtB,EAAP,CACE,KAAI,IAAU,QAAQ,IAAI,GACpB,GAIlB,UAAU,EAA+B,CACrC,MAAO,IAAI,UAAS,GAAU,KAAK,MAEvC,iBAAiB,EAA2C,CAExD,KAAK,iBAAiB,GAEtB,EAAK,OAIT,WAAY,CACR,EACI,MAAK,cACA,KAAK,MAAQ,KAAK,SAAS,QAAU,CAAC,KAAK,SAAS,IAAI,KAAK,QAG1E,YAAa,CACT,KAAO,KAAK,MAAQ,KAAK,SAAS,QAAQ,CAGtC,GAAI,GAAM,KAAK,SAAS,KAAK,OAAO,QACpC,GAAI,GAAO,OAAQ,CAAE,KAAK,QAAS,cAC1B,GAAO,KAAM,MAAO,MAAK,YAElC,GADA,KAAK,QACD,KAAK,SAAS,IAAI,KAAK,OACvB,OAIZ,WAAY,CACR,KAAK,MAAQ,KAAK,SAAS,OAG/B,gBAAgB,EAAwB,CAEpC,OADI,GAAK,KAAK,MACP,EAAK,KAAK,SAAS,QAAQ,CAC9B,GAAI,GAAO,KAAK,SAAS,GACzB,GAAI,EAAK,SAAW,OAAQ,CACxB,GAAI,GAAa,EAA8B,MAC/C,GAAI,GAAa,EAAU,MAAQ,EAAS,CACxC,KAAK,MAAQ,EAAK,EAClB,QAGR,IAEJ,KAAK,aAAa,mCAAmC,4BAGzD,iBAAkB,CAGd,OAFI,GAAK,KAAK,MAAQ,EAClB,EAAU,EACP,EAAK,KAAK,SAAS,QAAQ,CAC9B,GAAI,GAAO,KAAK,SAAS,GAEzB,GAAI,EAAK,SAAW,QAChB,YACO,EAAK,SAAW,QACvB,KACI,GAAW,GAAG,CACd,KAAK,MAAQ,EAAK,EAClB,OAGR,IAEJ,KAAK,aAAa,mDAGtB
  "names": []
}