2021-07-03 05:07:57 +01:00
<!DOCTYPE HTML>
< html >
< head >
< meta http-equiv = "Content-Type" content = "text/html;charset=US-ASCII" >
2021-09-22 04:45:45 +01:00
< meta name = "generator" content = "ZealOS V1.01" >
2021-07-03 05:07:57 +01:00
< style type = "text/css" >
2021-07-29 03:20:15 +01:00
body {background-color:#fef1f0;}
.cF0{color:#000000;background-color:#fef1f0;}
.cF1{color:#0148a4;background-color:#fef1f0;}
.cF2{color:#3b7901;background-color:#fef1f0;}
.cF3{color:#057c7e;background-color:#fef1f0;}
.cF4{color:#bb2020;background-color:#fef1f0;}
.cF5{color:#9e42ae;background-color:#fef1f0;}
.cF6{color:#b57901;background-color:#fef1f0;}
.cF7{color:#b2b6af;background-color:#fef1f0;}
.cF8{color:#555753;background-color:#fef1f0;}
.cF9{color:#678fbb;background-color:#fef1f0;}
.cFA{color:#82bc49;background-color:#fef1f0;}
.cFB{color:#0097a2;background-color:#fef1f0;}
.cFC{color:#e26a6a;background-color:#fef1f0;}
.cFD{color:#c671bc;background-color:#fef1f0;}
.cFE{color:#c7ab00;background-color:#fef1f0;}
.cFF{color:#fef1f0;background-color:#fef1f0;}
2021-07-03 05:07:57 +01:00
< / style >
< / head >
< body >
2021-07-05 01:12:38 +01:00
< pre style = "font-family:monospace;font-size:12pt" >
2021-07-03 05:07:57 +01:00
< a name = "l1" > < / a > < span class = cF1 > Bool< / span > < span class = cF0 > < / span > < span class = cF5 > Option< / span > < span class = cF0 > (< / span > < span class = cF9 > I64< / span > < span class = cF0 > num, < / span > < span class = cF1 > Bool< / span > < span class = cF0 > val)
2021-07-26 20:29:49 +01:00
< a name = "l2" > < / a > {< / span > < span class = cF2 > //Set compiler < / span > < a href = "https://zeal-operating-system.github.io/ZealOS/Doc/Options.DD.html#l1" > < span class = cF4 > Option< / span > < / a > < span class = cF2 > to val.< / span > < span class = cF0 >
2021-07-04 23:11:34 +01:00
< a name = "l3" > < / a > < / span > < span class = cF1 > return< / span > < span class = cF0 > < / span > < span class = cF5 > BEqual< / span > < span class = cF0 > (& < / span > < span class = cF5 > Fs< / span > < span class = cF0 > -> last_cc-> opts, num, val);
2021-07-03 05:07:57 +01:00
< a name = "l4" > < / a > }
< a name = "l5" > < / a >
< a name = "l6" > < / a > < / span > < span class = cF1 > Bool< / span > < span class = cF0 > < / span > < span class = cF5 > OptionGet< / span > < span class = cF0 > (< / span > < span class = cF9 > I64< / span > < span class = cF0 > num)
2021-07-26 20:29:49 +01:00
< a name = "l7" > < / a > {< / span > < span class = cF2 > //Get state of compiler < / span > < a href = "https://zeal-operating-system.github.io/ZealOS/Kernel/KernelA.HH.html#l1676" > < span class = cF4 > option< / span > < / a > < span class = cF2 > .< / span > < span class = cF0 >
2021-07-04 23:11:34 +01:00
< a name = "l8" > < / a > < / span > < span class = cF1 > return< / span > < span class = cF0 > < / span > < span class = cF5 > Bt< / span > < span class = cF0 > (& < / span > < span class = cF5 > Fs< / span > < span class = cF0 > -> last_cc-> opts, num);
2021-07-03 05:07:57 +01:00
< a name = "l9" > < / a > }
< a name = "l10" > < / a >
< a name = "l11" > < / a > < / span > < span class = cF1 > asm< / span > < span class = cF0 > {
2021-07-26 20:29:49 +01:00
< a name = "l12" > < / a > < / span > < span class = cFD > _LAST_FUN< / span > < span class = cF0 > :: < / span > < span class = cF2 > //See < / span > < a href = "https://zeal-operating-system.github.io/ZealOS/Kernel/KUtils.CC.html#l415" > < span class = cF4 > _CALL_IND< / span > < / a > < span class = cF0 >
2021-07-04 23:11:34 +01:00
< a name = "l13" > < / a > < / span > < span class = cF1 > PUSH< / span > < span class = cF0 > < / span > < span class = cFC > RBP< / span > < span class = cF0 >
< a name = "l14" > < / a > < / span > < span class = cF1 > MOV< / span > < span class = cF0 > < / span > < span class = cFC > RBP< / span > < span class = cF0 > , < / span > < span class = cFC > RSP< / span > < span class = cF0 >
< a name = "l15" > < / a > < / span > < span class = cF1 > PUSH< / span > < span class = cF0 > < / span > < span class = cFC > RSI< / span > < span class = cF0 >
< a name = "l16" > < / a > < / span > < span class = cF1 > PUSH< / span > < span class = cF0 > < / span > < span class = cFC > RDI< / span > < span class = cF0 >
2021-07-03 05:07:57 +01:00
< a name = "l17" > < / a >
2021-07-04 23:11:34 +01:00
< a name = "l18" > < / a > < / span > < span class = cF1 > XOR< / span > < span class = cF0 > < / span > < span class = cFC > RAX< / span > < span class = cF0 > , < / span > < span class = cFC > RAX< / span > < span class = cF0 >
< a name = "l19" > < / a > < / span > < span class = cF1 > MOV< / span > < span class = cF0 > < / span > < span class = cFC > RAX< / span > < span class = cF0 > , < / span > < span class = cFC > FS< / span > < span class = cF0 > :< / span > < span class = cF9 > CTask< / span > < span class = cF0 > .last_fun[< / span > < span class = cFC > RAX< / span > < span class = cF0 > ]
< a name = "l20" > < / a > < / span > < span class = cF1 > TEST< / span > < span class = cF0 > < / span > < span class = cFC > RAX< / span > < span class = cF0 > , < / span > < span class = cFC > RAX< / span > < span class = cF0 >
< a name = "l21" > < / a > < / span > < span class = cF1 > JZ< / span > < span class = cF0 > @@10
< a name = "l22" > < / a > < / span > < span class = cF1 > MOV< / span > < span class = cF0 > < / span > < span class = cFC > RDX< / span > < span class = cF0 > , < / span > < span class = cF9 > U64< / span > < span class = cF0 > < / span > < span class = cF9 > CHashFun< / span > < span class = cF0 > .exe_addr[< / span > < span class = cFC > RAX< / span > < span class = cF0 > ]
2021-07-03 05:07:57 +01:00
< a name = "l23" > < / a >
2021-07-04 23:11:34 +01:00
< a name = "l24" > < / a > < / span > < span class = cF1 > MOV< / span > < span class = cF0 > < / span > < span class = cFC > RCX< / span > < span class = cF0 > , < / span > < span class = cF9 > U64< / span > < span class = cF0 > < / span > < span class = cF3 > SF_ARG1< / span > < span class = cF0 > [< / span > < span class = cFC > RBP< / span > < span class = cF0 > ] < / span > < span class = cF2 > // argc< / span > < span class = cF0 >
< a name = "l25" > < / a > < / span > < span class = cF1 > MOV< / span > < span class = cF0 > < / span > < span class = cFC > RSI< / span > < span class = cF0 > , < / span > < span class = cF9 > U64< / span > < span class = cF0 > < / span > < span class = cF3 > SF_ARG2< / span > < span class = cF0 > [< / span > < span class = cFC > RBP< / span > < span class = cF0 > ] < / span > < span class = cF2 > // argv< / span > < span class = cF0 >
< a name = "l26" > < / a > < / span > < span class = cF1 > SHL< / span > < span class = cF0 > < / span > < span class = cFC > RCX< / span > < span class = cF0 > , < / span > < span class = cFE > 3< / span > < span class = cF0 >
< a name = "l27" > < / a > < / span > < span class = cF1 > SUB< / span > < span class = cF0 > < / span > < span class = cFC > RSP< / span > < span class = cF0 > , < / span > < span class = cFC > RCX< / span > < span class = cF0 >
< a name = "l28" > < / a > < / span > < span class = cF1 > MOV< / span > < span class = cF0 > < / span > < span class = cFC > RDI< / span > < span class = cF0 > , < / span > < span class = cFC > RSP< / span > < span class = cF0 >
< a name = "l29" > < / a > < / span > < span class = cF1 > REP_MOVSB< / span > < span class = cF0 >
< a name = "l30" > < / a > < / span > < span class = cF1 > TEST< / span > < span class = cF0 > < / span > < span class = cFC > RDX< / span > < span class = cF0 > , < / span > < span class = cFC > RDX< / span > < span class = cF0 >
< a name = "l31" > < / a > < / span > < span class = cF1 > JZ< / span > < span class = cF0 > @@05
2021-07-03 05:07:57 +01:00
< a name = "l32" > < / a >
2021-07-04 23:11:34 +01:00
< a name = "l33" > < / a > < / span > < span class = cF1 > CALL< / span > < span class = cF0 > < / span > < span class = cFC > RDX< / span > < span class = cF0 >
< a name = "l34" > < / a > < / span > < span class = cF1 > POP< / span > < span class = cF0 > < / span > < span class = cFC > RDI< / span > < span class = cF0 >
< a name = "l35" > < / a > < / span > < span class = cF1 > POP< / span > < span class = cF0 > < / span > < span class = cFC > RSI< / span > < span class = cF0 >
< a name = "l36" > < / a > < / span > < span class = cF1 > POP< / span > < span class = cF0 > < / span > < span class = cFC > RBP< / span > < span class = cF0 >
< a name = "l37" > < / a > < / span > < span class = cF1 > RET1< / span > < span class = cF0 > < / span > < span class = cFE > 16< / span > < span class = cF0 >
2021-07-03 05:07:57 +01:00
< a name = "l38" > < / a >
2021-07-04 23:11:34 +01:00
< a name = "l39" > < / a > @@05: < / span > < span class = cF1 > MOV< / span > < span class = cF0 > < / span > < span class = cFC > RCX< / span > < span class = cF0 > , < / span > < span class = cF9 > U64< / span > < span class = cF0 > < / span > < span class = cF3 > SF_ARG1< / span > < span class = cF0 > [< / span > < span class = cFC > RBP< / span > < span class = cF0 > ] < / span > < span class = cF2 > // argc< / span > < span class = cF0 >
< a name = "l40" > < / a > < / span > < span class = cF1 > SHL< / span > < span class = cF0 > < / span > < span class = cFC > RCX< / span > < span class = cF0 > , < / span > < span class = cFE > 3< / span > < span class = cF0 >
< a name = "l41" > < / a > < / span > < span class = cF1 > ADD< / span > < span class = cF0 > < / span > < span class = cFC > RSP< / span > < span class = cF0 > , < / span > < span class = cFC > RCX< / span > < span class = cF0 >
< a name = "l42" > < / a > < / span > < span class = cF1 > XOR< / span > < span class = cF0 > < / span > < span class = cFC > RAX< / span > < span class = cF0 > , < / span > < span class = cFC > RAX< / span > < span class = cF0 >
< a name = "l43" > < / a > @@10: < / span > < span class = cF1 > POP< / span > < span class = cF0 > < / span > < span class = cFC > RDI< / span > < span class = cF0 >
< a name = "l44" > < / a > < / span > < span class = cF1 > POP< / span > < span class = cF0 > < / span > < span class = cFC > RSI< / span > < span class = cF0 >
< a name = "l45" > < / a > < / span > < span class = cF1 > POP< / span > < span class = cF0 > < / span > < span class = cFC > RBP< / span > < span class = cF0 >
< a name = "l46" > < / a > < / span > < span class = cF1 > RET1< / span > < span class = cF0 > < / span > < span class = cFE > 16< / span > < span class = cF0 >
2021-07-03 05:07:57 +01:00
< a name = "l47" > < / a > }
< a name = "l48" > < / a > < / span > < span class = cF1 > _extern< / span > < span class = cF0 > < / span > < span class = cFD > _LAST_FUN< / span > < span class = cF0 > < / span > < span class = cF9 > I64< / span > < span class = cF0 > < / span > < span class = cF5 > LastFun< / span > < span class = cF0 > (< / span > < span class = cF9 > I64< / span > < span class = cF0 > argc, < / span > < span class = cF9 > I64< / span > < span class = cF0 > *argv); < / span > < span class = cF2 > //Execute last fun with args.< / span > < span class = cF0 >
< a name = "l49" > < / a >
< a name = "l50" > < / a > < / span > < span class = cF9 > I64< / span > < span class = cF0 > < / span > < span class = cF5 > PassTrace< / span > < span class = cF0 > (< / span > < span class = cF9 > I64< / span > < span class = cF0 > i=< / span > < span class = cFE > 0b10001111101< / span > < span class = cF0 > )
< a name = "l51" > < / a > {< / span > < span class = cF2 > //Ctrls which optimizer passes are displayed.< / span > < span class = cF0 >
2021-07-04 23:11:34 +01:00
< a name = "l52" > < / a > < / span > < span class = cF9 > I64< / span > < span class = cF0 > old = < / span > < span class = cF5 > Fs< / span > < span class = cF0 > -> last_cc-> pass_trace;
2021-07-03 05:07:57 +01:00
< a name = "l53" > < / a >
2021-07-04 23:11:34 +01:00
< a name = "l54" > < / a > < / span > < span class = cF1 > if< / span > < span class = cF0 > (i)
< a name = "l55" > < / a > < / span > < span class = cF5 > Fs< / span > < span class = cF0 > -> last_cc-> saved_pass_trace = i;
< a name = "l56" > < / a > < / span > < span class = cF5 > Fs< / span > < span class = cF0 > -> last_cc-> pass_trace = i;
2021-07-03 05:07:57 +01:00
< a name = "l57" > < / a >
2021-07-04 23:11:34 +01:00
< a name = "l58" > < / a > < / span > < span class = cF1 > return< / span > < span class = cF0 > old;
2021-07-03 05:07:57 +01:00
< a name = "l59" > < / a > }
< a name = "l60" > < / a >
< a name = "l61" > < / a > < / span > < span class = cF1 > Bool< / span > < span class = cF0 > < / span > < span class = cF5 > Trace< / span > < span class = cF0 > (< / span > < span class = cF1 > Bool< / span > < span class = cF0 > val=< / span > < span class = cF3 > ON< / span > < span class = cF0 > )
< a name = "l62" > < / a > {< / span > < span class = cF2 > //Displays assembly code output from compiler.< / span > < span class = cF0 >
2021-07-04 23:11:34 +01:00
< a name = "l63" > < / a > < / span > < span class = cF1 > return< / span > < span class = cF0 > < / span > < span class = cF5 > Option< / span > < span class = cF0 > (< / span > < span class = cF3 > OPTf_TRACE< / span > < span class = cF0 > , val);
2021-07-03 05:07:57 +01:00
< a name = "l64" > < / a > }
< a name = "l65" > < / a >
< a name = "l66" > < / a > < / span > < span class = cF1 > Bool< / span > < span class = cF0 > < / span > < span class = cF5 > Echo< / span > < span class = cF0 > (< / span > < span class = cF1 > Bool< / span > < span class = cF0 > val)
< a name = "l67" > < / a > {< / span > < span class = cF2 > //Displays text as it is being compiled.< / span > < span class = cF0 >
2021-07-04 23:11:34 +01:00
< a name = "l68" > < / a > < / span > < span class = cF1 > return< / span > < span class = cF0 > < / span > < span class = cF5 > Option< / span > < span class = cF0 > (< / span > < span class = cF3 > OPTf_ECHO< / span > < span class = cF0 > , val);
2021-07-03 05:07:57 +01:00
< a name = "l69" > < / a > }
< a name = "l70" > < / a >
< a name = "l71" > < / a > < / span > < span class = cF1 > U0< / span > < span class = cF0 > < / span > < span class = cF5 > StreamPrint< / span > < span class = cF0 > (< / span > < span class = cF1 > U8< / span > < span class = cF0 > *format, ...)
< a name = "l72" > < / a > {< / span > < span class = cF2 > //Injects text into the compile stream. Used in #exe{} blocks.< / span > < span class = cF0 >
2021-07-04 23:11:34 +01:00
< a name = "l73" > < / a > < / span > < span class = cF1 > U8< / span > < span class = cF0 > *buf = < / span > < span class = cF5 > StrPrintJoin< / span > < span class = cF0 > (< / span > < span class = cF3 > NULL< / span > < span class = cF0 > , format, argc, argv), *st;
< a name = "l74" > < / a > < / span > < span class = cF9 > CCompCtrl< / span > < span class = cF0 > *cc = < / span > < span class = cF5 > Fs< / span > < span class = cF0 > -> last_cc;
< a name = "l75" > < / a > < / span > < span class = cF9 > CStreamBlk< / span > < span class = cF0 > *tmpe = cc-> last_stream_blk;
2021-07-03 05:07:57 +01:00
< a name = "l76" > < / a >
2021-07-04 23:11:34 +01:00
< a name = "l77" > < / a > < / span > < span class = cF1 > if< / span > < span class = cF0 > (tmpe != & cc-> next_stream_blk)
< a name = "l78" > < / a > < / span > < span class = cF7 > {< / span > < span class = cF0 >
< a name = "l79" > < / a > st = < / span > < span class = cF5 > MStrPrint< / span > < span class = cF0 > (< / span > < span class = cF6 > " %s%s" < / span > < span class = cF0 > , tmpe-> body, buf);
< a name = "l80" > < / a > < / span > < span class = cF5 > Free< / span > < span class = cF0 > (tmpe-> body);
< a name = "l81" > < / a > tmpe-> body = st;
< a name = "l82" > < / a > < / span > < span class = cF7 > }< / span > < span class = cF0 >
< a name = "l83" > < / a > < / span > < span class = cF1 > else< / span > < span class = cF0 >
< a name = "l84" > < / a > < / span > < span class = cF5 > PrintErr< / span > < span class = cF0 > (< / span > < span class = cF6 > " No exe{} blk\n" < / span > < span class = cF0 > );
< a name = "l85" > < / a > < / span > < span class = cF5 > Free< / span > < span class = cF0 > (buf);
2021-07-03 05:07:57 +01:00
< a name = "l86" > < / a > }
< a name = "l87" > < / a >
< a name = "l88" > < / a > < / span > < span class = cF1 > U0< / span > < span class = cF0 > < / span > < span class = cF5 > StreamDir< / span > < span class = cF0 > ()
< a name = "l89" > < / a > {
2021-07-04 23:11:34 +01:00
< a name = "l90" > < / a > < / span > < span class = cF1 > U8< / span > < span class = cF0 > *dirname;
2021-07-03 05:07:57 +01:00
< a name = "l91" > < / a >
2021-07-04 23:11:34 +01:00
< a name = "l92" > < / a > < / span > < span class = cF1 > if< / span > < span class = cF0 > (dirname = < / span > < span class = cF5 > DirFile< / span > < span class = cF7 > (< / span > < span class = cF5 > Fs< / span > < span class = cF0 > -> last_cc-> lex_include_stack-> full_name< / span > < span class = cF7 > )< / span > < span class = cF0 > )
< a name = "l93" > < / a > < / span > < span class = cF7 > {< / span > < span class = cF0 >
< a name = "l94" > < / a > < / span > < span class = cF5 > StreamPrint< / span > < span class = cF0 > (< / span > < span class = cF6 > " \" %s\" " < / span > < span class = cF0 > , dirname);
< a name = "l95" > < / a > < / span > < span class = cF5 > Free< / span > < span class = cF0 > (dirname);
< a name = "l96" > < / a > < / span > < span class = cF7 > }< / span > < span class = cF0 >
2021-07-03 05:07:57 +01:00
< a name = "l97" > < / a > }
< a name = "l98" > < / a >
< a name = "l99" > < / a > < / span > < span class = cF9 > CD2I32< / span > < span class = cF0 > *< / span > < span class = cF5 > LexD2I32< / span > < span class = cF0 > (< / span > < span class = cF9 > CCompCtrl< / span > < span class = cF0 > *cc, < / span > < span class = cF9 > CD2I32< / span > < span class = cF0 > *p)
< a name = "l100" > < / a > {< / span > < span class = cF2 > //Not CosmiC. Sprite-like lex 2D point.< / span > < span class = cF0 >
2021-07-04 23:11:34 +01:00
< a name = "l101" > < / a > < / span > < span class = cF1 > if< / span > < span class = cF0 > (cc-> token != < / span > < span class = cF6 > '('< / span > < span class = cF0 > )
< a name = "l102" > < / a > < / span > < span class = cF5 > LexExcept< / span > < span class = cF0 > (cc, < / span > < span class = cF6 > " Expecting '(' at " < / span > < span class = cF0 > );
< a name = "l103" > < / a > < / span > < span class = cF5 > Lex< / span > < span class = cF0 > (cc); < / span > < span class = cF2 > // Skip (< / span > < span class = cF0 >
< a name = "l104" > < / a > p-> x = < / span > < span class = cF5 > LexExpressionI64< / span > < span class = cF0 > (cc);
< a name = "l105" > < / a > < / span > < span class = cF1 > if< / span > < span class = cF0 > (cc-> token != < / span > < span class = cF6 > ','< / span > < span class = cF0 > )
< a name = "l106" > < / a > < / span > < span class = cF5 > LexExcept< / span > < span class = cF0 > (cc, < / span > < span class = cF6 > " Expecting ',' at " < / span > < span class = cF0 > );
< a name = "l107" > < / a > < / span > < span class = cF5 > Lex< / span > < span class = cF0 > (cc); < / span > < span class = cF2 > // Skip ,< / span > < span class = cF0 >
< a name = "l108" > < / a > p-> y = < / span > < span class = cF5 > LexExpressionI64< / span > < span class = cF0 > (cc);
< a name = "l109" > < / a > < / span > < span class = cF1 > if< / span > < span class = cF0 > (cc-> token != < / span > < span class = cF6 > ')'< / span > < span class = cF0 > )
< a name = "l110" > < / a > < / span > < span class = cF5 > LexExcept< / span > < span class = cF0 > (cc, < / span > < span class = cF6 > " Expecting ')' at " < / span > < span class = cF0 > );
< a name = "l111" > < / a > < / span > < span class = cF5 > Lex< / span > < span class = cF0 > (cc); < / span > < span class = cF2 > // Skip )< / span > < span class = cF0 >
2021-07-03 05:07:57 +01:00
< a name = "l112" > < / a >
2021-07-04 23:11:34 +01:00
< a name = "l113" > < / a > < / span > < span class = cF1 > return< / span > < span class = cF0 > p;
2021-07-03 05:07:57 +01:00
< a name = "l114" > < / a > }
< a name = "l115" > < / a >
< a name = "l116" > < / a > < / span > < span class = cF9 > CD3I32< / span > < span class = cF0 > *< / span > < span class = cF5 > LexD3I32< / span > < span class = cF0 > (< / span > < span class = cF9 > CCompCtrl< / span > < span class = cF0 > *cc,< / span > < span class = cF9 > CD3I32< / span > < span class = cF0 > *p)
< a name = "l117" > < / a > {< / span > < span class = cF2 > //Not CosmiC. Sprite-like lex 3D point.< / span > < span class = cF0 >
2021-07-04 23:11:34 +01:00
< a name = "l118" > < / a > < / span > < span class = cF1 > if< / span > < span class = cF0 > (cc-> token != < / span > < span class = cF6 > '('< / span > < span class = cF0 > )
< a name = "l119" > < / a > < / span > < span class = cF5 > LexExcept< / span > < span class = cF0 > (cc, < / span > < span class = cF6 > " Expecting '(' at " < / span > < span class = cF0 > );
< a name = "l120" > < / a > < / span > < span class = cF5 > Lex< / span > < span class = cF0 > (cc); < / span > < span class = cF2 > // Skip (< / span > < span class = cF0 >
< a name = "l121" > < / a > p-> x = < / span > < span class = cF5 > LexExpressionI64< / span > < span class = cF0 > (cc);
< a name = "l122" > < / a > < / span > < span class = cF1 > if< / span > < span class = cF0 > (cc-> token != < / span > < span class = cF6 > ','< / span > < span class = cF0 > )
< a name = "l123" > < / a > < / span > < span class = cF5 > LexExcept< / span > < span class = cF0 > (cc, < / span > < span class = cF6 > " Expecting ',' at " < / span > < span class = cF0 > );
< a name = "l124" > < / a > < / span > < span class = cF5 > Lex< / span > < span class = cF0 > (cc); < / span > < span class = cF2 > // Skip ,< / span > < span class = cF0 >
< a name = "l125" > < / a > p-> y = < / span > < span class = cF5 > LexExpressionI64< / span > < span class = cF0 > (cc);
< a name = "l126" > < / a > < / span > < span class = cF1 > if< / span > < span class = cF0 > (cc-> token != < / span > < span class = cF6 > ','< / span > < span class = cF0 > )
< a name = "l127" > < / a > < / span > < span class = cF5 > LexExcept< / span > < span class = cF0 > (cc, < / span > < span class = cF6 > " Expecting ',' at " < / span > < span class = cF0 > );
< a name = "l128" > < / a > < / span > < span class = cF5 > Lex< / span > < span class = cF0 > (cc); < / span > < span class = cF2 > // Skip ,< / span > < span class = cF0 >
< a name = "l129" > < / a > p-> z = < / span > < span class = cF5 > LexExpressionI64< / span > < span class = cF0 > (cc);
< a name = "l130" > < / a > < / span > < span class = cF1 > if< / span > < span class = cF0 > (cc-> token != < / span > < span class = cF6 > ')'< / span > < span class = cF0 > )
< a name = "l131" > < / a > < / span > < span class = cF5 > LexExcept< / span > < span class = cF0 > (cc, < / span > < span class = cF6 > " Expecting ')' at " < / span > < span class = cF0 > );
< a name = "l132" > < / a > < / span > < span class = cF5 > Lex< / span > < span class = cF0 > (cc); < / span > < span class = cF2 > // Skip )< / span > < span class = cF0 >
2021-07-03 05:07:57 +01:00
< a name = "l133" > < / a >
2021-07-04 23:11:34 +01:00
< a name = "l134" > < / a > < / span > < span class = cF1 > return< / span > < span class = cF0 > p;
2021-07-03 05:07:57 +01:00
< a name = "l135" > < / a > }
< a name = "l136" > < / a >
< a name = "l137" > < / a > < / span > < span class = cF1 > U8< / span > < span class = cF0 > *< / span > < span class = cFD > CmdLinePrompt< / span > < span class = cF0 > ()
< a name = "l138" > < / a > {
2021-07-04 23:11:34 +01:00
< a name = "l139" > < / a > < / span > < span class = cF9 > I64< / span > < span class = cF0 > i;
< a name = "l140" > < / a > < / span > < span class = cF1 > U8< / span > < span class = cF0 > *res, *st;
2021-07-03 05:07:57 +01:00
< a name = "l141" > < / a >
2021-07-04 23:11:34 +01:00
< a name = "l142" > < / a > < / span > < span class = cF1 > if< / span > < span class = cF0 > (< / span > < span class = cF5 > Fs< / span > < span class = cF0 > -> new_answer)
< a name = "l143" > < / a > < / span > < span class = cF7 > {< / span > < span class = cF0 >
< a name = "l144" > < / a > < / span > < span class = cF1 > if< / span > < span class = cF0 > (< / span > < span class = cF5 > Fs< / span > < span class = cF0 > -> answer_type & ~< / span > < span class = cFE > 1< / span > < span class = cF0 > != < / span > < span class = cF3 > RT_I0< / span > < span class = cF0 > )
< a name = "l145" > < / a > {
< a name = "l146" > < / a > < / span > < span class = cF1 > if< / span > < span class = cF0 > (< / span > < span class = cF5 > Fs< / span > < span class = cF0 > -> answer_type == < / span > < span class = cF3 > RT_F64< / span > < span class = cF0 > )
< a name = "l147" > < / a > < / span > < span class = cF6 > " %8.6fs ansf=%15.7g\n" < / span > < span class = cF0 > , < / span > < span class = cF5 > Fs< / span > < span class = cF0 > -> answer_time, < / span > < span class = cF5 > Fs< / span > < span class = cF0 > -> answer;
< a name = "l148" > < / a > < / span > < span class = cF1 > else< / span > < span class = cF0 >
< a name = "l149" > < / a > < / span > < span class = cF6 > " %8.6fs ans=0x%08X=%d\n" < / span > < span class = cF0 > , < / span > < span class = cF5 > Fs< / span > < span class = cF0 > -> answer_time, < / span > < span class = cF5 > Fs< / span > < span class = cF0 > -> answer, < / span > < span class = cF5 > Fs< / span > < span class = cF0 > -> answer;
< a name = "l150" > < / a > }
< a name = "l151" > < / a > < / span > < span class = cF1 > else< / span > < span class = cF0 >
< a name = "l152" > < / a > {
< a name = "l153" > < / a > < / span > < span class = cF6 > " %8.6fs\n" < / span > < span class = cF0 > , < / span > < span class = cF5 > Fs< / span > < span class = cF0 > -> answer_time;
< a name = "l154" > < / a > < / span > < span class = cF5 > Fs< / span > < span class = cF0 > -> answer = < / span > < span class = cFE > 0< / span > < span class = cF0 > ;
< a name = "l155" > < / a > }
< a name = "l156" > < / a > < / span > < span class = cF5 > Fs< / span > < span class = cF0 > -> new_answer = < / span > < span class = cF3 > FALSE< / span > < span class = cF0 > ;
< a name = "l157" > < / a > < / span > < span class = cF7 > }< / span > < span class = cF0 >
< a name = "l158" > < / a > < / span > < span class = cF1 > if< / span > < span class = cF0 > (st = < / span > < span class = cF5 > DirCur< / span > < span class = cF0 > )
< a name = "l159" > < / a > < / span > < span class = cF7 > {< / span > < span class = cF0 >
< a name = "l160" > < / a > < / span > < span class = cF6 > " %s" < / span > < span class = cF0 > , st;
< a name = "l161" > < / a > < / span > < span class = cF5 > Free< / span > < span class = cF0 > (st);
< a name = "l162" > < / a > < / span > < span class = cF7 > }< / span > < span class = cF0 >
< a name = "l163" > < / a > < / span > < span class = cF6 > '> '< / span > < span class = cF0 > ;
< a name = "l164" > < / a > < / span > < span class = cF1 > if< / span > < span class = cF0 > (< / span > < span class = cF5 > IsDebugMode< / span > < span class = cF0 > & & < / span > < span class = cF5 > IsRaw< / span > < span class = cF0 > )
< a name = "l165" > < / a > < / span > < span class = cF5 > RawDr< / span > < span class = cF0 > ;
2021-07-03 05:07:57 +01:00
< a name = "l166" > < / a >
2021-07-04 23:11:34 +01:00
< a name = "l167" > < / a > < / span > < span class = cF5 > LBts< / span > < span class = cF0 > (& < / span > < span class = cF5 > Fs< / span > < span class = cF0 > -> task_flags, < / span > < span class = cF3 > TASKf_CMD_LINE_PROMPT< / span > < span class = cF0 > );
< a name = "l168" > < / a > st = < / span > < span class = cF5 > StrGet< / span > < span class = cF0 > (,, < / span > < span class = cF3 > SGF_SHIFT_ESC_EXIT< / span > < span class = cF0 > );
< a name = "l169" > < / a > < / span > < span class = cF5 > LBtr< / span > < span class = cF0 > (& < / span > < span class = cF5 > Fs< / span > < span class = cF0 > -> task_flags, < / span > < span class = cF3 > TASKf_CMD_LINE_PROMPT< / span > < span class = cF0 > );
2021-07-03 05:07:57 +01:00
< a name = "l170" > < / a >
2021-07-04 23:11:34 +01:00
< a name = "l171" > < / a > i = < / span > < span class = cF5 > StrLen< / span > < span class = cF0 > (st);
< a name = "l172" > < / a > res = < / span > < span class = cF5 > MAlloc< / span > < span class = cF0 > (i + < / span > < span class = cFE > 1< / span > < span class = cF0 > + < / span > < span class = cFE > 2< / span > < span class = cF0 > );
< a name = "l173" > < / a > < / span > < span class = cF5 > MemCopy< / span > < span class = cF0 > (res, st, i + < / span > < span class = cFE > 1< / span > < span class = cF0 > );
< a name = "l174" > < / a > i--;
< a name = "l175" > < / a > < / span > < span class = cF1 > while< / span > < span class = cF0 > (i > = < / span > < span class = cFE > 0< / span > < span class = cF0 > & & < / span > < span class = cF5 > Bt< / span > < span class = cF7 > (< / span > < span class = cFB > char_bmp_white_space< / span > < span class = cF0 > , res[i]< / span > < span class = cF7 > )< / span > < span class = cF0 > )
< a name = "l176" > < / a > i--;
< a name = "l177" > < / a > i++;
< a name = "l178" > < / a > < / span > < span class = cF1 > if< / span > < span class = cF0 > (i > < / span > < span class = cFE > 0< / span > < span class = cF0 > & & res[i - < / span > < span class = cFE > 1< / span > < span class = cF0 > ] == < / span > < span class = cF6 > ';'< / span > < span class = cF0 > )
< a name = "l179" > < / a > res[i++] = < / span > < span class = cF6 > ';'< / span > < span class = cF0 > ; < / span > < span class = cF2 > // The Lex goes one beyond< / span > < span class = cF0 >
< a name = "l180" > < / a > res[i++] = < / span > < span class = cF6 > '\n'< / span > < span class = cF0 > ; < / span > < span class = cF2 > // #define goes to '\n'< / span > < span class = cF0 >
< a name = "l181" > < / a > res[i] = < / span > < span class = cFE > 0< / span > < span class = cF0 > ;
2021-07-03 05:07:57 +01:00
< a name = "l182" > < / a >
2021-07-04 23:11:34 +01:00
< a name = "l183" > < / a > < / span > < span class = cF5 > Free< / span > < span class = cF0 > (st);
2021-07-03 05:07:57 +01:00
< a name = "l184" > < / a >
2021-07-04 23:11:34 +01:00
< a name = "l185" > < / a > < / span > < span class = cF1 > return< / span > < span class = cF0 > res;
2021-07-03 05:07:57 +01:00
< a name = "l186" > < / a > }
< / span > < / pre > < / body >
< / html >
