freelang-editor 11.7.4

package/self/codegen.self.js

@@ -0,0 +1,75 @@
+const _fl_str = (...xs) => xs.map(x => x==null?'null':String(x)).join('');const _fl_length = (x) => (x==null ? 0 : x.length);const _fl_substring = (s, a, b) => (b==null ? s.slice(a) : s.slice(a, b));const _fl_char_at = (s, i) => (s[i] || null);const _fl_replace = (s, a, b) => s.split(a).join(b);const _fl_starts_with = (s, p) => s.startsWith(p);const _fl_ends_with = (s, p) => s.endsWith(p);const _fl_contains = (s, p) => s.includes(p);const _fl_split = (s, sep) => s.split(sep);const _fl_join = (l, sep) => l.join(sep==null?'':sep);const _fl_trim = (s) => s.trim();const _fl_upper = (s) => s.toUpperCase();const _fl_lower = (s) => s.toLowerCase();const _fl_repeat = (s, n) => s.repeat(n);const _fl_index_of = (s, p) => s.indexOf(p);const _fl_first = (l) => (l==null || l.length===0 ? null : l[0]);const _fl_last = (l) => (l==null || l.length===0 ? null : l[l.length-1]);const _fl_rest = (l) => (l==null || l.length===0 ? [] : l.slice(1));const _fl_append = (a, b) => (Array.isArray(b) ? [...a, ...b] : [...a, b]);const _fl_slice = (l, a, b) => l.slice(a, b);const _fl_map = (f, l) => l.map(x => f(x));const _fl_filter = (f, l) => l.filter(x => f(x));const _fl_reduce = (f, init, l) => l.reduce((acc, x) => f(acc, x), init);const _fl_find = (f, l) => (l.find(x => f(x)) ?? null);const _fl_every = (f, l) => l.every(x => f(x));const _fl_some = (f, l) => l.some(x => f(x));const _fl_sort = (l, cmp) => [...l].sort(cmp || ((a,b)=>a<b?-1:a>b?1:0));const _fl_reverse = (l) => [...l].reverse();const _fl_flatten = (l) => l.flat(Infinity);const _fl_distinct = (l) => [...new Set(l)];const _fl_range = (a, b, s) => { let r=[]; let step=s||1; for(let i=a;i<b;i+=step)r.push(i); return r; };const _fl_take = (n, l) => l.slice(0, n);const _fl_drop = (n, l) => l.slice(n);const _fl_get = (o, k) => (o==null ? null : (o[k]===undefined ? null : o[k]));const _fl_keys = (o) => (o==null ? [] : Object.keys(o));const _fl_values = (o) => (o==null ? [] : Object.values(o));const _fl_entries = (o) => (o==null ? [] : Object.entries(o).map(([k,v])=>[k,v]));const _fl_has_key = (o, k) => (o!=null && k in o);const _fl_map_set = (o, k, v) => ({...o, [k]: v});const _fl_map_delete = (o, k) => { const c={...o}; delete c[k]; return c; };const _fl_merge = (...os) => Object.assign({}, ...os);const _fl_is_map = (x) => (x!=null && typeof x==='object' && !Array.isArray(x));const _fl_type_of = (x) => (x==null?'null':Array.isArray(x)?'list':typeof x);const _fl_file_read = (p) => require('fs').readFileSync(p, 'utf8');const _fl_file_write = (p, c) => require('fs').writeFileSync(p, c);const _fl_file_exists = (p) => require('fs').existsSync(p);const _fl_shell_capture = (cmd) => { try { const {execSync}=require('child_process'); return {stdout:execSync(cmd,{encoding:'utf8'}),stderr:'',code:0}; } catch(e) { return {stdout:'',stderr:String(e),code:1}; } };const _fl_empty_q = (x) => (x==null || x.length===0);const __argv__ = process.argv.slice(2);
+const js_esc = (s)=>((()=>{let a=_fl_replace(s,"\\","\\\\");let b=_fl_replace(a,"\"","\\\"");let c=_fl_replace(b,"\n","\\n");let d=_fl_replace(c,"\r","\\r");let e=_fl_replace(d,"\t","\\t");return _fl_str("\"",e,"\"");})());;
+const js_reserved_q = (n)=>((n==="default")||(n==="class")||(n==="const")||(n==="let")||(n==="if")||(n==="else")||(n==="switch")||(n==="case")||(n==="break")||(n==="continue")||(n==="for")||(n==="while")||(n==="function")||(n==="return")||(n==="throw")||(n==="try")||(n==="catch")||(n==="new")||(n==="delete")||(n==="typeof")||(n==="instanceof")||(n==="var")||(n==="in")||(n==="of")||(n==="this")||(n==="super")||(n==="void")||(n==="yield")||(n==="async")||(n==="await")||(n==="import")||(n==="export")||(n==="enum")||(n==="do")||(n==="with")||(n==="finally")||(n==="null")||(n==="true")||(n==="false"));;
+const js_name = (n)=>((n==null)?"_":((()=>{let a=_fl_replace(n,"-","_");let b=_fl_replace(a,"?","_q");let c=_fl_replace(b,"!","_x");let d=_fl_replace(c,">","_gt");let e=_fl_replace(d,"<","_lt");let f=_fl_replace(e,"*","_st");let g=_fl_replace(f,"+","_pl");return (js_reserved_q(g)?_fl_str(g,"_"):g);})()));;
+const cg = (n)=>((n==null)?"null":((_fl_get(n,"kind")==="literal")?cg_literal(n):((_fl_get(n,"kind")==="variable")?js_name(_fl_get(n,"name")):((_fl_get(n,"kind")==="sexpr")?cg_sexpr(n):((_fl_get(n,"kind")==="block")?cg_block(n):((_fl_get(n,"kind")==="pattern-match")?cg_match(n):(true?"null":null)))))));;
+const cg_literal = (n)=>((()=>{let t=_fl_get(n,"type");let v=_fl_get(n,"value");return ((t==="number")?v:((t==="string")?js_esc(v):((t==="boolean")?(v?"true":"false"):((t==="symbol")?((v==="true")?"true":((v==="false")?"false":((v==="null")?"null":(true?js_name(v):null)))):(true?"null":null)))));})());;
+const cg_block = (n)=>((()=>{let t=_fl_get(n,"type");return ((t==="Array")?_fl_str("[",cg_args(_fl_get(_fl_get(n,"fields"),"items")),"]"):((t==="FUNC")?cg_func_block(n):(true?"null":null)));})());;
+const cg_func_block = (n)=>((()=>{let name=js_name(_fl_get(n,"name"));let fields=_fl_get(n,"fields");let pnode=_fl_get(fields,"params");let body=_fl_get(fields,"body");let pitems=((pnode==null)?[]:_fl_get(_fl_get(pnode,"fields"),"items"));let ps=extract_params(pitems);return _fl_str("const ",name," = (",ps,")=>",cg(body),";");})());;
+const cg_if = (args)=>_fl_str("(",cg(_fl_get(args,0)),"?",cg(_fl_get(args,1)),":",((_fl_length(args)>=3)?cg(_fl_get(args,2)):"null"),")");;
+const cg_fn = (args)=>((()=>{let pnode=_fl_get(args,0);let body=_fl_get(args,1);let ps=extract_params(_fl_get(_fl_get(pnode,"fields"),"items"));return _fl_str("((",ps,")=>",cg(body),")");})());;
+const cg_defn = (args)=>((()=>{let name_n=_fl_get(args,0);let pnode=_fl_get(args,1);let body=_fl_get(args,2);let name=extract_name(name_n);let ps=extract_params(_fl_get(_fl_get(pnode,"fields"),"items"));return _fl_str("const ",name," = (",ps,")=>",cg(body));})());;
+const cg_define = (args)=>((_fl_length(args)===2)?_fl_str("const ",extract_name(_fl_get(args,0))," = ",cg(_fl_get(args,1))):cg_defn(args));;
+const cg_let = (args)=>((()=>{let bnode=_fl_get(args,0);let items=_fl_get(_fl_get(bnode,"fields"),"items");let first_item=((items==null)?null:_fl_get(items,0));let nested=((first_item==null)?false:((_fl_get(first_item,"kind")==="block")&&(_fl_get(first_item,"type")==="Array")));let bindings=(nested?cg_let_2d(items,0,""):cg_let_1d(items,0,""));let body_args=_fl_slice(args,1,_fl_length(args));let body_js=cg_do_body(body_args,0,"");return _fl_str("((()=>{",bindings,body_js,"})())");})());;
+const cg_let_1d = (items,i,acc)=>((i>=_fl_length(items))?acc:((()=>{let k_n=_fl_get(items,i);let v_n=_fl_get(items,(i+1));let name=extract_name(k_n);let val=cg(v_n);return cg_let_1d(items,(i+2),_fl_str(acc,"let ",name,"=",val,";"));})()));;
+const cg_let_2d = (items,i,acc)=>((i>=_fl_length(items))?acc:((()=>{let pair=_fl_get(items,i);let pitems=_fl_get(_fl_get(pair,"fields"),"items");let k_n=_fl_get(pitems,0);let v_n=_fl_get(pitems,1);let name=extract_name(k_n);let val=cg(v_n);return cg_let_2d(items,(i+1),_fl_str(acc,"let ",name,"=",val,";"));})()));;
+const cg_do = (args)=>((_fl_length(args)===0)?"null":_fl_str("(()=>{",cg_do_body(args,0,""),"})()"));;
+const cg_do_body = (args,i,acc)=>((i>=_fl_length(args))?acc:((()=>{let last=(i===(_fl_length(args)-1));let c=cg(_fl_get(args,i));let sep=(last?"return ":"");return cg_do_body(args,(i+1),_fl_str(acc,sep,c,";"));})()));;
+const cg_cond = (args)=>cg_cond_loop(args,0);;
+const cg_cond_loop = (args,i)=>((i>=_fl_length(args))?"null":((()=>{let clause=_fl_get(args,i);let citems=_fl_get(_fl_get(clause,"fields"),"items");let test=cg(_fl_get(citems,0));let result=cg(_fl_get(citems,1));let rest=cg_cond_loop(args,(i+1));return _fl_str("(",test,"?",result,":",rest,")");})()));;
+const cg_and = (args)=>((_fl_length(args)===0)?"true":_fl_str("(",and_loop(args,0,""),")"));;
+const and_loop = (args,i,acc)=>((i>=_fl_length(args))?acc:((()=>{let c=_fl_str(cg(_fl_get(args,i)));return and_loop(args,(i+1),((i===0)?c:_fl_str(acc,"&&",c)));})()));;
+const cg_or = (args)=>((_fl_length(args)===0)?"false":_fl_str("(",or_loop(args,0,""),")"));;
+const or_loop = (args,i,acc)=>((i>=_fl_length(args))?acc:((()=>{let c=_fl_str(cg(_fl_get(args,i)));return or_loop(args,(i+1),((i===0)?c:_fl_str(acc,"||",c)));})()));;
+const cg_quote = (args)=>((_fl_length(args)===0)?"null":js_esc(_fl_str(cg(_fl_get(args,0)))));;
+const cg_set_x = (args)=>_fl_str("(",extract_name(_fl_get(args,0)),"=",cg(_fl_get(args,1)),")");;
+const cg_throw = (args)=>((()=>{let m=((_fl_length(args)===0)?"\"error\"":cg(_fl_get(args,0)));return _fl_str("(()=>{throw new Error(String(",m,"))})()");})());;
+const cg_try = (args)=>((()=>{let body=cg(_fl_get(args,0));let catch_node=((_fl_length(args)>=2)?_fl_get(args,1):null);let catch_info=((catch_node==null)?null:extract_catch(catch_node));let evar=((catch_info==null)?"_err":_fl_get(catch_info,"evar"));let ebody=((catch_info==null)?"null":_fl_get(catch_info,"ebody"));return _fl_str("(()=>{try{return ",body,";}catch(",evar,"){return ",ebody,";}})()");})());;
+const extract_catch = (n)=>((()=>{let args=_fl_get(n,"args");let ev=extract_name(_fl_get(args,0));let handler=cg(_fl_get(args,1));return null;})());;
+const cg_while = (args)=>((()=>{let cond=cg(_fl_get(args,0));let body_args=_fl_slice(args,1,_fl_length(args));let body=while_body(body_args,0,"");return _fl_str("(()=>{while(",cond,"){",body,"}})()");})());;
+const while_body = (args,i,acc)=>((i>=_fl_length(args))?acc:while_body(args,(i+1),_fl_str(acc,cg(_fl_get(args,i)),";")));;
+const cg_loop = (args)=>((()=>{let bnode=_fl_get(args,0);let items=_fl_get(_fl_get(bnode,"fields"),"items");let first=((items==null)?null:_fl_get(items,0));let nested=((first==null)?false:((_fl_get(first,"kind")==="block")&&(_fl_get(first,"type")==="Array")));let bindings=(nested?loop_inits_2d(items,0,""):loop_inits_1d(items,0,""));let names=(nested?loop_names_2d(items,0,""):loop_names_1d(items,0,""));let body_args=_fl_slice(args,1,_fl_length(args));let body_js=cg_do_body(body_args,0,"");return _fl_str("((()=>{",bindings,"while(true){let __r=(()=>{",body_js,"})();","if(__r&&__r.__recur){[",names,"]=__r.a;continue;}","return __r;}})())");})());;
+const loop_inits_1d = (items,i,acc)=>((i>=_fl_length(items))?acc:((()=>{let k=_fl_get(items,i);let v=_fl_get(items,(i+1));return loop_inits_1d(items,(i+2),_fl_str(acc,"let ",extract_name(k),"=",cg(v),";"));})()));;
+const loop_inits_2d = (items,i,acc)=>((i>=_fl_length(items))?acc:((()=>{let pair=_fl_get(items,i);let pit=_fl_get(_fl_get(pair,"fields"),"items");return loop_inits_2d(items,(i+1),_fl_str(acc,"let ",extract_name(_fl_get(pit,0)),"=",cg(_fl_get(pit,1)),";"));})()));;
+const loop_names_1d = (items,i,acc)=>((i>=_fl_length(items))?acc:((()=>{let k=_fl_get(items,i);let n=extract_name(k);return loop_names_1d(items,(i+2),((_fl_length(acc)===0)?n:_fl_str(acc,",",n)));})()));;
+const loop_names_2d = (items,i,acc)=>((i>=_fl_length(items))?acc:((()=>{let pair=_fl_get(items,i);let pit=_fl_get(_fl_get(pair,"fields"),"items");let n=extract_name(_fl_get(pit,0));return loop_names_2d(items,(i+1),((_fl_length(acc)===0)?n:_fl_str(acc,",",n)));})()));;
+const cg_recur = (args)=>_fl_str("{__recur:true,a:[",cg_args(args),"]}");;
+const cg_match = (n)=>((()=>{let val=cg(_fl_get(n,"value"));let cases=_fl_get(n,"cases");let default_n=_fl_get(n,"defaultCase");let default_=((default_n==null)?"null":cg(default_n));let cases_js=match_cases_loop(cases,0,"");return _fl_str("((__v)=>{",cases_js,"return ",default_,";})(",val,")");})());;
+const match_cases_loop = (cases,i,acc)=>((i>=_fl_length(cases))?acc:((()=>{let c=_fl_get(cases,i);let pat=_fl_get(c,"pattern");let body=cg(_fl_get(c,"body"));let guard_n=_fl_get(c,"guard");let test=pattern_test(pat,"__v");let bind=pattern_bindings(pat,"__v");let guard_js=((guard_n==null)?"true":cg(guard_n));let inner=((guard_n==null)?_fl_str(bind,"return ",body,";"):_fl_str(bind,"if(",guard_js,"){return ",body,";}"));return match_cases_loop(cases,(i+1),_fl_str(acc,"if(",test,"){",inner,"}"));})()));;
+const pattern_test = (pat,v)=>((()=>{let k=_fl_get(pat,"kind");return ((k==="wildcard-pattern")?"true":((k==="variable-pattern")?"true":((k==="literal-pattern")?_fl_str("(",v,"===",literal_to_js(_fl_get(pat,"type"),_fl_get(pat,"value")),")"):((k==="or-pattern")?or_pattern_test(_fl_get(pat,"patterns"),v,0,""):((k==="range-pattern")?_fl_str("(",v,">=",_fl_get(pat,"min"),"&&",v,"<=",_fl_get(pat,"max"),")"):(true?"false":null))))));})());;
+const literal_to_js = (t,v)=>((t==="number")?v:((t==="string")?js_esc(v):((t==="symbol")?((v==="true")?"true":((v==="false")?"false":((v==="null")?"null":(true?js_esc(v):null)))):(true?"null":null))));;
+const or_pattern_test = (pats,v,i,acc)=>((i>=_fl_length(pats))?((_fl_length(acc)===0)?"false":_fl_str("(",acc,")")):((()=>{let t=pattern_test(_fl_get(pats,i),v);return or_pattern_test(pats,v,(i+1),((_fl_length(acc)===0)?t:_fl_str(acc,"||",t)));})()));;
+const pattern_bindings = (pat,v)=>((()=>{let k=_fl_get(pat,"kind");return ((k==="variable-pattern")?_fl_str("let ",js_name(_fl_get(pat,"name")),"=",v,";"):(true?"":null));})());;
+const cg_compose = (args)=>_fl_str("((__x)=>",compose_nest(args,(_fl_length(args)-1),"__x"),")");;
+const compose_nest = (args,i,acc)=>((i<0)?acc:((()=>{let f=_fl_str(cg(_fl_get(args,i)));return compose_nest(args,(i-1),_fl_str(f,"(",acc,")"));})()));;
+const cg_pipe = (args)=>_fl_str("((__x)=>",pipe_nest(args,0,"__x"),")");;
+const pipe_nest = (args,i,acc)=>((i>=_fl_length(args))?acc:((()=>{let f=_fl_str(cg(_fl_get(args,i)));return pipe_nest(args,(i+1),_fl_str(f,"(",acc,")"));})()));;
+const cg_thread_first = (args)=>((()=>{let init=_fl_str(cg(_fl_get(args,0)));return thread_first_loop(args,1,init);})());;
+const thread_first_loop = (args,i,acc)=>((i>=_fl_length(args))?acc:thread_first_loop(args,(i+1),thread_apply(_fl_get(args,i),acc,true)));;
+const cg_thread_last = (args)=>((()=>{let init=_fl_str(cg(_fl_get(args,0)));return thread_last_loop(args,1,init);})());;
+const thread_last_loop = (args,i,acc)=>((i>=_fl_length(args))?acc:thread_last_loop(args,(i+1),thread_apply(_fl_get(args,i),acc,false)));;
+const thread_apply = (step,acc,fst)=>((_fl_get(step,"kind")==="sexpr")?((()=>{let op=js_name(_fl_get(step,"op"));let a=_fl_get(step,"args");return (fst?_fl_str(op,"(",acc,((_fl_length(a)===0)?"":_fl_str(",",cg_args(a))),")"):_fl_str(op,"(",((_fl_length(a)===0)?"":_fl_str(cg_args(a),",")),acc,")"));})()):(true?_fl_str(_fl_str(cg(step)),"(",acc,")"):null));;
+const cg_call_form = (args)=>((()=>{let fn=_fl_str(cg(_fl_get(args,0)));let rest=_fl_slice(args,1,_fl_length(args));return _fl_str(fn,"(",cg_args(rest),")");})());;
+const cg_async = (args)=>_fl_str("(async()=>{",cg_do_body(args,0,""),"})()");;
+const cg_await = (args)=>_fl_str("(await ",cg(_fl_get(args,0)),")");;
+const cg_defstruct = (args)=>((()=>{let name_n=_fl_get(args,0);let name=extract_name(name_n);let fields=_fl_slice(args,1,_fl_length(args));let params=struct_field_list(fields,0,"");let init=struct_init_list(fields,0,"");return _fl_str("const ",name," = (",params,")=>({__struct:\"",name,"\",",init,"})");})());;
+const struct_field_list = (fs,i,acc)=>((i>=_fl_length(fs))?acc:((()=>{let n=extract_name(_fl_get(fs,i));return struct_field_list(fs,(i+1),((_fl_length(acc)===0)?n:_fl_str(acc,",",n)));})()));;
+const struct_init_list = (fs,i,acc)=>((i>=_fl_length(fs))?acc:((()=>{let n=extract_name(_fl_get(fs,i));return struct_init_list(fs,(i+1),((_fl_length(acc)===0)?n:_fl_str(acc,",",n)));})()));;
+const cg_args = (args)=>args_loop(args,0,"");;
+const args_loop = (args,i,acc)=>((i>=_fl_length(args))?acc:((()=>{let c=_fl_str(cg(_fl_get(args,i)));return args_loop(args,(i+1),((i===0)?c:_fl_str(acc,",",c)));})()));;
+const cg_binop = (args,op,zero)=>((_fl_length(args)===0)?zero:((_fl_length(args)===1)?_fl_str(cg(_fl_get(args,0))):(true?_fl_str("(",binop_loop(args,0,"",op),")"):null)));;
+const binop_loop = (args,i,acc,op)=>((i>=_fl_length(args))?acc:((()=>{let c=_fl_str(cg(_fl_get(args,i)));return binop_loop(args,(i+1),((i===0)?c:_fl_str(acc,op,c)),op);})()));;
+const cg_pair = (args,op)=>_fl_str("(",cg(_fl_get(args,0)),op,cg(_fl_get(args,1)),")");;
+const cg_sub = (args)=>((_fl_length(args)===1)?_fl_str("(-",cg(_fl_get(args,0)),")"):_fl_str("(",cg(_fl_get(args,0)),"-",cg(_fl_get(args,1)),")"));;
+const extract_name = (n)=>((_fl_get(n,"kind")==="variable")?js_name(_fl_get(n,"name")):((_fl_get(n,"kind")==="literal")?js_name(_fl_get(n,"value")):(true?"_anon":null)));;
+const extract_params = (items)=>param_loop(items,0,"");;
+const param_loop = (items,i,acc)=>((items==null)?acc:((i>=_fl_length(items))?acc:((()=>{let name=extract_name(_fl_get(items,i));return param_loop(items,(i+1),((_fl_length(acc)===0)?name:_fl_str(acc,",",name)));})())));;
+const cg_native = (op,args)=>((()=>{let as=cg_args(args);return ((op==="str")?_fl_str("_fl_str(",as,")"):((op==="concat")?_fl_str("_fl_str(",as,")"):((op==="length")?_fl_str("_fl_length(",as,")"):((op==="substring")?_fl_str("_fl_substring(",as,")"):((op==="char-at")?_fl_str("_fl_char_at(",as,")"):((op==="replace")?_fl_str("_fl_replace(",as,")"):((op==="starts-with?")?_fl_str("_fl_starts_with(",as,")"):((op==="ends-with?")?_fl_str("_fl_ends_with(",as,")"):((op==="contains?")?_fl_str("_fl_contains(",as,")"):((op==="split")?_fl_str("_fl_split(",as,")"):((op==="join")?_fl_str("_fl_join(",as,")"):((op==="trim")?_fl_str("_fl_trim(",as,")"):((op==="upper")?_fl_str("_fl_upper(",as,")"):((op==="lower")?_fl_str("_fl_lower(",as,")"):((op==="repeat")?_fl_str("_fl_repeat(",as,")"):((op==="index-of")?_fl_str("_fl_index_of(",as,")"):((op==="first")?_fl_str("_fl_first(",as,")"):((op==="last")?_fl_str("_fl_last(",as,")"):((op==="rest")?_fl_str("_fl_rest(",as,")"):((op==="append")?_fl_str("_fl_append(",as,")"):((op==="slice")?_fl_str("_fl_slice(",as,")"):((op==="list")?_fl_str("[",as,"]"):((op==="map")?_fl_str("_fl_map(",as,")"):((op==="filter")?_fl_str("_fl_filter(",as,")"):((op==="reduce")?_fl_str("_fl_reduce(",as,")"):((op==="find")?_fl_str("_fl_find(",as,")"):((op==="every?")?_fl_str("_fl_every(",as,")"):((op==="some?")?_fl_str("_fl_some(",as,")"):((op==="sort")?_fl_str("_fl_sort(",as,")"):((op==="reverse")?_fl_str("_fl_reverse(",as,")"):((op==="flatten")?_fl_str("_fl_flatten(",as,")"):((op==="distinct")?_fl_str("_fl_distinct(",as,")"):((op==="range")?_fl_str("_fl_range(",as,")"):((op==="take")?_fl_str("_fl_take(",as,")"):((op==="drop")?_fl_str("_fl_drop(",as,")"):((op==="count")?_fl_str("_fl_length(",as,")"):((op==="get")?_fl_str("_fl_get(",as,")"):((op==="keys")?_fl_str("_fl_keys(",as,")"):((op==="values")?_fl_str("_fl_values(",as,")"):((op==="entries")?_fl_str("_fl_entries(",as,")"):((op==="has-key?")?_fl_str("_fl_has_key(",as,")"):((op==="map-set")?_fl_str("_fl_map_set(",as,")"):((op==="map-delete")?_fl_str("_fl_map_delete(",as,")"):((op==="merge")?_fl_str("_fl_merge(",as,")"):((op==="json_set")?_fl_str("_fl_map_set(",as,")"):((op==="json-parse")?_fl_str("JSON.parse(",as,")"):((op==="json-stringify")?_fl_str("JSON.stringify(",as,")"):((op==="json_parse")?_fl_str("JSON.parse(",as,")"):((op==="json_stringify")?_fl_str("JSON.stringify(",as,")"):((op==="null?")?_fl_str("(",as,"==null)"):((op==="not")?_fl_str("(!",as,")"):((op==="empty?")?_fl_str("_fl_empty_q(",as,")"):((op==="true?")?_fl_str("(",as,"===true)"):((op==="false?")?_fl_str("(",as,"===false)"):((op==="string?")?_fl_str("(typeof ",as,"===\"string\")"):((op==="number?")?_fl_str("(typeof ",as,"===\"number\")"):((op==="list?")?_fl_str("Array.isArray(",as,")"):((op==="map?")?_fl_str("_fl_is_map(",as,")"):((op==="fn?")?_fl_str("(typeof ",as,"===\"function\")"):((op==="boolean?")?_fl_str("(typeof ",as,"===\"boolean\")"):((op==="type-of")?_fl_str("_fl_type_of(",as,")"):((op==="min")?_fl_str("Math.min(",as,")"):((op==="max")?_fl_str("Math.max(",as,")"):((op==="abs")?_fl_str("Math.abs(",as,")"):((op==="sqrt")?_fl_str("Math.sqrt(",as,")"):((op==="pow")?_fl_str("Math.pow(",as,")"):((op==="floor")?_fl_str("Math.floor(",as,")"):((op==="ceil")?_fl_str("Math.ceil(",as,")"):((op==="round")?_fl_str("Math.round(",as,")"):((op==="mod")?cg_pair(args,"%"):((op==="neg")?_fl_str("(-",as,")"):((op==="sign")?_fl_str("Math.sign(",as,")"):((op==="random")?_fl_str("Math.random()"):((op==="log")?_fl_str("Math.log(",as,")"):((op==="exp")?_fl_str("Math.exp(",as,")"):((op==="sin")?_fl_str("Math.sin(",as,")"):((op==="cos")?_fl_str("Math.cos(",as,")"):((op==="str-to-num")?_fl_str("Number(",as,")"):((op==="num-to-str")?_fl_str("String(",as,")"):((op==="println")?_fl_str("console.log(",as,")"):((op==="print")?_fl_str("process.stdout.write(String(",as,"))"):((op==="file_read")?_fl_str("_fl_file_read(",as,")"):((op==="file_write")?_fl_str("_fl_file_write(",as,")"):((op==="file_exists")?_fl_str("_fl_file_exists(",as,")"):((op==="exit")?_fl_str("process.exit(",as,")"):((op==="shell_capture")?_fl_str("_fl_shell_capture(",as,")"):(true?cg_call(op,args):null)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))));})());;
+const cg_call = (op,args)=>((()=>{let fn_name=js_name(((_fl_char_at(op,0)==="$")?_fl_substring(op,1,_fl_length(op)):op));return _fl_str(fn_name,"(",cg_args(args),")");})());;
+const cg_sexpr = (n)=>((()=>{let op=_fl_get(n,"op");let args=_fl_get(n,"args");return ((op==="if")?cg_if(args):((op==="fn")?cg_fn(args):((op==="defn")?cg_defn(args):((op==="define")?cg_define(args):((op==="let")?cg_let(args):((op==="do")?cg_do(args):((op==="begin")?cg_do(args):((op==="cond")?cg_cond(args):((op==="and")?cg_and(args):((op==="or")?cg_or(args):((op==="quote")?cg_quote(args):((op==="set!")?cg_set_x(args):((op==="throw")?cg_throw(args):((op==="try")?cg_try(args):((op==="while")?cg_while(args):((op==="loop")?cg_loop(args):((op==="recur")?cg_recur(args):((op==="defstruct")?cg_defstruct(args):((op==="compose")?cg_compose(args):((op==="pipe")?cg_pipe(args):((op==="->")?cg_thread_first(args):((op==="->>")?cg_thread_last(args):((op==="|>")?cg_thread_first(args):((op==="call")?cg_call_form(args):((op==="async")?cg_async(args):((op==="await")?cg_await(args):((op==="+")?cg_binop(args,"+","0"):((op==="-")?cg_sub(args):((op==="*")?cg_binop(args,"*","1"):((op==="/")?cg_pair(args,"/"):((op==="%")?cg_pair(args,"%"):((op==="<")?cg_pair(args,"<"):((op===">")?cg_pair(args,">"):((op==="<=")?cg_pair(args,"<="):((op===">=")?cg_pair(args,">="):((op==="=")?cg_pair(args,"==="):((op==="!=")?cg_pair(args,"!=="):(true?cg_native(op,args):null))))))))))))))))))))))))))))))))))))));})());;
+const runtime_prelude = ()=>_fl_str("const _fl_str = (...xs) => xs.map(x => x==null?'null':String(x)).join('');","const _fl_length = (x) => (x==null ? 0 : x.length);","const _fl_substring = (s, a, b) => (b==null ? s.slice(a) : s.slice(a, b));","const _fl_char_at = (s, i) => (s[i] || null);","const _fl_replace = (s, a, b) => s.split(a).join(b);","const _fl_starts_with = (s, p) => s.startsWith(p);","const _fl_ends_with = (s, p) => s.endsWith(p);","const _fl_contains = (s, p) => s.includes(p);","const _fl_split = (s, sep) => s.split(sep);","const _fl_join = (l, sep) => l.join(sep==null?'':sep);","const _fl_trim = (s) => s.trim();","const _fl_upper = (s) => s.toUpperCase();","const _fl_lower = (s) => s.toLowerCase();","const _fl_repeat = (s, n) => s.repeat(n);","const _fl_index_of = (s, p) => s.indexOf(p);","const _fl_first = (l) => (l==null || l.length===0 ? null : l[0]);","const _fl_last = (l) => (l==null || l.length===0 ? null : l[l.length-1]);","const _fl_rest = (l) => (l==null || l.length===0 ? [] : l.slice(1));","const _fl_append = (a, b) => (Array.isArray(b) ? [...a, ...b] : [...a, b]);","const _fl_slice = (l, a, b) => l.slice(a, b);","const _fl_map = (f, l) => l.map(x => f(x));","const _fl_filter = (f, l) => l.filter(x => f(x));","const _fl_reduce = (f, init, l) => l.reduce((acc, x) => f(acc, x), init);","const _fl_find = (f, l) => (l.find(x => f(x)) ?? null);","const _fl_every = (f, l) => l.every(x => f(x));","const _fl_some = (f, l) => l.some(x => f(x));","const _fl_sort = (l, cmp) => [...l].sort(cmp || ((a,b)=>a<b?-1:a>b?1:0));","const _fl_reverse = (l) => [...l].reverse();","const _fl_flatten = (l) => l.flat(Infinity);","const _fl_distinct = (l) => [...new Set(l)];","const _fl_range = (a, b, s) => { let r=[]; let step=s||1; for(let i=a;i<b;i+=step)r.push(i); return r; };","const _fl_take = (n, l) => l.slice(0, n);","const _fl_drop = (n, l) => l.slice(n);","const _fl_get = (o, k) => (o==null ? null : (o[k]===undefined ? null : o[k]));","const _fl_keys = (o) => (o==null ? [] : Object.keys(o));","const _fl_values = (o) => (o==null ? [] : Object.values(o));","const _fl_entries = (o) => (o==null ? [] : Object.entries(o).map(([k,v])=>[k,v]));","const _fl_has_key = (o, k) => (o!=null && k in o);","const _fl_map_set = (o, k, v) => ({...o, [k]: v});","const _fl_map_delete = (o, k) => { const c={...o}; delete c[k]; return c; };","const _fl_merge = (...os) => Object.assign({}, ...os);","const _fl_is_map = (x) => (x!=null && typeof x==='object' && !Array.isArray(x));","const _fl_type_of = (x) => (x==null?'null':Array.isArray(x)?'list':typeof x);","const _fl_file_read = (p) => require('fs').readFileSync(p, 'utf8');","const _fl_file_write = (p, c) => require('fs').writeFileSync(p, c);","const _fl_file_exists = (p) => require('fs').existsSync(p);","const _fl_shell_capture = (cmd) => { try { const {execSync}=require('child_process'); return {stdout:execSync(cmd,{encoding:'utf8'}),stderr:'',code:0}; } catch(e) { return {stdout:'',stderr:String(e),code:1}; } };","const _fl_empty_q = (x) => (x==null || x.length===0);","const __argv__ = process.argv.slice(2);");;
+const codegen_loop = (ast,i,acc)=>((i>=_fl_length(ast))?acc:codegen_loop(ast,(i+1),_fl_str(acc,cg(_fl_get(ast,i)),";\n")));;
+const fl__gtjs_code = (ast)=>codegen_loop(ast,0,"");;
+const fl__gtjs_with_prelude = (ast)=>_fl_str(runtime_prelude(),"\n",codegen_loop(ast,0,""));;
+const compile_file = (input,output)=>((()=>{let src=_fl_file_read(input);let ast=fl_parse(src);let js=fl__gtjs_with_prelude(ast);_fl_file_write(output,js);return console.log(_fl_str("compiled ",input," -> ",output," size=",_fl_length(js)));})());;
+((__argv__==null)?null:((_fl_length(__argv__)===0)?null:compile_file(_fl_get(__argv__,0),((_fl_length(__argv__)>=2)?_fl_get(__argv__,1):_fl_str(_fl_get(__argv__,0),".out.js")))));

package/self/examples/agent-loop.fl

@@ -0,0 +1,32 @@
+;; FreeLang Agent Loop Example
+;; 에이전트가 상태를 변경하면서 목표에 도달
+
+(println "━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━")
+(println "Agent Loop Example: Counter Agent")
+(println "━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━")
+
+;; 에이전트 초기화
+(define agent (agent_create "counter"))
+(define agent (agent_set agent "count" 0))
+(define agent (agent_set agent "target" 5))
+
+;; 에이전트 루프 실행
+;; goal-fn: 목표 달성 여부 확인
+;; step-fn: 한 스텝 실행 (count + 1)
+;; max-steps: 최대 100 스텝
+
+(define final (agent_loop
+  agent
+  (fn [state] (>= (get state "count") (get state "target")))
+  (fn [ag]
+    (agent_set ag "count" (+ (agent_get ag "count") 1)))
+  100))
+
+(println "")
+(println "Result:")
+(println (str "  Final count: " (agent_get final "count")))
+(println (str "  Steps taken: " (agent_steps final)))
+(println (str "  Status: " (agent_status final)))
+
+(println "")
+(println "✓ Agent example completed")

package/self/examples/ci-cd-example.fl

@@ -0,0 +1,114 @@
+;; ci-cd-example.fl — GitHub Actions CI/CD 파이프라인 자동 생성 예제
+;; FreeLang v11 인프라 블록
+
+;; 기본 테스트 파이프라인
+(define test-pipeline
+  (github-actions
+    :name "Test"
+    :on ["push" "pull_request"]
+    :test "npm test"))
+
+(println "=== Basic Test Pipeline ===")
+(println test-pipeline)
+
+;; 빌드 + 테스트 + 배포 파이프라인
+(define build-and-deploy-pipeline
+  (github-actions
+    :name "Build & Deploy"
+    :on ["push"]
+    :steps [
+      { :uses "actions/checkout@v3" }
+      { :uses "actions/setup-node@v3" :with { :node-version "20" } }
+      { :run "npm install" }
+      { :run "npm run build" }
+      { :run "npm test" }
+      { :run "npm run deploy" }
+    ]))
+
+(println "=== Build & Deploy Pipeline ===")
+(println build-and-deploy-pipeline)
+
+;; Python 프로젝트 파이프라인
+(define python-test-pipeline
+  (github-actions
+    :name "Python Tests"
+    :on ["push" "pull_request"]
+    :steps [
+      { :uses "actions/checkout@v3" }
+      { :uses "actions/setup-python@v4" :with { :python-version "3.11" } }
+      { :run "pip install -r requirements.txt" }
+      { :run "pytest" }
+    ]))
+
+(println "=== Python Test Pipeline ===")
+(println python-test-pipeline)
+
+;; Docker 빌드 + 푸시 파이프라인
+(define docker-ci-pipeline
+  (github-actions
+    :name "Build & Push Docker"
+    :on ["push" "workflow_dispatch"]
+    :steps [
+      { :uses "actions/checkout@v3" }
+      { :uses "docker/setup-buildx-action@v2" }
+      { :run "docker build -t myapp:${{ github.sha }} ." }
+      { :run "docker tag myapp:${{ github.sha }} myapp:latest" }
+    ]))
+
+(println "=== Docker CI Pipeline ===")
+(println docker-ci-pipeline)
+
+;; 멀티 매트릭스 테스트 (응용 패턴)
+(define matrix-test-config
+  {
+    :name "Matrix Tests"
+    :on ["push"]
+    :strategy {
+      :matrix {
+        :node-version [18 20 22]
+        :os ["ubuntu-latest" "macos-latest" "windows-latest"]
+      }
+    }
+  })
+
+(println "=== Matrix Test Config ===")
+(println matrix-test-config)
+
+;; 전체 CI/CD 워크플로우
+(define full-cicd-workflow
+  {
+    :name "Complete CI/CD"
+    :on ["push" "pull_request"]
+    :jobs {
+      :test {
+        :runs-on "ubuntu-latest"
+        :steps [
+          { :uses "actions/checkout@v3" }
+          { :uses "actions/setup-node@v3" :with { :node-version "20" } }
+          { :run "npm install" }
+          { :run "npm run lint" }
+          { :run "npm test" }
+        ]
+      }
+      :build {
+        :needs "test"
+        :runs-on "ubuntu-latest"
+        :steps [
+          { :uses "actions/checkout@v3" }
+          { :run "npm run build" }
+        ]
+      }
+      :deploy {
+        :needs "build"
+        :runs-on "ubuntu-latest"
+        :condition "github.ref == 'refs/heads/main'"
+        :steps [
+          { :uses "actions/checkout@v3" }
+          { :run "npm run deploy" }
+        ]
+      }
+    }
+  })
+
+(println "=== Full CI/CD Workflow ===")
+(println full-cicd-workflow)

package/self/examples/cloud-real.fl

@@ -0,0 +1,134 @@
+;; cloud-real.fl — FreeLang v11 클라우드 실제 CLI 호출 예제
+;; Phase 58 P2: aws-cli / gcloud / az 필요
+
+;; ── AWS S3 실제 호출 ──────────────────────────────────────────
+
+;; S3 버킷 목록 (aws CLI 필요)
+(define list-result
+  (aws-s3-list "my-bucket" "logs/"))
+
+(println "=== AWS S3 List ===")
+(println list-result)
+
+;; S3 업로드 (로컬 파일 → S3)
+(define upload-result
+  (aws-s3-upload "my-bucket" "data/file.json" {"key" "value"}))
+
+(println "=== AWS S3 Upload ===")
+(println upload-result)
+
+;; S3 다운로드 (S3 → 로컬)
+(define download-result
+  (aws-s3-download "my-bucket" "data/file.json"))
+
+(println "=== AWS S3 Download ===")
+(println download-result)
+
+;; S3 삭제
+(define delete-result
+  (aws-s3-delete "my-bucket" "data/old-file.json"))
+
+(println "=== AWS S3 Delete ===")
+(println delete-result)
+
+;; ── AWS Lambda ──────────────────────────────────────────
+
+;; Lambda 함수 호출
+(define lambda-result
+  (aws-lambda-invoke "my-function" {"event" "test"}))
+
+(println "=== AWS Lambda Invoke ===")
+(println lambda-result)
+
+;; ── GCP Cloud Run ────────────────────────────────────────
+
+;; Cloud Run 서비스 배포 (gcloud 필요)
+(define gcp-deploy-result
+  (gcp-run-deploy "my-service" "gcr.io/my-project/my-service:1.0" "us-central1"))
+
+(println "=== GCP Cloud Run Deploy ===")
+(println gcp-deploy-result)
+
+;; Cloud Run 서비스 호출
+(define gcp-invoke-result
+  (gcp-run-invoke "my-service" {"message" "hello"} "us-central1"))
+
+(println "=== GCP Cloud Run Invoke ===")
+(println gcp-invoke-result)
+
+;; Cloud Run 서비스 목록
+(define gcp-list-result
+  (gcp-run-list "us-central1"))
+
+(println "=== GCP Cloud Run List ===")
+(println gcp-list-result)
+
+;; ── Azure Functions ─────────────────────────────────────
+
+;; Azure Function 호출 (az CLI 필요)
+(define azure-invoke-result
+  (azure-function-invoke "my-function" {"data" "test"}))
+
+(println "=== Azure Function Invoke ===")
+(println azure-invoke-result)
+
+;; Azure 웹 앱 배포
+(define azure-deploy-result
+  (azure-app-deploy "my-app" "myregistry.azurecr.io/my-app:1.0" "eastus"))
+
+(println "=== Azure App Deploy ===")
+(println azure-deploy-result)
+
+;; ── 클라우드 상태 체크 ────────────────────────────────────
+
+;; 각 클라우드 CLI 가용성 확인
+(define aws-health (cloud-health "aws"))
+(define gcp-health (cloud-health "gcp"))
+(define azure-health (cloud-health "azure"))
+
+(println "=== AWS Health ===")
+(println aws-health)
+
+(println "=== GCP Health ===")
+(println gcp-health)
+
+(println "=== Azure Health ===")
+(println azure-health)
+
+;; ── 인프라 블록으로 조합 ────────────────────────────────────
+
+;; AWS S3 인프라 블록
+(define s3-block-result
+  (aws-s3
+    :bucket "my-bucket"
+    :action "list"
+    :file "logs/"))
+
+(println "=== AWS-S3 Block ===")
+(println s3-block-result)
+
+;; GCP Cloud Run 인프라 블록
+(define gcp-block-result
+  (gcp-run
+    :service "my-service"
+    :image "gcr.io/my-project/my-service:1.0"
+    :region "us-central1"
+    :action "deploy"))
+
+(println "=== GCP-RUN Block ===")
+(println gcp-block-result)
+
+;; Azure Function 인프라 블록
+(define azure-block-result
+  (azure-function
+    :name "my-function"
+    :action "invoke"
+    :data {"test" "data"}))
+
+(println "=== AZURE-FUNCTION Block ===")
+(println azure-block-result)
+
+(println "\n✅ P2: CLI 기반 클라우드 호출 준비 완료")
+(println "   - AWS CLI 없으면: {status: 'cli_not_found'}")
+(println "   - GCP CLI (gcloud) 없으면: {status: 'cli_not_found'}")
+(println "   - Azure CLI (az) 없으면: {status: 'cli_not_found'}")

package/self/examples/docker-example.fl

@@ -0,0 +1,67 @@
+;; docker-example.fl — Dockerfile 자동 생성 예제
+;; FreeLang v11 인프라 블록
+
+;; 기본 Node.js Dockerfile 생성
+(define simple-docker
+  (dockerfile
+    :from "node:20-slim"
+    :workdir "/app"
+    :copy "package.json package-lock.json ./"
+    :run "npm install"
+    :copy ". ."
+    :expose "3000"
+    :cmd "node server.js"))
+
+(println "=== Simple Node.js Docker ===")
+(println simple-docker)
+
+;; 멀티 스테이지 패턴 (명령형으로)
+(define multistage-docker
+  (let [base-image "node:20-slim"]
+    (dockerfile
+      :from base-image
+      :workdir "/app"
+      :env "NODE_ENV" "production"
+      :copy "package.json ./"
+      :run "npm ci --only=production"
+      :copy "src/ ./src/"
+      :expose "8080"
+      :cmd "npm start")))
+
+(println "=== Multistage Docker ===")
+(println multistage-docker)
+
+;; Python + pip 예제
+(define python-docker
+  (dockerfile
+    :from "python:3.11-slim"
+    :workdir "/app"
+    :run "pip install --upgrade pip"
+    :copy "requirements.txt ./"
+    :run "pip install -r requirements.txt"
+    :copy ". ."
+    :expose "5000"
+    :cmd "python app.py"))
+
+(println "=== Python Docker ===")
+(println python-docker)
+
+;; Docker Compose 예제 — Node + PostgreSQL
+(define app-compose
+  (docker-compose
+    :version "3.9"
+    :services {
+      :web {
+        :image "node:20-slim"
+        :port "3000"
+        :containerPort "3000"
+      }
+      :postgres {
+        :image "postgres:15"
+        :port "5432"
+        :containerPort "5432"
+      }
+    }))
+
+(println "=== Docker Compose ===")
+(println app-compose)