lux-0.0/ 0040755 0000764 0000144 00000000000 07244154361 010701 5 ustar jcw users lux-0.0/LUXDOC.html 0100644 0000764 0000144 00000015365 07244147075 012600 0 ustar jcw users LUXDOC
LUX - AN EMBEDDABLE AND EXTENSIBLE SCRIPTING SYSTEM BASED ON LUA
This document describes:
- Lux - standalone builds
- TcLux - an extension for Tcl
- PyLux - an extension for Python
- PerLux - an extension for Perl
- RubyLux - an extension for Ruby
LUX STANDALONE
The standalone version has been built in a number of configurations:
- lux - dynamic link, complete system
- luxd - dynamic link, complete system, with -DLUA_DEBUG
- luxm - dynamic link, minimal build (no support libs)
- luxr - dynamic link, no lexer / parser / code generator
- luxs - static link, complete system
Only "lux", "luxr", and possibly "luxs" are intended for general use.
The "luxm" executable will not run, it acts as baseline for size comparisons.
The "luxd" build is intended for debugging the lux system itself.
The main program is defined in "mlux.c", which gets expanded to "lux.c"
during the build. This is an equivalent version, but with all Lux-related
includes merged into a single source file (the "onesrc.tcl" script does this).
Similarly, the Lux core is defined in "mluxsys.c", which gets expanded to
"luxsys.c" during the build. This represents the main code, and incorporates
all of Lua 4.0 with a few minor modifications.
The logic which defines the startup process is in "run.lua", which gets
merged with "util.lua" and "metakit.lua" by compiling it with luac.
The result is turned into a C datastructure by 'examples/bin2c.lua'.
This in turn is included by "mlux.c".
The main code in "mlux.c" does the following:
- set the global "argv0" to C's "argv[0]", i.e. the program name
- set up an "argv" vector with all command-line arguments
- execute the embedded script (generated from "run.lua", etc)
The "run.lua" logic is currently as follows:
- adjust the "_VERSION" global to include details about the Lux build
- if MetaKit code is included, look for data at the end of the executable
- try to fetch / evaluate the code stored in the VFS file called "boot.lux"
- else, look for a first arg and move it off argv into an "argv1" global
- if the arg is a scripted doc file, fetch the "boot.lux" script and run it
- else open the arg as regular file, optionally decompress, then run it
- if no args are specified, dump the list of defined globals on stdout
LUX IN TCL
TcLux lets you run e eprg a0srated foc.wrapp pangle so ar"esrn "mluxling ithev cuuptionbeludes merged d to
"luxs.L
Thich definto a siE=1esrn >luxs all co.lua", wd "definloomdat daompipluefi
v coxecutin a numbeline argu.
Ea, wchar, i nuored inloomdat daompiment desc ond-line arglarly, for end o
loomdat daompimI>adnd ecoponpanderly,in a numbere
Theompiline argu.
/I>.typegic is curret of defargtions:
- luxs
rator
luxs
rator
luxs
rator
luxs
rator
luxsluxsluxsluxsluae ar for ndeP>
ystem
!}filest the glopaomt"efunce, oa 4.0 wito a sindaompiline arg>lua
DT1esrn noc
- lua
DT1esrn noloclt{putei"Heas e fo!"}
filestoesrc. 4.0 witdaompiline arg ( 4.0 rly,t of ie, oaailve, does g ithfile backerged fo)>lua
DT1esrn noldotdaompi{esr('putei"Heas e fo!"')}awilh nuwaytndedderly,sram>lua
DT1esrn noldotdaompi{esr('
res inaraeh / erated the ackeed fo>lua.
luxs(refes cce)ludchanisrogra fuo s.c" dufilebackmprbeca
sLux >serefes cces lookexecuscript for code,ess, paprc" dooseerefes cces.
Ired infileback,/letsfinness, dooseerefes cces.obarile HI>back>luae(yesuxli
hich r ofuto a!)erged P>
.lu.g..oba- ar, iergdividu glv / et actneeinc.
Novaluaaterefes cces.ddewill e
Thelv /iefafi nud infileback res ina.
LUPYTHONN TCLI>TcLux lets you run e eprg a0srated for Pc.wrapp pangle so ar"pyrn "mluxling ithev cuuptionbeludes merged d to
"luxs.LI>Thich defin
luxsinoucutab.0 wito a si
adnd ecoponpanderly,in a numbere
Theompiline argu.
/I>.typegic is curret of defargtions:
luxs
rator
luxsluxsluxsluxsluae ar for ndeP>
ystem
!')filest the glopaomt"efunce, oa 4.0 wito a sindaompiline arg>lua(MLux ty 'exalg ithbeladincluseere by 'exampydemo.py' looknow...)>lua
P:
/I>.
luxs(refes cce)ludchanisrogra fuo s.c" dufilebackmprbeca I>
sLux >serefes cces lookexecuscript for code,ess, paprc" dooseerefes cces.
Ired infileback,/letsfinness, dooseerefes cces.obarile HI>back>luae(yesuxli
hich r ofuto a!)erged P>
.lu.g..oba- ar, iergdividu glv / et actneeinc.
Novaluaaterefes cces.ddewill e
Thelv /iefafi nud infileback res ina.
LUPERIN TCLI>PTcLux lets you run e eprg a0srated eroc.wrapp pangle so ar"p prn "mluxling ithev cuuptionbeludes merged d to
"luxs.L
huild isrfa so arst ithlimitxpandendaomp-oUL>
ch / ev versu.g.ribeRE> p prn ::ch /("Heas eP>
!");
HI>Anbeti nuorisrfa sluss).
Sieed fB>PTode,I>,lg ithbeli 'ex argnc.>lua
OL>
LURUBYN TCLI>RuTcLux lets you run e eprg a0srated I>.wrapp pangle so ar"r>
huild isrfa so arst ithlimitxpandendaomp-oUL>
ch / ev versu.g.ribeRE> R>
!");
HI>Anbeti nuorisrfa sluss).
Sieed fB>PTode,I>,lg ithbeli 'ex argnc.>lua
OL>
HI>
>lua
P:
-- Jean-Cla incWip'exr <jcw@s an4. al>ibeRE> Mise verIm and poe 5oftwargsTeam
http://www.s an4. al/rn /
H=R>
OL>
SyouFeb 18 23:41:49 PST 2001
H/AD>
TITL < luxgo.rb 0040755 0000764 0000144 000163153650633046 163112600 0 ustar jcw users #!/usrmple/env r>
, I ad I>
=head1 SYNOPSIS
p prn ;
p prn ::ch /("paomt(123+456)");
=head1 DEIBLE SCON
ld. This id isrfa sonde.
=head1 AUTHOR
Jean-Cla incWip'exr
=head1 SEE ALSO
p pr(1).
=cut
lux to
"lux 0100644 0000764 0000144 25476715365 024673 244242600 0 ustar jcw users /* to
"lux - ipt (generated in "mluxludethe "o
* paths: ta-4lux "o/ ta-4lux "o/lib/ ta-4luxe is in/ .
* SyouFeb 18 21:06:02 PST 2001
*/
/* I to incates
all ofode,- an extenport herslu d look(the "o" */
/* e is in: ta.h */
/*
** $Id: ta.h,v 1.79 2000/10/31 12:44:07 roberndeExo $
** l of- AneExan expoe E an extenLanguagy
** TeCGraf: Grupo dgsTecnolua"a em Computacao Grafica, PUC-Rio, Brazil
** e-mail: ta@tecgraf.puc-rio.br
** www: http://www.tecgraf.puc-rio.brx ta/
** See Copyright Noti sodata at the end Thiular
*/
#ifndef ta_h
#t of d ta_h
/* t of ie, oa en` for_t' */
#l to inc
/* mar, look tesAPIefunce, os */
#lfndef th -API
#t of d th -API - anrn
# thif
#t of d th -he "_VE "l of Lu"
#t of d th -COPYRIGHT "Copyright (C) 1994-2000 TeCGraf, PUC-Rio"
#t of d th -AUTHORS "W. CelesuxR. Ierusalimschy & L. H. dgsFiguenredo"
/* gramumbeION" glv cixecutabth errookhodeexr */
#t of d th -ERRORMESSAGE "-ERRORMESSAGE"
/* pre-t of defrefes cces.*/
#t of d th -NOREF (-2)
#t of d th -REFNIL (-1)
#t of d th -REFREGISTRY 0
/* pre-t of deftags.*/
#t of d th -ANYTAG (-1)
#t of d th -NOTAG (-2)
/* ile, o lookmulti'ex res inaerg. ta_rile */
#t of d th -MULTRET (-1)
/* mnk, ums thck availxecutlook fCefunce, oa*/
#t of d th -MINSTACK 20
/* errook thes look ta_do* */
#t of d th -ERRRUN 1
#t of d th -ERRFILE 2
#t of d th -ERRSYNTAX 3
#t of d th -ERRMEM 4
#t of d th -ERRERR 5
typedef datask ta_Stgen ta_Stgen;
typedef omt (* ta_CFunce, o) ( ta_Stgen *L);
/*
** typegires innclude` ta_type'
*/
#t of d th -TNONE (-1)
#t of d th -TUSERDATA 0
#t of d th -TNIL 1
#t of d th -TNUMBER 2
#t of d th -TSTRING 3
#t of d th -TTMBED 4
#t of d th -TFUNCSCON 5
/*
** stgen manipulev ve
*/
th -APIk ta_Stgen * ta_else (omt thck for);
th -APIkvoid ta_rlosee( ta_Stgen *L);
/*
** basics thck manipulev ve
*/
th -APIkomt ta_gettope( ta_Stgen *L);
th -APIkvoid ta_settope( ta_Stgen *L,komt index);
th -APIkvoid ta_pushh / er( ta_Stgen *L,komt index);
th -APIkvoid ta_re and ( ta_Stgen *L,komt index);
th -APIkvoid ta_in t ( ta_Stgen *L,komt index);
th -APIkomt ta_ thck pa so( ta_Stgen *L);
/*
** acp profunce, os ( thck -> C)
*/
th -APIkomt ta_type ( ta_Stgen *L,komt index);
th -APIkc ostwchar * ta_typegramu( ta_Stgen *L,komt t);
th -APIkomt ta_isin a nu( ta_Stgen *L,komt index);
th -APIkomt ta_isndaompi( ta_Stgen *L,komt index);
th -APIkomt ta_iscfunce, oa( ta_Stgen *L,komt index);
th -APIkomt ta_taga( ta_Stgen *L,komt index);
th -APIkomt ta_s a gl( ta_Stgen *L,komt index1,komt index2);
th -APIkomt ta_lessthodl( ta_Stgen *L,komt index1,komt index2);
th -APIkon ecut ta_toin a nu( ta_Stgen *L,komt index);
th -APIkc ostwchar * ta_tondaompi( ta_Stgen *L,komt index);
th -APIk for_tt ta_ndaleoa( ta_Stgen *L,komt index);
th -APIk ta_CFunce, o ta_tocfunce, oa( ta_Stgen *L,komt index);
th -APIkvoid * ta_to for ( ta_Stgen *L,komt index);
th -APIkc ostwvoid * ta_topod isra( ta_Stgen *L,komt index);
/*
** pushofunce, os (C -> thck)
*/
th -APIkvoid ta_pushnile( ta_Stgen *L);
th -APIkvoid ta_pushnn a nu( ta_Stgen *L,kon ecutn);
th -APIkvoid ta_pushlndaompi( ta_Stgen *L,kc ostwchar *s,k for_ttleo);
th -APIkvoid ta_pushndaompi( ta_Stgen *L,kc ostwchar *s);
th -APIkvoid ta_pushcrlostruc( ta_Stgen *L,k ta_CFunce, o fn,komt o);
th -APIkvoid ta_push taga( ta_Stgen *L,kvoid *u,komt tag);
/*
** getofunce, os (l of-> thck)
*/
th -APIkvoid ta_g l o)
*/
th -APIkvoid ta_sexecu arsoftwargsode, ts
*
This docae, o lookany purpo ,kl to i" dufommerci glapplmodifica,k ubjgv"xto
*
does the follkc odiigurati*
* - /I>.ailvekc pyright noti sodde,es arpermise vernoti soshile app anuoreile
* kc pisc ork ub
Theti glo su, os end Thisoftwarg.i*
* - /I>.origin end ThisoftwargimI>adwillbeluisThis repred; letsmI>adwil
* kclaimluaateletswrovaluateorigin glsoftwarg. Ifelets doThisoftwargiorei
* kproduct cod hcknowledg argfored inproduct
This docae, o wouldebelgreatly
* kappreci ener(ion,iresulwill e anred).i*
* - Alisrmbedgle solent vessmI>adbelplaiUL>
mar,defahisuch code,mI>adwillbe
* kuisThis reprede arbe" duringorigin glsoftwarg.
* k
* /I>.aum,lrss are spcptionaisclaimlany warraetiesuxl to i" drsion,willlimitxp
*
dolarly,i 'ei
merarraeties enmerchaetability ode,fitn profook fpasu,cs re
* purpo buildeisoftwargiproviembehersunderesul oaanto Th" basis code,ess
* aum,lrsshavekno obligae, o tofproviem>
Theteoacce,/ (no su, updorpo,
* enhacce argu, w minor modificat Iernohev cuoshile TeCGraf, PUC-Rio, w mess
* aum,lrssbelheldelixecutgv inyfpasuy look nrect crgdirect c are al,
* l tiemetal, w mc ose aeeti gldamageo arito a ls a end of end Thisoftwarg
* ade, ts
This docae, o.i*
* Tout ta languagyodde,es ari 'ex argae, o havek has eetirerret sig defanp
*
writteoaby Waldemar Celes Filho, RoberndeIerusalimschy anp
*
Luiz Henri ae dgsFiguenredoodatTeCGraf, PUC-Rio.
*
* To ari 'ex argae, o r otauiulwi,es rd-pasuy the.
******************************************************************************/
/*
Themed: in "mluxl*/
/* e is in: ta for .h */
/*
** $Id: ta for .h,v 1.17 2000/10/30 12:38:50 roberndeExo $
** Dfor debugAPI
** See Copyright Noti sorg. ta.h
*/
#ifndef ta for _h
#t of d ta for _h
/* skipp d: ta.hs
#l to inc
/* skipp d: ta.hsp < &(B)->beff n[th L_BUFFe "_ZE] || taL_prepbeff n(B)), \
(*(B)->p++ =i(char)(c)))
#t of d taL_add for(B,n) ((B)->p += (n))
th LIB-API void taL_befff ie ( ta_Stgen *L,k taL_Buff nu*B);
th LIB-API char * taL_prepbeff n ( taL_Buff nu*B);
th LIB-API void taL_addlndaompi( taL_Buff nu*B,kc ostwchar *s,k for_ttl);
th LIB-API void taL_addndaompi( taL_Buff nu*B,kc ostwchar *s);
th LIB-API void taL_addh / er( taL_Buff nu*B);
th LIB-API void taL_push
The re( taL_Buff nu*B);
/* }======================================================l*/
# thif
/*
Themed: in "mluxl*/
/* e is in: apiuxl*/
/*
** $Id: apiux,v 1.110 2000/10/30 12:50:09 roberndeExo $
** l ofAPI
** See Copyright Noti sorg. ta.h
*/
#i to inc
/* skipp d: ta.hs
#l to inc
/*
** t- tryf d,in a numbeb ts
inis id isger
*/
#lfndef BITS_INT
/* avoid overfs fo he maze compa */
#lf INT_MAX-20 < 32760
#t of d BITS_INT 16
# lse
#lf INT_MAX > 2147483640L
/* machf d sionat reastw32eb ts
*/
#t of d BITS_INT 32
# lse
#errook"letsmI>adt of d BITS_INTtabth in a numbeb ts
inis id isger"
# thif
# thif
# thif
/*
** D of d tI>.type `in a n's
all o
** GREP th -NUMBER.obarhangaluaat
*/
#lfndef th -NUM_TYPE
#t of d th -NUM_TYPEkon ecu
# thif
typedef th -NUM_TYPEkNn a n;
/*efunce, oaobar ov t akNn a n ed intdaompi*/
#t of d NUMBER_FMT "%.16g" /* th -NUMBER.*/
#t of d ta_in a n2nda(s,n) spaomtf((s), NUMBER_FMT, (n))
/*efunce, oaobar ov t ak daompindeakNn a n */
#t of d ta_ da2in a n(s,p) strndd((s), (p))
typedef unsig deflomp rf t32; /* unsig defomt 4.0 wt reastw32eb ts
*/
#t of d MAX_"_ZET (( for_t)(~( for_t)0)-2)
#t of d MAX_INTt(INT_MAX-2) /* max, umsh / ermbel id i (-2eline afety)l*/
/*
** r ov s, oa enpod israobal i (fookhosho a lnly)
** file shofll e
oveseb ts
uaateargiusuption0rbeca mbellig arg)
*/
#t of d IntPod i(p) (((unsig deflomp)(p)) >> 3)
#t of d MINPOWER2 4 /* mnk, ums for look(gr foll"argv" vs
*/
#lfndef DEFAULT_STACK_"_ZE
#t of d DEFAULT_STACK_"_ZE 1024
# thif
/*.type oba-nstrucmax, umsllig arg
*/
unxtenL_Umaxllig {kon ecutd;wchar *s;flomp r; };
/*
** type lookviruupt-machf d iostatas, os
** mI>adbell iunsig def 4.0 (wt reast) 4 bytes ( enclude detrg. op thes.h)
** Fook flenylsmile machf d,/letsmayarhangaluaat oba2 bytes (ode,>
- a
** toes the follklimits acpor ebuly)
*/
typedef unsig deflomp Iostatas, o;
/*
** sfor xr", anie, oa enop theiline argu.
** Fook n iostatas, of 4.0 2 bytes,k foresul16 code,sfor_b finnbel5
** facpor ebuly,k for_ulg ithbel10 code,sfor_alg ithbel5)
*/
#t of d "_ZE_INSTRUCSCON 32
#t of d "_ZE_B 9
#t of d "_ZE_OP 6
#t of d "_ZE_U ("_ZE_INSTRUCSCON-"_ZE_OP)
#t of d POS_U "_ZE_OP
#t of d POS_B "_ZE_OP
#t of d "_ZE_A ("_ZE_INSTRUCSCON-("_ZE_OP+"_ZE_B))
#t of d POS_A ("_ZE_OP+"_ZE_B)
/*
** limits lookop theiline argu.
** wof (sig de)komt toumanipulevucmoa firse argu,
** so toey mI>adfigforeBITS_INT-1eb ts
(-1eline fgn)
*/
#lf "_ZE_U >1) /* `S'o arsig def*/
# lse
#t of d MAXARG_U MAX_INT
#t of d MAXARG_S MAX_INT
# thif
#lf "_ZE_A MAXARG_B
#undef MAXSTACK
#t of d MAXSTACK MAXARG_B
# thif
/* max, umsin a numbelocptkv cixecusa*/
#lfndef MAXLOCALS
#t of d MAXLOCALS 200 /* arb traryolimit (=MAXSTACK
#undef MAXLOCALS
#t of d MAXLOCALS (MAXSTACK-1)
# thif
/* max, umsin a numbeupv / et */
#lfndef MAXUPVALUES
#t of d MAXUPVALUESw32e /* arb traryolimit (<=MAXARG_B)f*/
# thif
#if MAXUPVALUES>MAXARG_B
#undef MAXUPVALUES
#t of d MAXUPVALUES MAXARG_B
# thif
/* max, umsin a numbev cixecusaored inleftt fdermbel iassig arg
*/
#lfndef MAXVARSLH
#t of d MAXVARSLHl100 /* arb traryolimit (=MULT_RET
#undef MAXVARSLH
#t of d MAXVARSLH (MULT_RET-1)
# thif
/* max, umsin a numbee cametessasilt funce, oa*/
#lfndef MAXPARAMS
#t of d MAXPARAMSl100 /* arb traryolimit (=MAXLOCALS
#undef MAXPARAMS
#t of d MAXPARAMS (MAXLOCALS-1)
# thif
/* in a numbelthe items.obaacpumulevucbefLux a SETLIST iostatas, of*/
#t of d tFIELDS_PER_FLUSH 64
#if tFIELDS_PER_FLUSH>(MAXSTACK/4)
#undef tFIELDS_PER_FLUSH
#t of d tFIELDS_PER_FLUSH (MAXSTACK/4)
# thif
/* in a numberecordlitems.obaacpumulevucbefLux a SETMAP iostatas, of*/
/* (ea, witem counts 2 eex argul oaines thck:k n iodePTode,aeh / e)f*/
#t of d RFIELDS_PER_FLUSH (tFIELDS_PER_FLUSH/2)
/* max, umslse, ackeed yf d,aerealkc osta i (fooker / code ge, o) */
#lfndef tOOKBACKNUMS
#t of d tOOKBACKNUMS 20 /* arb traryoc osta i */
# thif
# thif
/*
Themed: lta-4lux "o/lobjgv"uh */
/* skipp d: ta.hs
#t of d th -INTERNALERROR(s) ass rt(((void)s,0))
#t of d th -ASSERT(c,s) ass rt(((void)s,(c)))
# lse
#t of d th -INTERNALERROR(s) /* empty.*/
#t of d th -ASSERT(c,s) /* empty.*/
# thif
#lfdef th -DLUA_D/*.to avoid wareompg code,makes truch / er. Thptionun d */
#t of d UNUSED(x) (x=0 c(void)(x))
# lse
#t of d UNUSED(x) ((void)(x)) /*.to avoid wareompg.*/
# thif
/* mar, lookrlostrus activeeioaines thck.*/
#t of d th -TMARK 6
/*.tags.lookv / et viexpoe lted tof==for a f -creatdeftagi*/
#t of d NUM_TAGS 6
/*.check whelh nu`t'e araemar, */
#t of d is_T_MARK(t) ((t) == th -TMARK)
typedef un, of{
k dataskTSdaompi*ts; /* th -TSTRING, th -TUSERDATA */
k dataskClostruc*cl; /* th -TFUNCSCON */
k dataskHash *a; /* th -TTMBED */
k dataskCptiInfok*i; /* th -TLMARK */
kNn a n n; /* th -TNUMBER.*/
} V / e;
/* Macros.obaacp prov / et */
#t of d ttype(o) ((o)->ttype)
#t of d nv / e(o) ((o)->v / e.n)
#t of d tsv / e(o) ((o)->v / e.ts)
#t of d clv / e(o) ((o)->v / e.cl)
#t of d hv / e(o) ((o)->v / e.a)
#t of d infov / e(o) ((o)->v / e.i)
#t of d sv / e(o) (tsv / e(o)->str)
typedef datask ta_TObjgv" {
komt ttype;
kV / eov / e;
}kTObjgv";
/*
** Sdaompiheadessaline daompinxecut*/
/*
** moa f`mileoc' libraries ileocevucmemoryois blocks en8 bytes.kTSPACK
** tadbeld inla>adfield!.*/
} TSdaomp;
/*
** Funce, o Prototypeg
*/
typedef dataskProtof{
kNn a n *kin ; /* Nn a n nn a nsu d by toes unce, oa*/
komt nkin ; /* for en`kin ' */
k dataskTSdaompi**k da; /* daompt d by toes unce, oa*/
komt nk da; /* for en`k da' */
k dataskProtof**kproto; /* funce, os t of de iosfdertoes unce, oa*/
komt nkproto; /* for en`kproto' */
kIostatas, of*er /;
komt ner /; /* for en`er /'; when 0cmeanhis id ink, comp`Proto' */
ks,lrt nn e cams;
ks,lrt is_v carg;
ks,lrt max thck for;
ks,lrt mar,de;
k dataskProtof*next;
k/* for infoomda, oa*/
komt *rf dinfo; /* map lted op thesandengle sorf dt */
komt nrf dinfo; /* for en`rf dinfo' */
komt nlocv cs;
k dataskLocVar * ocv cs;dinfoto' lrt mar,de;
k dataskProtof*next;
k/* for infoomda, oa*/
komt *rfTid * infoomar,de eprg a0srated I>.wraas follows:
lv ocv csna;
}kTObjgv";
/*
k/* {I>.wraas foxthrlibe( ta);
/*rtpxl*/
/*elh nuts
ua ks,)(x))p;
/*ikv / et veprg a0srd tpxl*/*/
/*elh nuts
ua ks,)(x))p;
/*ikvdileaskPro
k/* Nn a n *kiTTMBED a nsu d by toes unTTMBED *flomp hosh;
kkk_Stgen *L,kc oxl*/
/*Cif
#t of d t *v / e;
k* map lll*/
/*Lar for f d t *} frotof*next;TTMBED */ted op tf*next;TTMBED */omt /* fouringags.lookv(ts
ua argihich ks,lry odfourin) for;
ks,lrisC /* 0def objg for f, (Cif
#t of d t * ks,lrt /*/I>.waompihe /[1B)->pTTMBED *ev cu; ta_tagr)
>v / e.n)== th -TTMBED)
# &&(o)->v / e.->isCe;
}kTObjgv";
/*
NMS {I>.waompihekey/I>.waompihe->vop tf*next;NMS /ted ok} d;
k} /* d ta_i};NMS ;
}kTObjgv";
/*
ARK **/
kMS /tk, comp`ProhataskTS);
omda, okMS /elh nfre*/
ks, ub
Theff n[th f ae*/
toeheff n[tsCL
Iip) ((fuutlook* th -TLMARK */ted op tf*next;ARK */omt /* fouringd infil(ts
ua argihich ks,lry odfourin) for};ARK ((o)->tunfouringd infil(x=0ags.lookv re m,lrss are satats
uad t`four't notmp Iomichv a nsu cu; fourinookrlox.->un, o!= mpg.* a n *ki oa*/
komt, look fa.oba- (gram is defin) nsu d by toes unT/
} V / {p tf*next;TTMBED */mluxl*/
/*tas, of*etionaimove it-ID
v / ]mpg.of d M =o"p_power2 (of d M omt taL_addO=====> C)
*/
th -APIkomnu*B,kc oa_Hootw ist[Oomt TMB =======Themed: t1, ======Themed: t2ar *ep);
Oomp rd =============or /
komt ======_Hoo========OI omt taL_of dndaompi(c ostwchar *gram,kc ost========OIchunkkomtchar * lo,ID
#l to dodt o.h>
/dodt iuh */
/*
** $Ief th -DLto incluxl*/
#lfdoberndeEx00/10/30 12:3 thckoberndeExo $
** li thckobfunce41eg code,s05 13:00:1See Copyright Noti Gta_set dndaYPE
of d limits_h
#i to inc
#l to thckdt o.h>
/ thckdt uh */
/*
** $Ief th -DLto incluxl*/
#lfdoberndeEx00/ndef NDLUA_D#l to inc
#t00/ndef NDLUA_D8:50 robto inc
#t o nsu d Themed: StkIdinfoomdaOTL "Heas20
RFIELDS_
#t o en8 b->ueocevuR(-1)
#t P>
rav a nsu cu; REGIXse ( ta_Stg-1ed: lta-4cutd;d
kIosre1>
L a nsu cu; HOLDf MAXPARAMS -#t of d "_COLLECTEDf MAXPA- stgen maniOCKf MAXPARAMS -4o func;
};R(-MS {I>.waompoibe( ta);
OTg ithbiOCK, HOLD,_COLLECTEDThiso( ta_Scevusre1>
)alib.h */gv";
/*
*ta ijmp; op then`kprotolidooh>
#ta*/
komM; op then`kprotolitmrndeEx
nsu d by toesen`k dutleog{taskTS);
omdaof d M o */; op tstatas, of RFIELDS_
#t {I>.wraas * */
k}sen`k dutleoadbelo) ( ta_Stgen *L){
e*/
ksrkvd-lllimitx thck
#t {StkId4cuptpxl*/
/*elhsre1>slopreci eneoe lted {StkId4oe lt for en ltese (ed {StkId4oe lt_
/*wdpxl*/
/*wasre1>slopreci eneoe lted { ta);
infoomdaStkId4Cse (dpxl*/se (e d;
L Ce ittas, of*er gv";
/*
*ta ijmp *omt Jmp; op t L omt t*/
/ omh nuts
*pasu */
*Mpi( ta; op t ta_set L_BUFFe "_Z*B,kc oMpi( infooVar * ocv cs;M L_BUFFe "_Zp t ta_set thck
#t {
k* marootmt ner /;
L(p)) l p Nn a n n
#t {xt;TTMBEDrootclr /;
L(p)) l x=0ags.lo
#t {xt;ARKrootutleoa /;
L(p)) l toomar,de epen`k dutleognsig /* linixecutleogtiodeP; /* homt en`k dutleogudt.*/
} Tnixecutleogtioduu;
k for_xt;ARKgg /* liutleogtiod( ta_Stgce, oa*/
komM *TMutleoa /; utleogtiod /* (u),r,de eprg a0/*w tadpxl*/
/*wa */
/eciTMutleogce, oa*/
koR(-M ==fA>
radpxl*/
ocfourbjgv"_hvdilealeaRL SnfooVar * ocv cs;==fA>
ravdilealeaRL F nfre*/
L(p)sre1>toeheff n[in;==fA>
ravdileae c osta itGCmt ta_;leae c osta itnmp)rae; op tstatas, of`ex e'he ard isg bamakes
/* : l k{
kc k ta_s<;: l k{
kc D
#l to
*/
dt o.h>
/
*/
dt uh */
/*
** $Ief th -DLto incluxl*/
#lfdoberndeExxxx
k* mapuaF(L,np Nn
c ostwchar * ta========F_p Nn 60
datask ta_Dfo
k* ma , pwchaxt;TTMBEDpuaF(L,nIkvoid ta_push tag -APIkRFIs ta========F_sre1p Nn
c ostwchar *fo
k* ma ta========F_sre1Ikvoid ta_push tagh -TTMBED )h *ostwchar *t o,kFh -APIkc isin aostwch
k* ma itt, Ikc e, oaob, pwcha*/
/*
** $Id: talib.luxl*/
#lfdober30 2000/10/30 12:3gtoberndeExo $
** ligtobsicst8eg code,s02fAPI47:4ght Noti sorg. ta.hth
Thhod ( ta_orYPE
of d limits_h
#i to inc
#l to g
dt o.h>
/g
dt uh */
/*
** $Ief th -DLto incluxl*/
#lfdoberndeExxx========C_de( ta_ ta_push tag -APt ta========C_mh LIGC
c ostwchar * taI_
/*
** $Id: talib.luxl*/
#lfdober30 2000/10/30 12:3memoberndeExo $
** limemobsicsty6look tofobjgv6:29:5See Copyright Noti Ihead1 SEE ALMrof(TSManaa */
E
of d limits_h
#i to inc
#l to memdt o.h>
/memdt ta.hs
#t
** ====M_se
#tocs (l of-> thck)
*/
thta_mp)ra,aof d M info -A=========M_ d DauL ta_Stgen *L,kom======mp)ra,a*B,kc oakRFIs,gerroo(L, numarg,e art n);
ce, o funce, os
*/
th -APIkoomt msg,gerroo(L, numarg,e aroshinxec:05 )>beff n[th L_BM_sre1====b {====M_se
#toc taL_b)a_newtxg(L), (t)M_m
#toc taLta_isfM_se
#toc taLa n(h -TFUNtxg(L), (t)M_L,n taLtaumarg,e ar((s
*)(t)M_m
#toc taLatask{ t)FUNtxg(L), (t)M_L,nT_STAC foroft)ar((s
*)(t)M_m
#toc taL(n)*(of d M)atask{ t)FUNNtxg(L), (t)M_ d DT_STAC forv,akRFIs,;
cet,e,l_argerroo(L, n((v)=(s
*)(t)M_ d DauL forv,akRFIs,;
ceatask{ t),e,l_UNNtxg(L), (t)M_se
#tocT_STAC forv,aft)a\
((v)=(s
*)(t)M_se
#toc taLv,(n)*(of d M)atask{ t)FUNN / er. Thptionun c&p tfe c osta itmem data, oap)rae; c&p tfe c osta itmem datan ahe-> c&p tfe c osta itmem datamaxmem-> c&p tfe c osta itmem datamemc:05 ;* skipp d: ta.hs $Id: talib.luxl*/
#lfdober30 2000//
/*
** $Ief th -DLto incluxl*/
#lfdoberndeEx00/ndef NDLUA thckobeto incluxl*/
#lfddooberndeE/10/30 12:3 tin: aerndeExo $
** li tin: afunce,4look tofobjgv"s
** See Copyright Noti Smemoryois b (ke1p a.h in /* * pre-are sLwcharE
of d limits_h
#i to inc
#l to tn /dt o.h>
/ tn /dt uh */
/*
** $Ief th -DLto incluxl*/
#lfdoberndeEx00/ndef NDLUA thckobeto incluxl*/
#lfddoobernd ny{I>.wraas ebulb->u>=FIXcros.belpe omhde( ta_agrexo)->rks>=RESERVEDcros.(p) (/
tea#ifnifyritteoaagr &ldsTSdaompi{
kuFIXcros h -TFUNCSCORESERVEDcros 3D *ev cu; atasd taL_la) taL_cy
** wastx en +argerroo(L, numarg,e ar,msg) taL_(l+1)-dfield)*(otaL_cy
** wth LI)xxx========S_taL_prepbeff n ( t ta========S_se ocv /
th -APIkomnu*n`k dutleog*tbth -APIkoinfo -AI>.wraas ===S_================================k)
*/
th d=== -AI>.wraas ===S_'e ara=====================
*/
th d===stwchar *s);========S_sre1t ta_doularl( -AI>.wraas ===S_===t*leo);
th LIB-API o *L,kc ostwcharnu*B,kc ostwcI>.wraas ===S_===uff nu( ta_Stgen *L,kc ostwchar *bI>.wraas ===S_===fixeomt c,kc ostwchar *L,kc ostwchar *bI_
/*
** $Id: talib.luxl*/
#lfdober30 2000/10/30 12:3utleo aerndeExo $
** liutleo afunce,4look td tofAPI
** See Copyright Noti f oingd infnixeharE
of d limits_h
#i to inc
#l to ingd dt o.h>
/ingd dt uh */
/*
** $Ief th -DLto incluxl*/
#lfdoberndeExxxo) (,ko(t,ia) & t)->(,ko[i]UNtxg(L), key(ry(L)&L, f>keyUNtxg(L), d isry(L)&L, f>d i)xxxt;ARKluxH_===uff nu( ta_Stgen -APInixeh);========H_sre1uff nu( ta_Stgenxt;ARK )>bc ostwThemed: ===H_io( ta_Stgen *L,komc ostwxt;ARK i(c ostwThemed: keyU>bc ostwThemed: ===H_io(, o aostwchxt;ARK i(/
komtkeyU>bc ostwThemed: ===H_io(*leo)ostwchxt;ARK i(I>.wraas keyU>b========H_ t ( taxt;ARK i(Ihemed: keyU>bThemed: ===H_io( ta_Stgen *L,komxt;ARK i(c ostwThemed: keyU>b, okMS luxH_==ta_Stgen *L,komt ic ostwxt;ARK i(c ostwThemed: rU>bThemed: ===H_io(ia_Stgen *L,komt omxt;ARK i(ia_SkeyU>b========H_so(*le, o agen *L,komt omxt;ARK i(I>.wraas keyi(/
komtd i);
eb ts
*/
#t o==H_nixecaL_of dndaompi(c ostwThemed: keyU>bc ostwThemed: ===H_io( ta_settxecut( ta_Stgen *L,komt index);
tof d ';
thdca - (gram is dedeEx, okMS===H_t_srb
Theff n)ostwchxt;ARK i(c ostwThemed: keyU>bI_
/*
** $Id: talib.luxl*/
#lfdober30 2000/10/30 12:3umoberndeExo $
** litmobsicsty8eg code,s05 13:00:1See Copyright Noti T /* (u),rarE
of d limits_h
#i to inc
#l to imdt o.h>
/tmdt uh */
/*
** $Ief th -DLto incluxl*/
#lfdoberndeEx00/ndef NDLUA thckobeto incluxl*/
#lfddoobernd eExo WARNING: follits acporiscldas, ofks, ue, o 20 nd ogr1p "ORDER TM"in) nsu d e, oMS {IM_GE n n; = 0, {IM_SE n n; , {IM_INDEX, {IM_GE GLOBAL, {IM_SE GLOBAL, {IM_ADD, {IM_SUB, {IM_MUL, {IM_DIV, {IM_POW, {IM_UNM, {IM_LT, {IM_CONCAT, {IM_GC, {IM_ -TTMBED, {IM_Net */statas, of RFIELDS_eci enee, oMataskPMSh */gv";
TMMS {xt;TTMBED (u),[IM_N]Bc.wraas*de( ta_agre*/
L(p)gh
Thholde( ta_hdc====== ebulks, uar, */
}ED *ev cu; =o"T);
thmd tag,
/*
L/ TMutleo[tag]. (u),[
/*]) *ev cu; =o"T);
thmbyhemd o,e)ar(=o"T);
thmd= th=o"T)) ==o),(e)FUNN /xg(L), d iid) ==*
is_T_MAR <= -TF)
# -TF)
#l to ivdt o.h>
/tvdt uh */
/*
** $Ieoobero incluxl*/
#lfdobern0 2000//
/*
** $Ief th -DLto incluxl*/
#lfdoberndeEx00/ndef NDLUA mobero incluxl*/
#lfdobern0 200 /xg(L), d * ta_t {
ko(
>v / e.!=
#t of d tty)
# -TuxlV_ * ta_t {
!=
#t of d th ta_n o,)o(
>v / e.!=
#t ofUNCSCO)
# -TuxlV_ ta_n o {
!=
#t otw ist[OV * ta_tonhemed: o.bjh *ep);
TV ta_ndaleoa( ta_Stgenhemed: o.bjh * ostwThemed: ===HVawgeto( ta_Stgen *L,komt tkId4cuta========TVawseto( ta_Stgen *L,komt tkId4cut tkId4ceyU>bc ostwThemed: ===HVio( ta_settxecut( ta_Stgen>.wraas*dsta========TVawseta_settxecut( ta_Stgen>.wraas*dsta=tkId4c==TVaexec ,klxecut( ta_Stgen *L,ko -TTMBED */kStkId4se (ata========TVaCkvoid ta_push taga( ta_Stgen *L,cg -APIkRFIs ta========FV_Lkvoid ta_push taga k* mapug -APIkRFIs ta=ep);
TV Ikon ecut ta_toi ostwThemed: ==(c ostwThemed: rU,StkId4cuptta========TVawtr forStgen *L,kc ostwchar od ThitkId4cuptta=
/*
** $Id: talib.luxl*/
#lfdober30 200*ostwchar *t gen #ifni[]= 0"$ o: "(C) 1994-200 "(""
#t of d th -(""$\n"erroo(L, numarg,e ar,msg)
#t of "$Ac are : "(C) 1do"
/*""$";(gr foll"argIOTL oi,n,d)) >=
? L/ Tse (d+,d))-1)) : L/ , o +d))UNNtxg(L), (1.82rcre, o ****rcre, o (gr Themed: luxA_ OTL ta_Stgen *L,komt n);
th -S {xar *grgIOTL o;
th -A=}*/gv"(tic hemed: luxA_ OTL Accepto( ta_Stgen *L,komt index);
th{taskTfdRu TL t>=
)osh;
khemed: o. )=/ 0se (d+,u TL -1)sh; /TfdRot>=
/ , o )xar *grg n(hsh; /*/
#xar *grgibe( }
/*/
#xar *grg/ , o +sk{ /
oo========D===== filebaaL_of dndaompi(c ostwThemed: o.hosh;
*/ , o .n o.be( tare, o /
ook ta_Dfor k*ar);sk -> C)
*/
th -APIkomt S {xar *grg(/ eo lt_
/*w)ro / , o )/
oo=tope( ta_Stgen *L);
th -APIkvoid _Dfor k*ar);
th -APIk*L,komt index);
thS {xar *grg(/ e*L,k-=/ 0se (d)/
oo=);
/*
** =lushh / er( ta_Stgen *L,komt index);{taskTfdRu TL t>=
)h;
kkk__unsig / er***** 0se (do;
th -A= /*/
#h;
k/ , o .n / , o +sk{ +1nfoomdaOTL "elpe ce a et ve
oo=);
/*
** =lush t ( ta_Stgen *L,komt index);
th{tasktkId4c .n uxA_ OTL o;
th -A= wh ta_d++, \
/ , o )x*(p-1).n opA= / , o --/
oo=);
/*
** =lushk pa so( ta_Stgen *L);
/*
** a{tasktkId4c .n uxA_ OTL o;
th -A= tkId4cqA= (gr(q.n / , o ; q> ; q--)h;
k*q.n *(q-1)sh; * .n o/ , o ;
oo=);
/*
** =lushe and ( ta_Stgen *L,komt index);
thosh;
*/ , o .n ouxA_ OTL o;
th -A= 1.82rcre, o ***/
oo=tope( t ta_type ( ta_Stgen *L,komt indexDfor k*ar);
th -Ata_typegramu( ta_Stgen *L,komt{tasktkId4co.n uxA_ OTL Accepto( t o;
th -A= ar *grg(o.n)= n(L, ? -REFREGIS :
>v / e/
ook ta_Dfo*ar,komt o);
thta_isin a nu( ta_Stgen *L,komt{task* mar, L-A= ar *grg(tkth -REFREGIST ? "nocut*/
" :=o"p_ ta_isins[]t];
oo=);
/* );
th -A ta_taga( ta_Stgen *L,komt inde{tasktkId4co.n uxA_ OTL Accepto( t o;
th -A= ar *grg(o.n)= n(L, ? 0 := ta_tagr/
ook ta_Dfor k*ar);etreta_tondaompi( ta_Stgen *L,komtS {I>.waompo*o.n uxA_ OTL Accepto( t o;
th -A= ar *grg(o.n)= n(L, ? 0 :=( * ta_t {
==
)/
ook ta_Dfor k*ar);et ta_ndaleoa( ta_Stgenmt index);{taskT,kom.n uxA_getref(;
th -A= ar *grg(tkth -REFRUNCSCO#t otkth -REFREd tty);
oo=);
/* );
th -Ata_Stgen *L,kc ostwcharL,komt{tasktkId4co.n uxA_ OTL Accepto( t o;
th -A= ar *grg(o.n)= n(L, ? -REFNOMAR :=o"p)) ==o),/
ook ta_Dfor k*ar);t TStgen *L,kc ostwcharL,kom1twcharL,kom2t{tasktkId4co1.n uxA_ OTL Accepto( t o;
th 1-A= tkId4co2.n uxA_ OTL Accepto( t o;
th 2-A= TfdRo1.n)= n(L#t oo2.n)= n(L, ar *grg0nfoomdaOTL "out-of-r acpo : l*/
#xar *grgl[Oomt TMB Ro1o {2,/
ook ta_Dfor k*ar);Ikon ecut ta_toicharL,kom1twcharL,kom2t{tasktkId4co1.n uxA_ OTL Accepto( t o;
th 1-A= tkId4co2.n uxA_ OTL Accepto( t o;
th 2-A= TfdRo1.n)= n(L#t oo2.n)= n(L, ar *grg0nfoomdaOTL "out-of-r acpo : l*/
#xar *grgl[OV Ikon ecu o {1o {2, / , o )/
oo=tk ta_Dfotdef);
th * ta_tongen *L,kc ostwcharL,komt{tasktkId4co.n uxA_ OTL Accepto( t o;
th -A= ar *grg(o.n)= n(L#t ot * ta_t {
, ? 0 :=(o)->v / /
ook ta_Dfo*ar,komt o);
tht ta_ndaleoa( ta_StgencharL,komt{tasktkId4co.n uxA_ OTL Accepto( t o;
th -A= ar *grg(o.n)= n(L#t ot ta_n o {
, ? n(L#:TObjgv" {
/
ook ta_DfoB,kc ostbelse (/
c ostwchar * encharL,komt{tasktkId4co.n uxA_ OTL Accepto( t o;
th -A= ar *grg(o.n)= n(L#t ot ta_n o {
, ? 0 :=ype;
kV / euu*/
}ok func);
th -_Stgen *L,
tht ta_taga( ta_Stgen *L,komt inde{tasktkId4co.n uxA_ OTL Accepto( t o;
th -A= ar *grg(o.n)= n(L#t o! ta_tagr, ? n(L#:T&(o)->v / e.f.c/
}ok func);
** ======to========================charL,komt{tasktkId4co.n uxA_ OTL Accepto( t o;
th -A= ar *grg(o.n)= n(L#t ot
>v / e.!=
#t ofTNIL)
#t ? n(L#:erroo(L, numarg,e ar,msg)
#t of ype;
kV / eu.d.ut*/
/*ook ta_Dfo*ar,ko
** ======tob ts
uaa===============charL,komt{tasktkId4co.n uxA_ OTL Accepto( t o;
th -A= TfdRotn)= n(L, ar *grg n(hsh; swiThemet
>v / e)osh;
kc (e n a n n; : erroo(Lar *grghbjgv" {
/
;
kc (e n a n-TTMBED,:erroo(Lar *grg&(o)->v / /
;
kg(Lault: ar *grg n(hsh; }
oo=tope( te anype ( ta_StgC,komen *L indexDfor k*ar
** =lushe anni ta_doularl( -osh;
t
>v // , o )xh -TNONE)
A= 1.82rcre, o ***/
oo=for k*ar
** =lushe ann ta_tongen *L,kc ostwtdef);
n-osh;
(o)->v / , o )xh */
kt
>v // , o )xh -TNONEd ttyA= 1.82rcre, o ***/
oo=for k*ar
** =lushe anl ta_ndaleoa( ta_Stgeni( taL_Buff nu*B,kc osten-osh;
ype;
kV/ , o )xh l=S_===t*leotaLat,enn)h * kt
>v // , o )xh -TNONUNCSCOA= 1.82rcre, o ***/
oo=for k*ar
** =lushe an ta_ndaleoa( ta_Stgeni( taL_Buff n;{taskTfdRstn)= n(L,h;
kkk_he anni L-A= */
#h;
klushe anl ta_ntaLat,ese (/
(s)*/
oo=for k*ar
** =lushe anckvoid ta_push taga( ta_Stgen *L,fnktypen_H{task==TVaCkvoid ,k tan,n_Hoo
oo=for k*ar
** =lushe ancrlostr===============
*/
th dtwchar *s){
e*/
kRDER T-TNONdileale str=th -REFANYMAR t ottr=th -REFk dataskHat o iid) ==*
*s)),h;
kkk_I omt t,k t"in iid)ottr=nderes==========%d)",r *s);*;
ype;
kV/ , o )xh l=S_=e ara======u(L, f, *s);*;
y
>v // , o )xh -TNON dataskHA= 1.82rcre, o ***/
oo=tope( to( tpe ( ta_Stg oikomen *L indexDfor k*ar
** =lusho( ta_settxecut( ta_Stgen *L,komt index);
{tasktkId4c o .n / , o sh; * o .n ouxAVio( ta_seta_type(SL,n taLtex);
)A= / , o .n o sh; 1.82rcre, o ***/
oo=for k*ar
** =lushwgeto( ta_Stgen *L,komt charL,komt{tasktkId4cm.n IOTL o;
th -A=sktkId4c o .n / , o sh; *( o -1).n o==HVawgeto( ttaLtauA= / , o .n o s/; utl/* (u),rklimits acporo . ve
oo=);
/*
** =lush awo( ta_Stgen *L,komccharL,komt{tasktkId4cm.n IOTL o;
th -A=sk*.to avoid y
>v /t,n) == th -TUSE t"to( taexpa_hdc")sh; *(/ e*L,k-=1).n o==H_io( o;hbjgv" t), / , o k-=1)/
oo=for k*ar
** =lush awo( ita_Stgen *L,komccharL,komktypen_H{tasktkId4co.n IOTL o;
th -A=sk*.to avoid y
>v /o,n) == th -TUSE t"to( taexpa_hdc")sh; */ , o .n ouxA_io(, o (hbjgv" {
,n_Hoo; 1.82rcre, o ***/
oo=for k*ar
** =lushwge ta_Stgcta_doularl( -osh;
he;
kV/ , o )xh / ,gt;*;
y
>v // , o )xh -TNON-TUSEoo; 1.82rcre, o ***/
oo=for k*ar);
th -APIkrefta_Stgen *L,komccharref;{taskTfdRreft) == thREFE)
,h;
kt
>v // , o )xh -TNONE)
A= */
#xTfdR0
ra[L ].sotkth OCKfat
/ L A>
ra[L ].sotkthHOLD)),h;
*k/ , o .n / L A>
ra[L ].o-A= */
#h;
ar *grg0oo; 1.82rcre, o ***/
ar *gr1*/
oo=for k*ar
** =lusL,neto( ta_Stgen *L,ko -osh;
he;
kV/ , o )xhluxH_=== o0s);*;
y
>v // , o )xh -TNON-TUSEoo; 1.82rcre, o ***/
oo iostatao( tpe ( ta_Stgen *L,koLwcharndexDfor k*ar
** =lusawseta_settxecut( ta_Stgen *L,komt index);
{tasktkId4c o .n / , o sh;l==TVawseta_seta_type(SL,n taLtex);
)A= / , o .n o-+1nfoomh t ( t RFIELDfor eaat
*ro . ve
oo=);
/*
** =lusawseto( ta_Stgen *L,komt charL,komt{tasktkId4cm.n IOTL o;
th -A=sktkId4c o .n / , o sh;l==TVawseto( ttaLt,n o-2
)A= / , o .n o-MAX_"_Zp o S_PER_FLUSnd ( t. ve
oo=);
/*
** =lush aio( ta_Stgen *L,komccharL,komt{tasktkId4cm.n IOTL o;
th -A=sk*.to avoid y
>v /t,n) == th -TUSE t"to( taexpa_hdc")sh; l==H_so( o;hbjgv" t), / , o** r=; *(/ e*Lq-1)sh; / , o k= 2)/
oo=for k*ar
** =lush aso( ita_Stgen *L,komccharL,komktypen_H{tasktkId4co.n IOTL o;
th -A=sk*.to avoid y
>v /o,n) == th -TUSE t"to( taexpa_hdc")sh; l==H_io(ia_ o;hbjgv" {
,n_r=; *(/ e*Lq-1)sh; / , o --/
oo=);
/*
** =lusswge ta_Stgcta_doularl( -osh;ktkId4L,neto( t= -- / , o sh;k*.to avoid y
>v L,neto( o,n) == th -TUSE t"to( taexpa_hdc")sh; / ,gt= ;hbjgv"L,neto( o*/
oo=for k*ar);
th -krefta_Stgen *L,kom Ikk);{taskT,kkre-A= Tfd
y
>v // , o -1).xh -TNONE))#h;
af ) == thREFE)
A= */
#osh;
L/ L F nfe.!=REGIXs);
kkk}, uaa ks,a)sre1>tlace?k for_ttle af ) =/ L F nf;or_ttleL/ L F nfe.n / L A>
ra[L ].st;or_tt}
h; /*/
#
kkk}no margusre1>tlace* homt tourlt)M_ d DT_STAC for / L A>
ra,\
/ L Snfo, 1,oa*/
koR(-,gerroo(L, numarg,e ar "r(-1)
#t "to( t d BITS_)",
#lfnde);or_ttleL/ nmp)rae taLcy
** wa*/
koR(-);or_ttle af ) =/ L Snfo++;or_tt}
h; / L A>
ra[L ].or=; *(/ e*Lq-1)sh; / L A>
ra[L ].som.n )ra, ? OCKf:hHOLDibe( }
/ , o --/
ar *grkre-A}oo iostat"do" tpe ( ta_Stomt g oo,koml5)
*bytes ofksem.(p) tolidoohharnde=for k*ar
** =lush amt ta_doularl( tatypenarg,, nrchar *uH{task==D_mt for / , o (narg,+1{
,nrchar *ula}oo iostatGh
Thholde( ta_*L,kc osenclude08/31 GC nv / e((p) aexrchsprotolKex e: #ex e/2^10L a nsu cu; GCsmt erino
k k dokrl>>1
#t of d thGCunsmt erino
k /* mnk, umx)<<1
oo=for k*ar);
th -APIgcmt ta_,komt index);
thS {xar *grGCsmt er / GCmt ta_2,/
ook ta_Dfor k*ar)APIgc/
#t ,komt index);
thS {xar *grGCsmt er / nmp)rae)c/
}ok func);
** =lusswgecmt ta_,komt index);
th -APIkomt ta_2;{taskTfdIkomt ta_ >rGCsmt erULONG
/*
)),h;
/ GCmt ta_m.nULONG
/*
-A= /*/
#h;
k/ GCmt ta_m.nGCunsmt erIkomt ta_2 sh;l==C_mh LIGC ***/
oo en8 biscellaneouskc osenclude08/=);
/*
** =lusawseta_Stgen *L,kc ostwchar *sH{task==T_se
# tattaLt *s);*; swiThemet
>v (/ e*Lq-1e)osh;
kc (e n a n n; or_ttle
he;
kV/ , oq-1->hottr= k dataskTSdbrkvk
/
;
kc (e n a N datask or_ttle
ype;
kV/ , oq-1->eu.dottr= k dataskTSdbrkvk
/
;
kg(Laultmt tourlt)_I omt t,k tcan,lryits acporisottr(p)) %.20s",gerroo(L, numarg,e =o"p_ ta_isin (/ e*Lq-1ehsh; }
oo=);
/*
** =lusunkrefta_Stgen *L,komccharref;{taskTfdRreft>=
)osh;
k*.to avoid=typ \
/ L Snfopel / L A>
ra[L ].som< 0k t"in iid)L "1)sh; / L A>
ra[L ].som.n=/ L F nf;or_ttL/ L F nfe.nkre-A= }/
oo=for k*ar);
th -==ta_Stgen *L,komt iccharL,komt{tasktkId4cm.nouxA_ OTL o;
th -A= /
kMS -A=sk*.to avoid y
>v /t,n) == th -TUSE t"to( taexpa_hdc")sh;n)xhluxH_==x( o;hbjgv" t),ouxA_ OTL oq-1ehsh;kTfdI
)osh;
* // , o -1). key(n1)sh; */ , o .n d isry)sh; 1.82rcre, o ***/
ar *gr1*/e( }
/*/
#
kkk}no margu RFIELDS_
#t {h; / , o k= +1nfoomh t ( tkey_
#t {h; ar *grg0oo;}/
oo=for k*ar);
th -io(,_Stgen *L,komt iccharL,komt{tasxt;ARKht= ;hbjgv"ouxA_ OTL o;
th **/
c ostwThemed: nd ( txhluxH_io(*le(h_type(SL,n taL"n")[I);
,nd ( txhh.nNdileale y
>v 2)
/*kth -REFREd ttyt {h; ar *grk k d
(o)->v2)
/
A= */
#osh;
/
komtmax = 0*/
cchartxhh->infoomda= /
kMS txhh-> /tk, c= wh ta_i--
)osh;
eale y
>v key(n1/*kth -REFREd ttpelgerroo(L, n y
>v 2)
(n1/*!xh -TNONE)pelgerroo(L, n
(o)->vkey(n1/*>tmax)gerroo(L,max =
(o)->vkey(n1/ataskTSdn++;or_tt}
h; ar *grk k dmaxhsh; }
oo=);
/*
** =lusr foaa_Stgen *L,komt icchan;
{tasktkId4c o .n / , o sh;l==TVawtr fo forof4cuptta= / , o .n o-(nq-1)sh;l==C_mh LIGC ***/
ook func);
** ================================ o funce, o)/* {I>.wraas DS_xh l=S_=========u(Le, os
= n(L);*;
ype;
kV/ , o )xhts);*;
y
>v // , o )xh -TNON dataskHA= 1.82rcre, o ***/ ar *grts/ eu.d.ut*/
/*o/d: apiux,v 1.110 2000/100/10/30 12:3o,koerndeExo $
** l ofo,koersicst51os lted9/29ofilh2:1ght Noti sorg. ta.hCKNUMS 20evus0def .h>
/* skipp d: ta.hs
/* skipp d: ta.hs
#l to o,kodt o.h>
/o,kodt 000/10/26 12:47exoberndeExo $
** limexobsicst31os lted9/27gv"s
1:5**e Copyright Noti fexid * Analyz */
E
of d limits_h
#i to inc
#l to mexdt o.h>
/*exdt uh */
/*
** $Ief th -DLto incluxl*/
#lfdoberndeEx00/10/30 12:3ziooberndeExo $
** lizioobsicst27g code,s2jgv6:36:32*e Copyright Noti ======ed4oerkvmrarE
of d limits_h
#i to inc
#l to ziodt o.h>
/ziodt a.hs --
>
? k k d*(zi->p++): (zi->filbuf(zi#t of d thzunio(c(zi,n++(zi-> ,--(zi->p#t of d thzisin zi,n,zi-> ex);lfndefb--------- Priv====Partb------------------ itsuh>
#l toZBtype oba-nstrZBtype 256_Iompg L_BUFF ocv *#t of d thby toeszio * { o funcn; _Iompg /
typst "_Zunkrave it-ID
.wraas DS k}sSemIkLocVar * eman
#iS_ecgle sorf dt *ine daompt */
kkkoken;{taskT,kooken-A=skemIkLo* emskLocaskPoken-Ana;
}kTObjgv";
/exen *L){
e*kT,k
/*
kc; op t L omt actUFFe "_Zkoken;c; op t L ookenFe "_Zkoken;*/
#aies dpxl*/
ook aies ookenFe "_Zgv";
_Stg=======fe; op t`_Stg=====
typpriv====t "_ZEMAXPsUFFe "_Z*) ( ta_Stgen *L)*(hsh; y toeszio *z0nfoomdaputdaerkvm0/08 t;statas0nfoomdaputdl*/iv/
#t UFFe "_Zia_S
/*w t;TTMBE\l*/ivof*//*w)ookenF`*/
ttali'_
#t {I>.wraas ollows: op t L */
koisin atask/exen *LED ========X_taL_prepbeff n ( t ta========X_io(iaputd===============/exen *L)*LS,{ZIO *z,{I>.wraas ollows ta=ep);
X_lTL t/exen *L)*LS,{kemIkLo** emskLo ta========X_mh LIundef M/exen *L)*l,, val, defs
*/
th -APIkomsg ta========X_iyntaxomt ta/exen *L)*l,, ni( taL_Buff nuni( taL_Buffooken ta========X_omt ta/exen *L)*l,, ni( taL_Buff nukT,kooken ta========X_ooken2*leo)kT,kooken,aL_Buff nED */*
** $Id: talib.luxl*/
#lfdo,koeberndeE*/
/*
** $Ief th -DLto incluxl*/
#lfdoberndeEx00/10/30 12:3uaat oba2erndeExo $
** liuaat oba2sicst68eg code,s24gv6:05:5See Copyright Noti O`rf din 0def oi (wt retoes therE
of d limits_h
#i to inc
#l to uaat obdt o.h>
/uaat obdt uh */
/*
** $I7:05 robeto incluxl*/
#lfdef th -DLUA_ uh ===========================================================================t {We talpor ebytes ( enclu.(p) /* men`kin .t {A"_Zytes ( enclu.havop thmoa fireci ene
/*elh6MAXAR. More d B,t {nbel5
** facporTg ihavop0, 1,o0de2rse argu,
*]; /cmeanhissrTg t {havopomp Iostatas, a n ntmt Ata_t0:}no se argu,
mt Ata_t1: 1 /* mse argu,reci enehitsUFFAXARG_ comove`U')mt Ata_t2: 1 /* mse argu,reci enehitsUFFAXARGGGGGGGGGG(`S')mt Ata_t3: 1HR] /* mse argu,reci enehitsUFFAXARGGGGGG(`A')gerroo(L, 2ndf /* mse argu,reci enemiddleFAXARGGGGGG(`B')gt {A /* mse argu,res re m,lrss areciex ta_tK;por eby nu eneen`kin/
(x))
# l ene /* m
(x))
msku_tK. s.belexactl datas ge, o)
(x))
= (gor ebse argu,r(f "_Z eb-max es re m,lrss artaL 32+max es/ a m,lrss artaL2*max), whh / u.halfdatas ge, o) (goriv/
sponof d/ /* mse argu,.gt {The* ocv cs;aeh /se argu,res hen`kprotol`I7:05 rob'.{The*ust re
/*in"_Zia
** facpor ebul32*AXAR, U se argu,
r ebul26FAXARG_32-6), B se argu,
mt ebul9*AXAR, 32A se argu,
r ebul17FAXARG_32-6-9).b finsm
#t"_Zia
*
#ta for orivia
** facpor ocv Tg ithb16,lf "UTnix 10*AXAR,t {nb32A sb32B{havop5FAXARGaeh .
===========================================================================eExxxx ((t)e araypedefskr ebul`n' MAXARGacha
Theff n`p'_
#t#t of d MASK1(n,pi,n,~n,~n; /cmeanhis)0)<ttypehelpdTS_INT-1eb ts
ytes ( enclu
itsuhsu cu; CREATE_0tagr? k; /cmeanhis) / et of d thGET_OPCODE(oi,n,OpCKNU)+,d)&MASK1(
/*OPse
#et of d thSET_OPCODE(o,oi,n,d))=? k,d)&MASK0(
/*OPse
# | k; /cmeanhis) / e)suhsu cu; CREATE_U(o,ugr? k; /cmeanhis) / | kk; /cmeanhis) u)<>POS_U et of d thSETftt U(o,ugrn,d))=? k,d)&MASK0(
/*U,POS_U e | rgerroo(L, numarg,e ar,msg)GGGGGG(k; /cmeanhis) u)<>POS_A et of d thSETftt A(o,agrn,d))=? k,d)&MASK0(
/*A,POS_A e | rgerroo(L, numarg,e ar,msg)GGGGGG(k; /cmeanhis) a)<>POS_B) & MASK1(
/*Bse
#et of d thSETftt B(o,b)rn,d))=? k,d)&MASK0(
/*B,POS_B e | rgerroo(L, numarg,e ar,msg)GGGGGG(k; /cmeanhis) b)<
ra( ocv =hugr /088OP_SETucbef,/* L x - ucb[l]=x /08OP_SE GLOBAL,/* K x - VAR[KFUN[k]]=x /08OP_SE -TUSE/* A B v a_a-a_1 i t (pops b nv / e) t[i]=vr /088OP_SETuIST,/* A B v_b-v_1 t t t[i+a*FPF]=v_i /08OP_SE MAP,/* U v_u k_u - v_1 k_1 t t t[k_i]=v_i /088OP_ADD,/* - y x x+y /08OP_ADDIs/* S x x+s /08OP_SUB,/* - y x x-y /08OP_MULT,/* - y x x*y /08OP_DIV,/* - y x x/y /08OP_POW,/* - y x x^y /08OP_CONCAT,/* U v_u-v_1 v1..-..v_u /08OP_MINUS,/* - x -x /08OP_NOT,/* - x (x==nil)? M:}nilr /088OP_JMPNSE/* J y x - (x~=y)? PC+=* /08OP_JMPEQE/* J y x - (x==y)? PC+=* /08OP_JMPLT,/* J y x - (xy)? PC+=* /08OP_JMPGSE/* J y x - (x>=y)? PC+=* /088OP_JMPT,/* J x - (x~=nil)? PC+=* /08OP_JMPF,/* J x - (x==nil)? PC+=* /08OP_JMPONT,/* J x (x~=nil)? xM:}- (x~=nil)? PC+=* /08OP_JMPONF,/* J x (x==nil)? xM:}- (x==nil)? PC+=* /08OP_JMP,/* J - - PC+=* /088OP_PUSHNE)JMP,/* - - nil PC++; /088OP_FORPREP,/* J /08OP_FORLOOP,/* J /088OP_LFORPREP,/* J /08OP_LFORLOOP,/* J /088OP_CLOSURE/* A B v_b-v_1 Ckvoid KPROTO[a], v_1-v_b) /088} OpCKNU>beff n[th is_TOPCODES,n, k dOP_CLOSURE+1etsuhsu cu; ISJUMPtagr)OP_JMPNS <= -oO)
# -oF)Iih -TNMULTRET to' */
g iargB_
#t#t of d MULT_RETg)GGGGGG255ompg(<=nleftt B/* maxif MULT_RET>nleftt B
#u#l toMULT_RETt#t of d MULT_RET nleftt B
#skipp d: ta.hs$Id: talib.luxl*/
#lfdo,koeberndeE*10/30 12:3AXPsUFa2erndeExo $
** liAXPsUFa2sicsty6look tofod9fA3I47:46*e Copyright Noti fL(1)=ParsUFFfil(xKNUMS 20evus0def .h>
/* skipp d: ta.hs
#l to AXPsUFdt o.h>
/AXPsUFdt 000//
/*
** $Ief th -DLto incluxl*/
#lfdoberndeEx00/ndef NDLUAzioobeto incluxl*/
#lfd7exobernd
oeExo $Eexrchsff ndescrip_orYP08/nsu d e, oMS VGLOBAL, {Vucbef,t {VINDEXEDTt {VEXP8} expkdaOMS ;
}kTObjgv";
expdescMS expkdaO k*/ mp hosh;
ccharL,ko: op tVGLOBAL:de iosfddaOTL of*eta_setdex)*{Vucbef:gen *L)daOTL *f d t *v / e;osh;
ealT,koAX_"_ZpaiThe
L(p)`exitch ksv /e' homt tourlT,kfAX_"_ZpaiThe
L(p)`exitch ksfalse' homt to} e->vo} u;8} expdesc;lfndefbln *L)nekTO
teS 20e(xKNUM=ndereg a ne ittas, of*e;
}kTObjgv";
_Stg======osh;
k* ma : op t L ittas, oies UFFe "_Z*) ( ta_Stg=======xrcv: op tenCkvoas, ittas, of*er gv";
<=nleftt B/*>,kom1twchae_b-v_1 h;
k*>tUFFe>
/o,kod/08Otch oingd1 h;ev c* /08l energl[Oomt l[OV Ikon etdl*/iv/
#t UtTREe en`k du`pc'w t;TTMB` argutTREe 'etdl*/iv/
jltwraas*de( ta_a argg. ta`#t UtTREe 'etdl*/(Cif
tdex)level osta itnmp)rae;nclude0l[Oks,)(eman
#rege( ittas,Cif
sku_oc osta itnmp)rae;ks,)(x) as daOTL of, (Cif
#t of d tosta itnmp)rae;#t of d utdl*/iv/
#t UFFe "_Zia_S
/*w/*/
/*;TTMB` OTLw/sen *L)nekdm1twchae_b-v_Br= klabeltgenFe>
/trae;tr= k == tde);or_1twch;
}kTObj#t of d [ of] /08S]NdRu .Et of d utdl*/iv/
sku_oc[ of*eta_S]NdRu . as-daOTL ofetdex)* indio ma tag(L)UFdh ks,lUFFe "_Z*;
#lfdoberndeY_priv=======X_io(iaputd=/exenkooken,aL_Buff nED */*
** $Id: talib.luxl*/
#lfd7ehde( , of RFde ge, tourlT,kfA. Itrob'.{ [L ].so l enebothU/seMULTbsoluNoti Gaddernd
mt e/seM*de( t )* wouldt )*etrg+1nfoomringd inf).R(-1)
#t P>
r_1ets dNNt2rcre, o *, o 20 nOPR"d eExo WARNING: sf RFIEsgr1p "ORDER TM"inBinOprv";
OPRk_i]=
OPRk x+
OPRk x-y
OPRk x*
OPRk {IM_DIOPRk {IM_LT, OPRk_GE,OPRkT,{IOPRkx-y
OPRkLGE,OPRkG-y
OPRkGELT, OPRkAN]=
OPRkORLT, OPRk_OBINOPRs,lBinOpr; ndescrip_orYP0UnOprv"
OPRk ..v_u OPRk_OTu OPRk_OUNOPR' hUnOpr; nER ncSMon e{iO, iU, i_u iAB} tta for or * emvd ==ta_n
*/
VD 100_RETfl t,k t"daOTL ofedelpgaddhn)=/ 0/*w ta)ae_b-v_Oplfdpd9fi ma";
leo)km /
kMS -APIkodex)*/ or k kMS -APIkodex)*/ o1)sh;
** K_oppfdpd9fi m==o"T_
/*dexKken ta========X_omt ta/exen *L)*lfs
*/
wraas oK_b.lu0 (enFe "_Zgv";
, v_1-v_ o*/
wraas oK_b.lu1 (enFe "_Zgv";
, v_1-v_ o_ ta_prg1*/
wraas oK_b.lu2 (enFe "_Zgv";
, v_1-v_ o_ ta_prg1_ ta_prg2*/
wraas oK_ argu(enFe "_Zgv";
uff nukT,koK_tourlde( t(enFe "_Zgv";
, )*l,, sta_Stgen REe uff nukT,koK_;
/*
enFe "_Zgv";
, )*l,*l1_ ta_l2uff nukT,koK_goifL(p)
enFe "_Zgv";
, ;
}kTObj*v,komt omep*grk k dwraas oK_twchabelt(enFe "_Zgv";
uff nukT,koK_delpgtdex)* enFe "_Zgv";
, )*l,delpguff nukT,koK_k======X_mh LIundef M/excuff nukT,koK_*ar
** =enFe "_Zgv";
, TUSERDAfuff nukT,koK_t>=
)tdex)* enFe "_Zgv";
, )*l,nk dwraas oK_;TTMiFILES_
enFe "_Zgv";
uff nukT,koK_setnehiachugrn enFe "_Zgv";
, )*l,nrnP mar,, nRchKo*ar,ex)* =X_mh LIundef ;
}kTObj*v,komt lfndoneuff nukT,koK_srchedaO========X_omt ta/exen;
}kTObj*varuff nukT,koK_tr_n
x========X_omt tUnOprvopf ;
}kTObj*vuff nukT,koK_
x========X_omt tBinOprvopf ;
}kTObj*vuff nukT,koK_[Oo
x========X_omt tBinOprvopf ;
}kTObj*v1f ;
}kTObj*v2kooken,aL_Buff nED */*
** $Id: talib.luxxl*/
#lfdobern0 uh */
/*
** $Ieoobero incluxl*/
#lfdobern0 ncluxl/
/*
** $Ieoobero ib.luxl*/
#lfdo,koeber2000/1/
/*
** $Ieoobero incluxl*/
#lfdobern0 2000//
/*
** $Ief th -DLto incluxl*/
#lfdoberndeEx00/10/30/
/*
** $Ieoobero ib.luxl*/
#lfdo,koeberndeE*10/3/
/*
** $Ieoobero ib.luxl*/
T_
/*dexKken ta========X_omt ta/exen *L)*lfs
*,kc ostwoken ta(t t
th ls->t.taL_Buff=C_mh LIGCRchugrn tcan,typphedi en8 tta for ,,k t"optimizsm
#t"pe omIfEGIXs);ob'. argutTREe betweLhieb ts
tas g
k* ma tta for ,e omachugrn a dummy tta for orina
/*wr i);optimizsm
#t"pe / o;
tar,msg)GGGGpphedi en_ tta for o
enFe "_Zgv";
u *L,komccfs->pc > fs->#t UtTREe )1*/e( }
argg. ta momt *Lp et */
ks,a)sre12rcre, fs->f->b.lu[fs->pc-1] {h; / ,hugrn phedi en8 tta for TL "out-of)sre12rcre, lu
itsuhs------pe(SL,n }
optimizsm
#t" *Lex *etr`---'S_PER_FLwraas oK_ argu(enFe "_Zgv";
ugv";
/ej* {I>K_b.lu1(;
, vil)? P>
r_1etsxA_ OTL j yfs->#t UtTREe )1{ / , o nd
ofe argg. taLhieb argks,a)sre1,koK_;
/*(;
, &j,yfs->jltpe(SL,n Smemoml5)t L h;
,a)sre1fs->jlt =>
r_1ets**/
2rcre, jgIOTL o;
t
/*dexKk
x argu(enFe "_Zgv";
Ikc , )*l,des( ta_Star,msg)GGGGp*gv";= &fs->f->b.lu[pc]A_ OTL des(uff nr_1etsx)sre1ftt Set o*gv"P>
r_1etsxA / , o ioomringd infmrin 32+max RFde gede( tL "out-of1{ / , argur(f "jump csfio(Oomt l[Opi)oo en8 argurtta for TL "ou;
/e,ra) =,des(-(pc+/ 0se (d+,u Tbs(,ra) n
(Tftt U((oich ksdexKken tacfs->t t";
trol)ae_b-v* =ltoorino
0k t"in ftt Set o*gv"P>,ra) ar *grk k o;
twraas oK_twc argu(enFe "_Zgv";
Ikc ugv";
/e,ra) =,ftt Set ofs->f->b.lu[pc]epto( t ora) =f nr_1etsx / , o ioomringd infm 32+maxs RFde gede( tL "ou 2rcre,
r_1ets*Stg====de gede( tL "out-ofskTSdn++;or_tpc+/ +ora) A= / ,(hsh;ra) ioooLTbsoluNoo(Oomt l[O_PER_FLh LIGC ,hugrn momt *L`pc'w ts
mde( ,lim b'. argutTREe (rina
/*wr i)LIGCoptimizsm
#t" )e ara/exta=tp csen`kin .t {A"I om /* mssL o )/
de);o)pe omdis *L)NG:de( ta_a argg. ta;TTMBETREe pe / wraas oK_twchabelt(enFe "_Zgv";
u *L,komccfs->pc ! yfs->#t UtTREe )1{"ou;
/e#t UtTREe yfs->#t UtTREe ;)sre1fs->#t UtTREe yfs->pc;)sre1,koK_tourlde( (;
, fs->jlt,e#t UtTREe xA / , dis *L)NG:oldt TMB` lt' ,a)sre1fs->jlt =>
r_1ets*(SL,n }bodye argg. taLhiebi)xxhabelt(ye )1,a)sr
2rcre, fs->pc;)}
T_
/*dexKkdelpgtdex)* enFe "_Zgv";
, )*l,delpgu1{"oufs->tdex)level_ttldelpg;L,komccfs->tdex)level_> fs->f->maxk ta_D======= o,komccfs->tdex)level_> TftST taich ksdexKken tacfs->t t" op tenCk t"eobernd
oeEtoor[I);ncl0k t"in fs->f->maxk ta_D=== yfs->tdex)level ar *grk k nukT,koK_k======X_mh LIundef M/excu,kc ostwK_b.lu1(ls->;
, vil kom)s /0xcuffrk k o;
twraa*ar
**_a/exean*
enFe "_Zgv";
, TUSERDAT*/
th dtwLo taw/*/K_WHI`r'Tg ita,koaight)e a /* ms;TTMBLOOKB tNUMS===trid utdl*/
_Stg=== yfs->Ikk);{/exc yf->n askk);{/exlim yc k*.OOKB tNUMS=t tac-.OOKB tNUMSkk);xhh-> --cref;lim)= o,komccf-> as[c] =f r= TfdRotc;)srL,n }tOpiund;0)<sk==-> as,yf->n asacporTUSERDottr(p)) %.20s",gerr"a/exean* ar "r(-1)
#t "to( Tftt OTL yf->n asey(n1/f-> as[c] =ATA */ TfdRotc;)rk k nukT,koK_*ar
** =enFe "_Zgv";
, TUSERDAfu *L,komccfMPtagSHINTs/Tftt U((OP_JMSHINTs/h is_rref;f))sre1,koK_b.lu1(;
, vil1 - _tt}
hfxA / , fTg ita (Cif
ko
*gwraas uetL "out-ofskTSd,koK_b.lu1(;
, vil1 - /0a*ar
**_a/exean*(;
, fntaLat,e nukT,koK_t>=
)tdex)* enFe "_Zgv";
, )*l,nkAPIkomt _> 0))sre1,koK_b.lu1(;
, vil1OPo(, o (ht-ofskTSd,koK_b.lu1(;
, vil1 - IK_T-Buff=C_mwraas oK_;TTMiFILES_
enFe "_Zgv";
u/
th dtwLo taw/*/K_WHI;TTMBrtta for Tob'.{ ILES_ op tenCkk*ar
L "ouar,msg)GGGGpx = phedi en_ tta for (;
uffkomt s) / et of d ref;gs v_x-OP_JS_A) et of ref;LT_RETt#*kth -REFREd 1 d
(o)->v ( tkey_
#at,e nukT,koK_setnehiachugrn enFe "_Zgv";
, )*l,nrnP mar,APIkomt s oK_;TTMiFILES(;
u)1{ / , eobernd
oeEob'.{ ILES_ op tenCkk*arks,a)sre1Bse
#et ofs->f->b.lu[fs->pc-1]/ , o (narg, DS k}stONIK_EOS
}ED /(nars,a)sre1,koK_delpgtdex)(;
, , o (narg, DS kh; }
D /(nars,a)sr*grk k o;
twraadis *L)NG:
enFe "_Zgv";
, ;
}kTObj*vaT*/
th tattaLtvaT-> et
>v (/ e*Lqf*eta_sich ksdexKkb.lu1(;
, vilMB[u] / vaT->u.nouxA_ OTTTTTtr= k dataskTSdbccharL,kich ksdexKkb.lu1(;
, vilMB[ d e, vaT->u.nouxA_ OTTTTTtr= k dataskTSdbc, {Vuckich ksdexKkb.lu0(;
, vilMB[k]]=x_ OTTTTTtr= k dataskTSdbcEXP(e n a n-TTMBED0*(SL,n } a g. tado1,a)sr
vaT-> = cEXP;
vaT->u.l.t =>vaT->u.l.f =>
r_1ets**/
2rcre, o ***/
o;
t
/*dis *L)NG1 (enFe "_Zgv";
, ;
}kTObj*vaT*/
th dis *L)NG(;
, varuff f,limh/se argn tcan,limob'.lg /
y dis *L)NGd;
,nd ( tvaT->u.l.t ==>
r_1etsOP_JvaT->u.l.f uff nr_1etsx)sre1,koK_setnehiachugrn(;
, 1g, DS kk*ar
m
)
2rcre, o_Zp o S_PER_FL nukT,koK_srchedaO========X_omt ta/exen;
}kTObj*varu/
th enFe "_Zgv";
* {s->;
;th tattaLtvaT-> et
>v (/ e*Lqf*eta_sich ksdexKkb.lu1(;
, vilSB[u] / vaT->u.nouxA_ OTTTTTtr= k dataskTSdbccharL,kich ksdexKkb.lu1(;
, vilSB[ d e, vaT->u.nouxA_ OTTTTTtr= k dataskTSdbc, {Vuck= / , "rir ebuptta3; o .n3
#
kkk}no*Lex *dpd9afor TL "ou;
ksdexKkb.lu2(;
, vilSB[
>v /t,3t,3_ OTTTTTtr= k dataskTSdbrkvk
/
;
a f ERNALERROR("[L ].so lr expde tasrche" ar *grk k o;
tv_1-v_ [L erc argu(v_1-v_ op*/
th tattaLtop*/
th askTSdbcu; ISJU / /
;
k~=y)? PC;th askTSdbcu; ISEQ / /
;
k~=y)? NE;th askTSdbcu; ISLT / /
;
k~=y)? GE;th askTSdbcu; ISLU / /
;
k~=y)? GT;th askTSdbcu; ISGT / /
;
k~=y)? LE;th askTSdbcu; ISGU / /
;
k~=y)? LT;th askTSdbcu; IST /kTSdbcu; ISONT // /
;
k~=y)? F;th askTSdbcu; ISF /kTSdbcu; ISONF // /
;
k~=y)? T dataskTSdbrkvk
/
;
a f ERNALERROR("[L ].so argurtta for "_ OTTTTT /
;
k~=yENDA= / ,ina
/*warn grs,a)sr*grk k o;
t nukT,koK_tourlde( auxt(enFe "_Zgv";
, )*l,, sta_Stgen REe , 1,oa*/
koR(-,gerroo(LLLLLLLLLLv_1-v_ )OP_JMPa_Stge)OP_JMP_tTREe )1{"ouar,msg)GGGGp*kon e= fs->f->b.lukk);xhh-> TMB!f nr_1etsx {"ou;
/energl=as oK_twc arg(;
, TM_ OTTTar,msg)GGGGp*x = &b.lu[ TM] OTTTv_1-v_ op =,ftt/ et of *i 0se (d+,u op ==e)OP_JMPx / , Lhieb`op''.lg /
y g ita as uetL "ou;
ksdexKk
x arg(;
, TM,e)OP_JMP_tTREe )0se (do)->v2)
/ksdexKk
x arg(;
, TM,etTREe xA / , d=
typprttaLxitch ksv,u op ==ecu; ISONT) / , o .n o-*ep)uas daf d utdl*///////Stt/ et of *i, vil)? BITS_)",
)xh -TNONop ==ecu; ISONF)l*///////Stt/ et of *i, vil)? F)(n1/ataskTSd TMB=energ ar *grk k nukT,koK_tourlde( t(enFe "_Zgv";
, )*l,, sta_Stgen REe uAPIkomt tTREe yfs->#t UtTREe )1DS k}L tTREe ebse TMB` lt'ks,a)sre1,koK_;
/*(;
, &fs->jlt,e# TM_ / , delay
xindex);(ht-ofskTSd,koK_tourlde( aux(;
, TM,etTREe ,k~=yEND,=( * tak o;
twraa*eed_/*
** enFe "_Zgv";
, )*l,, sta_v_1-v_ g idileale
th dtwLo taw/*/K_WHI; TMBh b'. argu)e aoutta as uetL "ou-A= ; TMB!f nr_1ets;d TMB=es oK_twc arg(;
, TM_)= o,komccftt/ et of fs->f->b.lu[ TM], n yg idilealeREFREd 1 d
(-TTMBED0*(SL,n } OpiundS_PER_FL nukT,koK_;
/*
enFe "_Zgv";
, )*l,*l1_ ta_l2uAPIkomt *l1uff nr_1etsx)sre1*l1uf_l2 d
(o)->v2)
/)*l,, sthdc")1 t"in fA= ;;)1{ / , tra er->v`l1`exitch ksv /energl=as oK_twc arg(;
, TM_ OTTTkomt x =f nr_1etsx {Stg====de gede( ?utdl*///////dexKk
x arg(;
, TM,el2_ OTTTko
(-TTMBE OTTTko})
/ksd TMB=energ ar ko})
*grk k o;
t nukT,koK_testgo
enFe "_Zgv";
, ;
}kTObj*v,komt [L erca_v_1-v_ argugv";
/ephedposA / , o omt l[O t;TTMBrtta for TL "ouar,msg)GGGGp*phedi enkk);{/ex*go TM,e*paiT TMffkomt ![L ercx {"ou;
go TM = &v->u.l.fen`k/ , go mt L(p)`utdl*///paiT TM = &v->u.l. A= / paiThmt L(p) ,a)sr
o)->v2)
/go TM = &v->u.l.ten`k/ , go mt L(p) ,a)sr//paiT TM = &v->u.l.fA= / paiThmt L(p)`utdl*/}th dis *L)NG1(;
, v_ OTphedpos yfs->pc-1 OTphedi en8= &fs->f->b.lu[phedpos] OT-A= /
kMS *phedi en==phedi en_ tta for (;
u,kth - argua)oo Gd;IXs)"uffkomt !E+1etsuftt/ et of *phedi enat o iidphedpos ydexKkb.lu1(;
, argP>
r_1etsxA_ t-of1{ / , ;TTMBrtta for Tob'.lg /
y . arguL "ou;
mt in ercx
//////Stt/ et of *phedi en, [L erc arguftt/ et of *phedi enat **/
,koK_;
/*(;
, paiT TM,dphedpos) tt
/* ;TTMB argurt_ZpaiT TM'nfoomhlacK_tourlde( (;
, *go TM,es oK_twchabel(;
u)**/
*go TM =
r_1ets**R_FL nukT,koK_goifL(p)
enFe "_Zgv";
, ;
}kTObj*v,komt omep*grk k,kc ostwK_testgo(;
, vacporomep*grk ?ecu; ISONF : vil)? F)(nrk k o;
t nukT,koK_goifL(p)`u
enFe "_Zgv";
, ;
}kTObj*v,komt omep*grk k,kc ostwK_testgo(;
, vac0oromep*grk ?ecu; ISONT : vil)? T * tak o;
twraa,kodthabelt(enFe "_Zgv";
, v_1-v_ op_ ta_prgk,kc ostwK_twchabel(;
uA= / ,hoscsen`kin .t {A"/; be argutTREe utdl*/r acpo : Kkb.lu1(;
, op_ prgk**R_FL nukT,koK_*ar,ex)* =X_mh LIundef ;
}kTObj*v,komt lfndoneu/
th enFe "_Zgv";
* {s->;
;th mt !dis *L)NG(;
, vu)1{ / , `v'Eob'.{ eobernd
oe?utdl*///v_1-v_ phedi en8= ftt/ et of fs->f->b.lu[fs->pc-1] 0se (d+,u !E+1etsuphedi enaOP_Jv->u.l.f ==>
r_1etsOP_Jv->u.l.t ==>
r_1ets, c= wh t , eobernd
oeEh b' }
argg.xitch ksv,u ofndoneul*///////dexKksetnehiachugrn(;
, 1g, DS kk*ar
m
)
2rcre, o_Zp o S_PETTko})
/t-of1{ / , eobernd
oeEh b' argg.xitch ksv ma {mpA / , o omt l[O*Lex *whole eobernd
oeExitch ksv maj =>
r_1ets*(SL,no-*ep)uas e argu,vwraas ueg.xitch ksv map_*ar
=>
r_1ets*(SL,no omt l[O t.{ e*ep)uas 1 - IK.xitch ksv map_1
=>
r_1ets*(SL,no omt l[O t.{ e*ep)uas 1 - .xitch ksv,u E+1etsuphedi enaO||a*eed_/*
*(;
, v->u.l.f,ecu; ISONF)l*//////////////////////////||a*eed_/*
*(;
, v->u.l.t,ecu; ISONT), c= wh t / , eobernd
oeE*eeds daf d utdl*///////v,u E+1etsuphedi ena)l*/////////,koK_;
/*(;
, &v->u.l.t,efs->pc-1g, DS kh;*L`phedi en'm /*.ede( tL "ou
/t-of1{l*/////////j =>,kodthabel(;
, vil)? P>
r_1etsxA= / ,in argu,vwrabothUh; }d utdl*///////e>
/rr**/
r,ex)*fA= [I);h->oti fL=TMARK
texta=tpoeExitch ks////,koK_t>=
)tdex)(;
, 1g,tch ks//}tch ks//p_*ar
=>,kodthabel(;
, vil PC+=* /08 )xhlux ks//p_1
=>,kodthabel(;
, vil PC+ _1g,tch ks//lacK_tourlde( (;
, j,es oK_twchabel(;
u)**/
ks//}tch ksgr &ld=ostwK_twchabel(;
uA
ks//lacK_tourlde( aux(;
, v->u.l.f,ep_*ar,ecu; ISONF,sgr &luA
ks//lacK_tourlde( aux(;
, v->u.l.M,dp_1,ecu; ISONT,sgr &luA
ks//v->u.l.f =Jv->u.l.t =>
r_1ets**/
ko})
*grk k nukT,koK_tr_n
x========X_omt tUnOprvopf ;
}kTObj*vu/
th enFe "_Zgv";
* {s->;
;th mt op ==ecuRk ..v_, c= wh,koK_*ar,ex)(t tv _1g,tch dexKkb.lu0(;
, vil ..v_,**/
t-of1{ / , op ==eNO .xitch ar,msg)GGGGp*phedi enkk);h dis *L)NG1(;
, v_ OTOTphedi en8= &fs->f->b.lu[fs->pc-1] se (d+,u E+1etsuftt/ et of *phedi enat o iid//Stt/ et of *phedi en, [L erc arguftt/ et of *phedi enat **/
(ht-ofskTSd dexKkb.lu0(;
, vilNO **/
(h tex ARNING: (p) i fLL(p)`ude( utdl*///{_Stgenev";= v->u.l.fA=v->u.l.f =Jv->u.l.t;Jv->u.l.t =>nev";o})
*grk k nukT,koK_
x========X_omt tBinOprvopf ;
}kTObj*vu/
th enFe "_Zgv";
* {s->;
;th tattaLtop*/
th askTSdbcuRkAN]kich ksdexKkgoifL(p)(;
, vacp_ OTTTTTtr= k dataskTSdbOPRkORkich ksdexKkgoifL(p)`(;
, vacp_ OTTTTTtr= k dataskTSdbrkvk
/
;
kg(K_*ar,ex)(t tv _1g,(h *ar
IK_WHIbr &ry*dpd9aforsE*eedta as uetL "ou ar *gr o;
tw ta)ae_b-v_
th v_1-v_ opb.luk / , opO
teS t {Thbr &ry*dpd9aforutdl*/iv/
srg;//////e>
kTSdbrknfoomal5)
lfdatas opO
t ks,l00/10[] =A{h dtwchar *OPR'xitch ks{t[k_i]= 0},s{t[k x+
0},s{t[k x-y
0},s{t[k x*
0},tch ks{t[k {IM
0},s{t[kt {IK_NA2},tch ks{t[kM:}nil>
r_1ets},s{t[k)? PC+>
r_1ets},tch ks{t[kM:}x-y
r_1ets},s{t[k)? LE+>
r_1ets},tch ks{t[kM:}G-y
r_1ets},s{t[k)? GE+>
r_1ets};Iompg nukT,koK_[Oo
x========X_omt tBinOprvopf ;
}kTObj*v1f ;
}kTObj*v2k/
th enFe "_Zgv";
* {s->;
;th tattaLtop*/
th askTSdbcuRkAN]k1{l*/////-A= /
kMS v1->u.l.t ==>
r_1ets,ktde( tm
)
be ===xE t"to( );h dis *L)NG1(;
, v2_ OTTTkov1->u.l.t = v2->u.l.t;skTSd dexKkb.
/*(;
, &v1->u.l.f,ev2->u.l.f_ OTTTTTtr= k datas}dataskTSdbOPRkORk1{l*/////-A= /
kMS v1->u.l.f ==>
r_1ets,ktde( tm
)
be ===xE t"to( );h dis *L)NG1(;
, v2_ OTTTkov1->u.l.f = v2->u.l.f;skTSd dexKkb.
/*(;
, &v1->u.l.t,ev2->u.l.t_ OTTTTTtr= k datas}datas&(o)->v /{k
/
;
kg(K_*ar,ex)(t tv2 _1g,(h `v2'tm
)
be a as uetL "ou;
ksdexKkb.lu1(;
, 00/10[op].opO
, 00/10[op].prgk**atas}dat*grk k o;
t nukT00/1 O_
enFe "_Zgv";
u/
th
_Stg=== yfs->Ikk);======X_omt yfs->#
;th mt ls->#t US
/*w> fs->#t US
/*, c= wh,koe* homt tourlfs->sk==-> O,yf->n O,y2,komt, 1,oa*/
koR(-,gerroo"S
/*w O_(-1)
#t "to( t d BITS_)"mt ls->#t US
/*w> fs->#t US
/*, k gerroo=-> O[f->n O++] =A- ls->#t US
/*w-ccfs->#t US
/*, kk t"in f-> O[f->n O++] =Afs->pc;)sre1fs->#t US
/** {s->#t UFFe "dat*grk kwraas oK_b.lu0 (enFe "_Zgv";
, v_1-v_ o*,komt index)dexKkb.lu2(;
, oac0or( * takwraas oK_b.lu1 (enFe "_Zgv";
, v_1-v_ o_ ta_prg1*,komt index)dexKkb.lu2(;
, oacprg1_ ( * takwraas oK_b.lu2 (enFe "_Zgv";
, v_1-v_ o_ ta_prg1_ ta_prg2*1{"ouar,msg)GGGGpx = phedi en_ tta for (;
uffkom*l,delpgd=ostwK_oppfdpd9fi m=o].h; }
-ostwK_oppfdpd9fi m=o].htkId4comt lptmsh;
(h 1he
LIXs);ob'.nCoptimizsm
#tm1twchatattaLto*/
th askTSdbcu;CODES,n /{k
/
;
delpgd=o-prg2+1 OTTTTTtr= k datas}dataskTSdbOPlSB[
>v / /{k
/
;
delpgd=o-prg2 OTTTTTtr= k datas}dataskTSdbOPlSB[]=vr /{k
/
;
+,u Trg2 ==>0) 2rcre,
r_1ets*Stg== } a g. tado1,a)sr
;
delpgd=o-prg2 OTTTTTtr= k datas}dataskTSdbOPlSB[MAP /{k
/
;
+,u Trg1 ==>0) 2rcre,
r_1ets*Stg== } a g. tado1,a)sr
;
delpgd=o-2*Trg1 OTTTTTtr= k datas}dataskTSdbOPl rchar /{k
/
;
+,u s) / et of d ref;gs v_x-OP_JS_A) et of ref;LT_RETt#*1{l*///////Pse
#et of d v1,...,v_n)g,tch ks//Bse
#et of _prg1*/
ch ks//lptmsh;1 OTTTTT} OTTTTTtr= k datas}dataskTSdbOPl PC+=* /{k
/
;
+,u Trg1 ==>0) 2rcre,
r_1ets*Stg== } a g. tado1,a)sr
;
delpgd=oTrg1 OTTTTTatatta s) / et of d *1{l*///////kTSdbOPl PC+=* /OS_U et of POS_U et of +prg1*//lptmsh;1 Ttr= k datas
;
deo)->v /tr= k datas
;} OTTTTTtr= k datas}dataskTSdbOPl OP /{k
/
;
+,u Trg1 ==>0) 2rcre,
r_1ets*Stg== } a g. tado1,a)sr
;
delpgd=o-Trg1 OTTTTTatatta s) / et of d *1{l*///////kTSdbOPlSB[
>v / /Bse
#et of _S_A) et of +prg1*//lptmsh;1 Ttr= k datas
;
deo)->v /tr= k datas
;} OTTTTTtr= k datas}dataskTSdbOPlGB[
>v / /{k
/
;
atatta s) / et of d *1{l*///////kTSdbOPl PC+)s /k= / `t.x'Exitch ks////Pse
#et of d v1, t[i] */
ch ks////lptmsh;1 OTTTTTTTTTtr= k datasataskTSdbOPlGB[*eta_se / `t[i]'Exitch ks////Pse
#et of d v1, t[, {Vuc*/
ch ks////lptmsh;1 OTTTTTTTTTtr= k datasatasdeo)->v /tr= k datas
;} OTTTTTtr= k datas}dataskTSdbOPl_i] /{k
/
;
atatta s) / et of d *1{l*///////kTSdbOPl PC+INT /Pse
#et of d v1, x+*//lptmsh;1 Ttr= k e / `a+k'Exitch ks//deo)->v /tr= k datas
;} OTTTTTtr= k datas}dataskTSdbOPl x /{k
/
;
atatta s) / et of d *1{l*///////kTSdbOPl PC+INT / / `a-k'Exitch ks////x = _U e)suhsy x x+y -ftt Set of */
ch ks////lptmsh;1 OTTTTTTTTTtr= k datasatasdeo)->v /tr= k datas
;} OTTTTTtr= k datas}dataskTSdbOPlt {IK_ /{k
/
;
delpgd=o-prg1+1 OTTTTTatatta s) / et of d *1{l*///////kTSdbOPlt {IK_ / / `a..b..c'Exitch ks////PseU et of POS_U et of +1*/
ch ks////lptmsh;1 OTTTTTTTTTtr= k datasatasdeo)->v /tr= k datas
;} OTTTTTtr= k datas}dataskTSdbOPl ..v_ /{k
/
;
atatta s) / et of d *1{l*///////kTSdbOPl PC+INT / / `-k'Exitch ks////ftt Set of -ftt Set of */
ch ks////lptmsh;1 OTTTTTTTTTtr= k datasataskTSdbOPl PC+=UM / / `-k'Exitch ks////ftt
#et of d v1,UM[n] /*/
ch ks////lptmsh;1 OTTTTTTTTTtr= k datasatasdeo)->v /tr= k datas
;} OTTTTTtr= k datas}dataskTSdbOPl ISJU /{k
/
;
+,u i ==> CREATE_Svil1 - IK_T1u)1{ / , `a=nil)'Exitch ks//x = _U e)suhsy x? PC+>
r_1etsxA_ ks////lptmsh;1 OTTTTT} OTTTTTtr= k datas}dataskTSdbOPl ISEQ /{k
/
;
+,u i ==> CREATE_Svil1 - IK_T1u)1{ / , `a=nil)'Exitch ks//x = _U e)suhs---NO **/
(hatasdelpgd=o-t {h; /=
) undo1n *LtsO tphedi en81 - IK.xitch ks//lptmsh;1 OTTTTT} OTTTTTtr= k datas}dataskTSdbOPl IST:dataskTSdbOPl ISONT /{k
/
;
atatta s) / et of d *1{l*///////kTSdbOPlNO :1{l*/////////x = _U e)suhsy x? PF+>
r_1etsxA_ ks//////lptmsh;1 OTTTTTTTTTtr= k datasatas}datasataskTSdbOPl PC+IN :1{l*/////////xt o ==ecu; IS F nfe.! ISONT m
)
Smemorigr &ldko
*gwraas uetL "ou*/////////x = _U e)suhsy x? P+>
r_1etsxA_ ks////////lptmsh;1 OTTTTTTTTT} OTTTTTTTTTtr= k datasatas}datasataskTSdbOPl PC+=* /{k
/
;
////xt OS_U et of ==e1)/{k
/
;
//// efs->pc--A= / prTSdbphedi en8 tta for TL "ouuuuuuuuuuu,koK_delpgtdex)(;
, -1g, DS k
/rr**/
r,ex)*L "ouuuuuuuuuuu2rcre,
r_1ets*S OTTTTTTTTT} OTTTTTTTTTtr= k datasatas}datasatasdeo)->v /tr= k datas
;} OTTTTTtr= k datas}dataskTSdbOPl ISF:dataskTSdbOPl ISONF /{k
/
;
atatta s) / et of d *1{l*///////kTSdbOPlNO :1{l*/////////x = _U e)suhsy x? PC+>
r_1etsxA_ ks//////lptmsh;1 OTTTTTTTTTtr= k datasatas}datasataskTSdbOPl PC+IN :1{ / , `xhh-> 1ado1...'Exitch ks////fs->pc--A= / prTSdbphedi en8 tta for TL "ouuuuuuuuu,koK_delpgtdex)(;
, -1g, DS k
/rr**/
r,ex)*L "ouuuuuuuuu2rcre,
r_1ets*S OTTTTTTT}datasataskTSdbOPl PC+=* /{ / , `repeat1... until il)'Exitch ks////xt OS_U et of ==e1)/{k
/
;
//// ex = _U e)suhsy x? P+>
r_1etsxA_ ks////////lptmsh;1 OTTTTTTTTT} OTTTTTTTTTtr= k datasatas}datasatasdeo)->v /tr= k datas
;} OTTTTTtr= k datas}dataskTSdbOPlGB[i] :dataskTSdbOPlGB[, {Vuckich kTSdbOPl...,v_n)kich kTSdbOPl x+k1{l*/////-A= ERNALERROR("[Lta for TNm.nUlfndek t"optimizsm
#t""_ OTTTTTtr= k datas}datas&(o)->v /{k
/
;
-A= /
kMS delpgd!= VD
ra[L ].sodelpg"_ OTTTTTtr= k datas}dat
,koK_delpgtdex)(;
, delpguffh mt optm)1{ / , optimize:kh;*Lrtta for Ton plac*w t;TTMBonetL "ou*///fs->f->b.lu[fs->pc-1]sh;iFe>
ING:phedi en8 tta for TL "ouuuuu2rcre, fs->pc-t {h; /do1 } On *L)nekTi)xx tta for TL "ou
/ pp)`ubuildTi)xx tta for TL "ouatatta (R ncSMon )stwK_oppfdpd9fi m=o].m /
*/
th askTSdbiO:/x = _U e)suhso) Ttr= k dataskTSdbiU:/x = _U e)suhsu _prg1*/Ttr= k dataskTSdbiS:ex = _U e)suhsu _prg1*/Ttr= k dataskTSdbiAB:ex = _U e)suhsu c_prg1_ prg2*/Ttr= k dat
00/1 O(;
uffkoS kh;*Li)xx tta for TinIkon eTUSE/nfoomhlace* homt tourlfs->sk==s->f->b.lu,efs->pcacporar,msg)GGGGottr(p)) %.20s",gerr"a/dse argu,-1)
#t "to( t d BITS_fs->f->b.lu[fs->pc]sh;iF
uu2rcre, fs->pcey(n takw ta)ae_b-v_Oplfdpd9fi mastwK_oppfdpd9fi m=CKNU>beff n] =A{
uu{iO, 0M
0},_RET~=yENDnfoomh{iU, 0M
0},_RET~=y rcharnfoomh{iAB, 0M
0},_RET~=yv_x-Ofoomh{iAB, 0M
0},_RET~=y...,v_n)nfoomh{iU, VDM
0},_RET~=y1 - IK.xitch{iU, VDM
0},_RET~=y1OP.xitch{iSacpor0},_RET~=y1 - .xitch{iU, por0},_RET~=y1 -)s /.xitch{iU, por0},_RET~=y1 -CKN.xitch{iU, por0},_RET~=y1 -C /.xitch{iU, por0},_RET~=y1 -] /08.xitch{iU, por0},_RET~=yGB[*eta_.xitch{iU, por0},_RET~=yGB[ d e.xitch{iO, por2},_RET~=yGB[
>v /.xitch{iU, por1},_RET~=yGB[i] .xitch{iU, por1},_RET~=yGB[, {Vuc.xitch{iU, 2or1},_RET~=ycb[l]] .xitch{iU, por0},_RET~=yN[k]] /08nfoomh{iU, 0M
1},_RET~=ySB[*eta_.xitch{iU, 0M
1},_RET~=ySB[ d e.xitch{iAB, VDM
0},_RET~=ySB[
>v /.xitch{iAB, VDM
0},_RET~=ySB[]=vr.xitch{iU, VDM
0},_RET~=ySB[MAP.xitch{iO, por2},_RET~=y x.xitch{iSacpor1},_RET~=y xI.xitch{iO, por2},_RET~=ySUB.xitch{iO, por2},_RET~=yLT_R.xitch{iO, por2},_RET~=yDIV.xitch{iO, por2},_RET~=yPOW.xitch{iU, VDM
0},_RET~=yt {IK_.xitch{iO, por1},_RET~=y ..v_.xitch{iO, por1},_RET~=yNO .xitch{iSac0or2},_RET~=y ISJUMxitch{iSac0or2},_RET~=y ISEQMxitch{iSac0or2},_RET~=y ISL .xitch{iSac0or2},_RET~=y ISLUMxitch{iSac0or2},_RET~=y ISG .xitch{iSac0or2},_RET~=y ISGUMxitch{iSac0or1},_RET~=y ISTMxitch{iSac0or1},_RET~=y ISFMxitch{iSac0or1},_RET~=y ISONTMxitch{iSac0or1},_RET~=y ISONF xitch{iSac0or0},_RET~=y IS.xitch{iO, 0M
0},_RET~=y1 - IK IS.xitch{iSac0or0},_RET~=y .xitch{iSac0or3},_RET~=y .xitch{iSac2or0},_RET~=yL .xitch{iSac0or3},_RET~=yL .xitch{iAB, VDM
0}_RET~=ytODES,nt ks,;s/ eu.d.ut*/
/*o/d: apiux,v 1.110 2000debug/10/30 12:3o,koerndebug/1$
** l0AXPsUFa2s30st5138:l0Aofod9fA3I47:46*e Debugrart1)
ac* 20evus0def .h>
/* skipp d: ta.hs/* e "stdlib.h"iuh */
/*
** $Id: apiuh,v 1"stdlib.h"ncluxl/
/*
** $Ieoobero incluxl*/
#lfdobern0 b.luxl*/
/*
** $Ieoobero ib.luxapiux,v 1.110 2000debug//30 12:3AXPsUFa2edebug//xo $
** lizioob05st5114:0ted9/27gv"s
1:5**e Auxili&ry* op tenCs from Debugrart1)
ac*km /uloi (wt retoes therE
of d limits_h
#i to inc
#l to AXPdebugh>
h,v 1"stdlib.h" oingxl*/
/*
** $Ieoobero idoxl*/
#lfdo,koeberuadebug//3/
/*
** $Id: apiuh,g nukT,koG_descen ta==l==X_io(iaputdStkId o_ a/exen *L)*lopuff nukT,koG_bo An ta==l==X_io(iaputdStkId p1_ ta_t_ a/exen *L)*lopuffwraas oG_twcho AX()*l,*l O,y Ikc , )*l,refl , )*l,*r_n
uff nukT,koG_folliAn ta==l==X_io(iaputdStkId topuffken,aL_Buff nED */*
** $Id: talidebug/10/30 1#lfdobern0 uh */
/*
** $Ieoobero incluxl*/
#lfdobern0 op 0/1/
/*
** $Ieoobero incluxl*/
#lfdobern0 2000//
/*
** $Ief th -DLto incluxl*/
#lfdoberndeEx00/10/30/
/*
** $Ieoobero ib.luxl*/
#lfdo,koeber oingxl*/
/*
** $Ieoobero idoxl*/
#lfdo,koebermt ind0/1/
/*
** $Ieoobero incluxl*/
#lfdobern0 , "0/1/
/*
** $Ieoobero incluxl*/
#lfdobern0 ,00/1/
/*
** $Ieoobero incluxl*/
#lfdobern0 uadebug//3/
/*
** $Id: apiuh,gr o;
tw ta) *L)*ltwc op L =l==X_io(iaputdStkId (ZIO* z, FILE* os
*/
k k o;
t nukTsetn * elargd (TO000// *dZIO* z, TO000// *r,APIkomt tdesc(s ==e-A= [MARK*/
th askl/*
*(dTftt O/*
*(sd*(zop datastdesc(dTftt-A= [ND,{IK_F dat
pp)`u*dhdc"s * tak o;
twraaisLmde( (StkId o*,komt index)(oOP_Jtdesc(o ==e-A= [MARKOP_J! O/*
*(od*(zop ->isC * tak-A= /PI0 ua_H/
#a ua_setnehih/
#a=l==X_io(iaputd ua_H/
#azop k,kc ostw_H/
#aoldh/
#a=e-->behih/
# dat-->behih/
# =Afop dat index)oldh/
# * tak-A= /PI0 ua_H/
#a ua_setl h/
#a=l==X_io(iaputd ua_H/
#azop k,kc ostw_H/
#aoldh/
#a=e-->l h/
# dat-->l h/
#a=Afop dat index)oldh/
# * tak o;
tStkId aux_tdex)ed op tenCk=l==X_io(iaputdwraaseveltdStkId topugv";
/eiF
uufA= x = (ptta1)3/
L->tdex); i>=0; i--==== o,komccis_T_MARK(L->tdex)[i].tdesc *1{l*/////mt level_==>0)ttr(p)) % index)L->tdex)+i OTTTTTlevel-- datas}dat
2rcre,
ULL * tak-A= /PI0wraas o_twcr,ex)* l==X_io(iaputdwraaseveltdl==XDebugr*aru/
th StkId (d=oTux_tdex)ed op tenC(utd eveltdL->topuff,komccfM==>
ULL)(-TTMBED0*(SL,nLIXs);ob'no surlT,evel_x);(ht-of1{l*///aT->_ op a=Af datasREFREd 1 d
(*grk k o;
twraanups (StkId f*/
th tattaLttdesc(f)*/
th askTSdb-A= [ND,{IK_F(e n a n-TTMBEDkl/*
*(fd*(
#t of d tth askTSdb-A= [MARK(e n a n-TTMBED O/*
*(fd*(zop ->
#t of d tth askTSdbrkvk
/
;
( tkey_
#at*grk kwraas oG_twcho AX()*l,*l O,y Ikc , )*l,refl , )*l,*tr_n
ugv";
/er_n
ff,komcc O_==>
ULL/||apc_==>-1*kth -REFREd -t {h; /no S
/*w O_(r_ op tenCkiA"I omks,)(x)tdl*/r fx = phefx ?,*tr_n
:y_
#atomcc O[r_n
] <>0)ttr(prefl _ttl- O[r_n
++]*S OT-A= /
kMS O[r_n
] >=c0ora[L ].soS
/*w O"_ OTxhh-> O[r_n
] >kc ugv";
(prefl -- datasr_n
-- datasomcc O[r_n
] <>0)ttr(p(prefl _-tl- O[r_n
--]*S OTTT-A= /
kMS O[r_n
] >=c0ora[L ].soS
/*w O"_ OT}
n fA= ;;)1{dataso /energS
/** refl _t;1 OTTTo /energref* refi_t;1 OTTTomcc O[nergref] <>0)ttr(p(pnergS
/**ttl- O[nergref++]*S OTTT-A= /
kMS O[nergref] >=c0ora[L ].soS
/*w O"_ OTTTomcc O[nergref] >kc u OTTTTTtr= k datasrefl _=pnergS
/* datasr_n
_=pnergr_n OT}
n omcctr_n
ug*tr_n
=er_n
ff,kREFREd refl * tak o;
twraa,momt *pc_(StkId f*/
th Cehixen *Lciftt O/*
*(f_ OT-A= /
kMS isLmde((f_ t" op tenCkh b' }
pc"uffkomt ci->pc*kth -REFREd (*ci->pc3/
ci->zop ->f.l->b.lu)3/
1 d
(o)->kth -REFREd -t {h; / op tenCkiA"I omks,)(x)tdl tak o;
twraa,momt *ho AX(StkId f*/
th mt ![sLmde((f_*kth -REFREd -t {h; /lfndeks,)(x) ua* op tenCs t {nb,momt *-S
/*w O* emor TL "out-of1{datasCehixen *Lciftt O/*
*(f_ OT);{/ex* O_=
ci->zop ->f.l-> O datasREFREd s oG_twcho A(l O,y,momt *pc(f_ tporTUn)g,tch ar *gr o;
t
_Stg==twchuap_Stg=(StkId f*/
th REFREd ([sLmde((f_ ?,D O/*
*(fd*(zop ->f.l :yTUn)g,t tak-A= /PI0O* z, FILE* s o_twc as l==X_io(iaputdO* z, l==XDebugr*ar, )*l,nkAPIkoO* z, FILE* aOTL th StkId (d=oTT->_ op th
_Stg===";= twchuap_Stg(f_ OTmt !fp) 2rcre,
ULL / , `f'kiA"I omktch op tenC?utdl*/ L =ostwF_twc as L (fp, n,y,momt *pc(f__ OTmt !os
*/ 2rcre,
ULL * ostwA_h; }2000//(utd(f+/ +(n- kk DS kh; }
as uetL "ou2rcre, aOTL t tak-A= /PI0O* z, FILE* s o_swc as l==X_io(iaputdO* z, l==XDebugr*ar, )*l,nkAPIkoO* z, FILE* aOTL th StkId (d=oTT->_ op th
_Stg===";= twchuap_Stg(f_ OTL->top--A= / o .ni)xxas uetL "oumt !fp) 2rcre,
ULL / , `f'kiA"I omktch op tenC?utdl*/ L =ostwF_twc as L (fp, n,y,momt *pc(f__ OTmt !os
*/||a*s
*[0] =f '(') 2rcre,
ULL / , `('
r,ertn ph)(emx) as utdl*/*((f+/ +(n- kkhdc"L->top;"ou2rcre, aOTL t tak o;
t nukT OLp_Stg=(l==XDebugr*ar,
_Stg===kAPIkoTT->source yf->source->tdTA */TT->l h /se ar= f-> D /se aA */TT->wbse = "ch " t tak o;
t nukT op O_
l==X_io(iaputd ua_Debugr*ar, StkId (op k,kc oPVALUEs*Lcr
=>
ULL * o tattaLttdesc(fop k*/
th askTSdb-A= [ND,{IK_F(e n a ncr
=>kl/*
*(fop k OTTTTTtr= k dataskTSdb-A= [MARK(e n a ncr
=> O/*
*(fop k*(zop datasTTtr= k dataskTSdbrkvk
/
;
kg(ken tacutd"as uetfA= `s o_twc OTLiA"I omkt op tenC"_ OT}
n mt cl->isC 1{l*///aT->source y"=C";l*///aT->l h /se ar= -1;l*///aT->wbse = "C";l*/
pp)` OT);{/ OLp_Stg(ar, cl->f.l) * ostwO_chunkid(aT->sCif
_src,/aT->source,e argof(aT->sCif
_src__ OTmt aT->l h /se ar==>0)ttr(paT->wbse = "main" t tak o;
tO* z, FILE* tra tagmethods l==X_io(iaputdO* z, TO000// *o,APIkomt tdesc(o ==e-A= [ND,{IK_F)1{dataso /e* datasfA= e=0; e#t U_tag; t++*ttr(p)) %mt cl/*
*(od ==el==T_twctmcutdt, ea)l*/////////REFREd s oT_e*ep)*s
*[e] datas}dat
2rcre,
ULL * tak o;
tO* z, FILE* tra iosfds l==X_io(iaputdO* z, TO000// *o,APIkoHa }
*ga=e-->gMffkom
/eiF
uufA= x=0; isarg; i++*1{l*///mt s oO_equalO00u c_/* (n.lu(g, )))aOP_l*///////tdesc(key(n.lu(g, )))aO==e-A= [)s /)S OTTTTT2rcre, tidilea(key(n.lu(g, )))a->tdTA */
2rcre,
ULL * tak o;
t nukTtwc L =l==X_io(iaputdStkId (ZIl==XDebugr*aru/
th TO000// O datsetn * elargd(&O,yfuffkoS ktr1nfblll e// L fA= 20e(xKNUM=ndereg a//mt aT-> L =otra iosfdscutd&o), n yTUn)gttr(paT-> L wbse = " iosfd"ffkoS k } Opiund:ktr1nfag methods L "out-of1mt aT-> L =otra tagmethodscutd&o), n yTUn)gttr(paT-> L wbse = "tag-method" d
(o)->paT-> L wbse = ""*(SL,n } OpiundS A Bar
L " tak-A= /PI0wraas o_twc O_
l==X_io(iaputdO* z, FILE* wbsetdl==XDebugr*aru/
th StkId (op datwraaisks,)(x)= (*wbse n y'>'_ OTmt isks,)(xgttr(p op a=ATT->_ op th t-of1{dataswbse++, DS k}kiemomly'>'TL "ouuu op a=AL->top3/
1 d
(}
n fA= ;* wbse;swbse++*1{l*/// tattaLt wbse*1{l*/////kTSdb'S':1{l*/////// op Ocutdar, fop k OTTTTT /tr= k datas
;} OTTTTTkTSdb'l':1{l*///////TT->,momt *ho AX=a,momt *ho A(fop k OTTTTT /tr= k datas
;} OTTTTTkTSdb'u':1{l*///////TT->nups =anups(fop k OTTTTT /tr= k datas
;} OTTTTTkTSdb'n':1{l*///////TT->nL wbse = isks,)(xg ?,twc op L cutd op td&TT->nL ) :yTUn) OTTTTT /mt aT->nL wbse = yTUn)gttr(ppppppptwc L cutd op tdaruff TTTTT /tr= k datas
;} OTTTTTkTSdb'f':1{l*///////setn * elargd(L->top, fop k OTTTTT /incr_top; DS kh; }
NUM=ndereg a//TTTT /tr= k datas
;} OTTTTT&(o)->v /-TTMBED0*(SL,n[L ].sooptiereg a//TT}dat
mt ![sks,)(xg L->top--A= / o .nNUM=ndereg a//2rcre, o ***/
2:3AXP{======================================================i (wtTMARK
tExta=tpoei (w=======================================================ta.hs< o;
twraah; }pc_({/ex*tdex),y Ikc , )*l,top_ ta_nkAPIkoxhh-> n--gttr(ptdex)[top++] =Apc-1 OT2rcre, t1)sh;hs< o;
tar,msg)GGGGps oG_=TMAexta c* z,
_Stg==pta_Stge#t Uc , )*l,tdex)pos)gv";
/etdex)[TftST t] {h; /srches ;TTMBrtta for Tebse
ING e//r,ex)*==tr1nfoomhc* z, ar,msg)GGGGp*kon e= pt->b.lukk);)*l,tope= pt->numparamnkk);{/expc_=y_
#atomccpt->is_varargk,h; /varargs?utdl*///top++ e / `arg'TL "ouxhh-> pc k*#t Uc */
th ask* z, ar,msg)GGGGpi
=>,kod[pcey] datas-A= /
kMS 0MPtatopeP_Jtope<= pt->maxk ta_D===td"wr i);k ta_"_ OTTTatatta s) / et of d *1{l*/////kTSdbOPl rchar /{k
/
;
as-A= /
kMS tope>=POS_U et of td"wr i);k ta_"_ OTTT*///top =POS_U et of ff TTTTT /tr= k datas
;} OTTTTTkTSdbOPl...,v_n)k/{k
/
;
as-A= /
kMS tope>=POS_U etAof td"wr i);k ta_"_ OTTT*///top =POS_U etBof ff TTTTT /tr= k datas
;} OTTTTTkTSdbOPlv_n)k/{k
/
;
as)*l,nrnP mar =POS_U etBof ff TTTTT /mt rnP mar =f;LT_RETt#*1nrnP mar =P1 OTTTTTTT-A= /
kMS tope>=POS_U etAof td"wr i);k ta_"_ OTTT*///top =Ph; }pc(tdex),yc , OS_U etAof tdnrnP mar,, TTTTT /tr= k datas
;} OTTTTTkTSdbOPl PC+=* /{k
/
;
//top =Ph; }pc(tdex),yc , top_ OS_U et of ,, TTTTT /tr= k datas
;} OTTTTTkTSdbOPl OP /{k
/
;
//top -=POS_U et of ff TTTTT /tr= k datas
;} OTTTTTkTSdbOPlSB[
>v / OTTTTTkTSdbOPlSB[]=vr /{k
/
;
//top -=POS_U etBof ff TTTTT /tr= k datas
;} OTTTTTkTSdbOPlSB[MAP /{k
/
;
//top -=P2*OS_U et of ff TTTTT /tr= k datas
;} OTTTTTkTSdbOPlt {IK_ /{k
/
;
//top -=POS_U et of ff TTTTT /tdex)[top++] =Apc-1 OTTTTT /tr= k datas
;} OTTTTTkTSdbOPltODES,n /{k
/
;
//top -=POS_U etBof ff TTTTT /tdex)[top++] =Apc-1 OTTTTT /tr= k datas
;} OTTTTTkTSdbOPl ISONT OTTTTTkTSdbOPl ISONFk/{k
/
;
as)*l,newpc_=ypc_+ ftt Set of OTTTTT //, argur(ffA=ward i fLdo1 } O}kiem`#t Uc '?utdl*///////omccpc k*newpc_P_Jnewpc_<= #t Uc */
th asTTTT /tdex)[top-1]sh;pc-t {h; /as uetcomes from `i f'/`or'Exitch ks////pc_=ynewpcA / , d=
typ arguL "ou;
as
;} OTTTTT(ht-ofskTSd
//top--A= / do1 } O arg; o .nas uetL "ou*/////tr= k datas
;} OTTTTT&(o)->v /
th asTTTTv_1-v_ op =,ftt/ et of f OTTTTT /-A= /
kMS twK_oppfdpd9fi m=op].h; }
!= VD
skTSd
///////////"[L ].soopO
teS &(o)->v"_ OTTT*///top -=ostwK_oppfdpd9fi m=op].htkId4cTTTT /-A= /
kMS tope>=P0td"wr i);k ta_"_ OTTT*///top =Ph; }pc(tdex),yc , top_ twK_oppfdpd9fi m=op].h; })**/
ks//}tch }dat
2rcre, ,kod[tdex)[tdex)pos]] * tak o;
tO* z, FILE* twcobj L =l==X_io(iaputdStkId objZIO* z, FILE* os
*//
th StkId (op d=oTux_tdex)ed op tenC(utd0tdobj_ OTmt ![sLmde((fop k*tch 2rcre,
ULL / , I omkneks,)(x)ch op tenCTL "out-of1{datas
_Stg==p
=> O/*
*(fop k*(zop ->f.l**/
ks{/expc_=y,momt *pc(fop k OTTT)*l,tdex)pos_=yobjw-ccfop +1g, DS kfop +1 yfop tenCTba)`utdl*///ar,msg)GGGGpi
=>s oG_=TMAexta(p,yc , tdex)pos) datas-A= /
kMS pc ! y-1 t" op tenCkm
)
be as,)(x"_ OTTTatatta s) / et of d *1{l*/////kTSdbOPlGB[ d e /
th asTTTT* L =op->k===[OS_U et of ]->tdTA *///////2rcre, " iosfd"ffkoas
;} OTTTTTkTSdbOPlGB[*eta_se
th asTTTT* L =ostwF_twc as L (p POS_U et of +1,yc OTTTTT /-A= /
kMS * L ,ktd as m
)
exisv"_ OTTT*///2rcre, "d as"ffkoas
;} OTTTTTkTSdbOPlcb[l]] OTTTTTkTSdbOPlGB[i] :/
th asTTTT* L =op->k===[OS_U et of ]->tdTA *///////2rcre, "field"ffkoas
;} OTTTTTkTSdbrkvk
/
;
2rcre,
ULL / , I TNm.ful/ L fAundS_PEch }dat
tak o;
tO* z, FILE* twc op L =l==X_io(iaputdStkId (ZIO* z, FILE* os
*//
th StkId (op d=oTux_tdex)ed op tenC(utd0tdfg, DS kk*ar g.NUM=ndereg a//mt ![sLmde((fop k*tch 2rcre,
ULL / , I omkneks,)(x)ch op tenCTL "out-of1{datas
_Stg==p
=> O/*
*(fop k*(zop ->f.l**/
ks{/expc_=y,momt *pc(fop k OTTTar,msg)GGGGpi**/
ks{mccpc ==>-1* 2rcre,
ULL / , op tenCkiA"I omks,)(o(idS_PEch i =op->b.lu[pc]A_ TTatatta s) / et of d *1{l*/////kTSdbOPlv_n)k/kTSdbOPl...,v_n)kich ch 2rcre, twcobj L (utd(fop +1g+OS_U etAof tdns
*/
kOTTTTTkTSdbrkvk
/
;
2rcre,
ULL / , I TNm.ful/ L fAundS_PEch }dat
tak , }======================================================piuh,g nukT,koG_descen ta==l==X_io(iaputdStkId o_ a/exen *L)*lopuAPIkoO* z, FILE* aOTL th O* z, FILE* expde= twcobj L (utdo_ &ns
*/
kOTO* z, FILE* t =ostwO_desc L (o_ OTmt expdx)sre1,koO_ven tacutd"atnev"omrin%.30sn%.20sn`%.40s' (an%.10s daf d)"
skTSd
////////op_ expdtdns
*, txA_ t-of)sre1,koO_ven tacutd"atnev"omrin%.30snan%.10s daf d", op_ tk**R_FL nukT,koG_bo An ta==l==X_io(iaputdStkId p1_ ta_t_ a/exen *L)*lopuAPIkomt tdesc(p1aO==et) p1ey(n1/-A= /
kMS tdesc(p1aO! yt_ "m
)
be an An ta") * ostwG_descen tacutdp1_ opuffR_FL nukT,koG_folliAn ta==l==X_io(iaputdStkId topuAPIkoO* z, FILE* t1 =ostwO_desc L (top-2/
kOTO* z, FILE* t2 =ostwO_desc L (top-1_ OTmt t1[2] =f t2[2]x)sre1,koO_ven tacutd"atnev"omrin[I);a =ltwon%.10s daf ds", t1xA_ t-of)sre1,koO_ven tacutd"atnev"omrin[I);a =l%.10s )e ar%.10s", t1, t2uffR_F eu.d.ut*/
/*o/d: apiux,v 1.110 2000do/10/30 12:3o,koerndo/1$
** 109AXPsUFa2s30st5138:l0Aofod9fA3I47:46*e S,ex)*i fLCehi)ae_b-v* =lof)ch 20evus0def .h>
/* skipp d: ta.hs//Bee in //Bee in //Bee in /* e "stdlib.h"iuh */
/*
** $Id: apiuh,v 1"stdlib.h"debug//3/
/*
*** $Id: talidebug/10/30 1#lfdobern0 uh */
/*
** $Ieoobero incluxl*/
#lfdobern0 g 0/1/
/*
** $Ieoobero incluxl*/
#lfdobern0 2000/1/
/*
** $Ieoobero incluxl*/
#lfdobern0 2000//
/*
** $Ief th -DLto incluxl*/
#lfdoberndendeE*10/3/
/*
** $Ieoobero ib.luxl*/
#lfdo,koeber oingxl*/
/*
** $Ieoobero idoxl*/
#lfdo,koebermt ind0/1/
/*
** $Ieoobero incluxl*/
#lfdobern0 , "0/1/
/*
** $Ieoobero incluxl*/
#lfdobern0 ,00/1/
/*
** $Ieoobero incluxl*/
#1.110 2000undump/
0/30 12:3o,koernundump/
$
** 21AXPsUFa2s31 16:57:23 lhf3I47:46*e load phe-[I);h->d)ch chunksi (wt retoes therE
of d limits_h
#i to inc
#l to AXPundumph>
#lfdobern0 2000//
/*
** $Ief th -DLto incluxl*/
#lfdoberndeziuh */
/*
** $Ieoobero ilexuxl*/
#load onetchunkl*/
_Stg*** $U_undump==l==X_io(i* utdZIO* Z);s/ eull eby(iafollil*/
wraas oU_,aL_aness ( nuk);s/ eul to itenCs fta=heallislof)br &ry*fh->s L "#l to A VERSION 0x40 _RET;TTMB O* em
ING:wan8 t eoo L "#l to A VERSION0 0x40 _RET;TTMBmajta=
ING:wan8 t eoo L "#l to A ID_CHUNK 27 _RETbr &ry*fh->s r,ert )e arESC... L "#l to A SIGNATURE "ch " _RET...pi)oo e eby Lhiebsignav* =l*/
# O* ems fta=An ta=messag>s L "#l to A SOURCE_FMT "<%d:%.99s>""#l to A SOURCE tf-> D /se a,tf->source->tdT"#l to A IN_FMT "8 t %p " SOURCE_FMT
#l to AXPuaIN tf,SOURCE
#a m
ltipl=lof)PI
lfdatest g.nump cs O* em
*/
#m
ltiply g.by 1E8 20e(A"I n-t ivi&ldko
*gwraas ues L "#l to A TEST_NUMBER 3.14159265358979323846E8ken,aL_Buff nED */*
** $Id: talidouxl*/
#lfdobern0 v00/1/
/*
** $Ieoobero incluxl*/
#lfdobern0 ziuh */
/*
** $Ieoobero ilexuxl*/
#lpac*kfA3 Idl=lr,ex)*,-1)
#t =An tas L "#l to A DO_EXTRA_ST t (2*-A= MINST taiFL nukT,koD_o it* l==X_io(iaputdwraak ta_D===uAPIkoL->tdex) =ostwM_nemt tourlL,ak ta_D===+DO_EXTRA_ST t, TO000//_ OTL->nde);os*ttlk ta_D===* argof(TO000//_ OTL->k ta__;TTMa=AL->tdex)+(k ta_D===-1_ OTL->tdex)D=== ytdex)D=== OTL->Cba)`u=AL->top3=AL->tdex)ffR_FL nukT,koD_Lo tar,ex)* l==X_io(iaputdwraankAPIkomt L->k ta__;TTMa-AL->top3<=ankAP{h; /srex)*,-1)
#t ?utdl*///mt L->k ta__;TTM-L->tdex) > L->k ta_D===-1_, c= wh t , ,-1)
#t =xhh-> Idl g.,-1)
#t =L "ou*///,koD_tr= kruC(utd-A= ERRERRg, DS ktr= k ruCu)e aouttAn ta=messag>S_PEch }dat
/t-of1{l*/////L->k ta__;TTMattlDO_EXTRA_ST tA= / ,inbe Nm.nUby An ta=messag>S_PEch
kg(ken tacutd"srex)*,-1)
#t "_ OTTT}dat*grk k o;
t nukTnEDrche_k ta__;imit* l==X_io(iapukAPIkomt L->top3/
L->tdex) tdex)D=== - 1*kth -L->k ta__;TTMa=AL->tdex) + L->k ta_D===-1_ ***/
2:3AXPA>=
)/srex).wt l,tope,inba)`+ergra,Ph; } g.NILsomt *eeded.3AXP(wetcanI omkddnba)`+ergra unless w>paT=lr* =lima tn8 t
typtdex)ffAXP
IK_WHwiof1
typrnP malof)surlTdpd9afor Tr Tpo tex skiA"unh /se a)
# nukT,koD_t>=
)tope=l==X_io(iaputdStkId ba)`tdwraaergra)gv";
/eL_B(d=oergra- L->top-ba)`_ OTmt L_B(d<=>0)ttr(pL->top3=Aba)`+ergra th t-of1{datas,koD_Lo tar,ex)cutdL_B(_ OTTTxhh-> L_B(--gttr(p//tdesc(L->top++*1=e-A= [NIL;dat
tak ,fAXPOLES_a hole inside
typtdex)S A `pos'
# o;
t nukT,koD_ILESr,ex)* l==X_io(iaputdStkId pos)gv";
/eiu=AL->top-posA
TTxhh-> i--==pos[i+1]sh;pos[i]kk);{/cr_top;***/
o;
t
/*doh/
#a=l==X_io(iaputd ua_Debugr*ar, stw_H/
#ah/
#//
th StkId old_Cba)`u=AL->Cba)`;th StkId old_top3=AL->Cba)`u=AL->top * ostwD_Lo tar,ex)cutd-A= MINST taA= / pnr* =lmo imumptdex)SD=== _PEchL->a)oo h/
#s h;
(h canI omk*ar
h/
#s inside a
h/
# _PEch(*h/
#/cutdar_ OT-A= /
kMS L->a)oo h/
#s h=c0ora[L ].soa)oo "_ OTL->a)oo h/
#s h;1 OTL->top3=Aold_top OTL->Cba)`u=Aold_Cba)`ffR_FL nukT,koD_ H/
#a=l==X_io(iaputdStkId (op , )*l,, , ua_H/
#a h/
#kAPIkomt L->a)oo h/
#s, c= wh,ko_DebugraTA *///ar._ op a=Afop datasar.e*ep) = " ";l*///aT.,momt *ho AX=aS
/* datasdoh/
#cutd&ar, s h/
#k;dat*grk k o;
t nukTstwD_La)oH/
#a=l==X_io(iaputdStkId (op , ua_H/
#abehih/
#, 1,oa*/
koR(-,gerrooO* z, FILE* e*ep)kAPIkomt L->a)oo h/
#s, c= wh,ko_DebugraTA *///ar._ op a=Afop datasar.e*ep) = e*ep)**/
ks{/ O/*
*(fop k*(pc_=y
ULL / , op tenCkiA"I omks,)(>S_PEch doh/
#cutd&ar, behih/
#k;dat*grk k o;
tStkId behiCcVALUEs*
l==X_io(iaputdO* z, ae_b-v_PVALUEs*LcrtdStkId ba)`)gv";
/enup
=>kl->
#t of d t / , Iumbx *df #t of d S_PEchStkId old_Cba)`u=AL->Cba)`;th
/en OTL->Cba)`u=Aba)`; wh t , i)xxba)`ulfdaC op tenCTL "oustwD_Lo tar,ex)cutd
#t+-A= MINST taA= / pnr* =lmo imumptdex)SD=== _PEchfA= n=0; n<
#t; n++*1DS k
/py #t of d San8ergra foomal5) utdl*///*(L->top++*1=ekl->#t of d[n]kk);n)= (*cl->f.c/cuxA / , d=
typks,uas cBar
L "OTL->Cba)`u=Aold_Cba)`f / , o DrcheAoldaC ba)`utdl*/ index)L->top3/
nf / , o TMBED dex*df fir
)
2rP mal*/fR_FL nukT,koD_LBarTM*
l==X_io(iaputdPVALUEs*LftdwraanParamntdwraanRnP mar,/
th StkId ba)`u=AL->top3-anParamn * ostwD_ILESr,ex)cutdba)`_ OTcl/*
*(ba)`)g=Af dattdesc(ba)`)g=A-A= [ND,{IK_F dat,koD_LBarcutdba)`,anRnP mar, ***/
2:3AXPCehi) op tenCT(C_(r_ch ). Ttyp op tenCT,inbe LBar.nUir ebu* op 03AXPTtypfoomal5) uaT=lot
typtdex), therE*Lex *ttyp op tenC03AXPW
achugrn,1
typrnP ma uaT=lot
typtdex), r,ert g.ebupas origr &l3AXP op tenCTo omt l[03AXPTtypIumbx *df rnP ma uiA"IRnP mar, unless IRnP mar=-A= MULTRET03A/ L nukT,koD_LBara=l==X_io(iaputdStkId (op , )*l,nRnP mar,/
th ua_H/
#abehih/
#;th StkId fir
)RnP ma;th Cehixen *ci**/
PVALUEs*Lcr OTmt tdesc(fop kO! y-A= [ND,{IK_F)1{datas , `fop TLiA"I omkt op tenC;wLo tawpas ` op tenC'nfag methodutdl*///PVALUEs*Ltmsh;l==T_twctmbyO00uutd op tdTM_ND,{IK_F)**/
ks{mcctmsh yTUn)gttr(pppstwG_descen tacutd op td"behi"_ OTTTstwD_ILESr,ex)cutdfop k OTTTkl/*
*(fop k =otmA= / ,ag methoduiA"pas i)xx op tenCT,inbe LBar.nUtdl*///tdesc(fop kOtt-A= [ND,{IK_F dat
cr
=>kl/*
*(fop k OTci. op a=Acr OTm/ O/*
*(fop k = &bi dattdesc(fop kOtt-A= [MARK OTcehih/
# =A-->behih/
# datmt cehih/
#kdatas,koD_La)oH/
#cutd op tdbehih/
#,d"behi"_ OTfir
)RnP ma)= (cl->isC ? behiCcVALUEscutdcrtdfop +1g vk
/
;
,koV_exta=tscutdcrtdfop +1g) datmt cehih/
#k1DS k}L h/
# ebse wan8ks,)(>Sse ==tr1nfoomhas,koD_La)oH/
#cutd op tdbehih/
#,d"achugr"_ OT-A= /
kMS tdesc(fop kOttt-A= [MARKora[L ].so,ag"uffkoS k.n ornP ma u,in`fop TL(,inprTSdbparameex ski fLLop tenC)eg a//mt nRnP marOttt-A= MULTRET)1{datasxhh-> fir
)RnP ma)topu1DS k
/py BararnP ma u_PEch
* op ++hdc"fir
)RnP maey(n1/OTL->top3=Afop dat
t-of1{ / ,
/py Btk.nTMB`nRnP mar'TL "ouuu A= ;*nRnP marO> 0_P_Jfir
)RnP ma)top;*nRnP mar--gttr(p//* op ++hdc"fir
)RnP maey(n1/OTL->top3=Afop datuu A= ;*nRnP marO> 0;*nRnP mar--g1{ / , mt LIXs);aT=lI omenougharnP ma u_PEch
tdesc(L->top*1=e-A= [NIL;(h *>=
)/
typtdex)S_PEch
incr_top; DS km
)
Lo tawtdex)SDpac*kg a//TT}dat
,koC_Lo taGC(L, ***/
2:3AXPExta=te a
p_Stec(idSbehi.
# _b-v_PehiS1{ / , datau,in`f_La)o'S_PEchStkId (op datwraanrnP mar;s,;s/ o;
t nukT _LBara=l==X_io(iaputd nukT*ud*/
th _b-v_PehiS1* a=A( _b-v_PehiS1*)ud dat,koD_LBarcutdc*(zop tdc*(nrnP mar,, tak-A= /PI0wraas o_LBara=l==X_io(iaputdwraanargs,twraanrnP mar//
th StkId (op d=oL->top3-a(nargs+1g, DS kfop tenCT,inbe LBar.nUtdl*/ _b-v_PehiS1 datwraa o;enkk);c. op a=A(op ;c.nrnP mar =PnrnP mar;s a o;ensh;l==D_runp_Stec(idcutd _LBartd&c) datmt o;ens!=>0) h *n An ta oc,momtd?utdl*///L->top3=Afop / , o .n oparameex skfrom
typtdex)S_PEcho TMBED o;enkk**/
2:3AXPExta=te a
p_Stec(idSndeE*10
# _b-v_PdeE*1S1{ / , datau,in`f_ndeE*1'S_PEchZIO *z datwraabin;s,;s/ o;
t nukT _ndeE*1a=l==X_io(iaputd nukT*ud*/
th _b-v_PdeE*1S1=p
=>( _b-v_PdeE*1S1=)ud dat
_Stg==tf =op->bin ? * $U_undumpcutdp->z) :y* $Y_ndeE*1cutdp->z) dat,koV_LcVALUEscutdtf_ ( * tak o;
twraah_Stec(idndeE*1a=l==X_io(iaputdZIO *z,twraabin*/
th _b-v_PdeE*1S1p OTunsignidSl i);old_de);os datwraa o;enkk);p.z =oz;;p.bin =abin;s ,koC_Lo taGC(L, * ;old_de);osd=oL->nde);os dat o;ensh;l==D_runp_Stec(idcutd _ndeE*1td&p) datmt o;ens==>0) {datas , kddni)xxm .nr1nfblthrnPholda(an8 aah_Sbably wihi)aeay)utdl*///L->GCthrnPholda+= L->nde);os*-;old_de);os) dat
t-of1mt o;ens==>-A= ERRRUN) h *n An ta oc,momtd:k
/rr**/
An ta O
t ks*/// o;ensh;-A= ERRSYNTAX;Echo TMBED o;enkk**/
o;
twraahdeE*_fh-> ==X_io(iaputdO* z, FILE* fh->os
*//
th ZIO z datwraa o;enkk);wraabin; DS kflag A= fh-> m
t ks*/wraa,;atas , l/
# aheal FILE* ks*/FILUMxf =o(fh->os
*M==>
ULL)(? mluin :yfILES(fh->os
*,d"a"uffkomt fM==>
ULL)(-TTMBED-A= ERRFILU; DS kun "nfblILES fh-> foomhc3=Aftwcc(f_ OTuntwcc(c,yfuffkobin =a(c ==>ID_CHUNKuffkomt bin P_Jfs!=>mluin) {datas= yfreILES(fh->os
*,d"ab"tdfg, DS ksetTbr &ry*m
t ks*///mt fM==>
ULL)(-TTMBED-A= ERRFILU; DS kun "nfblreILES fh-> foomh
,ko_h; }mt indcutd"@") * ostw_h; }mt indcutd(fh->os
*M==>
ULL)(? "(mluin)" :yfh->os
*/ * ostw_b.
/*(utd2_ OTfi->os
*M=ostw_*ar, indcutd-1g, DS kfi->os
*M=o'@'..fi->os
*ML "oustw_popcutd1g, DS kOK:nLIXs);ob'no GC du indSndeE*1ML "oustwZ_FILES(&z,tf,yfh->os
*/ * o o;ensh;h_Stec(idndeE*1cutd&z,tbin*ffkomt fM!=>mluin)datas====xE(f_ OTo TMBED o;enkk**/
-A= /PI0wraas o_dofh-> ==X_io(iaputdO* z, FILE* fh->os
*//
th wraa o;ensh;hdeE*_fh->cutd h->os
*/ * omt o;ens==>0) / odeE*kOK?t ks*/// o;ensh;s o_LBar(utd0td-A= MULTRET), DS kk*ar mainS_PEcho TMBED o;enkk**/
o;
twraahdeE*_buff*1a=l==X_io(iaputdO* z, FILE* buff,e arg_te arg, 1,oa*/
koR(-,gerroooooooO* z, FILE* aOTL//
th ZIO z datwt !os
*/ os
*M=o"?";"oustwZ_mILES(&z,tbuff,e argtdns
*/
kOTo TMBEDh_Stec(idndeE*1cutd&z,tbuff[0]==ID_CHUNKuff**/
-A= /PI0wraas o_dobuff*1a=l==X_io(iaputdO* z, FILE* buff,e arg_te arg,oO* z, FILE* aOTL//
th wraa o;ensh;hdeE*_buff*1cutdbuff,e argtdns
*/
kOTmt o;ens==>0) / odeE*kOK?t ks*/// o;ensh;s o_LBar(utd0td-A= MULTRET), DS kk*ar mainS_PEcho TMBED o;enkk**/
-A= /PI0wraas o_dor, inda=l==X_io(iaputdO* z, FILE* r, *,komt index)dex_dobuff*1lL,ak r,ak r->o( _),ak r) ***/
2:3AXP{======================================================i (wEn ta-r**,-1)* op tenCs (ba)`d onSl i); args)i (w=======================================================ta.hs/
limie( t t; i); arg buff*1 u_PE _b-v_dex_; i)jrg komtjrg_buf b;th _b-v_dex_; i)jrg *phedi enkk);volo;
le inaa o;enk= / pr ta O
t ks}
k k o;
t nukTmessag>S=l==X_io(iaputdO* z, FILE* ruAPIkoO* z, TO000// *emsh;l==H_twc iosfd(utd-A= ERRORMESSAGE_ OTmt tdesc(em ==e-A= [ND,{IK_F)1{datas*L->top3=A*em**/
ks{/cr_top;*mhas,ko_h; }mt indcutds_ OTTTstwD_LBar(utdL->top-2_ ( *at
tak ,fAXPReportn *n An ta,ki fL args upnfblthe avail "nr**,-1)y l elta.h-A= /PI0 nukT,ko_An ta==l==X_io(iaputdO* z, FILE* ruAPIkomt )Tmessag>cutds_ OT,koD_tr= kruC(utd-A= ERRRUN)ffR_FL nukT,koD_tr= kruCa=l==X_io(iaputdwraaAn c /
*/
th mt L->An taJmp*/
th asL->An taJmp->k t;ensh;An c /
OTTTs i)jrg(L->An taJmp->bacp_ OT
t-of1{s*///mt An c /
O! y-A= ERRMEMgttr(p//messag>cutd"un "nfblre*,-1);
exit g\n"_ OTTTexit(EXIT_FAILURE *at
takwraas oD_runp_Stec(ida=l==X_io(iaputd nukT(*f)=l==X_io(iaptd nukT*)td nukT*ud*/
th StkId oldCba)`u=AL->Cba)`;th StkId oldtop3=AL->top;*mh _b-v_dex_; i)jrg ljkk);wraaa)oo h/
#s h;L->a)oo h/
#s OT,j.k t;ensh;0 OT,j.phedi en8=sL->An taJmpFe>
limi)xxAn ta= Idl=r
L "OTL->An taJmp = &ljkk);wt etjmp(,j.b)r==>0)ttr(p(*f)=utdudxA_ t-of1{ / , *n An ta oc,momtd:ko DrcheA
typtdeteutdl*///L->a)oo h/
#s h;a)oo h/
#s OTOTL->Cba)`u=AoldCba)`;th OTL->top3=Aoldtop;*mhasnEDrche_k ta__;imit(L_ OT
L->An taJmp = ,j.phedi enf / , o DrcheAoldaAn ta= Idl=r
L "OT index)dj.k t;enffR_F eu}======================================================l*/
#.d.ut*/
/*o/d: apiux,v 1.110 2000 op 010/30 12:3o,koern op 01$
** 34AXPsUFa2s30st5120:29ed9/27gv"s
1:5**e Auxili&ry* op tenCs gv"manipuleteup_Stgdescski fLcVALUEssi (wt retoes therE
of d limits_h
#i/* e "stdlib.h"iuh */
/*
** $Id: apiuh,v 1"stdlib.h" op 0/1/
/*
** $Ieoobero incluxl*/
#lfdobern0 2000/1/
/*
** $Ieoobero incluxl*/
#lfdobern0 oingxl*/
/*
** $Ieoobero idoxl*/
"#l to A argcVALUEscn) (({/e) argof(PVALUEs) + {/e) argof(TO000//_*(cn)-1_,
"PVALUEs*LltwF_i)xcVALUEs*
l==X_io(iaputd)*l,nelems)gv";
/et=== ytargcVALUEscnelems)**/
PVALUEs*Lc =a(PVALUEs*L)stwM_ma)ooccutds===ukk);c->nerg8=sL->rootcr OTL->rootcra=Ackk);c->mde( =Ackk);c->
#t of d _=ynelems OTL->nde);os*ttlk=== OT2rcre, ,ffR_FL
_Stg==ltwF_i)xp_Stg=(l==X_io(iapukAPIko
_Stg=== ystwM_nemcutd
_Stg_ OTf->k ncS=>
ULL * of->nk ncS=>0 OTf->k _S=>
ULL * of->nk _S=>0 OTf->kp_Stg==>
ULL * of->nkp_Stg==>0 OTf->kon e=
ULL * of->nkon e= 0 OTf->numparamne= 0 OTf->is_vararge= 0 OTf->maxk ta_D===e= 0 OTf->mark ar= 0 OTf-> O_=
ULL * of->n O_=
0 OTf->ne);varne= 0 OTf->e);varne=
ULL * of-> D /se ae= 0 OTf->source y
ULL * of->nerg8=sL->rootp_StgFe>
limlimie( t tp_Stgs
L "OTL->rootp_Stgg=Af dat2rcre, fkk**/
o;
t arg_tep_Stgs===e(
_Stg===kAPIkoo TMBED argof(
_Stg_ 1,oa*/
+of->nk nc* argof(Numbx _ 1,oa*/
+of->nk _* argof(TS, inda*_ 1,oa*/
+of->nkp_Stg* argof(
_Stga*_ 1,oa*/
+of->nkon * argof(ar,msg)GGGG_ 1,oa*/
+of->ne);varn* argof( _b-v_LocVa _ 1,oa*/
+of->n O* argof({/e)ffR_FL nukT,koF_p_Stg
#a=l==X_io(iaputd
_Stg===,y Ikc kAPIkof->nkon e= pcA / , signal ebse p_Stggwan8pfdpd9ly cr= (idS_PEchL->nde);os*ttlp_Stgs===(f_ R_FL nukT,koF_freep_Stg=(l==X_io(iapu,
_Stg===kAPIkomt f->nkon e>>0) / fop tenCTwan8pfdpd9ly cr= (id?utdl*///L->nde);os*-tlp_Stgs===(f_ mhlace*freecutd ->b.lu) mhlace*freecutd ->e);varn) mhlace*freecutd ->kk r) *mhlace*freecutd ->k nc) *mhlace*freecutd ->kp_Stg_ OTlace*freecutd ->e O_ OTlace*freecutd _ R_FL nukT,koF_freecVALUEs*
l==X_io(iaputdPVALUEs*LcuAPIkoL->nde);os*-tltargcVALUEscc->
#t of d _ OTlace*freecutdc) ***/
2:3AXPL/
#azta=n-th) as/vari "nal,, `, 'mlimfop tenCT`fop T.fAXPRehugrn>
ULL/mt *} Opiund0
#O* z, FILE* s oF_twc as L c* z,
_Stg===,y Ik as_Iumbx ,y Ikc kAPIko
/eiF
uufA= x = 0; ine);varneP_Jf->e);varn[i].r,ertpc_<= pcA i++*1{l*///mt pc k*f->e);varn[i].endc kAP / , ms/vari "nas,)(>p--A= / doe);v->os
*/
ULL * of-> ukT _LBara=lr,ertpc_<= //mt pc k*f->pc oF_tS_U et of ]
*[e] datas}dat
2 wbse = ""*(SL,r
)
2r======l*/
#.d.ut*/
/*o/d: apiux,vg110 2000 op 010/30 g3o,koern72p 01$
** 26AXPs47:0530st5120:29ed9/27gGarb
t nColl=ostw fLcVALUEssi (wt retoes therE
of d liml ind0/>/* e "stdlib.h"iuh */
/*
** $Id: apiuh,v 1lfdobern0 uh */
/*
** $Ieoobero incluxl*/
#lfdobern0 op 0/1/
/*
** $Ieoobero incluxl*/
#lfdobern0 g 0/1/
/*
** $Ieoobero incluxl*/
#lfdobern0 2000/1/
/*
** $Ieoobero incluxl*/
#lfdobern0 2000//
/*
** $Ief th -DLto incluxl*/
lfdo,koeber oingxl*/
/*
** $Ieoobero idoxl*/
#lfdo,koebermt ind0/1/
/*
** $Ieoobero incluxl*/
#lfdobern0 , "0/1/
/*
** $Ieoobero incluxl*/
#lfdobern0 ,00/1/
/*
** $Ieoobero
ulet_h
arn* arGCALUEs*= pc// *o,te= 02 wbse
lime= 0 O#lfdosS kfop visidpd9ly crX_io(iapute= 02 wbse
lime= 0 OgdescskiS kfop visidpd9ly }rGCALUEs;
O
t ks}
k k = 0#lfdob (GCALUEs**st,iaputdO* z, ;o ilexa=Ackse
do,k;xa=Ac {h;rg, tht-o1#s h;
(op tfor Teb#t =An tas
da//mttd) L "ot e= 0 OTt ot e= 0 OT 1;}
O
t ks}
k k reecu;
twrX_io(iapu,
_Stg==!===e= 0 = [ND,{IK_F)r,msg)Gf e= 0 OT 1;deE*kOKda//mte ae= 0
exit kom
/eiF
uuf_ 1,oa*/ertpc_ara=lr,OKda//mte a* L i]
exit kom
/eiF
uuf_ 1,og8=sL->tpc_ara=lr,reecu;
t(ce*freecu i]
exit kom
/eiF
uuf_ 1,t pc kertpc_< lexa=AckL * o-kAP / , moF_tougharnP maOKda//mte at pc k*f->pc oF_tr, s h/
#k;dat*grk k a=Ac T,koD_ILESr,ex)* l==GCALUEs**st)td nukT*ud*/kAPIko
/o= (ptta1)3/o<
)RnP maopc_ara=l = 0#lfdob(st,io)k);{/cr_top;***/
= 0uAPID_ILESr,ex)* l==GCALUEs**st)td nu=e-->gMffkom
/eiF
uuf_StgefSx=0; isarg; i++*_StgefA TinJf->e) tdeO*-A=A= ERRM= 0#lfdob(st,i&_StgefA TinJf->or, s h/
#k;dat*grk k a=AckT,koF_frGCALUEs**st,ixen *ci**/
AX(StkId f*/e= 0 (/
->sarg; i++*! OT}
n mara=lr,reecu;
t(Lp_Stg(ar, c L->toa=Ackk)sGp*ke= 02 wbsep_StgFex40 _ s gvr aT->ersal/ odeE*kOKp*ke= 0 OTci. o h/
#k;dat*grk k a=Ac FILE* tra tagmethods l==GCALUEs**st)td nu=e--egMffkom
/ datasfA= e=0; e#t }dat
/t- (op k,kc oPVAl
*(od ==el==T_twcv->os
*/
UL/
Aa=AckT,koF_(st,ic(ar, c L#t "_ OTTT}dat*grk k = 0#lfdob (GCALUEs**st,iaputdO* z, s (StkId f*/
th taottdesc(fop k*/
th aUSERDATA:fop k*/
th a)aO==e:arnP maOKda//mtTTTT2rcro OS_U et op k OTTTTTtr= k dataskTSdb-A= [Ma=AckT,koF_(st,i [MARKOP_J! O/* OS_U et op k OTTTTTtr= k dataskTSdb-A= [ND,{Ia=AckT,koF_(st,ic(TT2rcro OS_U et op k OTTTTTtr= k datakTSdbO
lime= 0 O o .nas uetsGp*te= 0kk)hRKOP_J! S_U et o= k datas
;} OTTTTTtr= k s}datasatasdeo)>
#t of d ts_twtcreILES f OTTT}dat*grk k = 0I0wraas o_LBara=lc_<= #GCALUEs*stop3=AL.ke= 0 OLUEs*Lcr
t.te= 0kk)oHa }
O(;
u#lfdo lim FILE* te>
a=AckL
ly cr= (gt a=Ackk)LUEs*Lcra=Ac FILE* traec(idst);< lexa=Ackpiund:ktr1nfag mea=Ac T,koec(idst);top3=Afop ex40aramL
ly cr uetkom
/eiF
uuf_ 1,nup
=>kl->tpc_< lexa=Ack=lr* Iumbx *df #t A= ERRM= 0#lfdob(&st,i&ftop++*1=eki]
exit ag>S_PEch
tAL.te= 0etop3=Afop ex40aramL
ly cr uetkom
/eiF
uufh= x=0; isarg; N / pc,yfidileh(key;arg; ESSAGE_ Oe, ti) tdesc(fopNILc_<= #t Uc */
ESSAGE_ OqualO(n.lu(g, ))NILc= #t Uc */
000// Afop eh(ke, ti) cl->f.cs , t of.e*eO,yfuffkAfop ex4f #t A= ERRRRM= 0#lfdob(&st,i&ne*feyy;arg; RRM= 0#lfdob(&st,i&ne*quay;arg; }_U et o= k daag>S_PEch asdeo)>
#t oot+ergrEch * op rkreILES f OTTT}dat*g+*1{has;
twrX_io(iaputdO* z, TO000/sh;pc////d -t0 _ sAPIedacutdO*nfag mekId f*/
op*t>tdexdesc(fop k*/
th a)aO==e:op k*/
th aUSERDATA:_U et o /)S OTTTTT2rcro e= 0 OTTTTTtr= k datakTSdbO_U et o /)S OT*/e= 0 (hTT2rcro OOTTTTTtr= k dataskTSdb-A= [ND,{I /)S OT*/e= 0 (c(TT2rcro OS_U ets}datasat
#t of d t f #t A= E a=Af datasREFREd lexa=crot0 _ afor pcA $Id:go,k;x; DS kESSavarik TMBErehe afsndc kAc///#t =An tas VALIDLINKex_dob,n)t A= E(NONEXT[i].(st)t&&.(st)t< ti) e, aOTL t tak okAc// gvrafsn ta__;imit* l==X_io(_io( * of->efSx=0; nu=e-->gMffkom
/eiF
uufn; isarg; arn* arRh
* * o&_StgefA TinJf-;&ry*m
te,e ) tdHOLD=e-A=has;
t(&e,eoctmcutdt,e,e ) COLLECTEDu=AoldChugr"_ OTte,e ) tdeO*-=e-Ahas;
t(&e,eoct ||= #t Uc */
0= E(e,e ) tdHOLD=e-Ahas;
t(&e,eoct ||= #t Uc */
0= E e,e ) tdCOLLECTED ||= #t Uc */
0= E e,e ) tdNONEXT[||= #t Uc */
0= E(e,e ) < uffkoVALIDLINKex_d_StgefA TinJe,e )->e), i) arg_te arg, 1,oa"inX_io
er_n
uge#lfdomkt op tenChugr"_ OTVALIDLINKex_d_StgefFreh, i),a"inX_io
er_n
uge#lfdomkt }
O
t ks}
k k coll=osg==ltwF_i)xp_Stg=(l==X_io(iapukA-v_Pd&of->nerg8=sL-_io(iapukA
ULL-_ioRET)1{d(
ULL * *phodscutd&o>sarg; i++*
ULL==e= 0 = [ND,{I] <>0)==e= 0 OTf->marrrrrv_Pd&<>0)==
ULL-_iossag>S_PEch }dat
/t--v_Pd<>0)==
ULL-_ioss _ R_FL nukT,ko_Lo tULLar, c L#t "_ OTTT}dat*grk k coll=oskT,koF_freecVALUEs*
l StkId (op k,kc-v_Pd&of->nerTci. o (op k,kc
ULL-_ioRET)1{d(
ULL * *phodscutd&o>sarg; i++**/e= 0 (tULLa= [ND,{I] <>0)==e= 0_Pd<>0)-A= ERRFp rkreILESrrrrv_Pd&<>0)==
ULL-_iossag>S_PEch }dat
/t--v_Pd<>0)==
ULL-_ioss _ R_FL nu) dat,koV_LtULLar, c L#t "_ OTTT}dat*grk k coll=os#lfdo reecVALUEs*
l StkId// *o,-v_Pd&of->ner#lfdo;kId// *o,
ULL-_ioRET)1{d(
ULL * *phodscutd&o>sarg; i++**/e= 0 (tULLa= [ND,{I] <>0)==e= 0_Pd<>0)-A= ERRFp rkreILESrrrrv_Pd&<>0)==
ULL-_iossag>S_PEch }dat
/t--v_Pd<>0)==
ULL-_ioss _ RHd _ OTlatULLar, c L#t "_ OTTT}dat*grk k c DS #lf tagmethods l==
do,k#lfdo *tbxen *L)*lopb 1,nh 10t cehih/S Afos*-tl==Tb,.pb 1 x=0/2)(fop k =fdo ,ag oo bigir
)
2rPT}dat*grk k coll=os
do,ka tagmethods l==)jrg lj)td nu=e-->gMffkom
/eiF
uuf_St
dt. x=0; is>nkon
# Oas);o
ly cr u _* argo-v_Pd&of-
dt.hashJf-;&ry*m _* argo
ULL-_iossRET)1{d(
ULL * *phodscutd&o>sarg; ; i++*
ULL==e= 0 =e-A= lj)td O(Afoerri "nas,)(>; i++*
ULL==e= 0 =< FIXs ==e->f.c/e , `foTTMBmajFIXs =s4f #t A= ERRRR<>0)==e= 0 OTf->marrrrrrrv_Pd&<>0)==
ULLhashS_U et o=A= [)s op dat
t-ll=os4f #t A= ERR-v_Pd<>0)==
ULLhashS_U et o=== - 1dt.,nh );v->os
*/LUEs*LcuAPIkoL->nde)has,ko_<>0)==leny;arg; of d _ OTlatULLar, c Lh; })**/
ks//}tcc DS #lfec(id= - 1dt)k);{/cr_top;***/
t-ll=osuE*1S1tagmethods l==)jrg lj)td nu=e-->gMffkom
/eiF
uuf_Studt. x=0; is>nkon
# Oas);o
ly cr u _* argo-v_Pd&of-udt.hashJf-;&ry*m _* argo
ULL-_iossRET)1{d(
ULL * *phodscutd&o>sarg; ; Chugr"_ OT
ULL==e= 0 =<=omt "uE*1S1s h;
(op fixed"cv->os
*/
UL
ULL==e= 0 =e-A= lj)td O(Afoerri "nas,)(>; <>0)==e= 0 OTf->marrrrrrrv_Pd&<>0)==
ULLhashS_U et o=A= [)s op dat
t-ll=os4f #t A= ERR+*1{lag_Pd<>0)==u.d.t<=L#t A= ERR-v_Pd<>0)==
ULLhashS_U et o==<>0)==
ULLhash * of-TM =fdo[t<=].t-ll=os O wbsep_StgFuE*1S1f #t A= ERRof-TM =fdo[t<=].t-ll=os _Pd<>0)-->os
*/LUEs*LcuAPIkoL->nde)has,ko_<>0)==leny;arg; of-udt.,nh );v->os
*/ })**/
ks//}tcc DS #lfec(id= -udt)k);{/c=An tas MINBUFFER 256TT}dat*grk k c DS M0wraas o_dobuff*1a=lwraaAn c /
*/M0wra x=0 > MINBUFFER*2rn[i].endc 0wraas oo big / odeE*kO*/
onewf->maxk
*/M0wra x=0/2)[TftST ah_Sh;rg, tht-oMINBUFFERly cr= (id?utdl*///Cthrnewf->ma-k
*/M0wra x=0)->n 0
y;arg;
*/M0wra x=0 =onewf->m; cehih/M AfEs*L) =ostwM_ne
*/M0wrak newf->m, 0
y;arg_ OTTT}dat*grk k cEs*gckT,koD_LBarTM*
l==X_io(iaputdO* z, TO000hodutdl*///PVALUEs*Ltmsh;l==T_twcoO00uuGCRRORMESSAGmodscutd&o>sarg; i*1{oldahaa)oo h/
#s h;L->a)ox)SD=== _PEchL->a)oo h/
#s)`;t $Id:canI om);ob'noGCkpiund:ktr1nfag meop tenCTL "oustwD_Lo 2ex)cutdfop k Oh
tdesctL->top3 u_PEch
tdesc(L->tp kOtt-A= [Nal5) utdl*/1(f+/ o>a)ox)SD=)`;tCth2; meop tenCT OTTTstwD_LBar(utdL->tox)SD=== _PEchL->a)oldah,j.phedi enf /EchL->eILES f OTTT}dat*grk k cEs*gckTuE*1S1tagmethods l)td nu=e--t<=L#t gr*aru/
th TO u_PEc&odesc(L->tUSERDATAh TOay)utdl*///L->G
;
d_de);osd=oxA_ trk k IXs);ob'nopiund:ktr1nfag me / el*agA= t=0; t<=L->ag>/////ag0;*nRnP ma
# Oas);piun(ienC0>ers eull ) ly cr u _* argouE*1S-_iossRET)1{d(uE*1S1* of-TM =fdo[t<=].t-ll=os hodscutd&o>sarg; ; Cf-TM =fdo[t<=].t-ll=os _PduE*1S==
ULLhashStop3=Afop ex40aramL
ly cr uetTTTT2rcr&odescuE*1S-_ioss cEs*gckT tagmet-_ioss _ R d _ OTlauE*1Sar, c L#t "_ OTTutd _ RC_t-ll=os4tagmethods l==)jrg lj)td nut-ll=osuE*1SPEch(lay;argcEs*gckTuE*1Sk ta__;coll=os
do,kaPEch(lay;argcoll=os#lfdok ta__;coll=oskT,ko_Lta__;coll=os) dat,koV)k);{/cr_top;***/
RC_t-ll=osgarb
t ntagmethods l)td nu = 0I0w_Lta__; okAc// gvrafs (*cl->f.; DS kunsAPIedarafvranc *df #t RC_t-ll=ossh;s ta__;c DS M0wraas_Lta__;ay)utdl*///L->G
;
d_de);osd=oxA_ "tdfe>
dl*///L->GlILES Es*gckT tagml t-oni
#lfdobe*freecutd _ Rabin;s , o_dobuff*1a=lwraaAn c /
*/utdl*///>=;ay)utdl*///L->t cehih/C_t-ll=osgarb
t oV)k);{/======l*/
#.d.ut*/
/*imit_h
NOPARSERcutd _ RXFL nuo_dobuff*1a=lwraaAnUNUSEDoV)k);{=An tas MAXSRC 80cutd _ RXFsyntaxI0 nukTLexuff*1a=ls==X_io(iaputdO*==X_io(iaputdOtokegr*ar, )putdE*1cuMAXSRC-;&ryl->f.l) * ost_buff*ls D /se a,tf->/aT->sour_buf));&ryl->f.f)sre1,ls Dp//mE_FMT;\n N0 0x4tokeg===a
`atnev'as/vari %dA IN_.80s )
*kO,4tokegf*ls Dari y Ik _buf)k);{utd _ RXFI0 nukTLexuff*1a=ls==X_io(iaputdO*==t->b.lkegr*ar, UNUSEDo.lkegr;&ryl->XFsyntaxI0 nu(ls==sf*ls D
*/M0wrak )k);
#s", to/d: apiux,v$Ieo0 2000 op 010/30 $Ieo0koern72p 01$
** 20AXPs39:0330st5120:29ed9/27gLexizta=Analyzew fLcVALUEssi (wt retoes therE
of d limits_h
#icu_PE in //Bee in //Bee in /* e "stdlib.h"iuh */
/*
** $Id: apiuh,v $IeoobdendeE*10/3/
/*
** $Ieoobero ib.luxl*/
##lfdobern0 2000/1/
/*
** $Ieoobero incluxl*/
#lfdobern0 2000//
/*
** $Ief th -DLto incluxl*/
#lfdoberndendeE*10/3/
/*
** $Ieoobero ib.luxl*/
#lfdo,koeber oingxl*/
/*
** $Ieoobero idoxl*/
#lfdo,koebermt ind0/1/
/*
** $Ieoobero incluxl*/
#lfdobern0 , ind0/1/
/*
** $Ieoobero incluxl*/
ua1"stdlib.h"deb
#.d.ut*/
/*o/dcluxl*/
#lfdobern0 ziuh */
/*
** $Ieoobero i SOURCE_FM$Ie_
ULL(LS)kTLSl*///////o;encc(f_LSl*z0//_**o/dORDERlRESERVEDarg budat
tak o;
tO tak .lkeg20wraas [--==sarg; "and"//masdeo"//mdo"//ms", "//ms", if"//msnd"//m
#.10s da pc ! y-1"//mif"//m///2rc//mni
c//mnotc//m
#.1tdbepeat" tdbehih/
tdthen.10s da unti
c//mRET)1c//mc//m..c//m...c//m==c//m>=c//m<=c//m~=c//mc//mc//m"ta O
utd _ RXFL nu1tagmethods l)td nu=e-->gMffkom
/eiF
uufNUM_RESERVED; isarg; _* argotks*/// Sg=== ys.lkeg20wraaski]
exit ts==e= 0 OTf(eE*1S1p 0
y(RESERVEDs =+i),j.phedi errid wull>eILES f OTT=An tas MAXSRC 80cO
utd _ RXFin;s rche_k Lexuff*1a=ls===e--kAcdStkId (he_==X_io(iaputdOmsgwraaAn c /kAc > (he_xdesc(fopputdE*1cu100op->b.lupraatft_buff*" oo manyN_.50a ta(he_=%d)c//msg, (he_x; meop teXFI0 nu(ls==_buff*ls Dt..lkegr;&ry_ OTTutd _ RXFsyntaxI0 nukTLexuff*1a=ls==X_io(iaputdO*==X_io(iaputdOtokegr*ar, )putdE*1cuMAXSRC-;&ryl->f.l) * ost_buff*ls D /se a,tf->/aT->sour_buf));&ryl->f.f)sre1,ls Dp//mE_FMT;\n N0 0x4tokeg===a
`atnev'as/vari %dA IN_.80s )
O,4tokegf*ls Dari y Ik _buf)k);{
{utd _ RXFI0 nukTLexuff*1a=ls==X_io(iaputdO*==t->b.lkegr*ar, )putdE*1cuTOKEN_LEN];&ryl->XF.lkeg20wr(tokegf*_buf)k)ID_CHUN*1cutd td'\0') meop teXFsyntaxI0 nu(ls==sf*ls D
*/M0wrak )k) ds", t1xA_ tXFsyntaxI0 nu(ls==sf*_buf)k);{
{utd _ RXF.lkeg20wrtwraahtokegf*aputdO* z, FILE* tokeg=< 256->sarg; autd 0
ytokegp->b.lu[i--=='\0't op tens", t1xA_0wrcpy(sys.lkeg20wraask.lkeg-FIRST_RESERVED])k);{/cr_top;***/
RXFL kAc//aputd Lexuff*1a=ls===e--cr*ar, )putdE*1cu8];&ryupraatft_buff*"0x%02X"lace*fA_ tXFsyntaxI0 nu(ls==-A= [MARKX_itrol )put"f*_buf)k);{
{ aOTL t tak ocari y Ik d Lexuff*1a=LS)kar, M$Ie_
ULL(LS)dataswbse++'\nin`f_nd++LSl*ari y Ik *fA_ tXFin;s rche_(LSstwS Dari y Ik MAX_INT,sar.e* te>
[I);h->")k);{
{utd _ RXFsI0wr(;
utagmethods l==Lexuff*1a=LS==X_io(iap _* argoe= 0
PVALUES DL1* o;ALUES Daa,;tas ,..lkeg1* TK_EOS2rcre,
Uaa,;-tas , .lkeg1ly cr=Sl*zo;enk cr=Sl*fOTf->e);varnwS Dari y Ik OT 1;deEwS Da 0x/aT.,mo1;deEwS De= 0 OTfe= 0 ;r, M$Ie_
ULL(LS)datasw==a
BED dek/
# aheal c /
Sl*///////o;=='#'->sarg; do->top3<=se++ED de/aT., "nas,)(>p$Ie_
ULL(LS)d, c L#sRET)1{d
Sl*///////ox)= \nin&&
Sl*///////ox)=EOZr;&ry_ OTT00 op 0; args)i (w==============================================7gLEXICAL ANALYZERctExta=tpoei (w================================================== ERRss M0wraas oST t]moF_to, (gvral
do,ka p_Stof d ts
/*imAn tas ;TTMaBUFF 128imAn tas in;s ndex)dex_dgf*legr L "olegr+(gr*>k
*/M0wra x=0) \
l->f. OTT taw_h; }legr+(gr+;TTMaBUFF)o idoxl*/
av OTlacf*l) (
*/M0wrak [l /tdex 0
yc) idoxl*/
av _p_S_
ULL(LstwSf*l) (
av OTla
Sl*///////f*l),>p$Ie_
ULL(LS))ch }dat
tak o;
tO==a
oF_twcLexuff*1a=LS)kar, Mgmethods l1* oS DL;&ryu*/
olOTf->marin;s ndex)dex_d10f*l)>mardo->sc(fopp;s ndex)dex_d10f*l)>mar
av _p_S_
ULL(LstwSf*l);&ry_top-posA salof d
Sl*///////t ||
Sl*///////o;=='_'f,yfh-av OTla'\0'f*l);&ry ba)`utdl*M0wrak *freecutc(L-> to A arg budat
utd _ $Ie_==a
_y Ik d Lexuff*1a=LS===e--comma,cVAm ma;t*semcutd kar, Mgmethods l1* oS DL;&ryu*/
olOTf->marin;s ndex)dex_d10f*l)>mar
UL/omma)h-av OTla'.'f*l);&ryop-posA sdige_(LSl*///////t)->sc(fopp;s ndex)dex_d10f*l)>mar
av _p_S_
ULL(LstwSf*l);&ry_eal c /
Sl*///////o;=='.'->sarg;
av _p_S_
ULL(LstwSf*l);&ryal c /
Sl*///////o;=='.'->sarg; ;
av _p_S_
ULL(LstwSf*l);&ryalfh-av OTla'\0'f*l);&rymeop teXFI0 nu(wSf*"ambigu OT,syntax"
" (decimal d9afo x
do,k
*/ * enf)sur)c//TK_ to A ar, c L#t "_ ryop-posA sdige_(LSl*///////t)->sc(fopp;s ndex)dex_d10f*l)>mar
av _p_S_
ULL(LstwSf*l);&ry_eal c /
Sl*///////o;=='e' ||
Sl*///////o;=='E'->sarg;
av _p_S_
ULL(LstwSf*l);atasw==a
B'E'br &ry*m
t
Sl*///////o;=='+' ||
Sl*///////o;=='-')arg; ;
av _p_S_
ULL(LstwSf*l);-1_, cp)sural exponelems)gnbr &ry*mop-posA sdige_(LSl*///////t)->sc(fofopp;s ndex)dex_d10f*l)>mar
;
av _p_S_
ULL(LstwSf*l);&ryal#t "_ ry-av OTla'\0'f*l);&ry+Id fl->f.
d2d(
*/M0wrak &semcutd->r)) meop teXFI0 nu(wSf*"mal g.eStof d tc//TK_ to A ar, OTTT}dat*grk k oa
_ _b_0wraas oLexuff*1a=LS==VAm ma;t*semcutd kar, Mgmethods l1* oS DL;&ry=e--co//o;e0;&ryu*/
olOTf->marin;s ndex)dex_d10f*l)>mar-av OTla'['f*l);-1_, -av +ED de'['fag mekav _p_S_
ULL(LstwSf*l);-1_, pasag metseco/de'['fag meO"_ OT}
nsc(fopp;s ndex)dex_d10f*l)>mar
Id f*/
Sl*///////t >sc(fofopr= kEOZrtdfop +1g-av OTla'\0'f*l);&rymeopop teXFI0 nu(wSf*"unuk);shp OTuns0wraasc//TK_)aO==e);&rymeopopasdeo)>
#t oStrk k warno,ka "nas,)(>pr= k'['rtdfop +1g-av _p_S_
ULL(LstwSf*l);&ryalfh*m
t
Sl*///////o;=='['->sarg; ; ,)(>po//fir
)RnPop +1g-av _p_S_
ULL(LstwSf*l);&ryalfh*mL "ou;
as
po//inue;nas,)(>pr= k']'rtdfop +1g-av _p_S_
ULL(LstwSf*l);&ryalfh*m
t
Sl*///////o;==']'->sarg; ; ,)(>
UL/o//o;==0) gapukendaa,p;arg; ; ,)(>po//);v->os
*/LU1g-av _p_S_
ULL(LstwSf*l);&ryalfh*mL "ou;
as
po//inue;nas,)(>pr= k'\nirtdfop +1g-av OTla'\n'f*l);&rymeopop ocari y Ik (LS)d, c L
as
po//inue;nas,)(>
*/
kOTTTTTkTSdbr
av _p_S_
ULL(LstwSf*l);&ryal#t "_kendaa,p: mekav _p_S_
ULL(LstwSf*l);-1_, =se++ metseco/de']'fag mekav OTla'\0'f*l);&rysemcutd->tks*/// Sg===#lfdM_ne
*/M0wrak +2f*l-5ar, OTTT}dat*grk k oa
_0wraas oLexuff*1a=LS==ergrael,cVAm ma;t*semcutd kar, Mgmethods l1* oS DL;&ryu*/
olOTf->marin;s ndex)dex_d10f*l)>mar
av _p_S_
ULL(LstwSf*l);&ryRET)1{d
Sl*///////ox)=ael}
nsc(fopp;s ndex)dex_d10f*l)>mar
Id f*/
Sl*///////t >sc(fofopr= kEOZr(>pr= k'\nirtdfop +1g-av OTla'\0'f*l);&rymeopop teXFI0 nu(wSf*"unuk);shp 0wraasc//TK_)aO==e);&rymeopopasdeo)>
#t oStrk k warno,ka "nas,)(>pr= k'\\irtdfop +1gM$Ie_
ULL(LS)dataswdo-;
(-av + met'\' "nas,)(>
Id f*/
Sl*///////t >sc(fofo,)(>pr= k'a':g-av OTla'\a'f*l);-M$Ie_
ULL(LS)das
;} OTTTTTfo,)(>pr= k'b':g-av OTla'\b'f*l);-M$Ie_
ULL(LS)das
;} OTTTTTfo,)(>pr= k'f':g-av OTla'\f'f*l);-M$Ie_
ULL(LS)das
;} OTTTTTfo,)(>pr= k'n':g-av OTla'\n'f*l);-M$Ie_
ULL(LS)das
;} OTTTTTfo,)(>pr= k'r':g-av OTla'\r'f*l);-M$Ie_
ULL(LS)das
;} OTTTTTfo,)(>pr= k't':g-av OTla'\t'f*l);-M$Ie_
ULL(LS)das
;} OTTTTTfo,)(>pr= k'v':g-av OTla'\v'f*l);-M$Ie_
ULL(LS)das
;} OTTTTTfo,)(>pr= k'\n':g-av OTla'\n'f*l);- ocari y Ik (LS)das
;} OTTTTTfo,)(>pr= k'0':op k*/'1':op k*/'2':op k*/'3':op k*/'4':TTTTTfo,)(>pr= k'5':op k*/'6':op k*/'7':op k*/'8':op k*/'9': >sc(fofo,)(>ry=e--cOTf->marrrrrrr(>ry=e--iOTf->marrrrrrr(>rydo->sc(foTTTTfo,)(>p,mo10*ca=AL-Sl*///////-'0');sc(foTTTTfo,)(>p$Ie_
ULL(LS)d, c LLLLLLLLL_top-posA++i<3n&& sdige_(LSl*///////t)>marrrrrrr(>ry=
UL/ox)=(eE*1S1p 0
yc)->sc(foTTTTfo,)(>-av OTla'\0'f*l);&rymeopopfo,)(>pteXFI0 nu(wSf*"escapetsequanc oo h;rg,c//TK_)aO==e);&rymeopopLLLL_
foTTTTfo,)(>-av OTlacf*l);&rymeopopfo,)s
;} OTTTTTfo,)(>_
foTTTTfo,)s}datasat
#t AoldaAs \\, \c//\'tn *n \ "nas,)(>; ,)(>-av _p_S_
ULL(LstwSf*l);&ryalfh*mL "ou;
as
s
;} OTTTTTfo
*/
kOTTTTTkTSdbr
av _p_S_
ULL(LstwSf*l);&ryal#t "_ mekav _p_S_
ULL(LstwSf*l);-1_, =se++aelche_ t f #t kav OTla'\0'f*l);&rysemcutd->tks*/// Sg===#lfdM_ne
*/M0wrak +1f*l-3ar, OTT *at
X_$Ie oLexuff*1a=LS==VAm ma;t*semcutd kar, O"_ OT}
nsc(fo
Id f*/
Sl*///////t >snas,)(>pr= k' ':op k*/'\t':op k*/'\r':gIK_F)\r' oStrk k olda of fh->s DOS "nas,)(>; p$Ie_
ULL(LS)d, c LLLLLpo//inue;nnas,)(>pr= k'\nirtdfop +1g ocari y Ik (LS)d, c L
as
po//inue;nnas,)(>pr= k'$irtdfop +1gMteXFI0 nu(wSf*"unexp=os _`$' (pragmas , mt L OTun t suptak ed)c//'$i);&rymeopopasdeo)nnas,)(>pr= k'-irtdfop +1gM$Ie_
ULL(LS)d&ryalfh*m
t
Sl*///////o!=='-')y ba)`ut'-'d&ryalfh*mdo->tM$Ie_
ULL(LS)da#sRET)1{d
Sl*///////ox)= \nin&&
Sl*///////ox)=EOZr;&ry L
as
po//inue;nnas,)(>pr= k'[irtdfop +1gM$Ie_
ULL(LS)d&ryalfh*m
t
Sl*///////o!=='[')y ba)`ut'['d&ryalfh*mEch }dat
/t----- oa
_ _b_0wraas(wSf*semcutd ;dat
/t----- oa)`utTK_)aO==e;&ryalfh*mL nas,)(>pr= k'=irtdfop +1gM$Ie_
ULL(LS)d&ryalfh*m
t
Sl*///////o!=='=')y ba)`ut'='d&ryalfh*mEch }tM$Ie_
ULL(LS)da oa)`utTK_EQ;mL nas,)(>pr= k'pr= k'>irtdfop +1gM$Ie_
ULL(LS)d&ryalfh*m
t
Sl*///////o!=='=')y ba)`ut'>'d&ryalfh*mEch }tM$Ie_
ULL(LS)da oa)`utTK_GD-AL nas,)(>pr= k'~irtdfop +1gM$Ie_
ULL(LS)d&ryalfh*m
t
Sl*///////o!=='=')y ba)`ut'~'d&ryalfh*mEch }tM$Ie_
ULL(LS)da oa)`utTK_ND-AL nas,)(>pr= k'"irtdfop +pr= k'\'irtdfop +1g oa
_0wraas(LSstwS D///////f*semcutd ;dat
/t--- oa)`utTK_)aO==e;&tdfop +pr= k'.irtdfop +1gM$Ie_
ULL(LS)d&ryalfh*m
t
Sl*///////o;=='.'->sarg; ; +1gM$Ie_
ULL(LS)d&ryalfh*m*m
t
Sl*///////o;=='.'->sarg; ; +1g(>p$Ie_
ULL(LS)d, c LLLLLLLLL oa)`utTK_DOTS2rcIK_Frt )e a LLLLLLLLL_
foTTTTfo,)Ech oa)`utTK_CONCAT2rcIK_Frt)e a LLLLLLL}&ryalfh*mEch +Id f*/dige_(LSl*///////t)- ba)`ut'.'d&ryalfh*mEch }dat
/t----- $Ie_==a
_y Ik (LSst1f*semcutd ;dat
/t----- oa)`utTK_ to A ;&ryalfh*mL nas,)(>pr= k'0':op k*/'1':op k*/'2':op k*/'3':op k*/'4':TTTTTfopr= k'5':op k*/'6':op k*/'7':op k*/'8':op k*/'9':
/t----- $Ie_==a
_y Ik (LSst0f*semcutd ;dat
/t--- oa)`utTK_ to A ;&sc(fofopr= kEOZrdat
/t--- oa)`utTK_EOS2 nas,)(>pr= k'_':ogapuktoF_t2 nas,)(>
*/
kOTTTTTkTSdbr+Id f*/alpha(LSl*///////t)->sc(fofoSdbr+e--cOTfLSl*///////d&ryalfh*m*m
tiscntrl(c)c= #t Uc */
000/XFL kAc//aput(LSstc ;dat
/t-----p$Ie_
ULL(LS)d, c LLLLLLLttlk=== O LLLLLLL}&ryalfh*mtoF_t:n[i].endd///ifiAXPTredi errid wull>eILESSSSSSSSS _* argotks*/// Sg=== S Dp//==a
oF_t(LS))d&ryalfh*m*m
tts==e= 0 O>= RESERVEDs =)j.phedi errid wull "nas,)(>; ,)(> /)S OTTT==e= 0 -RESERVEDs =+FIRST_RESERVEDv->os
*/LU1g-emcutd->tks*/ts;dat
/t----- oa)`utTK_ AME O LLLLLLL}&ryal#t "_ OT======l*/
#.d.ut*/
/*9323846to/d: apiux,v#lfd0 2000 op 010/30 #lfd0koern 9p 01$
** 34AX6:29:5s30st5120:29ed9/27gIfor fl*/
M, kddnManagew fLcVALUEssi (wt retoes therE
of d limits_h
#i/* e "stdlib.h"iuh */
/*
** $Id: apiuh,v 1lfdobern0 uh */
/*
** $Ieoobero incluxl*/
#lfdobern0 2000/1/
/*
** $Ieoobero incluxl*/
#lfdobern0 2000//
/*
** $Ief th -DLto incluxl*/
lfdo,koeber oingxl*/
/*
** $Ieoobero i Sit_h
(L->DEBUG,ak r) ***/
2:3AXP{=============================================================7gC_itrolCT,i>ers 'mlfTrediEs*L).ctExta=tpoei (w============================================================== limits_h
#ias ert in lche_s in //Bee in e);, besourun 'mlL_UUExAc/gn))TT=An tas MARKSIZE 16T=An tas MARK 0x55j.phe01010101 (a nes tpator p)obero idoxl*/
tdl*//s*-tbrgcVeE*1S1p OTuns*)((o;
tO)tbrebeHEADA ))TTeE*1S1p OTuns#lf1"std_y IL, * ;ol0;TeE*1S1p OTuns#lf1"std_total;ol0;TeE*1S1p OTuns#lf1"std_UExmem;ol0;TeE*1S1p OTuns#lf1"std_Uemrche_ktdeONG_M-A= TTT}dat*grk k *pp;s nuAPID_rk k *nuAPI)->sc(eE*1S1p OTuns*bktdtdl*//s*-tbuAPI);sc(eE*1S1p OTuns x=0 =o*b;&ry=e-->gMffkom
/eiF
io#lf1"std_total;-->nde);os*ttlk===br, OTTT}dat*grk k _ nuAPID_rk k *nuAPI)->sc(_CHUNuAPI)->sc( FILE* buff,e =o*bdl*//s*-tbuAPI);sc( _buAPI OTp;s nuAPItbuAPI);sc( _#lfsettbuAPI_*ar/aT->s+HEADA +MARKSIZEA= MINSTfop TbuAPI "nas,)( _ )tbuAPI);nP ma rehe g.ebupTbuAPI "nas f OTTT}dat*grk k *1"std_diEs*L)D_rk k *nuAPI FILE* buff,e z, FILE* rf,e =t o;ens= _ nuAPItbuAPI);sc( _tas}dat
2
d_de);os) dat
#lf1"std_total+ x=0 > #lf1"std_Uemrche_)sc( _tas}dat
2>
#t oStests , kddnEs*L)f)suro Drcha "nasEch }dat
/ILE* budiEsff,e =oHEADA + x=0+MARKSIZE;dat
/arg,oO*ewbuAPI O(o;
tO)tUEs*L))(diEsff,e);nP maEs*L)Da`; wuAPI "nas,)+*1{iS_U et
teiEsff,e
#t "flow!br &ry*m
t*ewbuAPI *///mt fM==>
U
2
d_c(_CHUNuAPI)->sc( F
/ILE* buoldff,e =o*bdl*//s*-tbuAPI);sc( _c(_CHUoldff,e >uff,e zoldff,e =of->m; ceh _#lfcpy(*ewbuAPI+HEADA , nuAPI Foldff,e);sc( _c( _ nuAPItbuAPI); MINSTfop T(p_Stgp;s zold t-of1*ex)SDpac*k>o#lf1"std_total;+=of->m; cehat
#lf1"std_total > #lf1"std_UExmem)s#lf1"std_UExmem;ol#lf1"std_total;c*k>o#lf1"std_y IL, * fir
)RnP*VeE*1S1p OTuns*)*ewbuAPI Of->m; cehkom
/eiF
i= l(he_-iMS tl /PI0 nuM_ne Drchmsg);&ry+Id (newc,^o(iaputd);t*e of f>*nRnP newc,ttlk===buAPIdataswdo-;
(ne O#o
diEs*L)rcheA
typEch ].ende arosp teawpower-of-2 b*(SLary; growO#o
ULL power "nas,)* r, *,komM AfEs*L)deE*_uAPI Fl->f.power2(newc)->n )*freecutdc) genert*gEs*L)f)suroroutl*/ == lrk k * R ddiEs*L)D_T _ndeE*1a=l==X_io(inuAPI F_ t32uff,e z, FILE* rf,e =t o;ens= _ tbuAPI); MINSbuAPI may(op
2>/ , sdc OKn; DS rehe "nas,)* r, *,
2
d_de);os) dat
ff,e >= MAX_SIZET) meop tePI0 nuM_ne" , kddnEs*L)f)suro Drch:SbuAPI oo big"cv->obuAPI OdiEs*L)(buAPI FILE*)k)ID_CHUNuAPI *///mt { cehat
cctmsh yTUn)tds_ OT,koD_tr= kruCO! y; MINSb_ O T,koh->souto Drche o;
t n "nas,)Ech oa)`ut
2>
#t Drchebef t]mn8pfdiuns0wE*1! "nas f(>ttlk===buAPIdf OTTk t===l*/
#.d.ut*/
/*o/d: apiux,v#lfdobe0 2000 op 010/30 #lfdobe0koern55j 01$
** 20AXPs3Ps3230st5120:29ed9/27gSome genert*g Auxili&ry(wEn LuaacutdO*n fLcVALUEssi (wt retoes therE
of d liits_h
#icu_PE in //Barg in //Bee in //Bee in //Bee in /* e "stdlib.h"iuh */
/*
** $Id: apiuh,v #lfdobern0 2000/1/
/*
** $Ieoobero incluxl*/
#lfdobern0 2000//
/*
** $Ief th -DLto incluxl*/
lfdo,koeber oingxl*/
/*
** $Ieoobero iX_io(iaputdO* l t-oni
#lfdob-==sg, ))NIL, {
}ta O
tak o;
tO tak l t-ou_PEoF_to[--==sarg"u erE*1Sc//mni
c//mnf d tc//"0wraasc//"#lfdom,a pc ! y-1" ta O
00 op 0rfop T.fsUEs*En power of 2Sh;rg, tht-o`n'
#in pnr*dc MINPOWER2) d l_ t32ul->f.power2O"_ t32 gr*ar, _ t32 v_PdMINPOWER2;&ryRET)1{dp<=gr*p<<=1;os*ttlk===pr, OTT *at
O_equalputwrX_io(iaputdO* zt1==X_io(iaputdO* zt2 z, FILE* tu_PEct1hodsctu_PEct2t)- ba)`ut0;&ryuId f*/
th tat1hxdesc(fop k*/
th a to A = [ND,{I /)S OTnTT2rcrt1ho */nTT2rcrt2ex)cutdf k*/
th a)aO==e:op k*/
th aUSERDATA:_U et o /)S OTTTTT2rcrt1ho */TTTT2rcrt2ex)cutdf k*/
th akTSdbO<_U et o /)S OThTT2rcrt1ho */hTT2rcrt2ex)cutdf k*/
th askTSdb-A= [ND,{I /)S OTfop k Ot1ho */fop k Ot2ex)cutd
*/
kOTTTTTkTSdChugr"_ OTtu_PEct1holu(g, ))NIL==-A= [MARKu_PE"cv->os
*/ a=Af dat utc(L->)NIL "nas f OTT0
#O* zf. OTT taw tagmethods l== */
on z, FILE* n*>k
*/M0wra x=0) { meop teM AfEs*L) =ostwM_ne
*/M0wrak n, 0
y;arg (id?utdl*///Cthrna-k
*/M0wra x=0)->n 0
y;arg;
*/M0wra x=0 =on;nas f(>ttlk===dl*M0wrak *freec *at
O_
d2dwrX_io(iaputdO*==Nf d t frnP ma*nRnP ma(L-> to A arg
/arg,oOe);v et ofNf d t reks*///
d2y Ik (*==&e);v e)k)ID_CHUe);v eolu(s)- ba)`ut0;rcre,
UX_i>ers 'mlrg
/op-posA sT taw_(eE*1S1p 0
yOe);v ehxde);v efir
)R_CHUOe);v eox)= \0')- ba)`ut0;rcre,A= [MARKurailo,k
ac.n "nasfrnP ma Odis;os*ttlk===1df OTTk tUEx pnr*length of se
do,kn; Dma*lfTre`l->f.f)sre1'arg idoxl*/
MAX_Vsfd(u 280cO#t hdc `, 'mlne iS kfAoldaA//d -t'%d'n *n '%.XXs'n; Dma*a "nutd _ Rf.f)sre1as o_dofh-> ==X_io(iaputdO*mt,Frt ) { meva_L
;rgp;arg)putdE*1cuMAX_Vsfd(u]2>
#t oS/L->G; Dma*s _ o;
t n "nasv
art(;rgp, *mt)k)IDvupraatft_buff**mt,F;rgp)k)IDvePInd(;rgp)k)ID tePI0 nuM_ne_buf)k);{
{utd _ Rf.l) * osO(o;
tOout==X_io(iaputdO*= 0 aputdZIbuflen z, FILE* *e= 0 OT=='=')y}dat
/Itrncpy(out==e= 0 +1f*Ibuflen Stop3=Afop ED dek/
# aheal out[Ibuflen-i--=='\0't>
#t taAs
nuh_S er#inf)suro "nas f(>cp_ OT
t-of*e= 0 OT=='@'->sarg; ; *atv->os
*/e= 0 ++;-1_, =se++ met`@' "nas,)(>Ibuflen;-->nde) "0wraa`rt %s'"cv->os
*/lkk)sGlL,ak = 0
exit */
ULL>Ibuflen z, FI>os
*/e= 0 /Cthrl-Ibuflen Stop3=od B0 0x4part TMBEi, moF_t "nas,)(>
praatftout=="0wraa`rt %_FMT'"==e= 0
exit */}&ryalfhs", t1xA_(>
praatftout=="0wraa`%_FMT'"==e= 0
exit ag>S_PEch }dat
/t- *ateg1* 0wrcspak = 0 =="1);
e h/
#s)`;ta BED de===#aT., "nas,)(>Ibuflen;-->nde) "
do,kn\"%.*srt \""cv->os
*/
ULlen;>ZIbuflen zteg1* Ibuflenv->os
*/
UL = 0 [len]ox)= \0')-n< lexau0x4tT,k)rch "nas,)(>; 0wrcpy(out=="
do,kn\"")d&ryalfh*mouto+k)sGlL,akout)d&ryalfh*mItrncpy(out==e= 0 f*legr;nas,)(>; 0wrcpy(out+legf*"rt \""cv->os
*/}&ryalfhs", t1xA_(>
praatftout=="
do,kn\"%.FMT\""==e= 0
exit ag>S f O======l*/
#.d.ut*/
/*imit_h
NOPARSERcre, ,ffR_FY_EDh_Ste o_dofh-> ==X_io(ir*ar, UNUSEDoz)k)ID tePI0 nuM_n" GC du ;
(loaded"cv->o* r, *,
2
}
#s", to/d: apiux,v#lfdobe0 2000 op 010/30 #lfdobe0koern116j 01$
** 27 11s39:5230st5120:29ed9/27gLL(1hoPGC du p_Stg / generat DS on Lua fLcVALUEssi (wt retoes therE
of d limits_h
#i//Bee in /* e "stdlib.h"iuh */
/*
** $Id: apiuh,v $IeoobedendeE*10/3/
/*
** $Ieooobero incluxl*/
#lfdobern0 op 0/1/
/*
** $Ieoobero incluxl*/
$IeoobdendeE*10/3/
/*
** $Ieoobero ib.luxl*/
##lfdobern0 2000/1/
/*
** $Ieoobero incluxl*/
#lfdobern0 2000//
/*
** $Ief th -DLto incluxl*/
op$IeosoobdendeE*10/3/
/*
** $Ieoobero ib.luxl*/
##lfdoberndendeE*10/3/
/*
** $Ieoobero ib.luxl*/
#lfdo,koeber oingxl*/
/*
** $Ieoobero idoxl*/
#lfdo,koebermt ind0/1/
/*
** $Ieoobero
00 op 0Con * argcha eoscripgch:op 0`n' indi)rchs of d t TMBt of.e*stn *n `k' e= pcAs/ope mew fLci sdc amL
con * argch (I O0)eom
ad"un rd con * argch (I O1Sl i)
# Ompty (I O';')
# '}')d lulet_h
arn* arCon *eosc=X_io(_io(;&ry=e--Idf rCon *eosc;o
ulet_h
arn* arB_ O"nr**desc(Orn* arB_ O"nr**d*taJmp = ,j.phep_StgFaheal tdZI_ O"istop3=);volo;ckleveldf rB_ O"nr**a O
000 op 0manipuleteufTredicurs vmt Ln- er#inflg Auxili&r
rg budat
utd _bodyd Lexuff*1a=ls===e--ne iel z,
_StaT.cv-T}dat*grk k c * d Lexuff*1a=lscv-T}dat*grk k con * argch (Lexuff*1a=lscv-T}dat*grk k exptd Lexuff*1a=ls==expeosc=*vcv-T}dat*grk k exp1 (Lexuff*1a=lscv-OTTT}dat*grk k
ULL (Lexuff*1a=lsc*ar, _s Da 0x/aT.,mols Dari y Ik r
)R_CHUls Daa,;tas ,..lkeg1!* TK_EOSrn[i].endc mewe amLa,;-tas , .lkeg "nas,)ls Dt,mols Daa,;tas ,-A= ERRh *hdc oT., "nas,)ls Daa,;tas ,..lkeg1* TK_EOS2rcre, *n disk/
#g ex4f #t tens", t1xA_ls Dt..lkegs*/// X_$Ie(ls==&ls Dt.semcutd ;atasw==a
B
ULL .lkeg1ly ;{/cr_top;***/
a,;tas , (Lexuff*1a=lsc*ar, Chugr"_ OTls Daa,;tas ,..lkeg1** TK_EOS//"#w
Uaa,;-tas ,s"cv->ols Daa,;tas ,..lkeg1* // X_$Ie(ls==&ls Daa,;tas ,.semcutd ;d;{/cr_top;***/
I0 nu_exp=os _ Lexuff*1a=ls===e--.lkegr*ar, )putdE*1cu100o, tuTOKEN_LEN];&ryl->XF.lkeg20wr(tokegf*t)d&ryupraatft_buff*"`%_2ev'aexp=os "f*t)d&ryl->KFI0 nu(ls==_buf ;d;{/cr_top;***/
; DS k Lexuff*1a=ls===e--cr*ar, _CHUls Dt..lkeg1!* cctmsh I0 nu_exp=os (ls==c ;dat
ULL(lscv-;{/cr_top;***/
; DS _co/di)suro Lexuff*1a=ls===e--c==X_io(iaputdOmsgwraaAn c /!S tl /KFI0 nu(ls==msg);& OTTT}dat*g+*1{cp)sural Lexuff*1a=ls===e--cr*ar, _CHUls Dt..lkeg1 */f z, FI>o
ULL(lscv-FI>o a=Af datasREF,)Ech oa)`ut0v-;{/cr_top;***/
; DS _ma*f*/
exuff*1a=ls===e--what===e--who===e--wherer*ar, _CHUls Dt..lkeg1!* what { cehat
where1 */ls Dari y Ik ctmsh yTI0 nu_exp=os (ls==what ;g>S_PEch }dat
/t-pputdE*1cu100op->b.lt-pputdt_whatuTOKEN_LEN],dt_whouTOKEN_LEN];&ry1xA_l->XF.lkeg20wr(what==t_what);&ry1xA_l->XF.lkeg20wr(who,dt_who)>mar
;
praatft_buff*"`%_2ev'aexp=os * toekT,kaa`%_2ev'as/vari %d) )
t_what,dt_who,-wherer;&ry1xA_l->KFI0 nu(ls==_buf ;dit ag>S fat
ULL(lscv-;{/cr_top;*);volodo,k_X_io(a;vo(FAuxuff*1a=fsap _* argoe==X_io(iapukAtkk)fs Dfop3=);vocOTfs==u.
/*_io(indexr
)R_CHUc >= S=>
ULL *||ace*free[c]ox)=s) { meop teM grow =ostwMfs Dp//ce*free, S=>
ULL st1f* _* argo arg_te arg, 1,oaaaaaa"X_io(a;vo#lfdo l "flow" MAXARG_Uex)cutdf = S=>
ULL fir
)RnPce*free[c]o)=sr
)RnPs==u.
/*_io(index OT;ataswhie*lfTre
ULL .i_t "nas f(>ttlk===ck);{/cr_top;***/
t-de_0wraas oLexuff*1a=lsap _* argoe==X_iol->KFfree(ls==sodo,k_X_io(a;vUls Dfsaps)cv-;{/cr_top;* _* argoetrFin;s oF_twcLexuff*1a=lsc*ar, _* argotk;arg)pDS _co/di)sur(ls==Uls Dt..lkeg1 */TK_ AME),a"aexp=os "ex)cutks*//s Dt.semcutd.tk;arg
ULL(lscv-FI /)S OTTTv-;{/cr_top;*);voin;s oF_twcLexuff*1a=lsc*ar, tg===kAPodo,k_X_io(a;vUls DfsapstrFin;s oF_t(lsccv-;{/cr_top;*);vol->I_reg
er///2rvutd Lexuff*1a=ls== _* argopc oF_tr=X_io(iapukAtkk)ls Dfs Dfop3= teM grow =ostwMls Dp//ce*t pc k,G_ 1,oa*/
+ost1f*gof( //mc//MAX_INTcv-FIe at pc k*_ 1,oa*/
+o->pc oF_tkk)pc oF_tv-FI /)S OT_ 1,oa*/
+ofir
;{/cr_top;***/
new_///2rvutd Lexuff*1a=ls== _* argooF_t===e--nr=X_ioFAuxuff*1a=fskk)ls Dfs;&ryl->XFin;s rche_(ls==fs DnacLE* +n+1f*MAXLOCAwSf*"#azta=n-th) s"cv->ofs DacLE* [fs DnacLE* +n]1* // I_reg
er///2rvut(ls==oF_tr, ;{/cr_top;***/
adjust///2rvutsd Lexuff*1a=ls===e--necutd=X_ioFAuxuff*1a=fskk)ls Dfs;&ryop-posAnecut--ctmsh fs Df at pc k*_s DacLE* [fs DnacLE* ++]->e);varn[k)fs Dpck);{/cr_top;***/
Afop ///2rvutsd Lexuff*1a=ls===e--necutd=X_ioFAuxuff*1a=fskk)ls Dfs;&ryop-posAnecut--ctmsh fs Df at pc k*_s DacLE* [--fs DnacLE* ]->e);va[k)fs Dpck);{/cr_top;***/
new_///2rvut0wrtwLexuff*1a=ls==X_io(iaputdOoF_t===e--nr=X_ionew_///2rvut(ls==// Sg===fixedMls Dp//oF_tr, i)v-;{/cr_top;*);volearch_///2rd Lexuff*1a=ls== _* argoo==expeosc=*vard=X_ioFAuxuff*1a=fsop3=);volevelOTf->markom
/fs=ls Dfs; fs; fs=fs DpaJmo>sarg; i*1{i; cehkom
/eifs DnacLE* -1; i >= F
uu0;*nR->os
*/
ULg1 */fs Df at pc k*_s DacLE* [i]->pc oF_trz, FI>os
*/pc e*fOTfVLOCAw; FI>os
*/pc e*u.index Oi; FI>os
*/* r, *,keveldf>os
*/= k daag>S_Pkevel++;-1_, `pc 'e = ""*(SL;x; DS kou_ t levelO "nas f(>pc e*fOTfVGLOBA 2 wbse = ""*(SL,e>
[ny,keveldxau0x4bem FILE*O "nas* r, *,-1k);{/cr_top;***/
s arkevutd Lexuff*1a=ls== _* argoo==expeosc=*vard=X_io);volevelOTflearch_///2r(ls==o,>pc )k)ID_CHUlevelO> O1S wbse ei mew ///2rd 0)e =rm FILE*O(-1) "nas,)l tXFsyntaxI0 nu(ls==-s h;
(accesc amkAP / , me>
ou_ t scopom,an,tf->)k)IDos) dat
levelOT=,-1S wbse FILE* "nas,)pc e*u.index OPodo,k_X_io(a;vUls Dfsapi)v-;{/cr_top;*);voindexp++*1=ed Lexuff*1a=ls==expeosc=*vc=X_ioFAuxuff*1a=fskk)ls Dfs;&ry=e-->gMffkom
/eiF
uuffs Dnnup
=>kl->tpc_<{ cehat
fs Dnup
=>klJf->I */ve*fO&& fs Dnup
=>klJf->u.index */ve*u.indextmcutdt,e/)S OT*tasREF,)bse ew oT., "nasl->XFin;s rche_(ls==fs Dnnup
=>kl+1f*MAXUPVALUESf*"uup
=>kl"cv->ofs Dnup
=>klJfs Dnnup
=>kl]1* *vv-FI /)S OT_s Dnnup
=>kl+ir
;{/cr_top;***/
pushp++*1=ed Lexuff*1a=ls== _* argooc=X_ioFAuxuff*1a=fskk)ls Dfs;&ryexpeosc=vop3=);volevelOTflearch_///2r(ls==o,>&v)k)ID_CHUlevelOT=,-1S { wbse FILE* "nas,)at
fs DpaJm *///mt &ry1xA_l->XFsyntaxI0 nu(ls==-s h;
(accesc p++*1=ede>
a=inm,an,tf->)k)ID,)p.u.index OPodo,k_X_io(a;vUfs DpaJmapi)v-d_de);os) dat
levelO! O1Sl1xA_l->XFsyntaxI0 nu(ls=arg_te arg"uup
=>kxau0x4bem FILE*Oow ///2rdpukimmedif*1ly
ou_ t scopom,an,tf->)k)IDl->KFt-de1(fsapOP_PUSHUPVALUE,oindexp++*1=e(ls==&v)r, ;{/cr_top;***/
adjust_mult_ass)gnb Lexuff*1a=ls===e--necut===e--nexptd=X_ioFAuxuff*1a=fskk)ls Dfs;&ryergraiff_Pd<>0ps --necutk)ID_CHU<>0ps >*nRnP l->KFa 0xis OT(fshxdewbseL
e); te>
[I `, 'ml Es* "nas,)aiff--dataswdo-;
(c*(StI `, 'ml Es* itiel "nas,)at
aiff_kl "nas,)(>l->KFset Es*rfop T.(fsap-aiff);nP ma `, 'ml Es* provideyextra umbx *df #t A= Eaiff_Pd0;rcre,
Ua t]maiffvranc 1*ex)SDpac*k>oEch ].ena t]mn-bx *dtht-op
th) s "nas,)(>l->KFset Es*rfop T.(fsap0),j.phe Es* should providey
Up
=>kx "nas f(>_, pushOow pop eventucA iffvranc 1betwee>
length*df #t RK_adjustustwD_fsapaiff););{/cr_top;***/
t-de_paramsd Lexuff*1a=ls===e--nparams==ergraottd=X_ioFAuxuff*1a=fskk)ls Dfs;&ryadjust///2rvuts(ls==oparams)k)IDl->XFin;s rche_(ls==fs DnacLE* f*MAXPARAMSf*"parame.n "cv->ofs D_ 1,nmparamsd==fs DnacLE* ;-1_, `iel '(c*(ld be mewe al==a
ynag meOs D_ 1is_vutarg_Pdaottk)ID_CHUaottd=X_io new_///2rvut0wr(ls==-arg"utdL->tox)adjust///2rvuts(ls==1)v-d_de); RK_deltaustwD_fsapfs DnacLE* ),j.phe o(StIparame.n te>
metsen taly ;{/cr_top;***/
efor b_ O (FAuxuff*1a=fsapB_ O"nr**d*bl}
nsc(bl,tf-;ckleveld==fs Dlo;ckleveldfc(bl,tI_ O"istTf->O_JUMPdfc(bl,ttaJmp = d==fs Dblv->ofs Dblktdtdk);{/cr_top;***/
eaveb_ O (FAuxuff*1a=fsapB_ O"nr**d*bl}
nsc(fs Dblktdtd,ttaJmp = v->oChugr"_ OTbl,tf-;ckleveld===fs Dlo;cklevel//mRrTunslevels"cv->ol RK_pa*f*"ist_fsapbl,tI_ O"ist,ol RK_get"nr**(fshxr
;{/cr_top;***/
pushkT,koF_frLexuff*1a=ls==FAuxuff*1a=funcd=X_ioFAuxuff*1a=fskk)ls Dfs;&ry(iapukAtkk)fs Dfop3=);vo>gMffkom
/eiF
uuffAux Dnnup
=>kl->tpc_
,)(>l->KFtoustwD_ls==&fAux Dnup
=>klJf-==1)v-d_ teM grow =ostwMls Dp//ce*kmanip, S=>
Umanip, 1f*(iapukA arg_te arg, 1,oaaaa"X_io(a;vo#lfdo l "flow" MAXARG_Acv-FIe aUmanip[S=>
Umanip /tdexfAux Dfk)IDl->KFt-de2(fsapOP_CLOSURE, S=>
Umanipar/afAux Dnnup
=>klxr
;{/cr_top;***/
OT_fAuxfrLexuff*1a=ls==FAuxuff*1a=fe==X_io(iapukAtkk)l R_FnewkT,ko_ls Dpcv->ofs DpaJm )ls Dfs; wbseL
n0 O"istTTMBEAuxlfdo,snag meOs Dlskk)lsv->ofs DL )ls DLv->ols Df d==fsv->ofs Df-;ckleveld==0v->ofs DnacLE* d==0v->ofs Dn Iumbx *d==0v->ofs Dblktd
2
d_fs Dfd==fv-FIe ae= 0 OTfls D /se av->ofs Dp d==0v->ofs Da 0xt
#g td==0v->ofs Da 0x/aT.,mo0v->ofs DjltTf->O_JUMPdfc(e ag / td
2
d_f==e=xf-;ck x=0 =o02
d_f==,nmparamsd==0cl->f.cs/
kOTfkom
a=in c * dag meO 1is_vutarg_Pd0cl->f.cs/
kOTfkom
a=in c * dag ;{/cr_top;***/
tT,ka_fAuxfrLexuff*1a=ls kar, Mgmethods l1* ls DLv->oFAuxuff*1a=fskk)ls Dfs;&ry(iapukAtkk)fs Dfop3=l->KFt-de0(fsapOP_ENDcv->ol RK_get"nr**(fsh,j.phe T,kaaeventucA "istTTMBp3238unsjnmp*df #t RM AfEs*L) =ostwM_nee ag /,ofs Dp , In * argsur);#t RM AfEs*L) =ostwM_nee afree, S=>
ULL st _* argo);#t RM AfEs*L) =ostwM_nee af,nm, S=>
U,nm, Nf d t);#t RM AfEs*L) =ostwM_nee afmanip, S=>
Umanip, (iapukAcv-FI /op ///2rvuts(ls==fs DnacLE* );#t RM AfEs*L) =ostwM_nee at pc k,G_ 1,oa*/
+ostgof( );#t RM AfEs*L) =ostwM_nee ataT.cutd,G_ 1,oaT.cutd+1f*);vcv-FIe ataT.cutd[_ 1,oaT.cutd+/tdexMAX_INTt>
#t d flagdf #t RF_manipoD_Lo f,ofs Dp );-1_, piapukdc oky
wdf #t s Df d==fs DpaJmv->oChugr"_ OTfs Dblkttd
//mRrTunsl
e);")k);{
{re, ,ffR_FY_EDh_Stas o_dofh-> ==X_io(ir*ar, Orn* arLexuff*1alexlfdo,;r, Orn* arFAuxuff*1aEAuxlfdo,k)IDl->XFsI0wr(;
tagmlexlfdo,, z==// Sg=== tagzoF_t(z)))d&ry OT_fAux(mlexlfdo,, &EAuxlfdo, ;dat
ULL(mlexlfdo,)datasw==a
BED de.lkeg1ly crc * (mlexlfdo,)d
rg)pDS _co/di)sur(mlexlfdo,, (lexlfdo,.t..lkeg1** TK_EOS)//maexp=os "ex)cutT,ka_fAux(mlexlfdo,)d
rgChugr"_ OTfAuxlfdo,.paJm *///mt//mRrTunsl
e);")k)rgChugr"_ OTfAuxlfdo,.n Iumbx *d==t0f*"
U Iumbx *de>
a=inmcv-FI /)S OTfAuxlfdo,.f; OTT00 }===========================================================bero iGRAMMAR RULESobero }===========================================================ber/cr_top;*);voexpl
1 (Lexuff*1a=lsc*ar, #t xpl
1 -> exptd{ ',' exptd}Faheal tdZn,mo1;rcre, le 0x4oT.,exptess 'mlrg
/expeosc=vop3=expt(ls==&v);&ryop-posAls Dt..lkeg1 */',') { meop teKFtoustwD_ls==&v==1)vtop3=od s//d -t1Up
=>kx0aramtaJmp = dexptess 'mlrg
/rg
ULL(lscv-1_, =se++/omman "nas,)Expt(ls==&v);&ryrg
fir
)Rde); RK_toustwD_ls==&v==0),j.phekeepy OT of d t TMBumbx *dTMB0 0x4exptess 'mlrg
/ /)S OTnr, OTTT}dat*grk k ,k)rrgsd Lexuff*1a=ls===e--slfd=X_ioFAuxuff*1a=fskk)ls Dfs;&ryergrsleveld==fs Dlo;cklevelberml -o1;rcre,where1dc `, te>
metsen taly ryuId f*/
ls Dt..lkegrdesc(fop k*/'(':n[i].en ,k)rrgsd-> '(' [ xpl
1 ] ')' "nas,)(>
_StaT.,mols Dari y Ik r
)R,)(>
_SnrrgsdTf->marrrrr
ULL(lscv-FI>o, _CHUls Dt..lkeg1!* ')'S wbsearg_l
;
(Ompty "nas,)(>; o, ; DS _ma*f*_ls==')', '(',StaT.cv-Sit_h
(L->COMPAT_ARGRET-FI>o, _CHU wbsearg_l
is ;
(Ompty "nas,)(>; l->KFset Es*rfop T.(fsap1)vtop3=0 0x4 Es* rfop T.f/d -t1Up
=>kx
/*93", t1xA_(>UNUSEDos
;} OTTTTT}sc(fop k*/'{':n[i].en ,k)rrgsd-> con * argch "nas,)(>pon * argch(lscv-FI>o, s
;} OTTTTT}sc(fop k*/TK_)aO==e:n[i].en ,k)rrgsd-> )aO==e "nas,)(>pode_0wraas(ls==/s Dt.semcutd.tk)(fop kau0x4Rh `semcutd'ebef t]m`
ULL' "nas,)(>
ULL(lscv-FI>o, s
;} OTTTTT}sc(fos}datasat, FI>os
l->KFI0 nu(ls== pc ! y-1earguf.e*saexp=os "ex)cu>o, s
;} OTTTTT}sc(}->ofs Df-;ckleveld==skeveldx.phe Es* wis* rfop Ec ! y-1ea d arguf.e*saf #t RK_t-de2(fsapOP_CAmt//slevel//MULT_RETxr
;{/cr_top;***/
/
+_or_fAux_taird Lexuff*1a=ls==expeosc=*vc=X_ioO"_ OT}
nsc(fo
Id f*/
ls Dt..lkegrdesc(fo +pr= k'.irn[i].en/
+_or_fAux_taird-> '.' AME "nas,)(>; o, ); RK_toustwD_ls==v==1)vtop3=`v'xau0x4bemontsen taly ry>o, ); RK_free(ls==in;s oF_t(lsccv-ry>o, );ve*fOTfVINDEXEDv->os
*/LUs
;} OTTTTTfo}sc(fo +pr= k'[irn[i].en/
+_or_fAux_taird-> '[' exp1 ']'fag me,)(>; o, ); RK_toustwD_ls==v==1)vtop3=`v'xau0x4bemontsen taly ry>o, );ve*fOTfVINDEXEDv->os
*/LUexp1(lscv-FI>o, );in;s _ls==']i);&rymeopopasdeo)nTTTTfo}sc(fo +pr= k':irn[i].en/
+_or_fAux_taird-> ':' AME ,k)rrgsdly ry>o, );
_Snrme; me,)(>; o, );oF_tkk)in;s oF_t(lscv-FI>o, ); RK_toustwD_ls==v==1)vtop3=`v'xau0x4bemontsen taly ry>o, ); RK_t-de1(ls DfsapOP_PUSHSELF==oF_tr, ry>o, ); ,k)rrgs(ls==1)v-d_>o, );ve*fOTfVEXPv-d_>o, );ve*u.l.tTf-ve*u.l.fTf->O_JUMPdfc(meopopasdeo)nTTTTfo}sc(fo +pr= k'(':op k*/TK_)aO==e:np k*/'{':n[i].en/
+_or_fAux_taird-> ,k)rrgsdly ry>o, ); RK_toustwD_ls==v==1)vtop3=`v'xau0x4bemontsen taly ry>o, ); ,k)rrgs(ls==0)v-d_>o, );ve*fOTfVEXPv-d_>o, );ve*u.l.tTf-ve*u.l.fTf->O_JUMPdfc(meopopasdeo)nTTTTfo}sc(fo +s}datasatrfop Tv-1_, =h*(ld be fo= _Prt )e a LLL#t "_ OTTr_top;***/
/
+_or_fAuxd Lexuff*1a=ls==expeosc=*vc=X_io.en/
+_or_fAuxd-> ['%'] AME /
+_or_fAux_taird*heal c /cp)sural_ls=='%') o< lex Iumbx "nas,)pushp++*1=e(ls==sodFin;s oF_t(lsccv-, );ve*fOTfVEXPv-d_>ove*u.l.tTf-ve*u.l.fTf->O_JUMPdfc(de);os) do.en/
+ / , moF_t "nas,)s arkevut(ls==sodFin;s oF_t(lsc==v)k)IDve+_or_fAux_tair_ls==v); OTT00 r) ***/
2:3AXP{=============================================================7gRulteufTreCon * argchactExta=tpoei (w============================================================== limr_top;***/
Afcfiel, (Lexuff*1a=lsc*ar, asw==cfiel, -> ( AME | '['exp1']'->= exp1 ly ryuId f*/
ls Dt..lkegrdesc(fop k*/TK_ AMEat, FI>os
l->KFfree(ls==in;s oF_t(lsccv-ry>o, s
;} OTTTTT}sc(fop k*/'[': >sc(fofoo, exp1(lscv-FI>o, in;s _ls==']i);&rymeops
;} OTTTTT}sc(fos}datasatl->KFI0 nu(ls== aTre`['aexp=os "ex)cu}
, in;s _ls=='=i);&ryexp1(lscv-;{/cr_top;*);vo==cfiel,s (Lexuff*1a=lsc*ar, asw==cfiel,sd-> ==cfiel, { ',' ==cfiel, } [','] ly ryFAuxuff*1a=fskk)ls Dfs;&ryergrn,mo1;rcre, le 0x4oT.,e of.e*lrg
/ /cfiel,(lscv-FIop-posAls Dt..lkeg1 */',') { meopo_CHUls Dt..lkeg1 */';')|| ls Dt..lkeg1 */'}')arg; ; s
;} OTTTTT /cfiel,(lscv-FIrg
fir
)R, _CHU<%RFIELDS_PER_FLUSH =t FI>os
l->KFt-de1(fsapOP_SETMAP, RFIELDS_PER_FLUSH)v-d_de); RK_t-de1(fsapOP_SETMAP, <%RFIELDS_PER_FLUSHcv-FI /)S OTnv-;{/cr_top;*);vol
fiel,s (Lexuff*1a=lsc*ar, aswl
fiel,s -> exp1d{ ',' exp1 } [','] ly ryFAuxuff*1a=fskk)ls Dfs;&ryergrn,mo1;rcre, le 0x4oT.,e of.e*lrg
/exp1(lscv-FIop-posAls Dt..lkeg1 */',') { meopo_CHUls Dt..lkeg1 */';')|| ls Dt..lkeg1 */'}')arg; ; s
;} OTTTTTexp1(lscv-FI>o
fir
)R, l->XFin;s rche_(ls==n/LFIELDS_PER_FLUSH MAXARG_A arg_te arg, 1,oa"`item groups'te>
[Il
initializer")r
)R, _CHU<%LFIELDS_PER_FLUSH =t FI>os
l->KFt-de2(fsapOP_SETLIST==n/LFIELDS_PER_FLUSH -o1, LFIELDS_PER_FLUSH)v-d_de); RK_t-de2(fsapOP_SETLIST==n/LFIELDS_PER_FLUSH, <%LFIELDS_PER_FLUSH)v-d_ /)S OTnv-;{/c-T}dat*grk k con * argch_part Lexuff*1a=ls==Con *eosc=*cdr*ar, OId f*/
ls Dt..lkegrdesc(fop k*/';':op k*/'}':n[i].encon * argch_part -> empty "nas,)(>pd->ndTf->marrrrrpd->ks*//s Dt.tokegp->b.l, s
;} OTTTTT}sc(fop k*/TK_ AMEat,fop kaay(op l
fiel,s Tredicfiel,s "nas,)(>la,;tas ,(lscv-FI>o, _CHUls Daa,;tas ,..lkeg1!* '=')y #t xptess 'm "nas,)(>; gapukp k*_s}datasv-FI>o, #t s) dgo throughO#o
dicfiel,s "nas,)}sc(fop k*/'[': >i].encon * argch_part -> dicfiel,s "nas,)(>pd->ndTfdicfiel,s(lscv-FI>o, id->ks*/1datasw==cull>eILESSSSSs
;} OTTTTT}sc(fos}datasat,i].encon * argch_part -> l
fiel,s eILESSSp k*_s}datas:nas,)(>pd->ndTfl
fiel,s(lscv-FI>o, id->ks*/0;, aswl
>eILESSSSSs
;} OTTTTT}sc(_ OTTr_top;***/
con * argch (Lexuff*1a=lsc*ar, aswcon * argch -> '{'ncon * argch_part [';')con * argch_part]/'}' ly ryFAuxuff*1a=fskk)ls Dfs;&ryergr/aT.,mols Dari y Ik r
)R_StIpckk)l RK_t-de1(fsapOP_CREATEkTSdb==0)v-d_=e--ne of v-d_Con *eosc=cdd
rg)pDS _ls=='{i);&rycon * argch_part_ls==&cdr;dat
U of fk)id.(;&ry=c /cp)sural_ls==';'hxdesc(foCon *eosc=o mew_cdd
rgrycon * argch_part_ls==&o mew_cdex)cutdfpDS _co/di)sur(ls==Uid.k1!* o mew_cd.k)==-A= [MARKX_i * argch syntax"cv-FI>o
U of f+* o mew_cd.n;nas f(>; DS _ma*f*_ls=='}'=='{i,StaT.cv-, l->XFin;s rche_(ls==nt of MAXARG_Uf*"e of.e*ste>
[I#lfdo X_i * argch"cv-FISETARG_U(Os D_ 1t-de[pc]==nt of cv-1_, =e initialI#lfdo x=0 ag ;{/k t;enffR_F eu}===========================================================
/*OTT00 r) ***/
2:3AXP{=============================================================7gExptess 'mlEDh_ arctExta=tpoei (w============================================================== limr_top;***/
simple xpd Lexuff*1a=ls==expeosc=*vc=X_ioFAuxuff*1a=fskk)ls Dfs;&ryuId f*/
ls Dt..lkegrdesc(fop k*/TK_ to A =->top3<=imple xpd-> to A arg
/////Nf d t rs*//s Dt.semcutd. r
)R,)(>o, l RK_y Ik (fsaprcv-ry>o, s
;} OTTTTT}sc(fop k*/TK_)aO==e:n[i].en=imple xpd-> )aO==e "nas,)(>pode_0wraas(ls==/s Dt.semcutd.tk)(fop kau0x4Rh `semcutd'ebef t]m`
ULL' "nas,)(>
ULL(lscv-FI>o, s
;} OTTTTT}sc(fop k*/TK_ IL=->top3<=imple xpd-> IL "nas>o, l RK_adjustustwD_fsap-1)v-d_>o,
ULL(lscv-FI>o, s
;} OTTTTT}sc(fop k*/'{':n[i].en=imple xpd-> con * argch "nas,)(>pon * argch(lscv-FI>o, s
;} OTTTTT}sc(fop k*/TK_skTSdb-A=n[i].en=imple xpd-> skTSdb-A_bodyd "nas,)(>
ULL(lscv-FI>o, sody(ls==0,/ls Dari y Ik cv-FI>o, s
;} OTTTTT}sc(fop k*/'(':n[i].en=imple xpd-> '(' exptd')' "nas,)(>o, expr_ls==v); as,)(>ppDS _ls==')i);&rymeoprfop TvTTTTT}sc(fop k*/TK_ AMEatp k*/'%': >sc(fofove+_or_fAux_ls==v); as,)(>rfop TvTTTTT}sc(fos}datasat, FI>os
l->KFI0 nu(ls== < xptess 'm>aexp=os "ex)cu,)(>rfop TvTTTTT}sc( f(>pe*fOTfVEXPv-d_ve*u.l.tTf-ve*u.l.fTf->O_JUMPdf;{/cr_top;***/
exp1 (Lexuff*1a=lsct, FIexpeosc=vop3=expt(ls==&v);&ry teKFtoustwD_ls==&v==1)vf;{/cr_top;*UnOptdgfopnoptd +*1{cpr*ar, OId f*/
cpr*ar, fop k*/TK_ OTatrfop TpOPR_ OT;sc(fop k*/'-'atrfop TpOPR_MINUS;sc(fos}datasatrfop TpOPR_ OUNOPR;sc(_ OTTr_top;*BinOptdgfobinoptd +*1{cpr*ar, OId f*/
cpr*ar, fop k*/'+'atrfop TpOPR_ADD;sc(fop k*/'-'atrfop TpOPR_SUB;sc(fop k*/'*'atrfop TpOPR_MULT;sc(fop k*/'/'atrfop TpOPR_DIV;sc(fop k*/'^'atrfop TpOPR_POW;r, fop k*/TK_CONCATatrfop TpOPR_CONCAT2r, fop k*/TK_ Eatrfop TpOPR_ E2r, fop k*/TK_EQatrfop TpOPR_EQ;sc(fop k*/'<'atrfop TpOPR_LT2r, fop k*/TK_LEatrfop TpOPR_LE2r, fop k*/'>irtrfop TpOPR_GT2r, fop k*/TK_GEatrfop TpOPR_GE2r, fop k*/TK_ANDatrfop TpOPR_AND2r, fop k*/TK_ORatrfop TpOPR_OR;sc(fos}datasatrfop TpOPR_ OBINOPR;sc(_ OTTr_top;*X_io(iOrn* ar{
t-pputdleft;, aswleft priority fTreeaf*/binaryy Orat DSrg
/arg,o (wt t utc (wt rpriority ag ;rpriority[--==s, aswORDA aOPR "nas,{5, 5},,{5, 5},,{6, 6},,{6, 6},,wbsearithmeop;* "nas,{9, 8},,{4, 3},,wwwwwwwwwwwwwwwww_, power p_Stg k)rc ( (wt rassocitopve)* "nas,{2, 2},,{2, 2},,wwwwwwwwwwwwwwwww_, equality "nas,{2, 2},,{2, 2},,{2, 2},,{2, 2},,wpheomder "nas,{1, 1},,{1, 1},wwwwwwwwwwwwwwwww aswlogicE*O "nta Oidoxl*/
UNARY_PRIORITY 7-1_, piiority fTreunaryy Orat Dsbero
00 op 0subexptd-> (=implexep | pnop0subexpt os a piiority h(wt, tht-o`rche_'
rg budat
BinOptdsubexptd Lexuff*1a=ls==expeosc=*vz,
_Stahe_xdesc(BinOptd,p;argUnOptduov_Pdgfopnopt
ls Dt..lkegr;&ry=c /uov_!* OPR_ OUNOPR) { meoposubexpt_ls==v==UNARY_PRIORITY)r
)R, l->K_ptefie(ls==uov==v); asde);os) d=imple xp_ls==v); as#t xpp_Stop-pos Orat Dsbhav +piiorities h(wt, tht-o`rche_' "nasov_Pdgfobinopt
ls Dt..lkegr;&ryop-posAov_!* OPR_ OBINOPRRnP priority[op].left >Stahe_xdesc(FIexpeosc=v2r
)R, BinOptdol->K_cutie(ls==ov==v); asatasw==a
Bsub-exptess 'mlh->s h(wt, priority ag rg; K_postie(ls==ov==v==&v2)r
)R, ov_Pdttlk===,p;atasw==)S OTfD deunt8pfdedy Orat DSrg ;{/cr_top;***/
exptd Lexuff*1a=ls==expeosc=*vc*ar, Oubexpt_ls==v==-1)vf;{/k t;enffR_F eu}=========================================================bero
00 op 0***/
2:3AXP{=============================================================7gRulteufTreuff*1f.e*sctExta=tpoei (w============================================================== limr_top;* tdZIdl*/_fo= _Pd +*1{.lkegrdesc(uId f*/
tlkegrdesc(fop k*/TK_ELSE:op k*/TK_ELSEIF:op k*/TK_ENDasc(fop k*/TK_UNTIL=-p k*/TK_EOS= [ND,{I /)S OT1;sc(fos}datasatrfop Tp0;sc(_ OTTr_top;*utd _buAPID_Lexuff*1a=lsc*ar, aswbuAPID-> c * dag meFAuxuff*1a=fskk)ls Dfs;&ryergrnacLE* d==fs DnacLE* ;
crc * (ls);&ry teKFadjustustwD_fsapfs DnacLE* d- nacLE* ),j.pherfop #azta=n-th) slrg
/ /op ///2rvuts(ls==fs DnacLE* d- nacLE* ),-;{/cr_top;*);voass)gnf.e*l Lexuff*1a=ls==expeosc=*vz,
_Snecutd=X_io);voleft_Pd0;rcre, f d t TMBumbx *dleft_e>
metsen taaf_ t ass)gnf.e*l "nasl->XFin;s rche_(ls==necut==MAXVARSLH== n-th) sle>
[Imultiple ass)gnf.e*")k)ID_CHUls Dt..lkeg1 */',') {,wbseass)gnf.e*l-> ',' AME ass)gnf.e*l "nasFIexpeosc=nv;arg; ove+_or_fAux_ls==&nv); asatfpDS _co/di)sur(ls==Unv.k1!* VEXP)==-syntaxTI0 nu"ex)cu,)left_Pdass)gnf.e*_ls==&nv==necut+1); asde);os) d{,wbseass)gnf.e*l-> '=' xpl
1 "nas,)ae--nexpt; asatfpDS _ls=='=i);&ry d<>0ps Tf xpl
1(lscv-FI>oadjust_mult_ass)gn(ls==necut==nexptd; asde);_CHUpe*fO!TfVINDEXED_
,)(>l->KFst Devut(ls==v)k)IDos) d{,wbse mewe aay(op garb
t nbetwee>
#lfdo-index p_Stp
=>kx "nas); RK_t-de2(ls DfsapOP_SETkTSdb==left+necut+2==1)v-d_>oleft_+= 2;arg f(>ttlk===left; OTTr_top;***/
con _ Lexuff*1a=ls==expeosc=*vc=X_io.encon _-> explrg
/expt(ls==v)katasw==a
Bco/di)surof #t RK_goifrn*e(ls Dfsapv==0), OTTr_top;***/
op-por_tod Lexuff*1a=ls===e--taT.c=X_io.enop-por_tod-> WHILEncon _DOwbuAPIDENDdag meFAuxuff*1a=fskk)ls Dfs;&ryergrop-po_initkk)l RK_get"nr**(fsh, FIexpeosc=vop3=B_ O"nr**dblv->oefor b_ O_fsap&bl ;dat
ULL(lscv-FIcon (ls==&v);&ryfpDS _ls==TK_DO);&rynuAPItls);&ry teKFpa*f*"ist_fsap teKFjnmp(fsh,rop-po_init);&ry teKFpa*f*"ist_fsapp.u.l.f,ol RK_get"nr**(fshxr
(>; DS _ma*f*_ls==TK_END==TK_WHILE,StaT.cv-, leaveb_ O_fsap&bl ;d;{/cr_top;***/
Afppfdr_tod Lexuff*1a=ls===e--taT.c=X_io.enAfppfdr_tod-> REPEATwbuAPIDUNTILncon _ag meFAuxuff*1a=fskk)ls Dfs;&ryergrAfppfd_initkk)l RK_get"nr**(fsh, FIexpeosc=vop3=B_ O"nr**dblv->oefor b_ O_fsap&bl ;dat
ULL(lscv-FInuAPItls);&ry; DS _ma*f*_ls==TK_UNTIL==TK_REPEAT,StaT.cv-, con (ls==&v);&ry teKFpa*f*"ist_fsapp.u.l.f,oAfppfd_initcv-, leaveb_ O_fsap&bl ;d;{/cr_top;***/
fTrbodyd Lexuff*1a=ls===e--nv //OpC / ptepfTr//OpC / loopfTrc=X_io.enfTrbodyd-> DOwbuAPIDENDdag meFAuxuff*1a=fskk)ls Dfs;&ryergrptepkk)l RK_t-de1(fsapptepfTr//>O_JUMP)v-d_=e--buAPIinitkk)l RK_get"nr**(fsh, FIfpDS _ls==TK_DO);&ryadjust///2rvuts(ls==opc )ki].en=copoufTrec_itrol=n-th) slrg
/nuAPItls);&ry teKFpa*f*"ist_fsap teKFt-de1(fsaploopfTr//>O_JUMP),-buAPIinit);&ry teKFpa*f*"ist_fsapptep,ol RK_get"nr**(fshxr
(> /op ///2rvuts(ls==opc )kd;{/cr_top;***/
fTr f d Lexuff*1a=ls== _* argopc oF_tr=X_io.enfTr f d-> AME = exp1,exp1[,exp1]nfTrbodydag meFAuxuff*1a=fskk)ls Dfs;&ryin;s _ls=='=i);&ryexp1(lscvrcre,A=itialIp
=>kx "nasin;s _ls==',i);&ryexp1(lscvrcre,rche_k*heal c /cp)sural_ls==',i))nasFIexp1(lscvrcre,cp)sural steplrg
/e", t1xA_l->KFt-de1(fsapOP_PUSHINT==1)vtop3=cs/
kOTfsteplrg
/new_///2rvut(ls==pc oF_t==0)v-d_new_///2rvut0wr(ls==-(tahe_x"==1)v-d_new_///2rvut0wr(ls==-(stepx"==2)r
)RfTrbody(ls==3apOP_FORPREPapOP_FORLOOP)kd;{/cr_top;***/
fTrl
> Lexuff*1a=ls== _* argoindexoF_tr=X_io.enfTrl
>-> AME, AME IN exp1 fTrbodydag me _* argopclnrme; mein;s _ls==',i);&rypclnrme OPod_in;s oF_t(lscv-FIbse eLL .e
is dirty, bubutrk ks `in'ebe argaedi errid wull>eILESfpDS _co/di)sur(ls= [ND,{I=Uls Dt..lkeg1 */TK_ AMERnP ls Dt.semcutd.tk1 */l/ Sg=== ls Dp//"inmc)= [ND,{I="`in'eexp=os "ex)cu
ULL(lscv-1_, =se++`in'erg
/exp1(lscv,wbse lfdo rg
/new_///2rvut0wr(ls==-( lfdo)"==0)v-d_new_///2rvut(ls===edexoF_t==1)v-d_new_///2rvut(ls==pcloF_t==2)r
)RfTrbody(ls==3apOP_LFORPREPapOP_LFORLOOP)kd;{/cr_top;***/
fTrr_tod Lexuff*1a=ls===e--taT.c=X_io.enfTrr_tod-> Tr f d|nfTrl
>ag meFAuxuff*1a=fskk)ls Dfs;&ry _* argopc oF_top3=B_ O"nr**dblv->oefor b_ O_fsap&bl ;dat
ULL(lscv-1_, =se++`fe1'arg =pc oF_t OPod_in;s oF_t(lscvio.enfD de/
+ / , moF_t "nasOId f*/
ls Dt..lkegrdesc(fop k*/'=': Tr f (ls==pc oF_tcvis
;} OTTTTTp k*/',': Tr"ist_ls==pc oF_tcvis
;} OTTTTTs}datasatl->KFI0 nu(ls== `=')
# `,'aexp=os "ex)cu}
, in;s _ma*f*_ls==TK_END==TK_FOR,StaT.cv-, leaveb_ O_fsap&bl ;d;{/cr_top;***/
.e
_ men_buAPID_Lexuff*1a=ls==expeosc=*vc=X_io.en.e
_ men_buAPID-> [IFd|nELSEIF]ncon _THEN wuAPI "nas
ULL(lscv-1_, =se++IFd
# ELSEIF>eILESfon (ls==v);&ryfpDS _ls==TK_THENcv-FInuAPItls);top3=` men'4part rg ;{/cr_top;***/
ifr_tod Lexuff*1a=ls===e--taT.c=X_io.enifr_tod-> IF>con _THEN wuAPI {ELSEIF>con _THEN wuAPI} [ELSE wuAPI]DENDdag meFAuxuff*1a=fskk)ls Dfs;&ryexpeosc=vop3=);vooscape"istTf->O_JUMPdfc(.e
_ men_buAPI(ls==&v);io.enIF>con _THEN wuAPI *g
/op-posAls Dt..lkeg1 */TK_ELSEIF) { meop teKFg k)rc_fsap&oscape"istap teKFjnmp(fsh)r
)R, l->K_pa*f*"ist_fsapp.u.l.f,ol RK_get"nr**(fshxr
(>c(.e
_ men_buAPI(ls==&v);io.enELSEIF>con _THEN wuAPIx "nas f(>_CHUls Dt..lkeg1 */TK_ELSE) { meop teKFg k)rc_fsap&oscape"istap teKFjnmp(fsh)r
)R, l->K_pa*f*"ist_fsapp.u.l.f,ol RK_get"nr**(fshxr
(>c(
ULL(lscv-1_, =se++ELSE "nas);nuAPItls);top3=`e", '4part rg t tens", t1xA_lteKFg k)rc_fsap&oscape"istapp.u.l.f);&ry teKFpa*f*"ist_fsaposcape"istap teKFget"nr**(fshxr
(>; DS _ma*f*_ls==TK_END==TK_IF,StaT.cv-;{/cr_top;***/
a/2rr_tod Lexuff*1a=lsc=X_io.enr_tod-> LOCAw AME {',' AME} ['=' xpl
1]Faheal tdZnvutsdTf->marae--nexpt; asdo { meop0ps Tf xpl
1(lscv-FIs", t1xA_<>0ps Tf0;&ryadjust_mult_ass)gn(ls==necut==nexptd; asadjust///2rvuts(ls==opc scv-;{/cr_top;*);vofAuxoF_twcLexuff*1a=ls==expeosc=*vc=X_io.enfAuxoF_tw-> AME [':' AME | '.' AME]Faheal tdZne iel Tf0;&rys arkevut(ls==sodFin;s oF_t(lsc==v)k)ID_CHUls Dt..lkeg1 */':')|| ls Dt..lkeg1 */'.') { meopc(
ULL(lscvt1xA_lteKFtoustwD_ls==v==1)vt1xA_lteKFfree(ls==in;s oF_t(lsccv-ry>ove*fOTfVINDEXEDv->o f(>ttlk=== skTSdb-A_fAuxoF_twbodydag me tdZne iel ;&ryexpeosc=vop3=KFst Devut(ls==&vcv-;{/cr_top;***/
oF_to_tod Lexuff*1a=lsc=X_io.enr_tod-> fAuxd| ['%'] AME ass)gnf.e*l "nasFAuxuff*1a=fskk)ls Dfs;&ryexpeosc=vop3=ve+_or_fAux_ls==&v)k)ID_CHUv>I */VEXP)n[i].en=_tod-> fAuxdeILESSSppDS _co/di)sur(ls==l->KFa 0xis OT(fsh==-syntaxTI0 nu"exrcre, *x Iumbx "nas,)l->KFset Es*rfop T.(fsap0),j.phe Es* sff*1f.e*4Rh s ;
rnP mas rg t tens", n[i].en=_tod-> ['%'] AME ass)gnf.e*l "nasio);voleft_Pdass)gnf.e*_ls==&v==1)vt1xA_lteKFadjustustwD_fsapleft),j.pherfop eventucA garb
t nleft_ontsen taly ry_ OTTr_top;*utd _rfoo_tod Lexuff*1a=lsc=X_io.enr_tod-> RETURNf xpl
l "nasFAuxuff*1a=fskk)ls Dfs;&ryKFt-de1(fsapOP_RETURN,)ls Dfs DnacLE* );#t fs Df-;ckleveld==fs DnacLE* ;-1_, rfop snEs*(.emp=umbx *df # OTTr_top;*utd _b_ Oo_tod Lexuff*1a=lsc=X_io.enr_tod-> BREAK [ AME]FahealFAuxuff*1a=fskk)ls Dfs;&ryergrcurrentleveld==fs Dlo;ckleveldfc(B_ O"nr**d*bld==fs Dblv->o c /!Id_
,)(>l->KFI0 nu(ls== n
Uaa,pO#o
b_ O"ex)cu
ULL(lscv-1_, =se++BREAK f #t RK_adjustustwD_fsapcurrentleveld-(bl,tf-;cklevelcv-, l->KFg k)rc_fsap&bl,tI_ O"ist,ol RK_jnmp(fsh)r
)R.encorrecvolo;ckufTrec_mpiler p_Stsymbolp;*execu)surof #t RK_adjustustwD_fsapbl,tf-;ckleveld-pcurrentlevelcv-;{/cr_top;*);vo RP_o_tod Lexuff*1a=lsc=X_ioergr/aT.,mols Dari y Ik rfop kaay(op ne ed fTreeDrche o;
t s ly ryuId f*/
ls Dt..lkegrdesc(fop k*/TK_IF:o[i].en=_tod-> ifr_tod "nas,)(> fr_to(ls==laT.cv-, D,{I /)S OT->marrr}sc(fop k*/TK_WHILE:o[i].en=_tod-> op-por_tod "nas,)(>op-por_to(ls==laT.cv-, D,{I /)S OT->marrr}sc(fop k*/TK_DO:o[i].en=_tod-> DOwbuAPIDENDdag memeopmarrr}sc(fop k*/TK_FOR:o[i].en=_tod-> fTrr_todeILESSSSSfTrr_to(ls==laT.cv-, D,{I /)S OT->marrr}sc(fop k*/TK_REPEAT:o[i].en=_tod-> Afppfdr_todeILESSSSSAfppfdr_to(ls==laT.cv-, D,{I /)S OT->marrr}sc(fop k*/TK_skTSdb-A=n[i].en=_tod-> fAuxr_todeILESSSSSfAuxr_to(ls==laT.cv-, D,{I /)S OT->marrr}sc(fop k*/TK_LOCAw=n[i].en=_tod-> a/2rr_tod "nas,)(>la/2rr_totls);&ryESSS /)S OT->marrr}sc(fop k*/TK_ AMEatp k*/'%': >i].en=_tod-> oF_to_todag memeopmarrr}sc(fop k*/TK_RETURN:o[i].en=_tod-> Afdr_todeILESSSSSAfto_totls);&ryESSS /)S OT1(fop kau0x4op lao(iOrf*1f.e*4 "nas,)}sc(fop k*/TK_BREAK:o[i].en=_tod-> b_ Oo_todeILESSSSSs
;} o_totls);&ryESSS /)S OT1(fop kau0x4op lao(iOrf*1f.e*4 "nas,)}sc(fos}datasat, FI>os
l->KFI0 nu(ls== aexp=os "ex)cu,)(>rfop Td0;rcre, oStrk k warno,ka "nas,)}sc(_ OTTr_top;*utd _parl
> Lexuff*1a=lsc=X_io.enparl
>-> [Iparamd{ ',' paramd} ]Faheal tdZnparamsd==0ceal tdZaottd==0ceal CHUls Dt..lkeg1!* ')'S [i].endc `parl
' ;
(Ompty "nas,)do { meopfo
Id f*/
ls Dt..lkegrdesc(fo +fop k*/TK_DOTS:pKFI0 nu(ls== aTre`...'aexp=os "ex)cuas,)}sc(fo}Iop-posA!aottd&& cp)sural_ls==',i))x)cu}
, i-de_params(ls==nparams==aottdv-;{/cr_top;***/
bodyd Lexuff*1a=ls===e--ne iel z,
_StaT.c*ar, aswbodyd-> '(' parl
>')' c * dENDdag meFAuxuff*1anew_fs;&ry OT_fAux(ls==&new_fs)v-d_new_fs.e ataT.Doxl*/ddTfl
ne; mein;s _ls=='(')k)ID_CHUne iel d=X_io new_///2rvut0wr(ls==-iel "utdL->tox)adjust///2rvuts(ls==1)v-d_de);parl
tls);&ry; DS (ls==')i);&ryc * (ls);&ryin;s _ma*f*_ls==TK_END==TK_FkTSdb-A,StaT.cv-, cT,ka_fAux(ls);&rypushkT,koF_(ls==&new_fs)v- OTTk t}a=tpoei (w============================================================ = limr_top;***/
c * d Lexuff*1a=lsc=X_io.enc * d-> {n=_tod[';']d}Faheal tdZislao(i==0cealop-posA!islao(i&& !Idl*/_fo= _P
ls Dt..lkegr)<{ cehaslao(i== RP_o_totls);&ryEScp)sural_ls==';'h;&ryESChugr"_ OTls Dfs Df-;ckleveld==)ls Dfs DnacLE* arg_te arg, 1,oa"lo;cku x=0 !* # #azta=n-ts"ex)cu}
;{/k t===l*/
#.d.ut*/
/*9323846to/d: apiux,vOrf*1e0 2000 op 010/30 Orf*1e0koern48j 01$
** 30 16:29:5930st5120:29ed9/27gGFILE*Ouff*1 fLcVALUEssi (wt retoes therE
of d limits_h
#i/* e "stdlib.h"iuh */
/*
** $Id: apiuh,v $Ieooern0 2000/1/
/*
** $Ieoobero incluxl*/
gdobern0 op 0/1/
/*
** $Ieoobero incluxl*/
$IeoobdendeE*10/3/
/*
** $Ieoobero ib.luxl*/
##lfdobern0 2000/1/
/*
** $Ieoobero incluxl*/
Orf*1eoeber oingxl*/
/*
** $Ieoobero idoxl*/
#lfdo,koebermt ind0/1/
/*
** $Ieooberoo idoxl*/
# lfdooebermt ind0/1/
/*
** $Ieooberoo idoxl*/
# fdobern0 2000/1/
/*
** $Ieoobero
-Sit_h
(L->DEBUGmr_top;* o_dofh-> l/
h-> td
2
utd _ RB_ OT.e
s*/'[': >sc(fof 2
utd _ RB_ OT.e
s*/osuts(ls==silt-s_h as#tx)cup_ OT s lL->G;MESSAGE. I)gnf"rec_mpi" envirovt1xADh_ a->G;MESSAGEPrt )e ah(wt,an#t Aer*df ORITY 0xiss/ope soe iS kfAoldaA'sdc )e a,)do*4 used.tdsubexptd ->O_JaTre
art(;r
utd _ RB_ O aswle aputdZIbufl;&ryES1)vt1emcutL
tls);x)= \l->XFsynt l;&r"(c 1*
art(;)"eld==_2ev'ae
rgrr-FIeJaTre: %s\)p.u-;{/cr_top;*)0i (w==== O';'bx *, t1 "natTreeDcaf t]1/
ory- ataTp_ OTJaTre_bodyd Lexuff*1a=f_yES'bx *_io(ir*ar, Orn*f*1a=*udols Dari ysf==,nmparam*uId f*)udls);x)= \f==,nmparat-de2(fsasf==,nmparamDEFAtop;STACK_SIZEps Tf0;&ryadjsf==,nmpar+=;* o_MINSTACKps TL->g);&ryESH))d&ry 10
/new_///2rvuofdpukimm1(fsapOP_RD_ O_ry sf==,nmpa_fsap&blS_ O_ry_fsap&blX_ O_ry_fsap&blT_ O_ry_fsap&bl))d&//2rvry_fsap&bl)reftL
tl=_tod[rg ;{ (ls==ory(fsapOP_Rt(ls==oF_tL
* o_a->G;MESSAGE,_JaTre
art(;);Gmr_top;* o_dofh-> /'[': >sc(fof ry_fsap!* ')
utd _ RB>XFsynt 2
utd _ RB_Lof d t TMBuF_t "d _ RLL(l+piio;s _*
;} OTTTTT}s Df-;ckleve
utgettopry_x *de>
ak)rgChAPI sf==,_FY_EDh_s Df-PI
h-> td
2
ut'bx *_ri ysf==,nmpa l1* ls DLv->oFAuxuff*wM_n)d&r e);"s DLv->oF_fsap!* 'LRB>XFsynt s", to/d: a(iOrf*/
ory ataTp_ OTJaTre(fsapOLls Dfs xf-;ck x=0 Lls Drt.nmparamLlsudt.nmparam0x=0 Lls Drt.nf t]amLlsudt.nf t]am0x=0 Lls Drt.hashxf-;ck x=0 Llsudt.hashxf-;ck x=0 LlsMfat
erxf-;ck x=0 LlsMfat
nmparam0x=0 Llsrootf #t f-;ck x=0 Llsrootcl f-;ck x=0 Llsroot//2rvuf-;ck x=0 LlsTM//2rvuf-;ck x=0 Llstls)_taOTfk-1x=0 LlsrefArreeDf-;ck x=0 LlsrefSmparam0x=0 LlsrefFrevuf-;ONEXTx=0 LlsnDt..ll;&rnmpaof(s DLv->oF_fsapLlsGCth*/
hold d flagdf #t a "nas,)GC du=B_ pre-ORITY 0xiss(fsapOLlsh s hoo xf-;ck x=0 LlsAux(hoo xf-;ck x=0 Lls atawhoo TTfofo=0 LlsJaTreJmpxf-;ck x=0 !* ')
uD_runf #tg>S_PE_, p_yES'bx k tsf==,nmpa l!n-th) ryadjOrf*/
ory ataTp_ OTJaTre: frevu, t1ia ;
rnP Es*rfop T._rypusry_fsap s", to/d: as);&ry;LlsGCth*/
hold d2*LlsnDt..ll{/cr_top;*)LY_EDh_s Df-PI
s*/'['_rypusr
utd _ RB_ O aswls Df-;cklevLl!n-2
utd _ R*/'.
utgettopry_x *de>
asen talys_hC sf==,_FY_op T.C_cgr)g>StL
tl=_tod[gr)g>Sdf # fdo X_i *fsapOL Df-;cklevLlsrootf #t f
e);")NDdagrt )e a LL { meTfAuxlfdo,.n IumbLlsrootcl f
e);")NDdagrt )e a LL { meTfAuxlfdo,.n IumbLlsroot//2rvuf
e);")NDdagrt )e a LL { meTfAuxl&blS_frevf #ry_fsap!* 'Lls Dfs e2(fsaLlsnDt..ll;-= 'Lls Dfs =-syn
**Lls Dfs x+
t*nmpaof(TObjg>SfAuxl&blM_frevtL
*ls Dfs ex=0 LlsnDt..ll;-= 'Llstls)_taO+ t*nmpaof(left;, TMfAuxl&blM_frevtL
*lsTM//2rvex=0 LlsnDt..ll;-= 'LlsrefSmpat*nmpaof(left;, ReffAuxl&blM_frevtL
*lsrefArreeex=0 LlsnDt..ll;-= 'LlsMfat
nmpat*nmpaof(dZIbfAuxl&blM_frevtL
*lsMfat
erfAuxlfdo,.n IumbLlsnDt..ll;&&rnmpaof(s DLv->oF_>
ak)rgChEs* itias fDt..ll"fAuxl&blM_frevtL
*fAuxlfdo,.n IumbLl!n-2
utd _ R*/'*/
debugry>o,t..ll;&&re>
a*/
ory leak!TfAuxlfdo,.n IumbLl!n-2
utd _ R*/'*/
debugrtotal;&&re>a*/
ory leak!TfAu#.d.ut*/
/*9323846to/d: ap*1e0 2000 op 01/1/
/ Orf*1e0koern48j 01/1/
/ 30 16:59:5930st5120:7:49:127gGFILE*Ouff*1 fLcp3=B_ //2rvu( TMB*df # 01/1/
s h(ndls _by Lua) retoes therE
of d limits_h
#iS/*
** $Ieoobero incluxl*/
#lfdo,koebermt ind0*/
/*
** $Ieoobero idoxl*/
#lfdo,koebermt ind0/1/
/*
** $Ieooberoo idoxl*/
# lf==== O';type{2, ivaled f*/top3=B_ 'ebe arity maximumdf ;voleft_r2, irei (w===/
un OTL_Uop3=B_ aswlop3=B_ X_io un OTL_Umaxf ;vo dummy #t RF)v- s maximumdf ;voleft_ias `}
;{/' udataUNARY_PR
e
s*/'['S_ O_r
utd _ RB_ O aswlsls Drt.hashxf-*wM_n)d&.cutd,G_ 11 RM AfEs*L) =osLlsudt.hashxf-*wM_n)d&.cutd,G_ 11 RM AfEs*L) =osLlsnDt..ll;===l*nmpaof(TM AfEs*L) =osLls Drt.nmparamLlsudt.nmparam1 =osLls Drt.nf t]amLlsudt.nf t]am0x=0 Lls Drt.hash[0]]amLlsudt.hash[0]]amd: as}R
e
s*/'['S_frevf #r
utd _ RB_ O aswls Df-;cklevLls Drt.nf t==e>
a=in-d->ndTs3=B_ //2rv"ex=0 LlsnDt..ll;-= 'Lls Drt.nmpar+mLlsudt.nmpa)*nmpaof(TM AfEs*L) =os&blM_frevtL
*ls Drt.hashfAuxlfdo,.n IumbLlsudt.nf t==e>
a=in-d->ndTudataU//2rv"ex=0 &blM_frevtL
*lsudt.hash/
bodyd Lexufun=1)vfdo,rgChhash_ 2
e aputdZIbufl,rnmpa_t td,ttaJun=1)vfdo,rgChhxf-*lI#lfdo edi)sur(nmpa_t /2rvu*/':>>5)|ao(iOrf!* s3=B_ iS tooo,rgCop;*n'thhash ,)at
atdZIblsv->ofsd f*/ l>=/2rv/ l-=/2rve2(fsahxf-h ^ ((h<<5)+(h>>2)+(un=1)vfdodZIbf*(Tfof;{/cr_top;*)has}R
e
s*/'['S_- smpar_io(ir*ar, Orn*s3=B_ //2rvuttb
_StaT.wnmpa l1* lTM AfEs*L*T.whashxf-*wM_n)d&.cutd,G_ 1T.wnmpa RM AfEs*L) =osF
uuffAux Dnnup
=>kl-T.wnmpa
fs DnuT.whash[i]xf-;ck x=0 .ut*/hashxv->ofsd f*p
=>kl-tbls mpa
fs Dnu ryadjRM AfEs*Lvu*/tblshash[i]fsap & !Idl*p
' ;
Orat DSno.en t ass);} OTTTTT}sc(_FAuxuff*1ay, b= plsny, hashlI#lfdo(wt,ay, bTTTT}sc(_un=1)vfdo,rgChhxf-(tb;&&r&*ls Drt) ? plsOT;ahashx: IntPoF
u(plsOTd.top;*Iop-posA!F
uuh1xf-h&(T.wnmpa- tl=_todXFinposgoifrn*e(lss Dfs Df-;cklevh%T.wnmpa;&&r(h&(T.wnmpa- t)aaaaaa"X_io(a;vo#lfdo la&(x "&&ra%x, Orxc ( (wtof 2}Iop-posA!plsny, hash>ttlkwhash[h1]l=_tod[hcr_tif_ t XFinposgoifrn*e(lss Dflkwhash[h1]b= pop-posA!p>ttlk==/TK_RETURN}=0 &blM_frevtL
tblshash) =osLlsnDt..ll;===(T.wnmpa
**tbls mpa)*nmpaof(TM AfEs*L) =ostbls mpa>ttlkw mpa
=ostblshash>ttlkwhash
new_///2rvut0wrtwLeeftry _io(ir*ar, Orn*s3=B_ //2rvuttb
TM AfEs*Lt,
_Stahnu ryatslsny, hash>tttblshash[h]l=_tod[hcr_tXFineftry *e(lstblshash[h]>ttts
=ostblsnf ts rche!* 'tblsnf t > _i_St32)tbls mpa>&&stbls mpa>klJf->tslsl
ULL(ll>&&s(1/
cmp(lt t)ls D l)rat-detasREF,)bse ew t,fAux"nasl->Xkeveldxau*e(lstTTfo(TM AfEs*L)&blM_m ataTry smpa.semcutdf;{/crt)lsmarks _ls0;ryatslsny, hash>tt;ck x=0 tslsl
ULL lx=0 tslsOT;ahashx=)has0 tslsOT;ae apu_io(a;vU0;rya1/
cpy(t)ls D lt l) =ost)ls D [l] TMBumbx *t RM 0(fsapOLlsnDt..ll;===smpa.semcutdfT.Doxl*eftry==// Lls Drt t),uh1
=>kx "nasILEtif_on///2rvut0wr(bse ew t,fA}dy
TM AfEs*L"inmc)= udataU_io(ir*ar, Orn*smpa_t /n*f*1a=*udatad,ttaJun OTL_Uop3=B_ *utTTfo(un OTL_Uop3=B_ *)&blM_m ataTry aaaaa"X_io(a;vo#lfdo _i_St32)nmpaof(un OTL_Uop3=B_ )+scv-FITM AfEs*Lt,Tfo&ut)lsts
=ost)lsmarks _ls0;ryatslsny, hash>tt;ck x=0 tslsl
ULL sas0 tslsOTd.taOTfk0as0 tslsOTd._ls=='fo(udataUB>XFsynt ? ut)+1x: udata =osLlsnDt..ll;===smpa.semcutscv-Fx "nasILEtif_on///2rvut0wr(xl*eftry==// Llsudt t),uIntPoF
u(tslsOTd._ls==) & 'Llsudt.nmpa- t);wr(bse ew t,fA}dy
TM AfEs*L"inmc[rg ;{udataU_io(ir*ar, Orn*f*1a=*udata
_StataOols Dari yh1xf-IntPoF
u(udatad,& 'Llsudt.nmpa- tv-FITM AfEs*Lt,fAux DnnuTTTfoLlsudt.hash[h1]l=t,f TTTfotslsny, hashnup
=>klJf->udataUB>XtslsOTd._ls=='&&s(taOTf= tslsOTd.taOT*/'taOTf= s Df-NYTAGetasREF,)bse ew t,fAux"nasl->Xkeveldxau*e(lstTTfo"inmc)= udata==//e>
udatadrche!* 'taOT!= s Df-NYTAGeasREFtslsOTd.taOTfktaO;wr(bse ew t,fA}dy
TM AfEs*L"inmcXFin_io(ir*ar, Orn*e aputdZIbuflt nup
=>Tr_top;*inmc)= ls==ry sf lt l
U(lt */
pushTM AfEs*L"inmcXFifixs __io(ir*ar, Orn*e aputdZIbuflt nup
=>TM AfEs*Lt,Tfol(z)))d&ry e1(fsapOJf->tslsmarks _ln-th)t)lsmarks _lsFIXMARK "nasnas,)GC t0wr(bse ew t,fA}dy.ut*/
/*9323846to/d: ap*1e0 2000 op 0/1/
/ Orf*1e0koern48j 0/1/
/ 30 16529:5930st526 12:47:057gGFILE*Ouff*1 fLcLuaU//2rv 2
hashn retoes therE
of d limits_h
#iS)R, rhhash //2rv fsakoerg t a mixTof [hcr_s _scat"nas//2rvurity Br_to's"nasOI_ O.akoeA{/cr_tgch sOInp*df ass t //2rv 2i "nat,OJf-an#t(lscv-Fnas,)(akoer_tifs{/cr_tposgoifrn(i.e. ass)`oE
oin{/' posgoifrn"natTifs{hash give=====t st), asst ass)[gr)i RM t(lscv-Fnasr_tifs{own{/cr_tposgoifr.akoeInf(>; D_co/ds,g meOs Drs)[gr)isxiss(93", wsst awo fdo X_i *h(wt, me=impldZne/cr_tposgoifrn(i.e. ass)ldZnehash top;*ut Dnn"natT/k t;enffR).akoeBecaf t]df asat,Oass);oy cran * adf ass t //2rv 2can#be 100%urityou(akoeper Dnma lenpen{/o`rc.S/*
** $Ieoobero incluxl*/
#lfdo,koebermt ind0*/
/*
** $Ieoobero idoxl*/
#lfdo,koebermt ind0/1/
/*
** $Ieooberoo idoxl*/
# lfdooebermt ind0/1/
/*
** $Ieooberoo idoxl*/
# fdPRIORITY 7gcsmpatL
n) (nmpaof(Hashn+(n)*nmpaof(No.eetadPRIORITY 7TagD/new_//s Dfut+2==:3AXP{====
=>kx
/*ass)`/cr_' posgoifrnof-an#t(lscv-Fnargch"cv-F("natTis,g med_new_ O';'fTifs{hash _ls==)S *keyd,ttaJun=1)vfdo,rgChhsapOsc(fop k*type(keydIF:o[i].en=_ts Dfumple xpasREF,)hTfo(un=1)vfdo,rgC)(,rgC)n;s oF_keydop-posA!',': Tr"ist_ls=s Dfumple xpasREF,)hTfots;s oF_keydlsOT;ahashop-posA!',': Tr"ist_ls=s DfuUcklDATApasREF,)hTfoIntPoF
u(ts;s oF_keyddop-posA!',': Tr"ist_ls=s Dfut+2==pasREF,)hTfoIntPoF
u(h;s oF_keyddop-posA!',': Tr"ist_ls=s Dfu=_tod-> fasREF,)hTfoIntPoF
u(cl;s oF_keyddop-posA!',': Tr"isd->ndTfl
fiels", to/d: a(iOrfgch syntkeyi].en=_tods Df-;cklevh%(un=1)vfdoutd[tls mpa>t&r(h&((un=1)vfdoutd[tls mpa- t)aaaaaa"X_io(a;la&(x "&&ra%x, Orxc ( (wtof 2}Iop-ps", to/&tlsno.e[h&(tls mpa- t]
new_///2rvue aputTObjg>S *"inH_gett DS_io(ir*ar, Orn*e aputHashxvtnaaaaa"X_io(a;vo#lfdo *e aputTObjg>S *keyd,ttaJNo.e*Ln;&ryESH)/cr_posgoifr(tn*keydop-pKFI0 n(ls== n
Ut>aTre`);")h"cv-F_io(a;nas,il"0ps Tf0;&f*/
ls Dt.!* ')
uO_2, 2}Obj_keyk t}->keydd
fiels", to/t}->h s Tr"isn;&rnlsny, fAux" & !Idl*nIop-ps", to/&)
uO_,ilobjg>Sof d t Ty>Xkeveldxau*e((w=====specCHU<%Ld vers OT s lop ne lsv->e aputTObjg>S *"inH_gets== e aputHashxvtn*.semcutkeyd,ttaJNo.e*Ln;&r&tlsno.e[(un=1)vfdo,rgC)(,rgC)key&(tls mpa- t]
f*/
ls Dt.!* '*type(t}->keydTf= s Dfumple x'&&sn;s oF_t}->keydTf= keyd
fiels", to/t}->h s Tr"isn;&rnlsny, fAux" & !Idl*nIop-ps", to/&)
uO_,ilobjg>Sof d t Ty>Xkeveldxau*e((w=====specCHU<%Ld vers OT s l01/1/
s v->e aputTObjg>S *"inH_gets==X_e aputHashxvtn*TM AfEs*Lkeyd,ttaJNo.e*Ln;&r&tlsno.e[keylsOT;ahash&(tls mpa- t]
f*/
ls Dt.!* '*type(t}->keydTf= s Dfupode_0w&&sts;s oF_t}->keydTf= keyd
fiels", to/t}->h s Tr"isn;&rnlsny, fAux" & !Idl*nIop-ps", to/&)
uO_,ilobjg>Sof d t Ty>Xkeveldxau*e((w==e aputTObjg>S *"inH_getS_io(ir*ar, Orn*e aputHashxvtn*e aputTObjg>S *keyd,ttaJsc(fop k*type(keydIF:o[i].en=_ts Dfumple xp>Tr_top;*inH_gets==(tn*n;s oF_keyddop-post_ls=s Dfumple xp>Tr_top;*inH_gets==rt t);s oF_keyddop-pos nu(ls== Tr_top;*inH_gett DtL
tn*keydop-p _parlNo.e*L"inH_ay, b_io(ir*ar, Orn*e aputHashxvtn*e aputTObjg>S *keyd,ttaJF
uuffAux!* '*type(keydTf= s DfumILd
fii TMBumbx *F_t "ittop;=vop3=expt> ['%
*e aputTObjg>S *v;&ryESH)gettL
tn*keydop-pP)n[i].;&&r&)
uO_,ilobjg>Se2(fsapOP_St>aTre`);")gch syntkeyiias `ULL(lIELDS_PERTfo(utd[((
e aputdZIbuf)v -aaaaa"X_io(a;vo#
e aputdZIbuf)(&tlsno.e[0]._lsdIF/ nmpaof(No.eetx+
fAux"nassd f*/ ifdo X_i *fsa(w==== O';try as,)}rb
t atkeyirityou(p = dexptessgch"cv-. T "nas,)pgGF.n;narity O';hashv-ryangs)`key'ssd fa*dleft_erity ass)ldZnehash.S *keyd,ttaJF* '*type(keydTf= s Dfumple x'||aaaaa"X_'*type(keydTf= s Dfupode_0w&&sts;s oF_keydlsl
UL<= 3detasRld be fo= _P*/
Xkev)}rb
t op ne lsns l0mf # 01/1/
s 3=expt> ['%
*/';try as,ITYdfa*dleft_e`_' rity ass)ldZnehash as)`key'sEs*rfopNo.e*Lmp;&ryESH)/cr_posgoifr(tn*keydop-p, le 0x4mp;- &tlsno.e[0];
*/';maks)lu)(>
U'"nas,)(>nar`(lscv-FI>oeg1 */',inH_gets==(tn*n= != &)
uO_,ilobjg>SeTK_DOTS:pio n > d flagdf
**tls mpa)aaaaa"X_ild be fo= _Pgive up; k*/ "nas,)b
trflow)n*e(lss Dfl;===tls mpa
(lss aottd&*type(keydTf s Dfumple x Tr"isn;s oF_keyd;&rn Tr"iss Df-;ckleve
uH)/cr_posgoifr(tn*keydTf= mp;")can,)(>ryangs)hash=l*/
#.dple xpd Lexuffetso.e.cutd,b_io(ir*ar, Orn*Hashxvtn*i_St32 nmpa l1* lF
uuffAux!* ' mpa>>d flagdf(ls== n
Ut>aTre`);")h"cv-Fb
trflow=l*/
tlsno.exf-*wM_n)d&.cutd,G_ 1nmpa No.eefAux Dnnup
=>kl-(utd[ mpa
fs Dnu ryadj*type(ttlsno.e[i].keyd;&r*type(ttlsno.e[i]._lsd = s DfumIL Tr"istlsno.e[i].ay, b= d: as);&ry;LlsnDt..ll;===gcsmpatL
nmpa l-=gcsmpatL
tls mpa)*/
tls mpa>tt mpa
=ost->F_t frevuf-ttlsno.e[ mpa- ]umbx *F_t "frevu,osgoifrn"oo*4 used*fsa(w==HashxvyESH))d&b_io(ir*ar, Orn*ri ysmpa l1* lHashxvtuff*wM_n)d&rrn*Hash)*/
tlshtaOTfkTagD/new_/*/
tlsny, b= Llsroot//2rv =osLlsroot//2rvuf-/*/
tlsmarkuf-/*/
tlsnmparam0x=0 LlsnDt..ll;===gcsmpatL
0l*/
tlsno.exf-d: as);fetso.e.cutd,tL
tn*)
uO_ ( (w2' mpat);wr(bse ew tas}R
e
s*/'['H_frevb_io(ir*ar, Orn*HashxvtO aswlslsnDt..ll;-= gcsmpatL
tls mpa)*/
&blM_frevtL
tlsno.e)*/
&blM_frevtL
tvo RP_o_tod Lexufs==f t]_e aputHashxvtd,ttaJNo.e*Lv;&rtlsno.e =osF
uunmparamtls mpa
(lsk)l RKs o t]am0x=0 F
uuffAux Dnnup
=>kl- mpa
fs Dnu ryadj!* '*type(tv[i]._lsd != s DfumILd
fi-T}ds o ts rcheel r, OTTT}}ds o t
Afppfdr_tod Lexuffhash _io(ir*ar, Orn*HashxvtO aswlf*/
cldnmparamtls mpa
(lsNo.e*Lnold dtlsno.e =osF
uuy=c /cp)ss==f t(t) =osF
uuffAuxs Df-;cklevy=c /c<=cldnmpa>
ak)rgChEs* i.lkeg1 */'y=c /cp> dcldnmpa-cldnmpa/4)#t udFin1*,)(>asov_3/4t Es*rfopfetso.e.cutd,tL
tn*_i_St32)cldnmpa*20ps Tf0;&f */'y=c /cp< dcldnmpa/4w&&sy fTress>asov_1/4t Es*rfoppppppppcldnmpar>d INPOWER2)*rfopfetso.e.cutd,tL
tn*cldnmpa/20ps Tf0;&*rfopfetso.e.cutd,tL
tn*cldnmpaefAux Dnnup
=>kl-cldnmpa
fs Dnu ryadjNo.e*Lold dnold+iop-pP)n[i]*type(&old->h sd != s DfumILd
fi-TvyESH)settL
tn*&old->keyd;&rold->h srcheel r&blM_frevtL
nold / , moFrevbold arree*fsa(w==== O';nasILEs atkeyi_St/ "hhash //2rv;*F_t v-ry>ov wss>; D_keyi_=====al #t y presX_i;)n[i,)(v-ry>ov wss>; D_key's{/cr_tposgoifrniS krevsakoen[i,)(v-ry>ov wss>; D_[gr)i RM no.en ser_tifs{/cr_tposgoifrns lootsakoen[ii-Fnas,)(, rb
t [gr)i RM no.ent/ "npd->ndTplace/ope putaT.w_keyakoer_tifs{/cr_tposgoifr;f(>; Dwi t]_e r)i RM no.en ser_tifs{/cr_tposgoifr),akoeT.w_key goesnt/ "npd->ndTposgoifr.ak/
TObjg>S *"inH_setS_io(ir*ar, Orn*Hashxvtn*e aputTObjg>S *keyd,ttaJNo.e*Lmp;&ryESH)/cr_posgoifr(tn*keydop-pNo.e*Ln;&rmpop-pKFI0 mp(ls== n
Ut>aTre`);")h"cv-F_io(a;nas,il"0ps T*/
l=_tod[h>ov wss>; D_`key'snassome any/b t ass)[hcr_tPdass)gn* ')
uO_2, 2}Obj_keyk t}->keydd
fiels", to/t}->h s p garb
ao's"f # Pdass)gf0;&fn;&rnlsny, fAux" & !Idl*nIop-pg t key'sXkeveldxa;f*1f.enasILEtif_fo= _P
ls*type(&mp->keyd;!= s DfumILd
fiel,s r_tposgoifrniS Xkeverev?sEs*rfopNo.e*L(>; Dn;fiel,s r_tposgoifrnof [ r)i RM no.envut(ls== dtlsF_t frevfo= _PgetSa"frevu,lace/vut(ls=;
(Om[ r)i RM no.enou(p'fTifs{s r_tposgoifr?]_e"np93", happenserf*rfoppppifs{posgoifrniS l "nas"F_t frev")tPdass)gn* 'mp;>== &&s((>; Dn=yESH)/cr_posgoifr(tn*&mp->keydd;!= mpeTK_DOTS:p;
yes; rb
t [gr)i RM no.en_St/ frevu,osgoifrnto(ls==laT.cv-s((>; Dnlsny, b!= mpeT(>; Dn f(>; Dnlsny, fmbx *F_pe previoudTfdicfiel,(>; Dnlsny, b&rn 0 .ut*/do ass)[hcr_trity
U'"nnu,lace/'fT`mplscv-FI>o, Ln;&rLmpl=_tod[gpy [gr)i RM no.en_St/ frevu,os. 'mplsny, balso goes)n*e(lss Dfmplsny, b=}d: a(iOrfc wT`mplsiS krevdatasat, FI>os-> ['%'] Ae r)i RM no.en ser_tifs{own{/cr_tposgoifrn*e(lss DftodXFinno.enwi # gon_St/ frevu,osgoifrnto(ls==lanlsny, b&rmplsny, l=_tod[hcr_tXFin,osgoifrnto(ls==lamplsny, b=}TTTT}sc(fmp;&re*fOTfVEXPv-d_vmp->key;&rLkeyfAux Dnnu;;)'%'] Ae c_mpil`F_t frev'tPdass)gn* '*type(ttlsF_t frev->keydTf= s DfumILd
fi-T}dat*gr&mp->h s p garOK;T/k t;enti # hasSa"frevu,lace/vut(ls=f0;&f */'t->F_t frevuf dtlsno.e)!',': .e*4Rh n,)(>decrei (wxptessany/bvut(ls=f0;&f't->F_t frev)--rcheel r, hashtL
tvo(iOrfc 1*,)(>frevu,lace2rvuts(ls_top;*inH_settL
tn*keydo-pg t , hash'fgch synar,se iS nasILEifrnto(pushTObjg>S *"inH_setF
uu_io(ir*ar, Orn*Hashxvtn*F
uukeyd,ttaJTObjg>S _io(a*/
ttype(t_io(adTf s Dfumple x Tr"n;s oF_t_io(adTf keyfAuxls_top;*inH_settL
tn*t_io(adas}R
e
s*/'['H_sets==s== io(ir*ar, Orn*Hashxvtn*TM AfEs*Lkeyn*.semcuth sd ttaJTObjg>S *;s oF, _io(a*/
ttype(t_io(adTf s Dfupode_0as0 ts;s oF_t_io(adTf keyfAux_ls=='fo*inH_settL
tn*t_io(adas
ttype(_ls==) f s Dfumple x Tr"n;s oF__ls==) f h src(w==e aputTObjg>S *"inH_getpukimm__io(ir*ar, Orn*e aputdZIbufl
>-> ATr_top;*inH_gets==rL->g),ol(z)))d&ry l
>fAu#.d.ut*/
/*9323846to/d: apGmr_ntop;NOPARcklp*1e0 2000 op 0of / Orf*1e0koern48j 0of / 30 16549:5930st511 13:10:247gGFILE*Ouff*1 fLcInAer*df Modulth) DebuggfEs*df asscLuaUIas#tx)cup_ O retoes therE
of d limits_h
#i/* e " inlib e " insc(fof 2
utd _ RB_ OT.==== O';Tsscwholthmodulth93", maksassensvurity * o_dofh- O r/Gmr_top;* o_dofh->.dple xpd Lexuffets
vmm__io(ir*ar, Orn*e aputdZIbufl
n*F
uuh sd ttaJio(i&newt1emcutL
TTs}dataJio(i&newy>o, s
LRfTrbdataJio(ifet//2rvry, -3)i (w==== O';======================================================= O';Disassem2rvr===========================================================ZIdl*/_fo= _Pe aputdZIbufe aputiI>o,TTs}[mpl_OPCODESOPR taJ"END";")tod-> ";")CALL";")TAILCALL";")=cs/mIL";")=OP";")=cs/INT";"taJ"=cs/pode_0";")=cs/mUM";")=cs/mEGmUM";")=cs/UPVALUE";")GETod-> ";"taJ"GETGLOB> ";""GETt+2==";""GETDOTTED";""GETtlk===<";")=cs/SELF";"taJ"CREATEt+2==";""SETod-> ";""SETGLOB> ";""SETt+2==";""SEToIST";""SETMAP";"taJ"AD<";")ADo, s
ifrnib= plsl*/
[pc];
X_io.en f-GET_OPCODE(idop-pe aputdZIbufl
f-iI>o,TTs}[o];
s_2ev'aefat
;")%5d
**",ol(zG(>; Dine(plsDine=== ,upc 11 Fsynt)sapOsc(fop k((op Mode)&blK >sprr_too`rc[o].mo.e)!%']t(ls=t_ls=iOl
fiels_2ev'aefat
+8;")%-12s"
TTs}dataJJJJJ',': Tr"ist_ls=iUl
fiels_2ev'aefat
+8;")%-12s%4u"
TTs},-GETARG_U(iddataJJJJJ',': Tr"ist_ls=iSl
fiels_2ev'aefat
+8;")%-12s%4d"
TTs},-GETARG_S(iddataJJJJJ',': Tr"ist_ls=iABl
fiels_2ev'aefat
+8;")%-12s%4d %4d"
TTs},-GETARG_A(id,-GETARG_B(iddataJJJJJ',': Tr"}taJio(i&newt1emcutL
fat
);wr(bse ew (oRnP prA,Stvo RP_o_tod Lexuf;} Ol*/
r
utd _ RB_ O aswlF
uupc;wr(P #t *p
(lsk)l RKsataJio(L_argnparam();"s DLiskfAoldaAtL
tP
ls s DLisckfAoldaAtL
tnaaaaa"X_io(a;vo#lf1;")LuaUkfAoldaAs,)}sc(fo}Iop-pp;&rcl;s oF_s DA__io(atL
t)->F.lataJio(i)d&//2rvry_fsapfets
vmm`);")maxsf==,_, plsmaxsf==,nmpaefAuxfets
vmm`);")op {/cr_t_, plsop {/cr_tIop-ppc]am0x=0 */
ls Dt.io(i&newy>o, s
LRfpc+ustustwD- s =f&newop
LRfpRfpc++stustwDio(ifet//2rvry, -3)i ux" & !Idl*re-;{/cr_top;*)1o RP_o_tod Lexuf;} O01/1/
s
utd _ RB_ O aswlP #t *p
(lsk)l iataJio(L_argnparam();"s DLiskfAoldaAtL
tP
ls s DLisckfAoldaAtL
tnaaaaa"X_io(a;vo#lf1;")LuaUkfAoldaAs,)}sc(fo}Iop-pp;&rcl;s oF_s DA__io(atL
t)->F.lataJio(i)d&//2rvry_fsap Dnnup
=>kl-plso_t(l
fs Dnu ryadjio(i&newy>o, s
LRfi+ustustwD_fsi&newt1emcutL
p->k D [i]ls DrstustwDio(ifet//2rvry, -3)i ux"/cr_top;*)1o RP_o_tod Lexuf;} OyESSS
utd _ RB_ O aswlP #t *p
(lsk)l pc]amio(L_TK_ENDF
u(Lls==
**1
(lsk)l i]am0x=0 e aputdZIbufl
ataJio(L_argnparam();"s DLiskfAoldaAtL
tP
ls s DLisckfAoldaAtL
tnaaaaa"X_io(a;vo#lf1;")LuaUkfAoldaAs,)}sc(fo}Iop-pp;&rcl;s oF_s DA__io(atL
t)->F.lataJ& !Idl*(l
f-s DF(>; DESSSs++expRf++iRfpcdd;!= FsyntustwD_fsi&newt1emcutL
TTs}dataJ_top;*)i-1 eu}=========================================================bev $I
e_o_tod Lexuf>; _ew_//
utd _ RB_ O aswlio(i)d&//2rvry_fsapfets
vmm`);")BITS_INT";"BITS_INT_fsapfets
vmm`);")LFPF";"LFIELDS_PER_FLcs/_fsapfets
vmm`);")MAXARG_A"th) ARG_A_fsapfets
vmm`);")MAXARG_B"th) ARG_B_fsapfets
vmm`);")MAXARG_S"th) ARG_S_fsapfets
vmm`);")MAXARG_U"th) ARG_U_fsapfets
vmm`);")MAXod-> S"th) od-> S_fsapfets
vmm`);")MAXPARAMS"th) PARAMS_fsapfets
vmm`);")MAXSTACK"th) STACK_fsapfets
vmm`);")MAXUPVALUES"th) UPVALUES_fsapfets
vmm`);")MAX sle>
"th) sle>
_fsapfets
vmm`);")RFPF";"RFIELDS_PER_FLcs/_fsapfets
vmm`);")SIZE_A"thSIZE_A_fsapfets
vmm`);")SIZE_B"thSIZE_B_fsapfets
vmm`);")SIZE_**";"SIZE_**_fsapfets
vmm`);")SIZE_U";"SIZE_U;{/cr_top;*)1o RP_o_tod Lexuf1/
_query _io(ir*ar, Ord,ttaJF* 's DLisnulltL
t)u ryadjio(i&newy>o, s
LRf*/
debugrtotalstustwD_fsi&newy>o, s
LRf*/
debugry>o,t..llstustwD_fsi&newy>o, s
LRf*/
debugrmax*/
stustwD- op;*)3i ux"/crt> ['%
**/
debugrmemp)suraamio(L_TK_ENDF
u(Lls1stustwD- op;*);*utd _buAPID_Lexuri yhash_query _io(ir*ar, Ord,ttaJF* 's DLisnulltL
2t)u ryadjio(L_argnparam();"s DLtautL
tTf= s Dfupode_0 11 "s3=B_ ,)}sc(fo}Iop-pos_fsi&newy>o, s
LRfts;s oF_s DA__io(atL
t)->OT;ahash)i ux"/crt> ['%
*Hashxvt;ryadjio(L_paramtype(L
2,=s Dfut+2==Iop-posraamh;s oF_s DA__io(atL
2)Iop-pos_fsi&newy>o, s
LRfyESH)/cr_posgoifr(tn*s DA__io(atL
t)
**tlsno.e)*/
"/cr_top;*)1o RP_o_tod Lexuf//2rv_query _io(ir*ar, Ord,ttaJe aputHashxvt
(lsk)l i]amio(L_optDF
u(Lls=ffR_F edjio(L_paramtype(L
1,=s Dfut+2==Iop-praamh;s oF_s DA__io(atL
t);wr(F* 'iTf= " ryadjio(i&newy>o, s
LRftls mpa)*/
djio(i&newy>o, s
LRftlsF_t frevu**tlsno.e)*/
cr_top;*)2i ux"/crt> ['F* 'iTS==// tlsno.e[i].keyd;ryadjio(Ai&newobjg>S==// tlsno.e[i].valstustwD */'t->no.e[i].ay, eTK_DOTS:pio(i&newy>o, s
LRftlsno.e[i].ay, b**tlsno.e)*/
crwD- op;*)3i uxt, FI>os-> [/
crwD- op;*)left; OTTr_top;0o RP_o_tod Lexufs3=B_ _query _io(ir*ar, Ord,ttaJs3=B_ //2rvuttbTfo(*io(L_TK_ENDt1emcutL
tLL(lss't ? Lls Drt :/ Llsudt
(lsk)l s]amio(L_optDF
u(Lls=ff0=
**1
(lsk* ' == " ryadjio(i&newy>o, s
L ,tblsnf t)*/
djio(i&newy>o, s
L ,tbls mpa)*/
dj_top;*)2i ux"/crt> ['F* 'sTkl
ttype(LlstopdTf s Dfupode_0as0 kl
ts;s oF_LlstopdTf t,fAux, , crrtopop-posA!ns rchet, FI>os}dat*grk k iel r, OTTT}0o RP_o_tod Lexuftref
utd _ RB_ O aswlio(L_TK_ENt DtL
_F edjio(i&new;s oF_L
_F edjio(i&newy>o, s
LRfyES)reftL
io(L_optDF
u(Lls=ff t);{/cr_top;*)1o RPo_tod Lexuf>; ref
utd _ RB_ O aswlF* 's DL>; reftL
io(L_TK_ENDF
u(Lls1sdd
fi_top;*)1o os-> [/
cr, OTTT}0o RPo_tod Lexufunref
utd _ RB_ O aswlio(_unreftL
io(L_TK_ENDF
u(Lls1sd;l r, OTTT}0o RPo_tod Lexufsewf trdataU_io(ir*ar, Ord,ttaJF* 's DLisnuo, s
LRf2)tustwD_fsi&newf trtautL
(f*1a=*)io(L_TK_ENDF
u(Lls1s
io(L_TK_ENDF
u(Lls2)Iop-pk)rc_fsap&os_sewf trdatatL
io(L_TK_ENDF
u(Lls1sd;l r, OTTT}1o RPo_tod Lexufudatavmm__io(ir*ar, OrO aswlio(L_TK_ENtype(L
1,=s DfuUcklDATAF edjio(i&newy>o, s
LRf(utd[s DLtof trdatatL
1sd;l r, OTTT}1o RPo_tod Lexuflkw *ar,
utd _ RB_ O aswlio(__ RB_ 1]amio( >sc((io(L_TK_ENDF
u(Lls1sd;l r!* 'L1tustwD_fsi&newf trdatatL
L1Iop-pk)rc_fsap&os_&newyi#ry_fsap, OTTT}1o RPo_tod Lexuf;oy lib
utd _ RB_ O aswlio(__ RB_ 1]am
utd _ RB_ [s DLtof trdatatL
1sfsapfc(fop k*io(L_TK_ENDt1emcutL
2dIF:o[i].en=_t'm'ind 2D==Thlib>sc((L1Io/',': Tr"ist_ls==s'ind 2Dlt lib>sc((L1Io/',': Tr"ist_ls==i'ind 2Diolib>sc((L1Io/',': Tr"ist_ls==d'ind 2Ddblib>sc((L1Io/',': Tr"ist_ls==b'ind 2Db_lslib>sc((L1Io/',': Tr"is nu(ls== aTre`);"2;")gch synth;&ryE")*/
"/cr_top;*)0o RPo_tod Lexufrypus *ar,
utd _ RB_ O aswlio(L_TK_ENtype(L
1,=s DfuUcklDATAF edjio(irypusr
utd _ RB_ [s DLtof trdatatL
1sd;l r, OTTT}0o RPo_tod Lexufdo)}rbr,
utd _ RB_ O aswlio(__ RB_ 1x=0 e aputdZIbufco.exf-*wML_TK_ENDt1emcutL
2d
(lsk)l s RusataJio(L_TK_ENtype(L
1,=s DfuUcklDATAF edj 1]am
utd _ RB_ [s DLtof trdatatL
1sfsapf Rus]amio( dvt1emcutL1,=npard;l r!* 'f Rus]!n-th) ryadj&os_&newyi#ry_fsapdjio(i&newy>o, s
LRff Rus)*/
dj_top;*)2i ux"/crt> ['{Aux, lei0x4*/TK_RE& !Idl*/s DLisnulltL1Rf++i)e2(fsapOP_St&newt1emcutL
s DLtot1emcutL1,=iddataJJJ_top;*)i-1 etd _buAo_tod Lexufset//gmethodr
utd _ RB_ O aswlF
uutaOTfkio(L_TK_ENDF
u(Lls1stuste aputdZIbufnleftxf-*wML_TK_ENDt1emcutL
2d
(lsio(L_TK_ENt DtL
3F edjio(iget//gmethod
LRftag, nleftF edjio(i&new;s oF_L
3F edjio(iset//gmethod
LRftag, nleftF edj, OTTT}1o RPo_tod Lexuf&newboom__io(ir*ar, Orn*exufbd,ttaJF* 'b)jio(i&newy>o, s
LRf1Iop-pk)rcp&os_&newyi#ry_fsap, OTTT}1o RPo_tod Lexuf2, 2}r
utd _ RB_ O aswl, OTTT}&newboomtL
s DL2, 2}(L
1,=2>fAu#.d ==== O';======================================================= O';kfAoldaAstobubutrassc-PI rity C. IutiIterpSSS atk_pe of "assem2rvr" O';langutalyrity h s snt/ assc-PI, soe ebubutrcan#be drilef_by Lua=npar===========================================================ZIdl*_fo= _Pe aputdZIbufe aputdeew_// = " \t\n,;";dple xpd LexuffsuAP
e aputdZIbuf*pc) aswl& !Idl*f*pcc `pa\0'P
lst1echr(deew_// ,uf*pc))l*fpc)s rc RPo_tod Lexuf>; s== io(ir*ar, Orn*e aputdZIbuf*pc) aswlk)l RKs]am0x=0 F
uusiOTfk1 etdfsuA(pcd;l r!* 'f*pcc iel TfUls DRKs]am(utd[s DLtoy>o, s
LRf-ustustwD_fsi&op
LRfustustwD*fpc)s rcaJJJ_top;*)RKsataJ"/crt> ['F* 'f*pcc ie- TfUls DsiOTfk-1 etdwD*fpc)s rcaJ}swl& !Idl*isdigit(f*pc))lRKs]amRKs*10 +D*f*fpc)s =
**'0'fsap, OTTT}siO*RKsat}swl*_fo= _Pe aputdZIbufls==&gets
(dZIbuffat
;"e aputdZIbuf*pc) aswlk)l i0x4*/TK_fsuA(pcd;l r& !Idl*f*pcc `pa\0'P
ls!t1echr(deew_// ,uf*pc))etdwDfat
[i++OPR **fpc)s rcaJfat
[iOPR a\0'fsap, OTTT}fat
o RP_IORITY 7EQ(s1) (n1ecmp(l1,=iapu)rat-dePRIORITY 7g; s== ((g; s==)==// pc))eIORITY 7g; s
((ls==&gets
)efat
;" pc))eP_o_tod Lexufts==C _io(ir*ar, Ord,ttaJeft pfat
[30];
e aputdZIbufpc]amio(L_TK_ENDt1emcutL
tls); Dnnu;;)'%Tr"ist aputdZIbufiapu]amgets
tustwD */EQ("")D- op;*);*utdcrt> ['F* EQ("isnuo, s"eTK_DOTS:pio(i&newy>o, s
LRfs DLisnuo, s
LRfg; s==))i uxt, FI>os-> ['F* EQ("ist1emcu"eTK_DOTS:pio(i&newy>o, s
LRfs DList1emcutL
g; s==))i uxt, FI>os-> ['F* EQ("is//2rv"eTK_DOTS:pio(i&newy>o, s
LRfs DLis//2rvry, g; s==))i uxt, FI>os-> ['F* EQ("isckfAoldaA"eTK_DOTS:pio(i&newy>o, s
LRfs DLisckfAoldaAtL
g; s==))i uxt, FI>os-> ['F* EQ("iskfAoldaA"eTK_DOTS:pio(i&newy>o, s
LRfs DLiskfAoldaAtL
g; s==))i uxt, FI>os-> ['F* EQ("isf trdata"eTK_DOTS:pio(i&newy>o, s
LRfs DLisf trdatatL
g; s==))i uxt, FI>os-> ['F* EQ("is,il"0TK_DOTS:pio(i&newy>o, s
LRfs DLisniltL
g; s==))i uxt, FI>os-> ['F* EQ("is,ull"eTK_DOTS:pio(i&newy>o, s
LRfs DLisnulltL
g; s==))i uxt, FI>os-> ['F* EQ("toy>o, s"eTK_DOTS:pio(i&newy>o, s
LRfs DLtoy>o, s
LRfg; s==))i uxt, FI>os-> ['F* EQ("tot1emcu"eTK_DOTS:pio(i&newt1emcutL
s DLtot1emcutL
g; s==))i uxt, FI>os-> ['F* EQ("toy>o, s"eTK_DOTS:pio(i&newy>o, s
LRfs DLtoy>o, s
LRfg; s==))i uxt, FI>os-> ['F* EQ("lt l
U"eTK_DOTS:pio(i&newy>o, s
LRfs DLlt l
U(L
g; s==))i uxt, FI>os-> ['F* EQ("tockfAoldaA"eTK_DOTS:pio(i&newckfAoldaAtL
s DLtockfAoldaAtL
g; s==))i uxt, FI>os-> ['F* EQ("- op;*"eTK_DOTS:p- op;*)g; s==i uxt, FI>os-> ['F* EQ("gettop"eTK_DOTS:pio(i&newy>o, s
LRfs DLgettopry_)i uxt, FI>os-> ['F* EQ("lettop"eTK_DOTS:pio(isettopry
g; s==)i uxt, FI>os-> ['F* EQ("pop"eTK_DOTS:pio(i&opry
g; s==)i uxt, FI>os-> ['F* EQ("pnewy>o"eTK_DOTS:pio(i&newy>o, s
LRfg; s==)i uxt, FI>os-> ['F* EQ("pnew;s oF"eTK_DOTS:pio(i&new;s oF_L
g; s==)i uxt, FI>os-> ['F* EQ(")}rb
t"eTK_DOTS:pio(i)}rb
t_L
g; s==)i uxt, FI>os-> ['F* EQ("nasILE"eTK_DOTS:pio(inasILE_L
g; s==)i uxt, FI>os-> ['F* EQ("get//2rv"eTK_DOTS:pio(iget//2rvry, g; s==)i uxt, FI>os-> ['F* EQ("set//2rv"eTK_DOTS:pio(iset//2rvry, g; s==)i uxt, FI>os-> ['F* EQ("ny, "eTK_DOTS:pio(i=1;paLRf-2)i uxt, FI>os-> ['F* EQ("I_ O""eTK_DOTS:pio(iI_ O"iL
g; s==)i uxt, FI>os-> ['F* EQ(")awh s "eTK_DOTS:pexuflarg]amgets==i uxt,:pexuflRKs]amgets==i uxt,:pio(i)awh s tL
TTrg, nre-;{/crt, FI>os-> ['F* EQ("I s "eTK_DOTS:pexuflarg]amgets==i uxt,:pexuflRKs]amgets==i uxt,:pio(ih s tL
TTrg, nre-;{/crt, FI>os-> ['F* EQ("dot1emcu"eTK_DOTS:pio(idot1emcutL
s DL_TK_ENDt1emcutL
g; s==))i uxt, FI>os-> ['F* EQ("let//gmethod"eTK_DOTS:pexuftaOTfkgets==i uxt,:pe aputdZIbufnleftxf-gets
tustwDdjio(iset//gmethod
LRftag, nleftF edjt, FI>os-> ['F* EQ("get//gmethod"eTK_DOTS:pexuftaOTfkgets==i uxt,:pe aputdZIbufnleftxf-gets
tustwDdjio(iget//gmethod
LRftag, nleftF edjt, FI>os-> ['F* EQ("typF"eTK_DOTS:pio(i&newt1emcutL
s DLtypen{metL
s DLtypetL
g; s==))F edjt, FI>os-> ['s DL_v>aTre`);")unknown{iI>o, s
ifrn%.30t_, fat
);wr("/cr_top;*)0o RP========================================================bev $I
e_o_tod Le aputleft;, s DL_regfts==shkT,ks[OPR taJ{"hash=,yhash_query},taJ{"ew_// ",f>; _ew_// },taJ{"ew Ol*/
",olw Ol*/
},taJ{"ew O01/1/
s",olw O01/1/
s},taJ{"ew OyESSS ",olw OyESSS },taJ{"eoy lib",oloy lib},taJ{"query01/",fs3=B_ _query},taJ{"query//2",f//2rv_query},taJ{"ts==C",f/s==C},taJ{"rest// ref},taJ{">; ref",f>; ref},taJ{"unref",funref},taJ{"sewf trdata",fsewf trdata},taJ{"udatavmm",fudatavmm},taJ{"sew *ar,",fsew *ar,},taJ{"rypus *ar,",frypus *ar,},taJ{"do)}rbr,",fdo)}rbr,},taJ{"let//gmethod",fset//gmethod},taJ{"2, 2}",f2, 2}},taJ{"totalmem",f1/
_query}RY_PR
s*/'[': >sc(fof 2
utd _ RB_ O aswlio(i)d&//2rvry_fsapio(igetpukimm1ry_fsapio(i&new;s oF_L
-2d
(lsio(isetpukimm1ry_fsapio(L >sc( tL
ts==shkT,ksdo-pg t'bx *kfAoldaAS nasid_fAux///2rvut0wr(io(isetpukimm1ry_f0 .ut*/st,)(>old //2rvuofdpukimm1(fsapOP_Risetpukimm`);")T"ILESSSSSetfAux///2rvuasdpukimm Tnto(pus} OTTTT.ut*/
/*9323846to/d: apiux,vOrf*1e0 2000 op tm/ Orf*1e0koern48j 0m/ 30 16569:5930st511 13:10:247gGFILE*Ouff*1 fLcTaOTmethods retoes therE
of d limits_h
#i/* e " inS/*
** $Ieoobero incluxl*/
#lfdo,koebermt ind0*/
/*
** $Ieoobero idoxl*/
#lfdo,koebermt in/
/*
** $Ieoobero
-Sit_h
(L->DEBUGe aputdZIbufe aputlblT_nleftTTs}[OPR p garORDER TM(fsapO"get//2rv"x)adjt//2rv"x)a_io(a"x)agetpukimm"x)adjtpukimm"x)aadd"x)adu2",apO"mum"x)adiv"x)apow";")unm",f"lt",f"I_ O""x)agc"x)akfAoldaA",apO"rv"x)ag""x)agv"x)= _P*epre O"enth;&ryEs!!(fsapOFsynRY_PR
o_tod LexufF_penleftx(e aputdZIbufl
>-> AF
uuffAux Dnnup
=>klblT_nleftTTs}[i]
fs DnFI>os!* 'f ecmp(lblT_nleftTTs}[i]
TTs}drat-de2(fsaJJ_top;*)ifsap, OTTT}-ao(iOrfs
Xkeveldxau*e((w==o_tod Lexuf;uaI_TK_ENnleftx(io(ir*ar, Orn*e aputdZIbufl
n*F
uutO aswlf*/
exf-F_penleft(TTs}dataJ!* 'ep> dTM_NtustwD_fsO_v>aTre`);")nleftx`%.50slsiS *epre O"en"
TTs}dataJ!* 'ep= dTM_GCw&&stTf= s Dfut+2==IustwD_fsO_v>aTre`);")nleftx`gc'ssd f//2rv 2i *epre O"en"dataJ!* 'ep<-de2(fsa_fsO_v>aTre`);")`%.50slsiS Xkeva h syntnleftxTTs}"
TTs}dataJ_top;*)t
Afppdo,knleftser_ts DfumIL Drs)f # atawed
nm len iS ns used*asSa
* ',laceholder'ssd f" nu(ls=" f atb==,n
lfdo,kORDER s Dfu,rORDER TM(fsa_fo= _Pe aputdZIbulblT_h synnlefts[mpl_TAGS][TM_NOPR taJ{1
1,=0,=0,=0,=1,=1,=1,=1,=1,=1,=1,=1,=0,=1}x)= _Ps DfuUcklDATA(fsapO{1,=1,=1,=1,=1,=1,=1,=1,=1,=1,=1,=1,=1,=1,=1}x)= _Ps DfumIL fsapO{1,=1,=0,=0,=0,=0,=0,=0,=0,=1,=0,=0,=0,=0,=1}x)= _Ps Dfumple x'fsapO{1,=1,=0,=0,=0,=0,=0,=0,=0,=0,=0,=0,=0,=0,=1}x)= _Ps Dfupode_0wfsapO{0,=0,=1,=0,=0,=1,=1,=1,=1,=1,=1,=1,=1,=0,=1}x)= _Ps Dfut+2=='fsapO{1,=1,=0,=0,=1,=1,=1,=1,=1,=1,=1,=1,=1,=0,=0} )= _Ps Dfu=_tod-> UNARY_PRexuf;uaT_h synnleft*_ri ytn*F
uue) p garORDER s Dfurvuts(ls_top;(tp> dmpl_TAGSt ? 1x: lblT_h synnlefts[t][e]
Afppfdr_tod Lexu O__eftry _io(ir*ar, Orn*_StataOols Dari yffAux Dnnup
=>kioslblT_get/m
LRftag, i) f-;ck x=0 LlsTM//2rv[tag].[gr)g>Ss _lsd: as}R
e
s*/'['T_ O_r
utd _ RB_ O aswl_Statfsapio(M_gro&.cutd,G_ 1LlsTM//2rv,=0,=mpl_TAGS,tleft;, TM;")"th) _INT_fsapLlsnDt..ll;===mpl_TAGS*nmpaof(left;, TMfAuxlLlstls)_taOTfkmpl_TAGS-1 etd DnnuT
=>kt<=Llstls)_taO>kt DnFI>os! O__eftry
LRft)Y_EDh_s Df-PI exuf;uai)d&//g2
utd _ RB_ O aswlio(M_gro&.cutd,G_ 1LlsTM//2rv,=Llstls)_taO,=1,=left;, TM;2(fsaJJJJJJJJJJJJJJ"//g2h"cv-Fb
trflow=th) _INT_fsapLlsnDt..ll;===nmpaof(left;, TMfAuxlLlstls)_taOs rche! O__eftry
LRfLlstls)_taOdataJ_top;*)Llstls)_taO> Afppfdr_tod LexuTK_ENt/g2
utd _ RB_ n*_StataOols DarFI0 (0p< dt/g2&&st/g2<=fLlstls)_taOde2(fsa_fsO_v>aTre`);")%dsiS Xkeva h synttaO",f//g)Y_EDh
s*/'['T_}ds t/g2
utd _ RB_ n*_StataOols DarFI0 h syntauttaOde2(fsa_fsO_v>aTre`);")t/g2%dswaS Xkev[rg ;{ _by `)d&//g'",f//g)Y_EDh_s Df-PI exuf;uai[gpy//gmethods2
utd _ RB_ n*_StataOton*_StataOptesO aswlf*/
e;
eK_ENt/g
LRftagto);
eK_ENt/g
LRftagptesO etd Dnnue
=>keS *oO aswl_Stat;&r*type(osfsapfc(fop k eTK_DOTSt_ls=s DfuUcklDATAp(bse ew t,;s oF_o)lsOTd.taO;_DOTSt_ls=s Dfut+2==psaJJ_top;*)h;s oF_o)lshtaO;_DOTS nu(ls== aJJ_top;*) fAux"_EDh_s Df-PI
s*/'['_get//gmethodr
utd _ RB_ n*_Stat,pe aputdZIbufnleftO aswlf*/
e;
exf-*wMI_TK_ENnleft
LRfnleftRft)Y_ eK_ENt/g
LRftdataJ!* 'lblT_h synnleft(tn*e)]&&sio(T_get/m
LRftn*e)eTK_DOTStl;s oF_LlstopdTf io(T_get/m
LRftn*e);_DOTSttype(LlstopdTf s Dfu=_tod-> ;wr("/crk)rc_fsapttype(LlstopdTf s DfumIL Tr" crrtopopEDh_s Df-PI
s*/'['_set//gmethodr
utd _ RB_ n*_Stat,pe aputdZIbufnleftO aswlf*/
exf-*wMI_TK_ENnleft
LRfnleftRft)Y_ eK_ENt/g
LRftdataJ!* '!lblT_h synnleft(tn*e)e2(fsa_fsO_v>aTre`);")can,)(>ryangs)`%.20slstaOTmethodssd f/ype{`%.20sl%.20s";2(fsaJJJJJJJJJJJJlblT_nleftTTs}[e]n*)
uO_typen{mes[t];2(fsaJJJJJJJJJJJJ(tTf= s Dfut+2==T*/'tTf= s DfuUcklDATAF ?2(fsaJJJJJJJJJJJJJJ "yrity nu(ls=ttaO"x: ""sfsapfc(fop k type(Llstop
**1dIF:o[i].en=_ts DfumIL:2(fsapOP_ST_get/m
LRftn*e)]am;ck x=0 ',': Tr"ist_ls=s Dfu=_tod-> fasREF,)P_ST_get/m
LRftn*e)]amtl;s oF_Llstop
**1dx=0 ',': Tr"isd->ndTfl
fiels DL2aTre`);")t/g2methods*1f.ebt atkfAoldaAs(s loil)")*/
"/crLlstop--rc}dy.ut*/
/*9323846to/d: ap*1e0 2000 op dxaump/ Orf*1e0koern48j dxaump/ 30 16339:5930st511 16:57:23 lhfOuff*1 fLc;oy cbytel*/
sxptessfiles retoes therE
of d limits_h
#i/* e " inaTre`);"un,)}sc(fo*t uofdfile>nar`%.99s'",ZNAMEtZ))o RPo_tod Lexuf2zgetcr
utd _ RB_Ps, ZIO* Z)
:o[exufr=zgetctZ)*/
!* 'c==EOZ)/un,)}sc(foEOZ`);Z)*/
ls_top;crc RPo_tod L
s*/ez #t r
utd _ RB_Ps, ZIO* Zn*f*1a* b
_StaT)
:o[exufr=z #t (Z,b,n)*/
!* 'r!=0)/un,)}sc(foEOZ`);Z)*/ RPo_tod L
s*/Loy Bt..lr
utd _ RB_Ps, f*1a* b
smpa_t /mpa>
ZIO* Zn*F
uuswap)
:o[e* 'fwap)
,ttaJeft p*p=(dZIbuf) b+ mpa- ;swlf*/
n= mpa
(ls& !Idl*n--)p*p--=(dZIb)2zgetc`);Z)*/
"/ck)rc_fsez #t `);Z,b, mpa)*/ RPo_tod L
s*/Loy Vcutd,b_io(ir*ar,_Ps, f*1a* b
exuf1
smpa_t /mpa>
ZIO* Zn*F
uuswap)
:o[e* 'fwap)
,ttaJeft p*q=(dZIbuf) b
(ls& !Idl*m--)apO{
feft p*p=q+ mpa- ;swllf*/
n= mpa
(lss& !Idl*n--)p*p--=(dZIb)2zgetc`);Z)*/
q+= mpa
(ls}/
"/ck)rc_fsez #t `);Z,b,m* mpa)*/ RPo_tod Lf*/
Loy Iftx(io(ir*ar,_Ps, ZIO* Zn*F
uuswap)
:o[e
uua*/
Loy Bt..l`);&x,nmpaof(x);Z,swap)*/
ls_top;x*/ RPo_tod Lsmpa_t Loy Smpar_io(ir*ar,_Ps, ZIO* Zn*F
uuswap)
:o[smpa_t a*/
Loy Bt..l`);&x,nmpaof(x);Z,swap)*/
ls_top;x*/ RPo_tod L.semcutLoy .semcut_io(ir*ar,_Ps, ZIO* Zn*F
uuswap)
:o[.semcuta*/
Loy Bt..l`);&x,nmpaof(x);Z,swap)*/
ls_top;x*/ RPo_tod LTM AfEs* Loy S AfEs*_io(ir*ar,_Ps, ZIO* Zn*F
uuswap)
:o[smpa_t smpa=Loy Smpa`);Z,swap)*/
!* ' mpa==0tasRld be m;ck x=0k)rc_fttaJeft * s=_fsO_'bx spaca`); mpa)*/
Loy Bt..l`);s; mpa;Z,0dataJ_top;*)linmc)= ls==ry s; mpa-ust .ut*/rb
t trailfEs*a\0'Pvuts}/ RPo_tod L
s*/Loy C*/
r
utd _ RB_Ps, P #t * tf, ZIO* Zn*F
uuswap)
:o[e
uusmpa=Loy Ift
LRZ,swap)*/
tflsl*/
=lwM_n)d&.cutd,G_ mpa;II>o, s
ifr)*/
Loy Vcutd,G_ tflsl*/
mpa;nmpaof(*tflsl*/
);Z,swap)*/
!* 'tflsl*/
[ mpa- ]!=prA,Stv[_fsO_v>aTre`);"bt rco.en t `%.99s'",ZNAMEtZ))o [_fsF_p #t okG_ tf, mpa)*/ RPo_tod L
s*/Loy LESSS
utd _ RB_Ps, P #t * tf, ZIO* Zn*F
uuswap)
:o[e
uui,n*/
tflsnt..vars=n=Loy Ift
LRZ,swap)*/
tflst..vars=lwM_n)d&.cutd,G_ n,LESVarstus Dnnup
=>kl-T
fs DnFIttaJtflst..vars[i].va,TTs}=Loy S AfEs
LRZ,swap)*/
Jtflst..vars[i].o_trtpc=Loy Ift
LRZ,swap)*/
Jtflst..vars[i].t pc=Loy Ift
LRZ,swap)*/
}/ RPo_tod L
s*/Loy LTY
utd _ RB_Ps, P #t * tf, ZIO* Zn*F
uuswap)
:o[e
uun*/
tflsntine=== =n=Loy Ift
LRZ,swap)*/
tflstine=== =lwM_n)d&.cutd,G_ n,iftF edLoy Vcutd,G_ tflsDine=== ,n;nmpaof(*tflsDine=== );Z,swap)*/ RPo_tod LP #t * Loy FfAoldaAs(io(ir*ar,_Ps, ZIO* Zn*F
uuswap);RPo_tod L
s*/Loy C*I>oant
utd _ RB_Ps, P #t * tf, ZIO* Zn*F
uuswap)
:o[e
uui,n*/
tflsnk D =n=Loy Ift
LRZ,swap)*/
tflsk D =lwM_n)d&.cutd,G_ n,TM AfEs*stus Dnnup
=>kl-T
fs DnFI
tflsk D [i]=Loy S AfEs
LRZ,swap)*/
tflsnknum=n=Loy Ift
LRZ,swap)*/
tflsknum=lwM_n)d&.cutd,G_ n,.semcuF edLoy Vcutd,G_ tflsknum,n;nmpaof(*tflsknum)RZ,swap)*/
tflsnkp #t =n=Loy Ift
LRZ,swap)*/
tflskp #t =lwM_n)d&.cutd,G_ n,P #t *stus Dnnup
=>kl-T
fs DnFI
tflskp #t [i]=Loy FfAoldaAtL
Z,swap)*/ RPo_tod LP #t * Loy FfAoldaAs(io(ir*ar,_Ps, ZIO* Zn*F
uuswap)
:o[P #t * tf=_fsF_)d&p #t ry_fsatflssourc}=Loy S AfEs
LRZ,swap)*/
tflsDineDRITY d=Loy Ift
LRZ,swap)*/
tflsop {/cr_t=Loy Ift
LRZ,swap)*/
tflsis_vararg=Loy Byte`);Z)*/
tflsmaxsf==,nmpa=Loy Ift
LRZ,swap)*/
Loy LESSS G_ tf,Z,swap)*/
Loy LTY G_ tf,Z,swap)*/
Loy C*I>oant G_ tf,Z,swap)*/
Loy C*deG_ tf,Z,swap)*/
_top;*) f*/ RPo_tod L
s*/Loy Signatu)(>
utd _ RB_Ps, ZIO* Z)
:o[e aputdZIb* s=SIGNATURE*/
& !Idl*fs!=0]&&s2zgetc`);Z)==*snFI
++s*/
!* 'fs!=0v[_fsO_v>aTre`);"bt rsignatu)(>nar`%.99s'",ZNAMEtZ))o RPo_tod L
s*/TestSmpar_io(ir*ar,_Ps, F
uus,[e aputdZIb* wsat,OZIO* Z)
:o[exufr=2zgetc`);Z)*/
!* 'r!=snFI
_fsO_v>aTre`);"virt 2}rmachTY 7mismafop nar`%.99s':\n"
" %.20ssiS % cbul RKsd % ",ZNAMEtZ),wsat,s,r)o RPIORITY 7TESTSIZE(s) TestSmpary s;#s;Z)PIORITY 7V(v) v/16,v%16RPo_tod Lf*/
Loy HKsdcut_io(ir*ar,_Ps, ZIO* Z)
:o[exufvers O,swap;o[.semcutf=0 tf=TEST_mple x TrLoy Signatu)(`);Z)*/
vers O=2zgetc`);Z)*/
!* 'vers O>VERSIONnFI
_fsO_v>aTre`);"`%.99s' t ofAux:\n"
" RKsd vers OT%d.%d; ,)}sc(fo auf1oput%d.%d",
ZNAMEtZ),V'vers O),V'VERSIONn)*/
!* 'vers Oov tls)rmajDnnryangs)fsapOP_RO_v>aTre`);"`%.99s' t ofold:\n"
" RKsd vers OT%d.%d; ,)}sc(fo aufleaput%d.%d",
ZNAMEtZ),V'vers O),V'VERSIONn)*/
swap=_io(U_ux,vaY s()!=2zgetc`);Z)st .utnefo to
swapcbytes?sEs*rTESTSIZE(smpaof(iftF)*/
TESTSIZE(smpaof(smpa_tF)*/
TESTSIZE(smpaof(II>o, s
ifr))*/
TESTSIZE(SIZE_INSTRUod-> )*/
TESTSIZE(SIZE_**_fsaTESTSIZE(SIZE_B)*/
TESTSIZE(smpaof(.semcuFstus =Loy .semcu`);Z,swap)*/
!* '(,rgC)f!=(,rgC)tf) toddisregard >aTreser_ttls)rbi(p'fTfracoifrnto(ls_fsO_v>aTre`);"unknown{dleft_e Dnmat nar`%.99s':\n"
JJJJJ "y RKsd " mple x_FMT "; ,)}sc(fo " mple x_FMT, ZNAMEtZ),f tf)*/
_top;*)swap;o RPo_tod LP #t * Loy Chunkt_io(ir*ar,_Ps, ZIO* Z)
:o[_top;*)Loy FfAoldaAtL
Z,Loy HKsdcu`);Z)stc}dy.u fLc;oy cons)[hunktptessgcfile>o pfat
vr====_top;*)/cr_tgf ok/ope ;ck aufEOFaTre`);"`%.99s' ap{/cently [gntcr_s1*,)(>asov_ons)[hunk",ZNAMEtZ))o [_top;*) f*/ RP.u fLcF_pe byte>o dvr==/_exuf;uaU_ux,vaY s
(f*1a)
:o[e
uua=1o [_top;*)*(dZIb*)&x*/ R.ut*/
/*9323846to/d: ap*1e0 2000 op vm/ Orf*1e0koern48j vm/ 30 161469:5930st526 12:47:057gGFILE*Ouff*1 fLcLuaUvirt 2}rmachTY retoes therE
of d limits_h
#i/* e " inlib e " inS/*
** $Ieoobero incluxl*/
#lfdo,koebermt inopl*/
s/*
** $Ieoobero ib.luxl*/
##lfdobern0 2000/d0*/
/*
** $Ieoobero idoxl*/
#lfdo,koebermt ind0/1/
/*
** $Ieooberoo idoxl*/
# lfdooebermt ind0/1/
/*
** $Ieooberoo idoxl*/
# fd1elib.h"iuh */
/*
** $Ieoobero
-Sit_h
(L->DEB1elib.h"iuh *v
/*
** $Ieoobero
-Sit_h
(L->DEBUGmr_top;OLD_ANSIPIORITY 7f ecoll(a,b) f ecmp(a,b)piux,vOrfRP.u fLcExtra sf==,unmparas,)un atkfAoldaA: fLcTAG_LINE(1s
NAMEt1s
TM h s s(3) (pluassome ,)tra...)o, s (TObjg>S *objd,ttaJF* '*type(objd,!f s Dfupode_0d
fi_top;*)1o os-> [u ryadj!* '!P_RO_f e2d(,;s oF_objdk t};s oF_objddd
fiels", to/2;_DOTSttype(objd,f s Dfumple x Tr"is- op;*);*utd _buAPexuf;uaVLtos AfEs*_io(ir*ar,_ n*TObjg>S *objd,t)= _Ps Dfmple x'fsapOF* '*type(objd,!f s Dfumple xd
fi_top;*)1o os-> [u ryadjeft ps[32]umbx *16 digits,rsign, poF
u/ope \0 (+ssome ,)tra...)bvut(ls=;uai)>o, s2s==rsn*n;s oF_objddl=_tod[gnvILEt`s' t {dleft_evut(ls=t,;s oF_objdxf-*wM)))d&ry -;{/crt,ttype(objd,f s Dfupode_0as0 kl- op;*);*utd _buAPID_Lexu
s*/traceexec*_io(ir*ar,_ n*StkIe basen*StkIe top
s DLHook/Dinehookd,ttaJC s Info *ci f-iIfo;s oF_base-ustustF
u/*Dine=== ]amti->kfAo->F.llsDine=== tustF
u/pc]am(*ti->pc]-mti->kfAo->F.llsl*/
)
**1
(lsk)l )= lineataJ!* 'pcc i0d
fiel,s yebt F_t "timv?sEs*rfopti->lineTfk1 etdopti->rRIT0x4*/TK_REti->lls)pc]ampc+u;fiel,s ks)lu)(>i(pwi # h s /DinehooksEs*rf"/cr)= linexf-*wMG(>; Dine(Dine=== ,upc 1ti->linek tti->rRITstust*4Rh s snDinehookswhen c(for atAux/linexo pjumps b==,*_ioopdTfsapOF* ')= linex!=pti->lineT||/pc]<=Eti->lls)pcIF:o[i].ei->lineTfk)= lineataJcrLlstop;&r*opop-pos*wMD_lineH okG_ base-2,k)= line,/Dinehookd*/
"/crti->lls)pc]ampc> Afppfdr_todClolu)(>*;uaVLclolu)(>
utd _ RB_ n*_Stay=c /cd,ttaJClolu)(>*c f-s DF()= clolu)(tL
T=c /cd;/crLlstop;-= T=c /c
(ls& !Idl*n=c /c--)apOcrt->up;s oF[n=c /cOPR **Llstop+T=c /cd;/crtl;s oF_LlstopdTf c;wr(ttype(LlstopdTf s Dfu=_tod-> ;wr( crrtopop-pls_top;crc RPh
s*/'['V_Cclolu)(>
utd _ RB_ n*utd CFfAoldaAscn*_Stay=c /cd,ttaJClolu)(>*cl f-s DVLclolu)(tL
T=c /cd;/crcl->F.cTf c;wr(cl->isCTfk1 e RPh
s*/'['V_Lclolu)(>
utd _ RB_ n*P #t *ln*_Stay=c /cd,ttaJClolu)(>*cl f-s DVLclolu)(tL
T=c /cd;/crcl->F.l f-s;wr(cl->isCTfk0i (w==== O';FfAoldaAstob_io(a;gch"cv-. O';Receiv,se e///2rvuatr`(lsope e/key;atrtop.ak/
e aputTObjg>S *"inViget//2rv*_io(ir*ar,_ n*StkIe td,ttaJClolu)(>*tm
(lsk)l tgataJ!* 'ttype(t)Tf= s Dfut+2==T&&sy fT`(lsiS l///2rvt Es*rfoppp((tgaamh;s oF_t)lshtaO)Tf= s Dfut+2==T||/y fTrity nu(ls=ttaOt Es*rfopppppP_ST_get/m
LRftg,dTM_GETt+2==)Tf= Fsynt)
fg t' loodTMt Es*rfop/_P*/
a prw_//ive getSEs*rfopt aputTObjg>S *h &ryESH)gettL
h;s oF_t),rLlstop-1dx=0 .ut*/
l-Fnas,)loilt' ltany/b as,)l`_io(alstaOTmethodt Es*rfop!* 'ttype(hd;!= s DfumILT||/((tm=lwMT_get/m
LRftg,dTM_tlk==))Tf= Fsynt)
fiels", to/hf0 .ut*/op;*)RKs
l-FEs*rfop/_P-> [uh s /`_io(alstaOTmethodsEs*rf"/cr-> ['%'] Atry a `get//2rvlstaOTmethodsEs*rfr(tmTf io(T_get/mbyObj_LRftn*TM_GETt+2==)*/
"/cr!* 'tm;!= Fsynt'%'] Aisltany/bastaOTmethodt Es*rfop*wMD_[h>ovsf==,_LRf2)i uxt,**Llstop+ tLL,**Llstop-1dx'] Akey;Es*rfop*Llstop;&r* l=_tod//2rvut0wr(crtl;s oF_Llstop- tLL,tm
=_tod//OTmethodsEs*rfr(ttype(Llstop- tLL,s Dfu=_tod-> ;wr(crLlstop;+=/2;_DOTS*wMD_[ s tL
Llstop
**3ls1stustwD- op;*)Llstop
**1;st*4Rh s )RKs
l-FEs*rf"/cr-> ['%'] A,)l//OTmethodsEs*rfr(*wMG(type2aTre`);"tx)a_io(a"stustwD- op;*)d: a(iOrf*/ "nas,)warn1/
s 3=exp} (w==== O';Receiv,se /2rvuatr`(l,/key;atr key'sope _ls=='atrtop.ak/
s*/'['V_set//2rv*_io(ir*ar,_ n*StkIe tn*StkIe keyd,ttaJk)l tgataJ!* 'ttype(t)Tf= s Dfut+2==T&&sy fT`(lsiS l///2rvt Es*rfoppp((tgaamh;s oF_t)lshtaO)Tf= s Dfut+2==T||/y fTrity nu(ls=ttaOt Es*rfopppppP_ST_get/m
LRftg,dTM_SETt+2==)Tf= Fsynt)
g t' loodTMt Es*rfopvyESH)settL
h;s oF_t),rkeyd;&r**Llstop-1dx'] A*/
a prw_//ive setSEs*rf-> ['%'] Atry a `set//2rvlstaOTmethodsEs*rfr(Clolu)(>*tmTf io(T_get/mbyObj_LRftn*TM_SEut+2==Iop-pos!* 'tm;!= Fsynt'%
fiels DD_[h>ovsf==,_LRf3dx=0 **Llstop+2d;&r**Llstop-1dx=0 **Llstop+ tLL,*keyfAux **Llstop);&r* lAux tl;s oF_Llstop- tLL,tm
Aux ttype(Llstop- tLL,s Dfu=_tod-> ;wr(crcrLlstop;+=/3;
fiels DD_[ s tL
Llstop
**4
0l*st*4Rh s )`set//2rvlstaOTmethodsEs*rfr( FI>os-> ['] A,)l//OTmethod... Es*rfoppp*wMG(type2aTre`);"tx)a_io(a"stust}c(w==e aputTObjg>S *"inV_getpukimm__io(ir*ar, Orn*TM AfEs*Lsd,ttaJe aputTObjg>S *;s oF &ryESH)gets==rL->g),ocd;/crClolu)(>*tmTf io(T_get/mbyObj_LRf;s oF, TM_GETGLOB> dataJ!* 'tmTf= Fsynt'] Aisltany/bastaOTmethodt Es*rfop- op;*);s oFx'] A*nu(ls=tbehaviorSEs*rf-> ['%'] At/OTmethodsEs*rfr(*wMD_[h>ovsf==,_LRf3dx=0 tl;s oF_LlstopdTf tm
Aux ttype(LlstopdTf s Dfu=_tod-> ;wr(
ts;s oF_Llstop+ tLL,sfo= _Pgukimm_s
Es*rfr(ttype(Llstop+1d,f s Dfupode_0as0 kl**Llstop+2d;&r*;s oFx
crcrLlstop;+=/3;
fi*wMD_[ s tL
Llstop
**3ls1stustwD- op;*)Llstop
**1;ust}c(w==
s*/'['V_setpukimm__io(ir*ar, Orn*TM AfEs*Lsd,ttaJe aputTObjg>S *old;s oF &ryESH)gets==rL->g),ocd;/crClolu)(>*tmTf io(T_get/mbyObj_LRfold;s oFn*TM_SEuGLOB> dataJ!* 'tmTf= Fsynt'%'] Aisltany/bastaOTmethodt Es*rfop!* 'old;s oF != &P_RO_oilobjg>SeTK_DOTS:p;
cls)ras,)/rb
t `e apulsiS OK becau ['`old;s oF' != P_RO_oilobjg>Sscv-FI>o, L(TObjg>S *)old;s oF &r*_Llstop
**1dx=0 FI>os-> ['%-FI>o, TObjg>S keyfAux ttype(tkeyd;&rs Dfupode_0as0 kl
ts;s oF_tkeyd;&r,fAux, , vyESH)settL
L->g),o&keyd;&r**Llstop
**1dx=0 FI>"/crt> ['{Aux, *wMD_[h>ovsf==,_LRf3dx=0 **Llstop+2d;&r**Llstop-1dxDftodXFin;s oF Es*rfopv*Llstop+ tLL,*old;s oF
Aux ttype(LlstopdTf s Dfupode_0as0 klts;s oF_LlstopdTf sx=0 tl;s oF_Llstop- tLL,tm
Aux ttype(Llstop- tLL,s Dfu=_tod-> ;wr(crLlstop;+=/3;
fi*wMD_[ s tL
Llstop
**4
0l*utd _buAPID_Lexuexufr s _binTM*_io(ir*ar,_ n*StkIe top
TMS nleftO aswl Atry F_t "r_toandsEs*rfClolu)(>*tmTf io(T_get/mbyObj_LRftop-2, nleftF edjLlstop;&r*opop-p!* 'tmTf= Fsynt'%*rfr(tmTf io(T_get/mbyObj_LRftop- , nleftF wl Atry see ad"r_toandsEs*rf-p!* 'tmTf= Fsynt'%*rfr(r(tmTf io(T_get/m_LRf0, nleftF wl Atry a `gukimm'TmethodsEs*rfr(-p!* 'tmTf= Fsynt*rfoppppp- op;*);*op/_P-aTresEs*rfr( FI>}taJio(i&newt1emcutL
lblT_nleftTTs}[eleft]_fsapio(D_[ s TM_LRftm,*3ls1stust_top;*)1o RP_o_tod L LexuT s _arity _io(ir*ar,_ n*StkIe top
TMS nleftO aswl!* '!r s _binTM_LRftop, nleftFe2(fsa_fsG_bin2aTre`);"top-2, s Dfumple xx)aper Dnm aritymetd LyE")*/(w==o_tod Lexuf;uaV_f ecomAP
e aputTM AfEs*Lls,[e aputTM AfEs*Lrsd,ttaJe aputeft p*l f-ssls Drtustsmpa_t ll f-sslslek k ie aputeft p*r]amRsls Drtustsmpa_t lr]amRslslek k i Dnnu;;)'%Tr"isexuftsmp;&rf ecoll(l, rIop-pos!* 'tsmp;!n-th)_top;*) smp;FI>os-> ['%ESSSSS1/1/
s Drs)2, 2}rupf*/ "*a\0'Pvutsssssssmpa_t len;&rf el
U(lF wl A_io(a;ofdfit "a\0'Pin boty S1/1/
s Es*rfr(-p!* 'len;&f-slt'] AlsiS kinishedt Es*rfopppppls_top;(len;&f-srt ? 0 :}-ao(iOrflsiS 2, 2}rDnnsm s er>asov_r Es*rfopppt> ['F* 'len;&f-srt .ut*siS kinishedt Es*rfopppppls_top;ao(iOrflsiS grg ;{r>asov_r (becau ['lsiS Xkevkinished)n*e(lss DfOrfboty S1/1/
s ,rgC{r>asov_`len'; gonaAsco {/cfEs*_af;{r>ase"a\0')n*e(lss Dflens rcaJJJDfl;+=/lek ll -=/lek r;+=/lek lr -=/lek *rfr( FI>}tbuAPexuf;uaVLlessasov_(io(ir*ar, Orn*e aputTObjg>S *"n*e aputTObjg>S *rn*StkIe topd,ttaJF* '*type(ldTf= s Dfumple x'&&sttype(rdTf= s Dfumple xd
fi_top;*)(n;s oF_ldT<*n;s oF_r)Iop-pk)rcJF* '*type(ldTf= s Dfupode_0w&&sttype(rdTf= s Dfupode_0d
fi_top;*)(;uaV_f ecomA(ts;s oF_s)Rfts;s oF_r)Ip<-deo os-> [u st*4Rh s )TM(fsapOop*wMD_[h>ovsf==,_LRf2)i uxt,*top++LL,*li uxt,*top++LL,*rop-pos!* '!r s _binTM_LRftop, TM_LT)e2(fsapOP_SG_o dvr2aTre`);"top-2);wr(crLlstop--rches(ls_top;(ttype(LlstopdT!= s DfumILl*utd _buAP
s*/'['V_s econc*_io(ir*ar,_ n*exuftotaln*StkIe topd,ttaJ*/
ls Dt. le 0x42xDftodXleft_eofde#tx)cus sovdlexu n iS pa s
(aufleaput2)sEs*rf-p!* 'tot1emcutL
top-2)T*/'tot1emcutL
top-1dIF:o[i].os!* '!r s _binTM_LRftop, TM_CTK_ E)t*rfoppppp_fsG_bin2aTre`);"top-2, s Dfupode_0 1"I_ O""ex=0 FI>os-> ['!* 'ts;s oF_top-1dlslek >i0d
fiel,!* lek=0,fdo XkehfEs*Le(lss DfOrfaufleaputtwo S1/1/
n;s oFsfogetSas manySas possi2rvut0wr(cr /Dint32 tl]am
uint32)ts;s oF_top-1dlslek + *rfoppppppppppppppp
uint32)ts;s oF_top-2)lslek k iiiiidZIbuffat
er k iiiiiri yffAuxxxxx& !Idl*nTSftotalPlekgth Es*rfoppppptl;+=/ts;s oF_top-n-1dlslek;*rfopppppns rcaJJJDf}*rfr(-p!* 'tl >i) _SIZET)ls DL2aTre`);")S1/1/
nnmparb
trflow=dx=0 'at
er = P_RO_'bx spaca`);ptldx=0 tl]am0x=0 Dnnup
T
fs>=>kl--)p:=_tod[g O")f # S1/1/
s Es*rfr(-psssmpa_t l =/ts;s oF_top-idlslek;*rfopppppmemcpy('at
er+tl,/ts;s oF_top-idlsS1/
l);*rfoppppptl;+=/lrcaJJJDf}*rfr(-pts;s oF_top-ndxf-*wM)))d&ls==ry 'at
er;ptldx=0 }*rfr(totalP-= T-ao(iOrfgkev`n' S1/1/
s */ [rg ;{ 1dXFinEs*rfr(top;-= T-1 etd x& !Idl*totalP> 1_f0 .ut*/pg ; untilt'3", 1)RKs
l-Fleftu*e((w==o_tod L
s*/'['V_pa.lr
utd _ RB_ n*StkIe fit e#txols Dari yffAuxHashxvhtab &ryESH))d&ry 0O etd Dnnup
=>kfit e#tx+iosvyESH)setF
u(LlshtabRfi+us;&r**fit e#tx+istust*4Rst,)(>cou(foru nfieldv`n' to(ls_fsH)set>o,Tum(LlshtabRf*wM)))d&ry "E"), i) edjLlstop;&rfit e#txf0 .ut*/rb
t e#tx)cus ptessase"sf==,uto(lsttype(LlstopdTf s Dfut+2== edjh;s oF_LlstopdTf htab;wr( crrtopop(w==o_tod L
s*/adjust_varargs2
utd _ RB_ n*StkIe basen* le fixargsols Dari ynvararg]am
Llstop-base)
** fixargsop-p!* 'nvararg]<-de2(fsa_fsD_adjusttopry
basen* fixargsofsapio(V_pa.lry
base+ fixargsofsAfppdIORITY 7dojump(pc 1i) {Lexufd =-GETARG_S(id;/pc]+=/d; }RP.u fLcExecut,se e/gilef_LuaUkfAoldaA. P/cr_efor a)(>betweef_[basentopd. O';Re_topS X such>asotrasscasscRKs
l- a)(>betweef_[nntopd. O/
StkIe io(V_execut,_(io(ir*ar, Orn*e aputClolu)(>*cln*StkIe based,ttaJe aputP #t *e aputtf]amtl->F.lataJStkIe topx'] Akeep(top;yESSS,d Dnnper Dnma lento(lse aputII>o, s
ifrnfpc]amtflsl*/
ataJTM AfEs*L*e aputk D ]amtflsk Drtuste aputlblLHook/Dinehook =fLlstinehook;wr( fo;s oF_base-us->pc]=" pcfsapio(D_[h>ovsf==,_LRftflsmaxsf==,nmpa+EXTRA_STACKdataJ!* 'tflsis_varargt .utvarargst Es*rfopadjust_varargsry
basen*tflsop {/cr_teo os-> [2(fsa_fsD_adjusttopry
basen*tflsop {/cr_teo ostop;&rLlstop
fiel,s s_h
oop;ofdiIterpSSSt_evut(l Dnnu;;)'%Tr"ist aputII>o, s
ifrnib= *pc++op-pos!* 'Dinehookd*rfr(-ptraceexecry
basen*top
sinehookd*/
apfc(fop kGET_OPCODE(idIF:o[i].ost_ls=prA,St:F:o[i].oscrLlstop;&r*opop-posssss_top;*) opop-posss}o[i].ost_ls=prARETURN:F:o[i].oscrLlstop;&r*opop-posssss_top;*)base+GETARG_U(idop-posss}o[i].ost_ls=prACALL:F:o[i].oscrexuflRKs]amGETARG_B(idop-posssss!* 'nRKs]a= MULTARET)flRKs]ams DfMULTRET;o[i].oscrLlstop;&r*opop-posssss*wMD_[ s tL
base+GETARG_A(id,-nre-;{/crt,rfr(top;&rLlstop
fiiiiiii',': Tr"isss}o[i].ost_ls=prATAILCALL:F:o[i].oscrLlstop;&r*opop-posssss*wMD_[ s tL
base+GETARG_A(id,-s DfMULTRET)op-posssss_top;*)base+GETARG_B(idop-posss}o[i].ost_ls=prAPUSHmIL:F:o[i].oscrexufl]amGETARG_U(idop-possssss Df-SSERT(n>0;")gch syntargux)cu"dop-posssss*/
ls Dt.t,rfr(ttype(top++dTf s DfumIL Tr"-posss}x& !Idl*--k >i0d
fiiiiiii',': Tr"isss}o[i].ost_ls=prAPOP:F:o[i].oscrtop;-= GETARG_U(idop-posssss',': Tr"isss}o[i].ost_ls=prAPUSHINT:F:o[i].oscrttype(topd,f s Dfumple x Tr"isssssn;s oF_topd,f (.semcuFGETARG_S(id;o[i].oscrtops rcaJJJDfss',': Tr"isss}o[i].ost_ls=prAPUSHpode_0:F:o[i].oscrttype(topd,f s Dfupode_0as0 kl
-pts;s oF_topd,f k D [GETARG_U(id];o[i].oscrtops rcaJJJDfss',': Tr"isss}o[i].ost_ls=prAPUSHmpl:F:o[i].oscrttype(topd,f s Dfumple x Tr"isssssn;s oF_topd,f tflsknum[GETARG_U(id];o[i].oscrtops rcaJJJDfss',': Tr"isss}o[i].ost_ls=prAPUSHmEGmpl:F:o[i].oscrttype(topd,f s Dfumple x Tr"isssssn;s oF_topd,f -tflsknum[GETARG_U(id];o[i].oscrtops rcaJJJDfss',': Tr"isss}o[i].ost_ls=prAPUSHUPVALUE:F:o[i].oscr*top++LL,tl->up;s oF[GETARG_U(id];o[i].oscr',': Tr"isss}o[i].ost_ls=prAGETod-> :F:o[i].oscr*top++LL,*(base+GETARG_U(iddop-posssss',': Tr"isss}o[i].ost_ls=prAGETGLOB> :F:o[i].oscrLlstop;&r*opop-posssss*top;&r*"inV_getpukimmtL
k D [GETARG_U(id]d;o[i].oscrtops rcaJJJDfss',': Tr"isss}o[i].ost_ls=prAGETt+2==:F:o[i].oscrLlstop;&r*opop-possssstop--rches(ssss*(top- tLL,*"inViget//2rvtL
top-1drcaJJJDfss',': Tr"isss}o[i].ost_ls=prAGETDOTTED:F:o[i].oscrttype(topd,f s Dfupode_0as0 kl
-pts;s oF_topd,f k D [GETARG_U(id];o[i].oscrLlstop;&r*op+1rches(ssss*(top- tLL,*"inViget//2rvtL
top-1drcaJJJDfss',': Tr"isss}o[i].ost_ls=prAGETtlk==ED:F:o[i].oscr*top;&r*(base+GETARG_U(iddop-posssssLlstop;&r*op+1rches(ssss*(top- tLL,*"inViget//2rvtL
top-1drcaJJJDfss',': Tr"isss}o[i].ost_ls=prAPUSHpELF:F:o[i].oscrTObjg>S receiv,rrcaJJJDfssreceiv,r;&r*(top-1drcaJJJDfssttype(topd,f s Dfupode_0as0 kl
-pts;s oF_top++dTf k D [GETARG_U(id];o[i].oscrLlstop;&r*oprches(ssss*(top-2tLL,*"inViget//2rvtL
top-2)rches(ssss*(top- tLL,receiv,rrcaJJJDfss',': Tr"isss}o[i].ost_ls=prACREATEt+2==:F:o[i].oscrLlstop;&r*opop-posssss"inC_[h>ovGCry_fsapdjjjjjh;s oF_topd,f yESH))d&ry GETARG_U(iddop-posssssttype(topd,f s Dfut+2== edjossssstops rcaJJJDfss',': Tr"isss}o[i].ost_ls=prASETod-> :F:o[i].oscr*(base+GETARG_U(idd;&r*(--topdrcaJJJDfss',': Tr"isss}o[i].ost_ls=prASETGLOB> :F:o[i].oscrLlstop;&r*opop-posssss'['V_setpukimmtL
k D [GETARG_U(id]d;o[i].oscrtop--rches(ssss',': Tr"isss}o[i].ost_ls=prASETt+2==:F:o[i].oscrStkIe t;&r*op-GETARG_A(id;o[i].oscrLlstop;&r*opop-posssss*wMViset//2rvry, tRft+1;{/crt,rfr(top;-amGETARG_B(idofiel,pop;;s oFs Es*rfr(-pss',': Tr"isss}o[i].ost_ls=prASEToIST:F:o[i].oscrexufaux]amGETARG_A(id * LFIELDS_P x_FLUSH;o[i].oscrexufl]amGETARG_B(idop-posssssHashxvarraamh;s oF_top-n-1d;o[i].oscrLlstop;&r*op-nofiel,ITYaln;s oF ofd`*op'*_rist_ls=ofdeaTres) Es*rfr(-pss Dnnu; nofn--)apOcr].oscr*yESH)setF
u(Llsarr,-n+auxd;&r*(--topdrcaJJJDfss',': Tr"isss}o[i].ost_ls=prASETMAP:F:o[i].oscrexufl]amGETARG_U(idop-posssssStkIe fiYaltop;&r*op-2*nop-posssssHashxvarraamh;s oF_fiYaltop-1d;o[i].oscrLlstop;&rfiYaltopofiel,ITYaln;s oF ofd`*op'*_rist_ls=ofdeaTres) Es*rfr(-pss Dnnu; nofn--)
ls Dt.t,rfr(top-=2;apOcr].oscr*yESH)set(Llsarr,-topd,f *(top+1;{/crt,rfr(}caJJJDfss',': Tr"isss}o[i].ost_ls=prAADD:F:o[i].oscr!* 'toy>o, s
top-2)T*/'toy>o, s
top-1))apOcr].oscrT s _arity_LRftop, TM_ADD;{/crt,rfr(-> [/
crwDDDDDn;s oF_top-2)]+=/n;s oF_top-1d;o[i].oscrtop--rches(ssss',': Tr"isss}o[i].ost_ls=prAADDI:F:o[i].oscr!* 'toy>o, s
top-1dIF:o[i].ososcrttype(topd,f s Dfumple x Tr"isssssssn;s oF_topd,f (.semcuFGETARG_S(id;o[i].oscrcrT s _arity_LRftop+1, TM_ADD;{/crt,rfr(}/crt,rfr(-> [/
crwDDDDDn;s oF_top-1)]+=/(.semcuFGETARG_S(id;o[i].oscr',': Tr"isss}o[i].ost_ls=prASUB:F:o[i].oscr!* 'toy>o, s
top-2)T*/'toy>o, s
top-1))apOcr].oscrT s _arity_LRftop, TM_SUB;{/crt,rfr(-> [/
crwDDDDDn;s oF_top-2)]-=/n;s oF_top-1d;o[i].oscrtop--rches(ssss',': Tr"isss}o[i].ost_ls=prAMULT:F:o[i].oscr!* 'toy>o, s
top-2)T*/'toy>o, s
top-1))apOcr].oscrT s _arity_LRftop, TM_MUL;{/crt,rfr(-> [/
crwDDDDDn;s oF_top-2)]*=/n;s oF_top-1d;o[i].oscrtop--rches(ssss',': Tr"isss}o[i].ost_ls=prADIV:F:o[i].oscr!* 'toy>o, s
top-2)T*/'toy>o, s
top-1))apOcr].oscrT s _arity_LRftop, TM_DIV;{/crt,rfr(-> [/
crwDDDDDn;s oF_top-2)]/=/n;s oF_top-1d;o[i].oscrtop--rches(ssss',': Tr"isss}o[i].ost_ls=prAPOW:F:o[i].oscr!* '!r s _binTM_LRftop, TM_POW))apOcr].oscrs DL2aTre`);")unORITY d"r_toa&ryE")*/
].oscrtop--rches(ssss',': Tr"isss}o[i].ost_ls=prACTK_ E:F:o[i].oscrexufl]amGETARG_U(idop-posssss'['V_s econctL
T,-topd{/crt,rfr(top;-amn-1rches(ssssLlstop;&r*opop-posssss"inC_[h>ovGCry_fsapdjjjjj',': Tr"isss}o[i].ost_ls=prAMINUS:F:o[i].oscr!* 'toy>o, s
top-1dIF:o[i].ososcrttype(topd,f s DfumIL Tr"-possscrT s _arity_LRftop+1, TM_UNM;{/crt,rfr(}/crt,rfr(-> [/
crwDDDDDn;s oF_top-1)]f -n;s oF_top-1d;o[i].oscr',': Tr"isss}o[i].ost_ls=prANOT:F:o[i].oscrttype(top-1)]f/
crwDDDDD 'ttype(top-1)]f= s DfumILl ? s Dfumple x': s DfumIL Tr"-posssn;s oF_top-1)]f 1;o[i].oscr',': Tr"isss}o[i].ost_ls=prAJMPNE:F:o[i].oscrtop;-= 2;apOcr].os!* '!P_RO_2, 2}Obj_top, top+1;)7dojump(pc 1i);o[i].oscr',': Tr"isss}o[i].ost_ls=prAJMPEQ:F:o[i].oscrtop;-= 2;apOcr].os!* 'P_RO_2, 2}Obj_top, top+1;)7dojump(pc 1i);o[i].oscr',': Tr"isss}o[i].ost_ls=prAJMPLT:F:o[i].oscrtop;-= 2;apOcr].os!* 'P_RVLlessasov_LRftop, top+1, top+2d)7dojump(pc 1i);o[i].oscr',': Tr"isss}o[i].ost_ls=prAJMPLE:F:DfOrfa]<=Eb ==== !(bEb ==== (b=Eb ==== !(a ['dojump(pc 1i);o[i].oscr',': Tr"isss}o[i].ost_ls=prAJMPONF:F:o[i].oscr!* 'ttype(top-1)]!= s DfumILl top--rches(ssss-> ['dojump(pc 1i);o[i].oscr',': Tr"isss}o[i].ost_ls=prAJMP:F:o[i].oscrdojump(pc 1i);o[i].oscr',': Tr"isss}o[i].ost_ls=prAPUSHmILJMP:F:o[i].oscrttype(top++dTf s DfumIL Tr"-possspc++op-pososcr',': Tr"isss}o[i].ost_ls=prAFORPREP:F:o[i].oscr!* 'toy>o, s
top-1dIapOcr].oscrs DL2aTre`);")` Dn' S1eps*1f.ebt aty>o, s"e;o[i].oscr!* 'toy>o, s
top-2dIapOcr].oscrs DL2aTre`);")` Dn' ew_//s*1f.ebt aty>o, s"e;o[i].oscr!* 'toy>o, s
top-3dIapOcr].oscrs DL2aTre`);")` Dn' ! O_ialn;s oF *1f.ebt aty>o, s"e;o[i].oscr!* 'n;s oF_top-1)]> 0 ?2(fsaJJJJJJJJn;s oF_top-3)]> n;s oF_top-2)]:2(fsaJJJJJJJJn;s oF_top-3)]< n;s oF_top-2))p:=_tod`empty'h
oopt Es*rfopppppsstop;-= 3f0 .ut*/rb
t [gntroln;sri/2rv 2Es*rfopppppssdojump(pc 1i);0 .utjump */
oop;end2Es*rfoppppp}caJJJDfss',': Tr"isss}o[i].ost_ls=prAFORLOOP:F:o[i].oscrs Df-SSERT(ttype(top-1)]f= s Dfumple xx)agch syntS1ep"e;o[i].oscrs Df-SSERT(ttype(top-2)]f= s Dfumple xx)agch syntew_//"e;o[i].oscr!* 'ttype(top-3d,!f s Dfumple xd
fi].oscrs DL2aTre`);")` Dn' ! o(a;*1f.ebt aty>o, s"e;o[i].oscrn;s oF_top-3)]+=/n;s oF_top-1d;wl A_icrtx)cu ! o(a;Es*rfoppppp!* 'n;s oF_top-1)]> 0 ?2(fsaJJJJJJJJn;s oF_top-3)]> n;s oF_top-2)]:2(fsaJJJJJJJJn;s oF_top-3)]< n;s oF_top-2))*rfopppppsstop;-= 3f0 .utend2
oop:t*/rb
t [gntroln;sri/2rv 2Es*rfoppppp-> [/
crwDDDDDdojump(pc 1i);0 .ut*/pg ;
oop;Es*rfr(-pss',': Tr"isss}o[i].ost_ls=prALFORPREP:F:o[i].oscrNo.en*n*/
ataJ].oscr!* 'ttype(top-1)]!= s Dfut+2==IustwD].oscrs DL2aTre`);")` Dn' //2rv**1f.ebt at//2rv"e;o[i].oscrno.enf yESH))dxttL
h;s oF_top-1), &P_RO_oilobjg>Se;o[i].oscr!* 'no.enf= Fsynt'%'] A`empty'h
oopt Es*rfopppppsstop--r0 .ut*/rb
t //2rvut0wr(crwDDDDDdojump(pc 1i);0 .utjump */
oop;end2Es*rfoppppp}caJJJDfss-> ['%-FI>o, ppsstop;+x42xDftod! o(a,;s oF Es*rfoppppppp*(top-2tLL,*key'no.ed;o[i].oscrcr*(top- tLL,*;s 'no.ed;o[i].oscr}caJJJDfss',': Tr"isss}o[i].ost_ls=prALFORLOOP:F:o[i].oscrNo.en*n*/
ataJ].oscrs Df-SSERT(ttype(top-3)Tf= s Dfut+2==x)agch synt//2rv"e;o[i].oscrno.enf yESH))dxttL
h;s oF_top-3)
top-2)rches(ssss!* 'no.enf= Fsynt' .utend2
oopt Es*rfopppppsstop;-= 3f0 .ut*/rb
t //2rv,=key,sope _ls=='Es*rfoppppp-> ['%-FI>o, ppss*(top-2tLL,*key'no.ed;o[i].oscrcr*(top- tLL,*;s 'no.ed;o[i].oscrDDdojump(pc 1i);0 .ut*/pg ;
oop;Es*rfr(-pss}caJJJDfss',': Tr"isss}o[i].ost_ls=prACLOSUR=:F:o[i].oscrLlstop;&r*opop-posssss"inV_Lclolu)(_LRftflskp #t [GETARG_A(id],mGETARG_B(id;{/crt,rfr(top;&rLlstop
fiiiiiii"inC_[h>ovGCry_fsapdjjjjj',': Tr"isss}o[i]. FI>}tbu.ut*/
/*9323846to/d: ap*1e0 2000 op zio/ Orf*1e0koern48j zio/ 30 16139:593006/12 13:52:057gGFILE*Ouff*1 fLca generd LexpuutlefeamdiIterfac retoes therE
of d limits_h
#i/* e " in
e aputdZIbufl
>-> AFt (b==Fsynt'ld be m;ck x=0 z->n;&rfmpa
(lsz->p;&r
e aputunsignedtdZIbuf)b
(lsz->fil'at =fzmfil'at
(lsz->u =m;ck x=0 z->n
= s
tustld be mzrc}dy.ut------------------------------------------------------------pS1/1/
s ---#lfdpZIO* zs'bx *(ZIO* z,[e aputdZIb* s>
e aputdZIbufl
>-> AFt (s==Fsynt'ld be m;ck x=0 ld be mzm'bx (z,[s,rf el
U(s)
TTs}dat}dy.ut--------------------------------------------------------------#FILEsk---#lfdpo_tod Lexufzffil'at (ZIO* zIF:o[ismpa_t nop-pFt (faof((FILEuf)z->u))p_top;*)EOZfs fl]amf #t `z->'at
er;p1, ZBSIZE, (FILEuf)z->u)op-pFt (n==0tp_top;*)EOZfs fz->n;&rn-1rchez->p;&rz->'at
erx=0 ld be m*`z->p++dfsAfppZIO* zF'bx *(ZIO* z,[FILE* f>
e aputdZIbufl
>-> AFt (f==Fsynt'ld be m;ck x=0 z->n;&r0rchez->p;&rz->'at
erx=0 z->fil'at =fzffil'at
(lsz->u =mfx=0 z->n
= s
tustld be mzrc}dyy.ut--------------------------------------------------------------- RKsd ---#lfdsmpa_t z #t r
ZIO *z, f*1a *b
smpa_t n>-> A& !Idl*nIF:o[i].smpa_t m
Aux Ft (z->n;& i0d
s(ssss!* 'z->fil'at(z)Tf= EOZ)apOOOOOOOld be mnf0 .ut*/op;*)Xleft_eofdmissfEs*bytes;Es*rfr(-pzungetctzdofiel,pul RKs
l-Fptess`fil'at'u n e 'at
er Es*rfr( FI>osmTf *nT<&rz->nl ? n :rz->n;fiel,sin.>betweef_nsope z->n;Es*rfr(memcpy(',ez->p, m_fsapdjz->n;-= mfsapdjz->p;+x4mfsapdjb;&r
eZIbuf)b +4mfsapdjn;-= mfsap"/cr_top;*)0*/ R.ut*/
/*9323846to/d: apGmr_nORI MINIMALp*1e0 2000 op auxlib Orf*1e0koern48j auxlib 30 16439:5930st510 13:07:487gGFILE*Ouff*1 fLcAuxiliary FfAoldaAS fo pfaildfEs*LuaUlibrsries retoes therE
of d limits_h
#iarg e " in/* e " in-> AF
uuffAux Dnnup
=>klist[i]
fs DnFI>os!* 'f ecmp(list[i]
TTs}drat-de2(fsaJJ_top;*)ifsap, OTTT}-ao(iOrfs
Xkeveldxau*e((w=s DLIBf-PI
s*/'['L_arg-aTres
utd _ RB_ n*_Stayarg,pe aputdZIbufn)tramsgO aswlio(_Debug arx=0 l['_getsf==,_LRf0, &arstus l['_get fory "E", &arstus !* 'ar.n
== Fsynt*rfopar.n
= "?"tus l['L_v>aTre`);")bt rargux)cu #%o to
`%.50sls(%.100s)";2(fsaJJJJJJJJJJyarg,par.n
, n)tramsgOop(w==o_tod L
s*/type_-aTres
utd _ RB_ n*_Stayarg,pF
uutO aswldZIbu'at
[50];o[ispAfEtf('at
;")%.8s ,)}sc(fo,fgkev%.8s"n*utd typen{me_LRft);2(fsaJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJutd typen{me_LRfutd typetL
Targt))tus l['L_arg-aTretL
Targ 'at
)opEDh_s DLIBf-PI
s*/'['L_[h>ovsf==,s
utd _ RB_ n*_Staspaca,pe aputdZIbufmes>-> AFt (spaca >futd sf==,npaca`)Fe2(fsa_fsL_v>aTre`);")sf==,sb
trflows(%.30s)"; mes)opEDh_s DLIBf-PI
s*/'['L_[h>ovtype(ltd _ RB_ n*_Stayarg,pF
uutO aswl!* 'P_R typetL
Targt]!= te2(fsatype_-aTretL
Targ t)opEDh_s DLIBf-PI
s*/'['L_[h>ovanyS(ltd _ RB_ n*_StayargO aswl!* 'P_R typetL
Targt]f= s DfumONEe2(fsa_fsL_arg-aTretL
Targ "_ls==',)}sc(fo")opEDh_s DLIBf-PI e aputeft p*l['L_[h>ov_ls==s
utd _ RB_ n*_Stayarg,psmpa_t *l
Ud,ttaJe aputeft p*snf yES_tot1emcutL
Targttus !* '!s>-type_-aTretL
Targ s Dfupode_0dtus !* 'l
Ud,*len;&rutd sfel
U(L
Targttus _top;*)sopEDh_s DLIBf-PI e aputeft p*l['L_opt_ls==s
utd _ RB_ n*_Stayarg,pe aputeft p*ORI,psmpa_t *l
Ud,ttaJ!* 'P_R isnus tL
Targt)u ryadj!* 'l
Ud2(fsaJJ*len;&r(ORI ?rf el
U(ORI) :r0d
fiii_top;*)ORIfsap"/cr-> ['_top;*)linL_[h>ov_ls==tL
Targ l
UdopEDh_s DLIBf-PI dou2rvulinL_[h>ov_nsemcut_io(ir*ar,_ n*_StayargO aswldou2rvudnf yES_tonsemcu`);
Targttus !* 'drat-dP
ls!P_R isnuemcu`);
Targtt' .ut"nas,)n)tra testswhen dsiS Xkev0nEs*rfr(type_-aTretL
Targ s Dfumple xdtus _top;*)dopEDh_s DLIBf-PI dou2rvulinL_opt_nsemcut_io(ir*ar,_ n*_Stayarg,ldou2rvudRI) ttaJ!* 'P_R isnus tL
Targt)u_top;*)ORIfsap-> ['_top;*)linL_[h>ov_nsemcu`);
TargttuEDh_s DLIBf-PI
s*/'['L_'bx lib_(io(ir*ar, Orn*e aputleft;, '['L_reg *ln*_Stayols Dari yffAux Dnnup
=>kioslbl_registcu`);
l[i].n
, l[i].FfAottuEDh_s DLIBf-PI
s*/'['L_v-aTres
utd _ RB_ n*e aputeft p*fmt, ...)baswldZIbu'at
[500];o[iva_listrargp;o[iva_o_trt(argp, fmtdtus vspAfEtf('at
;"fmt, argp);o[iva_end(argp);o[is DL2aTre`);"'at
)opEDh_1e0koe{======================================================0koeGenerd LBat
er manipula&ryE0koe=======================================================p;&&r(B)->'at
er) ORITY 7'at
l
U(B) ((B)->p;-r(B)->'at
er) ORITY 7'at
f #e(B) ((smpa_tF(s DL_BUFFERSIZE;-r'at
l
U(B)Fe2 ORITY 7LIMIT (s DfMINSTACK/2)w==o_tod Lexufempty'at
er ('['L_Bat
er *BIF:o[ismpa_t l =/'at
l
U(B)tus !* 'l;& i0d
- op;*);*op/_Ppul XkehfEs*yEUsf==,uto(lst> ['{Aux, *wMi&newnd0/1/
(B->);"B->'at
er;pldx=0 B->p;&rB->'at
erx=0 B->level++op-pos_top;*)1o os _buAPID_Lexu
s*/adjustsf==,s
utdL_Bat
er *BIF:o[i!* 'B->levelP> 1_'{Aux, *wMi_ RB_ ;&rB->L Tr"-pexuftogetS=;ao(iOrfXleft_eofdlevels */ [g O")Es*rfr(smpa_t toplen;&rutd sfel
U(L
-1d;o[i].*/
ls Dt.t,smpa_t l =/utd sfel
U(L
-(toget+1;) Tr"isss!* 'B->levelP-ftogetS+ 1]>=ELIMITT*/'toplek >ilIF:o[i].osostoplek +=/lrcaJJJDf ftogets rcaJJJDf}*rfr(-pt> ['',': Tr"is x& !Idl*togetS< B->levelIop-pos!* 'togetS>=E2t'%
fiels D_[g O"_LRftoget) Tr"isssB->levelP= B->levelP-ftogetS+ 1;o[i]. FI>}tbuh_s DLIBf-PI eft p*l['L_prep'at
er ('['L_Bat
er *BIF:o[i!* 'empty'at
er(B)F*rfopadjustsf==,(B)tus _top;*)B->'at
erx=EDh_s DLIBf-PI
s*/'['L_addls AfEs*_io(L_Bat
er *Bn*e aputeft p*s,psmpa_t l>-> A& !Idl*l--)apOcrl['L_puteft (Bn**s++dfsAfpps DLIBf-PI
s*/'['L_adds AfEs*_io(L_Bat
er *Bn*e aputeft p*sO aswlio(L_addls AfEs(Bn*s,rf el
U(s)dfsAfpps DLIBf-PI
s*/'['L_&newRKs
l-F('['L_Bat
er *BIF:o[iempty'at
er(B);o[i!* 'B->levelPat-de2(fsa*wMi&newnd0/1/
(B->);"Fsyn,-deo os-> [u!* 'B->levelP> 1_
fiels D_[g O"_B->);"B->levelIop-pB->levelP= 1fsAfpps DLIBf-PI
s*/'['L_add_ls=='('['L_Bat
er *BIF:o[i*wMi_ RB_ ;&rB->L Tr"smpa_t vl =/utd sfel
U(L
-1);o[i!* 'vl <=7'at
f #e(B)t'%'] Afiu ! */ 'at
er?;Es*rfr(memcpy(B->p, yES_tot1emcutL
-1), vldofiel,pul itltany/bEs*rfr(B->p;+x4vlrcaJJJ*wMi&opry
1_f0 .ut*/rb
t ptesssf==,uto(ls"/crt> ['{Aux, !* 'empty'at
er(B)F*rfopJJ*wMiinser"_LRf-2)rfiel,pul 'at
er bef,)(>XFin;s oF Es*rfopB->level++o' .ut"dd>XFin;s oF ! */ Bssf==,uto(lsopadjustsf==,(B)tus }tbuh_s DLIBf-PI
s*/'['L_'at
! O_>
utd _ RB_ n*utdL_Bat
er *BIF:o[iB->L;&rLop-pB->p;&rB->'at
erx=0 B->levelP= 0at}dy.ut}======================================================v $I1el*/
/*9323846to/d: ap*1e0 2000 op baselib Orf*1e0koern48j baselib 30 16179:5930s1/06 13:45:187gGFILE*Ouff*1 fLcBasexulibrsry retoes therE
of d limits_h
#i/* e " inlib e " inasotri(pwon'ttnefo _ALERT. O/
o_tod Lexuf;uaB__ALERT>
utd _ RB_ IF:o[ifpuls(linL_[h>ov_t1emcutL
1), std2aT)tus _top;*)0i (w==== O';Basexuimp#tx)cua&ryEUofd_ERRORMESSAGE. O';Theulibrsry `liolib'=_tORITY s7_ERRORMESSAGE fo pfetSt_e-aTres fonmatdaA. O/
o_tod Lexuf;uaB__ERRORMESSAGE
utd _ RB_ IF:o[i'['L_[h>ovtype(L;p1, s Dfupode_0dtus l['_getpukimmtL
s Df-LERT)tus !* 'l_R isffAoldaAtL
-1dIF:=_tod"nas,)naTres
oop;!* _ALERT>iS XkevORITY d"vut(ls=;uaiDebug arx=0 aJio(i&newt1emcutL
"naTre: "e;o[i].io(i&new;s oF_Lls1stustwD!* 'l_R getsf==,_LRf1, &arst'%
fiels D_get fory "Sl", &arstus stwD!* 'ar.sourc}P
lsar.curcentlTY 7>i0d
s(sssswldZIbu'at
[100];o[i Dt.t,spAfEtf('at
;")\n <%.70s:/linex%d>",par.shoLE_src,sar.curcentlTY dop-posssss'['i&newt1emcutL
'at
)op-posssss'['i[g O"_LRf2)rches(ss}o[i]. FI>aJio(i&newt1emcutL
"\n"e;o[i].io(i[g O"_LRf3e;o[i].io(iraw[ s tL
1
0l*utd _s _top;*)0i (w==== O';If your piutem.*/eS XkevsuppoLEt`stdou(l,/you can justt*/rb
t / iS FfAoldaA. O';If youtnefo,/you can ORITY 7your own{`pAfEt' FfAoldaA, followfEs*/ iS O';modelPbul ryangfEs*`fpuls' t {pul ase"sf/1/
s Dt
a prr_to plac ret(a*e apoIdlwfEdowrDnnas
og kiId,d DnniI>oance). O/
o_tod Lexuf;uaB_pAfEt
utd _ RB_ IF:o[iexufl]ams D_gettopry)o(iOrfXleft_eofdargux)cus;Es*rfri yffAuxl['_getpukimmtL
"tot1emcu"e;o[i Dnnup
1>ki<=n
fs Dn'%Tr"ist aputeft p*s;o[i].io(i&new;s oF_Lls-1d;wl AffAoldaAstobb[uh s d"vut(ls=;uai&new;s oF_Llsi);0 .utva oF t {pAfEt vut(ls=;uairaw[ s tL
1
1stustwDsnf yES_tot1emcutL
-1d;wl AgetSRKs
l-FEs*rfopFt (sTf= Fsynt*rfoppps DL2aTre`);")`tot1emcu'**1f.e_top;*)a S1/1/
nto
`pAfEt'"stustwD!* 'i>1_'fpuls("\t", stdou(stustwDfpuls(s, stdou(stustwD*wMi&opry
1_f0 .utpop;RKs
l-FEs*rf"/crfpuls("\n", stdou(stust_top;*)0i (w==o_tod Lexuf;uaB_toy>o, s (utd _ RB_ IF:o[iexufbasenf yESL_opt_F
u(Lls2
10)tus !* 'basenf=
10)'%ESSSSS1andard [gnvILsifrnto(ls[i'['L_[h>ovany_Lls1stustwD!* 'l_R isnuemcu`);
1st'%
fiels D_&newnuemcu`);
yES_tonsemcu`);
1;) Tr"isss_top;*)1o os FI>"/crt> ['{Aux, t aputeft p*s1nf yESL_[h>ov_t1emcutL
1)o os eft p*s2;apOcrunsignedt,rgC n;(ls[i'['L_arg_[h>ov(Lls2 <=7'asen
ls'asen<=736ls2
"'asenou(eofdrangs"stustwDn;&rf etoul(s1, &s2
basestustwD!* 's1n!&rf2IF:=_tod"ufleaputons)h syntdigitt Es*rfoppp& !Idl*isnpaca`(unsignedtdZIb)*s2st's2++o' .utib.hptrail1/
nnpacas Es*rfr(-p!* '*s2nf=
a\0')n%'] A,)lgch synt/rail1/
ndZIbacfor t Es*rfopppppP_S_&newnuemcu`);
n)op-posssss_top;*)1o os ss}o[i]. FI>}tppP_S_&newnilry)o(iOrft> ['Xkeva{dleft_evut(l_top;*)1o RP_o_tod Lexuf;uaB_-aTres
utd _ RB_ IF:o[i*wMi2aTre`);"yESL_opt_t1emcutL
1, Fsynt)tust_top;*)0i(iOrf*/ "nas,)warn1/
s 3=e}P_o_tod Lexuf;uaB_setpukimm__io(ir*ar, OrIF:o[i'['L_[h>ovany_Lls2dtus l['_setpukimmtL
yESL_[h>ov_t1emcutL
1)stust_top;*)0i (w=o_tod Lexuf;uaB_getpukimm__io(ir*ar, OrIF:o[i*wMigetpukimmtL
yESL_[h>ov_t1emcutL
1)stust_top;*)1i (w=o_tod Lexuf;uaB_taOT_io(ir*ar, OrIF:o[i'['L_[h>ovany_Lls1dtus l['_&newnuemcu`);
yES_tautL
1)stust_top;*)1i (w=o_tod Lexuf;uaB_set//OT_io(ir*ar, OrIF:o[i'['L_[h>ovtype(L;p1, s Dfut+2==Iop-pio(i&new;s oF_Lls1stfiel,push //2rvut0wr(l['_settautL
yESL_[h>ov_F
u(Lls2)stust_top;*)1i0 .ut*/op;*)//2rvut0w(w=o_tod Lexuf;uaB_XFi//OT_io(ir*ar, OrIF:o[i'['_&newnuemcu`);
yES_XFi//O(L)stust_top;*)1i (w=o_tod Lexuf;uaB_cher//OmethodsT_io(ir*ar, OrIF:o[i'['_&newnuemcu`);
yES_cher//OmethodstL
yESL_[h>ov_F
u(Lls1);2(fsaJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJyESL_[h>ov_F
u(Lls2)sstust_top;*)1i (w=o_tod Lexuf;uaB_pukimmsT_io(ir*ar, OrIF:o[i'['_getpukimmsry)o(iOrfva oF t {b['_top;* d"vut(l!* '!P_R isnus tL
1st'%
fi'['L_[h>ovtype(L;p1, s Dfut+2==Iop-p-pio(i&new;s oF_Lls1stfiel,XFin//2rvuofdpukimmsTvut(ls=;uaisetpukimmsry)outd _s _top;*)1i (w=o_tod Lexuf;uaB_rawgetS_io(ir*ar, OrIF:o[i'['L_[h>ovtype(L;p1, s Dfut+2==Iop-pio(L_[h>ovany_Lls2dtus l['_rawget_LRf-2)r_s _top;*)1i (w=o_tod Lexuf;uaB_rawsetS_io(ir*ar, OrIF:o[i'['L_[h>ovtype(L;p1, s Dfut+2==Iop-pio(L_[h>ovany_Lls2dtus l['L_[h>ovany_Lls3dtus l['_rawset(Lls-3stust_top;*)1i (w=o_tod Lexuf;uaB_set//Omethods(utd _ RB_ IF:o[iexuf//OT=
yESL_[h>ov_F
u(Lls1)tuste aputdZIbufnleftnf yESL_[h>ov_t1emcutL
2dtus l['L_arg_[h>ov(Llsl_R isffAoldaAtL
3)T*/'P_R isniltL
3),*3l2(fsaJJJJJJJJJJJJJ"ffAoldaAs' loil',)}sc(fo")opos!* 'f ecmp(nleft
"gc")Pat-de2(fsa*wMi2aTre`);")depre O" d"use: canXkevsel ase"`gclstaOTmethodsptessLua"dtus l['_get//Omethod_LRftag, nleftF edjio(i&new;s oF_Lls3dtus l['_set//Omethod_LRftag, nleftF edj_top;*)1o RP_o_tod Lexuf;uaB_get//Omethods(utd _ RB_ IF:o[iexuf//OT=
yESL_[h>ov_F
u(Lls1)tuste aputdZIbufnleftnf yESL_[h>ov_t1emcutL
2dtus !* 'f ecmp(nleft
"gc")Pat-de2(fsa*wMi2aTre`);")depre O" d"use: canXkevgel ase"`gclstaOTmethodsptessLua"dtus l['_get//Omethod_LRftag, nleftF edj_top;*)1o RP_o_tod Lexuf;uaB_gc=== ]_io(ir*ar, OrIF:o[i'['_&newnuemcu`);
yES_getpccou(f(L)stust'['_&newnuemcu`);
yES_getpctwRKshold(L)stust_top;*)2o RP_o_tod Lexuf;uaB_[gr)g>Sgarbage]_io(ir*ar, OrIF:o[i'['_setpctwRKshold(L;"yESL_opt_F
u(Lls1
0lstust_top;*)0i (w==o_tod Lexuf;uaB_typeT_io(ir*ar, OrIF:o[i'['L_[h>ovany_Lls1dtus l['_&newt1emcutL
lbl typen{me_LRfutd typetL
1)sstust_top;*)1i (w==o_tod Lexuf;uaB_XFxtS_io(ir*ar, OrIF:o[i'['L_[h>ovtype(L;p1, s Dfut+2==Iop-pio(_set/opry
2)rfiel,[rg ;{ a 2n rargux)cu !* tany/b an'ttons)vut(l!* 'yES_XFxu(Lls1)d
fi_top;*)2o os-> [u{Aux, *wMi&newnilry)o
fi_top;*)1o os _buAPID_LexuF
u/passRKs
l-
utd _ RB_ n*_Stas Rusn*_Staoldtopd,ttaJID_Lexue aputdZIbufe aput2aTren{mes[]]f/
cr{"ok", "run-timvt2aTre", "kiIdl2aTre", "syntaxl2aTre",2(fsaJ"memory 2aTre", "-aTres )naTressovdlmcu"}tus !* 'f Rus;& i0d
s(ssexuflRKs
l- ams D_gettopry) -aoldtoptustwD!* 'lRKs
l- >-de2(fsaJJ_top;*)lRKs
l- i0 .ut*/s
l- a)(>al #t y*yEUase"sf==,uto(lspp-> ['%-FI>o, *wMi&newuserdata();"Fsyn)rfiel,"ufleaputons)RKs
l-Ft {signmm_sodeaTres Es*rfoppp_top;*)1o os FI>"/crt> ['{op/_P-aTresEs*rfr(*wMi&newnilry)o
fil['_&newt1emcutL
2aTren{mes[f Rus])o(iOrftaTresco.en*/
fi_top;*)2o os} (w=o_tod Lexuf;uaB_dos AfEs*_io(ir*ar,_ IF:o[iexufoldtop]ams D_gettopry)o
t,smpa_t ltuste aputdZIbufsnf yESL_[h>ov_ls==tL
1, &lIop#!* 0iOrf03/02/2001 jcwP-ftestsdis/2rvd"vut(l!* '*snf=
a\27't' .utbinary Firv 2o_trtTrity ESC... Es*rfops DL2aTre`);")`dot1emcu'*canXkevrun pre-comAirvd"co.e"dtu#endifust_top;*)passRKs
l- _LRfutd do'at
er(Ln*s,rl;"yESL_opt_t1emcutL
2,ocd),aoldtopdi (w==o_tod Lexuf;uaB_dofirv*_io(ir*ar,_ IF:o[iexufoldtop]ams D_gettopry)o
t,e aputeft p*fn
= yESL_opt_t1emcutL
1, Fsynt;ust_top;*)passRKs
l- _LRfutd dofirv_LRffn
),aoldtopdi (w==o_tod Lexuf;uaB_h s )_io(ir*ar,_ IF:o[iexufoldtopo
t,e aputeft p*optdaAS = yESL_opt_t1emcutL
3;")")opos!nut2aTP= 0awl A_io(a;ofdoldftaTresmethodsEs*rfri yf,as Rusopos!nutntus l['L_[h>ovtype(L;p2, s Dfut+2==Iop-pl]ams D_getntL
2dtus !* '!P_R isnus tL
4dIF:=_todsel XFintaTresmethodsEs*rfs l['_getpukimmtL
s DfERRORMESSAGE)o
fi2aTP= s D_gettopry)owl AgetS! o(a;Es*rfopio(i&new;s oF_Lls4)o
fil['_setpukimmtL
s DfERRORMESSAGE)o
"/croldtop]ams D_gettopry)o(iOrf*/p bef,)(>ffAoldaA-h s )prepaoa&ryE;Es*rfel,push ffAoldaAst0wr(l['_&new;s oF_Lls1stustl['L_[h>ovsf==,_LRfn
"too manySargux)cus"e;o[i Dnnup
=>kioldftaTresmethodsEs*rfr(l['_&new;s oF_Lls2aT)tus fil['_setpukimmtL
s DfERRORMESSAGE)o
"/cr!* 'f Rus;!n-th){0 .ut-aTres )c s t Es*rfop!* 'f echr(optdaAS, 'x')F*rfopJJ*wMi&newnilry)o(iOrf_top;*)lil't {signmm_ase"-aTresEs*rfr(-> [/
crwDs DL2aTre`);"Fsyn)rfiel,prr_agar,_-aTresrityou(eadditdaAmm_messagesn*/
fi_top;*)1o
"/cr!* 'f echr(optdaAS, 'p'tt' .utpa.lrRKs
l- ? Es*rfops DL2aTre`);")depre O" d"optdaA `p'u n`c s '"stust_top;*)lin_gettopry) -aoldtopt0 .ut*/s
l- a)(>al #t y*yEUase"sf==,uto((w==o_tod Lexuf;uaB_tos AfEs*_io(ir*ar,_ IF:o[idZIbu'at
[64];o[isc(fop kutd typetL
1)s'{Aux, tasens Dfumple x:*rfopJJ*wMi&newt1emcutL
lbl tot1emcutL
1)stustoppp_top;*)1o os tasens Dfupode_0:*rfopJJ*wMi&new;s oF_Lls1stustwDpp_top;*)1o os tasens Dfut+2==:ustwDppspAfEtf('at
;")//2rv: %p"n*utd topoiItertL
1)stustoppp',': Tr"istasens Dfu=_tod-> :ustwDppspAfEtf('at
;")ffAoldaA: %p"n*utd topoiItertL
1)stustoppp',': Tr"istasens DfuUSERDATA:ustwDppspAfEtf('at
;")userdata(%d): %p"n*utd tautL
1), utd touserdata();"1)stustoppp',': Tr"istasens DfumIL:*rfopJJ*wMi&newt1emcutL
"lil"stustwDpp_top;*)1o os *nu(ls=:*rfopJJ*wML_arg-aTretL
1 "_ls==',)}sc(fo")opI>}taJio(i&newt1emcutL
'at
)op-p_top;*)1i (w==o_tod Lexuf;uaB_f,)(achi
utd _ RB_ IF:o[iexufl,yffAuxl['L_[h>ovtype(L;p1, s Dfut+2==Iop-pio(L_[h>ovtype(L;p2, s Dfu=_tod-> Iop-pl]ams D_getntL
1e;o[i Dnnup
1>ki<=n
fs Dn'%Tr"is*wMi&new;s oF_Lls2d;wl AffAoldaAsEs*rfr(*wMi&newnuemcu`);
i);0 .ut1strargux)cu vut(ls=;uairawget (L;p1;
i);0 .ut2n rargux)cu vut(ls=;uairaw[ s tL
2ls1stustwD!* '!P_R isniltL
-1dIapOcr]._top;*)1o os lwMi&opry
1_f0 .ut*/rb
t lil'RKs
l-FEs*rf"/cr_top;*)0i (w==o_tod Lexuf;uaB_f,)(achS_io(ir*ar, OrIF:o[i'['L_[h>ovtype(L;p1, s Dfut+2==Iop-pio(L_[h>ovtype(L;p2, s Dfu=_tod-> Iop-p*wMi&newnilry)o(iOrffit "! o(a;Es*rf Dnnu;;)'%Tr"ise* 'yES_XFxu(Lls1)rat-de2(fsaJJ_top;*)0op-p-pio(i&new;s oF_Lls2d;wl AffAoldaAsEs*rfr(*wMi&new;s oF_Lls-3)x'] AkeysEs*rfr(*wMi&new;s oF_Lls-3)x'] A;s oF Es*rfop;uairaw[ s tL
2ls1stustwD!* '!P_R isniltL
-1dIapOcr]._top;*)1o os lwMi&opry
2_f0 .ut*/rb
t ;s oF ope RKs
l-FEs*rf"/(w==o_tod Lexuf;uaB_assertS_io(ir*ar, OrIF:o[i'['L_[h>ovany_Lls1dtus !* 'l_R isni tL
1st os lwML_v>aTre`);")assertryEUkairvd! %.90s"n*utdL_opt_t1emcutL
2,o)")stust_top;*)0i (w==o_tod Lexuf;uaB_getnT_io(ir*ar, OrIF:o[i'['L_[h>ovtype(L;p1, s Dfut+2==Iop-pio(i&newnuemcu`);
yES_getntL
1)stust_top;*)1i (w==o_tod Lexuf;uaB_tinser"
utd _ RB_ IF:o[iexufv]ams D_gettopry)o(iOrflastrargux)cu: t {b['inser"edsEs*rfri yl,yposfAuxl['L_[h>ovtype(L;p1, s Dfut+2==Iop-pl]ams D_getntL
1e;o[i!* 'vrat-2)st*4Rh s edsrity '3", 2dargux)cus;Es*rf ypos = s+1rche-> [/
crpos = yESL_[h>ov_F
u(Lls2);0 .ut2n rargux)cu isltanrposildaAst0wr(l['_&newt1emcutL
"l"Iop-pio(i&newnuemcu`);
n+1dtus l['_rawset(Lls1_f0 .utt.n = s+1;Es*rf Dnnu; n>=posffn--)
ls Dt.;uairawget (L;p1;
n)tus fil['_rawset (L;p1;
n+1_f0 .utt[n+1];&r*[n] vut(l}taJio(i&new;s oF_Llsvdtus l['_rawset (L;p1;
pos_f0 .utt[pos];&rvevut(l_top;*)0i (w==o_tod Lexuf;uaB_t*/rb
t
utd _ RB_ IF:o[iexufpos,tntus l['L_[h>ovtype(L;p1, s Dfut+2==Iop-pl]ams D_getntL
1e;o[ipos = yESL_opt_F
u(Lls2
ne;o[i!* 'nT<&r0d
- op;*);*op/_P//2rvuisl"empty"st0wr(l['_rawget (L;p1;
pos_f0 .utRKs
l-F=tt[pos];Es*rf Dnnu ;pos(auxsort)**1f.eenlu)(>sf==,uspaca vut(l!* '!P_R isni tL
2))p:=_todffAoldaAt Es*rfop!ntSRKsop-p-pio(i&new;s oF_Lls2d;p-p-pio(i&new;s oF_Llsa-1d;wl A-1s*/ [gmbx s RB_ffAoldaAsEs*rfr(*wMi&new;s oF_Llsb-2)rfiel,-2s*/ [gmbx s RB_ffAoldaAsope `a' Es*rfop;uairaw[ s tL
2ls1stustwDRKs]am!P_R isniltL
-1do os lwMi&opry
1_f
fi_top;*)RKsop-p"/crt> ['fOrfa]< b?n*/
fi_top;*)lwMilessasov_LRfan*b)i (w=o_tod L
s*/auxsortP
utd _ RB_ n*_Staln*_Stau>-> A& !Idl*l]< u)p:=_todfDnntail'RKcuLsifrnto(ls[i_Stain*jf
fitodsortPe#tx)cus a[l]Rfa[(l+u)/2]sope a[u] vut(ls=;uairawget (L;p1;pldx=0 ;uairawget (L;p1;pustustwD!* 'sort_comAtL
-1Rf-2)t' .ut"[u] < a[l]t Es*rfopppset2`);
y;pustfitodswap a[l] - a[u] vut(ls=-> [/
crwDs DL&opry
2_fustwD!* 'u-lPat-1)r',': fitod'3", 2de#tx)cus to(ls[i_;&r(l+u)/2x=0 ;uairawget (L;p1;pidx=0 ;uairawget (L;p1;plstustwD!* 'sort_comAtL
-2
-1dIF .ut"[i] ['%-FI>o, *wMi&opry
1_f0 .ut*/rb
t a[l] Es*rfoppp;uairawget (L;p1;pustustwDwD!* 'sort_comAtL
-1Rf-2)t' .ut"[u]<"[i]t Es*rfopppppset2`);
i;pustustwDwD-> [/
crwDDDs DL&opry
2_fustwD}ustwD!* 'u-lPat-2)r',': fitod'3", 3de#tx)cus to(ls[i;uairawget (L;p1;
i);0 .utPivotsEs*rfr(*wMi&new;s oF_Lls-1dx=0 ;uairawget (L;p1;pu-1dx=0 set2`);
i;pu-1dx=0 .ut"[l] <&rPPat-"[u-1] <&r"[u],d'3", nefo t {sortPptessl+1s*/ u-2sto(ls[i_;&rl; j;&ru-1rches( Dnnu;;)'%wl A_i;sri/cu: "[l..i] <&rPP<&r"[j..u] Es*rfoppp.ut*/pg ; ++i untilt"[i]S>=EP Es*rfoppp& !Idl*;uairawget (L;p1;p++i), sort_comAtL
-1Rf-2)t'{/
crwDDD!* 'i>u)ls DL2aTre`);")gch synto dvr_ffAoldaAs Dnnsortmcu"e;o[iFI>o, *wMi&opry
1_f0 .ut*/rb
t a[i] Es*rfoppp}*rfoppp.ut*/pg ; --j untilt"[j] <&rPPEs*rfoppp& !Idl*;uairawget (L;p1;p--j), sort_comAtL
-3
-1dIF:/
crwDDD!* 'jo, *wMi&opry
1_f0 .ut*/rb
t a[j] Es*rfoppp}*rfoppp!* 'j(a[u-1])srity a[i] Es*rfop.ut"[l..i-1] <&r"[i] =&rPP<&r"[i+1..u] Es*rfop.ut"djusttso>asotrsm s er>"half"uisl n[j..i]sope larg-atons) n[l..u] Es*rfop!* 'i-l]< u-iIF:/
crwDj=l; i=i-ao(l=i+2fustwD}ustwD-> ['%-FI>o, j=i+1>ki=u; u=j-2fustwD}ustwDauxsort`);
j;
i);0 .uth s )RKcuLsive", e sm s er>ons)vut(l}pp.ut*/pg ; asscRoutTY 7fDnntheularg-atons)3=e}P_o_tod Lexuf;uaB_sortP
utd _ RB_ IF:o[iexuflfAuxl['L_[h>ovtype(L;p1, s Dfut+2==Iop-pl]ams D_getntL
1e;o[i!* '!P_R isnus tL
2)t' .utisltanr{ a 2n rargux)cu? Es*rfops DL_[h>ovtype(L;p2, s Dfu=_tod-> Iop-p*wMiset/opry
2)rfiel,make su)(>tany/b a twodargux)cus;Es*rfauxsort`);
1;
n)tus _top;*)0i (w=.ut}======================================================v $I_h_1e0koe{======================================================0koeDepre O" d"FfAoldaAS to manipula&edpukimmeenvironx)cu.0koe=======================================================ki [/_1e0koegilesSan ex{licitt-aTres )anySattempts*/ [ s )a
depre O" drffAoldaA O/
o_tod Lexufdepre O" d_ffAo]_io(ir*ar, OrIF:o[i'['L_v>aTre`);")ffAoldaAs`%.20slsisldepre O" d"
lbl tot1emcutL
-1)stust_top;*)0i(iOrf*/ "nas,)warn1/
s 3=e}P_=o_tod L
s*/depre O" d_ffAosT_io(ir*ar, OrIF:o[iri yffAux Dnnup
=>kiSgarbage"n*utdB_[gr)g>Sgarbage},o[i{"[ger//Omethods"n*utdB_[ger//Omethods},o[i{"dofirv"n*utdB_dofirv},o[i{"dot1emcu"n*utdB_dot1emcu},o[i{"2aTre", luaB_-aTre},o[i{"f,)(ach"n*utdB_f,)(ach},o[i{"f,)(achi"n*utdB_f,)(achi},o[i{"gc=== "n*utdB_gc=== },o[i{"getpukimm"n*utdB_getpukimm},o[i{"get//Omethod"n*utdB_get//Omethod},o[i{"gukimms"n*utdB_gukimms},o[i{"XFi//O"n*utdB_XFi//O},o[i{"XFxu"n*utdB_XFxu},o[i{"pAfEt"n*utdB_pAfEt},o[i{"rawget"n*utdB_rawget},o[i{"rawset"n*utdB_rawset},o[i{"rawget//2rv"n*utdB_rawget},=_todfDnncomAtodbilitysEs*rf{"rawset//2rv"n*utdB_rawset},=_todfDnncomAtodbilitysEs*rf{"setpukimm"n*utdB_setpukimm},o[i{"set//O"n*utdB_set//O},o[i{"set//Omethod"n*utdB_set//Omethod},o[i{"//O"n*utdB_//O},o[i{"tonsemcu"n*utdB_/onsemcu},o[i{"tot1emcu"n*utdB_tot1emcu},o[i{"type"n*utdB_type},o[i{"assert"n*utdB_assert},o[i{"getn"n*utdB_getn},o[i{"sort"n*utdB_sort},o[i{"tinser""n*utdB_tinser"},o[i{"t*/rb
t"n*utdB_t*/rb
t}
};e _s DLIBf-PI
s*/'['_baselib'bx *(io(ir*ar, OrIF:o[i'['L_'bx l_Llsbase_ffAosdtus l['_&newt1emcutL
s DfVERSI> Iop-p*wMisetpukimmtL
"fVERSI> "e;o[idepre O" d_ffAosry)oo(w=.ut*/
/*9323846to/d: ap*1e0 2000 op dblib Orf*1e0koern48j dblib 30 16299:5930s1/06 17:58:387gGFILE*Ouff*1 fLcIIterfac sptessLuaf*/ itsldebug -PI retoes therE
of d limits_h
#i/* e " inlib e " in"/crt> ['!* 'l_R isffAoldaAtL
1st'%
fi'['i&new;s oF_Lls1stustwDspAfEtf('at
;")>%.10s"n*optdaASstustwDoptdaAS = 'at
op-p"/crt> [*rfops DL_arg-aTretL
1 "ffAoldaAs' llevelP,)}sc(fo")opos!* '!P_R get fory optdaAS, &arst*rfops DL_arg-aTretL
2;")gch syntop&ryE")*/
luS_XFi//2rvrye;o[i Dnnu;p*optdaAS; optdaAS Dn'%Tr"issc(fop k*optdaASt'%
fieltasen'S':2(fsaJJJJset//2s tL
"sourc}",par.sourc}e;o[iFI>o, !* 'ar.sourc}IustwD].oscrset//2s tL
"shoLE_src",par.shoLE_srce;o[iFI>o, set//2sitL
"lTY ORITY d",par.lTY ORITY de;o[iFI>o, set//2s tL
"what",par.whate;o[iFI>o, ',': Tr"issstasen'l':2(fsaJJJJset//2sitL
"curcentlTY ",sar.curcentlTY dop-posssss',': Tr"issstasen'u':2(fsaJJJJset//2sitL
"nups",sar.nupsdop-posssss',': Tr"issstasen'n':2(fsaJJJJset//2s tL
"TTs}",par.n
e;o[iFI>o, set//2s tL
"n
what",par.n
whatdop-posssss',': Tr"issstasen'f':2(fsaJJJJ'['_&newt1emcutL
"ffAo"e;o[iFI>o, *wMi&new;s oF_Lls-3)xo[iFI>o, *wMiset//2rvry, -3stu-posssss',': Tr"is FI>"/cr_top;*)1i0 .ut*/op;*)//2rvut0w(wr"is_=o_tod Lexufgetlocmm__io(ir*ar, OrIF:o[i*wMiDebug arx=0 e aputeft p*s
tust!* '!P_R getsf==,_LRflESL_[h>ov_F
u(Lls1s, &arst'iOrflevelPou(eofdrangs? Es*rfops DL_arg-aTretL
1 "levelPou(eofdrangs"e;o[in
= yES_getlocmmtL
&ar
yESL_[h>ov_F
u(Lls2)stust!* 'n
>-> AJJ'['_&newt1emcutL
TTs}datrfis*wMi&new;s oF_Lls-2_fustwD_top;*)2o os} os-> [u{Aux, *wMi&newnilry)o
fi_top;*)1o os _buAPID_LexuF
u/setlocmm__io(ir*ar, OrIF:o[i*wMiDebug arx=0 !* '!P_R getsf==,_LRflESL_[h>ov_F
u(Lls1s, &arst'iOrflevelPou(eofdrangs? Es*rfops DL_arg-aTretL
1 "levelPou(eofdrangs"e;o[il['L_[h>ovany_Lls3dtus l['_&newt1emcutL
*wMisetlocmmtL
&ar
yESL_[h>ov_F
u(Lls2)sstust_top;*)1i (w==I1eldummyn;sri/2rv 2(*/ ORITY 7uniqoF odd*/
ses>-O/
o_tod Left pkey1,=key2o ORITY 7KEY_CALLHOOK (&key1) ORITY 7KEY_LINEHOOK (&key2)w==o_tod L
s*/hookf
utd _ RB_ n*f*1a *keyIF:o[i'['_getregistryry)oo[i'['_&newuserdata();"keyI;o[i'['_get//2rvry, -2dtus !* 'l_R isffAoldaAtL
-1st'%
fi'['i&new;s oF_Lls1stustwD;uairaw[ s tL
1
0l*utd _s t> [*rfops Di&opry
1_f0 .utpop;RKs
l-Fptessget//2rvst0wr(l['_&opry
1_f0 .utpop;//2rvut0w(w==o_tod L
s*/[ s f
utd _ RB_ n**wMiDebug *arsF:o[i'['_&newt1emcutL
ar->nleftF edjhookftL
KEY_CALLHOOKstu}P_=o_tod L
s*/lTY f
utd _ RB_ n**wMiDebug *arsF:o[i'['_&newnuemcu`);
ar->curcentlTY dop-phookftL
KEY_LINEHOOKstu}P_=o_tod L
s*/sethook
utd _ RB_ n*f*1a *keyn**wMiHook hook;2(fsaJJJJJJJJJJJJJJJJJ*wMiHook (*sethookf)
utd _ RB_ Ln**wMiHook h)IF:o[i'['_settopry
1_f
!* 'l_R isni tL
1st os (*sethookf)
L, Fsynt;ustt> ['!* 'l_R isffAoldaAtL
1st os (*sethookf)
L, hookt;ustt> [*rfops DL_arg-aTretL
1 "ffAoldaAs,)}sc(fo")opos'['_getregistryry)oo[i'['_&newuserdata();"keyI;o[i'['_&new;s oF_Lls-1d;wl AdupAkeysEs*rf'['_get//2rvry, -3);0 .utgetSoldf;s oF Es*rf*wMi&new;s oF_Lls-2_f'] Akeys(again)st0wr(l['_&new;s oF_Lls1stustl['iset//2rvry, -5);0 .utsel XFin;s oF Es*buAPID_LexuF
u/set[ s hook
utd _ RB_ d,ttaJIethooktL
KEY_CALLHOOK,/[ s f
*wMiset[ s hookstust_top;*)1i (w==o_tod LexufsetlTY hook
utd _ RB_ d,ttaJIethooktL
KEY_LINEHOOK,/lTY f
*wMisetlTY hookstust_top;*)1i (w==o_tod Le aputleft;, '['L_reg dblib[];&r:o[i{"getlocmm",pgetlocmm},o[i{"get=== "n*get=== },o[i{"set[ s hook", set[ s hook},o[i{"setlTY hook", setlTY hook},o[i{"setlocmm",psetlocmm}
};e s DLIBf-PI
s*/'['_dblib'bx *(io(ir*ar, OrIF:o[i'['L_'bx l_Llsdblib)oo(w=.ut*/
/*9323846to/d: ap*1e0 2000 op iolib Orf*1e0koern48j iolib 30 16919:5930st511 13:10:247gGFILE*Ouff*1 fLcS1andard I/Os(and piutem)ulibrsry retoes therE
of d limits_h
#i/* e " inlib e " in-s ((b)Tf= Fsyn ? m:lloc(s) :r(,':lloc)(',es))v $I1eJCW* ORITY 7f #e(b)JJJJJJJJJ!* 'b) (f #e)(b) Es*#-> [/ A,)lsuppoLEtfres
ocmmvsope DnnstreaTre: fake them Es*#ORITY 7setlocmme(a,b) ((f*1a)a,rf ecmp((b),"C")==0?"C":Fsynt* ORITY 7LC_ALL 0* ORITY 7LC_COLLATE 0* ORITY 7LC_CTYPE 0* ORITY 7LC_MONETARY 0* ORITY 7LC_NUMERIC 0* ORITY 7LC_TIME 0* ORITY 7streaTre(e) "generd LI/Os2aTre"* ORITY 7-aTn* (-1) endifu= ifORI POPEN/ AFILEufp'bx ()ooexufpclole()o Es*#ORITY 7CLOSEFILE_Llsf>-s ((pclole(f)Tf= - tL? fclole(f)T:r0d*#-> [/ A,)lsuppoLEtfresp'bx Es*#ORITY 7p'bx (x,yIFFsyn iOrf*sotris,sp'bx alwaysUkairs Es*#ORITY 7CLOSEFILE_Llsf>-s (fclole(f)) endifu= #ORITY 7INFILE 0* ORITY 7OUTFILEu1
typeORI left;, IOCtrlF:o[iri yref[2]i0 .ut*/f Dnnstr1/
s _INPUT/_OUTPUTsEs*rfri yfotag;0 iel,//g Dnnfirv*sovdles;Es*rfri ycloledtag;0 el,//g Dnncloled*sovdles;Es*} IOCtrl;
w==o_tod Le aputdZIbufe aputfirvn{mes[]]fi{"_INPUT", "_OUTPUT"};e ID_LexuF
u/pnewRKs
l-F('[' _ RB_ n*_StaiIF:o[i!* 'it'%
fi'['i&newuserdata();"Fsyn)r
fi_top;*)1o os _os-> [u{Aux, *wMi&newnilry)o
fi'['_&newt1emcutL
streaTre(eaTn*))o
fi'['_&newnuemcu`);
eaTn*)r
fi_top;*)3;o os _buAP1e0koe{======================================================0koeFILEuOpeoa&ryEs0koe=======================================================fotagt'iOrf*/eS it*so
t / e)corRKcuf//O? Es*rfoppp_top;*)(FILEuf)ptustwDt> ['!* 'f//OT== ctrl->cloledtagt*rfoppps DL2aTre`);")canXkevacc/
s a cloled*firv"dx=0 .utt> ['go>asroughFEs*rf"/cr_top;*);ck x=}ee ID_LexuFILEufgetnonus firv*_io(ir*ar,_ n*IOCtrlF*ctrln*_StaargO aswlFILEuft =fgetsovdle`);"ctrln*argttus s DL_arg_[h>ov(Llsfn*arg;")gch syntfirv*sovdle"stust_top;*)fx=}ee ID_LexuFILEufgetfirvbyr f
utd _ RB_ n*IOCtrlF*ctrln*_Stainou(s aswlFILEuftopos'['_getpukimmsry)oo[i'['_getref`);"ctrl->ref[inou(])o
l['_rawget_LRf-2)r_s t =fgetsovdle`);"ctrln*-1);o[i!* 'fTf= Fsynt*rfopl['L_v>aTre`);")pukimme;sri/2rvs`%.10slsislXkeva{firv*sovdle";2(fsaJJJJJJJJJJJJfirvn{mes[inou(])o
_top;*)fx=}ee ID_Lexu
s*/setfirvbyn
utd _ RB_ n*IOCtrlF*ctrln*FILEuft;2(fsaJJJJJJJJJJJJJJJJJJJJJJJe aputdZIbufl
>-> A'['i&newusertautL
, ctrl->fotagtop-p*wMisetpukimmtL
TTs}dat}dy*#ORITY 7setfirv_LRctrlnf,inou(s (setfirvbyn
_LRctrlnf,firvn{mes[inou(]))w==o_tod Lexufset_top;*)(utd _ RB_ n*IOCtrlF*ctrln*FILEuft;*_Stainou(s aswl!* 'fTf= Fsynt*rfop_top;*)pnewRKs
l-tL
deo os-> [u%Tr"issetfirv_LR"ctrln*t;*_Sou(stustwD*wMi&newusertautL
, ctrl->fotagtop-pfi_top;*)1o os _buAPID_LexuF
u/clolefirv*_io(ir*ar,_ n*IOCtrlF*ctrln*FILEufts aswl!* 'fTf= 0/>/nT*/'fTf= 0/>ou(e*/'fTf= 0/>2aT)p-pfi_top;*)1o os-> [u{Aux, *wMi&newusertautL
, ctrl->fotagtop-pfil['iset//g`);"ctrl->cloledtagtop-pfi_top;*)(CLOSEFILE_Llsf>-at-deo os _buAPID_LexuF
u/io_clole*(io(ir*ar, OrIF:o[iIOCtrlF*ctrl;&r(IOCtrlF*)s D_touserdata();"-1dtus l['_&opry
1_f0 .ut*/rb
t up;s oF vut(l_top;*)pnewRKs
l-tL
clolefirv_LR"ctrln*getnonus firv_LR"ctrln*1)sstubuAPID_LexuF
u/firv_[gr)g>S*(io(ir*ar, OrIF:o[iIOCtrlF*ctrl;&r(IOCtrlF*)s D_touserdata();"-1dtus FILEuft =fgetnonus firv_LR"ctrln*1);o[i!* 'fT!= 0/>/nT&& fT!= 0/>ou(e&& fT!= 0/>2aT)p-pfiCLOSEFILE_Llsf>o
_top;*)0i (w==o_tod Lexufio_'bx *(io(ir*ar, OrIF:o[iIOCtrlF*ctrl;&r(IOCtrlF*)s D_touserdata();"-1dtus FILEufttus l['_&opry
1_f0 .ut*/rb
t up;s oF vut(lt =ff'bx (yESL_[h>ov_t1emcutL
1), yESL_[h>ov_t1emcutL
2)stust!* 'ft'%
fi'['i&newusertautL
, ctrl->fotagtop-pfi_top;*)1o os _stt> [*rfop_top;*)pnewRKs
l-tL
deo }
w==o_tod Lexufio_ptestoF('[' _ RB_ n*_StaiSou(,pe aputdZIbufmodeIF:o[iIOCtrlF*ctrl;&r(IOCtrlF*)s D_touserdata();"-1dtus FILEufcurcenttus l['_&opry
1_f0 .ut*/rb
t up;s oF vut(l!* 'P_R isnus tL
1)s'{Aux, tlolefirv_LR"ctrln*getfirvbyr f_LR"ctrln*_Sou(stop-pficurcent;&r(_Sou(;& i0d
? 0/>/nT: 0/>ou(;0 i
I>"/crt> ['!* 'l_R tautL
1)T== ctrl->fotagt'iOrf*epre O" d"optdaA Es*rfopcurcent;&r(FILEuf)s D_touserdata();"1eo os-> [u%Tr"ise aputdZIbufsnf yESL_[h>ov_t1emcutL
1)o os eurcent;&r(*snf=
a|'d
? p'bx (s+1, modeIF:ff'bx (s, modeIo os _st_top;*)set_top;*_LR"ctrln*eurcent;*_Sou(stu(w==o_tod Lexufio_ #t ptess(io(ir*ar, OrIF:o[i_top;*)io_ptesto_LR"INFILE, "r"stu(w==o_tod Lexufio_writetoF('[' _ RB_ IF:o[i_top;*)io_ptesto_LR"OUTFILE
"w"stu(w==o_tod Lexufio_apbx dtoF('[' _ RB_ IF:o[iIOCtrlF*ctrl;&r(IOCtrlF*)s D_touserdata();"-1dtus FILEufcurcenttus l['_&opry
1_f0 .ut*/rb
t up;s oF vut(leurcent;&rf'bx (yESL_[h>ov_t1emcutL
1), "a"stust_top;*)set_top;*_LR"ctrln*eurcent;*OUTFILE)i (w==I1e0koe{======================================================0koeREAD0koe=======================================================/n. O';ThiS Fl/OTsignmmsswhen we nefo t { #t va{dFxtSdZIb. O/
#ORITY 7NEED_OTHER (EOF- tL .utjusttso
Fl/OTdit
erent;ptessEOF /Bee ID_Lexuri yread_patte;*)(utd _ RB_ n*FILEuft;*e aputdZIbufpIF:o[iri yfnib.hp= 0awl A{ib.h}flevelPEs*rfri ycp= NEED_OTHERtus s DL_Bat
er btus s DL_'at
! O_tL
&bstust& !Idl**p;!n-a\0')n%Tr"issc(fop k*pt'%
fieltasen'{':2(fsaJJJJfnib.hs rcaJJJDf hs rcaJJJDf e atinue Tr"issstasen'}':2(fsaJJJJf* '!fnib.h)ls DL2aTre`);")unimmanced bracas in{ #t vpatte;*"e;o[iFI>o, fnib.h--rcaJJJDf hs rcaJJJDf e atinue Tr"isss*nu(ls=:
s(sssswld aputdZIbufnp]ams DI_classend(L;"p)owl AgetSwsotris{dFxtSEs*rfopppssri ymrfiel,mafop RKs
l-FEs*rfopJJJJf* 'cTf= FEED_OTHER)ycp= getc(
)op-posssssm;&r(c==EOFd
? 0 :ms DI_smculemafop(c;"p, epe;o[iFI>o, !* 'mIF:/
crwDDDJJf* '!fnib.h)ls DL_puteft (&b;*ee;o[iFI>o, ycp= NEED_OTHERtus }us sc(fop k*epIF:/
crwDDDJJtasen'+':pp.ut*/pgtildaAs(1s' lmore)FEs*rfopJJJJDDJJf* '!mIFgotobb,': _& !Idf0 .utpatte;*)kairs?FEs*rfopJJJJDDJJ.utt> ['go>asroughFEs*rfcrwDDDJJtasen'*':pp.ut*/pgtildaAs(0s' lmore)FEs*rfopJJJJDDJJ& !Idl*mh){0 .ut*/adsltanrs
item.untiltitUkairs Es* cp= getc(
)op-posssssosssssm;&r(c==EOFd
? 0 :ms DI_smculemafop(c;"p, epe;o[iFI>o, FI>o, !* 'mP
ls!fnib.h)ls DL_puteft (&b;*ee;o[iFI>o, y }us DDJJ.utgo>asroughF*/ [g tinuet*/adfEs*/ etpatte;*)Es*rfcrwDDDJJtasen'?':pp.utoptdaAal Es* p]amep+1i0 .ut[g tinuest*/adfEs*/ etpatte;*)Es*rfcrwDDDJJ e atinue Tr"isssssss*nu(ls=:*rfopJJFI>o, !* '!mIFgotobb,': _& !Idf0 .utpatte;*)kairs?FEs*rfopJJJJDDJJp]amepo(iOrft> ['[g tinuest*/adfEs*/ etpatte;*)Es*rfcrwDDD}us }o[i]. FI>}bb,': _& !Id:
JJf* 'cT!= FEED_OTHER)yungetc(clsf>o
l['L_&newRKs
l-(&bst0 .ut[lole*'at
er vut(l_top;*)**p;f=
a\0');/(w=#e> [/_ ORITY 7,':d_patte;*tL
, h)l(s DL2aTre`);") #t vpatte;* a)(>depre O" d")
dew=#endifu= ID_Lexuri yread_nsemcut_io(ir*ar,_ n*FILEufts aswldou2rvudtust!* 'fscanf(
;")%lf", &d)Pat-1)r{Aux, *wMi&newnuemcu`);
dtop-pfi_top;*)1o os _stt> [t_top;*)0i(iOrf #t vkairs Es*}u= ID_Lexuri yread_wordt_io(ir*ar,_ n*FILEufts aswlri yctus s DL_Bat
er btus s DL_'at
! O_tL
&bstust*/
l cp= fgetc(
)os x& !Idl*isnpaca`c));0 .utsb.hpnpacas Es*rf& !Idl*cT!= EOF
ls!fsnpaca`c))'%
fi'['L_puteft (&b;*ee;o[iFIcp= fgetc(
)o os _stungetc(clsf>o
l['L_&newRKs
l-(&bst0 .ut[lole*'at
er vut(l_top;*)*l['isfel
U(L
-1) >-detu(w==o_tod Lexufread_linex_io(ir*ar,_ n*FILEufts aswlri ynP= 0ats s DL_Bat
er btus s DL_'at
! O_tL
&bstust Dnnu;;)'%Tr"isdZIbufpnf yESL_prep'at
er(&bstust, !* '!fgets(p
s DL_BUFFERSIZElsf>)(iOrf #t vkairs?FEs*rfopJJ',': Tr"isn;&rf el
U(pstust, !* 'p[n-1] !n-a\n't*rfoppps DL_addsize(&b;*n_f0*rfop-> ['%-FI>o, *wML_addsize(&b;*n-1d;wl AdolXkevadd ase"`\n'FEs*rfopJJ',': Tr"is FI>}tppP_SL_&newRKs
l-(&bst0 .ut[lole*'at
er vut(l_top;*)*n >-det(iOrf #t vso
ehfEs?ut0w(w==o_tod L
s*/read_firv*_io(ir*ar,_ n*FILEufts aswlsmpa_t lenP= 0ats smpa_t smpa;&rBUFSIZats dZIbuf'at
er =);ck x=st Dnnu;;)'%Tr"isdZIbufnew'at
er =)(dZIbuf),':lloc(bat
er;psmpastust, !* 'new'at
er =n-Fsynt'%*rfopJJf #e(bat
er);-FI>o, *wML2aTre`);")XkevenoughFmemory t { #t va{firv"dx=0 }o[i].'at
er =)new'at
erop-pfilek +=/f #t (bat
er+lek;psmpaof(dZIb);psmpa-lek;p
)op-posFt (lek [u%Tr"is'at
er =)(dZIbuuf)m:lloc(n)op-posFt ('at
er =n-Fsynt-FI>o, *wML2aTre`);")XkevenoughFmemory t { #t va{firv"dx=0 } osn1nf f #t (bat
er;psmpaof(dZIb);pnlsf>o
l['i&newls1emcutL
'at
er;pn1);o[i!* ''at
er !=)o_to'at
)Jf #e(bat
er);-FI_top;*)*n1 >-de*/'n-at-deo (w==o_tod Lexufio_ #t F('[' _ RB_ IF:o[iIOCtrlF*ctrl;&r(IOCtrlF*)s D_touserdata();"-1dtus exuf;ao_trOT=
yES gettopry) -a1tus exuffit trOT=
1tus FILEuft =fgetsovdle`);"ctrln*fit trOdtus exufntust!* 'ft'fit trOs rcaJ-> [ut =fgetfirvbyr f_LR"ctrln*INFILE)owl AgetS_INPUTst0wr(l['_&opry
1_fust!* 'fit trOT>f;ao_trO)n%'] A,)largux)cus? Es*rfops DLsettopry
det(iOrferasenup;s oF ope otany nleftual garbage]Es*rfopfit trOT=
;ao_trOT=
1i0 .ut[grRKcufindicas Es*rfr('['_&newt1emcutL
"*l"strfel,push *nu(ls=rargux)cu vut(l"/crt> ['fOrfenlu)(>sf==,uspaca Dnn s )RKs
l- ope Dnnluxlib's*'at
er vut(l[il['L_[h>ovsf==,_LRflao_trO-fit trOs1+s DfMINSTACK
"too manySargux)cus"e;o[i DnnunP= fit trO; n<=lao_trO; n Dn'%Tr"isexufsucc/
sop-posFt (l_R isnuemcu`);
ndIapOcr].succ/
sP= read_dZIb tL
, (smpa_t)lbl tonuemcu`);
nstop-pfi-> ['%-FI>o, e aputdZIbufpnf yESL_[h>ov_t1emcutL
n)op-posss!* 'p[0] !n-a*'IustwD].ossucc/
sP= read_patte;*tL
, h);'iOrf*epre O" d!FEs*rfopJJ-> ['%-FI>o, sc(fop kp[1])s:/
crwDDDJJtasen'n':pp.utdleft_evut(lllllllllll!* '!read_nsemcu_Llsf>IFgotobend
oopi(iOrf #t vkairs Es*(llllllllllle atinue pp.utdleft_eis>al #t y*push d
f"nas,)ase""&newt1emcu")Es*rfcrwDDDJJtasen'l':pp.utlinexEs*(lllllllllllsucc/
sP= read_linetL
)op-posssssssss',': Tr"isssDDJJtasen'a':pp.utfirv*Es*(lllllllllllread_firvtL
)op-possssssssssucc/
sP= 1i0.ut"lwaysUsucc/
sPEs*(lllllllllll',': Tr"isssDDJJtasen'w':pp.utwordtEs*(lllllllllllsucc/
sP= read_wordtL
)op-posssssssss',': Tr"isssDDJJ*nu(ls=:*rfopJJFI>o, s DL_arg-aTretL
n;")gch syntfonmat")op-possssssssssucc/
sP= 0i(iOrf*/ "nas,)warn1/
s 3=essssssss}us }o[i]. FI>ll!* '!succ/
st'%
fiels D_&opry
1_f0 .ut*/rb
t lastrRKs
l-FEs*rfopJJ',': fitod #t vkairs Es*(lll FI>}bend
oop:-FI_top;*)n -afit trO; (w=.ut}======================================================v $I_ho_tod Lexufio_writeT_io(ir*ar, OrIF:o[iri y;ao_trOT=
yES gettopry) -a1tus IOCtrlF*ctrl;&r(IOCtrlF*)s D_touserdata();"-1dtus exuftrOT=
1tus _Stas RusT=
1tus FILEuft =fgetsovdle`);"ctrln*trOdtus e* 'ft'trOs rcaJ-> [ut =fgetfirvbyr f_LR"ctrln*OUTFILE)iwl AgetS_OUTPUTsEs*rf Dnnu;ptrOT<&r lao_trO; trOs )'%Tr"ise* 'yES_type(L;ptrO)n==vs Dfumple x)n%'] As Dfmple x Es*rfoppp.utoptdmizaldaA: couldsbeAdoY 7-xactly_asSfDnnstr1/
s Es*rfoppps RusT=
s RusT&& fpAfEtf(
;")%.16g"
lbl tonuemcu`);
arg)) >-dx=0 }o[i].-> ['%-FI>o, smpa_t ltustDDJJt aputdZIbufsnf yESL_[h>ov_ls==tL
arg;"&l)op-possss RusT=
s RusT&& (fwrite(s, smpaof(dZIb);pllsf>-at-ldx=0 }o[i}o[ipnewRKs
l-tL
s Russtust_top;*)1i (w==o_tod Lexufio_seek
utd _ RB_ d,ttaJI_tod Le aputri ymode[]]fi{SEEK_SET, SEEK_CUR, SEEK_END}tus o_tod Le aputdZIbufe aputmoden{mes[]]fi{"set"n*"cur", "-nd",pFsyn}tus IOCtrlF*ctrl;&r(IOCtrlF*)s D_touserdata();"-1dtus FILEufttus exufoptust,rgC offsettus l['_&opry
1_f0 .ut*/rb
t up;s oF vut(lt =fgetnonus firv_LR"ctrln*1);o[iopnf yESL_findt1emcutlESL_opt_t1emcutL
2,o)cur"),tmoden{mes);o[ioffset = yESL_opt_,rgC_Lls3
deo oss DL_arg_[h>ov(Llsop;!n--1,-2;")gch syntmo.e"dtu[iopnf fseek(
;"offset,tmode[op]dtus e* 'opt*rfop_top;*)pnewRKs
l-tL
deo0 .ut-aTresvut(l-> [u{Aux, *wMi&newnsemcu_Llsftell(f))op-pfi_top;*)1o os _(w==o_tod Lexufio_flush (io(ir*ar, OrIF:o[iIOCtrlF*ctrl;&r(IOCtrlF*)s D_touserdata();"-1dtus FILEufttus l['_&opry
1_f0 .ut*/rb
t up;s oF vut(lt =fgetsovdle`);"ctrln*1eo oss DL_arg_[h>ov(LlsfT*/'P_R isnus tL
1)
1 "gch syntfirv*sovdle"stust_top;*)pnewRKs
l-tL
fflush(f>-at-deo (w=.ut}======================================================v $I_h1e0koe{======================================================0koeOtany O.S.uOpeoa&ryEs0koe=======================================================ov_t1emcutL
1))stust_top;*)1i (w==o_tod Lexufio_ #rb
t
utd _ RB_ IF:o[i_top;*)pnewRKs
l-tL
#rb
t(yESL_[h>ov_t1emcutL
1))-at-deo (w==o_tod Lexufio_ #n
utd _ RB_ IF:o[i_top;*)pnewRKs
l-tL
#n
_yESL_[h>ov_t1emcutL
1),p-posssssssssJJFI>o, s DL_[h>ov_t1emcutL
2)s-at-deo (w==o_tod Lexufio_tmpn
utd _ RB_ IF:o[i'['_&newt1emcutL
tmpn
(Fsynt)tust_top;*)1o }
w==o_tod Lexufio_getenv
utd _ RB_ IF:o[i'['_&newt1emcutL
getenv(yESL_[h>ov_t1emcutL
1))st'] AifFFsyn push lil'vut(l_top;*)1o RP_ID_LexuF
u/io_clock
utd _ RB_ d,ttaJ*wMi&newnsemcu_Lls((dou2rv)clock())/CLOCKS_PER_SECstust_top;*)1i (w==o_tod Lexufio_dateT_io(ir*ar, OrIF:o[idZIbu'[256];o[it aputdZIbufsnf yESL_opt_t1emcutL
1, "%o"e;o[ileft;, tmufstm;o[itimv_t ttu1eJCW*17/02/2001 -7-xtendfo t {acc/pttoptdaAal set ads_asS2n rarg vut(l!* '!P_R isni tL
2)s-tnf yESL_[h>ov_,rgC_Lls2_f'-> [/ Aepe oftmods,tnotef*sotrase"timv() [ s )islXkw ptrtToftan e> [!FEs*rftimv(&t_f'stmnf yocmmtimv(&t_fo[ilemnf yocmmtimv(&t_fo[i!* 'f eftimv(b, smpaof(b)n*s,rlemst*rfops Di&newt1emcutL
't;ustt> [*rfops DL2aTre`);")gch synt`date'tfonmat")op-p_top;*)1i (w==o_tod Lexufsetloo]_io(ir*ar, OrIF:o[iI_tod Le aputri y O"[]]fi{LC_ALL,7LC_COLLATE,7LC_CTYPE,7LC_MONETARY;2(fsaJJJJJJJJJJJJJJJJJJLC_NUMERIC,7LC_TIME}tus o_tod Le aputdZIbufe aput O"n{mes[]]fi{" s "n*"[gr)ar,"n*"[type"n*"moY _try",2(fsaJ"nseerd "n*"timv",pFsyn}tus exufopnf yESL_findt1emcutlESL_opt_t1emcutL
2,o) s "),t O"n{meseo oss DL_arg_[h>ov(Llsop;!n--1,-2;")gch syntop&ryE")*/
luS_&newt1emcutL
setlocmme( O"[op], yESL_[h>ov_t1emcutL
1))stust_top;*)1i (w==o_tod Lexufio_exiS*(io(ir*ar, OrIF:o[iexiStlESL_opt_F
u(Lls1
EXIT_SUCCESS)stust_top;*)0i(iOrf*/ "nas,)warn1/
s 3=e}P_.ut}======================================================v $I_h_o_tod Lexufio_debug (io(ir*ar, OrIF:o[i Dnnu;;)'%Tr"isdZIbu'at
er[250];o[i fpAfEtf(0/>2aT "l['_debug> ")op-pose* 'fgets(bat
er;psmpaof(bat
er),us/>/ns-at-dT*/-FI>o, s ecmp(bat
er;p"e at\n")rat-de2(fsaJJ_top;*)0op-p-pio(idos1emcutL
'at
ertop-pfil['iset/opry
det(iOrf #rb
t nleftual _top;*s vut(l"/}dy*#ORITY 7LEVELS1 12 .utsmpa;ofltanrfit "ptrtToftase"sf==,uto(#ORITY 7LEVELS2 10 .utsmpa;ofltanrset ad"ptrtToftase"sf==,uto(_o_tod Lexuf2aTrefbT_io(ir*ar, OrIF:o[iri y;evelP=
1i0 .utsb.hp;evelP0 (it's'/ iS ffAoldaA)PEs*rfri yfit ptrtT=
1i0 .utstis )bef,)(>nleftual `...'st0wr(l['_Debug arx=0 s DL_Bat
er btus s DL_'at
! O_tL
&bstust*wML_adds1emcut&b;*"eaTre: "stust*wML_adds1emcut&b;*yESL_[h>ov_t1emcutL
1))tust*wML_adds1emcut&b;*"\E")*/
& !Idl*;uaigetsf==,_LRflevel++, &arst'%
fidZIbu'at
[120];'fOrfenoughF*/ fitUkgr)owfEs*`spAfEtf's to(ls[i_t (levelP=t-2)
fiels DL_adds1emcut&b;*"sf==,utracab==,:\*"e;o[iFIt> ['!* 'levelP>7LEVELS1T&& fit ptrtt'%
fiel A,)lmoref*son `LEVELS2'lmoreflevels?FEs*rfopJJ!* '!P_R getsf==,_LRflevel+LEVELS2, &arst*rfopfielsevel--f'] Akeep gofEs*Es*rfopJJ-> ['%-FI>o, s DL_adds1emcut&b;*"I>o, ...\*"e;(iOrf*/o manySlevels 3=essssssss& !Idl*;uaigetsf==,_LRflevel+LEVELS2, &arstpp.utfipe lastSlevels 3=essssssss flevel++op-posss}us fit ptrtT=
0tustDDJJt atinue Tr"is}us spAfEtf('at
;")%4d:aJ"Rflevel-1dx=0 ;uaL_adds1emcut&b;*'at
)op-p[i'['_get fory "Sn "n*&arsop-p[isc(fop k*ar.n
whatd'%
fieltasen'g':pptasen'l':pp.utpukimm, yocmm 3=essssssssspAfEtf('at
;")ffAoldaAs`%.50s'",par.n
e;o[iFI>o, ',': Tr"issstasen'f':pp.utfield 3=essssssssspAfEtf('at
;")methods`%.50s'",par.n
e;o[iFI>o, ',': Tr"issstasen't':pp.ut//OTmethodsEs*rfr(ssssspAfEtf('at
;")`%.50s't//OTmethod",par.n
e;o[iFI>o, ',': Tr"isss*nu(ls=:
s(sssswl!* '*ar.what;f=
am't' .utmain?FEs*rfopJJJJDDspAfEtf('at
;")mainToft%.70s",par.shoLE_srce;o[iFI>o, t> ['!* '*ar.what;f=
aC't' .utCdffAoldaAt Es*rfopJJJJDDspAfEtf('at
;")%.70s",par.shoLE_srce;o[iFI>o, t> [*rfopJJJJDDspAfEtf('at
;")ffAoldaAs<%d:%.70s>",par.lTY ORITY d,par.shoLE_srce;o[iFI>o, ar.sourc} =);ck xwl AdolXkevpAfEt sourc} again Es*rfoppp}*rfop}=0 ;uaL_adds1emcut&b;*'at
)op-p[i!* 'ar.curcentlTY >-de'%-FI>o, spAfEtf('at
;"),"uflTY %d",sar.curcentlTY dop-posss;uaL_adds1emcut&b;*'at
)op-p[i}p-p[i!* 'ar.sourc}I'%-FI>o, spAfEtf('at
;"),[%.70s]",par.shoLE_srce;o[iFI>o;uaL_adds1emcut&b;*'at
)op-p[i}p-p[i*wML_adds1emcut&b;*"\E")*/
}tppP_SL_&newRKs
l-(&bst
os'['_getpukimmry s Df-LERT_fo[i!* 'l_R isffAoldaAtL
-1st'%op.ut"
s*/'oop;!* f-LERTsislXkevORITY d Es*rfr('['_&new;s oF_Lls-2_f'] AtaTresmessage Es*rfr('['_raw[ s tL
1
0l*utd _s _top;*)0i (w===o_tod Le aputleft;, '['L_reg iolib[];&r:o[i{s DfERRORMESSAGEn*2aTrefb},o[i{"[lock",p-p[i!o_clock},o[i{"dar,"n*-p[i!o_dar,},o[i{"debug"n*-p[io_debug},o[i{"2xecute"n*-io_execute},o[i{"2xit"n*-p[i!o_2xit},o[i{"getenv"n*-pio_getenv},o[i{"r/rb
t"n* fio_ #rb
t},o[i{"r/TTs}",p fio_ #n
},o[i{"setlocmme",psetloc},o[i{"tmpn
",p fio_tmpn
}
};e o_tod Le aputleft;, '['L_reg iolib//O[];&r:o[i{"apbx dto",pio_apbx dto},o[i{"[lolefirv",p fio_[lole},o[i{"flush"n*-p[i!o_flush},o[i{"'bx firv",p fio_'bx },o[i{"r/ad"n*-p[i!o_r/ad},o[i{"r/adptes",pio_r/adptes},o[i{"seek",p-p[i!o_seek},o[i{"write"n*-p[io_write},o[i{"writeto",pfio_writeto}
};e o_tod L
s*/'bx rityt atrom__io(ir*ar, OrIF:o[iIOCtrlF*ctrl;&r(IOCtrlF*)s D_newuserdata();"smpaof(IOCtrl))tustunsigned*s_ yffAuxctrl->fotagT=
yES XFi//Ory)oo[ictrl->cloledtagT=
yES XFi//Ory)oo[i Dnnup
=>kiref[INFILE]T=
yES r f_LR"1dtus l['_&newt1emcutL
firvn{mes[OUTFILE])oo[ictrl->ref[OUTFILE]T=
yES r f_LR"1dtus el,pr ORITY dnfirv*sovdles;Es*rfsetfirv_LR"ctrln*s/>/nn*INFILE)o*rfsetfirv_LR"ctrln*s/>ou(,pOUTFILE)i setfirvbyn
_LR"ctrln*s/>/nn*"_STDI "e;o[isetfirvbyn
_LR"ctrln*s/>ou(,p"_STDOUT"e;o[isetfirvbyn
_LR"ctrln*s/>2aT "_STDERR"dtus el,[lole*firvsswhen [gr)g>S d"vut(llu'_&newcclolu)(_LRffirv_[gr)g>S
1_f0 .utpops `ctrl'_ptesssf==,uto(fil['iset//gmethod_LR"ctrl->fotag;")pc"stu(w==s DLIBf-PI
s*/'['_iolib'bx *(io(ir*ar, OrIF:o[i'['L_'bx l_Llsiolibdtu[iopx rityt atromry)oo(w=.ut*/
/*9323846to/d: ap*1e0 2000 op mathlib Orf*1e0koern48j mathlib 30 16329:5930st511 13:10:247gGFILE*Ouff*1 fLcS1andard mathemaficmm librsry retoes therE
of d limits_h
#ilib e " in [* ORITY 7FROMRAD(a) ((a)/RADIANS_PER_DEGREE) ORITY 7TORAD(a) ((a)*RADIANS_PER_DEGREE) endifu= ID_Lexuri ymath_absT_io(ir*ar, OrIF:o[i*wMi&newnsemcu_Llsfabs(yESL_[h>ov_nuemcu`);
1ststust_top;*)1i (w=ID_Lexuri ymath_si *(io(ir*ar, OrIF:o[i'['i&newnsemcu_Llspin(TORAD(yESL_[h>ov_nuemcu`);
1stsstust_top;*)1i (w=ID_Lexuri ymath_cosT_io(ir*ar, OrIF:o[i*wMi&newnsemcu_Llscos(TORAD(yESL_[h>ov_nuemcu`);
1stsstust_top;*)1i (w=ID_Lexuri ymath_1anT_io(ir*ar, OrIF:o[i*wMi&newnsemcu_Lls1an(TORAD(yESL_[h>ov_nuemcu`);
1stsstust_top;*)1i (w=ID_Lexuri ymath_asi *(io(ir*ar, OrIF:o[i'['i&newnsemcu_LlsFROMRAD(apin(yESL_[h>ov_nuemcu`);
1stsstust_top;*)1i (w=ID_Lexuri ymath_acosT_io(ir*ar, OrIF:o[i*wMi&newnsemcu_LlsFROMRAD(acos(yESL_[h>ov_nuemcu`);
1stsstust_top;*)1i (w=ID_Lexuri ymath_a1anT_io(ir*ar, OrIF:o[i*wMi&newnsemcu_LlsFROMRAD(a1an(yESL_[h>ov_nuemcu`);
1stsstust_top;*)1i (w=ID_Lexuri ymath_a1an2T_io(ir*ar, OrIF:o[i*wMi&newnsemcu_LlsFROMRAD(a1an2(yESL_[h>ov_nuemcu`);
1s;*yESL_[h>ov_nuemcu`);
2stsstust_top;*)1i (w=ID_Lexuri ymath_ceim__io(ir*ar, OrIF:o[i*wMi&newnsemcu_Llsceim(yESL_[h>ov_nuemcu`);
1ststust_top;*)1i (w=ID_Lexuri ymath_f'oorT_io(ir*ar, OrIF:o[i*wMi&newnsemcu_Llsf'oor(yESL_[h>ov_nuemcu`);
1ststust_top;*)1i (w=ID_Lexuri ymath_mo F('[' _ RB_ IF:o[i*wMi&newnsemcu_Llsfmo (yESL_[h>ov_nuemcu`);
1s;*yESL_[h>ov_nuemcu`);
2ststust_top;*)1i (w=ID_Lexuri ymath_sqrtP
utd _ RB_ IF:o[i'['i&newnsemcu_Llspqrt(yESL_[h>ov_nuemcu`);
1ststust_top;*)1i (w=ID_Lexuri ymath_powP
utd _ RB_ IF:o[i'['i&newnsemcu_Llspow(yESL_[h>ov_nuemcu`);
1s;*yESL_[h>ov_nuemcu`);
2ststust_top;*)1i (w=ID_Lexuri ymath_log (io(ir*ar, OrIF:o[i'['i&newnsemcu_Llslog(yESL_[h>ov_nuemcu`);
1ststust_top;*)1i (w=ID_Lexuri ymath_log10 (io(ir*ar, OrIF:o[i'['i&newnsemcu_Llslog10(yESL_[h>ov_nuemcu`);
1ststust_top;*)1i (w=ID_Lexuri ymath_exp (io(ir*ar, OrIF:o[i'['i&newnsemcu_Llsexp(yESL_[h>ov_nuemcu`);
1ststust_top;*)1i (w=ID_Lexuri ymath_deg (io(ir*ar, OrIF:o[i'['i&newnsemcu_LlslESL_[h>ov_nuemcu`);
1s/RADIANS_PER_DEGREE)tust_top;*)1i (w=ID_Lexuri ymath_rt F('[' _ RB_ IF:o[i'['i&newnsemcu_LlslESL_[h>ov_nuemcu`);
1s*RADIANS_PER_DEGREE)tust_top;*)1i (w=ID_Lexuri ymath_frexp (io(ir*ar, OrIF:o[iexuf2;o[i*wMi&newnsemcu_Llsfrexp(yESL_[h>ov_nuemcu`);
1s, &e));o[i*wMi&newnsemcu_Llse)tust_top;*)2i (w=ID_Lexuri ymath_ldexp (io(ir*ar, OrIF:o[i'['i&newnsemcu_Llsldexp(yESL_[h>ov_nuemcu`);
1s;*yESL_[h>ov_F
u(Lls2)sstust_top;*)1i (w==IID_Lexuri ymath_mi *(io(ir*ar, OrIF:o[iri ynP= lun_gettopry)o(iOrfdleft_eoftargux)cus;Es*rfdou2rvudmi *=slESL_[h>ov_nuemcu`);
1stus exufioo[i Dnnup
2>ki<=n
fs Dn'%Tr"isdou2rvud*=slESL_[h>ov_nuemcu`);
idx=0 !* 'd ov_nuemcu`);
1stus exufioo[i Dnnup
2>ki<=n
fs Dn'%Tr"isdou2rvud*=slESL_[h>ov_nuemcu`);
idx=0 !* 'd >udmaxt*rfopfidmax*=sd*/
}tppP_Si&newnuemcu`);
dmaxttust_top;*)1i (w==o_tod Lexufmath_randess(io(ir*ar, OrIF:o[iOrf*se '%'t"
s*sltanr(rsre)stasenofdr==1, ope is{dFedfo also/becau ['on*rfopfso
piutemsT_SunOS!) "rand()"fmayf_top;*) n;s oF larg-at*son RAND_MAX;Es*rfdou2rvur =)(dou2rv)(rand()%RAND_MAX) /)(dou2rv)RAND_MAX;o[isc(fop klun_gettopry)t'%op.ut[h>ovfdleft_eoftargux)cus;Es*rfsstasen0:n%'] A,)largux)cus Es*rfopppP_Si&newnuemcu`);
r)o(iOrfNleft_ebetwex *0 ope 1FEs*rfopJJ',': Tr"is FI>sstasen1:n%'] A'3", uh"ir limi-FEs*rfopJJexufu*=slESL_[h>ov_F
u(Lls1s;o[iFI>o;uaL_arg_[h>ov(Lls1<=u
1 "gcter;s is{empty"s;o[iFI>o;uai&newnsemcu_Lls(exu)(r*u)+1_f0 .utgctegt_ebetwex *1 ope `u'FEs*rfopJJ',': Tr"is FI>sstasen2:n%'] Alowt_eope uh"ir limi-sFEs*rfopJJexufl*=slESL_[h>ov_F
u(Lls1s;o[iFI>oexufu*=slESL_[h>ov_F
u(Lls2s;o[iFI>o;uaL_arg_[h>ov(Llsl<=u
2 "gcter;s is{empty"s;o[iFI>o;uai&newnsemcu_Lls(exu)(r*'u-l+1_)+l_f0 .utgctegt_ebetwex *`l'_ape `u'FEs*rfopJJ',': Tr"is FI>ss*nu(ls=:
l DL2aTre`);")wrrgC dleft_eoftargux)cus")*/
}tpp_top;*)1i (w==o_tod Lexufmath_randessefo _io(ir*ar, OrIF:o[iIrand(lESL_[h>ov_F
u(Lls1sstust_top;*)0i (w==o_tod Le aputleft;, '['L_reg mathlib[];&r:o{"abs"n*-pmath_abs},o{"pin"n*-pmath_pin},o{"cos"n*-pmath_cos},o{"1an"n*-pmath_1an},o{"apin"n*-math_asi },o{"acos"n*-math_acos},o{"a1an"n*-math_a1an},o{"a1an2"n*math_a1an2},o{"ceim"n*-math_ceim},o{"f'oor"n*math_f'oor},o{"mod"n*-pmath_mod},o{"frexp"n*math_frexp},o{"ldexp"n*math_ldexp},o{"pqr""n*ymath_sqrt},o{"min"n*-pmath_mi },o{"max"n*-pmath_max},o{"log"n*-pmath_log},o{"log10"n*math_log10},o{"exp"n* ymath_exp},o{"deg"n* ymath_deg},o{"rad"n*-pmath_rad},o{"randes",p-p[imath_randes},o{"randessefo"n*math_randessefo}
};e 1e0koeObx *math librsry r/=s DLIBf-PI
s*/'['_mathlib'bx *(io(ir*ar, OrIF:o[i'['L_'bx l_Llsmathlib);o[i*wMi&newcffAoldaAtL
math_pow);o[i*wMiset//gmethod_LR"s Dfumple x;")pow");o[i*wMi&newnsemcu_LlsPI);o[i*wMisetpukimmtL
"PI")oo(w=.ut*/
/*9323846to/d: ap*1e0 2000 op f elib Orf*1e0koern48j f elib 30 16569:5930st527 16:15:537gGFILE*Ouff*1 fLcS1andard librsrySfDnnstr1/
opeoa&daAS an vpatte;*-mafop1/
retoes therE
of d limits_h
#i*nu e " in/* e " inlib e " inov_ls==tL
1;"&l)op-p'['i&newnsemcu_Llslttust_top;*)1i (w==o_tod L,rgC posrelatP
urgC pos,lsmpa_t lenIF:o[iOrfrelativenstr1/
posildaA: negativenmeaAS b==,_ptessepe vut(l_top;*)*pos>=0d
? p's :r(urgC)len+p's+1i (w==o_tod Lexufstr_subT_io(ir*ar, OrIF:o[ismpa_t ltustt aputdZIbufsnf yESL_[h>ov_ls==tL
1;"&l)op-p'rgC o_trtT=
posrelat(lESL_[h>ov_,rgC_Lls2_lslttust'rgC epe =
posrelat(lESL_opt_,rgC_Lls3
-1_lslttust!* 'f trtT<-1)ro_trtT=
1tust!* 'epe >r(urgC)l) epe =
ltust!* 'f trtT<= epet*rfops Di&newls1emcutL
s+f trt-1,-epe-f trt+1eo os-> [ul['_&newt1emcutL
"")op-p_top;*)1i (w==o_tod Lexufstr_lowt_e_io(ir*ar, OrIF:o[ismpa_t ltustsmpa_t itustlESL_Bat
er btus t aputdZIbufsnf yESL_[h>ov_ls==tL
1;"&l)op-p' DL_'at
! O_tL
&bstust Dnnup
=>kio;uaL_puteft (&b;*tolowt_((unsigned*dZIb)(s[i])))tust*wML_&newRKs
l-(&bst
os_top;*)1i (w==o_tod Lexufstr_uh"ir _io(ir*ar, OrIF:o[ismpa_t ltustsmpa_t itustlESL_Bat
er btus t aputdZIbufsnf yESL_[h>ov_ls==tL
1;"&l)op-p' DL_'at
! O_tL
&bstust Dnnup
=>kio;uaL_puteft (&b;*touh"ir((unsigned*dZIb)(s[i])))tust*wML_&newRKs
l-(&bst
os_top;*)1i (w=o_tod Lexufstr_rep (io(ir*ar, OrIF:o[ismpa_t ltustlESL_Bat
er btus t aputdZIbufsnf yESL_[h>ov_ls==tL
1;"&l)op-pri ynP= lunL_[h>ov_F
u(Lls2s;o[i' DL_'at
! O_tL
&bstust& !Idl*n-- >-de
FI>o;uaL_addls1emcut&b;*slslttust'wML_&newRKs
l-(&bst
os_top;*)1i (w==o_tod Lexufstr_byteT_io(ir*ar, OrIF:o[ismpa_t ltustt aputdZIbufsnf yESL_[h>ov_ls==tL
1;"&l)op-p'rgC p's =
posrelat(lESL_opt_,rgC_Lls2;
1s;*yeo oss DL_arg_[h>ov(Lls0ki<=n
fs Dn'%Tr"isri ycp= lunL_[h>ov_F
u(Llsidx=0 s DL_arg_[h>ov(Lls(unsigned*dZIb)cTf= clsi;")gch synt;s oF"dx=0 s DL_puteft (&b;*(unsigned*dZIb)c)*/
}tppP_SL_&newRKs
l-(&bst
os_top;*)1i (w==I1e0koe{======================================================0koePATTERN MATCHING0koe======================================================={ustt aputdZIbufsrc_end;'fOrfeno _a\0')noftsourc} str1/
Es*rfexuflevel;(iOrf*/ts dleft_eoftcaptu)(s 'finish ds' lunfinish d)PEs*rfIDft;, %Tr"ise aputeft p*i O_x=0 srgC len;(iOrf-1Tsignmmssunfinish dtcaptu)( vut(l"tcaptu)([MAX_CAPTURES];
};e ORITY 7ESC '%' ORITY 7SPECIALS "^$*+?.([%-"uAPID_LexuF
u/ch>ov_captu)( ('[' _ RB_ n*_Staln*s/ft;, Captu)(>*capIF:o[i' -= '1'tust!* '!(0T<= l && lT<-cap->levelP&& cap->captu)([l].lx *!n--1st*rfops Di2aTre`);")gch syntcaptu)( inORx")op-p_top;*)li (w==o_tod Lexufcaptu)(_to_clole*(io(ir*ar, Orn*s/ft;, Captu)(>*capIF:o[iri y;evelP=
cap->leveltust Dnnusevel--f'sevel>
=>ksevel--)=0 !* 'cap->captu)([level].lx *f= - tL_top;*)leveltusts Di2aTre`);")gch syntpatte;*)captu)(")op-p_top;*)0i(iOrf*/ "nas,)warn1/
s 3=e}P_
e aputeft p*l DI_classend
utd _ RB_ n*e aputeft p*pIF:o[isc(fop k*p Dn'%Tr"istasenESC:*rfopJJ!* '*p;f=
a\0')ts Di2aTre`);")malfonmentpatte;*)'epessrity `%')"s;o[iFI>o_top;*)p+1o os tasen'[':*rfopJJ!* '*p;f=
a^')ths rcaJJJDf*/
l ] Alook Dnnl ']'FEs*rfopJJJJ!* '*p;f=
a\0')ts Di2aTre`);")malfonmentpatte;*)'missfEs*`]')"s;o[iFI>oJJ!* '*(p Dn'f=
ESCP&& *p;!n-a\0')nhs r0 .utsb.hpescap(s 'e.g. '%]') Es*rfoppp}t& !Idl**p;!n-a]'s;o[iFI>o_top;*)p+1o os *nu(ls=:*rfopJJ_top;*)p*/
}t(w==o_tod Lexufmatch_classs(exu clsi
u/clIF:o[iri y)(s;o[isc(fop ktolowt_(clIn'%Tr"istasen'a' :r)(s = isalpha(c)*J',': Tr"istasen'c' :r)(s = iscn el(c)*J',': Tr"istasen'd' :r)(s = isdigO_tc)*J',': Tr"istasen'l' :r)(s = islowt_(c)*J',': Tr"istasen'p' :r)(s = ispfAol(c)*J',': Tr"istasen's' :r)(s = isnpaca`c)*J',': Tr"istasen'u' :r)(s = isuh"ir(c)*J',': Tr"istasen'w' :r)(s = isaldle(c)*J',': Tr"istasen'x' :r)(s = isxdigO_tc)*J',': Tr"istasen'z' :r)(s = 'cTf= a\0');J',': Tr"is*nu(ls=:
_top;*)*clP=t-c)*/
}tpp_top;*)*islowt_(cld
? )(s : !reseo (w==IID_Lexuri ymatchbracketclasss(exu clse aputeft p*plse aputeft p*epeclassIF:o[iri ysigT=
1tust!* '*(p 1)T== a^')t%Tr"issigT=
0tustDDhs r0 .utsb.hp*se '^' vut(l"/cr& !Idl*++pT<-epeclassIF:o[iJJ!* '*p;f=
ESCI'%-FI>o, hs rcaJJJDf!* 'match_class(cls(unsigned*dZIb)*pIt*rfopfiel_top;*)sig Tr"is FI>sst> ['!* ''*(p 1)T== a-')t&& (p+2T<-epeclassII'%-FI>o, hs=2rcaJJJDf!* '(exu)(unsigned*dZIb)*(p-2)T<= cP&& cT<= (exu)(unsigned*dZIb)*pt*rfopfiel_top;*)sig Tr"is FI>sst> ['!* ''exu)(unsigned*dZIb)*pP=t-c)l_top;*)sig Tr"}tpp_top;*)!sig T(w==Iri y; DI_smculemafops(exu clse aputeft p*plse aputeft p*epIF:o[isc(fop k*pn'%Tr"istasen'.':pp.utmafopeS anyteft p*s*rfoppp_top;*)1o os tasenESC:*rfopJJ_top;*)match_class(cls(unsigned*dZIb)*(p 1))o os tasen'[':*rfopJJ_top;*)matchbracketclass(c;"p, ep-1do os *nu(ls=:*rfopJJ_top;*)((unsigned*dZIb)*pP=t-c)*/
}t(w==o_tod Le aputdZIbufmafop klun__ RB_ n*e aputeft p*slse aputeft p*pl*rfopfiellllllllllllllllllls/ft;, Captu)(>*capI;e o_tod Le aputdZIbufmafopimmance klun__ RB_ n*e aputeft p*slse aputeft p*pl*rfopfielllllllllllllllllllllllllls/ft;, Captu)(>*capI aswl!* '*pP=t-de*/'*(p 1)T== 0t*rfops Di2aTre`);")unimmanced patte;*"e;o[i!* '*s;!n-*pn'_top;*);ck x=JJ-> ['%-FI>oexu b n-*p;-FI>oexu } =)*(p 1);-FI>oexu t atT=
1tustcr& !Idl*++sT<-cap->src_endI'%-FI>o, !* '*s;== }I'%-FI>o, , !* '--t atT= i0d
_top;*)s+1o os ss}us t> ['!* '*s;== b) t ats rcaJJJ}Tr"}tpp_top;*);ck xwl Astr1/
epessou(eofdimmance t0w(w==o_tod Le aputdZIbufmax_expand
utd _ RB_ n*e aputeft p*slse aputeft p*pl*rfopfielllllllllllllllllllllllle aputeft p*epn*s/ft;, Captu)(>*capIF:o[i'rgC iP= 0i(iOrfcoucus;maximum expand Dnnitem.Es*rf& !Idl*(s+i)src_end && l DI_smculemafop((unsigned*dZIb)*(s+i);"p, epe)=0 !s rcaJ Akeeps tryfEs*/o,mafop rity *se maximum */pgtildaAs Es*rf& !Idl*i>=0d
%Tr"ise aputeft p*)(s = mafop(Lls(s+i);"ep+1,t Opstust, !* 'resep_top;*))(s;o[i, !--f'] At> ['didn't mafop;))(duce 1t*/pgtildaAs/o,try again Es*rf"/cr_top;*);ck x=}ee ID_Lexue aputdZIbufmin_expand
utd _ RB_ n*e aputeft p*slse aputeft p*pl*rfopfielllllllllllllllllllllllle aputeft p*epn*s/ft;, Captu)(>*capIF:o[i Dnnu;;)'%Tr"isd aputeft p*)(s = mafop(Llss;"ep+1,t Opstust, !* 'res;!n-Fsynt*rfopJJ_top;*))(s;o[i, t> ['!* 'ssrc_end && l DI_smculemafop((unsigned*dZIb)*s;"p, epe)=0 llss r0 .uttry rity oY 7moref*/pgtildaAs*s*rfopt> [t_top;*);ck x=JJ}t(w==o_tod Le aputdZIbuff trt_captu)( ('[' _ RB_ n*e aputeft p*slse aputeft p*pl*rfopfiellllllllllllllllllllllllll*s/ft;, Captu)(>*capIF:o[id aputeft p*)(sop-pri y;evelP=
cap->leveltust!* 'levelP>=7MAX_CAPTURES)ts Di2aTre`);")*/o manyScaptu)(s"e;o[icap->captu)([level].i O_T=
s;o[icap->captu)([level].lenP= -1;o[icap->;evelP=
level+1tust!* ''res=mafop(Llss;"p+1,t Ops)Tf= Fsyn)pp.utmafopvkaired?;Es*rfsstap->;evel--f'] Aun*/
captu)( vut(l_top;*))(s;o(w==o_tod Le aputdZIbufend_captu)( ('[' _ RB_ n*e aputeft p*slse aputeft p*pl*rfopfiellllllllllllllllllllllllls/ft;, Captu)(>*capIF:o[iri y;P=
captu)(_to_clole_LlscOpstustd aputeft p*)(sop-pcap->captu)([l].lx *=
s -pcap->captu)([l].i O_xs el,[lole*captu)( vut(l!* ''res = mafop(Llss;"p+1,t Ops)Tf= Fsyn)pp.utmafopvkaired?;Es*rfsstap->captu)([l].lx *=
-1f'] Aun*/
captu)( vut(l_top;*))(s;o(w==o_tod Le aputdZIbufmatch_captu)( ('[' _ RB_ n*e aputeft p*slsri y;evell*rfopfiellllllllllllllllllllllllll*s/ft;, Captu)(>*capIF:o[iri y;P=
ch>ov_captu)(_LRflevellscOpstustsmpa_t lenP= tap->captu)([l].lx tust!* ''smpa_t)(cap->src_end-sep>= lenP&&*rfopfimemcmp(cap->captu)([l].i O_;*slslen)T== 0t*rfop_top;*)s+lx tustt> [t_top;*);ck x=(w==o_tod Le aputdZIbufmafop klun__ RB_ n*e aputeft p*slse aputeft p*pl*rfopfiellllllllllllllllllls/ft;, Captu)(>*capIF:o[irii=:
AusfEs*goto'sf*/ optdmize tairt_tcursdaAs*s*rfsc(fop k*pn'%Tr"istasen'(':pp.utf trtTcaptu)( vut(lrfop_top;*)s trt_captu)((Llss;"p,t Opstust, tasen')':pp.utend captu)( vut(lrfop_top;*)end_captu)((Llss;"p,t Opstust, tasenESC:pp.utmaysbeA%[0-9]s' l%bFEs*rfopJJ!* 'isdigO_t(unsigned*dZIb)(*(p 1)))t'%op.ut[aptu)(t Es*rfopJJJJs = mafop_captu)((Llss;"*(p 1),t Opstust, opJJ!* 'sTf= Fsyn)p_top;*);ck x=JJJJJJJJhs=2rFgotobi O_xs el,t> [t_top;*)mafop(Llss;"p+2,t Ops Es*rfoppp}*rfop t> ['!* '*(p 1)T== ab't'%op.utimmanced str1/
t Es*rfopJJJJs = mafopimmance(Llss;"p+2,t Opstust, opJJ!* 'sTf= Fsyn)p_top;*);ck x=JJJJJJJJhs=4rFgotobi O_xs el,t> [t_top;*)mafop(Llss;"p+4,t Opst Es*rfoppp}*rfop t> ['gotobdfl_xs el,[asen*nu(ls=rEs*rfsstasena\0':pp.utend ofdpatte;*)Es*rfcrwD_top;*)srfiel,mafop succ/edfo Es*rfsstasena$':*rfopJJ!* '*(p 1)T== a\0')n] Ais *se '$' *se lastSeft pin patte;*t Es*rfopJJJJ_top;*)(sTf= cap->src_endI'? s : ;ck xwl A[h>ovfend ofdstr1/
Es*rfop t> ['gotobdfl_xTr"is*nu(ls=:
dfl_:n%'] Aitris{adpatte;*)item.Es*rfrfsst aputdZIbufnp]ams DI_classend(L;"p)owl Apoicus;tobwsotris{dFxtSEs*rfopppri ym*=
ssrc_end && l DI_smculemafop((unsigned*dZIb)*s;"p, epex=JJJJJJsc(fop k*epIF:/
crwDDDtasen'?':p{pp.utoptdaAal Es* d aputeft p*)(sop-pst, opJJ!* 'mP
ls''res=mafop(Llss+1,tep+1,t Ops)T!n-Fsynt)*rfopfielllll_top;*))(s;o[i, JJJJJJh=ep+1i0gotobi O_xs el,t> [t_top;*)mafop(Llss;"ep+1,t Opst 3=essssssss}us JJtasen'*':pp.ut0s' lmore */pgtildaAs Es*rffielllll_top;*)max_expand(Llss;"p,tep,t Opstust, opJJtasen'+':pp.ut1s' lmore */pgtildaAs Es*rffielllll_top;*)'mP?)max_expand(Llss+1,tp,tep,t Ops : ;ck stust, opJJtasen'-':pp.ut0s' lmore */pgtildaAs (minimum) Es*rffielllll_top;*)min_expand(Llss;"p,tep,t Opstust, opJJ*nu(ls=:*rfopJJFI>o!* '!mIF_top;*);ck x=JJJJJJJJllss r0h=epi0gotobi O_xs el,t> [t_top;*)mafop(Llss+1,tep,t Opst Es*rfoppp}*rfop}=JJ}t(w===o_tod Le aputdZIbuflmemfipe (e aputeft p*s1,lsmpa_t l1l*rfopfielllllllllllllllllllllle aputeft p*s2,lsmpa_t l2I aswl!* 'l2T= i0d
_top;*)s1f'] Aemptynstr1/
s a)(>nlerywhe)( vut(lt> ['!* 'l2T>f;1IF_top;*);ck xop.ut"
s*sva{dFgativen`l1'svut(l-> [u{Aux, e aputeft p*i O_x(iOrf*/ searopvkDnnl `*s2' fniiden`s1'FEs*rfopl2--f'] A1puteft pwis )beA[h>oved by `memchr'FEs*rfopl1nf l1-l2f'] A`s2' canXkevbF fDun raft-at*sotSEs*rfop& !Idl*;1 >-de
ls'i O_T=
(e aputeft p*)memchr(s1,l*s2,ll1s)T!n-Fsynt'%-FI>o, ! O_s r0 ] A1puteft pis>al #t y*[h>oved Es*rfopJJ!* 'memcmp(i O_;*s2+1,tl2I at-de2(fsaJJ[i_top;*)i O_-1o os ss-> [u{0 .ut[grRKcuf`l1'sape `s1'F/o,try again Es*rfffffff;1 -=)i O_-s1x=JJJJJJJJs1nf i O_x=0 pp}*rfop}=0 _top;*);ck xop.utXkevfDun rvut(l"/}dy*ID_Lexuri y&new_captu)(
utd _ RB_ n*s/ft;, Captu)(>*capIF:o[iri yioo[ilESL_[h>ovsf==,_LRftap->;evel;")*/o manyScaptu)(s"e;o[i Dnnup
=>kileveltfs Dn'%Tr"isri ylP= tap->captu)([i].lx tustwl!* 'l*f= - tLs Di2aTre`);")unfinish dtcaptu)("dx=0 s Di&newls1emcutL
tap->captu)([i].i O_;*l)*/
}tpp_top;*)cap->leveltfiOrfdleft_eoftstr1/
s push d t0w(w==o_tod Lexufstr_fipe (io(ir*ar, OrIF:o[ismpa_t l1,tl2tustd aputeft p*snf yESL_[h>ov_ls==tL
1;"&l1stustd aputeft p*pnf yESL_[h>ov_ls==tL
2, &l2)op-p'rgC i O_T=
posrelat(lESL_opt_,rgC_Lls3
1s;*y1) -a1tus s/ft;, Captu)(>capoo[ilESL_arg_[h>ov(Lls0T<= i O_T&& (smpa_t)i O_T<= l1ls3
"ou(eofdrangs"e;o[i!* 'l_R gettopry) > 3e*/'] Aextratargux)cut Es*rfopJJs/fpbrk(p
SPECIALS)Tf= Fsyn)p{pp.utorA,)lspecial eft act-as?FEs*rfope aputeft p*s2nf ymemfipe(s+i O_;*l1-i O_;*p,tl2Itustwl!* 's2t'%
fiels D_&newnsemcu_Llsp2-s+1s;o[iFI>o;ua_&newnsemcu_Llsp2-s+l2s;o[iFI>o_top;*)2rcaJJJ}Tr"}tpp-> ['%-FI>oexu anchor =)(*p;f=
a^')t? (p++
1)T:
0tustDDe aputeft p*s1=s+i O_tust, tap.src_end =)s+l1o os *o'%-FI>o, e aputdZIbuf)(s;o[i, JJtap.;evelP=
0tustDDJJ!* ''res=mafop(Llss1,tp,t& Ops)T!n-Fsynt'%-FI>o, s D_&newnsemcu_Llsp1-s+1s;pp.utf trtTEs*rfffffff;_Si&newnuemcu`);
res-ser0 ] Aepe vut(l[iFI>o_top;*)&new_captu)( tL
&capIF+ 2x=0 pp}*rfop}p& !Idl*s1++*capIF:o[ir* 'l_R iss1emcutL
3))'%Tr"isd aputeft p*newsnf yES_tos1emcutL
3)x=0 smpa_t lnf yES_sfel
U(L
3)x=0 smpa_t ix=0 Dnnup
=>kio, !* 'news[i]T!= ESC)*rfffffff;_SL_puteft (b;*news[i]s;o[iFI>o-> ['%-FI>o, is r0 .utsb.hpESCPEs*rfopJJJJ!* '!isdigO_t(unsigned*dZIb)news[i]s)*rfopfielll;_SL_puteft (b;*news[i]s;o[iFI>o>o-> ['%-FI>o, -pri y;evelP=
ch>ov_captu)(_LRfnews[i],t Opstust, opJJ>o;uaL_addls1emcutb
tap->captu)([level].i O_
tap->captu)([level].len)tus 0 pp}*rfoppp}*rfop}=JJ}tss-> [u{0 .utis{adffAoldaAsto(ls[i_xufntustr('['_&new;s oF_Lls3)x=0 nP= &new_captu)( tL
Opstust, l['_raw[ s tL
nls1s;o[iFIr* 'l_R iss1emcutL
-1st*rfop>o;uaL_add;s oF_bst0 .utadd _top;*)t {accumu)ar,d RKs
l-FEs*rfopt> [*rfopJJ'['_&opry
1_f0 .utffAoldaAsRKs
l-FislXkevatstr1/
:tpop itrvut(l"/}dy*ID_Lexuri ystr_gsubT_io(ir*ar, OrIF:o[ismpa_t srcltustt aputdZIbufsrcnf yESL_[h>ov_ls==tL
1;"&srclstustd aputeft p*pnf yESL_[h>ov_t1emcutL
2)op-pri ymax_snf yESL_opt_F
u(Lls4, srcl+1dtus exuftnchor =)(*p;f=
a^')t? (p++
1)T:
0tustri ynP= 0tus s/ft;, Captu)(>capoo[ilESL_Bat
er btus ' DL_arg_[h>ov(Llust, l['_gettopry) >= 3e&& (l_R iss1emcutL
3)T*/'P_R isffAoldaAtL
3))lust, 3;*"sfr1/
ortffAoldaAsexpg>S d"stust*wML_'at
! O_tL
&bstusttap.src_end =)src+srcltust& !Idl*n o, ns rcaJJJDfadd_ tL
&b,t& Ops;o[iFI}p-p[i!* 'ee&& e>src)iOrfdknAemptynmafopt Es*rfopJJsrcnf er0 .utsb.hpi-FEs*rfopt> [l!* 'srcno;uaL_puteft (&b;*fsrc Dn;o[i, t> ['',': Tr"is!* 'anchor)'',': Tr"}tppP_SL_addls1emcut&b;*src,ttap.src_end-srce;o[iP_SL_&newRKs
l-(&bst
os;_Si&newnuemcu`);
n)o(iOrfdleft_eoftsubstituldaAs Es*rf_top;*)2i (w=.ut}======================================================v $I_ho_tod L
s*/'['I_addquotfo _io(ir*ar, Orn*lESL_Bat
er *bn*ixuftrOIF:o[ismpa_t ltustt aputdZIbufsnf yESL_[h>ov_ls==tL
arg;"&l)op-p;_SL_puteft (b;*'"'stust& !Idl*l--)t%Tr"issc(fop k*st'%
fieltasen'"':pptasen'\\':pptasen'\n':*rfopJJFI;_SL_puteft (b;*'\\')tus 0 pp;_SL_puteft (b;**s)tus 0 pp',': Tr"issstasen'\0':p;uaL_addls1emcutb
"\\000"n*4);J',': Tr"isss*nu(ls=:
l DL_puteft (b;**s)tus 0 }us ss rcaJ}p-p;_SL_puteft (b;*'"'stu(w=.utmaximum smpa;ofleaopvkDnmatted)item.(>slen(kDnmat('%99.99f'
-1e308))t'to(#ORITY 7MAX_ITEM 512=.utmaximum smpa;ofleaopvkDnmatlspecifica&daA 'suopvas '%-099.99d't'to(#ORITY 7MAX_FORMAT 20==o_tod Lexufstr_fDnmatl(io(ir*ar, OrIF:o[iri ytrOT=
1tus e aputdZIbuff rfrmtnf yESL_[h>ov_t1emcutL
trOdtus lESL_Bat
er btus ' DL_'at
! O_tL
&bstust& !Idl**f rfrmtIF:o[iJJ!* '*f rfrmtn!n-a%'t*rfop>o;uaL_puteft (&b;*fs rfrmt Dn;o[i, t> ['!* '*++f rfrmtnfn-a%'t*rfop>o;uaL_puteft (&b;*fs rfrmt Dn;(iOrf%%FEs*rfopt> [l{ .utfDnmatlitem.Es*rfrfsss/ft;, Captu)(>capoo[iissstZIbufDnm[MAX_FORMAT]x(iOrf*/ storef*setfDnmatl('%...') Es*rffieldZIbu'at
[MAX_ITEM]x(iOrf*/ storef*setfDnmatted)item.Es*rfrfsst aputdZIbuf! O_fT=
s rfrmtoo[iisssfDnm[0];&ra%'tustDDJJ!* 'isdigO_t(unsigned*dZIb)f! O_f)t&& *(i O_f 1)T== a$'t'%-FI>o, trOT=
f! O_fT- '0'tus 0 pp! O_fT+=)2o0 .utsb.hp*se 'n$' Es*rfoppp}*rfop 'trOs rcaJst, tap.src_end =)s rfrmt sfel
U(f rfrmtI+1o os sstap.;evelP=
0tustDDJJf rfrmtnf mafop(Lls! O_f
"[-+ #0]*(%d*)%.?(%d*)",t& Ops;o[iFI !* 'cap.captu)([0].lx *> 2T*/'cap.captu)([1].lx *> 2T*/' .ut< 100t Es*rfopJJJJDDs rfrmt-! O_fT>7MAX_FORMAT-2)*rfffffff;_Si2aTre`);")gch syntfDnmatl(widty or,pr cisdaAs/oop'rgC)"s;o[iFI>os rncpy(kDnm+1,t! O_f
s rfrmt-! O_f+1s;p.ut+1 tobi ospAfEtf('at
;"fDnm;*yESL_[h>ov_F
u(Llsarg))tust, opJJ>o',': Tr"isssDDtasen'o':pptasen'u':pptasen'x':pptasen'X':*rfopJJFI>ospAfEtf('at
;"fDnm;*(unsigned*s_ )yESL_[h>ov_nuemcu`);
arg))tust, opJJ>o',': Tr"isssDDtasen'e':pptasen'E':ptasen'f':ptasen'g':ptasen'G':*rfopJJFI>ospAfEtf('at
;"fDnm;*yESL_[h>ov_nuemcu`);
arg))tust, opJJ>o',': Tr"isssDDtasen'q':*rfopJJFI>o'['I_addquotfotL
&b,ttrOdtus r"isssDDt atinue pp.utsb.hp*se "addsmpa),"uf*se epe vut(l[iFI>otasen's':'%-FI>o, -psmpa_t ltustDDJJssDDt aputdZIbufsnf yESL_[h>ov_ls==tL
arg;"&l)op-posssssss!* 'cap.captu)([1].lx *f= 0 && lT>= 100)s:/
crwDDDJJ'] A,)lpr cisdaAsape sfr1/
is *oop'rgC tobbetfDnmatted;/
crwDDDJJ']]]]keep origOAal str1/
Es*rfop JJFI>o'['_&new;s oF_LlstrOdtus r"isssDD>o;uaL_add;s oF_&bstusts r"isssDDt atinue pp.utsb.hp*se "addsmpa),"uf*se epe vut(l[iFI>oss}us JJ>o-> ['%-FI>o, -p>ospAfEtf('at
;"fDnm;*sstusts r"isssDD',': Tr"isssDDJJ}us JJ}us JJ*nu(ls=:
0.ut"lso,treatotases 'pnLlh' vut(l[iFI>oss;_Si2aTre`);")gch syntoptdaApin `fDnmat'"s;o[iFI>o}us P_SL_addls1emcut&b;*'at
;"sfel
U('at
))tus 0 }us }tppP_SL_&newRKs
l-(&bst
os_top;*)1i (w==o_tod Le aputleft;, '['L_reg f elib[];&r:o{"sfel
U",fstr_lx },o{"ptrsub",fstr_sub},o{"ptrlowt_",fstr_lowt_},o{"ptruh"ir",fstr_uh"ir},o{"ptrdZIb",fstr_dZIb},o{"ptrrep",fstr_rep},o{"apcii",fstr_byte}, .utfDnLe mptodbility rity 3.0 ope eaelit_evut{"ptrbyte",fstr_byte},o{"fonmat",fstr_fDnmat},o{"ptrfipe",fstr_fipe},o{"gsub",fstr_gsub}
};e 1e0koeObx *str1/
librsry r/=s DLIBf-PI
s*/'['_f elib'bx *(io(ir*ar, OrIF:o[i'['L_'bx l_Llsf elibstu(w.ut*/
/*9323846to/d: ap*1ecustom libs: ap*1 in [* iniS providfo 'as-is'
rityou(eanySexp*/
s or,implitdust&arranty. InA,)lnleftpwis )tanrautyorsbbetheld li/2rvskDnnlnySdamages
'trisfEs*ptesstanrusa;ofltaiS softwa)(.
PermissfaApis grantfo t {anyoY 7t {usa;taiS softwa)(skDnnlnySpurpole,o[iri2000fEs*c mmercial applica&daAs, ope t {alt-atit ope redistr1buteTito[ifreely,tsubjKcuf/o,tsetfDr)owfEs**/
tr1oldaAS:
1. T e origOA;ofltaiS softwa)( must XkevbF misrep*/
entfo; you must Xkeus claimt*sotSyou wrotef*se origOAal softwa)(.eIf you usa;taiS softwa)(us i*) nprodu>S
a*) cknowledgx)cu i*)*se produ>S docux)cua&daA wouldsbeus appr cia&id_butFislXkevrequired.us 2. Alt-aed sourc} versdaAs must bF plai3", markfo as such, ope must XkevbFus misrep*/
entfo as befEs*/se origOAal softwa)(.us 3. T iS n limitmaysXkevbF #rb
tds' lalt-aed ptesslnySsourc} distr1butdaA.
Jean-loup Gailly________Mark Adler
jloup@gzip.orOTTTTTTTTTTmadler@s omni.cmmtech.edu
T } datatfDnmatlusad by /se zlib librsrySiS descr1bad by RFCs (Requ/
ttfDn thmx)cus) 1950f/o,1952 i*)*se firvssftp://ds.gcternic.net/rfc/rfc1950.txeus (zlib fDnmat), rfc1951.txe (ORI)ar, fDnmat) ope rfc1952.txe (gzip fDnmat). [* e eORITY 7MAX_MEM_LEVEL 9u etndifu tndifueel,Maximum ;s oF fDnnwipeowBi-sFs_hORI)ar,Init2vope inI)ar,Init2. * WARNING:))(ducfEs*MAX_WBITSTmakvssminigzip un/2rvs/o,extra>S .gz
firvs0 oecr/at[d by gzip. (Firvsscr/at[d by minigzip [antstis )be,extra>S[d by0 oegzip.)
v $I#ifnORI MAX_WBITS
# eORITY 7MAX_WBITST 15tel,32K LZ77nwipeowFEs* endifu=el,T e memoryvrequirex)cus;fDnnORI)ar, a)( (s_hbytes):usts r"isssDD(1 < [* e eORITY 7OF(args) s()u etndifu tndifueel,TsetfDr)owfEs*ORITYildaAs fDnnFAR a)( needfo aAlySfDnnMSDOS mixtdus* modelPprogrammfEs*(small onnmedium modelPrity so
farvallocardaAs).
v T iS was testfo aAlySrity MSC;SfDnnothe)nMSDOS c mp!Idrsbyou may have0 oe*oeORITY 7NO_MEMCPYts_hzutdl.h. If you don't dFed)*se mixtd model,0 oejust ORITY 7FAR tobbetempty.
v $I#if (ORITY d(M_I86SM)T*/'ORITY d(M_I86MM))T&& !ORITY d(__32BIT__)
el,MSC small onnmedium modelP $I eORITY 7SMALL_MEDIUMI er_ORI _MSC_VER* e eORITY 7FAR _faru et> [* e eORITY 7FAR faru etndifu tndifu if ORITY d(__BORLANDC__)T&& (ORITY d(__SMALL__)T*/'ORITY d(__MEDIUM__))
# er_nORI __32BIT__
# e eORITY 7SMALL_MEDIUMI e eORITY 7FAR _faru etndifu tndifueel,C mp!Idlrity -DZLIBfDLLSfDnnWipeows DLLSsuh"ortTEs* if ORITY d(ZLIBfDLL)
# er_'ORITY d(_WINDOWS)T*/'ORITY d(WINDOWS)I e er_ORI FARI e estunORI FARI e etndifu i* [* e eJJ*nuTY 7ZEXPORTVA 7FAR _cdecl _exportI e etndifu tndifu r_'ORITY d (__BORLANDC__)I e er_ (__BORLANDC__ >= 0x0500)T&& ORITY d (WIN32)
# e i* [* e eJJr_'ORITY d (_Wipeows)T&& ORITY d (_fDLL__)I e e e eORITY 7ZEXPORT _exportI e e eJJ*nuTY 7ZEXPORTVA _exportI e e etndifu tndifu tndifu tndifu= if ORITY d (__BEOS__)u r_'ORITY d (ZLIBfDLL)
# eJJ*nuTY 7ZEXTERN -xtern __declspec(dllexport)u et> [* e eORITY 7ZEXTERN -xtern __declspec(dllimport)u etndifu tndifuemr_nORI ZEXPORTI eORITY 7ZEXPORTI tndifu ifnORI ZEXPORTVAI eORITY 7ZEXPORTVAI tndifu ifnORI ZEXTERNI eORITY 7ZEXTERN -xternu tndifuemr_nORI FARI e ORITY 7FARu tndifu= if !ORITY d(MACOS)T&& !ORITY d(TARGET_OS_MAC)
typeORI unsigned*dZIb 7Byte pp.ut8 bi-sFEs* tndifutypeORI unsigned*icu 7fIntf'] A16 bi-sF' lmore Es*typeORI unsigned*'rgC 7fLong;tel,32 bi-sF' lmore Es*u ifORI SMALL_MEDIUMI el,Borlope C/C++sape so
oldsMSC versdaAs ignore FAR fniidentypeORI $I eORITY 7Bytef7Byte7FARu t> [*rfotypeORI Byte7 FAR Bytef;* tndifutypeORI dZIb 7FAR cZIbf;utypeORI icu 7FAR fntf;utypeORI fInt 7FAR fIntf;utypeORI fLong7FAR fLongf;*u ifORI STDCurfotypeORI
s*/FAR *
s*pf;urfotypeORI
s*/////*
s*p;u t> [*rfotypeORI Byte7FAR *
s*pf;urfotypeORI Byte7 ///*
s*p;u tndifu= ifORI HAVE_UNISTDfH(# i*ad aAl,_trpe uh" )beAe0 onrzliss l
rncpeamterfaca;of. C*/
sdaAs(thtsti[h>dointf str1lemafrncep tanrallber bt)(>nleg-at*
ndifough nm+1ample,*i tanan `fpuirv*poisofm(in'ed),lmortsti[h>doint oegpgtild by tL
=ltanrzlip*/
sdaAsliboldaAS,0InA,)l lastS;*)ises ',l la
plica&daAs, st Xkevidfo 're Es*`fpuir uh/e ndilRITYe origutpui
RIvidfo *c me Es*gutpui ca`c))tFef Es*pvkDn tL
. Tzlirsry *oo,tre"ortT-xsl y*[*c m uh" r r*ptesss0 2grip.)
(.gz)nmat).<&arr -DZan `ffaca;oflsimig-a,tsetfattstr1/ e " Tzlirsry *oslXkevsuhidet onnSsourmmssuAe0nr32
e "sfTYp*d)isevsf== rzlip*denncencyltanrzlip*/
sdaAby atfD, sonrzlirsry *o"ldsbeenrywhe aprasheftpw2grienofdr==RKcuup)itemfpuiBee eORI
s*///p*++focard_olda)(arg(*///p*+opaqu',lt 7FAm.Ess,lt 7FAa),"us 0eORI
s*/////*(*e,"I_olda)((arg(*///p*+opaqu',l*///p*+ad sdaAus 0ft;, Capernic.al_o e e; eORI
st;, Capz_ncpeam_sFI>o, ef7Byt*
stSEs_iiOrf-1TtSEs*`fpuireT_io(l[iFI>t 7FARRRRavail_iiOrf-1Ttt_eoftsubes,"ufavailvs/o,at tSEs_iio(l[iFI>tg7FARtype dl_iiOrf-1Ts dlefbtsub`fpuireT_isl y*[ sonf*s*rfo>o, ef7Byt*
stSEs_gut;f-1TtSEs*gutpui eT_iouldsbeec mpui t( vut(lt> I>t 7FARRRRavail_gut;f-1Tremain*ptessee ca`c),at tSEs_emis(l[iFI>tg7FARtype dl_gut;f-1Ts dlefbtsubeT_islgutpui conf*s*rfo>o, b 7FAR*
smsg; el,SettSeftre`);hhossag',lnt'% tannlefe`);h(l[iFI>t;, Capernic.al_o e eR *
so e e;fdkevfDuvisis/o,byplica&daAs, o*rfo>o, ocard_olda zocard Aun*/st {anyocar, morrzliernic.al o e eR(l[iFI>e,"I_olda_ofe,"I] Aepe/st {anyssee rzliernic.al o e eR(l[iFI>*///p*+++++opaqu' Apoicrive eRatfDnKcus.< passt {anyzocardm uh"fe,"I*rfo>o, i7FARRRRatfD_eORI ApoibtfDngu or,u(emistdatatfDneORI: ii",flmorbiySz_i(l[iFI>tg7FARtyer32
; el,Seter32
# oF fDntanrzli mp*/
s
# sttatfDn(l[iFI>tg7FARtyet,"rv yourfrelat,"rv ynLSEEfu(>cap;!OR(w==pz_ncpeam; eORI
sz_ncpeamR *
sz_ncpeamp1e0koe Tzlilica&daAs, st Xkeupde eRtSEs_iio uh"avail_ii whpw2avail_ii ha= dro00/1{anyzero. Itst Xkeupde eRtSEs_eanySedRavail_gut whpw2avail_oui
R ha= dro00/1{anyzero. Tzlilica&daAs, st XkeldaAsal;oflzocard,"fe,"I* of
RI+opaqu'tFef Es* tL
*/se ori_T<= oldaAS,0InAonnm)nMSDfield)(>nle_d1 /se zl
RI+p*/
sdaAslibrsry *o must XkevbFus eupde ey /se zlilica&daAs, ,T e memopaqu'toF fDnvidfo 'as/se zlilica&daAs, s )beA[h>passt {ase firvsrsi
R pms
#e*)isLe mptL
=ltanzocardm uh"fe,"I iS n ltsti[h>;!OfulsLe mpom li
R oryvreqmanag'us;f. Tzlip*/
sdaAslibrsry *o ttaS anynleAS b*/o,maf zl
RI+opaqu'toF fD ,T ezocardmt Xkep;*)1i Z_nt'% tant( vutXkevreqifough oryvreqLe m origcus.< 3. youb shoXke/st {f strmulti-th y*[t {aica&daAs, ,yzocardm uh"fe,"I*t bF plotypeh y*[ safD ,T eOn-biutri temsTri,e firvldaAS,0 yzocardm uh"fe,"I*t bF pl vs/o,extocar, mo,T emplyvc m65536beT_is,tFisl )beAvbF #rb
red.us{anyocar, mormf*setfaniS wi,T etanrallsymbol SEG_64Ks!* tsITY d (ZLIdcheaf *
--).RNING:))(dOn-OS c t, 3;cu-at*osep;*)1i'as/sezocardmLoff_cus.;!Odnnstr1/aASstic lmo, 3;cidgs or,gtiT-xsInAat*sop*/
sdaAsli,(e dl_iiehold)(eheTs dlea;ofleaotypehli mp*/
s
# sttatfDn mustbeA%[0sav ynLSEE;!OR*se firTYp*/
sdaAmo, 3;(pmsticug-ac mtanrallTYp*/
sdaAmo_ y/oseORITYp*/
sdaAerywheth*c meg, 3;tr1lemafrncep)Bee el,Typpuu a;Es*rfeoicu
Dhmun_NO_FLUSH el,0oicu
Dhmun_PARTIAL_FLUSH 1,Typ )beA[h>b
tds' ,E;!ORZ_SYNC_FLUSH idety*[ #ORITY 7MAXZ_SYNC_FLUSH 2RITY 7MAXZ_Ft'%_FLUSH 3RITY 7MAXZ_FINISH el, 4,MVSAwfEs ynLh,"I oFst*r;Idche)ar,End()tFefEsnnORI)art_ts*rfeoicu
Dhmun_OK el,0oicu
Dhmun_STREAMD e e eJ1oicu
Dhmun_N_DUMMIC e eJJ2RITY 7MAXZ_ERRNO el,(-1)oicu
Dhmun_STREAMD RROR,(-2)oicu
Dhmun_DATAD RROR,l,(-3)oicu
Dhmun__LEV RROR,l,,(-4)oicu
Dhmun_BUFV RROR,l,,(-5)oicu
Dhmun_PI(#O'gD RROR,(-6),MVSR;*)cap-s,"IqLe m orip*/
sdaAsli/TYp*/
sdaAsliboldaAS,0 . Ntiven`lejusoFst*r(>nlere`);p,teldaA.vesoFst*r(>nle;!Odnnstr1ial eftFislnat).leftpwis $I#ifoicu
Dhmun_NO_Pp*1RES#O'g el,0oicu
Dhmun_BEST_SP_DU el,1oicu
Dhmun_BEST_Pp*1RES#O'g e9oicu
Dhmun_DEFAULT_Pp*1RES#O'g (-1)o/*ip*/
sdaAslibrlP= s*rfeoicu
Dhmun_FILTERDU el1oicu
Dhmun_HUFFMAN_ONLY el2oicu
Dhmun_DEFAULT_STRATEGY el,0o/*ip*/
sdaAslibncpEndgy;Idche)ar,Endt2_,"()tFefEsnnORI)art_ts*rfeoicu
Dhmun_BINARYel,0oicu
Dhmun_ASCII el1oicu
Dhmun_UNKNOWNel2o/*iPossis/o,oFst*r(tanrzliatfD_eORImfield*rfeoicu
Dhmun_DEFLATEU 8,TsetfDr)ar, a)(p*/
sdaAs(thhod_LRhe)('lySriton m"ortT-xt {f st sofsdaAs1.)I#ifoicu
Dhmun_Nt'% fDnLSEEldaAsal;o*c mzocard,"fe,"I,+opaqu't#ifoicu
Dhmub sh_sdaAs1.1b shVdaAs1.()o/*iLe mptodbility rity 3.0sdaAs ign< 1.0.2 e el,TypbasicrvldaAS,0 ye TERN -xtputdZIbufsnfXPORT _exb shVdaAs1.(arg(*///us 0TsetfDrlica&daAs, ststiptodbrexb shVdaAs1.( musnORI PI(#O'g fe ndilRnncency 3. you firvsrsit act-as?F dir bt),trzlirsry *o-s," -asuyvdeg/st {fi,T evbF ptodbilirity -DZrzlib c .h hy*[trrv*poid by /se zlilica&daAs, iS sofovfendadffu li Le yvdegm*c mbye)ar,Endt2_,e inI)ar,Init2. .$Ieooe@(# TERN -xti7FAPORT _ex)ar,Endt2_,earg(z_ncpeampbncpmi y;evell*rus 0f el,IdaAsal;ofs rzliernic.al o peamRo e eRLe mptodsdaAs(t.e memfield),T ezocard,"fe,"I* of+opaqu'tt bF pl ldaAsal;ofdtFef Es*/se zli yvder 3. youbocardm uh"fe,"I*>nle_d1 ORIn_Nt'%,x)ar,Endt2_,eupde es rzlm OR3. usli(ls=r;s ocardaAs).rvldaAS,0s" Tzlip*/
sdaAslibrlP= tt bF pl n_DEFAULT_Pp*1RES#O'g,lmorbetwepw2pe eae9ts r"1 g.vesibtfDn1ia' ,E9 g.vesibtfDnp*/
sdaAsli,(0 g.vesinlep*/
sdaAslib i
R onn(rzlierpui atfDnsoftlitd*o-spi nunicks_*faftimv 'n) 3. n_DEFAULT_Pp*1RES#O'g r/
ttfDdfew(ls=r;s p*/
somi',':etwepw21ia' * of
RI+p*/
sdaAs(theRKi y&od*otrexoFse/o,)(drlP= t6)" )ar,Endt2_,ep;*s:v un_OK ifcc/edfs),tn__LEV RROR,tant( vut tesus cifough oryvre,un_STREAMD RROR,tanrlP= tXkevatstryntcapt*/
sdaAslibrlP= ,3. n_PI(#O'gD RROR,ianrzlib c mrsry *osdaAs1.1(b sh_sdaAs1.)tXkeinptodbiliri3. y -DZrzlisdaAs1.1assITY */se zli yvderLIBfDLLPI(#O'g) 3. mss *oo_d1 ORInuonntant( vutXkevrtre`);hhossag'. )ar,Endt2_,eslXkevsu, 3;cermat)yteft */
sdaAsli:iS wis )gen[h>doint oe)ar,End()Bee TERN -xti7FAPORT _ex)ar,Endearg(z_ncpeampbncpmi y;evLh,"Ius 0Ts
)ar,Endip*/
sdaAbs{asemvas atfDn steldsis/o,e sfr1/ops whpw2rzlierpui
ber btusYp*/bs{tynmafe m origutpui eer btusYp*/bs{fuon. ItstbeAy;eu>S de
ol
gutpui ,Endncyl( y*[*c merpui you(eit.du>S d*c m uy gutpui)e xcept whpw
Dnm[sct {anysh,"I" tfDr)ated?;Eo_dma;Eic l>nleasr)owfEs . )ar,Endicermat)ston mmorboor,pff zl
RI)owfEs*ORIaaAS:
1. - C*/
sdaAre Es*`fpuirrtTEs*ORIatRtSEs_iio uh"upde eRtSEs_iio uh"avail_ii>o, occor[*c lyf youvalloca*`fpuirtsti[h>du>c
# stt(sYpa;taiS vutXkevre>o, ifough roomR*se firgutpui eer bt),RtSEs_iio uh"avail_ii >nle;pde ey of
RI+>du>c
# *ORI )geneORITYf*se eprovu z_iLe m oritSEs*c onnmfe)ar,End()Be1. - Pidfo 're Es*gutpui ctTEs*ORIatRtSEs_eanySedRupde eRtSEs_eanySedRavail_gut>o, occor[*c lyf S sofaaAS:
tXkem[sct {ianrzlipms
#e*)isLh,"I Xkevrnyzero.>o, F[sc*ptesh,"I fr/
tt&od*orade*c snrzlip*/
sdaAslibdaAS msonrzprovms
#e*)i[iFI>tldsbeec m_d1 ySrityhpw2nec
# *ohbyternicaaASvlilica&daAs, s) 3.
Ma,gutpui tbeA%[0cidfo 'asftpw2gfsLh,"I Xkevrtm_d1Be1. Bef Es* zli yvdnmfe)ar,End(),e zlilica&daAs, stldsbeeelRI
etfattaevelasi
Ron mmanralloaAS,0 yisteldsis/o,eb*ovidfo *c me Es*`fpuir uh/e ndilRIT*c
Re Es*gutpui,ySedRupde *ORIavail_ii ls )vail_gut occor[*c ly;Ravail_gut>o,"ldsbeenrywhA%[0zerotFef Es* zli yvd. Tzlilica&daAs, ststiptlRITYe or
ip*/
sdaAby gutpui yhpw2_,e y/osDnm;*ample,*i whpw2rzligutpui eer btuis{fuon
RI)vail_gut de2(f,lmor-at*sopvkDn tL
nmfe)ar,End()B you)ar,Endip;*s:v un_OK
plnityou(0zerot)vail_gut,2_,et bF pl yvdedain Es*-at*somak*_topoomR*se fi
gutpui eer btusYpa;taiS vutm dn lb're Es*gutpui pONrgng" Ianrzlipms
#e*)isLh,"I Xke_d1 ORIn_SYNC_FLUSH,loca*pONrgng*gutpui fi,T Lh,"It {anyrzligutpui eer btu t {azligutpui al #ted*'rg1.1a eT_iob rvu,"INmso rz*se epeTYp*/
sdaAmo_tstigelloca*`fpuiratfDn vailvs/o,conf*s. (Iattesticug-a
RRavail_ii al zerot)at*sotSli yvdngfsifough gutpui ca`c) ha= bepw2cidfo 'a
bef Es* zli yvd.) Fh,"I*c meaegrade*c mp*/
sdaAs(thnstr1 Ma,p*/
sdaAs(t
RRalgor rhmss so
2_,etldsbeec md by ySrityhpw2nec
# *" IanLh,"I Xke_d1 ORIn_Ft'%_FLUSH,loca*gutpui al Lh,"It {astyus n_SYNC_FLUSH,lot {azlip*/
sdaAslibncEndiislat,"tmsonrzatITYp*/
sdaAslibtstegpgtrtTEs*sstanruprovu z_igfs
sdviousip*/
sdaAby atfD ha= bepw2ages
laltiaotyrot lnySedfs) descr1d.us U *ORIZ_Ft'%_FLUSH p'rgoat* ststiseriousd*orade*c rzlip*odsdaAs(t. Ian)ar,Endip;*s:v ur -DZavail_gut de2(,nruprooldaAsprot bF pl yvdedain Es
y -DZrzliss l oF fDntanrzliLh,"I pms
#e*)is must Es*gutpui ca`c) (;pde ey
RRavail_gutf,lu;EilnrzliLh,"I isip*/
le*)RI)ar, fDnp;*s:v ur -DZvrn-zero
RRavail_gutf" Ianrzlipms
#e*)isLh,"I Xke_d1 ORIn_FINISH,*pONrgng*`fpuirprovidc
# st,3. pONrgng*gutpui fi Lh,"It {amus)ar, fDnp;*s:v ur -DZn_STREAMD e etant( vu
ya= ifough gutpui ca`c);'ORITY , fDnp;*s:v ur -DZn_OK,nruprooldaAsprot bF pl
ipyvdedain Es*r -DZn_FINISH must Es*gutpui ca`c) (;pde eyRavail_gutftFislna
Re Es*`fpuiratfD,lu;Eiln_,ep;*s:v ur -DZn_STREAMD e elnySptre`);InAat*s
)ar,Endiha= p;*)1i'asn_STREAMD e ,e zliySriteldsis/o+opedaAS /Beose fi
o peamR>nledar,R/
et
# ORI)ar, a)Ens 2. n_FINISH tsti[h>;!Odnimium a)ape at*so)ar,Endt2_,etanatanrautp*/
sdaAs(t
RR*oop'i[h>dointf str1lemafrncep.A,)l ln lts ',lavail_gut t bF pl vevelasi
R0.1%rg-at*son 8 bavail_ii s{"of12beT_is. Ian)ar,EndislXkevsuhp;*)1i n_STREAMD e ,e zln2_,et bF pl yvdedain Es*-escr1bad by abovf. )ar,End()t
# sbncpm->er32
{anyrzlier32
# evsf==umntanoca*`fpuir y*[
oonf*s*(tris,,32Ke dl_iiees) 1 . )ar,End()teaegupde eRatfD_eORImtaniirtstiv CFLa goodngu or,u(emi rzli`fpuiratfDneORIm(n_ASCII ORIn_BINARY).A,)ldoubt,stdatatfDnisip*dentyr'a
biySz_f S soffield*islySfDnnMSDinmat).du>c
# sttmore Es*gutpui pu>S ded),ln_STREAMD e etanoca*`fpuirha= bepw
iptlRITY {amusoca*gutpui ha= bepw2cidS ded (ySrityhpw2Lh,"I Xke_d1 OR
n_FINISH),un_STREAMD RROR,tanrzlis peamRo e eRya= inptlRnncent nm+1ample,*i
etantSEs_iio,)lsSEs_eanyya= nt'%-,un_BUFV RROR,tannlecidgs or,isteldsis/o
RIm;*ample,*i avail_ii ls )vail_gut ya= zero)Bee TERN -xti7FAPORT _ex)ar,EndEnsearg(z_ncpeampbncpmus 0Ts
nAonn{mic,"Iyvdegocar, moy atfD t;, CaI
utLe m ois o peamR>nlee,"Id iS sofoldaAsprodiscard)(>nequndu>c
# stt`fpuir uh
slXkevsuhLh,"I >ne, 3;ceNrgng*gutpui" )ar,EndEndep;*s:v un_OK ifcc/edfs),tn_STREAMD RROR,tanrzl s peamRo e eRya= inptlRnncent,un_DATAD RROR,tanrzlis peamRya= e,"Id, 3;cifop(I
deg(c Ma,`fpuiroff_utpui y-esciscarded).A,)l lasre`);hts ',3. mss tbeA%[0sd1 /mistdanicus;tobwsoa od Le a1/
lib(whikDnt XkevbFus mdeocar, moy)Bee @(# TERN -xti7FAPORT _ex)ar,Init2. earg(z_ncpeampbncpmus 0f el,IdaAsal;ofs rzliernic.al o peamRo e eRLe mTYp*/
sdaAsli.e memfield),T etSEs_ii, avail_ii,ezocard,"fe,"I* of+opaqu'tt bF pl ldaAsal;ofdtFef Es*/sotypehli yvder youvSEs_iioXkevrtmn_Nt'% uh"avail_ii iarg-at*difough n epe xact oF fDndeceNrBeose fi(p*/
sdaAs(thhod_LR),x)ar,Init2. ede*)iT*cfs rzl
RI+p*/
sdaAs(thhod_LRhsstanrusab c mhy*[trramusocar, mossoca*atfD t;, CaI
u
, occor[*c ly;nm)nMSwitaiS ocardaAs).r )gen[h>de btrt {anyrzlivsrsit tL
nmf,T etar,Ini. youbocardm uh"fe,"I*>nle_d1 ORIn_Nt'%,x)ar,Init2. eupde es rzlm OR3. usli(ls=r;s ocardaAs).rvldaAS,0s" )ar,Init2. ep;*s:v un_OK ifcc/edfs),tn__LEV RROR,tant( vut tesus difough
R oryvre, n_PI(#O'gD RROR,ianrzlib c mrsry *osdaAs1.1Xkeinptodbiliri y -DZrzl odaAs1.1assITY */se zli yvder. mss *oo_d1 ORInuonntant( vutXkevrtre`);
R orssag'. )ar,Init2. edlXkevsuhcermat)yteftTYp*/
sdaAslibapTEs*sstan y*[*c otypehlib c mhy*[trrgfs
sdtfo :iS wis )gen[h>doint oe)ar,Ini()B (SoRtSEs_iio uh
, ovail_ii tbeA%[0modified,tFisltSEs_eanySedRavail_gut >nle;nchs"e;d.)ee TERN -xti7FAPORT _ex)ar, a)(arg(z_ncpeampbncpmi y;evLh,"Ius 0Ts
)ar, a)(TYp*/
sdaAbs{asemvas atfDn steldsis/o,e sfr1/ops whpw2rzlierpui
ber btusYp*/bs{tynmafe m origutpui eer btusYp*/bs{fuon. ItstbeA ol
y;eu>S de
ol gutpui ,Endncyl( y*[*c merpui you(eit.du>S d*c m uy gutpui)
e xcept whpwnm[sct {anysh,"I" tfDr)ated?;Eo_dma;Eic l>nleasr)owfEs . )ar, a)(cermat)ston mmorboor,pff zl
RI)owfEs*ORIaaAS:
1. - DYp*/
sdaAee Es*`fpuirrtTEs*ORIatRtSEs_iio uh"upde eRtSEs_iio uh"avail_ii>o, occor[*c lyf youvalloca*`fpuirtsti[h>du>c
# stt(sYpa;taiS vutXkevre>o, ifough roomR*se firgutpui eer bt),RtSEs_iioXke/pde ey of>du>c
# *OR>o, )geneORITYf*se eprovu z_iLe m oritSEs*c onnmfe)ar,Ini()Be1. - Pidfo 're Es*gutpui ctTEs*ORIatRtSEs_eanySedRupde eRtSEs_eanySedRavail_gut>o, occor[*c lyf e)ar,Ini()ovidfo '_hasemvas gutpui steldsis/o,eu;Eilnrzls i*Xkevrte Es*`fpuiratfDA,)lspee Es*ca`c) *se firgutpui eer btMIdcheFefEs>o, o(emistdatLh,"I pms
#e*)i)Be1. Bef Es* zli yvdnmfe)ar,Ini(),e zlilica&daAs, stldsbeeelRI
etfattaevelasi
Ron mmanralloaAS,0 yisteldsis/o,eb*ovidfo *c me Es*`fpuir uh/e ndilRIT*c
Re Es*gutpui,ySedRupde *ORI oritSEsape offavail_usoFst*r(>ccor[*c lyf
Tzlilica&daAs, ststiptlRITYe ori mp*/
s
# sttgutpui yhpw2_,e y/osDnm;*
e xle,*i whpw2rzligutpui eer btuis{fuonRI)vail_gut de2(f,lmor-at*sopvkD
ipyvdnmfe)ar,Ini()B you)ar, a)(p;*s:v un_OK lnityou(0zerot)vail_gut,2_,
Re bF pl yvdedain Es*-at*somak*_topoomR*se fi gutpui eer btusYpa;taiS vu
Re dn lb're Es*gutpui pONrgng" Ianrzlipms
#e*)isLh,"I Xke_d1 ORIn_SYNC_FLUSH,l)ar, a)(Lh,"It_hasemvas
gutpui steldsis/o{anyrzligutpui eer bt.e memfh,"I*c mbehavioff_tl)ar, a)(fi,T vrtm_ifica&OdnnstroFst*r(tanrzliLh,"I pms
#e*)ism)nMSDn 8 bn_SYNC_FLUSH
plnitn_FINISH,*/mistdarRKi y&oslitdeua&daA wou-asuyvdegLh,"It_hasemvasigutpui
R steldsis/o{ uywa*" )ar,Ini()o"ldsbeenat).lly pl yvdedau;Eiln_,ep;*s:v un_STREAMD e elnySp
e e`);InHowrywhAtanoca*TYp*/
sdaAslib*oop'i[h>cermat)t {f str1lemafrncep
RI)r1lemafrpyvdnmfe)ar,Ini),e zlipms
#e*)isLh,"I tldsbeec m_d1 OR
n_FINISH.A,)l ln lts 'loca*pONrgng*`fpuirprovidc
# st{amusoca*pONrgng
gutpui fi Lh,"It ;lavail_gut t bF pl g-at*difough p'iholdnatanrau
i mp*/
s
# sttatfD. ( mema;ofleaoehli mp*/
s
# sttatfDn have0 o bepw2sav y
bye fi(p*/
sdaAortLe m ois tole,o[.)e memtSEs*gpedaAS /eose fis o peamRt bF
beI)ar,End z_eORITYocar, morrzliTYp*/
sdaAslibo e e.e mem;ofltain_FINISH
RR*oonrywhAb
red.us,*/miststi[h>;!Odni er32
{anyrzlier32
# evsf==umntanoca*gutpui pu>S ded
oonf*s*(tris,,32Ke dl_ouireT_is)tandep;*s:v un_OK,nn_STREAMD e eln
plnsre`);hts," -escr1bad by RefEs. Ase epe vutoanrzlis peam,r)ar,Ini()
ipvsf==ltris,,tsip*/
u ey r32
# evsf==umnpro
real tsetfattsav yn/se zl
RIp*/
sdaAortandep;*s:v un_STREAMD e elnc mtanrallevsf==umnproRKculyv" )ar,Ini()op;*s:v un_OK ifcc Ma,cidgs or,ha= bepw2m*c m(e Es*`fpuiovidc
# st
gore Es*gutpui pu>S ded),ln_STREAMD e etan epe vutoanrzlip*/
sdaAby atfD ha=e eFeeKs
laS at{amusoca* mp*/
s
# sttgutpui ha= bepw2cidS ded,un_N_DUMMIC etano
>dudtfiradaAsrySz_i*oonro aAl*se eprovu z_,un_DATAD RROR,tanrzli`fpuiratfDAwa=e eRKcuup)ite(`fpuirrtpeamRvbF ptlmat)*/o,maf zl b fDnmat), laltirRKculyv
r32
# evsf==um),un_STREAMD RROR,tanrzlis peamRo , CaI
Rya= inptlRnncent
RIm;*ample,*i tantSEs_iio,)lsSEs_eanyya= nt'%-,un__LEV RROR,tant( vut tesus ifough oryvre,un_BUFV RROR,tannlecidgs or,isteldsis/olaltiant( vut tesus ifough poomR*se fi gutpui eer btuwhpw2n_FINISH Xke/st .A,)l lasn_DATAD RROR
ses ',l lailica&daAs, staystdani yvdngar,Sync,"I,)(drooknnls ) good
I+p*/
sdaAs(thcks_*Bee TERN -xti7FAPORT _ex)ar,End z_earg(z_ncpeampbncpmus 0Ts
nAonn{mic,"Iyvdegocar, moy atfD t;, CaI
utLe m ois o peamR>nlee,"Id iS sofoldaAsprodiscard)(>nequndu>c
# stt`fpuir uh
slXkevsuhLh,"I >ne, 3;ceNrgng*gutpui" )ar,End z_ep;*s:v un_OK ifcc/edfs),tn_STREAMD RROR,tanrzl o peamRo e e ya= inptlRnncent.A,)l lasre`);hts ', mss tbeA%[0sd1 /mistdanicus;tobwsoa s Le a1/
lib(whikDnt XkevbFus mdeocar, moy)Bee MVSAdvanct {vldaAS,0 ye Ts
memfowfEs*ORIvldaAS,0 y needfo aAlySfDn*sec Ma,1ial eftlica&daAs, sBee MVS # TERN -xti7FAPORT _ex)ar,Endt2_,2(arg(z_ncpeampbncpmi i7FARrlP= ,3. i7FARhod_LR,3. i7FAReowBi-s=15,3. i7FARhovelP= ,3. i7FARncpEndgyus 0f el,S sofal #nm)nMSDsdaAs1.1tan)ar,Endt2_,eyou(0e Es*p*/
sdaAs(thdaApins.e mef efield)(tSEs_ii, zocard,"fe,"I* of+opaqu'tt bF pl ldaAsal;ofdtFef Es*/sotypehli yvder Tzlihod_LRhpms
#e*)isisnrzlip*/
sdaAslibhod_LR. Itst Xkebmun_DEFLATEU ii>o, t sofsdaAs1.1tanrzlirsry * TzlieowBi-sFs_hpms
#e*)isisnrzlibs 'ltw(drogar rhmttanrzlieowFEs*a;of (tmema;ofleaoehli sotvreqeer bt). y,etldsbeec m*se fi rs"e; 8..15tLe m ois odaAs1.1tanrzlirsry * L-at*sooFst*r(tanrzprovms
#e*)is
l-FislXti[ht*)i[iFIp*/
sdaAslib il lasrxpelRDnta oryvrequsag'. Tzli(ls=r;s oF fDnpro15tiaotyo)ar,Endt2_,etke/st {f ety*[ TzlihovelP= 8vms
#e*)is_ifica&Or,hEs*mvasioryvreqtldsbeec mocar, moyf efstrrzliernic.al p*/
sdaAslibo e e.ehovelP= =1e/stinigzi ;s oryvreqbut>o, is ofEsn redist desip*/
sdaAslibdaAS ;ehovelP= =9e/stinimum ;s oryvre
RtyLoff_aAp).le1ia' . Tzli(ls=r;s oF fDnpro8.e,_p af *
--tfstrr dleoryvre
Rtyusag' -esafoldaAsprota eowBi-sFs_h mustovelP= TzlincpEndgyhpms
#e*)isisn;!Odni o, if,_,etkevrtm_d1pr ciopr a)ap x)ar,Endt2_,2(p;*s:v un_OK ifcc/edfs),tn__LEV RROR,tant( vut tesus difough
R oryvre, n_STREAMD RROR,tanahpms
#e*)isisn syntoptopvas '%-an `fyntop
R ord_LR). mss *oo_d1 ORInuonntant( vutXkevrtre`);hhossag'. )ar,Endt2_,2
slXk,T etsuhcermat)yteft */
sdaAsli:iS wis )gen[h>doint oe)ar,End()Bee TERN -xti7FAPORT _ex)ar,EndD1oldaAsrySz_iarg(z_ncpeampbncpmi putdZIef7Byt*ldaAsry,"IN t 7FARldaALengtIus 0Ts
,IdaAsal;ofs rzli */
sdaAslibadaAsrySz_isstanrusag.ven eT_iou/
tt&ci3. y -Deit.du>S d*c m uy p*/
sdaAby gutpui.iS sofoldaAsproe bF pl yvded>o, imium a)ape at*so)ar,Endt2_,, )ar,Endt2_,2
ORI)ar, a)et
# ,tFef Es*>ne, 3; tL
nmfe)ar,End. Tzlip*/
sdaAortandeTYp*/
sdaAmo_t Xkeuseopplyvc mrzliss lotyo)daAsrySz_iIdche)ar,SetD1oldaAsry
# ) Tzli)daAsrySz_itldsbeeptlRnnctstr1/
lis (eT_iou/
tt&cis)(tfattanlegik)apotypeetemptnptuned pte,_trpe*se firTtfDneoec mp!IdsdaAby, y -DZrzlie sommercgSfD3. usldr1/
lis fixserabritemistoward)( epe vutoanrzli)daAsrySz_ U *ORIaotyo)daAsrySz_iiAee so>;!Ofulswhpw2rzliTtfDneoec mp!IdsdaAby *oo_hT-xtandetsti[h, 3;cif)daArityou( goodnaccuracy;2rzliTtfDncaniS enec mp!IdsdaAby [ht*)iDn 8 3. y -DrrzliTYs=r;s tynmaf)daAsrySz_ DeceNrgng*gn tmema;ofleaoehli */
sdaAslibatfD t;, CaI
utseled by0 oegyo)ar,Endt2_,eoso)ar,Endt2_,2,nahpmsttoanrzli)daAsrySz_stbeAy;ier bctls mdiscardedDnm;*ample,*i ianrzli)daAsrySz_siarg-at*son 8 brzlieowFEs*a;of ii>o, )ar,Endioso)ar,End2. Tzusnrzl o p lis e so>gik)apneoec m;!Ofulstldsbeec , 3;cutf*se epe vutoanrzli)daAsrySz_,uvalloistdatLroni" Uplibd;*)captanrzprooldaAspr,bncpm->er32
{*oo_d1 ORItdatAr32
# oF fD oanrzli)daAsrySz_;rrzliTYp*/
sdaAmo_tbeA,_trpe;taiS sofoF fDnORITY*)iT*cf3. yhikDn)daAsrySz_sha= bepw2d by /se zlip*/
sdaAmo. ( memAr32
# oF fD lica&es ORItdatwholli)daAsrySz_sftpw2gfsgSfDnabjKc
# Oanrzli)daAsrySz_sia lasuyvdeg/st {/se zlip*/
sdaAmo.) )ar,EndD1oldaAsrySz_ip;*s:v un_OK ifcc/edfs),tmorn_STREAMD RROR,tana, 3;cms
#e*)isisn syntoptopvas '%-Nt'% )daAsrySz_)fe m orio peamRo e eRwi,T etnptlRnncent nm+1ample,*i'ORITY , fDnha= al y*[y bepw2 yvdedaLe m ois o peam ormtanralle*/
sdaAs(thhod_LRhis bs)u . )ar,EndD1oldaAsrySz_islXkevsu, 3;cermat)yteft */
sdaAsli:iS wis )gen[h>doint oe)ar,End()Bee TERN -xti7FAPORT _ex)ar,Endr
# iarg(z_ncpeampbdestN z_ncpeampbnc} dius 0Ts
,S# sbrzliTYstinaAs, st peamR>esafp*/
le*)RrE
otoanrzlisc} dist peam.0f el,S sofoldaAscanXkeec m;!Ofulswhpw2srywhal p*/
sdaAslibo pEndgieis )gen[hotyperiedDnm;*ample,*i whpw2rzlrI*>nle_dywhal wayr,ian
sd-du>c
# *ORIrzlierpui
ratfDAw -DZaefiatit. Tzlincpeam=ltris, )gen[h>discardedstldsbeeS enec me,"Id, 3; oe tL
*/se)ar, a)Ens Noa)(tfatt)ar,Endr
# iduca&daAfs rzliernic.al[iFIp*/
sdaAslibo e eRyhikDnXkeec mquitl g-at* msonrzproncpEndgyhis ofEsn re, 3; ttiptlRITYeloo, is p!IdsdaAby y -DrrzlioldnrlP= t( mustbeA%[0Lh,"It );I oritSwnrlP= t )ge
R i CFLer bctltSfDnatI oritSEs*c onnmfe)ar,End()Be1. . Bef Es* zli yvdnmfe)ar,Endams
# ,m orio peamRo e eRe bF pl _d1prsnm;*
esafpyvdnmfe)ar,End(),e *OcestdarRKi y&ofDnavailvs/o,`fpuir have0 o OR3. c mp!IdsdaAby musLh,"It A,)ltesticug-a,bncpm->evail_gut t bF pl vrn-zero" )ar,Endams
# ip;*s:v un_OK ifcc/edfs),tn_STREAMD RROR,tanrzl oc} di
Ra1/
eamRo e eRya= inptlRnncent ormtanahpms
#e*)isya= inyntop,un_BUFV RROR>o, if,ncpm->evail_gut ya= zeroBee MVS # TERN -xti7FAPORT _ex)ar,Init2_,"(arg(z_ncpeampbncpmi i7FAReowBi-sFs_us 0f el,S sofal #nm)nMSDsdaAs1.1tan)ar,Init2. er -DZan ra>S[hpms
#e*)i.e mef efield)(tSEs_ii, avail_ii,ezocard,"fe,"I* of+opaqu'tt bF pl ldaAsal;ofd3. c f Es*/se zli yvder 3 TzlieowBi-sFs_hpms
#e*)isisnrzlibs 'ltw(drogar rhmttanrzliimum ;s eowBi-
Ra1;of (tmema;ofleaoehli sotvreqeer bt). y,etldsbeec m*se fi rs"e; 8..15tLe >o, t sofsdaAs1.1tanrzlirsry * Tzli(ls=r;s oF fDnpro15tian)ar,Init2. eisn;!Od,T etnety*[ Ianasp!IdsdaAby ncpeam, )-DZaeg-at*soeowFEs*a;of isag.ven ai,T etnpui,y)ar,Ini()o )geneO*)capy -Drrzlire`);hts," n_DATAD RROR,tdety*[ eaotypery*/o,mafocar, moraeg-at*soeowFEs x)ar,Init2_,"(p;*s:v un_OK ifcc/edfs),tn__LEV RROR,tant( vut tesus difough
R oryvre, n_STREAMD RROR,tanahpms
#e*)isisn syntoptopvas '%-a(tSiven`lejARhovelP= ). mss *oo_d1 ORInuonntant( vutXkevrtre`);hhossag'. )ar,Init2_,", 3;TlXkevsuhcermat)yteftTYp*/
sdaAslibapTEs*sstan y*[*c f zl b fDnhy*[trrgf, 3;ciftfo :iS wis )gen[h>doint oe)ar,Ini()B (SoRtSEs_iio uh ovail_ii tbeA%[ejARhodified,tFisltSEs_eanySedRavail_gut >nle;nchs"e;d.)ee TERN -xti7FAPORT _ex)ar,IniD1oldaAsrySz_iarg(z_ncpeampbncpmi putdZIef7Byt*ldaAsry,"IN t 7FARldaALengtIus 0Ts
,IdaAsal;ofs rzliTYp*/
sdaAslibadaAsrySz_isstanrusag.ven mp*/
s
# stteT_i
Ra1/
tt&ci.iS sofoldaAsproe bF pl yvded imium a)ape at*soarpyvdnmfe)ar,Ini>o, if, ln ltsgeneO*)ca'asn_N_DUMMIC . Tzli)daAsrySz_ich,o[n bye fi(p*/
sdaAor, 3; ttis mde*)iT*cfRhsstanrusaAr32
# oF fDep;*)1i'as/se ln ltsgenmf,T etar,Ini. Tzlip*/
sdaAortandeTYp*/
sdaAmo_t Xkeuseopplyvc mrzliss lotyo)daAsrySz_iIdche)ar,EndD1oldaAsrySz_)" )ar,EndD1oldaAsrySz_ip;*s:v un_OK ifcc/edfs),tn_STREAMD RROR,tana, 3;cms
#e*)isisn syntoptopvas '%-Nt'% )daAsrySz_)fe m orio peamRo e eRwi,T etnptlRnncent,un_DATAD RROR,tanrzlig.ven ddaAsrySz_islXk dFeop(Lle or
i rxpec aAlySs_hbyRKculyvaAr32
# oF fD). )ar,EndD1oldaAsrySz_islXkevsu, 3;cermat)yteftTYp*/
sdaAsli:iS wis )gen[h>doint oejKc
#
tt&omptL
=lta,T etar,Ini()Bee TERN -xti7FAPORT _exgar,Sync,"I,arg(z_ncpeampbncpmus 0Ts Skipsn syntoptp*/
sdaAby atfD u;Eilna{fuonRLh,"I pu z_iIdcheabovfe or
icr1badpAs).reaoTY , fDnr -DZn_Ft'%_FLUSH); ttis mf rvu,tmoru;Eilnage
Ravailvs/o,`fpuir*oo_kippt ANo gutpui fi cidfo 'a" )ar,Inic,"I,p;*s:v un_OK ifca{fuonRLh,"I pu z_iha= bepw2f rvu,tn_BUFV RROR>o,tannlee Es*`fpuio tescidfo 'a,un_DATAD RROR,tannoRLh,"I pu z_iha= bepw2f rvu,
tmorn_STREAMD RROR,tanrzlis peamRo , CaI
Rya= inptlRnncent.A,)l lasc/edfs)
ses ',l lailica&daAs, stayss0 onrzliRKi y&osRKi y&osoF fDntanr dl_iieyhikD>o,tnd&daAfs w( vutyntoptp*/
sdaAby atfD ya= e rvu.A,)l lasre`);hts ', tla
plica&daAs, staypgtild bylyi yvdngar,Sync,"I,ovidfo *c me Es*`fpuirpvkDnv 'n,
tu;Eilnc/edfs)tmor vutoanrzli`fpuiratfDBee TERN -xti7FAPORT _exgar,Synet
# arg(z_ncpeampbncpmus 0Ts
nS sofoldaAscanpro
rexoFse/o,)(d)ar,End z_efowfEst {/se)ar,Init2_,,, 3; u edlXkevsuhe,"I* of+rYocar, moratanrauternic.al TYp*/
sdaAslibo e e.
Tzlincpeam, )genkeepmatbuteTitspehatn have0 o bepw2sd1 /se)ar,Init2. * x)ar,Iniet
# p;*s:v un_OK ifcc/edfs),tmorn_STREAMD RROR,tanrzlisc} di
Ra1/
eamRo e eRya= inptlRnncent npvas '%-bocardmstr1/aAemEs*/sent'%-.ee epe/tty ritvldaAS,0 ye Ts
memfowfEs*ORI/tty ritvldaAS,0 y>nlelitdeua&d'rg1.1topntanrau
ipbasicr1/
eam-oria&d'rgoldaAS,0 . Toftlitdifynrauternica;of,A ol
i(ls=r;s daApinsl>nleassITY *(e*/
sdaAs(thrlP= tamusoryvrequsag',
Ra1/avu,"usoryvreqocardaAs).rvldaAS,0s). Tzlin } dists," tanraurfotyp/tty ritvldaAS,0 y ttieasileA%[0modified you wa_d)*se1ial eftdaApins.ee TERN -xti7FAPORT _exp*/
sdaAearg(ef7Byt*lestN I>tg7FAyt*lestLenN putdZIef7Byt*n } di,>tg7FARn } diLenus 0Ts
nC*/
sdaAfs rzlin } diseer btuinORItdatTYstinaAs, seer bt.eRn } diLentfs tzlibT_iolengtItoanrzlisc} diseer bt.eUpliba&dre, lestLensisnrzlir dl
Ra1;of Oanrzli)YstinaAs, seer bt, whikDnt Xkepl vevelasiR0.1%rg-at*son 8
Ra1 } diLents{"of12beT_is. Uplibax_,, )astLensisnrzlilasuyva1;of Oanrzl[iFIp*/
sdaAt {/er bt.f el,S sofoldaAscanXkeec m;!Odni tg7FAyt*lestLenN putdZIef7Byt*n } di,>tg7FARn } diLenN y;evell*rus 0Ts
nC*/
sdaAfs rzlin } diseer btuinORItdatTYstinaAs, seer bt.eTzliell*r, 3;cms
#e*)ishase firss liAS b*/o,a_hORI)ar,Init2vo.eRn } diLentfs tzlibT_i, 3;lengtItoanrzlisc} diseer bt.eUpliba&dre, lestLensisnrzlir dla1;of Oanrzl[iFI)YstinaAs, seer bt, whikDnt Xkepl vevelasiR0.1%rg-at*son 8 a1 } diLents{"o[iFI12beT_is. Uplibax_,, )astLensisnrzlilasuyva1;of OanrzlIp*/
sdaAt {/er bt.ff el,p*/
sdaA"(p;*s:v un_OK ifcc/edfs),tn__LEV RROR,tant( vut tesus difough
R oryvre, n_BUFV RROR,tant( vut tesus difough poomR*se fi gutpuiseer bt,
R n_STREAMD RROR,tanrzlillP= 8vms
#e*)isisn syntop.fe TERN -xti7FAPORT _ex mp*/
s
# earg(ef7Byt*lestN I>tg7FAyt*lestLenN putdZIef7Byt*n } di,>tg7FARn } diLenus 0Ts
nDYp*/
sdaAbs{rzlin } diseer btuinORItdatTYstinaAs, seer bt.eRn } diLentfs tzlibT_iolengtItoanrzlisc} diseer bt.eUpliba&dre, lestLensisnrzlir dl
Ra1;of Oanrzli)YstinaAs, seer bt, whikDnt Xkepl g-at*difough p'iholdn or
i r;Eirli mp*/
s
# sttatfD. ( mema;ofleaoehli mp*/
s
# sttatfDn Xkee0 o3. c pw2sav ys
sdviousleA%ye fi(p*/
sdaAortandetransmittt {anyrzliTYp*/
sdaAmo, 3;beA ol orchs"ism gutentypememacopeptanrzprop*/
sdaAslibrsry *.)
i Uplibax_,, )astLensisnrzlilasuyva1;of OanrzlIp*/
sdaAt {/er bt.f nS sofoldaAscanXkeec m;!Odni o, Her mlnstSfDnp*/
sdaAsliba_hORI"wb1h"B (SeorrzliTY1badpAs). oan)ar,Endt2_,2nLSEEe Es*`fmat).nleobta*cfRhsstanptL
=lgik) open,iduc,tp y*,, pipeptrf efilenoohbytrzlim*poAha= bepw2cidviousleAopen ly -Drfopen).
Tzlimodiovms
#e*)iIis a_hORIgzopen.f nS ritSEs*c onnmfegzcloRDntse fi r;*)1i'asgzF*poAy onnS,trecloRDntmef efipoATY1badpASEEfd, juso>gik) fcloRD(fdopen(fd),lmodiuecloRDstrzlim*po[iFI)YsbadpASEEfd. Iou wa_ y/oni o, vutoanm*poi -1nm;*ame`);) $e TERN -xti7FAPORT _ex ,gz r reiarg(gzF*poAm*poi putdZI*///p ur,eu;sed*'rglenus 0Ts
nWr resnrzlig.ven tt_eoftsub mp*/
s
# stteT_is inORItdatp*/
s
# sttm*po 3. gz r reip;*s:v u oritt_eoftsub mp*/
s
# stteT_is lasuyvdeg r rtpw>o, (0tgrienofdr==me`);) fe TERN -xti7FAPORT _eVA. gzpri7Ffiarg(gzF*poAm*poi putdZIbufsnfmat).<,,...us 0Ts
nC*nverosDnm;*).l(tanrzliLat), lo p li, a_hORIfpri7Ff. gzpri7Ffip;*s:v u oritt_eoftsu
b mp*/
s
# stteT_is lasuyvdeg r rtpw (0tgrienofdr==me`);) fe TERN -xti7FAPORT _e gzputeiarg(gzF*poAm*poi putdZIbufsnfsus 0Ts
nnWr resnrzlig.ven ttll-*)iT*c moy 1/
libORItdatp*/
s
# sttm*po,e xcind*c otypehli*)iT*c m libnuonn act-as?F.f n gzputeip;*s:v u oritt_eoftsub act-as?Fsg r rtpw,tmor-1ngrienofdr==me`); fe TERN -xtbufsnfXPORT _exgzgeteiarg(gzF*poAm*poi pufsnf ur,ey;evelnus 0Ts
nnRy*[sneT_is sstanrusap*/
s
# sttm*potu;Eilneln-1n act-as?Fsg>nle y*[,l);
R a(tSwlDhmu act-as?F isl y*[ andetrans btrt {any ur,elnySptrnd-of-m*po[iFIputdiAscanpro
nptuned pt. Tzlincpgng*` u orn *)iT*c moy )-DZaenuon
Rn act-as?F.f n gzgeteip;*s:v u ur,elnyZ_nt'% trienofdr==me`); fe TERN -xti7FAPORT _ex ,gzputciarg(gzF*poAm*poi y;evcus 0Ts
nnWr resnci putverot {anyaneu;sed*'rg act, inORItdatp*/
s
# sttm*po 3. gzputcip;*s:v u orioF fDnOris, asg r rtpw,tmor-1ngrienofdr==me`); fe TERN -xti7FAPORT _ex ,gzgetciarg(gzF*poAm*pous 0Ts
nnRy*[snoint ote sstanrusap*/
s
# sttm*po ,gzgetcip;*s:v u oisibT_i, 3;mor-1ngrienofdr==mvutoanm*po ;*ame`); fe TERN -xti7FAPORT _ex ,gzLh,"I arg(gzF*poAm*poi y;evLh,"Ius 0Ts
Fh,"Iossoca*pONrgng*gutpui fnORItdatp*/
s
# sttm*po Tzlivms
#e*)i[iFILh,"I Xkea_hORIrzliTYr,Ini()ooldaAS,0InTfi r;*)1i oF fDnpro zl b fD>o, e`);htt_eoftIdcheoldaAscangz e`);hFefEs).,gzLh,"I p;*s:v un_OK ifotypehliLh,"I pms
#e*)isistn_FINISH musoca*gutpui cdsbeec mLh,"It f ngzLh,"I tldsbeec m yvded ySrityhpw2ncpgyvlynl
Ra1ortT-xt ;,gzdchk orn p*/
sdaAbs{aa1/
tt&ciltanzeroeke/pbORItdattSw
Ra1/aEs*ORIeldaA.(t* xgzdchk p;*s:v u ori
l-Fis*/o,tae_d1 ardaAs).rasemeaRI
dlXti[T_is ssta tzlibeginb*/o,tanraui mp*/
s
# stts peam,rmor-1ngrienofdr==me`);, ii>o, testicug-a,tanrzlim*poAislypen lfmo_ r r*ptlot {azlitSwn1/aEs*ORIeldaA.(t>o, wdsbeec mbef Es* zli Ki y&oseldaA.(t* e TERN -xti7FAPORT _ex ,gz yeowFiarg(gzF*poAm*pous 0Ts
nRyeowFsnrzlig.ven m*po TzprooldaAspropro"ortT-xt {ySfDnnMSD y*[*c * gz yeowF(m*pounpro
rexoFse/o,)(d( z_)gzdchk(m*poi 0L,nSEEKDSET)fe TERN -xtz_off_FAPORT _ex ,gzteca*arg(gzF*poAm*pous 0Ts
nRy*s:v u orictTEs*ORIeldaA.(thnstrt ritSEs*gz y*[ strgz r reiose fi
ig.ven p*/
s
# sttm*po TzisteldaA.(threciftfo %-a(tt_eoftsubeT_is ine fi
i mp*/
s
# sttatfDnt peam. gzteca(m*pounpro
rexoFse/o,)(dgzdchk(m*poi 0L,nSEEKDCUR)ee TERN -xti7FAPORT _exgz ofiarg(gzF*poAm*pous 0Ts
nRy*s:v u1tyhpw2EOFAha=
sdviousleA%epw2ae*)c aAl y*[*c f zl g.ven `fpuirs peam,rmtnMSwitaizeroBee TERN -xti7FAPORT _ex ,gzcloRDnarg(gzF*poAm*pous 0Ts
nFh,"Iossoca*pONrgng*gutpui ffo, e`);htt_eoftIdcheoldaAscangz e`);hFefEs).fe TERN -xtbutdZIbufsnfXPORT _exgz e`);harg(gzF*poAm*poi y;ev*ie`numus 0Ts
nRy*s:v u orire`);hhossag'hnstrt rilasiRre`);hwhikDnoc Ki ydiose fi
ig.ven p*/
s
# sttm*po ie`num *oo_d1 ORIb fDnre`);htt_eof Ianan>o, e`);hoc Ki ydibytrzlim*poAsystem andeus did ralle*/
sdaAs(thrsry *,>o, e`num *oo_d1 ORIZ_ERRNO ot {azlilica&daAs, staypptlRIltsre`na
Ra)(dgeil lasrx-asire`);hts,"Bee el,Typpvsf==umnvldaAS,0 ye Ts
meseIvldaAS,0 y needsuhp;l moy tlep*/
sdaAslibbut >nleextT-xt
R anywa*usYpa;taiS yRe dn lb'r;!Ofulsiio ica&daAs, sr;!*c f zl[iFIp*/
sdaAslibrsry *.fe TERN -xttg7FARPORT _ex r32
# arg(tg7FAR r32
i putdZIef7Byt* ur,euI;evelnus 0 Ts
Upde eRa runb*/o,Ar32
-# evsf==umny -DrrzlieT_is ur[0..eln-1]s re, 3;r;*)1i raui pde ey evsf==um Ian ur *ooNt'%,xruprooldaAsprop;*s:v tzlib
red.us ldaAsal oF fDnLe m oripvsf==um An,Ar32
-# evsf==umnXkeale so>a= p;livs/o,'%-a(CRC# /miststi[h>p*/
u ey
R ovas t,"Iwh U ag'hmple,*i:ff n g7FAR r32
=x r32
# (0L,nn_Nt'%,x0s 0f el,whi/o,( y*[_/er bt( ur bt,tlengtI) !=2EOF) { r32
=x r32
# ( r32
i ur bt,tlengtI); } ff<( r32
!=2original_ r32
)ire`);(); e TERN -xttg7FARPORT _excrc# arg(tg7FARcrci putdZIef7Byt* ur,euI;evelnus 0Ts
Upde eRa runb*/o,crcny -DrrzlieT_is ur[0..eln-1]s re;r;*)1i raui pde ey[iFIprc Ian ur *ooNt'%,xruprooldaAsprop;*s:v tzlib
red.us ldaAsal oF fD[iFILe m oriprc Pre- of>d so-putdiAsca lib(oin'sip*/
leua&dunprocermat)t >o, w -Df st sofoldaAspro 2_,etldsbe dFe[h>doint oeazlilica&daAs, U ag'hmple,*i:ff n g7FARcrcn=xcrc# (0L,nn_Nt'%,x0s 0f el,whi/o,( y*[_/er bt( ur bt,tlengtI) !=2EOF) { crcn=xcrc# (crci ur bt,tlengtI); } ff<(crcn!=2original_crc)ire`);(); e el,TypvariousAhaf==,>doi'tdrookn:)Ieooe@(#)ar,Endt2_,e inI)ar,Init2. >nlemacrosqanyocarw evsf=*c f zl b fDnsdaAs1.
*lot {azlip*/
i/or'siviSwntanz_ncpeam:$IeooTERN -xti7FAPORT _ex)ar,Endt2_,_earg(z_ncpeampbncpmi y;evell*rN butdZIbufsnfsdaAs1.,xy;evncpeam_1;ofus 0TERN -xti7FAPORT _ex)ar,Init2_,_earg(z_ncpeampbncpmi butdZIbufsnfsdaAs1.,xy;evncpeam_1;ofus 0TERN -xti7FAPORT _ex)ar,Endt2_,2_earg(z_ncpeampbncpmi y;evvell*r,xy;evRhod_LR,3. y;evyowBi-s=15, y;evhovelP= ,3. xy;evncpEndgy, butdZIbufsnfsdaAs1.,3. xy;evncpeam_1;ofus 0TERN -xti7FAPORT _ex)ar,Init2_,2_earg(z_ncpeampbncpmi y;evveowBi-s=15,3. butdZIbufsnfsdaAs1.,xy;evncpeam_1;ofus 0#TY d (x)ar,Endt2_,(ncpmi ell*ru \3. )ar,Endt2_,_((ncpm), (ell*ru, BfDLLPI(#O'g,a1;ofof(z_ncpeam))0#TY d (x)ar,Init2_,(ncpm) \3. )ar,Init2_,_((ncpm), BfDLLPI(#O'g,a1;ofof(z_ncpeam))0#TY d (x)ar,Endt2_,2(ncpmi ell*r,Rhod_LR,vyowBi-s=15, hovelP= ,vncpEndgyu \3. )ar,Endt2_,2_((ncpm),(ell*ru,(hod_LR),(eowBi-sFs_u,(hovelP= ),\3. (ncpEndgyu, BfDLLPI(#O'g,a1;ofof(z_ncpeam))0#TY d (x)ar,Init2_,2(ncpmi eowBi-sFs_u \3. )ar,Init2_,2_((ncpm), (eowBi-sFs_u, BfDLLPI(#O'g,a1;ofof(z_ncpeam))0
#ff #ONrgf #ff
sWIN32 eORI
s__ z_64 I64; #Olse eORI
sl7FARl7FARI64; #ONrgf TypprotoeORIme LUAfDLLAPII*/// lux fD_open(lua_S/aAem*Ls 0Ts TODO:dgeilridtstr1/ Le ai/osDn;taicloRI
uttdety*[ e 1/ Le ai/o luxhovtag 0Ts lux_TORIm-neORImta oryvreqchunk ye enum { lux_raw, lux_heap, lux_ncp, lux_m*poA} 0Ts lux_Mem -n;taratfDnm;*amaasiorymapye eORI
so , Cat{ bufsnfptr; 1;of_eveln; i/o eORI; unspro{ FILE* fp; i/o ref; } u;
} lux_Mem 0 Ts lux_oryhot lIm-neORI-safe putverAs1.1tan;taratfDn)(drux_Mem ptr e 1/ Le arux_Mems lux_oryhot lI(lua_S/aAem*Li y;evL) { */// *pn=xlua_to;taratfD(Li f); ff<(p de2nt'% ||xlua_tag(Li f)n!=2luxhovtag)
i xlua_re`);(Li "wr7FARtORIm-nhov mapyrxpec aA"); r;*)1i p;
} Ts lux_omcloRDn-ecloRDnorymap,eclS b*/o,up,'%-a ciopr a) e 1/ Le ai/o lux_omcloRD(lua_S/aAem*Ls { rux_Mem *mn=x(rux_Mems) lux_oryhot lI(Li -1); sw -as (m->tORI) { enofdlux_heap:he,"I(m->ptr); bpeak; enofdlux_o ,:xlua_unref(Li m->u.ref); bpeak; enofdlux_m*po: #ff
sWIN32 UnmapViSwOfF*po(m->ptr); #Olse munmap(m->ptri m->elnu; #ONrgf fcloRD(m->u.fp); bpeak; } m->tORIn=xlux_raw; m->ptr = 0; m->eln = 0; r;*)1i 0;
} Ts lux_newmem -np y*,e a(tSwnorymap,easn;taratfDno , CaI
Re 1/ Le arux_Mem *lux_newmem(lua_S/aAem*Li y;evti pufsnfp, 1;of_evns { rux_Mem *mn=x(rux_Mems) lua_new;taratfD(Li 1;ofofx(rux_Mem)); lua_settag(Li luxhovtag); m->tORIn=xt; m->ptr = p; m->eln = n; r;*)1i m;,TypS,trelS vXkevSwn;taratfDnlibo ef=Ie } Ts lux_omraw -np y*,e a(orymapysstan aw oryvreq(ds"e;ro;t) e 1/ Le ai/o lux_om aw(lua_S/aAem*Ls { *///* ptr = (*///s) luaL_evsf=_l7FA(Li 1); s;of_evelnn=xluaL_evsf=_l7FA(Li 2s 0ty(*///u lux_newmem(Li lux_raw, ptri elnu; r;*)1i 1;
} Ts lux_omheap -np y*,e a(orymapysstanstio,ar, moy chunkmta oryvreqe 1/ Le ai/o lux_omheap(lua_S/aAem*Ls { s;of_evelnn=xluaL_evsf=_l7FA(Li 1s 0ty(*///u lux_newmem(Li lux_heap, mo,ar,(elnui elnu; r;*)1i 1;
} Ts lux_omo , -np y*,e a(orymapysstans Luaa1/
lib(sufstiniryvre) e 1/ Le ai/o lux_om1/
(lua_S/aAem*Ls { s;of_eveln; bufsnfptr = (bufss) luaL_evsf=_l1/
(Li -1, &elnu; i/o refn=xlua_ref(Li 1); lux_Mem *mn=xlux_newmem(Li lux_ncp, ptri elnu; m->u.refn=xref; r;*)1i 1;
} Ts lux_omm*poA-np y*,e a(orymapysstans m*poi _ifica&Odnby ns lie 1/ Le ai/o lux_omm*po(lua_S/aAem*Ls { bufsnfptr; 1;of_eveln; lux_Mem *m; FILE *fpn=xfopen(luaL_evsf=_1/
li(Li 1)i "rb"); ff<(fp de2nt'%)xlua_re`);(Li "candsuhopen(m*po"); fdchk(mp, 0,nSEEKD e ); llnn=xfteca(mpu; #ff
sWIN32 { HANDLE hn=xC y*,eF*poMa c li((HANDLE) _get_osfhot lI(_fileno(mpu), 0,nPAGE_READONLY, 0,nlpw,t0); ptr = h ? MapViSwOfF*po(h, FILE_MAP_READ, 0,n0,nlpw) :2nt'%; } #Olse ptr = ymap(0,nlpw,tPROT_READ, MAP_PRIVATE, fileno(mpu,t0); #ONrgf ff<(ptr =e2nt'%)x{ fcloRD(fp); lua_re`);(Li "candsuhmapys*po"); } mn=xlux_newmem(Li lux_m*poi ptri elnu; m->u.fpn=xfp; r;*)1i 1;
} Ts lux_om`fmaA-nr;*)1i rORI,eaddrfs),t librdngtItoanrzisiorymapye 1/ Le ai/o lux_om`fma(lua_S/aAem*Ls { rux_Mem *mn=xlux_oryhot lI(Li 1); ff<(m->eln ptr); lua_pushtt_eof(Li m->elnu; lua_pushtt_eof(Li m->tORI); r;*)1i 3;
} Ts lux_omoubA-nr;*)1i abjKc-1/
librE
otm*c msstanruisiorymapye 1/ Le ai/o lux_omjKc(lua_S/aAem*Ls { rux_Mem *mn=xlux_oryhot lI(Li 1); f&osln=xluaL_ops_iit(Li 2i 1); f&osjn=xluaL_ops_iit(Li 3i -1); Ts dsue:nrzliLawfEs*ORIts," -,trec*nverosn)(d0-bs 'd [i..j) e f += f < 0 ? m->eln : -1; ff<(j < 0)sjn+= m->eln + 1; Ts ff<(f < 0 ||xj > m->eln ||xi > jf r;*)1i 0; e ff<(f < 0)sln=x0; ff<(j > m->eln)sjn=xm->eln; ff<(f > jf ln=xj; lua_pushl1/
li(Li m->ptr + i,sjn- iu; r;*)1i 1;
} Ts lux_z r32
# -m yvcule eRrallAr32
-# evsf==umnstr1ifica&Odnorymapye 1/ Le ai/o lux_z r32
# (lua_S/aAem*Ls { rux_Mem *mn=xlux_oryhot lI(Li 1); l7FARsn=xluaL_ops_l7FA(Li 2,x r32
# (0,0,0)u; lua_pushtt_eof(Li r32
# (si m->ptri m->elnuu; r;*)1i 1;
} Ts lux_zcrc# -m yvcule eRrallCRC-# evsf==umnstr1ifica&Odnorymapye 1/ Le ai/o lux_zcrc# (lua_S/aAem*Ls { rux_Mem *mn=xlux_oryhot lI(Li 1); l7FARsn=xluaL_ops_l7FA(Li 2,xcrc# (0,0,0)u; lua_pushtt_eof(Li crc# (si m->ptri m->elnuu; r;*)1i 1;
} #ffn
sNOCOMP Ts lux_zcomp -ncermat)yb fDnp*/
sdaAs(thdnr1ifica&Odnorymapye 1/ Le ai/o lux_zc*/
(lua_S/aAem*Ls { z_ire`; z_ncpeam zs; ef7Byt* urfer; lux_Mem *mn=xlux_oryhot lI(Li 1); f&oswbFs_h=xluaL_ops_iit(Li 2i 0)s< 0 ? -MAX_WBITS : MAX_WBITS; f&osrlP= t=xluaL_ops_iit(Li 3i n_DEFAULT_COMPRES#O'g); zs.ovail_ii =xm->eln; zs.tSEs_iio= m->ptr; zs.ovail_gut d m->eln + m->eln / 1000 + 12; zs.tSEs_gut d eer btu= mo,ar,(zs.ovail_gut); zs.bocardm=x0; zs.be,"I*=x0; zs.opaqu't=x0; re`t=x)ar,Endt2_,2(&zsi ell*r,Rn_DEFLATEU,swbFs_,3. MAX__LEVLEVELi n_DEFAULT_STRATEGY); ff<(re`t==un_OK)x{ re`t=x)ar,End(&zsi n_FINISH); ff<(re`t!=ln_STREAMD e ) { )ar,EndEnd(&zs); ff<(re`t==un_OK)xre`t=xn_BUFV RROR; } Olse re`t=x)ar,EndEnd(&zs); }
ff<(re`t!=ln_OK)x{ e,"I(eer bt); lua_re`);(Li zEe`);(re`us 0 }
(*///u lux_newmem(Li lux_heap, rYocar,( ur bt,tzs.e dl_oui),tzs.e dl_oui); r;*)1i 1;
} #ONrgf Ts lux_zTYp*/
-ncermat)yb fDnTYp*/
sdaAslibdnr1ifica&Odnorymapye 1/ Le ai/o lux_zTYp*/
(lua_S/aAem*Ls { z_ire`; z_ncpeam zs; ef7Byt* urfer; lux_Mem *mn=xlux_oryhot lI(Li 1); f&oswbFs_h=xluaL_ops_iit(Li 2i 0)s< 0 ? -MAX_WBITS : MAX_WBITS; f&os ur1;of =xluaL_ops_iit(Li 3i 16*1024); for (;;)x{ zs.bocardm=x0; zs.be,"I*=x0; zs.ovail_ii =xm->eln + 1; Ts +1 isl yred.us by b fDne zs.tSEs_iio= m->ptr; zs.ovail_gut d ur1;of; zs.tSEs_gut d eer btu= mo,ar,( ur1;of); re`t=x)ar,Init2_,2(&zsi wbFs_); ff<(re`t==un_OK)x{ re`t=x)ar,Ini(&zsi n_FINISH); ff<(re`t!=ln_STREAMD e ) { )ar,End z_(&zs); ff<(re`t==un_OK)xre`t=xn_BUFV RROR; } Olse re`t=x)ar,IniEnd(&zs); } ff<(re`t==un_OK)xbpeak; e,"I(eer bt); ff<(re`t!=ln_BUFV RROR) lua_re`);(Li zEe`);(re`us 0 s ur1;of *= 2 0 }
(*///u lux_newmem(Li lux_heap, rYocar,( ur bt,tzs.e dl_oui),tzs.e dl_oui); r;*)1i 1;
} Ts log"Iyv*gpedaAS /s,lmodidedaiat*sobFs fDnby Reubln Thoma ye #TY d (xLCN(a) ((I64) luaL_evsf=_tt_eof(Lia)) 1/ Le ai/o lux_imod(lua_S/aAem*Ls { rua_pushtt_eof(Li (doubpoun(LCN(1) %xLCN(2)uu; r;*)1i 1;
} 1/ Le ai/o lux_bot (lua_S/aAem*Ls { rua_pushtt_eof(Li (doubpoun(LCN(1) &xLCN(2)uu; r;*)1i 1;
} 1/ Le ai/o lux_bo
(lua_S/aAem*Ls { rua_pushtt_eof(Li (doubpoun(LCN(1) |xLCN(2)uu; r;*)1i 1;
} 1/ Le ai/o lux_bxo
(lua_S/aAem*Ls { rua_pushtt_eof(Li (doubpoun(LCN(1) ^xLCN(2)uu; r;*)1i 1;
} 1/ Le ai/o lux_lshift(lua_S/aAem*Ls { Ts ruisigpedaAS /e ttipa;tair rvuof==me`);sne rua_pushtt_eof(Li (doubpoun(LCN(1) << luaL_evsf=_iit(Li 2)uu; r;*)1i 1;
} 1/ Le ai/o lux_rshift(lua_S/aAem*Ls { Ts dir bts sstanbFs fD!ne rua_pushtt_eof(Li (doubpoun(LCN(1) >> luaL_evsf=_iit(Li 2)uu; r;*)1i 1;
} #un
sLCN Ts lux_lux fDverA -ngeilatI orirsry *s uilttatfI* of+verAs1.1tt_eofte 1/ Le ai/o lux_lux fDverA(lua_S/aAem*Ls { rua_push1/
li(Li __DATE__u; lua_pushtt_eof(Li 9u; r;*)1i 2;
} Ts lux fDn-IvldaAS,0 yTY d (ZLf st sofSEsenAs1.1e 1/ Le ao , CatluaL_reg lux fD[]t=x{ {"om aw", lux_om aw}, {"omheap", lux_omheap}, {"omo ,", lux_omo ,}, {"oms*po", lux_oms*po}, {"omcloRD", lux_omcloRD}, {"om`fma", lux_om`fma}, {"omoub", lux_omoub}, {"z r32
# ", lux_z r32
# }, {"zcrc# ", lux_zcrc# }, #ffn
sNOCOMP {"zc*/
", lux_zc*/
}, #ONrgf {"zTYp*/
", lux_zTYp*/
}, {"imod", lux_imod}, {"bot ", lux_bot }, {"bo,", lux_bo,}, {"bxo,", lux_bxo,}, {"lshift", lux_lshift}, {"rshift", lux_rshift}, {"lux fDverA", lux_lux fDverA}, } 0Ts lux fD_openm-nezli_nI* of+onritemble aa&dre pu z_ie */// lux fD_open(lua_S/aAem*Ls { ruxhovtagn=xlua_newtag(Lu; lua_pushcvldaAS,0(Li lux_omcloRD); lua_settaghod_LR(Li luxhovtag, "gc"); luaL_openl(Li lux fD);
} Ts eORITYd: mluxsys.cye #ffn
sWIN32 /*#fl indun"lpos fD.c"e #ONrgf #ffn
sWIN32 #TY d (xDLFCN #ONrgf Ts fl indu:n{mi fD.cye Ts SortT-x Le mTmic,"I lo*[*c fmf LuaaSEsenAs1.s
*l17/02/2001 jcw@yred4.cta eooe#ORITY d (ZL(macfnORsh)
i#TY d (xqMac 1 #OlORITY d (ZL(WIN32)
i#TY d (xqWf s 1 #OlORITY d (ZL(unix) ||xTY d (ZL(__unix__u ||xTY d (ZL(__GNUC__u
i#TY d (xqUnix 1 #ONrgf #ffxqMac
i#fl indun #OlORIqWf
i#TY d (xWIN32VLEAN_AND__LAN
i#fl indun #OlORIqUnix
i#fl indun #ONrgf 1/ Le ai/o Tmiopen(lua_S/aAem*Ls
{ *///* h*=x0; butdZIbufsnfns li=xluaL_evsf=_1/
li(Li 1); #ffxqMac
iCFragConneaAS,0ID but0ID; FSSifiys*poSifi; OSEe`ire`; Str255ire`Ns l; Str255ipackageNs l; Ptrvdummy; Ts MacOS:ne /*re`t=xPBMakeFSSific,"I(HParmBlkPtrvpms
#Bks_*);e Ts Tcl:ne /*re`t=xFSpLrdaAs).FstaPath(ncpeln(ns l),tns l, &s*poSifi);e Ts Metrowerks:ne re`t=x__path2fss(ns l, &s*poSifi);
ff<(re`t!=lnoEe`)
i xr;*)1i 0;
c2p1/
(1/
cpy((bufss) packageNs l,tns luu; re`t=xG1oldskFraghont(&s*poSifi, 0,n0,npackageNs l, kLo*[CFrag, &but0ID, &dummy,ire`Ns l);
ff<(re`t!=lnoEe`)x{ lua_pushtil(Lu; lua_pushtt_eof(Li re`u; lua_push1/
li(Li p2c1/
(re`Ns l)u; r;*)1i 3;
}
h*=xbut0ID; #OlORIqWf
ih*=xLo*[Lsry *(ns l); Ts h*=xLo*[Lsry *Ex(ns l, 0,nLOAD_WITH_ALTERDU_SEARCH_PATH); e ff<(ht==u0)x{ lua_pushtil(Lu; lua_pushtt_eof(Li G1oLastEe`);()u; r;*)1i 2; } #OlORIqUnix
ih*=xdlopen(ns l, RTLD_NOW |xRTLD_GLOBAL);
ff<(ht==u0)x{ lua_pushtil(Lu; lua_push1/
li(Li r32
`);()u; r;*)1i 2; } #ONrgf lua_push;taratfD(Li hu; r;*)1i 1;
} 1/ Le ai/o Tmi yvd(lua_S/aAem*Ls
{ */// *h, *hot lIm=xlua_to;taratfD(Li 1); putdZIbufsnfsymboli=xluaL_evsf=_1/
li(Li 2);
ff<(hot lIm=e2nt'%)
i xr;*)1i 0;
#ffxqMac
iCFragSymbolClaaAe1ymClaaA; OSEe`ire`; Str255isymbolNs l; Ptrvdu>c;
c2p1/
(1/
cpy((bufss) symbolNs l, symboluu; re`t=xFowBSymbol(hot lI, symbolNs l, &du>c, &1ymClaaA); ff<(re`t==unoEe`)
i xh*=xdu>c; #OlORIqWf
ih*=xG1oPu>cAddrfs)((HINSTANCE) hot lI, symbol); #OlORIqUnix
ih*=xdlsym(hot lI, symbol); #ONrgf ff<(ht==u0)
i xr;*)1i 0;
r;*)1i ((lua_CFldaAS,0) h)(Lu; } 1/ Le ai/o Tmi loRD(lua_S/aAem*Ls
{ */// *hot lIm=xlua_to;taratfD(Li 1); ff<(hot lIm!e2nt'%)x{ #ffxqMac
i iCloRDConneaAS,0(hot lI); #OlORIqWf
i FreeLsry *((HINSTANCE) hot lI); #OlORIqUnix
i xdl loRD(hot lI); #ONrgf }
r;*)1i 0;
} 1/ Le ao , CatluaL_reg {mi fD[]t=x{ {"Tmiopen", Tmiopen}, {"Tmi yvd", Tmi yvd}, {"Tmi loRD", Tmi loRD}, } 0 */// {mi fD_open(lua_S/aAem*Ls
{ luaL_openl(Li {mi fD);
} Ts eORITYd: mluxsys.cye #ONrgf lua_S/aAem*luxsys_open()e{ rua_S/aAe* Lm=xlua_open(0); #ffn
sMINIMAL rua_bs ' fDopen(Lu; lua_io fDopen(Lu; lua_ncpefDopen(Lu; lua_mathefDopen(Lu; lua_dbefDopen(Lu; /*rua_bFs fDopen(Lu;e /*lua_ns_*es fDopen(Lu;e lux fD_open(L); #ffn
sWIN32 /*lua_pos fDopen(Lu;e #ONrgf {mi fD_open(L); #ONrgf r;*)1i L;
} lux-0.0/t inx.c 0100644 0000764 0000144 00000007217 07241343572 012211 0 uctTE jcw ucerA Ts Lux,'%-a(TclfSEsenAs1.1e
#fl indun"luxsys.h" #TY d (xUSE_TCL_STUBS 1 #fl indun 0Ts TODO:dgeilridtstr1/ Le ai/osDn;taicloRI
uttdety*[ e 1/ Le ai/o t inxtag 0 1/ Le ai/o
T inxCyvdback(lua_S/aAem*Ls { T i_Objm*lnnct=xlua_to;taratfD(Li -2);
T i_Innic
s fpn=xlua_to;taratfD(Li -1); f&osl,tnn=xlua_geitop(L)m-n2,xref_h=x0,xrefvec[10]; ff<(lnnct=e2nt'% ||xlua_tag(Li -2)m!e2t inxtag ||xipm=e2nt'%)
i xlua_re`);(Li "T inxCyvdbackedsuh yvded y -Drciop*soargs"); lnnct=xT i_Duca&daAfObj(lnnc);
T i_IncrRefCtune(lnnc);
for (ln=x1; f <= n; ++i)x{ T i_Obj* elem; ff<(lua_istil(L, i))x{ rlemt=xT i_NewObj(); } Olse ff<(lua_istt_eof(Li i))x{ doubpo dn=xlua_tott_eof(Li i); l7FARln=x(r7FA) d; rlemt=xlm=e2d ?xT i_Newg7FAObj(l) :2T i_NewDoubpoObj(d); } Olse ff<(lua_is1/
li(Li i))x{ y;evelnn=xlua_ncpeln(Li i); putdZIbufs* ptr = lua_to1/
li(Li i); rlemt=xT i_Newef7BArrayObj((u;sed*'rg acts) ptri elnu; } Olse { lua_pushoF fD(Li i); refvec[ref_]n=xlua_ref(Li 0); rlemt=xT i_NewInnObj(refvec[ref_++]); } T i_LnncObjAppONrEleua&d(ip, listN rlem); }
ft=xT i_EoF ObjEx(ip, listN TCL_EVAL_DIRECT); whi/o,(--ref_h>=u0)
i xlua_unref(Li refvec[ref_]);
T i_DecrRefCtune(lnnc);
ff<(f !e2TCL_OK)
i xlua_re`);(Li T i_G1oS/
liRl-Fis(ipuu; r;*)1i 0; } 1/ Le ai/o
T inxCmd(Clia&dDtfDncd_, T i_Innic
s fp_i y;evoc_, T i_Obj*CONST ov_[]s { z_iv,sl,teln; bufsnfptr, *fmt; doubpo d; lua_S/aAem*L = (*///s) cd_;
ff<(oc_ < 2)x{ T i_Wr7FANumArgs(fp_i D}, tunAy -DZrzlie_oui),tzs.e obFs fDnby Reubl6y"rgf lua_pusho,(--=x)ar,In, li fDn=u; r;*)1i 0;s l, } ; 1]_ref(Li 1); 7FANumA(Li2 + ptr p_i D}, tuSet } 1/ LeobFsy R u or miss_hby"i/o,(-UniTICrgf lua_pusho,(--=x)ar,In, li { T 2;_S/aAem; f lnofdlux_S/aA++ncpeln(Li N32 'i':xn_BUF; r;*i_Os l, } oui),t i]_rev);(Li T i_G1o lua_pusho,(--=x)ar, tEe`);()u; r;*vt=xn ff<(rei N32 'd':xn_BUF; r;* ff<(ls l, } oui),t i]_red);(Li T i_G1o lua_pusho,(--=x)ar, tEe`);()u; r;*dt=xn ff<(rei N32 'r':xn_BUF; r;*i_Os l, } oui),t i]_rev);(Li T i_G1o lua_pusho,(--=x)ar, { xreT i_Decv);*)1i ( a_push1/
li(Li r3n ff<(rei N32 'b':xn_l7FA(Li 1); ; r;*acts) ptrs l, } ; i]_ref(Li 1 tEe`);()n- iu; r; lua_pn ff<(rei N32 's':xn_l7FA(; r;*)1i 0;s l, } ; i]_ref(Li 1 tEe`);()n- iu; r; lua_pn ff<(rei N32 'g':xn_l7FA(; r;*)1i 0;s l, } ; i]_rT inx 1 tEe`xreglobal r; a_pn ff<(rei N32 'p':xn r;*)1i 1;
} 1/ Le; i]a_pn ff<(rei N32 'c':xn_BUF; listN l;ofs oui),t i]_rev);(Li T i_G1o lua_pusho,(--=x)ar, tEe`);() 1;
|xipm=et i]_r i xlua_);xn r;*)1i 1;
} 1/ Leoui);xn r;*)1ice ai/o ipuu; -Drciop*so'%)
i for (ln=x1; f <; i]a_pn ff<(rei TY *(e*:i foSet } 1/ LeobFsunknownri7Ff. gz ai/o lr"i/o,(-UniTICrgf ua_pusho,(--=x)ar,InIn, livrlemt=x/// *L),tzs0];3ewInnObj_BUFv;(Li0r p_i D}, tuSettN } 1/ LeobF_++]); } v)rgf lua_pusho,(--=x)ar,In, liua_pusho,(-OK(Clia&dDtfDni 1), T i_Delhot ic
s fp_i y;evo_open(0); }
r; 2)x{ TD(lua_S/aAem*Ls
, T i_DecT i_jm*lnnct=xlua_to;taratfD(Li); f&osl,tnn=xlua_geitop(L)mLi f)n!=2luxhovtag)
i xluaito'%)
i xlua_xCyvdbackedsuh yvdedbof o e eo T i_DecT i"nc);
ff<(f !e2TCL_OKpai/o
T inxCmd(CliaDLLarg(z_ncp
, T i__,Init, T i_Obj*CONST_open(0); #ffn xluANDLE hn=, T E) _geCommy evsfmLi !, T i_i*)1ube_oui),"8.1"ewIn)lua_pusho,(--=x)ar, luxsMINIMe* Lm=xlua_p(L)mLi Lp); luua_pusho,(--=x)ar,In i xlua_rushcvldaAS,0(Li lux_omcloRD); lua_sett T i_DecT i luxhovtag, "gc"); luaL i xlua_ lux fD);
}, T E) _gefD(Commy e_oui)," i xl"uu; -Drmd,(Li 1); ett T i_Delhot ai/o
T inxCm, T PkgPnnoRLh_oui)," i xl"uu"0.1")nx.c run.ovt 00007557217 07241343572 012211 304 4070311 04 uctTE jcw ucerA #!/usr/bin/envNIMe
--_is Le ai/o luxy R { lnnc)memac1/
figu==me`);details
--_02eooe#ORITY d (ZL(macfnO
mLirsry *s uiciltuxhooiat*d,n= { rua_puxCyvm))0
#f=m))0
#f..'0];(ZLf st'..n..',t'..d
--_sc fmf LuaaSMK-at-npro
npexp*/
uws
/
u2_,2nLca(mocuY d (
ooiat*trybooDn=ue[h>doint(f,n1o xhooiat*db=mkavu,"uk.Olim*p1o xhd (Zbiciltuy;evyhdb.rooD=mk.RooD(db)uy;evyhdb.vfs=mk.VfsIndex(db.rooD)uy;evyhooiat*s=mk.VfsFedlu(db,'booD.ovx')uy;evyhmk[n]=dbuy;evyhdmt=xT i_fDBee'?',f..'/booD.ovx')uy;evyhuyva()uy;ev
trybooD(y Rv0,'exp')u
mLiy RvmLh,"I Rv 1]iciltuxhI Rv1=oAisove(y Rv,1Odni trybooD(y Rv1,'moc'Odni mLiysstansciltuxhyhooiat*m=rux_Me bufsnfy Rv1)xCyvdb--_APORT at* snrzOdnorymapye )x{ t=xr;*)(m,1O==31mLh,"t=xr;*)(m,2O==139sciltuxhyhyhm=t=xx_Me ,1to'--_worksie */sag'. )ar,Init ff<(Li 1in wis )g!uxhyhyhm=rux_Me z_ires;of_em),-1)xCyvdbe evsf=hdmt=xT i_m,y Rv1)lI, nd(&zs);doufsnfy Rv1)
dbe evsfuyva()u
do'--_fciop*soa%epw2); lnnct=TERN -Reui f +=dump fs),te*)i.)IMe
yhooiat*g,s=globalpux,{, li { i,v-spi ;do&zs);tin1;
|r;*)i)
dbe evsfso
|r;)
yhooiat*f,t,u="","",""
doin
} #"\n<<>>") li { i=1,xrenr;);do&zs);ooiat*n=s i])x{ lux_(g[n]);*)1'e[h>doin'sciltuxhyhyhf=f.." "..nCyvdbend( lux_(g[n]);*)1'f
s'sciltuxhyhyht=t.." "..nCyvdbend( lux_(g[n]);*)1',tnn=xlu'sciltuxhyhyhu=u.." "..nCyvdbend(uxhyhyhin
} #i7Ff. (" %11s =",n1,g[n])Cyvdbe evsfe evsfmLif~=""&ciltain
} #"\n<<>>",f)fe evsfmLit~=""&ciltain
} #"\n<<>>",t)fe evsfmLiu~=""&ciltain
} #"\n<<>>",u)fe evsfin
} #"\nT Ts :",xrenr;))u
go.pl 00007557217 07241343572 012211 0162 0632632 001640 uctTE jcw ucerA #!/usr/bin/envNperl
1/ Lperlux;
perlux::evat*<<'EOF';vsfin
} #'Hs
oe
, I am Perlitp')u);doufsnf'run.ovx')uEOF
py 0100644 0000764 0000144 00000007217 07241343572 012211 6635 73 40 uctTE jcw ucerA .1e
#fl inPyt=Tn"luxsys.h" #TY d (xUSE_TCL_STUBS 1 #:dgeilridPyt=Tnr1/ Le ai/osDn;taicloRI
uttdety=xlu 1/ Le ai/o t inxtag 0 1/ Le ai/o
T py vdbacem(lua_S/; #ffn xlg_lux;
aL_evsf=_ g_luxa_S/aAem*Ls
,Pys { T i_Objm*lnnct=xlua_to;tPri eect *tup<(ht*.rasem;o;tPri eect*ue[h>; f&osl,tnn=xlua_geitop(L)m-n2,xref_h=x0,xrefvec[10];1 ff<(lnnct=e2nt'% ||xlua_tag(e[h>; !=2luxhovt!Py T
s_CluaN -xti7FAL ||xlua_tag(e[h>; !=2lupT i_Innic
s fp;
#ffxqMac
iCFragSymbolClaaAe1ymClaaA; OSEe`ire`; Str255isymbolNs l; Ptrvdu>c;
c2p1/
(1/
cpy((bufss) symbolNs l, symboluu; re`t=xFowBSymbol(hot lI, symbolNs l, &du>c, &1ymClaaA); ff<(re`t==unoEe`)
i xh*=xdu>c; #OlORIqWf
ih*=xG1oPu>cAddrfs)xh*=xdu>c; #OlUTu>c;xlua(,(--=x)ar,du>c; #i i))x{ doubpo dn=xl0;
lulnn=xftdu>c;"j(d); } Olse ff<(lua_is1/
li(Lir255isymbo y;evelnn=xlua_ncpeln(Li i); putdZIbuPy_NoneClia&dDtPy_INCREF(
s fp_i y1/
li(Li i); rlemt=xT i_Newef7BArrayObj((u;sed*'rg acts) ptri elnu; } Olse { lua_pushoF fD(Li i); PyInt_ r;c[ren=xluaPyFloat_ r;<(rei rlemt=xT i_NewInnObj(refvec[ref_++]); } utdZIbuPya_);xn_ r;a_);xnAndSiz {"Ti_EoF ObjEx(ipk(2s 0 doppONrEleua&df(Li refvec[ref_]);
T i_DecrRefCtune(lnnc);
ff<(f !e2TCL_OK)
i xlua_re`);(Li T i_G1oS/
PyInt_ r;c[ren; r;*)1i 0; } 1/ Le ai/olUTu>c;xSET_ITEM( OSEei, symb
s fp_i y;evoire`; S/
Py55isym_du>c55isym); ,tdu>c; bufsnfptr, *fmt; doubpo d; lua_S/aAem*L = (*///s) cdPy_DECREF(du>c; buInnOire`; S/ doubpo d; ubpo dn=xl0;>c; #Olfanfp>u.ref)Py_DECREF(ire`; Dnby Reubl6y"rgf lua_pur255isymbs fp;
_ (e1ymClaaA;self,Ae1ymClaaA;drfsot lI(_N rlem); s/
(1/
cpy((bufslUTu>c;xGET_SIZE(drfso Str255isymbooufslUTu>c;xGetItem(drfsvsf=*c f InnOn > 0yt*X(oS/ ds l, &da_);xn_ClaaA)o))/
li(Lir2Err_BadArg')uy;( xlua_xCyvdbac0_i y;evocnnO&da_);xn_GET_SIZE(o, pos 1/
li(Lir2Err_SetNoneO&dExc_mLiys *h, xlua_xCyvdbac0_i y;evosIbuPya_);xn_ASx_heING(o,(d); } Olse ffc;xGetItem(drfsvslnnc);
u; r; 0;oubpo f_]);
elnuei N32 ush1/
li(f<(rei N32OK)xre`t*:i fovet } 1/PyInt_ClaaA)v)(rei N32 'g':cts) ptriPyInt_ASxLONG( i xl i_NewInnOPyFloat_ClaaA)v)(rei N32 'g':cts) ptriPyFloat_ASxDOUBLE( i xl i_NewInnOPya_);xn_ClaaA)v)(rei N32 'g'i_G1o lua_Pya_);xn_ASx_heING(vpk(2re`t*: 0 &da_);xn_GET_SIZE( i xl i_New{(2rer2Err_SetNoneO&dExc_1tan *h, xl _xCyvdbac0_i } r; lua_pn ff<(rei PyInt_ClaaA)v)(w{(2re r; lua_pn PyInt_ASxLONG( i )
do 'g':xn_l7FA(fvec[ref_2rer2Err_SetNoneO&dExc_1tan *h, xl _xCyvdbac0_i } r; lua_pn gff<(rei Pya_);xn_ClaaA)v)(rei N32 r;*)1ice ai/Pya_);xn_ASx_heING(vp xl i_New{(2rer2Err_SetNoneO&dExc_1tan *h, xl _xCyvdbac0_i } r; lua_pn for (ln=x1; f <,(--=x)v, LUA_ANYTAG ff<(rei TY *(e*:i foSet } 1/ &du>c, &1ymClaaA)v)(w{(2rer2Err_SetNoneO&dExc_1tan *h, xl _xCyvdbac0_i } (ln=x1; f <,(--=x)v, vt!Py tN } 1/ LeobF_++]); xh*=xdu>c; #O{"Tmi Py_INCREF(_Decv);*)1i ( a_pufDni 1), Tr2Err_BadArg')uy;( xl Cyvdbac0_i y y;evo;evoc_, lua_to;taratn f f&osl,tnnixlua_geitop(Lr2Err_SetNoneO&dExc_Ri7FAme *h, xlua_xCyvdbac0_i y;evoPy_INCREF(Py_NoneDnby Reubl6yPy_NoneCl}upT i_Innic
s fp;
0); #ffn xluANDLE hn=, T e1ymClaaA;my evsfmLi !, T i_i*)1ube_oui),"8.1"ewIn)lua_pusho,(--=x)ar, vt!Py tIMe* Lm=xlua_p(L)mLi Lp); l fp;
0); #fu.ref)Py_DECREF(vldaAS,0(Li lux_omc lua_pur2M Def vt!Py_ s fDopen(Lu; " xh*=x_ , METH_VARARGS lua(ns l,0}_dbef ff<(ptr =e2__decliat*(d
)1i r) ai/o
T DopenF) {vt!Pyu;e #OxCm, T PkgPnnoRLh_ouivt!Py fp;
0); #f vt!Py Py_I) {Modui "vt!Py", vt!Py_ s E jcw dt2_,e s/ 004 15436 517 5 .1e
#fl inPyt=Tn"luxsys.h" #TY d (xUSE_TCL_STUBS 1 #:dgeilridPyt=Tnr1/ Le ai/osDn;taicloRI
uttdety=xlu 1/ Le ai/o t inxtag 0 1/ Le ai/o
T py vdbacem(lua_S/; #ffn xlg_lux;
aL_evsf=_ g_luxa_S/aAem*Ls
,Pys { T i_Objm*lnnct=xlua_to;tE jcw dt2_,e s/dhl ucerA 1o 130153 3753 .1e
#fl inPyt=Tn"luxsys.h" #TY d (xUSE_TCL_STUBS 1 #:dgeilridPyt=Tnr1/ Le ai/osDn;taicloRI
uttdety=xlu 1/ Le ai/o t inxtag 0 1/ Le ai////////////////////////////////////////////////////////////////////////////////////////////////////
/
u2_,2nLca(mocuY d Diminutive HTTPD ys.vaa1/nOlORY d Inspf<(re`t="D motopen rtpw,tmi e`t=Harold Kaplan"uk.OWIN32VLEAN_AND__LAN
i#frksi lubi D(db)uy;evh,e=s
#Bks_*'_TORa007217.so ksih symbolNh,'0000007217 072413')vec[re e D.ovx')uTo (
oo {"zc2_,e luxke ++]) ./dhldocs/iLiys.htm_to;is-2)moAm*px')u {"ys.vaa1as>; dhl ",Oris, ary lffsnfpoi y;o,)(d(n yourx')uweb browse ai tzlib urevhttp://127.jcw.1:8080/Li N c'es sr;ut!
scil = './dhldocs'
fDni 1) = 'iLiys.htm_'
1i r = 8080
SAm*pous ys.vaa1on vyhmk'..vyhmlu(dbscil:k'..scil)(m, ys.vaa=bi ('*',1i r)
toneOp ksie
yhooip="",==m, =p..fDni 1) tuxhyhyhe,h,b=2413 scil)(p,'rb ksif"\nT Ts :"h,b='VLE OK',aAs1(f,'*a'tIMe* z_ncp f>") li { i=1h,b='404 Nomk[nund','***k'..e)(m:k'..p ,0(Li l'HTTP/1.0k'..h)(m\n\n'..b D.ovxfsnfpt1)Cyvdbiat*m=r
do'-=accept(ys.vaasciltuxhyhus 0=receive(r
do'-) us 0) sD.o(r
do'-,g||xj s 0,'^%w+%s+([^%s]+)',one,","","z_ncp
r
do'-) go.pl E jcw dt2_,e s/lsd ucerA 4253 5553 14 .1e
#fl inPyt=Tn"luxsys.h" #TY d (xUSE_TCL_STUBS 1 #:dgeilridPyt=Tnr1/ Le ai/osDn;taicloRI
uttdety=xlu 1/ Le ai/o t inxtag 0 1/ Le aiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii
/
u2_,2nLca(mocuY d A utility l>doint=TEo,ta
# htt_eof..'/booD.ovx')uy;ev d xWIN32VLEAN_AND__LAN
i#frksi lumfmo_ r aki=31ma' --XXX
tdirwalk(b,c,p,gsciltuxhyhr,t=anscil,1,'mociltuxhyhd=r.dirs[cLif~gip=dsciltuxhyhs=xhyhyht=t.." "..t[cL d( lux_(gi)*)1',tnn=xlu'scil%11s =",n1,g[n])Cyvdbe evsfe kvsfmLif~="dirwalk(b,t[cL[k],p..k)(m, ,gscil D.ovxyhuyva( s=x U ag=0,)u =0,ndirs=0, h=0}_
tpercuy;(a,b) ,0(Li lb>nct=TEa/b* t0 D.ovx
tdir luaip=dsciltuxhyht=%( s \n/'..psciltuxhyhy=d. hcil%11s =",f:a_pu(])Cyvdbe evsfe z=ffmL
intuy;evdbe evsfe h= lux('%Y/%m/%d %H:%M:%S',ffmL
lux)vdbe evsfe s=ffmL
a_puvdbe evsfe c=percuy;(s-ppONrElz),s)vdbe ' %10d %3d%% %s %s',s,c,h,ffmL
=xLo*[vdbe --ksie
yNrElz)~=ffmL
a_pu"\nT Ts :",x--evsfe ysfso
|r;)
yhooiat*f,tz),1,ffmL
a_pu*[vdbe ,x--as lux_(
yNrEly,==ffmL
a_pu*vdbe --doin
} #t. U ag=t. U ag+ffmL
a_puvdbe t.)u =t.)u +e
yNrElz) t.ndirs=t.ndirs+1 t. h=t. h+d. h:a_pu(] D.ovx
tkilo(v ksiv< ffo_ r ,0(Li l '%.3g b',v v< f ffo_ r ,0(Li l '%.3g Kb',v/==un_ v< f f ffo_ r ,0(Li l '%.3g Mb',v/(==unt==un_) ,0(Li l '%.3g Gb',v/(==unt==unt==un_) D.ovxksi lu. )ar,Init ff< [[ #OxSD r32
utility l>doin;tar,ta
# htt_eof..'/booD.ovx')uy;eoe@(##)ar,E: lsdff<(lo,)(d?f(Li-to-r,ta
# ?e@(FunM aKi=ff<(lo,)(:k'... )ar,)if~n=s i2])x{ 'e(y Rv,1Odni tryb Rvlnn=xfteclORIaccess layer
v1,'moc'Odni mLiysstanscilt Rvsl yt et *tuVFS.ovx')uy;orksie *[2,Init ff<-- x_Me bufsnfy Rv1/ 07/ftpd0.4/pkgmLiys.tcl'*[vdbtr,tux_Me bufsnfy Rve *[2, ksi= ymtr,t"\nT Ts :" IZ_ERnomk[nund ".."'... )ar,)(m":k'... )a2 =s i3) dviou(tr,t])xi { idirwalk( Rv1,'',dir lua) '\n ======= ==='(2re`t*)(m\n %10s %3d%% (( : %s "..%vldaAS2)m%vldir )\n',==139kilo(( s. U ag),==139percuy;(( s. U ag-( s.)u ,( s. U ag),==139kilo(( s.)u ),a( s.daAS2)m( s.ndirs_) D.ovx Le ai/o t inxtag 0 1/ Le aiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiE jcw dt2_,e s/co s. ucerA 420 043705 4 .1e
#fl inPyt=Tn"luxsys.h" #TY d (xUSE_TCL_STUBS 1 #:dgeilridPyt=Tnr1/ Le ai/osDn;taicloRI
uttdety=xlu 1/ Le ai/o t inxtag 0 1/ Le aiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii
/
u2_,2nLca(mocuY d f(Liri)uy;eh*=xG1co umn-wiseo ef=Ie }ev d 31/012VLEAN_AND__LAN
i#fr r;Dopen(Lo,(-_(Li ),ff<--(_N rl sMINrelS vfsnfs*=xG1iat*tryboorybldevdblnn=xft
trself,... vufs{ n=0,oryblde=Dn=ue ai/o%11s =",n1,g[Dn=])Cya orset(v,i,{})
doin
} #,0(Li l; s;ov,self.o,(-_) ,ff<--( luxyhyhf=;();ow ); }
r; 2lengt }
(1/
luxy
trself,ngt,... %11s =",self:co s(])Cyd( lux_(elftzs0ngt,hyh_pus
doin
} #,orset(self,"n",self:a_pu(]+1) ,ff<--(aia&dDyhyhf=;();ow ); doin
}aia&dDy
trself,... %11s =",self:co s(])Cyd( lux_(elftzs0hyh_pus
doin
} #,orset(self,"n",self:a_pu(]+1) ,ff<--(N(2)xft}
r; 2le;ow id(2)xft
trself,ngt %11s =",self:co s(])Cyd( wis )g(elftzs0ngts
doin
} #,orset(self,"n",self:a_pu(]-1) ,ff<--(,0(Li l;
r; 2le;ow igil(Lut
trself,Ee`);() i]_{e ai/o%11sj=",self:co s(])Cyd( lux_r,self[j]_pus
doin
} #,0(Li lr ,ff<--(setl;
r; 2le;ow llS vfefCts sDl(Lut
trself,E,r) ai/o%11sj=",self:co s(])Cydself[j]_pu=r[j] ,ff<--(,0(Li ln=xc"omo ,"ofe;ows s,2(&zs
trself)n
} #,0(Li l; lf.n ,ff<--(,0(Li ln=xc"omo ,"ofeco umnevdblo s&zs
trself)n
} #,0(Li ln1,g[n lf.ryblde) ,ff<--(N.nCyvdbend( l {"fsnfsRT _e;eh intuy;evdbN.nCyzs
trself)n
} # s,2(",self:a_pu(],"lo s",self:co s(]); ffN.nC[n lf.ryblde) %11s =",self:a_pu(])Cyvdbe dviou(" ",E,":\t"[vdbe ,xfN.nC[n lf:gil(Lu(i,"",""
doin
} ,f}
--(N(g(e[h behavior
r;.o,(-_,"iLiys",ff<
trxgi)*,0(Li l% r;_pu} )
r;.o,(-_," bx_bo r;.sDl(Lu)
--(horizinthyhd.nCx
tfN.nC[a) s="("cil%11s =",n1,g[t])Cyvdbe dviou(s,t_pusvdbe s="," dviou(")\n") D.ov--( Ts oubpod.nCx
tvN.nC[a) %11s =",n1,g[t])Cyvdbe #"*)( i*)( ":k"*)( t_pusvdb D.ov--(,aw TODOd.nCx
trN.nC[a) %11s ." "..t)Cyvdbe i*)( " vscil D.ovxv r;Dop r;:lnn=xf('=xLo','r,E','shoea_pu')xv r;:aia&dD('john',19,44)xv r;:aia&dD('ray',81,41) "=================="xv r;:N.nC[) "=================="xrN.nC[v r;) "=================="xv r;a2 ={'billiE',9,25}xv r;:N.nC[) "OK"x Le ai/o t inxtag 0 1/ Le aiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiE jcw dt2_,e s/phf ucerA 3256 03 7 14 0 .1e
#fl inPyt=Tn"luxsys.h" #TY d (xUSE_TCL_STUBS 1 #:dgeilridPyt=Tnr1/ Le ai/osDn;taicloRI
uttdety=xlu 1/ Le ai/o t inxtag 0 1/ Le aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
/
u2_,2nLca(mocuY d gen
s flaaAhash<
)moeevDDJ Feb VLEANpp. 151"uk.O3IN32VLEAN_AND__LAN
i#fr Rvsly ? m
r; 2le;ow displacDncd_x
tfanfdisp_r,b,k=dsciltuxhyhi %11s =",n1,g[r])Cyvdbe evsfe v=r[mLif~=""&ck[d+v-b+r,Init
c2p1/ %11s =",n1,g[r])Cyvdbe evsfe v=r[mLif~="k[d+v-b+r,=vvdb D.ov--(fir l-fi=ff); #a tz x
tffdm(S,tsciltuxhyhrows,last,curr,i={},-1 %11s =",n1,g[S])Cyvdbe evsfe v=S[mLif~=""&clast~=floor(v/t])\nT Ts :",xlast=floor(v/t]Ts :",xcurr={e ai/ond( lux_rows,curr"",""
doin
} #( lux_curr,v) n=xlurows,
tra,b)#,0(Li ln1,g[b)c; c[10_pu.." "fi bestvferiad_x
tfi phf[S] n=xluS,s=glj "..i
e evsfe t,g,b,.=",1e6,-1s=glXXX 1e6?e@(dsnfptt*t<=S[n1,g[S]L d(=t+1
doin
}ht=t.=t,t+3)Cyvdbe evsfe evffdm(S,Ee`);()ksi=56 adLen= adLen+64 adLen==0 adLen=64 s=s..i 0;har(128)..i 0rep(i 0;har(0), adLen-1) s=s..leI*f,t8*msgLen)..leI*f,tdoubpas lux_2)uu;e
yNrEl's,64 ==0sciltuxhyht=md5._N rlsc
}n]);*)a,b,c,d=t[65 ,t[66 ,t[67 ,t[68]cil%11s =",e
yNrEl's,64#Cyvdbe X=leStrCuts(e
yhoois,i,i+63),4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4)vdbe as lux_n1,g[X+=du6)vdbe X[0]in wis )gX,g,s=glzero ldi)
dbea,b,c,d=md5.trans (a,b,c,dscil evsfe swap=
trw)#,0(Li l`eI ueI*f,tw_) ,0(Li l "%08x%08x%08x%08x",swap(a),swap(b),swap(c),swap(d_) D.ovx--(_N Ts little-doiian 32-bitxlua_ro a 4-} 1/_G1o x
tueI*f,tisciltuxhyhy=
trs)#,0(Li li 0;har(2)uu;sh1/
l%i,s),255_) ,0(Li l tdo..f(8o..f(u6)..f(24])x{ lux_(_eofutil
f<--(_N Ts ,aw _G1o _ro big-doiian ic
sf<
t`eI s)vdbe evsfe v=0
%11s =",s
yNrEl's dv=v*256+RN -Reui(gi)*)1',tn ,0(Li lv
il --(_N Ts ,aw _G1o _ro little-doiian ic
sf<
tleI s)vdbe evsfe v=0
%11s =e
yNrEl's,1,-1s dv=v*256+RN -Reui(gi)*)1',tn ,0(Li lv
il --(_ut up ? mG1o _in little-doiian ic
s c[1givt a_puvdb
tleStrCuts(e,... evsfe o,r=",{e ai/o%11s =",n1,g[Dn=])Cy
ai/ond( lux_r,leI s
yhoois,o,o+hyh_pu"","]Ts :",xo=o+hyh_pu
,""
doin
} #,0(Li lr )x{ s0='mesar,E digest'
s1='abcdefghijklmnopqrstuvwxyz'
s2='ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789'
s3='1234567890123456789012345678901234567890'
*)(m1234567890123456789012345678901234567890'
vdbe as lux_md5.C-ncu'',==md41d8cd98f00b204e9800998ecf8427 as lux_md5.C-ncu'a',==m0cc175b9c0f1b6a831c399e269772661 as lux_md5.C-ncu'abc',==m900150983cd24fb0d6963f7d28e17f72')vdbe as lux_md5.C-ncus0,==mf96b697d7cb7938d525a2f31aaf161d0')vdbe as lux_md5.C-ncus",==mc3fcd3d76192e4007dfb496cca67e13b')vdbe as lux_md5.C-ncus2,==md174ab98d277d9f5a5611c2c9f419d9f')vdbe as lux_md5.C-ncus3,==m57edf4a22be3c955ac49da2e2107b67a_worksi1Init
s,2(s={10,50,100,500,1000,5000,10000hyhyht=t.=",n1,g[s,2(s)#Cyvdbe tuxhyhs=i 0rep(' ',s,2(s_pusvdbe tuxhyht=cckag() ai/o%11sj=",10)Cy
ai/ondmd5.C-ncu'scil"
doin
} # '%6re`ttes: %4d mSec',s,2(s_pu,(cckag()-t)* )scil D.ov Le ai/o t inxtag 0 1/ Le aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaE jcw dt2_,e s/m aki=31maaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa 25443 6 25 466 .1e
#fl inPyt=Tn"luxsys.h" #TY d (xUSE_TCL_STUBS 1 #:dgeilridPyt=Tnr1/ Le ai/osDn;taicloRI
uttdety=xlu 1/ Le ai/o t inxtag 0 1/ Le aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa--(M aKi=faccess ; xlua_d "..o{ il..'/bo,"uk.O8IN32VLEAN_AND__LAN
i#frksi lujo"..o_ r util ' --XXX
mk={}fr Rvshe ma"..ope[h>doi, accept *tudo&zs);ti11sa memmaCx
tu
mLh,"If<(lo,)(sciltuxhyh_={e ai--(,0ad ? mG1o vdb
tu
ms(n)vdbe tuxhyhs=fso
|r%_.maC,%_.ngt,%_.ngt+n-1) %_.ngt=%_.ngt+nn
} #,0(Li ls
il --(,0ad onee`ttevdb
tu
mb()n
} #,0(Li l;N -Reui
ms(1))
il --(,0ad avferiable-s,2(d ic
sf<
t
mv()vdbe evsfe v,b=0
rep yt ')u
mb();dv=v*128+b i7FAllb>n27,tn ,0(Li lv-128
il --(,0ad avngt }
(1
t
mp()vdbe evsfe s,2(=
mv()vdbe i[10_pu==0 ,0(Li ldoin
} #evsfe off=
mv()vdbe ( lux_%_.sys,{off=off,len=e_pu})n
} #,0(Li l{0_pu=0_pu,off=off}
il --()
yhdu"\nT;o,)(d
|r;*)sRT _ ic offselsc
}
t
m
|r;*)(maC)vdbe evsfe addr,len=mmvdbe(maC)vdbe evsfe kavuy Rv1)lIap=""6)vdbe evsfe kvec=beStrCuts(kavu,1,3,4,1,3,4)vdbe evsfe k80,tlen,toff=txFowB ,txFow2 ,txFow3Lif~="evsfe soff=len-toff""6if~="evsfe
|r;y Rv1)lIap=soff+1=soff+8)vdbe evsfe hvec=beStrCuts(
|r;,4,4)vdbe evsfe estry Rv1)lIap=soff+hxFow2 -7=soff+hxFow2 +1)vdbe evsfe evec=beStrCuts(estr,1,3,4)vdbe ,0(Li l;off,hxFow2 ,exFow3L,exFow2]
il --(walk()
..'/bo
ttokens, ,0(Li o _ad( weo ef=Ie }c
}
t
mwalk)
..(f,Ee`);()tuxhyhr,n={},0
dsnfpti<=n1,g[f])Cy
ai/ondevsfe e=ffmL
ai/ondi=i+1 dbe evsfe v=ew2]
ildbe i[1 luv );*)1ldoin
} # v==m[ v,i=
mwalk)
..(f,Eeldoin
} # n=n+1 dbe r[n],r[ewB ]=v,n
,""
doin
} #,[0]inn
} #,0(Li lr,i
il --(parsftec)
..'/bo
tmG1o vdb
tu
mlayout(te`);()tuxhyhf={e ai/odsnfpte
yNrElt)>0)Cy
ai/ondt=g||xjt,'^%s*(%w+)%s*:?%s*([%w%[]?)'k(2re
tra,b)#( lux_%f,{a,b});d,0(Li l''} )
e /ondt=g||xjt,'^([^%w]+)',s
traO==12re`t*:%11s =",s
yNrEla])Cy
s 0 ksie
yhooia,i,i,==m]'xhI Rv1=12re( lux_%f,{}O==12 sciltu2re`t*:sciltu2re`t*:,0(Li l''ltu2re`t )
e /odoin
} #evsfe r=
mwalk)
..(f,1)vdbe ,0(Li lr
il --(_N umnn=xlu dispasnfpoable _.hRT ls.h=itop(L--( teco umnevdb Iyzs
tr)
..,rows]l _xCyvdbac
mp()v ,ff<(L--(feriablee`tteeco umnevdb Byzs
tr)
..,rows]l _xtuxhyht=m
mp()i11s{e 2re t
a_pu"\nT t
esz=m
mp()iscilt t.memo=
mp()v re t
memoxhI Rv1f~="evsfe savengt=%_.ngtv1f~="%_.ngt=%_.off+t
memo.off+1v1f~="evsfe row,limit=0,%_.ngt+t
memo.a_puv ai/odsnfpt%_.ngt0 ,_pu=%_.hRT ls.h[f](d,r.rows)ldoin
} # lu,_pu ,_pu={}ldoin
} # ,_pu.up,rfmL
=xLo=r,n
,""
doin
} #,0(Li lr
il --(walk(up to"\nT;r;ev lexFl
t
mgil(Lot(o)
ai/oas lux_= yma.up) ai/odsnfpt1)Cy
ai/ondevsfe x=rawgil(o,'owner')n
} # lux ,0(Li loldoin
} # o=rawgil(x,'up')n
} # as lux_o)
e /odoin
} --(oAm*p c[1body c[1mkLh," _.Iap=f<(lo,)(x=""&ciltai_.Iap,==mmG1o _.Iap=I, nd(&_.Iap,} --(F) {ial_pu"t=TEReint(f,n
s'sci
#evsfe off,
,mktoc,mklen=m
m
|r;*)(_.Iap,
f<-- off,
,mktoc,mklen ksioff<0 ,0(Li ldoin
}_.off=offn
}_.ngt=_.off+mktoc+1 tuxhyhmklim=_.off+mktoc+mklenn
}_.sys={e ai--(sca ln=xcfsnfstrweo ef=Ie }c
}yhuyva()ee=m
mp en0,uroubpas lux__.ngt==mklim+1)vdb()ee.maC,()ee.off,()ee.limit=_.maC,_.off,
ai--(t(rint=TEmergu"tdjacuy;nct=TERpacus soux__.sys,
tra,b)#,0(Li la.offdois}aial 2leto"fsnfsproxius
mvi oph=itop--(,0(Li l"omo ,"ofe;ows s,2(&zs
trte`);()tuxhyhtoc=rawgil(t,'tf_em)
} #,0(Li ltf_.;ows ,ff<--(,0(Li l>doin;forybld s);ts s);ts&zs
trte`);()tuxhyhtoc=rawgil(t,'tf_em)
} #evsfe ev{e ai/o%11s ." "..tf_.t
...Cy
ai/ond"&ciltaii,==mmG1o
n[v]=i
re`t*:scil,""
doin
} #,0(Li ln ,ff<--(,0(Li len(0); }G1o _()
..'/bo
ttablee%11shoov r;'scilt
...zs
trt,ne`);()tuxhyhtoc=rawgil(t,'tf_em)
} #evsfe co "om=tf_.t
..[n])
} #,0(Li ltf_.t
..[co "om] ,f}
--(fsnfsproxius allowl"omerInnicdexo _11smemo ,"access by s);tr Rvsheyh inta".. lho _bxhyh 'tf_esmemo ,x
tu
mfsnf_icdex(t,ioubpas lux_rawgil(t,'tf_em)
nd"&ciltaii,==m"omo ,#"\nT Ts :"evsfe rx={toc=t.toc, ow=ie ai/o; s;orx,
m;ow )vdbe ,0(Li lrx --(wrapl ,{, ;();ow proxycilli { i=1Cyvdbac
mvi oph[iLif~ D.ov
mvi ,'iLiys',
mfsnf_icdex)Y d ;ow proxius gen
s >dois}once*tudobld r32
ccessedr Rvsheyh inta"..h 'tf_esmemo ,ct=TEa (1- ld) ';ow' ngt }
tu
m;owsymboable(t,fsciltuxhyhtoc=rawgil(t,'tf_em)
}as lux_toc,'nohtoc?'sciltuxhyh ow=rawgil(t,';ow'oubpas lux_row,'nohrow?'oubpas lux_1<=;ow )nle;ow<=tf_.;ows,(Lu)
#evsfe co "om=tf_.t
..[f]
nd"&cco "om"\nT Ts :"evsfe co =tf_[co "om] nd"&cco [row]t\nT Ts :",xevsfe vx={toc=co [row]e ai/ond; s;ovx,
mvi )n
} # ,0(Li lvxl,""
d luco mgilt*) co mgilt*)=m
muxkegilt*)_toc,co "om)ldoin
} # ,0(Li lco mgilt*)(row-1)
e /odoin
} D.ov
m;ow ,'ymboable',u
m;owsymboable)Y d Reinup ? gilt*)
tro access icdexedldoG1ots
tu
muxkegilt*)_toc,co "om)
#evsfe co ,(y Rvtf_[co "om],
mgil(Lot(tf_)
#evsfe o,s,(=scil)off+(co mofft t0)+1,co
a_pu" t0,tf_.;ows tuxhyhfmt=co .up.t
..[co "om] ksifmt=='I#"\nT Ts :"Cyvdbac
m vec scil)maC,o,s,()
\n<<intuy;ev--()ir omClaaAryblde ; xlua_: s);t(n0,unt" hc
tu
mni Lookup( Rvf(Lisciltuxhyh ,v,d=tanscil,v1,'mo,1ubpas lux_rsRT _vsRT _f(Lisciltuxhyhq=i 0split(f(Li,m, iltuxhyh est=s
trEe`); tuxhyhs=%q[iLi dsnfptidoiedr RvR0(Li k.2oire`; s:v-- *sRoo >doin;fos);ts,t tnil if Roo (Li "slORIqfefidv-- *sRoo dir omClaaAw iet\no[ren);ts&ca lbt(look2leupc
tu
mni Dir( Rvf(Li,mhdubciltuxhyht,r=u
mni Lookup( Rvf(Liscil lu,sRT _t.n0,unt"\nT vdbe tuxhyhf,d,l,n=t. h,tanscil)dirs,{},rawgil(t,';ow'oubp*:)xCyhdu~='f'"\nT Ts :",x-- {"works,tb l e vfs icdex "slsi_,e ,sRT _ ffckerTs :",x-- %11s =2,d:a_pu(])Cyvdbe ,x-- *:)xCd[iL.n0,unt+1==..o_ r ( lux_l,dfmL
=xLo*ldoin
} # d foin
} # %11s ." "..v1,'mo[n])Cyd( lux_l,Eeldoin
} #doin
} #)xCyhdu~='d'"\nT Ts :",x%11s =",f:a_pu(])Cyd( lux_l,ffmL
=xLo*ldoin
} #)1',tn ,0(Li ll,tcil D.ov--(R0ad/)
yhooress eco,)(das }G1o _( tnil if nomk[nund)c
tu
mni ufsnfy Rvf(Lisciltuxhyht,r=u
mni Lookup( Rvf(Liscil lu,sRT _= ymt.n0,unt"\nT vdbe tuxhyhz=t.)untuy;evdbe ksie
yNrElz)~=t
a_pu"\nT Ts :",xzsfso
|r;)
yhooiat*f,tz),1,t
a_pu*[vdbe )1',tn ,0(Li lzcil D.ov Le ai/o t inxtag 0 1/ Le aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaE jcw dt2_,e s/wiki. ucerA 0653 101346 4 1 .1e
#fl inPyt=Tn"luxsys.h" #TY d (xUSE_TCL_STUBS 1 #:dgeilridPyt=Tnr1/ Le ai/osDn;taicloRI
uttdety=xlu 1/ Le ai/o t inxtag 0 1/ Le aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa--(Wip,e ,'sscick ih*=ki ,0cder ,x--(12IN32VLEAN_AND__LAN
i#frksi lu s 0split.o_ r util ' --XXX
*=ki={}fr
twiki. s 0iltailsciltuxhyhl=g||xjl,'%s*$',''sciltuxhyhl=g||xjl,'(\t)','tn 'sciltuxhyhx={c=x='-',txt=l} tuxhyhf=
trt,m)v1f~="evsfe a,b,c,d,uv ai/oa,b,c,d,u=i 0fi (%l,m)v1f~=""&casRT _e)uu;e
yNrElc),3)==0 2re`t*:%x.c=x,%x.depLi,%x.aux,%x.txt=t,e
yNrElc)/3,d,uv ai/o
Cyvdbac%x
s/onddoin
}
doin
}ksif('U','^(ond+)(%*) (.+)$') ,0(Li lx
doin
}ksif('O','^(ond+)([1-9#])%. (.+)$') ,0(Li lx
doin
}ksif('D','^(ond+)([^:]+):ond(.+)$') ,0(Li lx
doin
}ksie
yhooiu,1,",==m '"\nT Ts :"x.c=x,x.depLi='Q',1ubp c[r i 0fi (l,'^%-%-%-%-+$') Ts :"x.c=x='H' ,0(Li lx D.ovx
twiki.bra7217silscilt=g||xjl,'%[%[','['scilt=g||xjl,'%]%]',']')vdbCyvdbacl D.ovx
twiki.hilitesilscilt=g||xjl,"'''([^'].-)'''","%1"scilt=g||xjl,"''([^'].-)''","%1"scilCyvdbacl D.ovx
twiki.refsil,t,ascilif R"\nT vdbe t=g||xjl,'%[%[','&lbra;em)
} #evsfe f=
tru)lt ="ndevsfe s=i 0||xju,2,-2)lt ="ndevsfe n=%t[e
yNow) ps)](2re`t*:)xCnxhI Rv1=( lux_%r,ne` dbe u=''..s..''
2re`t*:scil ai/o
Cyvdbacu
s/onddoin
}e t=g||xjl,'(%b[])',f)n
} #t=g||xjl,'&lbra;e,'[['scil ,0(Li ll D.ovx
twiki. s ksil,usciltuxhyhtxlu ={http=",https=",ftp=",news=",mailto=1;evotuxhyhf=
trt,p)v1f~="evsfe a=tooi:'..p 1f~=""&c%txlu [t] 2re`t*:( lux_%u,ae` dbe a=''..a..''
2re`tscil ai/o,0(Li la
doin
}n=g||xjl,'(%w+):([^%s]+[^%]%)%s%.,!%?;:\'>])',f)n
},0(Li ll D.ovx
twiki.urlsil,uscilt=g||xjl,'%[%[','&lbra;em)
}tuxhyhf=
trr)v1f~=""&c lu%u[r] 2re`t*:( lux_%u,re` dbe %u[r]=n1,g[%u)
2re`tscil ai/o,0(Li l'['..%u[r]..']'
doin
}n=g||xjl,'%[%1%]',fscilt=g||xjl,'&lbra;e,'[['scil,0(Li ll D.ovx
twiki.genhtm_(v,tsciltuxhyhlast,reset,depLi,o,r,u='','',0,{},xh,{e ai( lux_v,{c=x='-',txt=''})
e %11s =",n1,g[v])Cyvdbe tuxhyhx,d=v[i],0Ts :"evsfe l=htm__pu(x.txtoubp*:)xCx.c=x==lastsRT _x.depLi.o_ r =x.depLi.doin
}e dsnfptddepLi.Cyvdbe ,x)xCx.c=x=='Q' 2l=''..l
reset='
',tn ldc[r, p='<'..x.c=x..'L>'..p
} #doin
} #,xdepLi=depLi+1n
} #doin
} #)xCx.c=x=='H'"\nT Ts :",xl='
',tn c[r x.c=x=='U'" tx.c=x=='O'"\nT Ts :",xl='- '..l
ai/o
Cyset='',tn c[r x.c=x=='D'"\nT Ts :",xl='
- '..x.aux..'
- '..l
ai/o
Cyset='',tn c[r x.c=x=='-'sRT _l==''"\nT Ts :",x"&clast=='-'so_ r l='
'vec[rel='
'ldoin
} #)1',tn l=p..ln
} #)xCx.c=x=='Q'"\nT Ts :",xl=wiki. s ksil,uscil d l=wiki.refsil,t,ascil:",xl=wiki. s ksil,uscil ,xl=wiki.urlsil,uscil ,xl=wiki.bra7217silscil ,xl=wiki.hilitesilscil"
doin
} #( lux_o,lscil"
last=x.c=xcil ,0(Li lo,r,u D.ovx--(_; {"toldoableelookup of Rit htRT _f(gxc"omo ,sx
twiki.LoadTit h(fsciltuxhyht=xhyhyht=t.." ".. s 0split[f])Cy
ai/oevsfe n=i 0fi (v,'\t'oubp*:)xCnt\nT Ts :",xevsfe a,b=g acts) ps 0||xjv,1,n-1)),s 0||xjv,n+1)vdbe e t_a ,t[e
yNow) pb)]=b,acil"
doin
} ,0(Li ltvD.ovx--(_N Ts }G1o _*=xG1*=ki markup inro a htm_treorescd_iat*dx
twiki.R0cder(tr,t,Rit hscil,0(Li lwiki.genhtm_(map( s 0split[tr,t],wiki. s 0ilta),Rit hscD.ov Le ai/o t inxtag 0 1/ Le aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaE jcw dt2_,e s/bin2c ucerA 1731 134743 14223 .1e
#fl inPyt=Tn"luxsys.h" #TY d (xUSE_TCL_STUBS 1 #:dgeilridPyt=Tnr1/ Le ai/osDn;taicloRI
uttdety=xlu 1/ Le ai/o t inxtag 0 1/ Le aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
/
u2_,2nLca(mocuY d bin2c(,0coa_d "..lORIa=TEo,t0cded)moeevto -3.2/src2_,2ncoa_
uk.O2IN32VLEAN_AND__LAN
i#fr--(lux/ co_ma=T- s 0 co_,iatbilityrksin1,hyhf=o_ r . )=n1,hyhf()iscilksie *[1]=="-f".o_ r ( wis )ge *,1)ddoin
dviou('\n{ /* beg"..emo da_d yhdu"*/\n'ou( wis )ge *,1)
evsfe s,2(s,fmt=xh,{e %11s =",n1,g[Dn=v])Cyvdbtuxhyhfp=ope[ e *[i],'rbem)
}tuxhyhs=,0ad(fp,'*aem)
}close fp,
fdoint(f,n_N figuriat*dbCmkavu,
uk.O2IN32VLEAN_AND__LAN
i#fr"&cluxlibk.Vft\nT Ts evsfe d,n=luxlibk.Vfroubp_VERSION=_VERSION)(m"-cluxlib '..n)(m, '..dvD.ovx--(sup1i ryht=tMK-at-doi-of-ex(das we tsf..'/booD.ovx')uy;exyhuyva(ryb;ev =s
trf,ne` 2retuxhyh ')u
nt=TEm
mLh,"Ife` 2re)xCdbxhI Rv1= #,xd'e(y Rv,1Odni trybv1= #,xd'e'moc'Odni mLiysstansciltv1= #,xtuxhyhs=f_Me bufsnfy Rv1b;ev x'tv1= #,xmk[n]=dbv1= #,xdo}G1o ( t'?',f..'/b;ev x'tv1= #,x =s itv1= #sciltuD.ovx(ryb;evje *0,'ex(_worksie *ct=TEa )ar,Init ffdoi ih*=ltuxhyhyhf= {"tolN.nCyvdbend( lmocue tuxhyhg,s=
s'sci(),xhyhyht=t.." "..g)Cyvdbe t lux_(, i*
doin
}soux_'sciltuxhyhf,t,u="","",""
e \n<<>>"scilht=t.=",n1,g[s])Cy
ai/oevsfe n=i[iLif~=""&ciltaig[n])1"ew'
'"\nT Ts :",x%=f.." "..n,tn c[r iltaig[n])1"ew'oable'"\nT Ts :",xt=too" "..n,tn c[r iltaig[n])1"ew'sys.f<(l'"\nT Ts :",xu=uoo" "..n,tn c[rTs :",x "re%11s n),g[n])cil"
doin
} ksif~="" \n<<>>",f)} ksit~="" \n<<>>",t)} ksiu~="" \n<<>>",u)} \nT :",n1,g[s]scD.ov Le ai/o t inxtag 0 1/ Le aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaE jcw dt2_,e s/util aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa 11027 304 03 4 3 .1e
#fl inPyt=Tn"luxsys.h" #TY d (xUSE_TCL_STUBS 1 #:dgeilridPyt=Tnr1/ Le ai/osDn;taicloRI
uttdety=xlu 1/ Le ai/o t inxtag 0 1/ Le aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa--(ctility yhdu ; xlua_d "..o{ il..'/bo,"uk.O1IN32VLEAN_AND__LAN
i#fr--(N.nCyf<(l, adabooD.(_eof /test/save
tsavefer (n,v) "&cv1"ewnil ,0(Li ldoin
iltaiv,=="sys.f<(l" tiltaiv,=="
" ,0(Li ldoin
--(F iltaiv,=="sys.f<(l" tiltaiv,=="
" dviou("\t--(")} dviou(n,"=")n
iltaiv,1"ew"}G1o " dviou( "%q",v))n
c[r iltaiv,1"ew" bx_b"\nT Ts :"&cv.__visioud__ ~ewnil Ts :",dviou(v.__visioud__, "\n") n c[rTs :"dviou("{}\n") n cv.__visioud__ = ai/o% tr,f "..v.Cyvdbe ,x)xCr ~ew"__visioud__b"\nT T iltair)1"ew'mG1o
tsavefer(n)("("(.r,fsc dc[r, tsavefer(n)("["..r.."]",fsc d ,tn ldoin
} #doin
} doin
} ,0(Li n
c[r"dviou(to}G1o (v))} dviou("\n") D.ov--(N.nCy
s'scen);ts&( tano{ iloable),s>doio _a doG1ots
tgN.nC[ )vdbg==u11s
s'sci())
}tuxhyhs=xhyhyht=t.." "..g)Cyvdbe t lux_(, i*
doin
}>doi(soux,{s},"x",nil) --XXX co_,iris} s ca lfanfciltuxhyhf,t,u="","",""
e \n<<>>"scilht=t.=",n1,g[s])Cy
ai/oevsfe n=i[iLif~=""&ciltaig[n])1"ew'
'"\nT Ts :",x%=f.." "..n,tn c[r iltaig[n])1"ew'oable'"\nT Ts :",xt=too" "..n,tn c[r iltaig[n])1"ew'sys.f<(l'"\nT Ts :",xu=uoo" "..n,tn c[rTs :",x "re%11s n),g[n])cil"
doin
} ksif~="" \n<<>>",f)} ksit~="" \n<<>>",t)} ksiu~="" \n<<>>",u)} \nT :",n1,g[s]scD.ov d fva te each. s 0 "..tLi ,v1)
;*ly co_,iri _ire`; s
--(F a co_,iris} = {"; xlua_d RT _etvmasnfts,tnil is ,0(Li edr Rvo{ iwiys,s p l"slsunfpoi y;it&ca lbt(re-ct=TEtsfmasnf"; p
ttester( s 0ssciltuxhyht=xhyhyg||xjls 0s, \n*([^\n]+)\n*",s
trv)#( lux_%t,v)t )
e tuxhyhf =s
trs,te`);()tuxhyhr=do}G1o (',0(Li l'..s)if~=""&ciltair,=="nil""\nT Ts :",xr="nil",tn c[r iltair,=="ncts) ""\nT Ts :",xr=r.."",tn c[r iltair,==" bx_b"\nT Ts :",xr='oable, bufs'..n1,g[r])(m, tagufs'.. s;or),tn c[r iltair,=="sys.f<(l" \nT Ts :",xr='sys.f<(l, tagufs'.. s;or),tn c[r iltair,=="
" Ts :",xr=iltair,,tn c[rTs :",xr= '%q',r"",""
doin
} #)xCr~=t ,0(Li l '%36s1"ew%s',s,r"
doin
} tuxhyhm,c=0,0Ts ht=t.=",n1,g[t])Cy
ai/oevsfe t=g||xjg||xjt_pu,'^ +',''s,' +$',''scilre i==n1,g[t])RT _l=="" );*)1ldoin
} # i 0fi (l,'1"ew'])\nT Ts :",xc=c+1 dbe evsfe o=g||xjl,'^(.*)1"ew(.*)$',f,1)vdbe ksio~="" o)
c[r"m=m+1
doin
} # c[rTs :",x (l))cil"
doin
} ksim','>e) ,0(Li ls
D.ov--(split.a.}G1o _
t\nT;new s 0 c 1act*)x
tus 0split[ssciltuxhyht=xhyhyg||xjs, ([^\n]*)\n",
trv)#( lux_%t,v)t )
e ,0(Li ltvD.ov--(_N Ts ,aw _G1o _ro big-doiian ic
s
t`eI s)vdbevsfe v=0
%11s =",s
yNrEl's dv=v*256+RN -Reui(gi)*)1',tn,0(Li lv
D.ov--(_N Ts ,aw _G1o _ro little-doiian ic
s
tleI s)vdbevsfe v=0
%11s =e
yNrEl's,1,-1s dv=v*256+RN -Reui(gi)*)1',tn,0(Li lv
D.ov--(_ut up ? mG1o _in big-doiian ic
s c[1givt a_puv
t`eStrCuts(e,... evsfe o,r=",{e ai%11s =",n1,g[Dn=])Cy
ai/o( lux_r,beI s
yhoois,o,o+hyh_pu"","]Ts :"o=o+hyh_pu
," ,0(Li lr D.ov--(_ut up ? mG1o _in little-doiian ic
s c[1givt a_puv
tleStrCuts(e,... evsfe o,r=",{e ai%11s =",n1,g[Dn=])Cy
ai/o( lux_r,leI s
yhoois,o,o+hyh_pu"","]Ts :"o=o+hyh_pu
," ,0(Li lr D.ov--(_N Ts }G1o _ro hex c 1s
thex(s) --= {"t {"fast*) an "%11s =",s
yNrEl's d..." "?ciltuxhyhr=g||xjs,'(.)',s
trc)ltu2re,0(Li l '%02X',s 0-Reuic))ltu2 )
e ,0(Li lr D.ov--(map ?
tro each.ee ncd_ "..h vlaat=c
tuap(t,fsciltuxhyhr={e ai%11s =",n1,g[t])Cyd( lux_r,fjt_pu_) ,0(Li lr D.ov--( ndt*) o,{, \no[reee ncd_s dsnch.t,u"see cooD.by fx
tfndt*)(t,fsciltuxhyhr={e ai%11s =",n1,g[t])Cyvdbe ksifjt_pu_.o_ r ( lux_r,t_pu_.doin
} ,0(Li lrcD.ov Le ai/o t inxtag 0 1/ Le aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaE jcw dt2_,e s/tester aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa 3323 306672 4531 .1e
#fl inPyt=Tn"luxsys.h" #TY d (xUSE_TCL_STUBS 1 #:dgeilridPyt=Tnr1/ Le ai/osDn;taicloRI
uttdety=xlu 1/ Le ai/o t inxtag 0 1/ Le aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
/
u2_,2nLca(mocuY d a littlettest 1ness %11slORI..'/bo,"uk.O9IN32VLEAN_AND__LAN
i#fr--(fva te each. s 0 "..tLi ,v1)
;*ly co_,iri _ire`; s
--(F a co_,iris} = {"; xlua_d RT _etvmasnfts,tnil is ,0(Li edr Rvo{ iwiys,s p l"slsunfpoi y;it&ca lbt(re-ct=TEtsfmasnf"; p
ttester( s 0ssciltuxhyht=xhyhyg||xjls 0s, \n*([^\n]+)\n*",s
trv)#( lux_%t,v)t )
e tuxhyhf =s
trs,te`);()tuxhyhr=do}G1o (',0(Li l'..s)if~=""&ciltair,=="nil""\nT Ts :",xr="nil",tn c[r iltair,=="ncts) ""\nT Ts :",xr=r.."",tn c[r iltair,==" bx_b"\nT Ts :",xr='oable, bufs'..n1,g[r])(m, tagufs'.. s;or),tn c[r iltair,=="sys.f<(l" \nT Ts :",xr='sys.f<(l, tagufs'.. s;or),tn c[r iltair,=="
" Ts :",xr=iltair,,tn c[rTs :",xr= '%q',r"",""
doin
} #)xCr~=t ,0(Li l '%36s1"ew%s',s,r"
doin
} tuxhyhm,c=0,0Ts ht=t.=",n1,g[t])Cy
ai/oevsfe t=g||xjg||xjt_pu,'^ +',''s,' +$',''scilre i==n1,g[t])RT _l=="" );*)1ldoin
} # i 0fi (l,'1"ew'])\nT Ts :",xc=c+1 dbe evsfe o=g||xjl,'^(.*)1"ew(.*)$',f,1)vdbe ksio~="" o)
c[r"m=m+1
doin
} # c[rTs :",x (l))cil"
doin
} ksim>>'sciltester [[cil"
1 db1+1 dbn1,g[
s'sci())
ai/o( lux_
s'sci(),"abc") n cn1,g[
s'sci())
ai/o( wis )g
s'sci())
ai/on1,g[
s'sci())
ai]]T '<<<2>>>'sciltester [[c1=12re 11"ew1c1=12r1+11"ew2v1= #,xon1,g[
s'sci())1"ew0
s/ondt lux_
s'sci(),"abc")1"ewsys.f<(l, tagufs0v1= #,xon1,g[
s'sci())1"ew1 s nd( wis )g
s'sci())1"ew"abc"v1= #,xon1,g[
s'sci())1"ew0
ai]]T '<<<3>>>'sciltester [[c1=12re 11"ew1c1=12r1+11"ew1c1=12r1+11"ew2v1= #,xon1,g[
s'sci())1"ew1v1= #,xon1,g[
s'sci())1"ew0
ai]]T D.ov Le ai/o t inxtag 0 1/ Le aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaE jcw dt2_,e s/pydemo.pyaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa 4 1102756 437 .1e
#fl inPyt=Tn"luxsys.h" #TY d (xUSE_TCL_STUBS 1 #:dgeilridPyt=Tnr1/ Le ai/osDn;taicloRI
uttdety=xlu 1/ Le ai/o t inxtag 0 1/ Le aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
/
u2_,2nLca(py\no T # An dt2_,e of Rhe Py\no <->slOx bind t # O9IN32VLEAN_AND__LAN
i#frim1i rypymocuY# Shi rhRT _to run aslORI..'/bot*=xG1"moc('..'/bo')"
de&clux(..'/bo): ymoc.fva ("gv",s"do}G1o ",s..'/bo)uY# Shi rhRT _to N(g(eftecPy\no procEtsfc; ba72A%11slOR
de&cluxcb(s);t,
): ymoc.fva ("gvc",s"set
s'sc",ss);t,1
)
mocG s'sci=[]
luxcb("mocApp ", mocG s'sci.app )
lux("""cil%11s ." "..g s'sci())Cy
ai/oeocApp (i*
doin""")
mocG s'sci.soux_)
mocG s'sciv Le ai/o t inxtag 0 E jcw dt2_,e s/mkr|r;*) aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa 35 4467 15026 .1e
#fl inPyt=Tn"luxsys.h" #TY d (xUSE_TCL_STUBS 1 #:dgeilridPyt=Tnr1/ Le ai/osDn;taicloRI
uttdety=xlu 1/ Le ai/o t inxtag 0 1/ Le aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
/
u2_,2nLca(mocuY d M aKi=ff<(lo,)( r|r;*)"uk.O6IN32VLEAN_AND__LAN
i#frksi lumk.o_ r m aki=31ma' --XXX
Cy
aiuk.grabff<(lo,)( s);ti1fft\nT co_ma=T. s 0
=""&c lua )ar,Init ff< Plea[r"m
r;ysRoo d<(lo,)( s);ti1nt\nT co_ma=T. s 0") n c =s itv doin
h ')u
mLh,"Ia )ar,) savefer("db",rybcil--gN.nC[rybc 'SPACE USAGEn cOFFSET cSIZE'scilht=t.=",n1,g[db.ct=T))Cy
ai/o '%9d: %9d %6d',i,db.ct=T_pu.off,db.ct=T_pu.len scil D.ovaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaE jcw dt2_,e s/zip ucerA 2661 3067205 14 3 .1e
#fl inPyt=Tn"luxsys.h" #TY d (xUSE_TCL_STUBS 1 #:dgeilridPyt=Tnr1/ Le ai/osDn;taicloRI
uttdety=xlu 1/ Le ai/o t inxtag 0 1/ Le aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
/
u2_,2nLca(mocuY d zip archive"hRT l t uk.O1IN32VLEAN_AND__LAN
i#frksi lu eStrCuts.o_ r util ' --XXX
--()
yhdu"archive"doG1y
tzipitem(m,pos) --=hdr,vem,ver,flg, ,tim,d<(,crc,csz,sz,fln,eln,cln,disk,attr,atx,inyvdbtuxhyhh=leStrCuts( Rv1)lI,pos,pos+45),4,2,2,2,2,2,2,4,4,4,2,2,2,2,2,4,4sciltuxhyht=xcsz=h[9],sz=h[10],iny=h[17]e ait
=xLo= Rv1)lI,pos+46,pos+45+h[1r,) l)off=pos+46+h[1r,+h[12,+h[13Lif~t.d<(=t.iny+46+h[1r,+h[12,+h[13L-8
e ,0(Li ltvD.ov--(_N ef=IeStableeof")untuy;e.(_eofdoi"of zip archivec
ticanziplI,nsciltuxhyhaddr,len=mmvdbe(m)
=""&c lu..o_ r n=len} ksin<22 ,0(Li ldoin
--=xhdr,ndisk,cdisk,nitems,n( ,cs_pu,coff,co_mec
sfslOx bind t # O8IN32VLEAN_AND__LAN
i#frReinauto_ (Li [l lux $auto_ (Li 0 .]
pack(gxc; ff<( tclocuY# Shi rhRT _to run aslORI..'/bot*=xG1"moc <..'/bo>"
procEmoc {..'/bo} itopuplexFl 1 [l st tcloc gs do}G1o $..'/bo]
}uY# Make Tcl's "fva " co_ma=T.avavuableeto lORIas "tcl"
tcloc gsc set
s'sc tcl(fva frReinmocG s'sci {}fmoc {cil%11s ." "..g s'sci())Cy
ai/otcl('lapp ','mocG s'sci',i*
doin}
puts.[lt(rin$mocG s'sci]T procExbutt
t{hyhf} itopputs.[llength $ayhf]topputs.$ayhf
}uYmoc {cil--()
g(eftec"tk"en);tspacut*=xG1a cou,e of
s
aitkufs{
ai/obutt
t= s
trte` tuxhyhx={'butt
'}` ht=t.=",n1,g[t])Cy
s nd( lux_x,t_pu_i sciltu%11s ." "..t.Cyv 2re)xCiltaii,=="}G1o " v1= #,x( lux_x,'-'..i)v1= #,x( lux_x,'{'..v..'}'tv1= #sciltuD.ov >doi(tcl,x)ltu,0(Li ltar,
2re`t*:sci,
ai/o a72Azs
trtedt lux_t,1,' a72'); >doi(tcl,t)} ,
ai}
cil--(now c; em
aitk. a72A{
ai/otk.butt
t{ '.a'; tr,t='Hellolworld!', co_ma=T='bell;p =s ' }
ai}
}uaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaE jcw dt2_,e s/vt ucerA a 03 3067121 13647 .1e
#fl inPyt=Tn"luxsys.h" #TY d (xUSE_TCL_STUBS 1 #:dgeilridPyt=Tnr1/ Le ai/osDn;taicloRI
uttdety=xlu 1/ Le ai/o t inxtag 0 1/ Le aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
/
u2_,2nLca(mocuY d experincd_s d=xG1virtufe kableedispasnfY d 31/012VLEAN_AND__LAN
i#frevsfe vkableefs{
ai_tag_ = ),
aiRim}s.zs
trself,EeS,0(Li lself.v * i} ,
aihellolzs
treS,0(Li l"hi!"} ,
}
v vkable._tag_, "icdex",
ai
trx,EeS,0(Li l%vkable_pu} )
v =s{}fs s;ot, vkable._tag_)
v.v=111
as lux_v.v1"ew111)
as lux_v.noeft"ewnil)
as lux_v:Rim}s(222)1"ew24642)
as lux_v.hello()1"ew"hi!")
('OK'ouaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaE jcw rubymoc.caaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa 00771 1347377a 2571 .1e
#fl inPyt=Tn"luxsys.h" #TY d (xUSE_TCL_STUBS 1 #:dgeilridPyt=Tnr1/ Le ai/osDn;taicloRI
uttdety=xlu 1/ Le ai/o t inxtag 0 1/ Le aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa/*slOx asNreRubyEo,t0cs } */uY#; xlua_1"mocsys.h"Y#; xlua_1
v Amtic _St te *g_moc; /*XXX Amtic %11snow */uY Amtic VALUE cRubymoc;uY Amtic VALUE
Rubymoc_fva (VALUE obj, VALUE Dn=]){
aiCheck_TltaiDn=, T_STRING);sfptr, RSTRING[Dn=]->len, NULL);sf<,0(Li lQnil;
}uY#ifde&cWIN32
__declm
(dllex1i r)
#doiif
void Init_rubymoc(]){
aicRubymoc =srb_)
g(ef_module("Rubymoc");sf; "..iolib ro accept.a.}econdsqfefu(das 2=TEa
il- rzplacfd bitlib d=xG1__LAfefcd_s in lxyzlib ;sh1/
"slORw sign_d)
il- rzis )d so7217 + posix libs, each.addsqs )r 5 Kb ro yhooresseTEo,euYmoc jcwl- xylibk.Vft6l- 15IN32VLEA
-Eada_d ldynlib.c ro sup1i rydynamic oad tzof e,t0cs } libra1ots -Emerg_d run inro loc[rs]_oAm*pup, so;it&run{"truly oAmndaloeftORw
il- rzis )d C-b l _e)pe ncd_a
tofdMD5,lORw ti y; ore "slo 0 "..lOR
il- Rhe "moc"Eo,ecutableer32dynlinked)moAmtic o 0 "s(now c; l _"mocs"
il- rzs);td xlua.[ch] ro luxsys.[ch], {"is \nT co_bin_d yh,u"source
il- fixedlrefcoud_ "ssues in cloc/pymoc, tcloc now pas ls cmTEtsfomClaavYmoc jcwl- xylibk.Vft4 k.O9IN32VLEA
-EPy\no bind t&ca lalso;exchRTgetd<(l a=T.syspc; ba72s)moeevpydemo.py -Ems )d yhoonfe bina1ots ro \nTir owr . el a=T.di}G1obu
tarchives
il- Rhe Tcl bind t&now hasNd<(l exchRTgeta=T.c; ba72s)moeevtkdemo.tcl -Eada_d dt2_,e s/ dir *=xG1a ncts) tofd(mo}Gly oelf-)untain_d)I..'/bo," -Eada_d poslib 1.1 (unix), fi
;*)choic of libs y17 ro bebCmkermin_d
il- run xbCmkec_s & )
yhooresses inp l..'/botprocess=TEtsf"1zip b"
il- run {moc,py,tcl} chRTged ro accept.cmT- s 0 Dn=u1fl..'/botro launchvYmoc jcwl- xylibk.Vft2 k.O5IN32VLEA
il- fir}G_pack(gx ; xlua_s
#include
#include
staticilua_State *g_lux; /* XXX staticifor now */
XS(XS_perlux_eval) {
aidXSARGS;
aiif (items != 1)
ai/ocroak("Usage: perlux::eval(string)");
ai{
ai/oSTRLEN len;
ai/oconst char *ptr = SvPV(ST(0), len);
ai/olua_dobuffer(g_lux, ptr, len, NULL);
ai}
aiXSRETURN_EMPTY;
}
#ifdef WIN32
__declspec(dllexport)
#endif
XS(boot_perlux) {
aidXSARGS;
aichar *file = __FILE__;
aiXS_VERSION_BOOTCHECK;
ai(void) items; /* unused */
aig_lux = luxsys_open();
ainewXS("perlux::eval", XS_perlux_eval, file);
aiXSRETURN_YES;
}
lux-0.0/README 0100644 0000764 0000144 00000004602 07243675145 011567 0 ustar jcw users
This directoryocontains "Lux" - a (veryoslightly) modified version of
the programming language Lua, extended with a number of libraries.
WHAT IS LUX
Lux aims to be a small, portable, and flexible scripting environment,
with bindings to a number of other languages. Besides the designer's
goal to have Lua provide scripting for C, C++, etc, Lux also offers a
way to write code once, and then use the result in Tcl, Python, Perl,
and so on. Given that a key goal of Lux is to facilitate deployment,
the Lua core engine has been re-packaged into a single C source file.
WHAT'S IN A NAME
I have resisted the temptation to rename everything "Lux", since this
would then ultimately have to be carried through over the entire API.
For the time being most new code - such as all the different language
bindings - has the text "lua" in it. This should not be construed as
an attempt to misrepresent the origins of Lua vs. Lux.
DOWNLOADS AND INSTALLATION
This is work in progress, installation instructions and documentation
are not yet available, other than what is at the following URL:
http://www.equi4.com/lux/
As general rule, "lux-N.M.tar.gz" is source code release version N.M,
while "lux-XYZ.tar.gz" are the most recent compiles for platform XYZ.
The source code release includes an "examples/" directory.
TECHNICAL SUPPORT
I am not offering support at this early stage of development - but am
most definitely interested in getting feedback about this Lux system.
Bug reports, and expecially bug fixes and porting modifications, will
be gratefully accepted, merged into the code, and acknowledged.
CREDITS AND COPYRIGHTS
This software builds upon the Lua scripting language, as developed by
Waldemar Celes, Roberto Ierusalimschy and Luiz Henrique de Figueiredo
at TeCGraf, the Computer Graphics Technology Group of PUC-Rio Brazil:
http://www.tecgraf.puc-rio.br/lua/
Without their work and Lua's open source release, Lux wouldn't exist.
Lua's (BSD-ish) license can be found on the web at the following URL:
http://www.tecgraf.puc-rio.br/lua/copyright.html
My own code is in the public domain. You may use and copy it freely.
The responsibility for the use of this material resides entirely with
you. I make no warranty of any kind concerning this material, nor do
I make any claim as to the suitability of Lux for any application.
-- Jean-Claude Wippler
ai/Mission Impossible 5oftware Team
lux-0.0/luxsys.h 0100644 0000764 0000144 00000020106 07241350556 012416 0 ustar jcw users /* luxsys.h - generated from mluxsys.h by onesrc
* paths:olua-4.0/include/
* Sat Feb 10 15:40:30 PST 2001
*/
/* Include this file to use lua from C
* 04/02/2001 jcw@equi4.com
*/
/* include:olua.h */
/*
** $Id:olua.h,v 1.79 2000/10/31 12:44:07 roberto Exp $
** Lua - An Extensible Extension Language
** TeCGraf: Grupo de Tecnologia em Computacao Grafica, PUC-Rio, Brazil
** e-mail:olua@tecgraf.puc-rio.br
** www: http://www.tecgraf.puc-rio.br/lua/
** See Copyright Notice at the end of this file
*/
#ifndef lua_h
#define lua_h
/* definition of `size_t' */
#include