lux-0.1/0040755000076400001440000000000007245123331010674 5ustar jcwuserslux-0.1/LUXDOC.html0100644000076400001440000002046407244361647012600 0ustar jcwusersLUXDOC LUX - AN EMBEDDABLE AND EXTENSIBLE SCRIPTING SYSTEM BASED ON LUA

This document describes:

LUX STANDALONE

The standalone version has been built in a number of configurations:

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 to help 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 for standalone use is in "run.lua", which is compiled with "luac" and then converted into a C array datastructure by 'examples/bin2c.lua'. A similar approach is used for "preload.lua", but this script gets incorporated into all Lux configurations, not just the standalone one. In its current form, this script defines functions to decode zip archives.

The code in "mlux.c" does the following:

  1. initialize Lux, this also executes a compiled-in "preload" script
  2. set the global "argv0" to C's "argv[0]", i.e. the program name
  3. set up an "argv" vector with all command-line arguments
  4. execute the embedded script (generated from "run.lua", etc)
The "run.lua" script is very small:
  1. look for a zip archive at the end of the executable
  2. try to fetch/evaluate the code stored as an entry called "boot.lux"
  3. else, look for a first arg and move it off argv into an "argv1" global
  4. if the arg is a zip archive, fetch its "boot.lux" script and run that
  5. lastly, open the arg as script file (source or compiled), and run it
  6. if no args are specified, display the version string on stdout

The result of all this, is that a zip archive can be tagged onto the end of a standalone executable (any one of them), and if it is properly constructed, it will get control very early on. This also works for shared libraries, but in that case an explicit attempt to run the boot script must be made, e.g. in Tcl: 
    % load ./tclux.so
    % tclux gs dostring {lux.ZipBoot('./tclux.so')}

Alternately, the script to run can be specified as command-line argument, with as special case that if a zip archive is specified, the "boot.lux" script in it will get control (it has to be present).

Finally, a "scripted document" approach can be used, by creating a file which starts off as shell script - followed by a zip archive with the bootstrap. On Unix, the following will create such a runnable scripted document: 

    $ echo '#!/usr/bin/env lux' >myapp
    $ cat myapp.zip >>myapp
    $ chmod +x myapp
On Win32, you'll need to also create a "myapp.bat" file, containing just: 
    @lux myapp
This will make the scripted document "runnable" / "double-clickable".

Some points to keep in mind: if you use the "luxr" runtime (which is a few Kb smaller), make sure the scripts you put into the archive are pre-compiled by "luac". And if you don't, be careful to store scripts with only LF's as line endings, since the extracted files do not get converted according to the different ways Windows and Macintosh treat line endings.

LUX IN TCL

TcLux lets you run Lux/Lua scripts from Tcl. The wrapper source is "tclux.c", it will eventually be merged into "luxsys.c".

TcLux defines a single tclux command, which takes a format string plus a variable number of arguments. Each character in the format string describes one argument, the size of the format string must correspond to the number of remaining arguments. The types currently defined are:

Some examples to illustrate how this can be used:
tclux gs print {Hello Lux!}
calls global "print" function with a single string argument
tclux gsc setglobal tcl eval
set global "tcl" to contain a very useful callback into Tcl
tclux gs tcl {puts "Hello Tcl!"}
calls "tcl" with a string argument (with the definition above, this will call back into Tcl)
tclux gs dostring {tcl('puts "Hello Tcl!"')}
another way to do the same
tclux gs dostring {tcl('set','result','Hello Tcl!')}
returns a value from Lux back to Tcl
The "r" (reference) mechanism is useful during callbacks, because TcLux sets up references for tables and userdata, and then passes those references. In the callback, you can then use those references to call back (yes, it gets confusing!) into Lux, e.g. to extract individual values as needed. Note that references do not remain valid after the callback returns.
LUX IN PYTHON

PyLux lets you run Lux/Lua scripts from Python. The wrapper source is "pylux.c", it will eventually be merged into "luxsys.c".

PyLux defines a pylux module with a single eval command, which takes a format string plus a variable number of arguments. Each character in the format string describes one argument, the size of the format string must correspond to the number of remaining arguments. The types currently defined are:

Some examples to illustrate how this can be used:
pylux.eval('gs','print','Hello Lux!')
calls global "print" function with a single string argument
(More examples will be added, see 'examples/pydemo.py' for now...)

The "r" (reference) mechanism is useful during callbacks, because PyLux sets up references for tables and userdata, and then passes those references. In the callback, you can then use those references to call back (yes, it gets confusing!) into Lux, e.g. to extract individual values as needed. Note that references do not remain valid after the callback returns.

LUX IN PERL

PerLux lets you run Lux/Lua scripts from Perl. The wrapper source is "perlux.c", it will eventually be merged into "luxsys.c".

This interface is still limited to string-only evaluation, e.g.: 

    perlux::eval("print('Hello Lux!')");
A better interface, similar to TcLux and PyLux, will be implemented.
LUX IN RUBY

RubyLux lets you run Lux/Lua scripts from Ruby. The wrapper source is "rubylux.c", it will eventually be merged into "luxsys.c".

This interface is still limited to string-only evaluation, e.g.: 

    Rubylux.eval("print('Hello Lux!')");
A better interface, similar to TcLux and PyLux, will be implemented.

This Lux project is work-in-progress by

-- Jean-Claude Wippler <jcw@equi4.com> 

   Mission Impossible 5oftware Team
   http://www.equi4.com/lux/

Mon Feb 19 19:25:27 PST 2001 lux-0.1/go.rb0100755000076400001440000000016307240633046011632 0ustar jcwusers#!/usr/bin/env ruby require "rubylux" Rubylux.eval(" print('Hello Lux, I am Rubynesque') dofile('run.lux') ") lux-0.1/perlux.pm0100644000076400001440000000104307237732046012556 0ustar jcwusers# perlux.pm -- Perl script interface to the perlux extension package perlux; use strict; use vars qw($VERSION @ISA @EXPORT @EXPORT_OK); require Exporter; require DynaLoader; require AutoLoader; @ISA = qw(Exporter DynaLoader); @EXPORT = qw( ); $VERSION = '0.1'; bootstrap perlux $VERSION; 1; __END__ =head1 NAME perlux - Perl extension interface to Lux =head1 SYNOPSIS use perlux; perlux::eval("print(123+456)"); =head1 DESCRIPTION This is an interface to Lux. =head1 AUTHOR Jean-Claude Wippler =head1 SEE ALSO perl(1). =cut lux-0.1/luxsys.c0100644000076400001440000127324507245122034012421 0ustar jcwusers/* luxsys.c - generated from mluxsys.c by onesrc * paths: lua-4.0/src/ lua-4.0/src/lib/ lua-4.0/include/ . * Wed Feb 21 21:31:06 PST 2001 */ /* Include all of Lua and extension libs here, used for "onesrc" */ /* include: lua.h */ /* ** $Id: lua.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: lua@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 /* mark for all API functions */ #ifndef LUA_API #define LUA_API extern #endif #define LUA_VERSION "Lua 4.0" #define LUA_COPYRIGHT "Copyright (C) 1994-2000 TeCGraf, PUC-Rio" #define LUA_AUTHORS "W. Celes, R. Ierusalimschy & L. H. de Figueiredo" /* name of global variable with error handler */ #define LUA_ERRORMESSAGE "_ERRORMESSAGE" /* pre-defined references */ #define LUA_NOREF (-2) #define LUA_REFNIL (-1) #define LUA_REFREGISTRY 0 /* pre-defined tags */ #define LUA_ANYTAG (-1) #define LUA_NOTAG (-2) /* option for multiple returns in lua_call */ #define LUA_MULTRET (-1) /* minimum stack available for a C function */ #define LUA_MINSTACK 20 /* error codes for lua_do* */ #define LUA_ERRRUN 1 #define LUA_ERRFILE 2 #define LUA_ERRSYNTAX 3 #define LUA_ERRMEM 4 #define LUA_ERRERR 5 typedef struct lua_State lua_State; typedef int (*lua_CFunction) (lua_State *L); /* ** types returned by `lua_type' */ #define LUA_TNONE (-1) #define LUA_TUSERDATA 0 #define LUA_TNIL 1 #define LUA_TNUMBER 2 #define LUA_TSTRING 3 #define LUA_TTABLE 4 #define LUA_TFUNCTION 5 /* ** state manipulation */ LUA_API lua_State *lua_open (int stacksize); LUA_API void lua_close (lua_State *L); /* ** basic stack manipulation */ LUA_API int lua_gettop (lua_State *L); LUA_API void lua_settop (lua_State *L, int index); LUA_API void lua_pushvalue (lua_State *L, int index); LUA_API void lua_remove (lua_State *L, int index); LUA_API void lua_insert (lua_State *L, int index); LUA_API int lua_stackspace (lua_State *L); /* ** access functions (stack -> C) */ LUA_API int lua_type (lua_State *L, int index); LUA_API const char *lua_typename (lua_State *L, int t); LUA_API int lua_isnumber (lua_State *L, int index); LUA_API int lua_isstring (lua_State *L, int index); LUA_API int lua_iscfunction (lua_State *L, int index); LUA_API int lua_tag (lua_State *L, int index); LUA_API int lua_equal (lua_State *L, int index1, int index2); LUA_API int lua_lessthan (lua_State *L, int index1, int index2); LUA_API double lua_tonumber (lua_State *L, int index); LUA_API const char *lua_tostring (lua_State *L, int index); LUA_API size_t lua_strlen (lua_State *L, int index); LUA_API lua_CFunction lua_tocfunction (lua_State *L, int index); LUA_API void *lua_touserdata (lua_State *L, int index); LUA_API const void *lua_topointer (lua_State *L, int index); /* ** push functions (C -> stack) */ LUA_API void lua_pushnil (lua_State *L); LUA_API void lua_pushnumber (lua_State *L, double n); LUA_API void lua_pushlstring (lua_State *L, const char *s, size_t len); LUA_API void lua_pushstring (lua_State *L, const char *s); LUA_API void lua_pushcclosure (lua_State *L, lua_CFunction fn, int n); LUA_API void lua_pushusertag (lua_State *L, void *u, int tag); /* ** get functions (Lua -> stack) */ LUA_API void lua_getglobal (lua_State *L, const char *name); LUA_API void lua_gettable (lua_State *L, int index); LUA_API void lua_rawget (lua_State *L, int index); LUA_API void lua_rawgeti (lua_State *L, int index, int n); LUA_API void lua_getglobals (lua_State *L); LUA_API void lua_gettagmethod (lua_State *L, int tag, const char *event); LUA_API int lua_getref (lua_State *L, int ref); LUA_API void lua_newtable (lua_State *L); /* ** set functions (stack -> Lua) */ LUA_API void lua_setglobal (lua_State *L, const char *name); LUA_API void lua_settable (lua_State *L, int index); LUA_API void lua_rawset (lua_State *L, int index); LUA_API void lua_rawseti (lua_State *L, int index, int n); LUA_API void lua_setglobals (lua_State *L); LUA_API void lua_settagmethod (lua_State *L, int tag, const char *event); LUA_API int lua_ref (lua_State *L, int lock); /* ** "do" functions (run Lua code) */ LUA_API int lua_call (lua_State *L, int nargs, int nresults); LUA_API void lua_rawcall (lua_State *L, int nargs, int nresults); LUA_API int lua_dofile (lua_State *L, const char *filename); LUA_API int lua_dostring (lua_State *L, const char *str); LUA_API int lua_dobuffer (lua_State *L, const char *buff, size_t size, const char *name); /* ** Garbage-collection functions */ LUA_API int lua_getgcthreshold (lua_State *L); LUA_API int lua_getgccount (lua_State *L); LUA_API void lua_setgcthreshold (lua_State *L, int newthreshold); /* ** miscellaneous functions */ LUA_API int lua_newtag (lua_State *L); LUA_API int lua_copytagmethods (lua_State *L, int tagto, int tagfrom); LUA_API void lua_settag (lua_State *L, int tag); LUA_API void lua_error (lua_State *L, const char *s); LUA_API void lua_unref (lua_State *L, int ref); LUA_API int lua_next (lua_State *L, int index); LUA_API int lua_getn (lua_State *L, int index); LUA_API void lua_concat (lua_State *L, int n); LUA_API void *lua_newuserdata (lua_State *L, size_t size); /* ** =============================================================== ** some useful macros ** =============================================================== */ #define lua_pop(L,n) lua_settop(L, -(n)-1) #define lua_register(L,n,f) (lua_pushcfunction(L, f), lua_setglobal(L, n)) #define lua_pushuserdata(L,u) lua_pushusertag(L, u, 0) #define lua_pushcfunction(L,f) lua_pushcclosure(L, f, 0) #define lua_clonetag(L,t) lua_copytagmethods(L, lua_newtag(L), (t)) #define lua_isfunction(L,n) (lua_type(L,n) == LUA_TFUNCTION) #define lua_istable(L,n) (lua_type(L,n) == LUA_TTABLE) #define lua_isuserdata(L,n) (lua_type(L,n) == LUA_TUSERDATA) #define lua_isnil(L,n) (lua_type(L,n) == LUA_TNIL) #define lua_isnull(L,n) (lua_type(L,n) == LUA_TNONE) #define lua_getregistry(L) lua_getref(L, LUA_REFREGISTRY) #endif /****************************************************************************** * Copyright (C) 1994-2000 TeCGraf, PUC-Rio. All rights reserved. * * Permission is hereby granted, without written agreement and without license * or royalty fees, to use, copy, modify, and distribute this software and its * documentation for any purpose, including commercial applications, subject to * the following conditions: * * - The above copyright notice and this permission notice shall appear in all * copies or substantial portions of this software. * * - The origin of this software must not be misrepresented; you must not * claim that you wrote the original software. If you use this software in a * product, an acknowledgment in the product documentation would be greatly * appreciated (but it is not required). * * - Altered source versions must be plainly marked as such, and must not be * misrepresented as being the original software. * * The authors specifically disclaim any warranties, including, but not limited * to, the implied warranties of merchantability and fitness for a particular * purpose. The software provided hereunder is on an "as is" basis, and the * authors have no obligation to provide maintenance, support, updates, * enhancements, or modifications. In no event shall TeCGraf, PUC-Rio, or the * authors be held liable to any party for direct, indirect, special, * incidental, or consequential damages arising out of the use of this software * and its documentation. * * The Lua language and this implementation have been entirely designed and * written by Waldemar Celes Filho, Roberto Ierusalimschy and * Luiz Henrique de Figueiredo at TeCGraf, PUC-Rio. * * This implementation contains no third-party code. ******************************************************************************/ /* resumed: mluxsys.c */ /* include: luadebug.h */ /* ** $Id: luadebug.h,v 1.17 2000/10/30 12:38:50 roberto Exp $ ** Debugging API ** See Copyright Notice in lua.h */ #ifndef luadebug_h #define luadebug_h /* skipped: lua.h - see mluxsys.c */ typedef struct lua_Debug lua_Debug; /* activation record */ typedef struct lua_Localvar lua_Localvar; typedef void (*lua_Hook) (lua_State *L, lua_Debug *ar); LUA_API int lua_getstack (lua_State *L, int level, lua_Debug *ar); LUA_API int lua_getinfo (lua_State *L, const char *what, lua_Debug *ar); LUA_API const char *lua_getlocal (lua_State *L, const lua_Debug *ar, int n); LUA_API const char *lua_setlocal (lua_State *L, const lua_Debug *ar, int n); LUA_API lua_Hook lua_setcallhook (lua_State *L, lua_Hook func); LUA_API lua_Hook lua_setlinehook (lua_State *L, lua_Hook func); #define LUA_IDSIZE 60 struct lua_Debug { const char *event; /* `call', `return' */ int currentline; /* (l) */ const char *name; /* (n) */ const char *namewhat; /* (n) `global', `tag method', `local', `field' */ int nups; /* (u) number of upvalues */ int linedefined; /* (S) */ const char *what; /* (S) `Lua' function, `C' function, Lua `main' */ const char *source; /* (S) */ char short_src[LUA_IDSIZE]; /* (S) */ /* private part */ struct lua_TObject *_func; /* active function */ }; #endif /* resumed: mluxsys.c */ /* include: lualib.h */ /* ** $Id: lualib.h,v 1.14 2000/10/27 16:15:53 roberto Exp $ ** Lua standard libraries ** See Copyright Notice in lua.h */ #ifndef lualib_h #define lualib_h /* skipped: lua.h - see mluxsys.c */ #ifndef LUALIB_API #define LUALIB_API extern #endif #define LUA_ALERT "_ALERT" LUALIB_API void lua_baselibopen (lua_State *L); LUALIB_API void lua_iolibopen (lua_State *L); LUALIB_API void lua_strlibopen (lua_State *L); LUALIB_API void lua_mathlibopen (lua_State *L); LUALIB_API void lua_dblibopen (lua_State *L); /* Auxiliary functions (private) */ const char *luaI_classend (lua_State *L, const char *p); int luaI_singlematch (int c, const char *p, const char *ep); #endif /* resumed: mluxsys.c */ /* include: lauxlib.h */ /* ** $Id: lauxlib.h,v 1.30 2000/10/30 12:38:50 roberto Exp $ ** Auxiliary functions for building Lua libraries ** See Copyright Notice in lua.h */ #ifndef lauxlib_h #define lauxlib_h #include #include /* skipped: lua.h - see mluxsys.c */ #ifndef LUALIB_API #define LUALIB_API extern #endif struct luaL_reg { const char *name; lua_CFunction func; }; LUALIB_API void luaL_openlib (lua_State *L, const struct luaL_reg *l, int n); LUALIB_API void luaL_argerror (lua_State *L, int numarg, const char *extramsg); LUALIB_API const char *luaL_check_lstr (lua_State *L, int numArg, size_t *len); LUALIB_API const char *luaL_opt_lstr (lua_State *L, int numArg, const char *def, size_t *len); LUALIB_API double luaL_check_number (lua_State *L, int numArg); LUALIB_API double luaL_opt_number (lua_State *L, int numArg, double def); LUALIB_API void luaL_checkstack (lua_State *L, int space, const char *msg); LUALIB_API void luaL_checktype (lua_State *L, int narg, int t); LUALIB_API void luaL_checkany (lua_State *L, int narg); LUALIB_API void luaL_verror (lua_State *L, const char *fmt, ...); LUALIB_API int luaL_findstring (const char *name, const char *const list[]); /* ** =============================================================== ** some useful macros ** =============================================================== */ #define luaL_arg_check(L, cond,numarg,extramsg) if (!(cond)) \ luaL_argerror(L, numarg,extramsg) #define luaL_check_string(L,n) (luaL_check_lstr(L, (n), NULL)) #define luaL_opt_string(L,n,d) (luaL_opt_lstr(L, (n), (d), NULL)) #define luaL_check_int(L,n) ((int)luaL_check_number(L, n)) #define luaL_check_long(L,n) ((long)luaL_check_number(L, n)) #define luaL_opt_int(L,n,d) ((int)luaL_opt_number(L, n,d)) #define luaL_opt_long(L,n,d) ((long)luaL_opt_number(L, n,d)) #define luaL_openl(L,a) luaL_openlib(L, a, (sizeof(a)/sizeof(a[0]))) /* ** {====================================================== ** Generic Buffer manipulation ** ======================================================= */ #ifndef LUAL_BUFFERSIZE #define LUAL_BUFFERSIZE BUFSIZ #endif typedef struct luaL_Buffer { char *p; /* current position in buffer */ int level; lua_State *L; char buffer[LUAL_BUFFERSIZE]; } luaL_Buffer; #define luaL_putchar(B,c) \ ((void)((B)->p < &(B)->buffer[LUAL_BUFFERSIZE] || luaL_prepbuffer(B)), \ (*(B)->p++ = (char)(c))) #define luaL_addsize(B,n) ((B)->p += (n)) LUALIB_API void luaL_buffinit (lua_State *L, luaL_Buffer *B); LUALIB_API char *luaL_prepbuffer (luaL_Buffer *B); LUALIB_API void luaL_addlstring (luaL_Buffer *B, const char *s, size_t l); LUALIB_API void luaL_addstring (luaL_Buffer *B, const char *s); LUALIB_API void luaL_addvalue (luaL_Buffer *B); LUALIB_API void luaL_pushresult (luaL_Buffer *B); /* }====================================================== */ #endif /* resumed: mluxsys.c */ /* include: lapi.c */ /* ** $Id: lapi.c,v 1.110 2000/10/30 12:50:09 roberto Exp $ ** Lua API ** See Copyright Notice in lua.h */ #include /* skipped: lua.h - see mluxsys.c */ /* include: lapi.h */ /* ** $Id: lapi.h,v 1.20 2000/08/31 14:08:27 roberto Exp $ ** Auxiliary functions from Lua API ** See Copyright Notice in lua.h */ #ifndef lapi_h #define lapi_h /* include: lobject.h */ /* ** $Id: lobject.h,v 1.82 2000/10/30 17:49:19 roberto Exp $ ** Type definitions for Lua objects ** See Copyright Notice in lua.h */ #ifndef lobject_h #define lobject_h /* include: llimits.h */ /* ** $Id: llimits.h,v 1.19 2000/10/26 12:47:05 roberto Exp $ ** Limits, basic types, and some other "installation-dependent" definitions ** See Copyright Notice in lua.h */ #ifndef llimits_h #define llimits_h #include #include /* ** try to find number of bits in an integer */ #ifndef BITS_INT /* avoid overflows in comparison */ #if INT_MAX-20 < 32760 #define BITS_INT 16 #else #if INT_MAX > 2147483640L /* machine has at least 32 bits */ #define BITS_INT 32 #else #error "you must define BITS_INT with number of bits in an integer" #endif #endif #endif /* ** Define the type `number' of Lua ** GREP LUA_NUMBER to change that */ #ifndef LUA_NUM_TYPE #define LUA_NUM_TYPE double #endif typedef LUA_NUM_TYPE Number; /* function to convert a Number to a string */ #define NUMBER_FMT "%.16g" /* LUA_NUMBER */ #define lua_number2str(s,n) sprintf((s), NUMBER_FMT, (n)) /* function to convert a string to a Number */ #define lua_str2number(s,p) strtod((s), (p)) typedef unsigned long lint32; /* unsigned int with at least 32 bits */ #define MAX_SIZET ((size_t)(~(size_t)0)-2) #define MAX_INT (INT_MAX-2) /* maximum value of an int (-2 for safety) */ /* ** conversion of pointer to int (for hashing only) ** (the shift removes bits that are usually 0 because of alignment) */ #define IntPoint(p) (((unsigned long)(p)) >> 3) #define MINPOWER2 4 /* minimum size for "growing" vectors */ #ifndef DEFAULT_STACK_SIZE #define DEFAULT_STACK_SIZE 1024 #endif /* type to ensure maximum alignment */ union L_Umaxalign { double d; char *s; long l; }; /* ** type for virtual-machine instructions ** must be an unsigned with (at least) 4 bytes (see details in lopcodes.h) ** For a very small machine, you may change that to 2 bytes (and adjust ** the following limits accordingly) */ typedef unsigned long Instruction; /* ** size and position of opcode arguments. ** For an instruction with 2 bytes, size is 16, and size_b can be 5 ** (accordingly, size_u will be 10, and size_a will be 5) */ #define SIZE_INSTRUCTION 32 #define SIZE_B 9 #define SIZE_OP 6 #define SIZE_U (SIZE_INSTRUCTION-SIZE_OP) #define POS_U SIZE_OP #define POS_B SIZE_OP #define SIZE_A (SIZE_INSTRUCTION-(SIZE_OP+SIZE_B)) #define POS_A (SIZE_OP+SIZE_B) /* ** limits for opcode arguments. ** we use (signed) int to manipulate most arguments, ** so they must fit in BITS_INT-1 bits (-1 for sign) */ #if SIZE_U < BITS_INT-1 #define MAXARG_U ((1<>1) /* `S' is signed */ #else #define MAXARG_U MAX_INT #define MAXARG_S MAX_INT #endif #if SIZE_A < BITS_INT-1 #define MAXARG_A ((1< MAXARG_B #undef MAXSTACK #define MAXSTACK MAXARG_B #endif /* maximum number of local variables */ #ifndef MAXLOCALS #define MAXLOCALS 200 /* arbitrary limit (=MAXSTACK #undef MAXLOCALS #define MAXLOCALS (MAXSTACK-1) #endif /* maximum number of upvalues */ #ifndef MAXUPVALUES #define MAXUPVALUES 32 /* arbitrary limit (<=MAXARG_B) */ #endif #if MAXUPVALUES>MAXARG_B #undef MAXUPVALUES #define MAXUPVALUES MAXARG_B #endif /* maximum number of variables in the left side of an assignment */ #ifndef MAXVARSLH #define MAXVARSLH 100 /* arbitrary limit (=MULT_RET #undef MAXVARSLH #define MAXVARSLH (MULT_RET-1) #endif /* maximum number of parameters in a function */ #ifndef MAXPARAMS #define MAXPARAMS 100 /* arbitrary limit (=MAXLOCALS #undef MAXPARAMS #define MAXPARAMS (MAXLOCALS-1) #endif /* number of list items to accumulate before a SETLIST instruction */ #define LFIELDS_PER_FLUSH 64 #if LFIELDS_PER_FLUSH>(MAXSTACK/4) #undef LFIELDS_PER_FLUSH #define LFIELDS_PER_FLUSH (MAXSTACK/4) #endif /* number of record items to accumulate before a SETMAP instruction */ /* (each item counts 2 elements on the stack: an index and a value) */ #define RFIELDS_PER_FLUSH (LFIELDS_PER_FLUSH/2) /* maximum lookback to find a real constant (for code generation) */ #ifndef LOOKBACKNUMS #define LOOKBACKNUMS 20 /* arbitrary constant */ #endif #endif /* resumed: lua-4.0/src/lobject.h */ /* skipped: lua.h - see mluxsys.c */ #ifdef LUA_DEBUG #undef NDEBUG #include #define LUA_INTERNALERROR(s) assert(((void)s,0)) #define LUA_ASSERT(c,s) assert(((void)s,(c))) #else #define LUA_INTERNALERROR(s) /* empty */ #define LUA_ASSERT(c,s) /* empty */ #endif #ifdef LUA_DEBUG /* to avoid warnings, and make sure value is really unused */ #define UNUSED(x) (x=0, (void)(x)) #else #define UNUSED(x) ((void)(x)) /* to avoid warnings */ #endif /* mark for closures active in the stack */ #define LUA_TMARK 6 /* tags for values visible from Lua == first user-created tag */ #define NUM_TAGS 6 /* check whether `t' is a mark */ #define is_T_MARK(t) ((t) == LUA_TMARK) typedef union { struct TString *ts; /* LUA_TSTRING, LUA_TUSERDATA */ struct Closure *cl; /* LUA_TFUNCTION */ struct Hash *a; /* LUA_TTABLE */ struct CallInfo *i; /* LUA_TLMARK */ Number n; /* LUA_TNUMBER */ } Value; /* Macros to access values */ #define ttype(o) ((o)->ttype) #define nvalue(o) ((o)->value.n) #define tsvalue(o) ((o)->value.ts) #define clvalue(o) ((o)->value.cl) #define hvalue(o) ((o)->value.a) #define infovalue(o) ((o)->value.i) #define svalue(o) (tsvalue(o)->str) typedef struct lua_TObject { int ttype; Value value; } TObject; /* ** String headers for string table */ /* ** most `malloc' libraries allocate memory in blocks of 8 bytes. TSPACK ** tries to make sizeof(TString) a multiple of this granularity, to reduce ** waste of space. */ #define TSPACK ((int)sizeof(int)) typedef struct TString { union { struct { /* for strings */ unsigned long hash; int constindex; /* hint to reuse constants */ } s; struct { /* for userdata */ int tag; void *value; } d; } u; size_t len; struct TString *nexthash; /* chain for hash table */ int marked; char str[TSPACK]; /* variable length string!! must be the last field! */ } TString; /* ** Function Prototypes */ typedef struct Proto { Number *knum; /* Number numbers used by the function */ int nknum; /* size of `knum' */ struct TString **kstr; /* strings used by the function */ int nkstr; /* size of `kstr' */ struct Proto **kproto; /* functions defined inside the function */ int nkproto; /* size of `kproto' */ Instruction *code; int ncode; /* size of `code'; when 0 means an incomplete `Proto' */ short numparams; short is_vararg; short maxstacksize; short marked; struct Proto *next; /* debug information */ int *lineinfo; /* map from opcodes to source lines */ int nlineinfo; /* size of `lineinfo' */ int nlocvars; struct LocVar *locvars; /* information about local variables */ int lineDefined; TString *source; } Proto; typedef struct LocVar { TString *varname; int startpc; /* first point where variable is active */ int endpc; /* first point where variable is dead */ } LocVar; /* ** Closures */ typedef struct Closure { union { lua_CFunction c; /* C functions */ struct Proto *l; /* Lua functions */ } f; struct Closure *next; struct Closure *mark; /* marked closures (point to itself when not marked) */ short isC; /* 0 for Lua functions, 1 for C functions */ short nupvalues; TObject upvalue[1]; } Closure; #define iscfunction(o) (ttype(o) == LUA_TFUNCTION && clvalue(o)->isC) typedef struct Node { TObject key; TObject val; struct Node *next; /* for chaining */ } Node; typedef struct Hash { Node *node; int htag; int size; Node *firstfree; /* this position is free; all positions after it are full */ struct Hash *next; struct Hash *mark; /* marked tables (point to itself when not marked) */ } Hash; /* unmarked tables and closures are represented by pointing `mark' to ** themselves */ #define ismarked(x) ((x)->mark != (x)) /* ** informations about a call (for debugging) */ typedef struct CallInfo { struct Closure *func; /* function being called */ const Instruction **pc; /* current pc of called function */ int lastpc; /* last pc traced */ int line; /* current line */ int refi; /* current index in `lineinfo' */ } CallInfo; extern const TObject luaO_nilobject; extern const char *const luaO_typenames[]; #define luaO_typename(o) (luaO_typenames[ttype(o)]) lint32 luaO_power2 (lint32 n); char *luaO_openspace (lua_State *L, size_t n); int luaO_equalObj (const TObject *t1, const TObject *t2); int luaO_str2d (const char *s, Number *result); void luaO_verror (lua_State *L, const char *fmt, ...); void luaO_chunkid (char *out, const char *source, int len); #endif /* resumed: lua-4.0/src/lapi.h */ TObject *luaA_index (lua_State *L, int index); void luaA_pushobject (lua_State *L, const TObject *o); #endif /* resumed: lua-4.0/src/lapi.c */ /* include: ldo.h */ /* ** $Id: ldo.h,v 1.28 2000/10/06 12:45:25 roberto Exp $ ** Stack and Call structure of Lua ** See Copyright Notice in lua.h */ #ifndef ldo_h #define ldo_h /* skipped: lobject.h - see lua-4.0/src/lapi.h */ /* include: lstate.h */ /* ** $Id: lstate.h,v 1.41 2000/10/05 13:00:17 roberto Exp $ ** Global State ** See Copyright Notice in lua.h */ #ifndef lstate_h #define lstate_h /* skipped: lobject.h - see lua-4.0/src/lapi.h */ /* skipped: lua.h - see mluxsys.c */ /* skipped: luadebug.h - see mluxsys.c */ typedef TObject *StkId; /* index to stack elements */ /* ** marks for Reference array */ #define NONEXT -1 /* to end the free list */ #define HOLD -2 #define COLLECTED -3 #define LOCK -4 struct Ref { TObject o; int st; /* can be LOCK, HOLD, COLLECTED, or next (for free list) */ }; struct lua_longjmp; /* defined in ldo.c */ struct TM; /* defined in ltm.h */ typedef struct stringtable { int size; lint32 nuse; /* number of elements */ TString **hash; } stringtable; struct lua_State { /* thread-specific state */ StkId top; /* first free slot in the stack */ StkId stack; /* stack base */ StkId stack_last; /* last free slot in the stack */ int stacksize; StkId Cbase; /* base for current C function */ struct lua_longjmp *errorJmp; /* current error recover point */ char *Mbuffer; /* global buffer */ size_t Mbuffsize; /* size of Mbuffer */ /* global state */ Proto *rootproto; /* list of all prototypes */ Closure *rootcl; /* list of all closures */ Hash *roottable; /* list of all tables */ stringtable strt; /* hash table for strings */ stringtable udt; /* hash table for udata */ Hash *gt; /* table for globals */ struct TM *TMtable; /* table for tag methods */ int last_tag; /* last used tag in TMtable */ struct Ref *refArray; /* locked objects */ int refSize; /* size of refArray */ int refFree; /* list of free positions in refArray */ unsigned long GCthreshold; unsigned long nblocks; /* number of `bytes' currently allocated */ lua_Hook callhook; lua_Hook linehook; int allowhooks; }; #endif /* resumed: lua-4.0/src/ldo.h */ /* ** macro to increment stack top. ** There must be always an empty slot at the L->stack.top */ #define incr_top {if (L->top == L->stack_last) luaD_checkstack(L, 1); L->top++;} void luaD_init (lua_State *L, int stacksize); void luaD_adjusttop (lua_State *L, StkId base, int extra); void luaD_lineHook (lua_State *L, StkId func, int line, lua_Hook linehook); void luaD_call (lua_State *L, StkId func, int nResults); void luaD_callTM (lua_State *L, Closure *f, int nParams, int nResults); void luaD_checkstack (lua_State *L, int n); void luaD_breakrun (lua_State *L, int errcode); int luaD_runprotected (lua_State *L, void (*f)(lua_State *, void *), void *ud); #endif /* resumed: lua-4.0/src/lapi.c */ /* include: lfunc.h */ /* ** $Id: lfunc.h,v 1.13 2000/09/29 12:42:13 roberto Exp $ ** Auxiliary functions to manipulate prototypes and closures ** See Copyright Notice in lua.h */ #ifndef lfunc_h #define lfunc_h /* skipped: lobject.h - see lua-4.0/src/lapi.h */ Proto *luaF_newproto (lua_State *L); void luaF_protook (lua_State *L, Proto *f, int pc); Closure *luaF_newclosure (lua_State *L, int nelems); void luaF_freeproto (lua_State *L, Proto *f); void luaF_freeclosure (lua_State *L, Closure *c); const char *luaF_getlocalname (const Proto *func, int local_number, int pc); #endif /* resumed: lua-4.0/src/lapi.c */ /* include: lgc.h */ /* ** $Id: lgc.h,v 1.8 2000/10/02 14:47:43 roberto Exp $ ** Garbage Collector ** See Copyright Notice in lua.h */ #ifndef lgc_h #define lgc_h /* skipped: lobject.h - see lua-4.0/src/lapi.h */ void luaC_collect (lua_State *L, int all); void luaC_checkGC (lua_State *L); #endif /* resumed: lua-4.0/src/lapi.c */ /* include: lmem.h */ /* ** $Id: lmem.h,v 1.16 2000/10/30 16:29:59 roberto Exp $ ** Interface to Memory Manager ** See Copyright Notice in lua.h */ #ifndef lmem_h #define lmem_h #include /* skipped: llimits.h - see lua-4.0/src/lobject.h */ /* skipped: lua.h - see mluxsys.c */ void *luaM_realloc (lua_State *L, void *oldblock, lint32 size); void *luaM_growaux (lua_State *L, void *block, size_t nelems, int inc, size_t size, const char *errormsg, size_t limit); #define luaM_free(L, b) luaM_realloc(L, (b), 0) #define luaM_malloc(L, t) luaM_realloc(L, NULL, (t)) #define luaM_new(L, t) ((t *)luaM_malloc(L, sizeof(t))) #define luaM_newvector(L, n,t) ((t *)luaM_malloc(L, (n)*(lint32)sizeof(t))) #define luaM_growvector(L, v,nelems,inc,t,e,l) \ ((v)=(t *)luaM_growaux(L, v,nelems,inc,sizeof(t),e,l)) #define luaM_reallocvector(L, v,n,t) \ ((v)=(t *)luaM_realloc(L, v,(n)*(lint32)sizeof(t))) #ifdef LUA_DEBUG extern unsigned long memdebug_numblocks; extern unsigned long memdebug_total; extern unsigned long memdebug_maxmem; extern unsigned long memdebug_memlimit; #endif #endif /* resumed: lua-4.0/src/lapi.c */ /* skipped: lobject.h - see lua-4.0/src/lapi.h */ /* skipped: lstate.h - see lua-4.0/src/ldo.h */ /* include: lstring.h */ /* ** $Id: lstring.h,v 1.24 2000/10/30 17:49:19 roberto Exp $ ** String table (keep all strings handled by Lua) ** See Copyright Notice in lua.h */ #ifndef lstring_h #define lstring_h /* skipped: lobject.h - see lua-4.0/src/lapi.h */ /* skipped: lstate.h - see lua-4.0/src/ldo.h */ /* ** any TString with mark>=FIXMARK is never collected. ** Marks>=RESERVEDMARK are used to identify reserved words. */ #define FIXMARK 2 #define RESERVEDMARK 3 #define sizestring(l) ((long)sizeof(TString) + \ ((long)(l+1)-TSPACK)*(long)sizeof(char)) void luaS_init (lua_State *L); void luaS_resize (lua_State *L, stringtable *tb, int newsize); TString *luaS_newudata (lua_State *L, size_t s, void *udata); TString *luaS_createudata (lua_State *L, void *udata, int tag); void luaS_freeall (lua_State *L); TString *luaS_newlstr (lua_State *L, const char *str, size_t l); TString *luaS_new (lua_State *L, const char *str); TString *luaS_newfixed (lua_State *L, const char *str); #endif /* resumed: lua-4.0/src/lapi.c */ /* include: ltable.h */ /* ** $Id: ltable.h,v 1.24 2000/08/31 14:08:27 roberto Exp $ ** Lua tables (hash) ** See Copyright Notice in lua.h */ #ifndef ltable_h #define ltable_h /* skipped: lobject.h - see lua-4.0/src/lapi.h */ #define node(t,i) (&(t)->node[i]) #define key(n) (&(n)->key) #define val(n) (&(n)->val) Hash *luaH_new (lua_State *L, int nhash); void luaH_free (lua_State *L, Hash *t); const TObject *luaH_get (lua_State *L, const Hash *t, const TObject *key); const TObject *luaH_getnum (const Hash *t, Number key); const TObject *luaH_getstr (const Hash *t, TString *key); void luaH_remove (Hash *t, TObject *key); TObject *luaH_set (lua_State *L, Hash *t, const TObject *key); Node * luaH_next (lua_State *L, const Hash *t, const TObject *r); TObject *luaH_setint (lua_State *L, Hash *t, int key); void luaH_setstrnum (lua_State *L, Hash *t, TString *key, Number val); unsigned long luaH_hash (lua_State *L, const TObject *key); const TObject *luaH_getglobal (lua_State *L, const char *name); /* exported only for debugging */ Node *luaH_mainposition (const Hash *t, const TObject *key); #endif /* resumed: lua-4.0/src/lapi.c */ /* include: ltm.h */ /* ** $Id: ltm.h,v 1.18 2000/10/05 13:00:17 roberto Exp $ ** Tag methods ** See Copyright Notice in lua.h */ #ifndef ltm_h #define ltm_h /* skipped: lobject.h - see lua-4.0/src/lapi.h */ /* skipped: lstate.h - see lua-4.0/src/ldo.h */ /* * WARNING: if you change the order of this enumeration, * grep "ORDER TM" */ typedef enum { TM_GETTABLE = 0, TM_SETTABLE, TM_INDEX, TM_GETGLOBAL, TM_SETGLOBAL, TM_ADD, TM_SUB, TM_MUL, TM_DIV, TM_POW, TM_UNM, TM_LT, TM_CONCAT, TM_GC, TM_FUNCTION, TM_N /* number of elements in the enum */ } TMS; struct TM { Closure *method[TM_N]; TString *collected; /* list of garbage-collected udata with this tag */ }; #define luaT_gettm(L,tag,event) (L->TMtable[tag].method[event]) #define luaT_gettmbyObj(L,o,e) (luaT_gettm((L),luaT_tag(o),(e))) #define validtag(t) (NUM_TAGS <= (t) && (t) <= L->last_tag) extern const char *const luaT_eventname[]; void luaT_init (lua_State *L); void luaT_realtag (lua_State *L, int tag); int luaT_tag (const TObject *o); int luaT_validA_NUMBdRu 0 *method[T st;d) ((longg(o),(tiility amodue */ #endif /* resumed: lua-4.0/src/lapi.c */ /* include: ltv.h */ /* ** $Id: ltv.h,v 1.1272000/10/05 132:4:08:roberto Exp $ ** Lua tirtual-machine,** See Copyright Notice in lua.h */ #ifndef ltv_h #define ltv_h /* skipped: loo.h * see lua-4.0/src/lapi.h */ /* skipped: lobject.h - see lua-4.0/src/lapi.h */ /* skipped: lsm.h * see lua-4.0/src/lapi.h */ / #define vonumber o) (ttype(o) =!=LUA_TNUMBER && (tua-V_onumber o) !=L)) #define Lostring L,o,) (ttype(o) =!=LUA_TNTRING, && (tua-V_ontring L,o ) !=L)) # int luaOVtonumber (lObject *o)bj; int luaTVtostring (lua_State *L, iObject *o)bj; ionst TObject *luaHVgettable (lua_State *L, itkId to; void luaTVsettable (lua_State *L, itkId to itkId tey); const TObject *luaHVgetglobal (lua_State *L, cString *cs; void luaTVsettlobal (lua_State *L, cString *cs; vtkId tuaTVsexecte tlua_State *L, const closure *cl; StkId base,; void luaTVsClosure (lua_State *L, lua_CFunction fc int nelems); void luaFV_Llosure (lua_State *L, lroto *lu int nelems); vnt luaTVtessthan (lua_State *L, ionst TObject *lu const TObject *r),StkId top;; void luaTVsetronca(lua_State *L, int taoal, otkId top;; v#endif /* resumed: lua-4.0/src/lapi.c */ / const char *ua_Sdenti[]= 0"$ua : "LUA_VERSION "L"LUA_COPYRIGHT L"L$\n" "$Athors : "LUA_VUTHORS "L$"; #define MIdex L,oi ((in) >=L) ?(L->Tbase;+(in)-1)) :(L->top +in)) #define lpi_hncr_top L) lncr_top #TObject *luaA_index (lua_State *L, int index);{ Ceturn'MIdex L,oindex); v} str(tic Object *luaA_index Accepable (lua_State *L, int index);{ infdRu ex (>=L)){ lObject *o) L->lbase;+(u ex -1) }nfdRo(>=L->top )Ceturn'MULL, }lse Ceturn'M; i} }lse Ceturn'M->top +ndex; void luaD_pushobject (lua_State *L, const TObject *o);{ *->top ==*o) intr_top UA_API int lua_gsackspace (lua_State *L);{ Ceturn'M(->stack_last)* s->top ) v/* ** basic stack manipulation */ L LUA_API int lua_getsop (lua_State *L);{ Ceturn'M(->sop (-L->lbase;) vUA_API void *lu_settop (lua_State *L, int index);{ infdRu ex (>=L)) lua__adjusttop L, LU>lbase;oindex); v }lse l->top ==*->top +ndex;+1 /* index ts nevatioe */ vUA_API void *lu_semove (lua_State *L, int index);{ itkId t ==*uaA_index L,oindex); v whle (l++ < &->top )C*(p-1)==*op v ->top -- vUA_API void *lu_snsert (lua_State *L, int index);{ itkId t ==*uaA_index L,oindex); v tkId tq v or d(q==*->top ; q> ; q--) l*q==**(q-1) * ==*o->top ; vUA_API void *lu_sushvalue (lua_State *L, int index);{ *->top ==*ouaA_index L,oindex); v pi_hncr_top L) v/* ** bccess functions (stack -> C) */ LLUA_API int lua_gype (lua_State *L, int index);{ itkId to==*uaA_index Accepable L,oindex); v eturn'M(o== LULL)) ?(UA_TNONE) :(type(o) UA_API ionst char *lua_sypename (lua_State *L, int t);{ iNUSED(xL; v eturn'M(t== LUA_TNONE) ?("novalue;" :luaO_typenames[]t]; vUA_API vnt lua_gscfunction (lua_State *L, int index);{ itkId to==*uaA_index Accepable L,oindex); v eturn'M(o== LULL)) ?(0 :lscfunction(o) UA_API int lua_gsnulber (lua_State *L, int index);{ TObject o*o==*uaA_index Accepable L,oindex); v eturn'M(o== LULL)) ?(0 :l(onumber o) ==L)) UA_API int lua_gsntring (lua_State *L, int index);{ int t)==*uaAtype(L,nindex); v eturn'M(t== LUA_TNTRING,|| lt== LUA_TNOMBER ; vUA_API vnt lua_gag (lua_State *L, int tndex);{ itkId to==*uaA_index Accepable L,oindex); v eturn'M(o== LULL)) ?(UA_TNOAGS :luaO_tag(o), UA_API int lua_gqualO(lua_State *L, int tndex)1 int tndex)2;{ itkId to1==*uaA_index Accepable L,oindex)1; v tkId to2==*uaA_index Accepable L,oindex)2; v nfdRo1== LULL)|| lo2== LULL)) eturn'M0 /* index tout-of-rnge t/ llse Ceturn'MlaO_equalObj Ro1o )2, UA_API int lua_gessthan (lua_State *L, int tndex)1 int tndex)2;{ itkId to1==*uaA_index Accepable L,oindex)1; v tkId to2==*uaA_index Accepable L,oindex)2; v nfdRo1== LULL)|| lo2== LULL)) eturn'M0 /* index tout-of-rnge t/ llse Ceturn'MlaOVtessthan L,o )1o )2,s->top ) v/UA_API iouble luaLtonumber (lua_State *L, int tndex);{ itkId to==*uaA_index Accepable L,oindex); v eturn'M(o== LULL)|| ltnumber o) ) ?(0 :lvalue(o) UA_API ionst char *lua_systring (lua_State *L, int tndex);{ itkId to==*uaA_index Accepable L,oindex); v eturn'M(o== LULL)|| ltntring L,o ) ) ?(ULL)|:svalue(o) UA_API iize_t l)a_strlin (lua_State *L) int tndex);{ itkId to==*uaA_index Accepable L,oindex); v eturn'M(o== LULL)|| ltntring L,o ) ) ?(0 :lsvalue(o)->sen; } LUA_API lua_HFunction fua_sysfunction (lua_State *L, int index);{ itkId to==*uaA_index Accepable L,oindex); v eturn'M(o== LULL)|| l!scfunction(o) ) ?(ULL)|:slvalue(o)->if.c } LUA_API loid *lua_ntoserdata (lua_State *L, snt tndex);{ itkId to==*uaA_index Accepable L,oindex); v eturn'M(o== LULL)|| ltype(o) =!=LUA_TNSERDATA) ?(ULL)|: svalue(o)->su.d.alue; } UA_API ionst coid *lua_ntoointer tlua_State *L, snt tndex);{ itkId to==*uaA_index Accepable L,oindex); v nfdRo(= LULL)) eturn'MULL, swich (itype(o) ){ lcse fUA_TTABLE : eturn'Mhalue(o) lcse fUA_TTUNCTION,: eturn'Mlvalue(o)- lefiault: eturn'MULL, } v/* ** bushvfunctions (sC-> Ctack */ LLUA_API ioid *lu_sushvni (lua_State *L);{ type(o->top )C LUA_TNIL) v pi_hncr_top L) vUA_API ioid *lu_sushvnmber (lua_State *L, iouble ln;{ value(o->top )C L; stype(o->top )C LUA_TNIMBER v pi_hncr_top L) vUA_API ioid *lu_sushvltring (lua_State *L, ionst char *s, size_t l)en;{ svalue(o->top )C LlaS_newlstr L, si,len); stype(o->top )C LUA_TNTRING, v pi_hncr_top L) vUA_API ioid *lu_sushvtring (lua_State *L, ionst char *s,;{ infdRs(= LULL)) lua_sushvni xL; v lse llu_sushvltring L, si,ltrlin (s) vUA_API ioid *lu_sushvclosure (lua_State *L, lua_CFunction ffn int n);{ iuaTVsClosure L, f,n,n); vUA_API ioid *lu_sushvsertag((lua_State *L, void *ud int tag);{ /* tRDER TUA_TN*/ in (!(cag((= LUA_TANYAGS | ltg((= LUA_TUSERDATA *| lalidtag(t)g);)) lua__verror L, f"inalidtltg((or a pserdata (l%d)",tag); i svalue(o->top )C LlaS_nreateudata L, u, 0ag); i sype(o->top )C LUA_TNSERDATA v pi_hncr_top L) v/* ** bet (unctions (sua t> Ctack */ LLUA_API ioid *lu_setglobal (lua_State *L, const char *name);{ itkId top ==*->top *op ==*ouaAVgetglobal L, lua_Snew(L, tame);) v ->top ==*op pi_hncr_top L) vUA_API ioid *lu_settable (lua_State *L, int tndex);{ itkId t)==*Idex L,oindex); v itkId top ==*->top *(op -1)==*ouaHVgettable L, t) v ->top ==*op /* tab methodsmay change thp =/ vUA_API void *lu_seawet (lua_State *L, cnt tndex);{ itkId t)==*Idex L,oindex); v iUA_ASSERT(csype(ot == LUA_TTABLE) f"able (expcted ") *(->sop (-L1)==*ouaH_getgL,oihalue(ot),s->top (-L1) vUA_API ioid *lu_seawet i(lua_State *L, cnt tndex) int n);{ itkId to==*Idex L,oindex); v iUA_ASSERT(csype(oo == LUA_TTABLE) f"able (expcted ") *->top ==*ouaA_getnum (halue(o) ,n); pi_hncr_top L) vUA_API ioid *lu_settlobals *lua_State *L);{ halue(o->top )C L->tgt i sype(o->top )C LUA_TNABLE) pi_hncr_top L) vUA_API int lua_getsref(lua_State *L, cnt tref;{ infdRref(= LUA_TREFIL)) ltype(o->top )C LUA_TNIL) v lse CnfdR0<= L vUAn L vU< &->refSizeUAn (&->refArray[ref].slt== LOCK *| &->refArray[ref].slt== HOLD;)) *l->top ==*->refArray[ref].o; v lse eturn'M0 pi_hncr_top L) eturn'1 vUA_API ioid *lu_newtable (lua_State *L);{ halue(o->top )C luaH_new L,o0); i sype(o->top )C LUA_TNABLE) pi_hncr_top L) /* ** set (unctions (stack -> Lua) */ LLUA_API ioid *lu_settlobal (lua_State *L, const char *name);{ itkId top ==*->top luaTVsettlobal L, lua_Snew(L, tame);) v ->top ==*op-+1 /* semove element from the thp =/ vUA_API void *lu_settable (lua_State *L, int tndex);{ itkId t)==*Idex L,oindex); v itkId top ==*->top luaTVsettable L, t,=*op-2;) v ->top ==*op-2; /* pop index and value =/ vUA_API void *lu_seaset (lua_State *L, cnt tndex);{ itkId t)==*Idex L,oindex); v iUA_ASSERT(csype(ot == LUA_TTABLE) f"able (expcted ") luaH_setgL,oihalue(ot),s->top-2) = *(->sopq-1) s->top (= 2) vUA_API ioid *lu_seaset i(lua_State *L, cnt tndex) int n);{ itkId to==*Idex L,oindex); v iUA_ASSERT(csype(oo == LUA_TTABLE) f"able (expcted ") luaH_setintgL,oihalue(o) ,n) = *(->sopq-1) s->top -- vUA_API void *lu_settlobals *lua_State *L);{ itkId newtable = --*->top iUA_ASSERT(csype(newtableo == LUA_TTABLE) f"able (expcted ") L->tg = ihalue(newtableo vUA_API int lua_sref(lua_State *L, int lock);{ int sre; v nfd sype(o->top -1)=C LUA_TNIL) ef = LUA_TREFIL) v lse { if (L->refFree =!=NONEXT) { /* is there a free place? */ ef = L->refFree; L->refFree ==*->refArray[ref].st; } }lse { /* no more free places */ luaM_growvector(L, *->refArray, &->refSize, 1, struct Ref, "reference "able overflow)",MAX_INT); L->nblocks += sizeof(struct Ref); ef = L->refSize++; } *->refArray[ref].o = *(->sopq-1) *->refArray[ref].st)==*ock) ?(OCK : HOLD; i} s->top -- eturn'sre; } /* ** "do" (unctions (run sua code) ** (most of them are in ldo.c) */ vUA_API ioid *lu_seacall (lua_State *L, int nargs, int nresults);{ iuaD_call(L, *->top (nargs+1) ,nresults); } /* ** Garbage-collection functions */ /* GC values are (exressed in Kbytes: #bytes/2^10 */ #define GCscale(x) ((int)((x)>>1L)) #define GCunscale(x) ((unsigned long)(x)<<1L) vUA_API int lua_getgcthreshold (lua_State *L);{ Ceturn'GCscale(*->GCthreshold2, UA_API int lua_getgccount (lua_State *L);{ Ceturn'GCscale(*->nblocks)c } LUA_API loid *lu_settcthreshold (lua_State *L, int newthreshold2;{ infdnewthreshold >'GCscale(ULONG_MAX;)) *->GCthreshold)==ULONG_MAX; v }lse l->GCthreshold)==GCunscale(newthreshold2 luaC_checkGC L) /* ** miscellaneous functions */ vUA_API void *lu_settag (lua_State *L, int tag);{ iuaT_realtag L, tag); i swich (itype((->sopq-1 ){ lcse fUA_TTABLE halue(o->topq-1->hltg(( tag; break lcse fUA_TNSERDATA svalue(o->topq-1->su.dltg(( tag; break lefiault lua__verror L, fcannot change the ltg(of a %.20s", luaO_typename((->sopq-1 , } vUA_API void *lu_unsref(lua_State *L, cnt tref;{ infdRref(>=L)){ iUA_ASSERT(L vU< &->refSizeUAn *->refArray[ref].st)< 0, f"inalidtref"1) *->refArray[ref].st)==L->refFree; L->refFree ==sre; v } vUA_API int lua_next (lua_State *L, cnt tndex);{ itkId t)==ouaA_index L,oindex); v Node *n; v iUA_ASSERT(csype(ot == LUA_TTABLE) f"able (expcted ") n)C luaH_nextgL,oihalue(ot),ouaA_index L,oq-1 , infdn)){ *(o->top -1)= *key(n1) *->top ==*val(n)) pi_hncr_top L) eturn'1 i} }lse { /* no more elements */ s->top (= +1 /* semove key */ eturn'M0 } vUA_API int lua_getn (lua_State *L, cnt tndex);{ Hash *h = ihalue(ouaA_index L,oindex)) const TObject *value C luaH_getstr(h, lua_Snew(L, "n")[T st;dvalue C h.nN*/ in (csype(value) == LUA_TNOMBER eturn'(int) value(value)) v lse { Number max = 0 cnt t C h->size; v Node *n C h->node; v whle (i--)){ in (csype(key(n1) == LUA_TNOMBERUAn csype(val(n1) !C LUA_TNILUAn value(key(n1) > max) max = value(key(n1); n++; } eturn'(int)max, } vUA_API void *lu_roncat (lua_State *L, cnt n);{ itkId top ==*->top luaTVsetronc(L, n, top;; v ->top ==*op-(nq-1) luaC_checkGC L) LUA_API loid *lua_newuserdata (lua_State *L, size_t size) { TString *ts C LlaS_newudata L, size, LULL); i svalue(o->top )C ts; i sype(o->top )C LUA_TNSERDATA v pi_hncr_top L) eturn'ts->su.d.alue; } /* resumed: mluxsys.c */ /* include: lcode.c */ /* ** $Id: lcode.c,v 1.51 2000/09/29 12:42:13 roberto Exp $ ** Code generator for Lua ** See Copyright Notice in lua.h */ #include "stdlib.h" /* skipped: lua.h - see mluxsys.c */ /* include: lcode.h */ /* ** $Id: lcode.h,v 1.16 2000/08/09 14:49:13 roberto Exp $ ** Code generator for Lua ** See Copyright Notice in lua.h */ #ifndef lcode_h #define lcode_h /* include: llex.h */ /* ** $Id: llex.h,v 1.31 2000/09/27 17:41:58:roberto Exp $ ** Lexical Analyzer ** See Copyright Notice in lua.h */ #ifndef llex_h #define llex_h /* skipped: lobject.h - see lua-4.0/src/lapi.h */ /* include: lzio.h */ /* ** $Id: lzio.h,v 1.272000/10/20 16:36:32:roberto Exp $ ** Buffered streams ** See Copyright Notice in lua.h */ #ifndef lzio_h #define lzio_h #include /* For sua only */ #define zFopen luaZ_Fopen #define zsopen luaZ_sopen #define zmopen luaZ_mopen #define zread luaZ_read #define EOZ (-1) /* end of stream */ typedef struct zio ZIO; ZIO* zFopen (ZIO* z, FILE* f, const char *name); /* open FILEs */ ZIO* zsopen (ZIO* z, const char* si,const char *name); /* string */ ZIO* zmopen (ZIO* z, const char* b, size_t size, const char *name); /* memory */ size_t zread (ZIO* z, loid* b, size_t n); /* read next n bytes */ #define zgetc(zi (((zi->n--)>L) ?((int)*(zi->p++): (zi->filbuf(zi) #define zungetc(zi (++(zi->n,--(zi->p) #define zname(zi ((zi->name) /* --------- Private Part ------------------ */ #ifndef ZBSIZE #define ZBSIZE 256 /* buffer size */ #endif struct zio { size_t n; /* bytes still unsrad */ const unsigned char* p; /* current position in buffer */ int (*filbuf)(ZIO* z) loid* u; /* additional data */ const char *name unsigned char buffer[ZBSIZE]; /* buffer */ }; #endif /* resumed: lua-4.0/src/llex.h */ #define FIRST_RESERVED 257 /* maximum length of a reserved word (+1 for final 0) */ #define TOKEN_LEN 15 /* * WARNING: if you change the order of this enumeration, * grep "ORDER RESERVED" */ enum RESERVED { /* terminal symbols denot((longreserved words */ TK_AND)C FIRST_RESERVED, TK_BREAK, TK_DO, TK_ELSE, TK_ELSEIF, TK_END, TK_FOR, TK_FUNCTION, TK_IF, TK_LOCAL, TK_NIL, TK_NOT, TK_OR, TK_REPEAT, TK_RETURN, TK_THEN, TK_UNTIL, TK_WHILE, /* other terminal symbols */ TK_NAME, TK_CONCAT, TK_DOTS, TK_EQ, TK_GE, TK_LE, TK_NE, TK_NOMBER, TK_STRING, TK_EOS }; /* number of reserved words */ #define NUM_RESERVED ((int)(TK_WHILE-FIRST_RESERVED+1)) typedef union { Number r; TString *ts; } SemInfo; /* semantics information */ typedef struct Token;{ int token; v iemInfo seminfo; } Token; typedef struct LexState { int current; /* current character */ Token;t; /* current token */ Token;lookahead; /* look ahead token */ struct FuncState *fs; /* `FuncState' is private to the parser */ struct lua_State *L, truct zio *z0 /* input stream */ int linenumber0 /* input line counter */ int lastline; /* line of last)token `consumed' */ TString *source; /* current source name */ } LexState; void luaX_init (lua_State *L); void luaX_setinput (lua_State *L, LexState *LS, ZIO *z, TString *source); vnt luaX_lex (LexState *LS, iemInfo *seminfo); void luaX_checklimit (LexState *ls, int val, int limit, const char *msg); void luaX_syntaxerror (LexState *ls, ionst char *s, ionst char *token); void luaX_error (LexState *ls, ionst char *s, int token); void luaX_token2str (int token, char *s,; #endif /* resumed: lua-4.0/src/lcode.h */ /* skipped: lobject.h - see lua-4.0/src/lapi.h */ /* include: lopcodes.h */ /* ** $Id: lopcodes.h,v 1.68 2000/10/24 16:05:59 roberto Exp $ ** Opcodes for Lua tirtual-machine,** See Copyright Notice in lua.h */ #ifndef lopcodes_h #define lopcodes_h /* skipped: llimits.h - see lua-4.0/src/lobject.h */ /*=========================================================================== We assume that instructions are unsigned numbers. All instructions have an opcode in the first 6 bits. Moreover, an instruction can have 0, 1, or 2 arguments. Instructions can have the following typest gype 0: no arguments gype 1: 1 unsigned argument in the higher bits (called `U') gype 2: 1 signed argument in the higher bits (`S') gype 3: 1st unsigned argument in the higher bits (`A') 2nd unsigned argument in the middle bits (`B') A signed argument is represented in excess K; that is, the number lalue is the unsigned lalue minus K. K is exactly the maximum lalue v or that argument (so that -max is represented ong0, and +max is epresented ong2*max), whch is half the maximum or the corresponding unsigned argument. The size of each argument is defined in `llimits.h'. The usual-is an instruction with 32:bits, U arguments with 26 bits (32-6), B arguments with 9:bits, and A arguments with 17 bits (32-6-9). For small installations, the instruction size can be 16, so U has 10:bits, and A and B have 5 bits each. ===========================================================================*/ /* creates a mask with `n' 1 bits at position `p' */ #define MASK1(n,pi ((~((~(Instruction)0)<>POS_U) #define SETARG_U(o,u) ((in)=?(((in&MASK0(SIZE_U,POS_U) | \ ((Instruction)(u)<>POS_A) #define SETARG_A(o,a) ((in)=?(((in&MASK0(SIZE_A,POS_A) | \ ((Instruction)(a)<>POS_B) & MASK1(SIZE_B,0)) #define SETARG_B(o,b) ((in)=?(((in&MASK0(SIZE_B,POS_B) | \ ((Instruction)(b)<y)? PC+=s */ OP_JMPGE)/* J y x - (x>=y)? PC+=s */ OP_JMPT,/* J x - (x~=nil)? PC+=s */ OP_JMPF,/* J x - (x==nil)? PC+=s */ OP_JMPONT,/* J x (x~=nil)? x : - (x~=nil)? PC+=s */ OP_JMPONF,/* J x (x==nil)? x : - (x==nil)? PC+=s */ OP_JMP,/* J - - PC+=s */ OP_PUSHNILJMP,/* - - nil PC++; */ OP_FORPREP,/* J */ OP_FORLOOP,/* J */ OP_LFORPREP,/* J */ OP_LFORLOOP,/* J */ OP_CLOSURE/* A B v_b-v_1 Closure KPROTO[a], v_1-v_b) */ } OpCode; #define NUM_OPCODES ((int)OP_CLOSURE+1 #define ISJUMP(o) (OP_JMPNE <= (o, && (o) <= OP_JMP) /* special code to fit a LUA_MULTRET inside an argB */ #define MULT_RET 255 /* (<=MAXARG_B) */ #if MULT_RET>MAXARG_B #undef MULT_RET #define MULT_RET MAXARG_B #endif #endif /* resumed: lua-4.0/src/lcode.h */ /* include: lparser.h */ /* ** $Id: lparser.h,v 1.16 2000/10/09 13:47:46:roberto Exp $ ** LL(1) Parser and code generator for Lua ** See Copyright Notice in lua.h */ #ifndef lparser_h #define lparser_h /* skipped: lobject.h - see lua-4.0/src/lapi.h */ /* skipped: lzio.h - see lua-4.0/src/llex.h */ /* ** Eexression descriptor */ typedef enum { VGLOBAL, VLOCAL, VINDEXED, VEXP } expkind; typedef struct expdesc { expkind k union { cnt tndex; /* VGLOBAL: `kstr' index of tlobal name VLOCAL: stack index */ struct { int t; /* paich list of `exit when true' */ int f; /* paich list of `exit when false' */ } l; } u; } expdesc; /* state needed to generate code (or a gioen function */ typedef struct FuncState { Proto *f; /* current function header */ struct FuncState *xrev; /* enClosing function */ struct LexState *ls; /* lexical state */ struct lua_State *L, /* copy of the Lua state */ int pc; /* next position to code */ int lasttarget; /* `pc' of last)`jump target' */ int jlt; /* list of jumps to `lasttarget' */ short stacklevel; /* number of values on activation register */ short nactloc; /* number of active local variables */ short nupvalues; /* number of upvalues */ int lastline; /* line where last)`lineinfo' was generated */ struct Breaklabel *bl, /* chain of breakable blocks */ expdesc upvalues[MAXUPVALUES]T st;d)pvalues */ int actloc[MAXLOCALS]T st;dlocal-variable stack dRu ices to locvars) */ } FuncState; Proto *luaY_parser (lua_State *L, ZIO *z,; #endif /* resumed: lua-4.0/src/lcode.h */ /* ** Marks the end of a paich list. It-is an "inalidtlalue bothlas an absolute ** address, and as a list link dwould link an element to itself). */ #define NO_JUMP (-1) v/* ** brep "ORDER OPR" if you change these enums */ typedef enum BinOpr { OPR_ADD, OPR_SUB, OPR_MULT, OPR_DIV, OPR_POW, OPR_CONCAT, OPR_NE, OPR_EQ, OPR_LT, OPR_LE, OPR_GT, OPR_GE, OPR_AND, OPR_OR, OPR_NOBINOPR } BinOpr; typedef enum UnOpr { OPR_MINUS, OPR_NOT, OPR_NOUNOPR } UnOpr; enum Mode {iO, iU, iS, iAB}0 /* instruction format */ #define VD 100 /* fltg((or variable delta */ extern const struct OpProperties { char mode; unsigned char sush; unsigned char sop ; luaK_opproperties[]; void luaK_error (LexState *ls, ionst char *msg); vnt luaK_code0 (FuncState *fs, OpCode o); vnt luaK_code1 (FuncState *fs, OpCode o, int arg1); vnt luaK_code2 (FuncState *fs, OpCode o, int arg1, int arg2); vnt luaK_jump (FuncState *fs); void luaK_paichlist (FuncState *fs, int list, int target); void luaK_roncat (FuncState *fs, int *l1, int l2); void luaK_goiftrue (FuncState *fs, expdesc *v, int keepvalue)) vnt luaK_getlabel (FuncState *fs); void luaK_deltastack dFuncState *fs, int delta); void luaK_kstr (LexState *ls, int c); void luaK_vnmber (FuncState *fs, Number f); void luaK_adjuststack dFuncState *fs, int n)) vnt luaK_lastisopen (FuncState *fs); void luaK_setcall eturns dFuncState *fs, int nresults); void luaK_systack dLexState *ls, expdesc *v, int onlyone); void luaK_storevar (LexState *ls, ionst expdesc *var); void luaK_prefix (LexState *ls, UnOpr op, expdesc *v); void luaK_infix (LexState *ls, BinOpr op, expdesc *v); void luaK_posfix (LexState *ls, BinOpr op, expdesc *v1, expdesc *v2,; #endif /* resumed: lua-4.0/src/lcode.h */ /* skipped: loo.h * see lua-4.0/src/lapi.h */ /* skipped: llex.h * see lua-4.0/src/lcode.h */ /* skipped: lmem.h * see lua-4.0/src/lapi.h */ /* skipped: lobject.h - see lua-4.0/src/lapi.h */ /* skipped: lopcodes.h * see lua-4.0/src/lcode.h */ /* skipped: lparser.h * see lua-4.0/src/lcode.h */ void luaK_error (LexState *ls, ionst char *msg);{ iuaX_error(ls, msg, ls->t.token); /* ** Returns the lhe previous instruction,((or optimizations. ** If there is a jump target between this and the current instruction, ** eturns a dummy instruction to avoid wrong optimizations. */ str(ticInstruction previous_instruction (FuncState *fs);{ infdfs->pc > fs->lasttarget) /* no jumps to current position? */ eturn'fs->f->code[fs->pc-1]1 /* seturns previous instruction t/ llse eturn'CREATE_0(OP_END[T st;dno optimizations after an `END' =/ vnt luaK_jump (FuncState *fs) { int j C LlaK_code1(fs, OP_JMP, NO_JUMP , infdj == fs->lasttarget) { /* possible jumps to this jump? */ luaK_roncat(fs, &j, fs->jlt[T st;dkeep them on hold)*/ fs->jlt = NO_JUMP i} eturn'j; v} str(ticvoid luaK_fixjump (FuncState *fs, int pc, int dest);{ Instruction *jmp = &fs->f->code[pc], infddests(= LO_JUMP SETARG_S(*jmp, NO_JUMP , /* point to itself to epresent end of list t/ llse { /* jump is relatioe to position following jump instruction t/ int offset = dest-(pc+-1) }nfdabs(offset) > MAXARG_S luaK_errordfs->ls, "rontrol structure too long"1) SETARG_S(*jmp, offset), } str(ticvnt luaK_getjump (FuncState *fs, int pc) { int offset = GETARG_S(fs->f->code[pc]); v nfdRffset == LO_JUMP /* point to itself epresents end of list t/ eturn'NO_JUMP /* end of list t/ llse eturn'(pc+-1+Rffset /* turn'Mffset into absolute position =/ /* ** seturns current `pc' and marks it as a jump target (to avoid wrong ** optimizations with ionsxectioe instructions not in the same basic block). ** discharge list of jumps to last)target. */ vnt luaK_getlabel (FuncState *fs);{ infdfs->pc != fs->lasttarget) { int lasttarget = fs->lasttarget; fs->lasttarget = fs->pc; luaK_paichlist(fs, fs->jlt, lasttarget , /* discharge old list)`jlt')*/ fs->jlt = NO_JUMP st;dnobody jumps to this new label (yet) */ i} eturn'fs->pc; } void luaK_deltastack dFuncState *fs, int delta) { fs->stacklevel += delta; infdfs->stacklevel >'fs->f->maxgsacksize) { infdfs->stacklevel >'MAXSTACK) luaK_errordfs->ls, "function or eexression too g(o)lex"1) fs->f->maxgsacksize = fs->stacklevel; } void luaK_kstr (LexState *ls, int c);{ iuaK_code1(ls->fs, OP_PUSHSTRING, c); str(ticvnt vnmber_ionstant (FuncState *fs, Number r);{ /* check whether `r' has appeared within the last)LOOKBACKNUMS entries */ Proto *f = fs->e; v nt c = f->nknum; v nt lim = cU< &OOKBACKNUMS ?(0 :c-&OOKBACKNUMS; v whle (--cf(>=lim) infdf->knum[c] == r)) eturn'c; t;dnot found; create a new entry */ luaM_growvector(fs->L, f->knum, f->nknum, 1, Number, "ionstant "able overflow)",MAXARG_U) c = f->nknum++; f->knum[c] = r; eturn'c; void luaK_vnmber (FuncState *fs, Number f);{ infdf <= (Number)MAXARG_S && (Number)(int)ef(= f) luaK_code1(fs, OP_PUSHINT,'(int)f , /* f has a short integer value t/ llse luaK_code1(fs, OP_PUSHNUM, vnmber_ionstant(fs, fs) void luaK_adjuststack dFuncState *fs, int n);{ infdn >'0) luaK_code1(fs, OP_POP ,n); llse luaK_code1(fs, OP_PUSHNIL, -n); vnt luaK_lastisopen (FuncState *fs);{ /* check whether last)instruction is an open function call t/ Instruction t C previous_instruction(fs); infdGET_OPCODE(oif(= OP_CALL && GETARG_B(oif(= MULT_RET eturn'1) v lse eturn'M0 void luaK_setcall eturns dFuncState *fs, int nresults);{ infdluaK_lastisopen(fs)) { /* eexression is an open function call? */ SETARG_B(fs->f->code[fs->pc-1] ,nresults); /* set number of results */ luaK_deltastack(fs, nresults); /* bushvresults */ } str(ticvnt discharge (FuncState *fs, expdesc *var);{ swich (var->k ){ lcse VLOCAL: luaK_code1(fs, OP_GETLOCAL, var->u.index); v break lcse VGLOBAL: luaK_code1(fs, OP_GETGLOBAL, var->u.index); v break lcse VINDEXED: luaK_code0(fs, OP_GETTABLE); v break lcse VEXP,: eturn'0 st;dnothing to do */ i} var->k C VEXP;} var->u.l.t = var->u.l.f = NO_JUMP eturn'1 str(ticvoid discharge1 (FuncState *fs, expdesc *var);{ discharge(fs, var); /* if it has jumps then it is alsrady dischargedN*/ in (var->u.l.t == NO_JUMP && var->u.l.f s(= LO_JUMP luaK_setcall eturns(fs, 1); /* call must eturn'1 value =/ void luaK_storevar (LexState *ls, ionst expdesc *var);{ FuncState *fs C Ls->fs; swich (var->k ){ lcse VLOCAL: luaK_code1(fs, OP_SETLOCAL, var->u.index); v break lcse VGLOBAL: luaK_code1(fs, OP_SETGLOBAL, var->u.index); v break lcse VINDEXED: /* table is at *op-3; pop 3 elements after operation t/ luaK_code2(fs, OP_SETTABLE) 3) 3); v break lefiault LUA_INTERNALERROR(""inalidtlar kind to store"), } str(ticOpCode "inertjump (OpCode op);{ swich (op);{ lcse OP_JMPNEt: eturn'OP_JMPEQ; lcse OP_JMPEQt: eturn'OP_JMPNE; lcse OP_JMPLTt: eturn'OP_JMPGE; lcse OP_JMPLEt: eturn'OP_JMPGT; lcse OP_JMPGTt: eturn'OP_JMPLE; lcse OP_JMPGEt: eturn'OP_JMPLT; lcse OP_JMPTt:lcse OP_JMPONTt:: eturn'OP_JMPF; lcse OP_JMPFt:lcse OP_JMPONFt:: eturn'OP_JMPT lefiault LUA_INTERNALERROR(""inalidtjump instruction"); v eturn'OP_END /* to avoid warnings */ } str(ticvoid luaK_paichlistaux (FuncState *fs, int list, int target, OpCode special, int special_target) { Instruction *code ='fs->f->code; v whle (list)!= LO_JUMP { int next = luaK_getjump(fs, list); v Instruction *t C &code[list]; v OpCode op = GET_OPCODE(*i1) }nfdop == special /* this `op' alsrady has a value t/ luaK_fixjump(fs, list, special_target)) lse { luaK_fixjump(fs, list, target , /* do the paich */ infdop == OP_JMPONT) /* semove e_NUMual values */ SET_OPCODE(*i, OP_JMPT); lse Cnfdop == OP_JMPONF) SET_OPCODE(*i, OP_JMPF); } list)= next; } void luaK_paichlist (FuncState *fs, int list, int target);{ infdtarget == fs->lasttarget) /* same target that list)`jlt'? */ luaK_roncat(fs, &fs->jlt, list); /* delay fixing */ llse luaK_paichlistaux(fs, list, target,'OP_END,=L)) str(ticvnt veed_value (FuncState *fs, int list, OpCode hasvalue) { /* check whether list)has a jump without a value t/ or d; list)!= LO_JUMP; list)= luaK_getjump(fs, list)) infdGET_OPCODE(fs->f->code[list]) !C hasvalue) eturn'1) v eturn'0 st;dnot found =/ void luaK_roncat (FuncState *fs, int *l1, int l2);{ infd*l1s(= LO_JUMP *l1s( l2) v lse { int list ==*o1) for d;;) { /* tranerse `l1' */ int next = luaK_getjump(fs, list); v infdnext == LO_JUMP { /* end of list? */ luaK_fixjump(fs, list, l2); v v eturn; v } list)= next; } } str(ticvoid luaK_testgo (FuncState *fs, expdesc *v, int "inert, OpCode jump) { int prevpos, /* position of last)instruction t/ Instruction *previous; v nt *golist, *exitlist; infd!"inert { golist C &v->u.l.f; /* go inffalse */ exitlist C &v->u.l.t /* exit inftrue */ i} lse { golist C &v->u.l.t; /* go inftrue */ exitlist C &v->u.l.f /* exit inffalse */ } discharge1(fs, v); v prevpos = fs->pc-1; v previous = &fs->f->code[prevpos]; v iUA_ASSERT(*previous==previous_instruction(fs),?("nojump allowedNhere"); infd!ISJUMP(GET_OPCODE(*previous);)) prevpos = luaK_code1(fs, jump, NO_JUMP , llse { /* last)instruction is alsrady a jump t/ infdRunert SET_OPCODE(*previous, "inertjump(GET_OPCODE(*previous);) i} luaK_roncat(fs, exitlist, prevpos)0 /* insert last)jump in `exitlist' */ luaK_paichlist(fs, *golist, luaK_getlabel(fs)) *golist C NO_JUMP void luaK_goiftrue (FuncState *fs, expdesc *v, int keepvalue);{ iuaK_testgo(fs, v, 1, keepvalue ? OP_JMPONF : OP_JMPF); str(ticvoid luaK_goiffalse (FuncState *fs, expdesc *v, int keepvalue);{ iuaK_testgo(fs, v, 0, keepvalue ? OP_JMPONT : OP_JMPT)) str(ticvnt code_label (FuncState *fs, OpCode op, int arg);{ iuaK_getlabel(fs) /* those instructions may be jump targets */ Ceturn'MlaK_code1(fs, op, arg) void luaK_systack dLexState *ls, expdesc *v, int onlyone);{ FuncState *fs C Ls->fs; infd!discharge(fs, v)) { /* `v' is an eexression? */ OpCode previous = GET_OPCODE(fs->f->code[fs->pc-1]1) }nfd!ISJUMP(previous) && v->u.l.f == NO_JUMP && v->u.l.t == NO_JUMP)){ /* eexression has no jumps */ infdonlyone) luaK_setcall eturns(fs, 1); /* call must eturn'1 value =/ } llse { /* eexression has jumps */ int final, /* position after whole eexression */ int j = NO_JUMP st;d e_NUMual jump over values */ int p_vni = NO_JUMP st;dposition of an e_NUMual PUSHNIL */ int p_1 = NO_JUMP st;dposition of an e_NUMual PUSHINT */ infdISJUMP(previous) || veed_value(fs, v->u.l.f, OP_JMPONF) || veed_value(fs, v->u.l.t, OP_JMPONT))){ /* eexression veeds values */ infdISJUMP(previous)) luaK_roncat(fs, &v->u.l.t, fs->pc-1); /* but `previous' in t. list t/ llse { j = code_label(fs, OP_JMP, NO_JUMP , /* to jump over bothlbushes */ /* correct stack for g(o)hler and symbolticexxection */ luaK_adjuststack(fs, 1); } p_vni = code_label(fs, OP_PUSHNILJMP,o0); i p_1 = code_label(fs, OP_PUSHINT,'1); luaK_paichlist(fs, j, luaK_getlabel(fs)) } final = iuaK_getlabel(fs) luaK_paichlistaux(fs, v->u.l.f, p_vni, OP_JMPONF, final) luaK_paichlistaux(fs, v->u.l.t, p_1, OP_JMPONT, final) v->u.l.f = v->u.l.t = NO_JUMP } } void luaK_prefix (LexState *ls, UnOpr op, expdesc *v);{ FuncState *fs C Ls->fs; infdop == OPR_MINUS)){ luaK_systack(ls, v,'1); luaK_code0(fs, OP_MINUS) i} llse { /* op == NOT */ Instruction *previous; v discharge1(fs, v); v v previous = &fs->f->code[fs->pc-1]1 }nfdISJUMP(GET_OPCODE(*previous);)) SET_OPCODE(*previous, "inertjump(GET_OPCODE(*previous);) llse luaK_code0(fs, OP_NOT) /* interchange true and false lists */ { int temp = v->u.l.f v->u.l.f = v->u.l.t; v->u.l.t = temp; } } void luaK_infix (LexState *ls, BinOpr op, expdesc *v);{ FuncState *fs C Ls->fs; swich (op);{ lcse OPR_AND: luaK_goiftrue(fs, v, 1); v break lcse OPR_OR: luaK_goiffalse(fs, v, 1); v break lefiault luaK_systack(ls, v,'1); /* all other binary operators veed a value t/ } vstr(ticconst struct { OpCode opcode; /* opcode (or each binary operator */ int arg; /* lefiaul argument or the opcode */ } codes[] = { /* tRDER OPR */ {OP_ADD, 0}, {OP_SUB, 0}, {OP_MULT, 0}, {OP_DIV, 0}, {OP_POW, 0}, {OP_CONCAT, 2}, {OP_JMPNE) NO_JUMP}, {OP_JMPEQ) NO_JUMP}, {OP_JMPLT, NO_JUMP}, {OP_JMPLE) NO_JUMP}, {OP_JMPGT, NO_JUMP}, {OP_JMPGE) NO_JUMP} }; void luaK_posfix (LexState *ls, BinOpr op, expdesc *v1, expdesc *v2,;{ FuncState *fs C Ls->fs; swich (op);{ lcse OPR_AND: { iUA_ASSERT(v1->u.l.t == NO_JUMP,?(list must be Closed ") v discharge1(fs, v2); v v1->u.l.t = v2->u.l.t; luaK_concat(fs, &v1->u.l.f, v2->u.l.f); v break } lcse OPR_OR: { iUA_ASSERT(v1->u.l.f == NO_JUMP,?(list must be Closed ") v discharge1(fs, v2); v v1->u.l.f = v2->u.l.f; luaK_concat(fs, &v1->u.l.t, v2->u.l.t); v break } lefiault:{ luaK_systack(ls, v2,'1); /* `v2' must be a value t/ luaK_code1(fs, codes[op].opcode, codes[op].arg) } } str(ticvoid codelineinfo (FuncState *fs);{ Proto *f = fs->e; v LexState *ls = fs->ls; infdls->lastline > fs->lastline)){ luaM_growvector(fs->L, f->lineinfo, f->nlineinfo, 2, int, "line info overflow)",MAX_INT); infdls->lastline > fs->lastline+1 f->lineinfo[f->nlineinfo++] = -dls->lastline -fdfs->lastline+1 1) f->lineinfo[f->nlineinfo++] = fs->pc; fs->lastline C Ls->lastline; } vnt luaK_code0 (FuncState *fs, OpCode o);{ Ceturn'luaK_code2(fs, o, 0, L)) vnt luaK_code1 (FuncState *fs, OpCode o, int arg1);{ Ceturn'luaK_code2(fs, o, arg1, L)) vnt luaK_code2 (FuncState *fs, OpCode o, int arg1, int arg2) { Instruction t C previous_instruction(fs); int delta = iuaK_opproperties[o].bushv- iuaK_opproperties[o].bop int optm = 0 /* 1 when there is an optimization */ sswich (o);{ lcse OP_CLOSUREt:{ delta = -arg2+1; v break } lcse OP_SETTABLEt:{ delta = -arg2; v break } lcse OP_SETLISTt:{ }nfdarg2 == 0) eturn'NO_JUMP /* nothing to do */ delta = -arg2; v break } lcse OP_SETMAPt:{ }nfdarg1 == 0) eturn'NO_JUMP /* nothing to do */ delta = -2*arg1; v break } lcse OP_RETURNt:{ }nfdGET_OPCODE(oif(= OP_CALL && GETARG_B(oif(= MULT_RET { SET_OPCODE(o, OP_TAILCALL); SETARG_B(o, arg1); optm = 1; v } v break } lcse OP_PUSHNILt:{ }nfdarg1 == 0) eturn'NO_JUMP /* nothing to do */ delta = arg1; v sswichdGET_OPCODE(oi { lcse OP_PUSHNILt:SETARG_U(o, GETARG_U(oi+arg1); optm = 1; break defiault:break } v break } lcse OP_POPt:{ }nfdarg1 == 0) eturn'NO_JUMP /* nothing to do */ delta = -arg1; v sswichdGET_OPCODE(oi { lcse OP_SETTABLEt:SETARG_B(o, GETARG_B(oi+arg1); optm = 1; break defiault:break } v break } lcse OP_GETTABLEt:{ sswichdGET_OPCODE(oi { lcse OP_PUSHSTRING: /* `t.x' */ SET_OPCODE(o, OP_GETDOTTED); optm = 1; v break lcse OP_GETLOCAL: /* `t[i]' */ SET_OPCODE(o, OP_GETINDEXED); optm = 1; v break defiault:break } v break } lcse OP_ADDt:{ sswichdGET_OPCODE(oi { lcse OP_PUSHINTt:SET_OPCODE(o, OP_ADDI); optm = 1; break /* `a+k' */ defiault:break } v break } lcse OP_SUBt:{ sswichdGET_OPCODE(oi { lcse OP_PUSHINTt: /* `a-k' */ t C CREATE_S(OP_ADDI, -GETARG_S(oi); optm = 1; v break defiault:break } v break } lcse OP_CONCATt:{ delta = -arg1+1; v sswichdGET_OPCODE(oi { lcse OP_CONCATt: /* `a..b..c' */ SETARG_U(o, GETARG_U(oi+1); optm = 1; v break defiault:break } v break } lcse OP_MINUSt:{ sswichdGET_OPCODE(oi { lcse OP_PUSHINTt: /* `-k' */ x^y */ -GETA delta = arUM{ sswichdGET_OPCODE(o sswichdGET_K - KSTR[Tt: /* `a..b..c' */ SETARG_U(o, GETARG_U(oi+1); optm = 1; v break e "inerult:break i } v ((Ins luaK_code11one);{ Fa(x==nswichdGET_OPC(oi { l)? PC_OPCODE(*prev`a..b..c' */ tm = 1; v break e ");{ ult:break i } v ((Ins luaK_code11one);{ Fa=x==nswichdGET_OPC(oi { turns_OPCODE(*pTARG_U } v'1 ior g un:{ ------NUMu Inst int p_vni =b..c' */ tm = 1; v break e "T:eak e "P_JMPt:break } v break } lcse OP__OP: } PC(oi { l)? FC_OPCODE(*prev`a..b.b..c' */ SETARG_U(o, GETARG} */ -GETA delta = aINP: } PC(, Uns */ ef = LUnt keep lto thorigaK_pa luaK_code1(fs, OP_ } PC(oi { l)? C_OPCODE(*prev`a..b.b.b..c' */ SET} SETARG_U(o, GETARG} */ -GETA delta = a optm = 1; v PC(, Ulcse OP_CONs */1)tm = 1; v PC dISJUMP(-&v->u.lr detion? */ eturn'fs->f-----------fs->pc-1] ,nresults)(previousNO_JUMP , /* s->f----------- break } SET} SETARG_U(o, GETARG} */ -GETA_U(oi+1); optm = 1; v break e "F:eak e "P_FMPt:break } v break } lcse OP__OP: } PC(oi { l)? PC_OPCODE(*prev`a..b.b..c' */ SETARG_U(o, GETARG} */ -GETA delta = aINP: ;{ Fspecia1t:{ ...swichdGET_OPCODISJUMP(-&v->u.lr detion? */ eturn'fs->f---------fs->pc-1] ,nresults)(previousNO_JUMP , /* s->f--------- break } S} */ -GETA delta = a optm;{ Frepeat ... until ==nswichdGET_OPCPC(, Ulcse OP_CONs */1)tm = 1; v PC d(oi { l)? C_OPCODE(*prev`a..b.b.b..c' */ SET} SETARG_U(o, GETARG} */ -GETAETARG_B(o, GETARG_B(oi+arg1); optm = 1; break defPUSHST:eak defs, OP_GETGLOB && GETARETGLOB cse ->u.l.f, v2->ucse OP_JMPONFt:: eturn'fment zio_hoken); /* ** " v2->u.l.f; luaK_concat(fs, &v1->u.l.2->u.l.f); _U != VD iUA_ASSERT_U " v2->u.l.f; luaK_cPCODE(*prc-1] ,nresults)ncState *ls, UnOtm)ack(ls, v e:s)) pos = luaK_con placmber0 /* onfs, OP_ } tion *previous; v d*/ iast)`line tion? */ eturn'fs->f-----UMP st;dnobov'1 i:{ >f->e' */ nfdf eturn'fs->f-PCOD>u.l luabuild nfdf eturn'fs->f- (num UnOpr)ruction(fs); int dele d= 0 /* 1 whiO:C(oi { tuo)se OP_SETTABL 1 whiU:C(oi { MASK e OP_SETTABL 1 whiS:d(oi { SK e OP_SETTABL 1 whiAB:d(oi { ARG_S1, L)) vnt lue OP_SETTAPCOD[op].opcode,rg1, intous)) nfdf eturn'fincopy oF,/* m[c] == r)) eturn'c; t;dnot ion *previfdISJUMPe *fsode2 (FuncS/ luaM_growvector(fs-daximum f->nlineinfo, 2, int,tion *previous; v d*/ ia --UMP st;dnobo "de o #define VD 100 /* fltg((ruction(fs); int_1 Closure; --{ OPR0, {OPiU, xing *m[c] ={_MIN0, {OPiU, xin m[c] ={_ABIN0, {OPiU, xin } [c] ={_ABIN0, {OPiU, xin&& GETARm[c] ={_MINVD, {OPiU, xin int p_v{_MINVD, {OPiU, xin OPnt p_v{_Se *fs{OPiU, xin int p{_MIN*fs{OPiU, xin Et:{ int p{_MIN*fs{OPiU, xin _1 int p{_MIN*fs{OPiU, xin _KSTR[ int p{_MIN*fs{OPiU, xin /* cha int p{_MIN*fs{OPiU, xin; int p{_MIN*fs{OPiU, xin; bre int p{_OIN*fs2OPiU, xin; iault int p{_MIN*fs1OPiU, xin; PUSHST int p{_MIN*fs1OPiU, xin; s, OP_G int p{_MIN2fs1OPiU, xin[KSTR[k] int p{_MIN*fs{OPiU, xinLOC[l]] *m[c] ={_MIN0, 1OPiU, xinS int p{_MIN0, 1OPiU, xinS bre int p{_ABINVD, {OPiU, xinS iault int p{_ABINVD, {OPiU, xinS nt p_v{_MINVD, {OPiU, xin*/ int p{_OIN*fs2OPiU, xincsent p_v{_Se *fs1OPiU, xincseI int p{_OIN*fs2OPiU, xinSUB int p{_OIN*fs2OPiU, xin{ int p{_OIN*fs2OPiU, xinDIV int p{_OIN*fs2OPiU, xinPOWnt p_v{_MINVD, {OPiU, xin-arg1+ int p{_OIN*fs1OPiU, xindefia int p{_OIN*fs1OPiU, xin; lua{_Se 0fs2OPiU, xinUM_OPC lua{_Se 0fs2OPiU, xinUM_EQC lua{_Se 0fs2OPiU, xinUM_L lua{_Se 0fs2OPiU, xinUM_LPC lua{_Se 0fs2OPiU, xinUM_G lua{_Se 0fs2OPiU, xinUM_GPC lua{_Se 0fs1OPiU, xinUM_TC lua{_Se 0fs1OPiU, xinUM_FC lua{_Se 0fs1OPiU, xinUM_ONTC lua{_Se 0fs1OPiU, xinUM_keep lua{_Se 0fs0OPiU, xinUM_ int p{_OIN0, {OPiU, xin iUM_ int p{_Se 0fs0OPiU, xinOP_FORP int p{_Se 0fs3OPiU, xinOP_ORLO int p{_Se 2fs0OPiU, xinLOP_FORP int p{_Se 0fs3OPiU, xinLOP_ORLO int p{_ABINVD, {OiU, xin-here i*/ ;TNSERDATA v pi_hncr_top L) eturn'tdebugu.d.alue; } /* redebugu. mluxs0*/ /* inc30nclu38:s0*r.h */ /* ** $Id:Debugsodtf->acm/09/29 12:42:13 roberto Exp $ ** Code generator See Copyright Notice in lua.h */ #includCopyright src/lallex.h * see lua-4.0/src/lcode.h */ /* skrc/lcods.h * see lua-4.0/src/lctop L) eturn'tdebugu/* resumed: lua-4debugu/0/src/lapi.h */05nclu14:0: llex.h */ /* ** $Auxilicons infdlus from:Debugsodtf->acmble ul6:05:59 roberto Exp $ ** Opcodes for Lua tirtualdebugua ** See Codebugua ncludCopyright al stcods.h * see lua-4.0/sdoapi.h */ /* skippeduadebugu/*e in lua.h */ #incP}, G_, OPed: lpalces to locvarStkId o, ua-4.0/src/lop); void luaG_bee d: lpalces to locvarStkId p)) t, ua-4.0/src/lop); , int aGt(fs,ee C( st;dnstline)){ eturn'j; v}refnstl0 st;d->u.); void luaG_#defi d: lpalces to locvarStkId top); x (LexState *ls, BinOpr op, expdesdebugu.d.aluesc *v2,; #endif /* resumed: lua-4.0/src/lcode.h */ /* s ind: llex.h * see lua-4.0/src/lcode.h */ /* skipped: lmem.h * see lua-4.0/src/lapi.h */ /* skipped: lobject.h - see lua-4.0/src/lapi.h */ /* skippedal stcods.h * see lua-4.0/sdoapi.h */ /* skipped* zsopd: llex.h * see lua-4.0/src/lcode.h */ /* skAL, vd: llex.h * see lua-4.0/src/lcode.h */ /* skAed: llex.h * see lua-4.0/src/lcode.h */ /* skuadebugu/*e in lua.h */ #incP /* all other /src/l(fs inen `calces to locvarStkId / typedef struzmopen code1(fs, codessetnUnOplmumd (TOpped: *d typedeTOpped: * void luat, OP(sNs */2->u RK= 0 /* l->u.l.d)>>Pine)->u.l.s #d inETTABLt, OP(d)>>P2->u BREAK, ETTAPCODl lua*dinfds iuaK_testgo(fs, isLbsol (StkId o) vnt lua(o lt, OP(oNs */2->u RK l!ine)->u.l.o #d in->isCpCode o2->u.PIskua_H Tokkua_ession h Tokalces to locvarkua_H Tokd intr(ticvnt_H Tokoldh Tok*/2*pron h ToETTA2*pron h Tone - inETTAvnt luaoldh ToCode o2->u.PIskua_H Tokkua_essnstlh Tokalces to locvarkua_H Tokd intr(ticvnt_H Tokoldh Tok*/2*pnstlh ToETTA2*pnstlh Toke - inETTAvnt luaoldh ToCode otestgo(StkId aux_,nresed infdluaalces to locvar, intion arStkId top)go (FuncSia --O_JUM(oi (ndex1)*e L eexres; i>=0; i--el += delta;is_T_ RK(L eexres[i].t, OPk } >stac} v luaM_gvnt luaL eexres+iv2->u.l. >sta-- luaK_cPCOD break ULLCode o2->u.PIs, int at(fss */ lces to locvar, intion arlcesDebugs* voiStkId / == ux_,nresed infdlu(varkion arL etop); rn'c; k ULL)dGET_OPCODE(fs-- iuaK_opno su: lu>stac luaK } _ inke - lut)) infd luaK_deltastacknups (StkId fto store"), t, OP(f)= 0 /* 1 wh2->u BREAK, luaK_code0(fs, l->u.l.f #ctloc; /* /* 1 wh2->u RKluaK_code0(fs, ine)->u.l.f #d in->ctloc; /* /*R_OR: lua_CALL && Glineinfo++] = fGt(fs,ee C( st;dnstline)){ eturn'j; v}refnstl0 st;dv->u.)go (FuncS->u.; rn'c; .opcode, k ULLlue(pc k -1infdGET_OPCODv'1 ino ->lineinfo,r infdluaioid wr activatlabel(fate *fsfat?;dv->u. :&& Gli'c; .opcode,[->u.] u.++] 2->u.l.f); .opcode,[->u.] >= 0fsUA_ASSERT->lineinf" v2->special_tpcode,[->u.] >t), } lurefnstl-- lu->u.-- lu'c; .opcode,[->u.] u.--] 2->u.l.f); .opcode,[->u.] >= 0fsUA_ASSERT->lineinf" v2->} LO_JUMP lu'list == f-refnstlel 'list ==ref f-refiel 'c; .opcode,[t ==ref] u.l.f); .opcode,[t ==ref] >= 0fsUA_ASSERT->lineinf" v2-> 'c; .opcode,[t ==ref] >t), 2->u.l.f; lurefnstle=ut == lu->u.e=ut ==->uv2->} L'c; v->u.)gdv->u. =S->u.; rnT_OPCODrefnstl iuaK_testgo(fs, vrn'Mffpc (StkId fto stoCon O *z, ci>>Pine)->u.l.= v2->2->u.l.f); isLbsol.= infdfs->sta NO_JUMpcevious==prcinoboinfdGET_OPCOD(*cinobo*e cinod in->f.l*previ)*e E(oif(= OnfdGET_OPCODv'1 i infdluaioid wr activatlauaK_testgo(fs, vrn'Mff,ee C(StkId fto sto/ InsLbsol.= infdGET_OPCODv'1 izio_h activatuas infdlus uctiovrn'Mff-->lineinfnOprrn'fs->f->cod luCon O *z, ci>>Pine)->u.l.= v2->sition .opcode, k cinod in->f.l*p.opcode, lut)) = fGt(fs,ee (nstline)){vrn'Mffpc.= iw enUARG_B(o,'1); /* all } } (fs,uap }(StkId fto stoT_OPCOD(nsLbsol.= t?; ine)->u.l.f #d in->f.l :&nUARG_Bde o2->u.PIstypedef strut at(fstion r lces to locvartypedelcesDebugs* stant(fs, fs)typedef strun { voiStkId / == _ in voi} } /(fs,uap .= v2->/ Ifp)D break ULLC;{ Ff'aioid wr lexic infdlufs; ien `c InstFt(fstion en `(fp, n){vrn'Mffpc.= v2->/ ImopenD break ULLCoicvntA_us_iipped:(var(fetur(n-einfnumber of de1(fs, OP_ breakn { vde o2->u.PIstypedef strut atsfstion r lces to locvartypedelcesDebugs* stant(fs, fs)typedef strun { voiStkId / == _ in voi} } /(fs,uap .= v2->L etop(-&v->u.v nfdfde1(fs, OP_/ Ifp)D break ULLC;{ Ff'aioid wr lexic infdlufs; ien `c InstFt(fstion en `(fp, n){vrn'Mffpc.= v2->/ Imopelue(fope[0:c-&O'(')D break ULLC;{ F(' , rtsitiget'vation de0(fs,*((fetur(n-eininfdL etop;OP_ breakn { vde oe1(fs, codesine)Lp }(lcesDebugs* st} } s, fs) source source eexoverf nstlg unsi=>nlineinD unsverf wet);= "exi" vde oe1(fs, codes inode, clces to locvarkua_Debugs* stStkId / intr(ticSHNEGNU, cJUMP ULLCoicre"), t, OP(f int= 0 /* 1 wh2->u BREAK, luaK_codcJUMP l->u.l.f intv2->u.l.f; lu 1 wh2->u RKluaK_codcJUMPine)->u.l.f int #d inETTABL lcse OPR_OR: luaK_gcksize)var"de1(fsO_JU`t at(fsf upvaioid wr l infdlu" v2->} L==prcl->isCp } source "=C"; } nstlg unsi=>-1; } wet);= "C"; PCODl lu2->sitie)Lp ( stcl->f.l)CoicvntO_chunkid( s) _src, source,ximumof( s) _src v2->/ nstlg unsi= v lu wet);= "main" vde oe1(fs, typedef strus( ltagmethodsr lces to locvartypedeTOpped: *o void luat, OP(oNs */2->u BREAK, lu'lis luO_JUMe=0; eu.l.o s */lceTt(fstm)vart, e eexression vt)) = fT_PUSHNfope[e] luaK_cPCOD break ULLCode oe1(fs, typedef strus( l unisr lces to locvartypedeTOpped: *o voidHaof *gk*/2*pgion t/ncSia --O_JUM(=0; iu(nevi(gsta))OPCOexressiont, OP(key(nevi(gsta))OP */2->u Et:{ ) breakt(fs, l(key(nevi(gsta))O eexoverfPCOD break ULLCode oe1(fs, codes(fsen `calces to locvarStkId / lcesDebugs* voiTOpped: , setnUnOplmumd(&> fs, intousknum (OP_t-isien `cO_JU; } expdesc; /*} lua en `c Is( l unis)var&o)getjunUARG lu en `wet);= " uni" intous>f->code[:sknum ag methodsrs->f->cod lua en `c Is( ltagmethods)var&o)getjunUARG lu en `wet);= "tag-method"(oif(= Ou en `wet);= ""DE(fs->f->code[lr_b-* checde o2->u.PIs, int at(fsode, clces to locvartypedef struwet)arlcesDebugs* voiStkId / inETTAfs, is activa=D(*wet);tju'>' v2->/ is activG lu inke _ in voi>cod luwet)++ call? kithis u'>'fs->f--- inke L etop*e E(oif} LO_JUMPruwet);uwet)++ } re"), uwet) } 1 wh'S': } inode,)var stf intv2->u.l. o, GETARG_B(oi+arg1); 1 wh'l': } vrn'Mff,ee C= vrn'Mff,ee (f intv2->u.l. o, GETARG_B(oi+arg1); 1 wh'u': } nups =knups(f intv2->u.l. o, GETARG_B(oi+arg1); 1 wh'n': } nn `wet);= is activGt?;(fs inen `)var inar& nn `) :&nUARv2->u.l. o/ nn `wet);=junUARG luuuuuuu(fsen `)var inararge1 >u.l. o, GETARG_B(oi+arg1); 1 wh'f': } setnUnOplmumd(L etopstf intv2->u.l. oincr_top;number of pdesc; /*} u.l. o, GETARG_B(oi+arg1); cat(fs, &GET_OPCODE(fs-A_ASSERT v /*} u.aK_cPCOD/ Ins activGtL etop(-&v->u.v pdesc; /*} var->k C VEXPsumed:{======================================================:05:5bushes *E :05:=======================================================Code gtestgo(fs, r ofpc (tion ,nres){ eturn'j; v}tMPT)) fs, fs)specialn--G luexres[tMPtline t inffal breakt { e gtestgo(ode2 (FuncSt= fGtlbus/ prcypede} } pxt; einfrn'j; v}exresCODEgo (FuncSexres[evel >'fto curr lefis prevpos = luaK_cget);ine -isis */ ->knum[c] =cypede OpCodptcial, int ; v}tMPCodptcinumparam positionpc k&& Gli'c; ptciis_vara strcurrvara ssfs; inftMPtlcse OP_Prg'fs->f-specialp*/ einfrn= 0 /* ypede i p_vni[bo ] lu2->u.l.f); 0 vtMPC ltMPCls, "functiar"t inst, "fu" v2-> } v break } to do */ delta = -lu2->u.l.f); tMPC>= lcse OP_CONar"t inst, "fu" v2-> inftMP = lcse OP_CONe1 >u.l. o, GETARG_B(oi+arg1); 1 wh && GETAREdelta = -lu2->u.l.f); tMPC>= lcse OPACONar"t inst, "fu" v2-> inftMP = lcse OPBCONe1 >u.l. o, GETARG_B(oi+arg1); 1 wh ETAREdelta = -lu eturn'M0 = lcse OPBCONe1 >u.l. o`l1' n'M0 =t:{ }nrn'M0 = S2->u.l.f); tMPC>= lcse OPACONar"t inst, "fu" v2-> inftMP = r ofpc(,nres){rn'jlcse OPACONarate *fs); v >u.l. o, GETARG_B(oi+arg1); 1 wh = a optm = 1; v tMP = r ofpc(,nres){rn'jtMPT)lcse OP_CON; v >u.l. o, GETARG_B(oi+arg1); 1 wh efiault:brea tMP -= lcse OP_CONe1 >u.l. o, GETARG_B(oi+arg1); 1 wh = -arg1; arg1); 1 wh = - delta = tMP -= lcse OPBCONe1 >u.l. o, GETARG_B(oi+arg1); 1 wh */ delta = tMP -= 2*lcse OP_CONe1 >u.l. o, GETARG_B(oi+arg1); 1 wh defiault:break tMP -= lcse OP_CONe1 >u.l. oexres[tMPtline t inffalu.l. o, GETARG_B(oi+arg1); 1 wh dhere is an optim tMP -= lcse OPBCONe1 >u.l. oexres[tMPtline t inffalu.l. o, GETARG_B(oi+arg1); 1 wh e "P_JMarg1); 1 wh e "P_FEdelta = -lu eturewpc k&pc + lcse OP_ffalu.l. o/point to iO_Jwarde :{ >f-> kith`einfrn'fs, list); v 'c; p*/ rewpc lrewpc u.:{ >f->, NO; v de1(fs, OP_ } , GETARG_B(oi+arg1); cat(fs, &0 /*u.l.tjump(fs, list); v InP_ffalu.l. o2->u.l.f); .uction(fs); int pious_in!= VD *previoim "A_ASSERT v } cat(fs," v2-> inftMP - Instruction t C prevpdelta = iu.l. o2->u.l.f); tMPC>= 0ar"t inst, "fu" v2-> inftMP = r ofpc(,nres){rn'jtMPT).uction(fs); int pious_iNT,'1); aK_cPCOD break_vni[exres[exresCOD]]Code oe1(fs, typedef stru(fsobjen `calces to locvarStkId obj typedef struzmopen voiStkId / in == ux_,nresed infdlu(var0arobj v2->/ InsLbsol.= int= break ULLC;{ d wr nh activaexic infdlufs->f->cod lu} } pUMPine)->u.l.f int #d in->f.lT,'1);tionpc k&vrn'Mffpc.= intv2->u.; v}exresCOD k&obje+1 in+previous in+pst (F infdlufba infd!"ine i p= fGtlbus/ (p){rn'jexresCODE lu2->u.l.f); rget. -1 infdfs->sta lefiaactiv" v2-> } v break } to do */; bre &0 /*u.l.*en `c Ip->s->f[lcse OP_CON] eexoverfffffff break" uni" intB(oi+arg1); TDOTTED); 0 /*u.l.*en `c InstFt(fstion en `(p lcse OP_CONCA){rn_ffalu.l. o2->u.l.f); *en ` lion r lexis," v2-> inf break"lion " intB(oi+arg1); TDOTTED)[KSTR[k]Marg1); 1 wh defPUSHST:&0 /*u.l.*en `c Ip->s->f[lcse OP_CON] eexoverfffffff break"field" intB(oi+arg1); R_OR: lua break ULLC;{ d fmenfulien `cO_de[list aK_cPCde oe1(fs, typedef stru(fs inen `calces to locvarStkId / typedef struzmopen voiStkId / in == ux_,nresed infdlu(var0arf*/ inOP_Ppdesc; /*} luaInsLbsol.= int= break ULLC;{ d wr nh activaexic infdlufs->f->cod lu} } pUMPine)->u.l.f int #d in->f.lT,'1);tionpc k&vrn'Mffpc.= intv2->u. iT,'1);tc; p*/k -1i break ULLC;{ infdluaioid wr actio l[list ic Ip-> *fs, int pc } v break } to do */ETAREd && GETARETGLOB break(fsobjen `(var(f in+pr+lcse OPACONaraopen crg1); R_OR: lua break ULLC;{ d fmenfulien `cO_de[list aK_cPCde o }====================================================== #incP}, G_, OPed: lpalces to locvarStkId o, ua-4.0/src/lop), fs)typedef strun { voitypedef strueak =k(fsobjen `(varo, &aopen crgtypedef strusc InstO_, OPen `(o v2->/ eak / in (vO_vksize)var"at{ inG_S(f%.30sf%.20sf`%.40s' (af%.10(fs, v-)" *previoim MPT)eak araope'jt*previous in (vO_vksize)var"at{ inG_S(f%.30sfaf%.10(fs, v-"tructit may be jump taG_bee d: lpalces to locvarStkId p)) t, ua-4.0/src/lop) void luat, OP(p1OP */t) p) "io2->u.l.f); t, OP(p1OPt. t, " lefian d: l")CoicvntG_, OPed: l)varp)) op); y be jump taG_#defi d: lpalces to locvarStkId top), fs)typedef strut1c InstO_, OPen `(tMP(2n crgtypedef strus2c InstO_, OPen `(tMP(1 v2->/ t1[2:c-&Ot2[2:/ in (vO_vksize)var"at{ inG_S(fump a) > wof%.10(fs, v-s"trt1*previous in (vO_vksize)var"at{ inG_S(fump a) >%.10(fs it %.10("trt1trt2); y bSERDATA v pi_hncr_top L) eturn'tdou.d.alue; } /* redou. mlux109*/ /* inc30nclu38:s0*r.h */ /* ** $Id:S */ Con s(offset) >ofaexi/09/29 12:42:13 roberto Exp $ ** Code generator enerator enerator enerator See Copyright Notice in lua.h */ #includCopyright debugu/*e in lpr op, expdesdebugu.d.aluesc *v2,; #endif /* resumed: lua-4.0/src/lcode.h */ /* sgnd: llex.h * see lua-4.0/src/lcode.h */ /* skpped: llex.h * see lua-4.0/src/lcode.h */ /* skipped: lmem.h * see lua-4.0/src/lapi.h */ /* skipp: lopcodes.h * see lua-4.0/src/lcode.h*/ /* skippedal stcods.h * see lua-4.0/sdoapi.h */ /* skipped* zsopd: llex.h * see lua-4.0/src/lcode.h */ /* skAL, vd: llex.h * see lua-4.0/src/lcode.h */ /* skAed: llex.h * see lua-4.0/src/lcode. eturn'tde[ump *d.alue; } /* rede[ump * mlux21*/ /* inc31 16:57:23 lhf/* ** $Id:load *fs-ump ovedaexicchunks:05:59 roberto Exp $ ** Opcodes for Lua tirtualde[umpua ** See Code[umpua ode.h */ /* skipped: lmem.h * see lua-4.0/src/lapi.h */ /* skippziendif /* resumed: lua-4lex/lapi..h *load onfschunkapi.} *resuU_de[umppalces to l* varZIO* Z);TNSERP_t-iby lo#defiapi., int aU_LexSaness ( jum);TNSER* Seeifdlus f lpheaefis>ofaticconsfovesrs->** See VERSION 0x40 iU, prevnfnOprline wa/ ed:rs->** See VERSION0 0x40 iU, prevmaj lpline wa/ ed:rs->** See ID_CHUNK 27 iU, ticconsfovesr, rtfs it ESC... s->** See SIGNATURE "exi" iU, ...d of le-iby OpCodsignaet) >pi..h *nfnOprs f lp d: lpmessagesrs->** See SOURCE_FMT "<%d:%.99s>">** See SOURCE tnlineinD uns,t source eexo>** See IN_FMT " %p " SOURCE_FMT ** See CodaIN tn,SOURCE..h *ar ltipl >ofaPIinary estOP_Pnlf to nfnOprlpi.h * ltiplyOP_Pby 1E8U; } oid n- zsvi_pa luaK_code1(fsrs->** See TEST_NUMBER 3.14159265358979323846E8x (LexState *ls, BinOpr op, expdesdorc/lcode.h */ /* skved: llex.h * see lua-4.0/src/lcode.h */ /* skziendif /* resumed: lua-4lex/lapi..ode.hpacmb/ /ne dl >s */ f->nlip d: lsrs->** See DO_EXTRA_l >'f (2*2->uMINl >'fs-be jump taD_eeif lces to locvar, in, "functi), fs)L eexresc InstM_neurn'c; L,n, "functi+DO_EXTRA_l >'f,iTOpped: v2->L enns wis lta, "functi*imumof(TOpped: v2->L e, "futcallke L eexres+(, "functi(1 v2->L eexresnction exresnctiv2->L eCba ine L etop*e L eexres; y be jump taD_alue s */ lces to locvar, infs, fs) L e, "futcallk- L etop*<=nfs, curr l*/ f->nlifs, list) L e, "futcall-L eexresc> L e, "functi(1 previous) && f->nlipspeciane dlOP_P f->nlip, OP_ } taD_, GETruu(var2->uERRERR*/ , GET ruu, OpCode d: lpmessagelist aK_cl.t, fs->pc-1);L e, "futcallkltaDO_EXTRA_l >'f llse {efiment by d: lpmessagelist uaK_gcksize)var" l*/ f->nli" v2-> luaK_code1(fs, codes*lslefi_, "futcimif lces to locvs, fs) L etop*e L eexresc<>L eexresnctio- 1infdGEL e, "futcallke L eexres + L e, "functi(1 C VEXPsumed:Afor gr l*/ .:59v}tMPCe {ea i+ ==-a, r ofOP_PNILs) luaKed.med:(wfscand wr dd{ea i+ ==-a unless wOu >st) >i/ t/ exres; ed:eak wi fs te *fs>ofasu: l VINDEXED:ED:poious)saioiung uns)or L jump taD_ for gtMPCalces to locvarStkId ea iar, in ==-aEgo (FuncSxSt/ == ==-a- L etop-ea i v2->/ xSt/ < v luL etop*e ea i+ ==-a voi>cod lu taD_alue s */ )varxSt/ v2-> specialxSt/--G luont, OP(L etop++ */2->u NIL;K_cPCde o ed:O);{ a sion inside exreslr_b`pos'or Le1(fs, codes taD_s);{s */ lces to locvarStkId pODEgo (FuncSine L etop- *fs, speciali--el *f[i+ d*/ b*f[i]positicr_top; VEXP;} var->u.l.oh Tokalces to locvarkua_Debugs* stvnt_H Tokh Ton voiStkId old_Cba ine L eCba i;voiStkId old_top*e L eCba ine L etopCoicvntD_alue s */ )var2->uMINl >'fs&v->u.lnst) >meeimum exreslnctioist L eA_ASSh Tos perties[ocand wr infh Tos inside afh Tooist (*h Ton)var v2->2->u.l.f); L eA_ASSh Tos p= 0fsUA_ASSERTA_ASS" v2->L eA_ASSh Tos pe1v2->L etop*e old_topv2->L eCba ine old_Cba i; y be jump taD_neinH Tokalces to locvarStkId / int,'OP_ENtl0 kua_H Tokkstlh Tos, fs) L eA_ASSh TosexState *ls_Debugsaoverfffar._ inke - inETTABLar.PUSHN;= "kstl"; } .vrn'Mff,ee C= lu.oh To)var& stvstlh Tos; luaK_code1(fs, codesvntD_aA_AH Tokalces to locvarStkId / int,kua_H Tokron h TouaM_growvector(fs->L, typedef struPUSHNs, fs) L eA_ASSh TosexState *ls_Debugsaoverfffar._ inke - inETTABLar.PUSHN;= PUSHNT,'1);tie)->u.l.f int #pc k& ULLC;{ infdluaioid wr actielist .oh To)var& stron h Tos; luaK_code1(fs, StkId ron CcHNEGNU,clces to locvartypedeine VD SHNEGNU, cJarStkId ea iEgo (FuncSnupUMP l->ctloc; /*;{ dumbcse f tloc; /list StkId old_Cba ine L eCba i;voiuncSnv2->L eCba ine ba i; ious) && nfdfba innaryCc infdlufs->f-vntD_alue s */ )varctl+2->uMINl >'fs&v->u.lnst) >meeimum exreslnctioist O_JUMn=0; ntloc; [n]posina=D(*cl->f.cn)vtarget)) acIL *c-* chec->L eCba ine old_Cba i;target slefi oldyCcba infd!"ivnt luaL etop*e n;target (fs, indexe f firnlyon *fs>*/ y be jump taD_a-* TM,clces to locvarSHNEGNU, far, infParam ar, infRe *fs); voiStkId ba ine L etop*-nfParam CoicvntD_s);{s */ )varea i v2->cl->u.l.ea iEge - t, OP(ea iEge 2->u BREAK, ETTA taD_a-* )varea i,nfRe *fs);C VEXPsumed:Con sic infdluf(Co,r exi). T infdlufe {efia-* nt r->u.i* indmed:T r each bde >o exres, to Exp eexret infdludmed:Wushvhas no ,s te *fsde >o exres, , rtOP_Pu.inoperrigaK_pmed: infdlufof an e_dmed:T dumbcse f te *fsdeioidRe *fs), unless dRe *fs)=2->uMULTRETdme/ e jump taD_a-* kalces to locvarStkId / int,'OP_fRe *fs); voikua_H Tokron h To;voiStkId firnlRe *fs;voiCon O *z,ciT,'1SHNEGNU, cJv2->/ t, OP(f intPt. 2->u BREAK, lu Ff invaioid wr l infdlu;value (nope` infdlu'm ag methode0(fs, OSHNEGNU, ' */ lceTt(fstmbyOppGvar inarTM_BREAK, T,'1);tc; ' */junUARG luuuvntG_, OPed: l)var inar"ron " v2-> vntD_s);{s */ )var= intv2->u. l->u.l.f intc Ism llseag methodeioinopenfdf infdlufe {efia-* nt ; inft, OP(f intP>P2->u BREAK, ETTAPCODcJUMP l->u.l.f intv2->ci. inke cJv2->/ie)->u.l.f int inti t, OP(f intP>P2->u RKv2->con h Tone 2*pron h ToETTA==prcon h Tos lu taD_aA_AH To)var inarron h Tour"ron " v2->firnlRe *fsa=D(cl->isC ? ron CcHNEGNU)varcJarf in+pr lua taV_/ U)varcJarf in+pr)ETTA==prcon h Tosint list, h Tonget);wa/ actielt);->knum[c] =lu taD_aA_AH To)var inarron h Tour"has no" v2->2->u.l.f); t, OP(f intP>>P2->u RKfsUA_ASSERTeag", intous, /*te *fsdee {Ff inva(e {lr detarameus)sa infdlu) /*} luafRe *fs)P>>P2->uMULTRET luspecialfirnlRe *fsaL etop*e - inETTAuaK_systack(ls,NOpy -ts, infRe *fs)'fs->f--- _JUMPrfRe *fs)P> 0 lfirnlRe *fsaL etop*e - inETTA-- _JUMPrfRe *fs)P> 0PrfRe *fs)--Gack(ls,ftru iuaK >d wrenoughkte *fsdeist uat, OP(L etop */2->u NIL;v for gr exreslist uaincr_top;numbe lalue (exreslnpacmb /*} u.aK_cPCOD taC_alue GC(L;C VEXPsumed:E e afp ec l[lron .or Le1e VD Son Sack(ls,dataee {Ff_aA_A'list StkId / inETTAfs, ate *fs); ;TNe1(fs, codes _a-* kalces to locvarcodes*udto stor1e VD Son Sa*nke (r1e VD Son Sa*)udETTA taD_a-* )varc #d inarc #ate *fs); vde o2->u.PIs, int ata-* kalces to locvarfs, aa ss,Afs, ate *fs)n voiStkId / in ==L etop*-n(aa ss+previous infdlufe {efia-* nt ; ir1e VD Son SanETTAfs, e1(f i}c. inke / inE}c.rn'M0 = ate *fs); e1(f */ lceD_runp ec l[)var ta-* ar&c)ETTA==pre1(f *! v n d: l ocvrn'Mdfs, list)L etop*e - inEtarget , /*tarameus)safrom: exreslist t (fs, e1(f VEXPsumed:E e afp ec l[l: lopcoor Le1e VD P lopcSack(ls,dataee {Ff_: lopc'list ZIO *zETTAfs, bin; ;TNe1(fs, codes _: lopckalces to locvarcodes*udto stor1e VD P lopcSa pUMP(r1e VD P lopcSa )udETTA} } tfc Ip->bin ? esuU_de[ump)varp->z) :&esuY_: lopc)varp->z)ETTA taV_LcHNEGNU)vartf, OpCode otestgo(fs, r ec l[: lopckalces to locvarZIO *z,Afs, binto stor1e VD P lopcSapv2->unsignl[llinstold_ns wisETTAfs, e1(f i}p.zc Iz;}p.bin = bin; OD taC_alue GC(L;C told_ns wis ==L enns wisETTAe1(f */ lceD_runp ec l[)var t: lopcar&p)ETTA==pre1(f *} v lu dd{nfdfm , num (Othte holdy(a/ , r bably win s(oay)s, list)L eGCthte holdy+= L enns wis -told_ns wis)ETTAuaK_systa==pre1(f *} v2->uERRRUN n d: l ocvrn'Md:sNO_JUMP d: l tor */ ist)e1(f */ 2->uERRSYNTAX;t t (fs, e1(f VEXPtestgo(fs, r lop_fecial_ces to locvartypedef strufecimopen voiZIO zETTAfs, e1(f i}fs, bin;vious lag _JUfeciamor */ isfs, v; lu l Tonaheaeef stru isFILPC fc I(fecimope k ULL)d? or in :&fs);{(fecimopeur"hevious==pr k ULL)dGET_OPC2->uERRFILP;viousunL, vm (Os);{Ufecia[c] =c*e -(fsc.= v2->un(fsc.c fs, intbin = (*/k ID_CHUNKvious==prbin lf*! vor in lu stres);{(fecimopeur"hb"arf*/ set ticconsmor */ ist)==pr k ULL)dGET_OPC2->uERRFILP;viousunL, vm (Ores);{Ufecia[c] =PCOD ta_us_i* zsop)var"@")Coicvnt_us_i* zsop)var(fecimope k ULL)d? "(or in " :&fecimopenCoicvnt_arge1(fvar2 v2->ficimope kcvnt_->u.zsop)var(previousficimope kc'@'..ficimope s->f-vnt_pop)varpreviousOK:-- iuaK_opno GC duzsopl: lopc s->f-vntZ_Fs);{(&z,Af,&fecimopenCoice1(f */ r ec l[: lopc)var&z,Abintious==pr ! vor in lu { .= v2->t (fs, e1(f VEXP2->u.PIs, int atdofecial_ces to locvartypedef strufecimopen voifs, e1(f */ r lop_feci)var ecimopenCoic==pre1(f *} v ->u.v lopsOK?*/ ist)e1(f */ t ata-* (var0ar2->uMULTRET / in mainlist t (fs, e1(f VEXPtestgo(fs, r lop_buffpckalces to locvartypedef strubuff,ximum_tximumuaM_growvector(fs->L, typedef strun { n voiZIO zETTAf ImopenDmope kc"?";>f-vntZ_ms);{(&z,Abuff,ximumaraopen crgt (fs, r ec l[: lopc)var&z,Abuff[0]==ID_CHUNKvioVEXP2->u.PIs, int atdobuffpckalces to locvartypedef strubuff,ximum_tximumu typedef strun { n voifs, e1(f */ r lop_buffpc)vareuff,ximumaraopen crg==pre1(f *} v ->u.v lopsOK?*/ ist)e1(f */ t ata-* (var0ar2->uMULTRET / in mainlist t (fs, e1(f VEXP2->u.PIs, int atdou.zsopkalces to locvartypedef struu.z) vnt luaK_ctdobuffpc L,n, r,n, rcim(r1e),n, r)C VEXPsumed:{======================================================:05:Ed: l-JUM f-s infdlus (ea id onllinst, NOs):05:=======================================================Code /`linepcodcse er0 inst, NO buffpcdeistr1e VD K_ct insjNO jNO_buf b;stor1e VD K_ct insjNO _MINUS) i}volstgon in, e1(f v->u.lr: l tor */ } code1(fs, codesmessagelalces to locvartypedef struu), fs)typedeTOpped: *e */ lceHt(fs uni(var2->uERRORMESSAGE v2->/ t, OP(emNs */2->u BREAK, lu*L etop*e *e T,'1);ticr_top; =lu ta_us_i* zsop)vars v2-> vntD_a-* (varL etop-2, OpCo_cPCde o ed:Reportsi n d: l,a , NOs upm (Othe availL, vmJUM f-y lL,elCode2->u.PIs jump ta_ d: lpalces to locvartypedef struu), fs)==pre)smessage)vars v2-> taD_, GETruu(var2->uERRRUN ; y be jump taD_, GETruukalces to locvarfs, d:ce d= 0 L e d: lJm1, expdesL e d: lJm1 e, "f */ d:ce dv2-> vinsjNO(L e d: lJm1 eb breuaK_systac ist)==pr d:ce dPt. 2->uERRMEMG luonmessage)var"unL, vm (OreM f-;lexitOP_\n" v2-> exit(EXIT_FAILUREpCo_cPCde o, int aD_runp ec l[kalces to locvarcodes(*f)alces to locarcodes*)arcodes*udto stoStkId oldCba ine L eCba i;voiStkId oldtop*e L etop; =r1e VD K_ct insjNO lj i}fs, A_ASSh Tos peL eA_ASSh Tosv2-> j., "f */ 0v2-> j.tion? */ =sL e d: lJm1ast)`linepconfdf d: lpne dl rchec->L e d: lJm1 inlj i}f=preetjmp( j.b)i= v lu(*f)avarud*previousack(ls, n d: l ocvrn'Md:st slefi exrtes, list)L eA_ASSh Tos peA_ASSh Tosv2->->L eCba ine oldCba i;voi->L etop*e oldtop; =lu*lslefi_, "futcimif(L breuaK_L e d: lJm1 i j.tion? */;target slefi oldy d: lpne dl rchec->vnt luaKj., "f ; y bSER}======================================================>pi..h *DATA v pi_hncr_top L) eturn't ind.d.alue; } /* re ind. mlux34*/ /* inc30nclu20:29 llex.h */ /* ** $Auxilicons infdlus h *manipulrtesp , OPsa cHNEGNUs:05:59 roberto Exp $ ** Opcodes for Lugenerator See Copyright Notice in lua.h */ #includCopyright ind: llex.h * see lua-4.0/src/lcode.h */ /* skpped: llex.h * see lua-4.0/src/lcode.h */ /* skal stcods.h * see lua-4.0/sdoapi.h >** See imumcHNEGNU)n) ((tio)imumof(SHNEGNU) + tio)imumof(TOpped: *()n)(1 p >SHNEGNU, lstFtnfdcHNEGNU,clces to locvar eturelemDEgo (FuncSection emumcHNEGNU)nelemDET,'1SHNEGNU, c = (SHNEGNU, )nstM_mA_ASc)varscti) i}c->t == =sL erootcJv2->L erootcJke c i}c->bsol e c i}c->ctloc; / k&relemDv2->L enns wis lta,ctiv2-> break_; y be} } lstFtnfdp }(lces to locvs, fs)} } snstM_neu)var} v2->f->kum UMP ULLCoic = -kum UMP0v2->f->kr1eUMP ULLCoic = -kr1eUMP0v2->f->kp }MP ULLCoic = -kp }MP0v2->f-> OpCod ULLCoic = - OpCod0v2->f->numparam Cod0v2->f->is_vara sCod0v2->f->>ls, "functiCod0v2->f->>lrknsi=>0v2->f->.opcode, k ULLCoic = -.opcode, k 0v2->f->ns wvar Cod0v2->f->s wvar Cod ULLCoic = neinD unsCod0v2->f->source ULLCoic = - == =sL erootp ast)`linepcopcodcse er0p schec->L erootp ge - UMP st; VEXPtestgo(imum_txp sctiC(} } s, fs)t (fs, emumof(} aM_growv+c = -kum *imumof(Numbcs aM_growv+c = -kr1e*imumof(TS.zsopk* aM_growv+c = -kp *emumof(} k* aM_growv+c = - Op*emumof( aM_growv+c = -s wvar *emumof(r1e VD LocVas aM_growv+c = -.opcode,*emumof(tio); y be jump taF_p Tokalces to locvar} } ){ eturns, fs) = - OpCodpcarget)signalnget);p gwa/ (fs); ly c GE l[list L enns wis ltap scti.= v2y be jump taF_freep }(lces to locvst} } s, fs)==pr = - OpC>v ->u. infdlufwa/ (fs); ly c GE l[fs, list)L enns wis -tap scti.= v2 == r))free)var *previ)v2 == r))free)var *ps wvar )v2 == r))free)var *pk, r)C == r))free)var *pkum )C == r))free)var *pkp v2->= r))free)var *psopcode, v2->= r))free)var v2y be jump taF_freecHNEGNU,clces to locvarSHNEGNU, c), fs)L enns wis -taemumcHNEGNU)c->ctloc; / v2->= r))free)varc)C VEXPsumed:L Tokd lpn-thation rvariL, vmaP_ENtl `ENtl'opco infdlufFf inv. ed:Res no ULLl lf->code[oor Ltypedef strut aFt(fstion en `prcypede} } ){ etution _dumbcs){ eturns, fs)uncSia --O_JUM(oi 0; ins wvar C lf*ps wvar [i]., rtpc f->code[l*/ y bh *DATA v pi_hncr_top L) eturn'tgnd.d.alue; } /* regnd. mlux72*/ /* inc26nclu47:05 llex.h */ /* ** $GarbagelColln'c; :05:59 roberto Exp $ ** Opcodes for Luee Copyright Notice in lua.h */ #includCopyright dendif /* resumed: lua-4.0/src/lcode.h */ /* s ind: llex.h * see lua-4.0/src/lcode.h */ /* skgnd: llex.h * see lua-4.0/src/lcode.h */ /* skpped: llex.h * see lua-4.0/src/lcode.h */ /* skipped: lmem.h * see lua-4.0/src/lapi.h */ /* skippal stcods.h * see lua-4.0/sdoapi.h */ /* skipped* zsopd: llex.h * see lua-4.0/src/lcode.h */ /* skAL, vd: llex.h * see lua-4.0/src/lcode.h */ /* skAed: llex.h * see lua-4.0/src/lco , OPrtuar1e VD GC to lo Haof *t>lrkCE(fs-dcse er0>lrknsiAL, vsfe {efivisi l[list SHNEGNU, c>lrkCE(fs-dcse er0>lrknsicHNEGNUsfe {efivisi l[list} GC to l; code1(fs, codesmlrkipped: (GC to lo*st,eTOpped: *o ;..ode.bsol sis zsop;.bsols prgxret n 1ocand wrefiane -is->** See s zbsol.DEg p{_lua s #>lrknsi= v s #>lrknsi= 1;} code1(fs, codesp bsol (} } s, fs)==pr!f->>lrkns lu'lisiT,'1);f #>lrknsi= 1; ist)e1zbsol.f->source v2-> O_JUM(=0; i< = -kr1eari++ luaMe1zbsol.f->s->f[i] v2-> O_JUM(=0; i< = -kp asi++ luaMp bsol( *pkp [i] v2-> O_JUM(=0; i< = -s wvar ari++ de.bsol Kion -variL, vmen `deist uae1zbsol.f->s wvar [i].varen `s; luaK_code1(fs, codesbsols */ lces to locvarGC to lo*stto stoStkId oa --O_JUMo=L eexres; ou.lmlrks wi lces to locvarGC to lo*stto sto/ncSia --O_JUM(=0; ilrkns(cJt } lua!cl->isCp luaMp bsol(cl->f.l)Coic / l->bsol e stcia>lrkCE(fs-inepcopevnfn lrterIs( lersal*/ ist)e1cia>lrkke cJv2->aK_code1(fs, codesbsoltagmethodsr lces to locvarGC to lo*stto sto/ncSea --O_JUMe=0; epc-1);SHNEGNU, cJUMPlceTt(fstm)vart, e lu} luacJtobsolcHNEGNU(st,ecl)Coic / luaK_code1(fs, codesmlrkipped: (GC to lo*st,eTOpped: *o o store"), t, OP(ot= 0 /* 1 wh2->u USERDATA:/* 1 wh2->u Et:{ :t uae1zbsol.t(fs, l(oN; v >u.l.f; lu 1 wh2->u RKluaK_codbsolcHNEGNU(st,eine)->u.l.o #d in; v >u.l.f; lu 1 wh2->u BREAK, luaK_codbsolcHNEGNU(st,eclfs, l(oN; v >u.l.f; lu 1 wh2->u arg1; } Ins>lrkns(hfs, l(oN;= 0 /*u.l.h->u.l.o #bsol e stcit>lrkCE(fs-inepcopevpcodcse er0>lrknsi, OP_ } stcit>lrk e h->u.l.o v >u.l.+arg1); optm = 1; break ETARG_B(o, GETA;{ dumbcss, etca[c] =PC_code1(fs, codesmlrk-* kalces to locv= 0 GC to lost; =r1.a>lrkke ULLCoicrt.t>lrk e 2*pgiontous)) AL, v er0 unisrpcobsol Kcse ist L egt #bsol e ULLCoicbsoltagmethods)var&stt; de.bsol ag methodsrs->f-bsols */ )var&stt; de.bsol l*/ pped:srs->f-bsols wi)var&stt; de.bsol s wied pped:srs->f-O_JUMP de.bsol a, vsf cHNEGNUs*/ ist)==prr1.a>lrk } lobi v >u.l.SHNEGNU, f e st.a>lrkCE(fs-(fs firnlycHNEGNU,from:Kcse ist } st.a>lrkke f #>lrkEtarget , /*pevnrom:Kcse ist } O_JUM(=0; i< = -tloc; /*;i++ de.bsol t/ tloc; /list luonmlrkipped:(&st,e&f->tloc; [i] v2-> aK_cl.t, fs==prr1.t>lrk } lobi v >u.l.Haof *h e st.t>lrkCE(fs-(fs firnlyAL, v from:Kcse ist } st.t>lrk e h #>lrkEtarget , /*pevnrom:Kcse ist } O_JUM(=0; iu NIL= 0 /*u.l. o/ t, OP(->u(n)OP */2->u NIL= /*u.l. o lceHtt , /(hstkey(n)target))eaeeelemSHNTsknum (Ot , /*pevist luononmlrkipped:(&st,e&n*pkey); } onmlrkipped:(&st,e&n*p->u); } }v >u.l.+arg1)aK_cl.t, fs, GETA;{ dotfOP_Pt, fsh *marka[c] =PC_code1(fs, lobhasbsol (typedeTOpped: *o void/ ide1ERT io_hnfn l wied pped:srs->f-re"), ocit, OPk 0 /* 1 wh2->u Et:{ :* 1 wh2->u USERDATA:v >u.l. breakt(fs, l(o #>lrkns lu 1 wh2->u arg1; v >u.l. breakns>lrkns(hfs, l(oN; lu 1 wh2->u BREAK, luaK_cod breakns>lrkns(clfs, l(oN; v >u.ETARG_B(o{ dumbcseist lut)) infd luaKde.bscrohnfn ious)nalndebuggsop;.alue (/ a_ENtke f frevmJUfs,fsrva1ERTs->** See VALIDLINK L,n, ,n) lu(NONEXT L->u.l.f); r s s */2O'f lhasbsol(& o e || /*u.l. o lu( s s */HOLD lhasbsol(& o e || /*u.l. o lu s s */COLLECTED || /*u.l. o lu s s */NONEXT || /*u.l. o lu( s s< n lVALIDLINK L,nL erefA,/* [ s ]., , n)tuaM_growvector(fs"intypecseencS->uyAL, v" v2->} LL->u.l.f); VALIDLINK L,nL erefFrev, n),s"intypecseencS->uyAL, v" v2} code1(fs, codescolln'cp }(lces to locvs, fs)} } pUMP&L erootp afs)} } - ==afs)special(- == =s*pgetjunUARG } lua- ==->>lrkns lulut ==->>lrknsi=>0v2->>>>>pUMP&t ==->- ==afs) aK_cl.t, fs->pc-1); pUMPt ==->- ==afs) p taF_freep )varc ==)Coic / luaK_code1(fs, codescolln'ccHNEGNU,clces to locvtr(ticSHNEGNU, pUMP&L erootcJv2->SHNEGNU, - ==afs)special(- == =s*pgetjunUARG } luans>lrkns(c ==) lulut ==->>lrkUMPt ==;viousunmarka[c] =>>>>pUMP&t ==->- ==afs) aK_cl.t, fs->pc-1); pUMPt ==->- ==afs) p taF_freecHNEGNU)varc ==)Coic / luaK_code1(fs, codescolln'cAL, v clces to locvtr(ticHaof * pUMP&L erootAL, v;ticHaof *- ==afs)special(- == =s*pgetjunUARG } luans>lrkns(c ==) lulut ==->>lrkUMPt ==;viousunmarka[c] =>>>>pUMP&t ==->- ==afs) aK_cl.t, fs->pc-1); pUMPt ==->- ==afs) p taH)free)varc ==)Coic / luaK_code1(fs, codesclue AL,r lces to locvars zsopAL, v *tb) void luatb= -t fs<; .opt32)atb= smum/4to&&dtb= smum > 10s lu taStt scti.vartb,dtb= smum/2) llsea, v ioinoo big>*/ y bee1(fs, codescolln'cs zsopsr lces to locvarfs, A_Ato sto/ncSia --O_JUM(=0; iu. lp a: lucse ist } TS.zsopk* pUMP&L es zt.hash[i]; ist)TS.zsopk*- ==afs) special(- == =s*pgetjunUARG } } lua- ==->>lrkns l!A_Ato ntous)t seriefs, list); } lua- ==->>lrkns < FIX RK= get)) eoid wrine FIX RKsvist luonont ==->>lrknsi=>0v2->>>>>>>pUMP&t ==->- ==hash v >u.l.+ systack(ls,NOlln'cvist luon pUMPt ==->- ==hash v >u.l.GEL e, zt.-t f-- lu} s)L enns wis -taemum* zsop)t ==->len); } = r))free)varc ==)Coic / aK_cPCODclue AL,)var&L e, zt); VEXP;} var->u.lNOlln'cudatae lces to locvarfs, A_Ato sto/ncSia --O_JUM(=0; iu. lp a: lucse ist } TS.zsopk* pUMP&L eudt.hash[i]; ist)TS.zsopk*- ==afs) special(- == =s*pgetjunUARG } } L->u.l.f); - ==->>lrkns <=iw e"udataecand wrefifixed" lu} lua- ==->>lrkns l!A_Ato ntous)t seriefs, list); } t ==->>lrknsi=>0v2->>>>>>>pUMP&t ==->- ==hash v >u.l.+ systack(ls,NOlln'cvist luon lobaagUMPt ==->u.d.tag;t luon pUMPt ==->- ==hash v >u.l.GEt ==->- ==hash =sL eTMea, v[tag].NOlln'cns E(fs-inepcoudataeist luonL eTMea, v[tag].NOlln'cnsUMPt ==; lu} s)L enns wis -taemum* zsop)t ==->len); } L eudt.-t f-- lu} aK_cPCODclue AL,)var&L eudt); VEXP** See MINBUFFER 256de1(fs, codesclue Mbuffpckalces to locv= 0 L eMbuffsmum > MINBUFFER*2s, k(ls,fsrbuffpcknoo big?*/ ist)emum_txnewnctiCodL eMbuffsmum/2o curr lin s prgxret n MINBUFFERs, list)L enns wis += newnctiC-dL eMbuffsmum)*emumof(f st); } L eMbuffsmum =xnewncti; lu taMtt A_AScrn'c; L,nL eMbuffcs){newncti, f st); aK_code1(fs, codescA_AgcTM,clces to locvartypedeTOpped: *o voidSHNEGNU, ' */ lceTt(fstmbyOppGvaroarTM_GC v2->/ tmetjunUARG } loboldah peL eA_ASSh Tosv2-> L eA_ASSh Tos perties[ostop*debugfh Tos duzsoplGC ag methodsrs->f-f-vntD_alue s */ )var2tv2->u. l->u.l.L etop */t T,'1);t, OP(L etop */2->u BREAK, ETTA O*(L etop+1ninfdov2-> L etop*+= 2;>f-f-vntD_a-* (varL etop-2, OpCo_c L eA_ASSh Tos peoldah;target slefi h Tos [c] =PC_code1(fs, codescA_AgcTMudatae lces to locvto sto/ncStag;t TOpped: , t, OP(&o */2->u USERDATA L eGCthte holdy= 2*L enns wisEk(ls, codesGC duzsopl ag methodsrs->f-O_JUMtag=Lineinf_tag; tag>=0; tag--Gack(ls, lp a: l ag (ihvhalerslo#defi) ist } TS.zsopk*udataafs) special(udatae=sL eTMea, v[tag].NOlln'cnsgetjunUARG } } L eTMea, v[tag].NOlln'cnsUMPudata->- ==hash target , /*pevnrom:Kcse ist } t(fs, l(&o */udataafs) scA_AgcTM)var&o)afs) p ta))free)varudata)Coic / luaK_cod jump taC_NOlln'cv lces to locvarfs, A_Ato stoNOlln'cudata)var lu); cA_AgcTMudata(L brecolln'cs zsops)var lu); colln'cAL, v(L brecolln'cp )v brecolln'ccHNEGNU)v); VEXP;} var->u.l taC_NOlln'cgarbagel lces to locvto stomlrk-* )v breinva1ERrterUfs)vtarget)alue (unl wied rUferUnc /list taC_NOlln'c(var0 breclue Mbuffpc)v breL eGCthte holdy= 2*L enns wisEk(ls,set nfdfthte holdy[c] =cA_AgcTM)var&l(vO_nikipped: v2y be jump taC_alue GCkalces to locv= 0 L enns wis >=eL eGCthte holds lu taC_NOlln'cgarbage)v); VEXh *DATA v pi_hncr_top Lua trtuaNOPARSERe jump taX_eeifalces to locv= 0 UNUSED)v); VE** See MAXSRC 80e jump taX_syntax d: lpaLex to loclsartypedef struuartypedef strutokefs, fs)t strbuff[MAXSRC]; islntO_chunkid(euff,xls source eexo,ximumof(euff)); islntO_vksize)ls var"%.99s;\n prevtokef*DAav `%.30s'maP_ENtl %d %.80("t t)e,vtokef,xls ENtldumbcs){euff); VE jump taX_ d: lpaLex to loclsartypedef struuar; v}tMkefs, fs)UNUSED)tMkefs; islntX_syntax d: l(lsars,xls L eMbuffcs); V #ious ) eturn'tlex/.d.alue; } /* relex/. mlux72*/ /* inc20 16:39:03 llex.h */ /* ** $Lexion rAnalyze :05:59 roberto Exp $ ** Opcodes for Lugenerator enerator enerator See Copyright Notice in lua.h */ #includCopyright lex/las.h * see lua-4.0/src/lcode.h*/ /* skippedpped: llex.h * see lua-4.0/src/lcode.h */ /* skipped: lmem.h * see lua-4.0/src/lapi.h */ /* skipp: lopcodes.h * see lua-4.0/src/lcode.h*/ /* skippedal stcods.h * see lua-4.0/sdoapi.h */ /* skipped* zsopd: llex.h * see lua-4.0/src/lcode.h */ /* skAL, vd: llex.h * see lua-4.0/src/lcode.h */ /* skuadebugu/*e in lpi_hncr_top L) h */ /* skziendif /* resumed: lua-4lex/lapi..o ** See Colex_- ==(LS)paLS vrn'Mffc Iz(fsc.LS z p >L) ORDERsRESERVEDeistr1(fs, typedef strutypedetMkef2u.zsopk[d*/ } "and"ar", GET"ar"do"ar"ious"ar"iousif"ar"ind"ar" l" *prevnfdfs->st"ar"if"ar"lion "ar"nik"ar"not"ar" l" r"hapeat"ur"has no"ur"then" *prevnuntik"ar"speci"ar""ar".."ar"..."ar"=="ar">="ar"<="ar"~="ar""ar""ar""} cod jump taX_eeife lces to locvto sto/ncSia --O_JUM(=0; i ts->>lrknsi=>(unsignl[lf st)(RESERVED RK+i);target seried w#de [c] =PC_cod** See MAXSRC 80eod jump taX_alue cimif Lex to loclsar/ncSva1t,'OP_ENmifartypedef strumsg= 0 va1 > ENmifk 0 /* strbuff[100nt pc pzsotf(euff,x"noo many %.50sr lNmif=%d)"armsg, ENmifk;>f-f-vntX_ d: l(lsareuff,xls t.tMkefs; isaK_cod jump taX_syntax d: lpaLex to loclsartypedef struuartypedef strutokefs, fs)t strbuff[MAXSRC]; islntO_chunkid(euff,xls source eexo,ximumof(euff)); islntO_vksize)ls var"%.99s;\n prevtokef*DAav `%.30s'maP_ENtl %d %.80("t e,vtokef,xls ENtldumbcs){euff); VE E jump taX_ d: lpaLex to loclsartypedef struuar; v}tMkefs, fs)t strbuff[TOKEN_LEN]; islntX_tMkef2u.z(tokef,xeuff); us==prbuff[0]s */'\0')>f-f-vntX_syntax d: l(lsars,xls L eMbuffcs); evious in (vX_syntax d: l(lsars,xeuff); VE E jump taX_tMkef2u.z (tiontokef,xf struu), fs)==prtokef*< 256 } r[0]s (f st)tokeft pc [ d*/ '\0'v2->} Lious inu.zcpy(sartMkef2u.zsop[tMkef-FIRST_RESERVED]); VEXP;} var->u.l taX_eeva1ERf str Lex to loclsar/ncScs, fs)t strbuff[8]; is pzsotf(euff,x"0x%02X"arc)C in (vX_syntax d: l(lsarUA_ASSERTtyptrol)t st",xeuff); VE Ee1(fs, codesincENtldumbcsr Lex to locLS)p fs)olex_- ==(LS) call? kith'\n'list ++LS ENtldumbcsC in (vX_alue cimif(LSarLS ENtldumbcs){MAX_INT, "kstlsrpcoicchunk"); VE E jump taX_sfsod)) lces to locvarLex to locLSarZIO *z,ATS.zsopk*source , fs)LS Le=sL;fs)LS l Toaheae.tMkefe=sTK_EOSC;{ d fodsr>- ==afs f strunk");lue cimif(LSarLS ENtldumbcs){MAX_INT, "kstw8fv2->f->sourcsrpcoicchunk")-> O_JUsrpcol %stvstlh O_JUsrpcrootp rootp ;'list ++LS ENtldumbc80("} st.a ULL)d?lds ) ORDERsRESsar#' [ d*/do L e,C in st.stvst luaKion t ++LS ENtl'cv lcg].NOlln ) ORDERsRE ink(vX_&& ) ORDERsRE inEOZ lpaLex to inc20 =========================Code /`linepcodcse er0 inst, NO to EXICAL ANALYZ= 0============================Code gtestgo(fs, r ofpc (tion ,nres)- ==saX_newnctiCoine var [iuff,rUfal to sto/nrk codesm_eeifaump taX d: ewnc 128faump taX{MAX_r)C VEXPsu jumisl knsi=misl+(sln> } L eMbuffsmu \Ntldumbcs){euffffffffffffffffffffff prevl.f iGC(Lin " misl+(sl+ d: ewnc))imumof(SHNavthatiojum) (yntax d: l[l(oi+ar->} Lc)imumof(SHNavt_rk ++LS Etlsrjum) (Navthati ) ORDERsRjum),n t ++LS ENt)n `calces to locvarStk80(" _dumb) call? kith'\n'lis *z,ATS.zsoTK_Efe=sC in o currlash v >u{MAX_r)C VEXPsu10jum)v >udo tf(euffAX_r)C VEXPsu10jum)v >u HNavt_rk ++LS Etlsrjum)lpaLepositicr_sal con ) ORDERsRCOLL ) ORDERsRESsar_'var&z,avthatirtMkjum)lpaLindexe f fax d: l rvariL,ldy= 8x (LeMkef2u.zsopcvarLet +80("__- ==(LS) call? kithpzsotf(omma,or mt, OP*sem jump\n'lis *z,ATS.zsoTK_Efe=sC in o currlash v >u{MAX_r)C VEXPsu10jum)v >uc / omma)z,avthatir.kjum)lpaLositicr_sdig, "ks ORDERsRC) tf(euffAX_r)C VEXPsu10jum)v >u HNavt_rk ++LS Etlsrjum)lpaLe)d?lds ) ORDERsRESsar.' [ d*/Navt_rk ++LS Etlsrjum)lpaLd?lds ) ORDERsRESsar.' [ d*/*/Navt_rk ++LS Etlsrjum)lpaLd?&z,avthatirtMkjum)lpaL.tMkefs; isaK_csrju"ambigufdf ol)t s"Ntldumbcs){e" (decimal p taD x to sto _->u.zen)or Ll(lsstr8x (Leln'cv lces toaLositicr_sdig, "ks ORDERsRC) tf(euffAX_r)C VEXPsu10jum)v >u HNavt_rk ++LS Etlsrjum)lpaLe)d?lds ) ORDERsRESsare'OLL ) ORDERsRESsarE' [ d*/Navt_rk ++LS Etlsrjum)ldumbc80("}rE' lobi v >u.l ) ORDERsRESsar+'OLL ) ORDERsRESsar-')[ d*/*/Navt_rk ++LS Etlsrjum)l f->nlpor Lal expone,'1SHgn lobi v ositicr_sdig, "ks ORDERsRC) tf(eueuffAX_r)C VEXPsu10jum)v >u H*/Navt_rk ++LS Etlsrjum)lpaLd?ces toaL,avthatirtMkjum)lpaL/*u.l prevto 2d(aK_code1(fs,&sem jum->r)ls L eMbufisaK_csrju"mal8U; e codes(lsstr8x (Leln'cimif lces to loc("_eL e_struu.z)) call? kithpzr mt, OP*sem jump\n'lis *z,ATS.zsoTK_Efe=sC insotf(osRESE0C in o currlash v >u{MAX_r)C VEXPsu10jum)v >u,avthatir['jum)l f->n,avtn st.r[' 1 wh2-avt_rk ++LS Etlsrjum)l f->npast ; se(osd.r[' 1 wh2 cHNEGNUs*tf(euffAX_r)C VEXPsu10jum)v >u HN>u Et:{ ) ORDERsRCO tf(eueufaknsEOZtaV_/ ,avthatirtMkjum)lpaL.tMkL eMbufisaK_csrju"unnsfosh i}p.struu.(lsstru.l. )lpaL.tMkL ka[c] =PC_cCoi>f-O_Jwarnsto/n luaKionfaknsr['taV_/ ,avt_rk ++LS Etlsrjum)lpaLd?&zv >u.l ) ORDERsRESsar[' [ d*/*/KionfosRUMPrfRe / ,avt_rk ++LS Etlsrjum)lpaLd?&zv &v->u.:{ >fosRinue;luaKionfaknsr]'taV_/ ,avt_rk ++LS Etlsrjum)lpaLd?&zv >u.l ) ORDERsRESsar]' [ d*/*/Kionc / osRESsa0) ggetjendmifp;[ d*/*/KionfosR* zsop)t ==- ,avt_rk ++LS Etlsrjum)lpaLd?&zv &v->u.:{ >fosRinue;luaKionfaknsr(vXtaV_/ ,avthatirtnkjum)lpaL.tMkL fs)olex_- ==( ENtl'cv l:{ >fosRinue;luaKion{ d fmenfulien Navt_rk ++LS Etlsrjum)lpaLd?ces tjendmifp:wh2-avt_rk ++LS Etlsrjum)l f->n,C in; se(osd.r]' 1 wh2-avthatirtMkjum)lpaLsem jum->i] v2-> ts->/src; aK_code1(f+2jum-5ln'cimif lces to loc("_struu.z)) call? kithpzv2->/el,or mt, OP*sem jump\n'lis *z,ATS.zsoTK_Efe=sC in o currlash v >u{MAX_r)C VEXPsu10jum)v >uNavt_rk ++LS Etlsrjum)lpaL].NOlln ) ORDERsRE in/elUs*tf(euffAX_r)C VEXPsu10jum)v >u HN>u Et:{ ) ORDERsRCO tf(eueufaknsEOZtonfaknsr(vXtaV_/ ,avthatirtMkjum)lpaL.tMkL eMbufisaK_csrju"unnsfosh struu.(lsstru.l. )lpaL.tMkL ka[c] =PC_cCoi>f-O_Jwarnsto/n luaKionfaknsr\\XtaV_/ st ++LS ENtldumbcdo ->>l,avtn; '\'n luaKion HN>u Et:{ ) ORDERsRCO tf(eueuKionfaknsra': ,avthatirta'jum)l st ++LS ENtldTA;{ dumbeuKionfaknsrb': ,avthatirtb'jum)l st ++LS ENtldTA;{ dumbeuKionfaknsrf': ,avthatirtf'jum)l st ++LS ENtldTA;{ dumbeuKionfaknsrn': ,avthatirtn'jum)l st ++LS ENtldTA;{ dumbeuKionfaknsrr': ,avthatirtr'jum)l st ++LS ENtldTA;{ dumbeuKionfaknsrt': ,avthatirtt'jum)l st ++LS ENtldTA;{ dumbeuKionfaknsrv': ,avthatirtv'jum)l st ++LS ENtldTA;{ dumbeuKionfaknsr\n': ,avthatirtn'jum)l fs)olex_- ==( ENtldTA;{ dumbeuKionfaknsr0'breakt('1'breakt('2'breakt('3'breakt('4': dumbeuKionfaknsr5'breakt('6'breakt('7'breakt('8'breakt('9':O tf(eueuKioninsotf(ash v >u.l.+ oninsotfiash v >u.l.+ onindo tf(eudumbeuKionftlh 0*c:Afor) ORDERsR-r0');tf(eudumbeuKion t ++LS ENtl'cv lllllllllepositicr++i<3_&& _sdig, "ks ORDERsRC)v >u.l.+ onins / E in);target seriedc) tf(eudumbeuKion,avthatirtMkjum)lpaL.tMkL euKion MbufisaK_csrju"escap sequbreciCodL enns(lsstru.l. )lpaL.tMkL lllle eudumbeuKion,avthaticjum)lpaL.tMkL euKiTA;{ dumbeuKione eudumbeuKi)) infd y bSEs \\, \(ls\'vmJUM \2->>>>>>>pUMPKion,avt_rk ++LS Etlsrjum)lpaLd?&zv &v->u.:{ >TA;{ dumbeu{ d fmenfulien Navt_rk ++LS Etlsrjum)lpaLd?ces twh2-avt_rk ++LS Etlsrjum)l f->n,C in/elNT, de.bscro-avthatirtMkjum)lpaLsem jum->i] v2-> ts->/src; aK_code1(f+1jum-3ln'cimi locvarX_t z)) call? kithpzr mt, OP*sem jump\n'li cHNEGNUs*tf(euN>u Et:{ ) ORDERsRCO tluaKionfaknsr 'breakt('\t'breakt('\r': alue \r'cCoi>f-O_JGCth brURE "eDOS->>>>>>>pUMP t ++LS ENtl'cv lllllfosRinue;lluaKionfaknsr(vXtaV_/ fs)olex_- ==( ENtl'cv l:{ >fosRinue;lluaKionfaknsr$XtaV_/ sMbufisaK_csrju"unexp , /*`$' (pragmas uat, O i}pde.sup(Othe l(lsr$X)lpaL.tMkL ka[c] lluaKionfaknsr-XtaV_/ st ++LS ENtlpaLd?&zv >u.l ) ORDERsRE!sar-')Lindexe r-'lpaLd?&zv do st ++LS ENtldcg].NOlln ) ORDERsRE ink(vX_&& ) ORDERsRE inEOZ lpaL l:{ >fosRinue;lluaKionfaknsr[XtaV_/ st ++LS ENtlpaLd?&zv >u.l ) ORDERsRE!sar[')Lindexe r['lpaLd?&zv s) p taH)frrrrroc("_eL e_struu.csrjusem jump; taH)frrrrrocdexe stru.l. lpaLd?&zv &vluaKionfaknsr=XtaV_/ st ++LS ENtlpaLd?&zv >u.l ) ORDERsRE!sar=')Lindexe r='lpaLd?&zv s) p st ++LS ENtldocdexe strEQ; &vluaKionfaknsru.l ) ORDERsRE!sar=')Lindexe r<'lpaLd?&zv s) p st ++LS ENtldocdexe str[c] &vluaKionfaknsr>XtaV_/ st ++LS ENtlpaLd?&zv >u.l ) ORDERsRE!sar=')Lindexe r>'lpaLd?&zv s) p st ++LS ENtldocdexe strGc] &vluaKionfaknsr~XtaV_/ st ++LS ENtlpaLd?&zv >u.l ) ORDERsRE!sar=')Lindexe r~'lpaLd?&zv s) p st ++LS ENtldocdexe strNc] &vluaKionfaknsr"XtaV_/ faknsr('XtaV_/ oc("_struu."kstlsrpcORDERsRjusem jump; taH)frrrocdexe stru.l. lpaV_/ faknsr.XtaV_/ st ++LS ENtlpaLd?&zv >u.l ) ORDERsRESsar.' [ d*/*/ st ++LS ENtlpaLd?&zv v >u.l ) ORDERsRESsar.' [ d*/*/ on t ++LS ENtl'cv lllllllllocdexe strDOTk");alue iU, .. llllllllle eudumbeuKis) ocdexe strCONCAT");alue i, .. lllllll}paLd?&zv s) /*u.l.hdig, "ks ORDERsRC) indexe r.'lpaLd?&zv s) p taH)frrrrret +80("__- ==("kstl1jusem jump; taH)frrrrrocdexe str8x (LelpaLd?&zv &vluaKionfaknsr0'breakt('1'breakt('2'breakt('3'breakt('4': dumbeufaknsr5'breakt('6'breakt('7'breakt('8'breakt('9': H)frrrrret +80("__- ==("kstl0jusem jump; taH)frrrocdexe str8x (Lelptf(eueufaknsEOZt taH)frrrocdexe strunk"vluaKionfaknsr_'brggetjt _du"vluaKion{ d fmenfulien /*u.l.halpha"ks ORDERsRC) tf(eueuien /otf(ashks ORDERsRlpaLd?&zv v >u.liscntrl(c)ey(n)target))eaeencScs, fs)t s"kstlcp; taH)frrrrr t ++LS ENtl'cv lllllll }(lces lllllll}paLd?&zv t _du:st)emum_dRsRifiess ree MAXSRC f2u.zsop[i] v2-> ts->>lSv `%80(" _du ENt)lpaLd?&zv v >u.lESERVED RK>= w#de [c] =PC)** See MAXSRC 2->>>>>>>pUMPKionu 1 wh2->ERVED R-w#de [c] =PC_>u.l taX_eeva1zsop)t ==- ,em jum->i] v2ts; taH)frrrrrocdexe str8AMEes lllllll}paLd?ces to lotuaNOPARSERe jump taX_eeiesdorc//* relex/. mlu/lco/ /* inc20 16:39:/lco/ex.h *9 /* ** $Auxil6:29:5 infdlus h *manipulIENtkfd: lsrsMably wManagdes for Lugenerator enerator en in lua.h */ #includCopyright ind: llex.h * see lua-4.0/sr/lcode.h */ /* s ind: llex.h * see lua-4.0/sr/lcode.h */ /* skipped: lmem.h * see lua-4.0/src/lapi.h */ /* skippal stcods.h * see lua-4.0/sdoapi.h */ /* skipped* zsopd: llex.h * vrn'lces tdy= DEBUG================================:05:Ed: l-JUM f-s infdlus (edcse er0 inst, NO toC, code e1(data lf-f ree ncti,.0============================Code gtestgo(fs, r ofpc (tion dcse er0 inst, NO r enas MAtpyright NoticelNT, spyright Notice in lua.h *mumof(SHe ncti,(bRRRU h */ _e ncti,(bRRRU*mumof(SH erootcbU h */ _e ncti,(f->s, bU*mumof(SH jumpbU h */ _e ncti,(bRR0)ariL,l O_JUMsH ex n as MAt(*(((varStk)b)+HEADLe+Scrn+iHtt , =PC_cod** Se */up /*btto 2->>>>>/lch */ __- = lceD* zsop/lch */ _total_- lstFtnfdp }(lbn'cimif lces to l jumrtto st to l*rtto ) tf(syntatto ) tf( n voifs, e1'c;*btaC_N, v btto );tf( *btto ltagfAX_rtto btto );tf( */lcset btto imop)ls v+HEADLe+_aRKSIZEtioist /*} btto l>>>>>>>( jum) btto );#defi)ALIDmed:T btto l>>>>>ae lces to locvto *h */ _e ncti,st to l*rtto n voifs, e1 taD_, GETr e1'c(Othte hold jumrtto btto );tf( *y bh *DATA RRRUN n /lch */ _total+uffpckn/lch */ _ em'OP_E)tf( *y bh *DATA =PC_cCoitest bably wncti,)or L, "f /n luas) p taH) voifse nc, e1'c;HEADLe+Scrn+_aRKSIZE; taH) lop_buewbtto lta(varStk) eroot)(e nc, e1);#defincti,savntD_atto l>>>>>>>kCE(fs-(fs & o nc, e1'u.luewbtto ltusunL, vm (OresATA RRf(syntatto ) tf( nH) voifsold, e1'c;*btaC_N, v btto );tf( *f(syntold, e1'>s, e1 told, e1'c;,nL eMbuff */lcT_REuewbtto +HEADLe, rtto nold, e1);tf( *f( jumrtto btto );oist /*} (rk fAX_ told-- _JU* VEXPsumedop/lch */ _total_+c;,nL eMbuff n /lch */ _totalckn/lch */ _ exmem)./lch */ _ exmem_ru/lch */ _total;medop/lch */ __- = lceDUMPrfRe *u, e1(f i}p.*)uewbtto lta,nL eMbuff } TSi<_aRKSIZE;[i] v2-> e *uuewbtto +HEADLe+Scrn+iHttr->} L( =PC_codtf( *y bh *Duewbtto +HEADLe;>>>ae lce============================>pi..h *DATA v pi_hncr_top LLLLLLLLLLLLLLLLL_eeiesdorc//, NOs upm alcISO (ANSI) llet brUdo ->>lneHNEGhelobhests; upbufs,ome llet brU(Sun OS) uat, OP([listISO iUO r 'lces tOLD_ANSI*mumof(SHe ncti,(bRs)imuusack(strut?H erootcsaV_L(e ncti,)(bRRRUU*mumof(SH jumpbU synta)>( jum) b)iesdorc//, to l*K_codgrowauxr1e VD P lopcSa pUMP(rrtto n voifs-> brS->uyAL, v" v2->}kCE(f, in voifs, e1(f */ r lop_b "f areuf o currl pzsotf(2o curr li OP(k> br+i codes u.lue brU>= l p-i", ilf struu); "f are)lpaL/*u.( li O^NEGNU)nel brOLL Rs, list)L; s_dumpower-of-2 l p2->>>>>>>pUMlue brU>e *fs) li O<= nPOWER2))** Se btto lal80("ym_tx nPOWER22->>>>>>>pU }(lbtto ldumbcdo ->>lneHNEGoHe ncti,SSh Tosv2s) emum_ r ros====ampower-of-2 b_topary; growEGoH>u.l.power->>>>>>>rcim(r1e),{newncti,1(f tto n prevpower2( li um =xn) rvariL, vmagener loncti,)or L,routf(SUO r to l*K_code ncti,ste VD P lopcSa pUMP(rrtto nm > 10s, e1 taD_, GETr e1'c(Othte hold jum btto );oist btto lmaylrknATA =[list_txOK l TALID>>>>>>>rcim(r1ATA RRRUN n , e1'>= VE ESIZETls L eMbstruu); "bably wncti,)or L, "f : btto lCodL eM!A_Atobtto ltae ncti,(btto n vovntX_syntatto ltusunL, v{Mbuff n nar"ron " v2e jump taD_, GETruuka (Or;oist bump = 0 RE "out, "f ; struu),>>>>>>>s) ocdexe ATA =PC_c "f ;bef vp i}p.st lo!l>>>>>aepU }(lbtto le lce===urn'tgnd.d.alue; } /* regnd. mlux7c/lapi./ /* inc20 16:39:c/lapi./ex.h 55*/* ** $Lexion rn r2infdlus h *manipulSome gener lo OPsa c, NOsLuak 0 /*s for Lugenerator enerator enerator See argr See Copyright Notice in lua.h ght Notice in lua.h */ #includCopyright lex/las.h * see lua-4.0/src/lc/lcode.h */ /* skipped: lmem.h * see lua-4.0/src/lapi.h */ /* skippal stcods.h * see lua-4.0/sdoapi.h */ /* skipped* zsopd: llex.h * vr ' */ lceTt(fs_alue GCkalcesr"io /(hstk, {ATA }ocvtok[d*/ } "and"a_alueratoar [i"ar"ious""u MAlu);"ur"has no"ucodes(ls"struu.(ls"n'cp ,ik"ar"not"as to l inc20 rypedef s eroNOspower-of 2L enns wis +=`n' /in n 10s prevpower2mum > 10 slntX_tm > 10 ==-> nPOWER2lpaL].NOllnp<=slnp<<=1nfdp }(lpn'cimi locvarO_equalceTERT io_hnfn l wiet1U, ' */ lceTt(fstt2[0]s (f steGCtht1tag].teGCtht2C) indexe 0C in >u USERDATA:/t1th2->u USERDATA:v >8x (Lel(oN; v >u.ETARncTM)vat1tatusncTM)vat'1);t, OPRDATA:v >u.l. breakt(fs, l(o #>lrkns lu 1 wh2->u arg1t1tatus->u arg1t'1);t, OPRDATA:v >fs, l(ons lu 1 wh2hu arg1t1tatushu arg1t'1);t, OPRDATA:v >s(clfs, l(oN; v >u.ETARP(L etopt1tatusP(L etopt'1);t, O{ d fmenfulie"udataecandteGCtht1tat , /(hstk); VE Ee1(feGCt!A_Ato nto ious)nal L,ldy= hstkl>>>>>ae lcee} } evl.f iGC(Lb) void luatb= -to curr [0]s (f snn> } L eMbuffsmu {s L eMb{newncti, f st); aK_code1(fs, A_AgcTM,clcMbuffsmum)*emumof( } L eMbuffsmum =xnewncti; lu taMtt A_AScrn'c; ;>>>aepU }(lf fax d: l rvari locvarO_to 2dERT io_huff[TOKENNuaKde.b ec lslo#defidy= 8x (LeMkefH) lop_befs,fs->f-NuaKde.re / to 2_- ==("KEN&efs,fsvntX_syntefs,fsat ,s) indexe 0C);lue ciT idata lf-kefH)ositicr_siGC(Liumrtto st to l*cti, f st);i] v2->efs,bugfh T, f st)nk(vX_0'ndexe 0C);lue ciEe1(feGCtrail _->u*ctac1(f >>>>>>pec lsloe nctsp }(lpn'1lce===urn nu 2 locCoith n lf->coNEGoe1(fsbSEs \), o'%d'M \2-'%.XXs'l TAma luasrLex to okef*DAaopen voifs, e1(f */ r lop_fmt,U, .s L eva_afs) s w d*/*(euff,xls soZV/2->u]C_cCoitesped: TAma *bttruu),>>>>>>>svo 2_art(s w , fmtX_synvX_syntax d: l(fmt,Us w X_synvruund(s w X_synstruu); "baiontokef,xf struu),imumof(euarStk) , " strbuff[TOKEN_p ;'l->unsigontle]s (f snn>*tp ro=')LindaH) votrnEuew, " stp um-3gontle]s t(fs, l(&o st.a ULL)d?lds , "[gontle]-sartMkef2u_c "f UMsH exnu; er n< L, "f>>aepU MEMG luonmess*tp ro=')@ [ d*/*/ cvarOo nto iotp u+->n,C in; se(`@ luaKion HNgontle]lstFtnfdcti"ecimo`, .%s'Ato nto iolfrom:======ri++ luaMvnt lua>gontle]s (f nto iotp of( l-gontle]s t(fs st%d part VALIiar [i].luaKion HN>u _syntax, " s"ecimo`, .%maP_'" stp luaMvnLd?&zv tMkef-FIRSHN>u _syntax, " s"ecimo`%maP_'" stp luaM=afs) p taH)free)cvarOf strT_REsp===ri++ s"Cde oag methodsast.t>lrk/srct luaKion t gontle]lstFtnfdcti"wrefial\"%.*s, .\"Ato ntous)t sele]l>igontle]s Of strgontle]o ntous)t se=ri++ [le]]nk(vX_0'nd ist)==u REh To>>>>>>pUMPKioT_RESER, " s"wrefial\""aLd?&zv v >, "f+rom:=====, "aLd?&zv v >otrnEuew, " stp isl kn;>>pUMPKioT_RESER, "+l ", .\"Ato ntous)Ld?&zv tMkef-FIRSHN>u _syntax, " s"wrefial\"%.aP_\"" stp luaM=afslceeNOPARSERe jump taX_eeifalces to locv= 0 vs, fs)} Y_oVEXP2-en voifs, e1(Le=sL;x d: l(lsars,zX_synstruu); "b"imopenClneHloadA_Ato ntm(r1ATA RRR}} /* relex/. mlux72ode.h*/* inc20 16:39:c/lode.h*/*h 55*116 ** $Lexio7 11naly5fdlus h *manipulSomLL(t ,PmopenC fAXt, Oer loatTALIouak 0or Lugenerator enerator en in luyright Notice in lua.h */ #includCopyright lex/las.h * see lua-4.0/src/lcodeh * see* skippedal stcods.h * s see lua-4.0/src/lcode.h */ /* skgnd: llex.h * see lua-4.0/src/lco.h*/ /* skippedpped: llex.h * see lua-4.0/src/lcode.h */ /* skipped: lmem.h * see lua-4.0/src/lapi.h */ /* skipp: lopcodes.h * see lua-4.0/src/lcop.h *s/ /* skippedpped: llex.h * see lua-4.0/src/lcode.h*/ /* skippedal stcods.h * see lua-4.0/sdoapi.h */ /* skipped* zsopd: llex.h * see lua-4.0/src/lcode.h */ /* skAL, vd: llex.h * seenc20 rypCoemumof(n l *scrip(n : ryp /iindih TosaKde.bscVALluononmsUM \2-`k' GE l[lsitie sefor LitxOK aaafs) coemumof(n (ae n0) bttaXIT_Frd coemumof(n (ae n1=====t }mpty (ae n';'=t '}') lrkCE(fs-dcseCoemu *sc --O_JUM(=nsotf i+ lceeCoemu *sc;f *t>lrkCE(fs-dcseB = lces f(2o cs-dcseB = lces f*e dl rchec->vn[tag].d?lds nsig = li e 2*pode1(fscklevellceeB = lces l incc20 ryperto Exp $ ee nctculf-vOP([n- er n< lPsa c, 2u.zsopcvarLet bodyuff[8]; is pzsotf(euNEGoeeluncSia -t to locv= 0 of(uff[8]; is pzsto locv= 0 oemumof(n (f[8]; is pzsto locv= 0 expbuff[8]; is pzsotexp *sc *vto locv= 0 exp1 (f[8]; is pzsto s to locvto *h l.pow(f[8]; is pzst_tm > sl %stvstlh O_taX_ d: lpaLex,bugfh TtaX_ dsr>- ==afs f s!trunk");)emum_txnew sefe aaaLSarLS ENtldum>>>>>>pUMyntax O_taX_ dsr>- ==- ==afshesth no luaKion taX_ dsr>- ==afs f strunk");lue ci \2-dis ULLge&n*pkey);op[tMkef-FIRSyntax d: lp to z))); VE&yntax jump; tabc80("}rE'l.powtldumbcs) Lex to loclsar/ndsr>- ==w(f[8]; is pzst_tm >ataecandteGtaX_ dsr>- ==afs f sttrunk");n'cpwif(LSarLS EsAto nttaX_ dsr>- ==afs f str to z))); VE&ynta dsr>- ==a jump; taH Lex to loclsar/u); _ , /*`$'ff[8]; is pzsotf(euislntX_tMkef2u.z(toke %.5, tef,xeuff); us==prbuff[0]s */'\0')>f-f"aLd?&X_syntax d: l(l`%m2 , /*`$"-f"aLd?&prbKaK_cod jump taXtaH Lex to loclsar/aC_NOlff[8]; is pzsotf(euff,x"0xfh TtaX_tafs f s!trcron " u); _ , /*`$ jump taH)f ENtzsto Lex to loclsar/aC_NO_d.r]iL, "fff[8]; is pzsotf(eufENmifk 0 /* strbuff[100n!lf strKaK_cod jump)lpaL/ped: *o void/ r Lal expff[8]; is pzsotf(euff,x"0xfh TtaX_tafs f sP(L s (f nt ENtzsto f ntus)nalndebuggs) ocdexe ATA0o Lex to loclsar/aC_NO_ma { ) [8]; is pzsotf(euwhatotf(euwhootf(euwheref,x"0xfh TtaX_tafs f s!trwhatMbuff n narwheresP(LtaX_ d: lpaLexron " v2u); _ , /*`$ jumpwhatM;afs) p taH)free)x"noo many %.50sr lNe)x"noot_whatef,xeuff); ,ot_whoef,xeuff); us==FIRSyrbuff[0]s */'\whatott_what)us==FIRSyrbuff[0]s */'\who,ot_who>u H*/Navt_syntax d: l(l`%m2 , /*`$)toklrkkemo`%m2 e,vtoke)tldumbcs){euff); t_what,ot_who,uwherefus==FIRSyrbKaK_cod jump taXtaHluaM=afslc)f ENtzsto Lex to locode1(fcode_mifk ade1(Fa ]; is pfsfs)LS l Toas)} } - ==NU,ffaX_f 2*pode1hks s=hasseeifk index,bugfh Tc VE oic = -kp||)C == r[c]nk(vss L eMb{newnwEGost); f `%.30C == r, oic = -kjusem)LS l TouyAL, v" v2->}kCEEEEEE"mifk ade1 L egtflow! l"E E jARG_Ut, OPRDA E oic = -krfRe *u,C == r[c]n(vsRe *u,s=hasseeifk indexgfAXabc80(hif reHEAl.powti].luaKioU }(lf fcces to locvarfs, A_Aderuu.z)) call? kithplsfs)LS l Toas)} yrbKa== rf2u.z fcode_mifk adeTtaX_fsfss)to Lex to loc)LS l ToatrAX_INTumb) call? kith'zst_tm >.zsop[i] v2d*/*(e_NO_d.r]iL, "f2u.zTtaX_tafs f sP(L8AMEes ode1 , /*`$"t, OPv2-> ntax jump; .v2d*/* ENtzsto f wh2->u ao Lex to locode1X_INTumb) call? kith'zst_tm >-kum *imfcode_mifk adeTtaX_fsfsstrAX_INTumb)tzstto Lex to locode1yrbI_regodesrat"urvrbuff[8]; is pzsot.zsop[i] ls */ )} } - ==NU,ftaX_fsX_f 2*p{newnwEGost); l `%.30C s, code, aM_growv+c jusemmof(ti lces E jump to f 1(fs, codesaM_growv+c sols */ U,fls */ o f wh2->uaM_growv+c rfRes to locvarfs, Anew_at"urvrbuff[8]; is pzsot.zsop[i] */ otf(euN )} Fa ]; is pfsU,ftaX_fsus==prbufX_INT, "kstzsotfsX_nacion +num-3E jLOCAu"une infdlufFf insAto ntfsX_acion [fsX_nacion +n]str toI_regodesrat"urvrbtzsot*/ lcs to locvarfs, Aadjustat"urvrbsuff[8]; is pzsotf(euN== r))} Fa ]; is pfsU,ftaX_fsus==ticr_siN== r--ron " fsX_f(fs, codesasX_acion [fsX_nacion ++]*/ f*ps w,ffaX_pcces to locvarfs, A, l(&oat"urvrbsuff[8]; is pzsotf(euN== r))} Fa ]; is pfsU,ftaX_fsus==ticr_siN== r--ron " fsX_f(fs, codesasX_acion [--fsX_nacion ]fs, lisw,ffaX_pcces to locvarfs, Anew_at"urvrbtokeftMkefs, fs)t strbuff[TOKEN*/ otf(euN )} new_at"urvrbtzsot ts->>lS l!A_ l `%.30*/ } coo Lex to locode1(earch_at"uruff[8]; is pzsot.zsop[i] *otexp *sc *var))} Fa ]; is pfs 2*pode1level v >u.l. } Tfs=taX_fsu fsu fs=faX_p dlv2-> L eA_Aiuff } TSifsX_nacion -1; i VE zsoplo#de ntous)t se sP(LfsX_f(fs, codesasX_acion [i]sols */ (f nto iols = v VLOCAu;(f nto iols u.indexgfAi;(f nto iom(r1e),{evellcnto ioP_Pt, fsh *m{evelu+->n,C `ls 'ncr_top L)rva1ERTsou.bsclevel uaKioU ls = v VGLOBA pi_hncr_top L) )) ny,{evell==u be#bsol e uaKiom(r1e),-1ces to locvarfs, Asp[i{evrbuff[8]; is pzsot.zsop[i] *otexp *sc *var))} ode1level v (earch_at"urtzsot*, ls X_syntefslevel > n1=pi_hncei sef at"uruf0)ncrr#bsol e (-1)>>>>>>pUMyrol)t st",xeuff); VE ->>lrknaccesK aa->s wvar )) ou.bscscopik"anze)lsX_syn n , elevel v=,-1=pi_hnbsol e>>>>>>pUMls u.indexgfAmfcode_mifk adeTtaX_fsfscoo Lex to locode1index1.t>lrkuff[8]; is pzsotexp *sc *vt)} Fa ]; is pfsU,ftaX_fsus==; i++ } TS.zsopkfsX_n /list luonuff n narfsX_ /list HNEGusunLv = && fsX_ /list HNEGu.indexgfnLv u.index>u.l.f); TARG_B(ebuggs) _hncewno luaKioprbufX_INT, "kstzsotfsX_n /list um-3E jUPVALUE"unex /list Ato ntfsX_ /list HfsX_n /list ]str*vo f wh2->uasX_n /list ufRes to locvarfs, Apush1.t>lrkuff[8]; is pzsot.zsop[i] *t)} Fa ]; is pfsU,ftaX_fsus==exp *sc v 2*pode1level v (earch_at"urtzsot*, &vX_syntefslevel v=,-1=p{pi_hnbsol e>>>>>>pUM narfsX_p dlsunL, v{Ms==FIRSyrbuft st",xeuff); VE ->>lrknaccesK 1.t>lrkuULLCoink"anze)lsX_synUMl.u.indexgfAmfcode_mifk adeTfsX_p dlfscoo UN n , elevel ! n1==FIRSyrbuft st",xeuff); VyAL, v" v2ex /list==u be#bsol e of at"uru- =immedi isly ou.bscscopik"anze)lsX_synyrbKa_Ade1(fsfsOP_PUSHUPVALUE,1index1.t>lrk); VE&v) lcs to locvarfs, Aadjust_mult_asn lobff[8]; is pzsotf(euN== rotf(euNExpr))} Fa ]; is pfsU,ftaX_fsus==>/el,iffum* zsps -uN== r_syntefs zsps *fs) liyrbKa%stvis iGC(fs->u i_hnafs) , lod)) lf->coe ju>>>>>pUM,iff--mbcdo ->>lneHcp Lt lf->coe ju>iteelu>>>>>pUM nar,iffu>>>>>pUMPKyrbKasete juedef s (fsfs-,iffdefi)ALI lf->coe ju>provide=extra e&f->tloc; [i] ,iffum*;lue ciT i=vp ,iffreclueVEXPsumedop/lc emum_ r=vp luf->tl+=`n'/lfFf ins >>>>pUMPKyrbKasete juedef s (fsfs0* Se */ ju>should>provide=T i/list=uaKioU pastush of pop eventufreviffreclueVbetwee>lrk e length Mbuffpc)vK_adjust*/t T,fsfs,iffdees to locvarfs, A_Aderparamsuff[8]; is pzsotf(euNparams2->/el,otr))} Fa ]; is pfsU,ftaX_fsus==adjustat"urvrbstzsot*paramsX_synyrbufX_INT, "kstzsotfsX_nacion -3E jPARAM"uneparame1(f Ato ntfsX_loc; mparamsu=tfsX_nacion ->n,C `eelu'Hcp ld>bew sefe a("ym_txh2 cHNsX_locis_vrbar ==-,otr_syntefs,otr))} Anew_at"urvrbtok); VE ar "arget slefadjustat"urvrbstzsot1oo UN c)vK_delta*/t T,fsfsfsX_nacion * Se */u Lt parame1(f d)) s_dut; decs) Lex to loclsar/ekfd:p = 0(Fa ]; is pfsfsB = lces f*b*tf(eufblze)lscklevelu=tfsX_(fscklevellcufblzeg = li ef->sO_JUMPlcufblzee dl rchu=tfsX_blo ntfsX_bl taC_tr Lex to loclsar/neavep = 0(Fa ]; is pfsfsB = lces f*b*tf(euffsX_bl taC_zee dl rcho ntataecandteGblze)lscklevelu==tfsX_(fscklevelr">=r.*)ulevelsAto ntt)vK_pa { li e,fsfsblzeg = li e,tt)vK_getlces (fs->Res to locvarfs, ApushU, pUMP&f[8]; is pzsotFa ]; is pfunc))} Fa ]; is pfsU,ftaX_fsus== } - ==NU,ffaX_f 2*pode1+ } TS.zsopkfa X_n /list luo UMPKyrbKato*/t T,; VE&fa X_ /list HNEot1oo UN{newnwEGost); l `%.30C kerto , oic =erto , m-3 } - ==uyAL, v" v2->}kCEEEE"mifk ade1 L egtflow! l"E E jARG_Ato f 1(f=erto [oic =erto +ar->}fa X_f_synyrbKa_Ade2(fsfsOP_CLOSURE, oic =erto ls fa X_n /list >Res to locvarfs, A iGC_fa P&f[8]; is pzsotFa ]; is pfas)} } - ==NU,fluaK_newXP;} l `%.to ntfsX_p dlsuftaX_fsu i_hnafnK>= li efVALIa h */ sxh2 cHNsX_lsU,ftao ntfsX_LsuftaX_Lo nttaX_fhu=tfso ntfsX_)lscklevelu=t0o ntfsX_nacion u=t0o ntfsX_nt,e&f->tl=t0o ntfsX_bl ta RRRUNfaX_fu=tfo f 1(ftp rooslntO_vksio ntfsX_p u=t0o ntfsX_%stvtLLgetu=t0o ntfsX_%stvstlh O_0o ntfsX_jlef->sO_JUMPlcuf1(fXt, Ota RRRUNfED x)lsckn'c; ;>0RRUNfED; mparamsu=t0*pevist fmen } Coin of(uh2 cHNocis_vrbar ==-0*pevist fmen } Coin of(uh2 s to locvarfs, A_kkem_fa P&f[8]; is pzs'lis *z,ATS.zsoTK_EfetaX_Lo ntFa ]; is pfsU,ftaX_fsus== } - ==NU,ffaX_f 2*pyrbKa_Ade0(fsfsOP_ENDto ntt)vK_getlces (fs- Se */kkemoeventufreli efVALprc//*)uj mp Mbuffpc)vwncti, f st); aK_1(fXt, ,tfsX_p , Iemumof(l(ls;ffpc)vwncti, f st); aK_1(f== r, oic = -kju.zsop[i] s;ffpc)vwncti, f st); aK_1(f=; m, oic =; m, Kde.res;ffpc)vwncti, f st); aK_1(f=erto , oic =erto , } - ==to f wl(&oat"urvrbstzsotfsX_nacion s;ffpc)vwncti, f st); aK_1(fs, code, aM_growv+c jumof(tis;ffpc)vwncti, f st); aK_1(fstlhmp; , aM_grtlhmp; um-3odeto f 1(fstlhmp; [aM_grtlhmp; uar->}E jump u_c "f Ud flagMbuffpc)vF_erto oT,'1)f,tfsX_p f->npast} - = nok=T wMbuffpcaX_fhu=tfsX_p dlo ntataecandteGfsX_bl tta Rr">=r.*)ulfs) , lto locvavs, fs)} Y_oVEXP2open voifs, e1(Le=sL;x d: lcs-dcsef[8]; is lexh */ ;: lcs-dcseFa ]; is Ia h */ _synyrbufcLSarZIOaC_aluexh */ , zot ts->>lSaC_azumb)tz)paLd?& iGC_fa (luexh */ , &Ia h */ taH)f ENtluexh */ umbc80("} st.a tldumbcs){M of(tluexh */ um /*(e_NO_d.r]iL, "fluexh */ , (uexh */ .tafs f sttrunk");)s to loc , /*`$"t, OP_kkem_fa tluexh */ um /*ataecandteGfa h */ .p dlsunL, v{r">=r.*)ulfs) , lto l/*ataecandteGfa h */ .nt,e&f->tl==usem"T it,e&f->tlULLCoinkto f wh2->ufa h */ .f;o inc20===========>pi..h *DATA v pi_hncr_top LLLLLLLLLLLLLLLLL_ee see lGRAMMAR RULES* see ===========>pi..h *DATA v pi_hncr_top LLLLLLLLLLLLLLLLL_ee seex to locode1 , lfs)1 (f[8]; is pzst d: l "f , lfs)1 -> expbu{ ',' expbu}.d?lds nsin O_JUue ci e led o lexpbesf-kefH)osiexp *sc v 2*pexpb); VE&v)us==ticr_sitaX_tafs f sP(L','s L eMb{neKato*/t T,; VE&vot1oo t(fs ss), o1i/list=udatae dl rchuexpbesf-kefH)osi/* ENtzsto>n,C in; ma)z,>>>>>s) xpb); VE&v)us==/* rfRe * c)vK_to*/t T,; VE&vot0* Se *keep& iGCaKde.bscVALe&f->tlVAL%d expbesf-kefH)osiETARncTMimif lces to l jumREh rgsuff[8]; is pzsotf(euslf))} Fa ]; is pfsU,ftaX_fsus==>/elslevelu=tfsX_(fscklevel */ lu>-_JUue ciwheres n ld)) s_dut; decs)>u USERDATyntax d: lpau USERDATA:v'(')emum_dRmREh rgsu-> '(' [f , lfs)1 ] ') luaKion HNSia -t O_taX_ d: lpaLex,bugn HNSia n rgsuv >u.l.+ o ENtzsto f nt0xfh TtaX_tafs f s!tr') =pi_hnar =lfs) lneH}mpty>>>>>>pUMP&t = rgsuv , lfs)1tzsto f nt0xaC_NO_ma { ,; VE') , '(', -t to es tdy= DEBCOMPAT_ARGRET f nt0xfh T= rgsu>te hi_hnar =lfs) is lneH}mpty>>>>>>pUMP&t yrbKasete juedef s (fsfs1oo t(fs%d / ju>edef s e, o1i/list=esdorkef-FIRSHN(lsars,= rgs(fs, codf-O_Jwarnsto/n luaKorc//, FIRSHN{ dumbeu{}USERDATA:v'{')emum_dRmREh rgsu-> oemumof(n uaKionfaknoemumof(n tzsto f nt0x{ dumbeu{}USERDATA:vu.l. lpa)emum_dRmREh rgsu-> . lpa uaKionfaknoderuu.z))tzsot ntax jump; .v2(fs, co=u shes` jump; 'f vp ` EN luaKion HN ENtzsto f nt0x{ dumbeu{}USERD infd (f nto yrbKaK_cod jumpr"not"as nar unonms , /*`$"t, OPnt0x{ dumbeu{}USE} ntfsX_)lscklevelu=ts{evell=e */ ju>wiju>edl(&o snot"as naUd ar unonms buffpc)vK__Ade2(fsfsOP_CAv{r"slevelr"MULX_eeT>Res to locvarfs, Av+c_or_fa _tairuff[8]; is pzsotexp *sc *vt)} NEGNUs*tf(euN>u Et:{ ) yntax d: lpau USERDaknsr.XtaV_emum_dRv+c_or_fa _tairu-> '.' Ees >>>>>pUMP&t = ENtzsto f nt0x c)vK_to*/t T,; VEvot1oo t(fs`v'==u be#ondut; decs)>unt0x c)vK_== rf2u.zX_INTumb)tzstto >unt0x v = v VINDEXsop)t ==- ,{ dumbeu{ }USERDaknsr.Xt[V_emum_dRv+c_or_fa _tairu-> '[' exp1 1 wh2-avUMP&t = ENtzsto f nt0x c)vK_to*/t T,; VEvot1oo t(fs`v'==u be#ondut; decs)>unt0x v = v VINDEXsop)t ==- ,exp1tzsto f nt0x X_INT,; VE']paL.tMkL ka[c] lluabeu{ }USERDaknsr.Xt:V_emum_dRv+c_or_fa _tairu-> ':' Ees >mREh rgsucs)>unt0x Sia n me;-avUMP&t = ENtzsto f nt0x */ U,fX_INTumb)tzsto f nt0x c)vK_to*/t T,; VEvot1oo t(fs`v'==u be#ondut; decs)>unt0x c)vK__Ade1(taX_fsfsOP_PUSHSELFot*/ lc>unt0x mREh rgstzsot1oo UNnt0x v = v VEXPo UNnt0x v u.l.ef->v u.l.ff->sO_JUMPlcufkL ka[c] lluabeu{ }USERDaknsr.Xt(eakt('9'u.l. lpa)eATA:v'{')emum_dRv+c_or_fa _tairu-> mREh rgsucs)>unt0x c)vK_to*/t T,; VEvot1oo t(fs`v'==u be#ondut; decs)>unt0x mREh rgstzsot0oo UNnt0x v = v VEXPo UNnt0x v u.l.ef->v u.l.ff->sO_JUMPlcufkL ka[c] lluabeu{ }USERDak infd edef so>n,C ihp ld>bewfoTos , .. llllll to locvar locvarfs, Av+c_or_fa uff[8]; is pzsotexp *sc *vt)} _dRv+c_or_fa u-> ['%'] Ees >v+c_or_fa _tairu*?lds ) r Lal ex,; VE'%') hoist)=t,e&f->>>>>>>pUMpush1.t>lrkf2u.z fcAX_INTumb)tzstto 0x v = v VEXPo UNntv u.l.ef->v u.l.ff->sO_JUMPlcuf n _dRv+c wvar [i].luaKion sp[i{evrbf2u.z fcAX_INTumb)tzstVEvX_synvrc_or_fa _tair,; VEv);o inc20==========================:05:Ed: l-JUM f-s infdlus (edcse er0 inst, NO toC, Rul $ ee nCoemumof(n ==========================Code gtestgo(fs, r ofpc (tion dcse er0 inst, NO r 80("}cfiel=w-> (Ees >| '['exp1 [ = exp1 cs)>u USERDATyntax d: lpau USERDATA:v8AMEes d (f nto yrbKa== rf2u.zX_INTumb)tzstto >unt0x{ dumbeu{}USERDATA:v'[ tf(eueuKio= ENtzsto f nt0xexp1tzsto f nt0xX_INT,; VE']paL.tMkL k{ dumbeu{}USERD infd yrbKaK_cod jumpr HEA`[' , /*`$"t, OP} 0xX_INT,; VE'=paL.tMexp1tzsto Lex to locode1"}cfiel=sw(f[8]; is pzst_tm >80("}cfiel=su-> "}cfiel=w{ ',' "}cfiel=w} [','] cs)>uFa ]; is pfsU,ftaX_fsus==>/eln O_JUue ci e led o leuononmfH)osiETcfiel=tzsto f ticr_sitaX_tafs f sP(L','s L eMb= ENtzsto f ntfh TtaX_tafs f sP(L';'=|| taX_tafs f sP(L'} d*/*/Nav{ dumbeu{ETcfiel=tzsto f /* rfRe *0xfh T=%RFIELDS_PER_FLUSHOthte (f nto yrbKa_Ade1(fsfsOP_SETMAP, RFIELDS_PER_FLUSHoo UN c)vK__Ade1(fsfsOP_SETMAP, =%RFIELDS_PER_FLUSHto f wh2->uno Lex to locode1yfs)fiel=sw(f[8]; is pzst_tm >80(yfs)fiel=sw-> exp1u{ ',' exp1w} [','] cs)>uFa ]; is pfsU,ftaX_fsus==>/eln O_JUue ci e led o leuononmfH)osiexp1tzsto f ticr_sitaX_tafs f sP(L','s L eMb= ENtzsto f ntfh TtaX_tafs f sP(L';'=|| taX_tafs f sP(L'} d*/*/Nav{ dumbeu{exp1tzsto f nt rfRe *0xyrbufX_INT, "kstzsotn/LFIELDS_PER_FLUSHE E jARG_AuyAL, v" v2->}kCE"`itemowEGups'd)) lfs) initializer")Re *0xfh T=%LFIELDS_PER_FLUSHOthte (f nto yrbKa_Ade2(fsfsOP_SETLISTotn/LFIELDS_PER_FLUSH>-_J, LFIELDS_PER_FLUSHoo UN c)vK__Ade2(fsfsOP_SETLISTotn/LFIELDS_PER_FLUSH, =%LFIELDS_PER_FLUSHoo UN wh2->uno Lex locv= 0 oemumof(n _part ff[8]; is pzsotCoemu *sc *cdx d: lcUSERDATyntax d: lpau USERDATA:v';eakt('9':}')emum_dR oemumof(n _part -> empty uaKionfaknd->nuv >u.l.+ ond->k-> ntax s inu.zcp0x{ dumbeu{}USERDATA:vu.lEes d s, co=rknATAyfs)fiel=swe nctcfiel=sw>>>>pUMPKydsr>- ==tzsto f nt0xfh TtaX_ dsr>- ==afs f s!tr)Lindl "f , besf-ke>>>>>>pUMP&t tjt _ATA:_ info f nt0x "f n go thEGughHe nctcfiel=sw>>>>pUM}USERDATA:v'[ tf(um_dR oemumof(n _part -> ctcfiel=sw>>>>pUMPKnd->nuv ctcfiel=stzsto f nt0xXd->k-> 1mbc80("}c { dumbeu{}USERD infd um_dR oemumof(n _part -> yfs)fiel=sw ATA:_ inf:>>pUMPKnd->nuv yfs)fiel=stzsto f nt0xXd->k-> 0; >80(yfs) { dumbeu{}USElocvar locvarfs, A oemumof(n (f[8]; is pzst_tm >80( oemumof(n -> '{'R oemumof(n _part [';'= oemumof(n _part]':}' cs)>uFa ]; is pfsU,ftaX_fsus==>/elstlh O_taX_ d: lpaLex,bugfLt pcU,fluaK__Ade1(fsfsOP_CREATE l(onot0oo UNf(euNErU>eo UNCoemu *sc cdm /*(e_NO,; VE'{paL.tM oemumof(n _part,; VE&cdxaH)f rU>e ,fXd.=nsotf ) r Lal ex,; VE';'->u USERDCoemu *sc o sef_cdm /*tM oemumof(n _part,; VE&o sef_cdt, OPRDAe_NO_d.r]iL, "f2u.zTXd.ks!tro sef_cd.k)VE Ee1(fs, codmumof(n t s"Ntlto f nt rU>e +tro sef_cd.>>aepU aC_NO_ma { ,; VE'}'VE'{p, -t to 0xyrbufX_INT, "kstzsotnbrS->u E jARG_Uescauononmsd)) L egcodmumof(n lto f SETARG_U(NsX_loc_Ade[pc]otnbrS->to>n,C ie) initial L egn'c; h2 s t=========================>pi..h *DATA v pi_hncr_top LLLLLLLLLLLLLLLLL_eeiesd inc20==========================:05:Ed: l-JUM f-s infdlus (edcse er0 inst, NO toC, Expbesf-kefoVEXp[i==========================Code gtestgo(fs, r ofpc (tion dcse er0 inst, NO r (LeMkefH) loooooKde.re /-> ntax jump; .x,bugn HN= ENtzsto f nt0xluaK_==("KENfsfsrto >unt0x{ dumbeu{}USERDATA:vu.l. lpa)emum_dRiimple , u-> . lpa uaKionfaknoderuu.z))tzsot ntax jump; .v2(fs, co=u shes` jump; 'f vp ` EN luaKion HN ENtzsto f nt0x{ dumbeu{}USERDATA:v8AMEILN L e,C iimple , u-> (>>>>>ae nt0xluaK_adjust*/t T,fsfs-1oo UNnt0x ENtzsto f nt0x{ dumbeu{}USERDATA:v'{')emum_dRiimple , u-> oemumof(n uaKionfaknoemumof(n tzsto f nt0x{ dumbeu{}USERDATA:vu.llfs, l(oNemum_dRiimple , u-> lfs, l(o bodyuuaKion HN ENtzsto f nt0x{odytzsot0,LtaX_ d: lpaLexro f nt0x{ dumbeu{}USERDATA:v'(')emum_dRiimple , u-> '(' expbu') luaKion HN= ENtzsto f nt0xexpr,; VEv);oionfakne_NO,; VE')paL.tMkL kedef sombeu{}USERDATA:vu.lEes d ATA:v'% tf(eueuKiovrc_or_fa ,; VEv);oionfakedef sombeu{}USERD infd (f nto yrbKaK_cod jumpr< , besf-kec , /*`$"t, OPnfakedef sombeu{}USEU l = v VEXPo UNv u.l.ef->v u.l.ff->sO_JUMPlc Lex to loclsar/exp1 (f[8]; is pzst (f exp *sc v 2*pexpb); VE&v)us=={neKato*/t T,; VE&vot1ooc Lex to locUnOpbugdefnopbufid/ r x d: lcUSERDATr x d: lRDATA:vu.lEOTd edef ssOPRlEOT;USERDATA:v'-'d edef ssOPRlMINUS;USERD infd edef ssOPRlEOUNOPR;USElocvar locvarBinOpbugdebinopbufid/ r x d: lcUSERDATr x d: lRDATA:v'+'d edef ssOPRlADD;USERDATA:v'-'d edef ssOPRlSUB;USERDATA:v'*'d edef ssOPRlMULT;USERDATA:v'/'d edef ssOPRlDIV;USERDATA:v'^'d edef ssOPRlPOW;: lRDATA:vu.lCAT");d edef ssOPRlCAT");a: lRDATA:vu.lEEd edef ssOPRlEEa: lRDATA:vu.lEQd edef ssOPRlEQ;USERDATA:v'<'d edef ssOPRlL;a: lRDATA:vu.lLEd edef ssOPRlLEa: lRDATA:vtaV_ edef ssOPRlG;a: lRDATA:vu.lGEd edef ssOPRlGEa: lRDATA:vu.lANDd edef ssOPRlANDa: lRDATA:vu.lORd edef ssOPRlOR;USERD infd edef ssOPRlEOBINOPR;USElocvar locvartrbuffcs-dcse{ e)x"nooleft; >80(yeft priority ee neaRDAbinary& iGoatTALH) lop_befor 80(ORMkefOPRluaKion{5, 5},n{5, 5},n{6, 6},n{6, 6},ni_hnarithmecvaruaKion{9, 8},n{4, 3},niiiiiiiiiiiiiiiiipastr-of fAXtEh T (or >>>>>>rc{J, 1},n{J, 1}niiiiiiiiiiiiiiiii>80(yogic e uaK l iof(SHHEAUNARY_PRIORITY 7>npast}iority ee nunary& iGoatTAs seenc20 rypsubexpbu-> (iimplexep | fnoppsubexpb hoibinoppsubexpbu} rypwheres`binop'xOK anyAbinary& iGoatTAL"eDOSast}iority hr ngdefnopbTyntax d: lpansotf ) uo> !trOPRlEOUNOPRs L eMb= ENtzsto f ntsubexpb,; VEvotUNARY_PRIORITY)Re *0xyrbK_ befi)); VEuo>VEv);oio n iimple , ,; VEv);oio "f , fAticr_s iGoatTAs hn; t}iorities hr >>>>ro> ngdebinopbTyntax d: lpansotticr_sio> !trOPRlEOBINOPR) lipriority"op].yeft > -tzsotf(2o f exp *sc v2Re *0xBinOpbu= EN[ d*/*/K= ENtzsto f ntyrbK_mp;i)); VEo>VEv);oiobc80("} sub-expbesf-kef"eDOShr nsubexpb,; VE&v2, priority"op].or VEvVE&v2)Re *0xo> n= EN[ d*/*U }(lf f[ dbc80("}h2->uft.a unt i}ped& iGoatTALH) Lex to loclsar/expbuff[8]; is pzsotexp *sc *vt d: lcubexpb,; VEvot-1ooc Le=========================>pi..h *DATA v pi_hncr_top LLLLLLLLLLLLLLLLL_ seenc20 ryp======================:05:Ed: l-JUM f-s infdlus (edcse er0 inst, NO toC, Rul $ ee n]; isnonms==========================Code gtestgo(fs, r ofpc (tion dcse er0 inst, NO r u.ETARP(L1;USERD infd edef ss0;USElocvar locvarrLet b st tof[8]; is pzst_tm >80(b st t-> of(uh2 cHFa ]; is pfsU,ftaX_fsus==>/elnacion u=tfsX_nacion - {M of(tls)us=={neKaadjust*/t T,fsfsfsX_nacion u- nacion * Se *edl(&o infdlufFf insfH)osiETl(&oat"urvrbstzsotfsX_nacion u- nacion * Lex to locode1asn lononmfff[8]; is pzsotexp *sc *vncSia N== r))} ode1leftum*;lue ciTde.bscVALe&f->tlleftu)) s_dut; deaf.bscasn lononmfuaKioprbufX_INT, "kstzsotN== rotMAXVARSLHmprlufFf insf)) multiplecasn lononm"X_syntefslaX_tafs f sP(L','s ni_hnasn lononmf-> ',' Ees >asn lononmfuaKiof exp *sc nvd*/*/K= ENtzsto f ntvrc_or_fa ,; VE&nv);oiobcAe_NO_d.r]iL, "f2u.zTnv.ks!trVEXP)VE t s"Nt2u); "t, OPnfleftum*asn lononm,; VE&nvotN== r+1);oio n ni_hnasn lononmf-> '='f , lfs)1 >>>>pUM (euNExpr;oiobcAe_NO,; VE'=paL.tM * zsps v , lfs)1tzsto f ntadjust_mult_asn lotzsotN== rotNExpr);oio tefsl = !v VINDEXsoo UMPKyrbKastTAevrbf2u.zvX_syn n ni_hn sefe =rknATAgarb,>>>betwee>l L e-indexg fA/list=uaKio c)vK__Ade2(taX_fsfsOP_SET l(onotleft+N== r+2ot1oo UNntleftu+= 2d*/*U }(lf fleft;ocvar locvarfs, A oe$'ff[8]; is pzsotexp *sc *vt)} _dR oe$'-> expfH)osiexpbf2u.zvX_bc80("} d.r]iL, "fbuffpc)vK_goifs-de(taX_fsfsvot0* ocvar locvarfs, Aticr_ locuff[8]; is pzsotf(eu-t t)} _dRticr_ locu-> WHILER oe$'DO(b st tENDuh2 cHFa ]; is pfsU,ftaX_fsus==>/elticr__initU,fluaK_getlces (fs- (f exp *sc v 2*pB = lces fblo ntekfd:p = ,fsfs&bltaH)f ENtzsto f oe$); VE&v)us==Ae_NO,; VEDOTk")us==o bttls)us=={neKapa { li e,fsfs{neKaj mp(fs-,lticr__init)us=={neKapa { li e,fsfsl.u.l.f,tt)vK_getlces (fs->Re aC_NO_ma { ,; VE8AMENDVE8AMWHILE, -t to 0xyeavep = ,fsfs&bltaHs to locvarfs, A, pi}p locuff[8]; is pzsotf(eu-t t)} _dR, pi}p locu-> REPEAT(b st tUNTILR oe$'h2 cHFa ]; is pfsU,ftaX_fsus==>/el, pi}p_initU,fluaK_getlces (fs- (f exp *sc v 2*pB = lces fblo ntekfd:p = ,fsfs&bltaH)f ENtzsto f o bttls)us==aC_NO_ma { ,; VE8AMUNTILVE8AMREPEAT, -t to 0x oe$); VE&v)us=={neKapa { li e,fsfsl.u.l.f,t, pi}p_initto 0xyeavep = ,fsfs&bltaHs to locvarfs, Aee bodyuff[8]; is pzsotf(euNvti lOpCt, Opbepee lOpCt, Oloopee t)} _dRee bodyu-> DO(b st tENDuh2 cHFa ]; is pfsU,ftaX_fsus==>/elpbepU,fluaK__Ade1(fsfspbepee lsO_JUMPoo UNf(eub st initU,fluaK_getlces (fs- (f Ae_NO,; VEDOTk")us==adjustat"urvrbstzsot*ls X_um_dRicopi ee ncode e1dlufFf insfH)osio bttls)us=={neKapa { li e,fsfs{neKa_Ade1(fsfsloopee lsO_JUMPo,ub st init)us=={neKapa { li e,fsfspbep,tt)vK_getlces (fs->Re ETl(&oat"urvrbstzsot*ls X_Hs to locvarfs, Aee Tdeuff[8]; is pzsot.zsop[i] ls */ )} _dRee Tdeu-> (es >= exp1,exp1[,exp1]Ree bodyuh2 cHFa ]; is pfsU,ftaX_fsus==X_INT,; VE'=paL.tMexp1tzstoue ciEeitial /list=uaKioX_INT,; VE',paL.tMexp1tzstoue ci_EN /**?lds ) r Lal ex,; VE',pa)Kiof exp1tzstoue cir Lal expstepfH)osiekef-FIRSyrbKa_Ade1(fsfsOP_PUSHINTot1oo t(fst fmen stepfH)osinew_at"urvrbtzsotls */ ot0oo UNnew_at"urvrbtok); VE (-tzsot"ot1oo UNnew_at"urvrbtok); VE (stept"ot2)Re *ee body); VE3fsOP_FORPREPfsOP_FORLOOPX_Hs to locvarfs, Aee yfs) ff[8]; is pzsot.zsop[i] index*/ )} _dRee yfs) -> (es ,(es >IN/exp1 ee bodyuh2 cH.zsop[i] lsln me;-avX_INT,; VE',paL.tMlsln megfAmfc_X_INTumb)tzsto f _hncepowtes) is dirty,fs,omO_Jwas `in'f p[i]a MAXSRC Ae_NO_d.r]iL, "f2u.; v >u.zTtaX_tafs f sP(L8AMEes ) liyntax jump; .v2sP(Ltts->>lSal `%.30"inkt).; v >u.z"`in'f , /*`$"t, OP ENtzsto>n,C in; `in'fH)osiexp1tzstoni_hn L egH)osinew_at"urvrbtok); VE ( L e)"ot0oo UNnew_at"urvrb(zsotf(dex*/ ot1oo UNnew_at"urvrbtzsotlsl*/ ot2)Re *ee body); VE3fsOP_LFORPREPfsOP_LFORLOOPX_Hs to locvarfs, Aee locuff[8]; is pzsotf(eu-t t)} _dRee locu-> me Tdeu|Ree yfs) h2 cHFa ]; is pfsU,ftaX_fsus==.zsop[i] ls */ 2*pB = lces fblo ntekfd:p = ,fsfs&bltaH)f ENtzsto>n,C in; `fAa'fmum tls */ gfAmfc_X_INTumb)tzsto _dRet.a v+c wvar [i].luaKiocUSERDATyntax d: lpau USERDATA:v'=': me Tdetzsotls */ to { dumbeu{ATA:v',': me li e,zsotls */ to { dumbeu{ infd yrbKaK_cod jumpr`='=t `,' , /*`$"t, OP} 0xX_INT_ma { ,; VE8AMENDVE8AMFOR, -t to 0xyeavep = ,fsfs&bltaHs to locvarfs, Ates)_ sen_b st tof[8]; is pzsotexp *sc *vt)} _dRtes)_ sen_b st t-> [IFu|RELSEIF]R oe$'THENto l>>>>>>>k ENtzsto>n,C in; IFut ELSEIF Aoe$); VEv)us==Ae_NO,; VEDOTTHENto f o bttls)u t(fs` sen' part H) Lex to loclsar/if locuff[8]; is pzsotf(eu-t t)} _dRif locu-> IF oe$'THENto l>>>{ELSEIF oe$'THENto l>>} [ELSEto l>>]tENDuh2 cHFa ]; is pfsU,ftaX_fsus==exp *sc v 2*pode1*scapeli ef->sO_JUMPlcuftes)_ sen_b st ); VE&v)u _dRIF oe$'THENto l>>>*)ositicr_sitaX_tafs f sP(L8AMELSEIFs L eMb{neKaXtEh T,fsfs&*scapeli efs{neKaj mp(fs-)Re *0xyrbK_ a { li e,fsfsl.u.l.f,tt)vK_getlces (fs->Re uftes)_ sen_b st ); VE&v)u _dRELSEIF oe$'THENto l>>=uaKioU tefslaX_tafs f sP(L8AMELSEs L eMb{neKaXtEh T,fsfs&*scapeli efs{neKaj mp(fs-)Re *0xyrbK_ a { li e,fsfsl.u.l.f,tt)vK_getlces (fs->Re uf ENtzsto>n,C in; ELSEtuaKio o bttls)u t(fs`ekef' part H) );op[tMkef-FIRSyneKaXtEh T,fsfs&*scapeli efsl.u.l.f)us=={neKapa { li e,fsfs*scapeli efs{neKagetlces (fs->Re aC_NO_ma { ,; VE8AMENDVE8AMIF, -t to Lex to loclsar/nd"ur locuff[8]; is pzst)} _dR locu-> LOCAu (es >{',' Ees } ['='f , lfs)1].d?lds nsinvrbsuv >u.l. (euNExpr;oiodo L eMb= ENtzsto>n,C in; LOCAu t ', luaKion new_at"urvrbtzsot fcAX_INTumb)tzstVEN== r++t, OP} ticr_sitaX_tafs f sP(L','s_syntefsr Lal ex,; VE'=pa)Kiof zsps v , lfs)1tzsto f Mkef-FIRS zsps v 0us==adjust_mult_asn lotzsotN== rotNExpr);oioadjustat"urvrbstzsot*ls sto Lex to locode1fa umb) call? kith'zsotexp *sc *vt)} _dRfa umb) -> (es >[':' Ees >| '.' Ees ].d?lds nsinEGoeelu v 0us==sp[i{evrbf2u.z fcAX_INTumb)tzstVEvX_syntefslaX_tafs f sP(L':'=|| taX_tafs f sP(L'.'s L eMb= Goeelu v slaX_tafs f sP(L':'>Re uf ENtzsto-FIRSyneKato*/t T,; VEvot1oo-FIRSyneKa== rf2u.zX_INTumb)tzstto >untv = v VINDEXsop)t U }(lf f= Goeeluimif lces to l jumREh locuff[8]; is pzsotf(eu-t t)} _dReREh locu-> lfs, l(o fa umb) bodyuh2 cH nsinEGoeeluus==exp *sc v 2*p= ENtzsto>n,C in; lfs, l(o >>>>k Goeelu v fa umb)); VE&v)us==body); VENEGoeelunc-t to 0xyrbKastTAevrbf2u.z&vto Lex to loclsar/[i"arlocuff[8]; is pzst)} _dR locu-> fa u| ['%'] Ees >asn lononmfuaKioFa ]; is pfsU,ftaX_fsus==exp *sc v 2*pvrc_or_fa ,; VE&vX_syntefsvGusunLVEXP)emum_dRilocu-> fa u Ae_NO_d.r]iL, "f2u.zyrbKa%stvis iGC(fs-VE t s"Nt2u); "t,ue ci \=t,e&f->>>>>>>pUMyrbKasete juedef s (fsfs0* Se */ ju>s; isnonm shes ln c lslos H) );op[tMkefemum_dRilocu-> ['%'] Ees >asn lononmfuaKio ode1leftum*asn lononm,; VE&vot1oo-FIRSyneKaadjust*/t T,fsfsleft* Se *edl(&o eventufregarb,>>>leftuondut; decs)>ulocvar locvarrLet ederlocuff[8]; is pzst)} _dR locu-> RETURN , lfs)fuaKioFa ]; is pfsU,ftaX_fsus=== ENtzsto>n,C in; RETURN *?lds ) !g*emu_foTos Tyntax d: lpa)Kiof explfs)1tzstoue cir Lal exp }(lf fe&f->tloc; yrbKa_Ade1(fsfsOP_RETURN,ftaX_fsX_nacion s;ffpfsX_)lscklevelu=tfsX_nacion ->n,C edl(&osti,)ftempfe&f->tloc;cvar locvarrLet b = rlocuff[8]; is pzst)} _dR locu-> BREAK [Ees ].d?ldsFa ]; is pfsU,ftaX_fsus==>/elcurrentlevelu=tfsX_(fscklevellcufB = lces f*b*u=tfsX_blo nt ) !g*o UMPKyrbKaK_cod jumprnif(LSpHe nb = "t, OP ENtzsto>n,C in; BREAK buffpc)vK_adjust*/t T,fsfscurrentlevelu-fblze)lscklevelto 0xyrbKaXtEh T,fsfs&blzeg = li e,tt)vK_j mp(fs-)Re *_dR orrece1(fsck ee ncompilof fAsymbolvarexecuL, "fbuffpc)vK_adjust*/t T,fsfsblze)lscklevelu-scurrentlevelto Lex to locode1c)vP_rlocuff[8]; is pzst)} >/elstlh O_taX_ d: lpaLex,s, co=rknATANEGoed ee ne ; struu),>>s cs)>u USERDATyntax d: lpau USERDATA:v8AMIF:Dmum_dRilocu-> if locuuaKion HNSf locf2u.zyt to 0x >u.ETARP(L>u.l.+ }USERDATA:vu.lWHILE:Dmum_dRilocu-> ticr_ locuuaKion HNticr_ locf2u.zyt to 0x >u.ETARP(L>u.l.+ }USERDATA:vu.lDO:Dmum_dRilocu-> DO(b st tENDuh2 cH eMb= ENtzsto>n,C in; DO( { bttls)us== Ae_NO_ma { ,; VE8AMENDVE8AMDO.zyt to 0x >u.ETARP(L>u.l.+ }USERDATA:vu.lFOR:Dmum_dRilocu-> ee locu ee locf2u.zyt to 0x >u.ETARP(L>u.l.+ }USERDATA:vu.lREPEAT:Dmum_dRilocu-> , pi}p locu , pi}p locf2u.zyt to 0x >u.ETARP(L>u.l.+ }USERDATA:vu.llfs, l(oNemum_dRilocu-> fa locu ea locf2u.zyt to 0x >u.ETARP(L>u.l.+ }USERDATA:vu.lLOCAuNemum_dRilocu-> nd"ur locu>>>>pUMPKyd"ur loctls)us== ETARP(L>u.l.+ }USERDATA:vu.lEes d ATA:v'% tf(um_dRilocu-> [i"arlocuh2 cH eMb=i"arloctls)us== ETARP(L>u.l.+ }USERDATA:vu.lRETURN:Dmum_dRilocu-> , p locu , trloctls)us== ETARP(L1fs, co=u ATAyauffcs isnonm >>>>pUM}USERDATA:vu.lBREAK:Dmum_dRilocu-> b = rlocu { drloctls)us== ETARP(L1fs, co=u ATAyauffcs isnonm >>>>pUM}USERD infd (f nto yrbKaK_cod jumprpUM}USElocvar locvarrLet paryfs) ff[8]; is pzst)} _dRparyfs) -> [ paramu{ ',' paramu} ].d?lds nsinparamsu=t0*lds nsi,otru=t0*lds h TtaX_tafs f s!tr') =pmum_txnew`paryfs)' lneH}mpty>>>>>>pUMdo L eMb>u Et:{ ) yntax d: lpau USERDakRDATA:vu.lDOTS:b= ENtzsto>,otru=t1;[c] lluabeu{ RDATA:vu.lEes d new_at"urvrbtzsot fcAX_INTumb)tzstVENparams++t,[c] lluabeu{ RD infd yrbKaK_cod jumpr HEA`...' , /*`$"t, OP>pUM}USERD} ticr_si!,otru&& r Lal ex,; VE',pa), OP} 0xXAderparams); VENparams2-,otr)o Lex to loclsar/bodyuff[8]; is pzsotf(euNEGoeeluncSia -t t_tm >80(bodyu-> '(' paryfs) ') l of(uENDuh2 cHFa ]; is new_fsus== iGC_fa (; VE&new_fsoo UNnew_fs.1(fstlhD(SHHEduv yfne;-avX_INT,; VE'('s_syntefsNEGoeelu))} Anew_at"urvrbtok); VE eelu"arget slefadjustat"urvrbstzsot1oo UN paryfs)tls)us==aC_NO(; VE')paL.tM of(tls)us==X_INT_ma { ,; VE8AMENDVE8AMFfs, l(o, -t to 0x kkem_fa tls)us==pushU, pUM(; VE&new_fsoo e===urn}=====================Code gtestgo(fs, r ofpc (tion dcse er0 inst, NO r {Rilocu[';']u}.d?lds nsiisyauff=t0*ldsticr_si!isyauff&& !g*emu_foTos Tyntax d: lpa)nuff n syauff=tc)vP_rloctls)us== r Lal ex,; VE';'-us== ataecandteGtaX_fsX_)lscklevelu==ftaX_fsX_nacion uyAL, v" v2->}kCE"(fsck n'c; !tr# infdlufs"t, OP} Le===ARSERe jump taX_eeifalorc//, relex/. mlux72cs is/* inc20 16:39:c/lcs is/*h 55*48 ** $Lexi30 16:29:59dlus h *manipulSomGsol e ]; isor Lugenerator enerator en in luyright #includCopyright lex/las.h * see lua-4.0/src/lcodex.h **/ /* skipped: lmem.h * see lua-4.0/src/lge.h */ /* skgnd: llex.h * see lua-4.0/src/lco.h*/ /* skippedpped: llex.h * see lua-4.0/src/lcode.h */ /* skipped: lmem.h * see lua-4.0/src/lcs is/* skipped* zsopd: llex.h * see lua-4.0/src/lcode.h */ /* skAL, vd: llex.h * seee lua-4.0/src L e.h */ /* skAL, vd: llex.h * seee lua-4.0/src e.h */ /* skipped: lmem.h * see es tdy= DEBDEBUGi locvaren voifs, lto 2_ifs,ta RRR struu),B_ iGCtes)sopen voifs, et, orc//, rc20 16:built-eneimplenonm L, "fee n/2->uMESSAGE. I) " orrece" enviroononmoC, E2->uMESSAGE ihp ld>hn; an=exter expf(SHHiL, "UM \2-soith n lf->c rypwp ld>lneHATAused. 2u.zsopcvaode1*_codruu),>>>pen voifs, ete{ e)xrbuff[TOKEN_f=tc)vato*/.z))tLot1oo UNt se=sunL, v{M _f=t"(T i=uu),>>)";ffpf_syntaxmu *ri lc*_cod: %s\nk"asto f wh2->u0o e===ur====tiGCaparttl+=`to=rkncashesodeory-i, f L, "f*_cod 2u.zsopcvarLet f_c)vtiGCapen voifs, e1(rLet *udt)} >/elslsckn'c; ;>*fid/ *)udo UNt se=lsckn'c; ;hte (f ntslsckn'c; ;>DEFAULX_STACK_SIZEo f Mkef-FIRSslsckn'c; +== DEBMINSTACKo f L->gff=tc)vH>>lSaC_a10toni_hn L egof#bsol etloc; yrbD_initaC_aslsckn'c;to 0xyrbS_initaCto 0xyrbX_initaCto 0xyrbT_initaCto 0xyrb>>lS L eaCto 0xyrb>reftLot1oo _dR i}pe regoderyloc; yrb_regodesrtLot DEBE2->uMESSAGE,1*_codruu),>>); es tdy= DEBDEBUGi uu),B_ iGCtes)saCto 0x h Ttto 2_ifs,tnL, v{M lto 2_ifs,taL Se *keep&et.a 2_ifs,e nb_s iGHEdu*aKorc//, FIataecandteGtto gettopaCtl==usem"=r.*)uAPIaslsckto locvaataecPIaen voifs, lto tiGCap>/elslsckn'c;'lis *z,ATS.zsoTK_Efet)vwn>lSa, v{r"z,ATS.zsoto 0x h TL,tnL, v{M m(r1ATA RRs, co=deory i, f L, "f*_codloc; LX_)lsckOta RRRUNLX_)lrt.n'c; ;>LX_udt.n'c; ;>0RRUNLX_)lrt.nshes;>LX_udt.nshes;>0RRUNLX_)lrt.hashOta RRRUNLX_udt.hashOta RRRUNLX_M taXerOta RRRUNLX_M taXn'c; ;>0RRUNLX_roott} - =ta RRRUNLX_rootcl=ta RRRUNLX_root L egta RRRUNLX_TM L egta RRRUNLX_yauf_ta ==--1RRUNLX_refArrrknta RRRUNLX_refS'c; ;>0RRUNLX_refFreegta ONEXTRRUNLX_ng*emu_f=tn'c;of(z,ATS.zsoto 0xLX_GCthARShold->}E jump u_c "fdf-O_JwarGC duop[i]pre-f(SHHiL, "sloc; LX_/ juhookOta RRRUNLX_-t hookOta RRRUNLX_i, fwhookru=t1;RUNLX_*_codJmpOta RRRUN h TttoD_runt} - /*`$ '1)f_c)vtiGCVE&slsckn'c;'l!hte ho-FIRS co=deory i, f L, "f*_cod: freegpartiau>s; is>>>>>pUMyrb_ kkemaCto 0x m(r1ATA RR UN LX_GCthARShold->}2*LX_ng*emu_o f wh2->uL locvaataecPIa struu),_ kkem>pen voifs, ete{ e)ataecandteGLl!htlto 2_ifs,|| tto gettopaCtl==usem"garb,>>>eneCaslsckto lUMyrbC_coTo /*tLot1oo _dR oTo /*ti,)fauononmsdoc; LtaecandteGLX_roott} - =tnL, v{r">yfs) ihp ld>bew}mptyto l/*ataecandteGLX_rootcl=tnL, v{r">yfs) ihp ld>bew}mptyto l/*ataecandteGLX_root L egtnL, v{r">yfs) ihp ld>bew}mptyto l/*yrbS_freei,)aCto 0x h TLX_)lsck (f ntLX_ng*emu_f-= TLX_)lscka%stv */LX_)lsckO+t1o*n'c;of(TObj /*o l/*yrbM_freetLot X_)lsck RRUNLX_ng*emu_f-= TLX_yauf_ta +1o*n'c;of(cs-dcseTMo l/*yrbM_freetLot X_TM L e RRUNLX_ng*emu_f-= TLX_refS'c;o*n'c;of(cs-dcseRefo l/*yrbM_freetLot X_refArrrk RRUNLX_ng*emu_f-= TLX_M taXn'c;o*n'c;of([TOKo l/*yrbM_freetLot X_M taXero l/*ataecandteGLX_ng*emu_f==tn'c;of(z,ATS.zsotem"=r.*)ucp Lt HEAlg*emu_"o l/*yrbM_freetLot o l/*ataecandteGLl!htlto 2_ifs,|| =dedebug_==("*emu_f==tsem"=deory leak!to l/*ataecandteGLl!htlto 2_ifs,|| =dedebug_totalf==tse"=deory leak!to l Le===ARSERe jump taX_eeifalelex/. mlux72cscode.* inc20 16:39:c/lcscode.*h 55*45 ** $Lexi30 17:49:19dlus h *manipulSomzsop[i] L eg(keepsti,)fcscodes hnndlEduby Lua)or Lugenerator enerator en in lcode.hht #includCopyright lex/las.h * see lua-4.0/src/lcodeode.h */ /* skipped: lmem.h * see lua-4.0/src/lobj /*.h */ /* skipped: lmem.h * * see lua-4.0/src/l is/* skipped* zsopd: llex.h * see lua-4.0/src/lcode.h */ /* skAL, vd: llex.h * see==ur====typesalcivaled/ d:=.zsop[i,fs,om"eDOSmaximumti, lononmfralcirsnonms==/ un, "fL_U.zsop[i]{ e).zsop[i]tr_synun, "fL_Umaxi, lo dummyu_c "f U pUMsSmaximumti, lononmf HEA` inf' udata uaK l i R struu),S_init>pen voifs, ete{ e)aX_)lrt.hashOtat)vwn>lSst); aK_1ju.zsop[i] s;ffpLX_udt.hashOtat)vwn>lSst); aK_1ju.zsop[i] s;ffpLX_ng*emu_f+= 2*n'c;of(Tzsop[i] s;ffpLX_)lrt.n'c; ;>LX_udt.n'c; ;>1;ffpLX_)lrt.nshes;>LX_udt.nshes;>0RRUNLX_)lrt.hash[0]s;>LX_udt.hash[0]s;> RR }i R struu),S_freei,)>pen voifs, ete{ e)ataecandteGLX_)lrt.nshe==sem"T n-empty ssop[i] L e" RRUNLX_ng*emu_f-= TLX_)lrt.n'c; +>LX_udt.n'c;)*n'c;of(Tzsop[i] s;ffpyrbM_freetLot X_)lrt.hasho l/*ataecandteGLX_udt.nshe==sem"T n-empty udata L e" RRUNyrbM_freetLot X_udt.hash)o Lex to locunn lo>= l.*)uhash_sopxrbuff[TOKEN_,tn'c;_t *tf(eufunn lo>= l.*)uhOtato>n,C iee n'c;_t stepfv sl>>5)|1fs, co h ssop[i] ntoo l.*)2-,on'tuhash ju>itef[TOKsxh2 cHNEGNUs l>=steps l-=step (f nthOtah ^ ((h<<5)+(h>>2)+(unn lo>= [TOKo*(s++tto f wh2->uhR }i R struu),S_UMs'c; pen voifs, e1(ssop[i L egHtbotf(euNEwn'c;'lis *Tzsop[i] *NEwhashOtat)vwn>lSst); aK_NEwn'c;ju.zsop[i] s;ffpode1+ } TS.zsopkNEwn'c; luonNEwhash[i]Ota RRRUN===ARhashOh2 cHNEGNUS.zsopktbX_)'c; luono-FIRS.zsop[i] pfv tbX_hash[i]o 0x ticr_sip=pmum_txee neaRDAnt, O)) s_dyfs) .zsop[i] *epow= pX_nepohasho>n,C in; *epow unn lo>= l.*)uhOta(tbf==t& X_)lrt) ? pX_assehashO: IntPoode(pX_asd.e&f->t, OP>pUMode1h1Otah&(NEwn'c;-1oo _dRcewnposiL, "fbuffp== ataecandteGh%NEwn'c;f==t(h&(NEwn'c;-1o)uyAL, v" v2->}kCEEEEEE"a&(x-1=p==ta%x,xee nxstr-of of 2"t, OP>pUMpX_nepohash n= whash[h1]o _dR hoin itu)) cewnposiL, "fbuffp== = whash[h1]w= p, OP>pUMp n= ENu.l.+ }USE}RUNyrbM_freetLottbX_hashs;ffpLX_ng*emu_f+= (NEwn'c; */tbX_)'c;)*n'c;of(Tzsop[i] s;ffptbX_)'c; n= w)'c; ffptbX_hash n= whashces to locvarfs, Anewonmry pen voifs, e1(ssop[i L egHtbotTzsop[i] tsotf(euhono-FItsX_nepohash ntbX_hash[h]o _dR hoin cewnonmry buffptbX_hash[h] nts ffptbX_nsherfRe * h TtbX_nshe > pef(e32)tbX_)'c; &&ptbX_)'c; <}E jump /2)_c "fdfo crowded>>>>>>pUMyrbS_UMs'c;tLottb,ptbX_)'c;*2)o Lex Tzsop[i] tts->>lSltokefen voifs, e1(xrbuff[TOKEN_-kjun'c;_t *tf(eufunn lo>= l.*)uhOtahash_s(_-kjuls;ffpode1h1Otah & TLX_)lrt.n'c;-1oo UNTzsop[i] ts } Ttru=tLX_)lrt.hash[h1]o ts tru=ttsX_nepohashonuff n nartsX_lf sP(Ll &&p(odecmp(_-kjutsX_)lkjuls ;hte >u.l.f); TARG_Bts gs) _hncr_top L) buffptru=t(Tzsop[i] syrbM_mi, f aC_as'c;uu.z))tztto f tsX_markEduv 0;-FItsX_nepohash n RRRUNtsX_lf sP lRRUNtsX_assehashO=uhR UNtsX_assexrbufindexgfA0;-FIodecpy(tsX_)lkju_-kjuls;ffptsX_)lk[l]um*;lue circ//*)u0loc; LX_ng*emu_f+= s'c;uu.z))tzto UNnewonmryaC_alLX_)lrtjuts,1h1toue ciEes h ituonn L egH)osi TARG_Bts }ex Tzsop[i] tts->>lSudata pen voifs, e1(s'c;_t s1(rLet *udatatf(eufun, "fL_U.zsop[i]*utru=t(un, "fL_U.zsop[i]*syrbM_mi, f aC_yAL, v" v2->}kCEEEEEEEEEEEEEEEEEEpef(e32)n'c;of(un, "fL_U.zsop[i)+soo UNTzsop[i] tsu=t&utsX_ts ffptsX_markEduv 0;-FItsX_nepohash n RRRUNtsX_lf sP sR UNtsX_asd.ta ==-0R UNtsX_asd./list==t(udata tnL, v{M ? uts+1O: udata;ffpLX_ng*emu_f+= s'c;uu.z))tsoo U ciEes h ituonn L egH)osinewonmryaC_alLX_udtjuts,1IntPoode(tsX_asd./list) & TLX_udt.n'c;-1o);osi TARG_Bts }ex Tzsop[i] tts-> i}peudata pen voifs, e1(rLet *udataotf(euta t)} >/elh1OtaIntPoode(udatatf& TLX_udt.n'c;-1oo UNTzsop[i] ts } Ttru=tLX_udt.hash[h1]o ts tru=ttsX_nepohashonuff n narudata tnLtsX_asd./list=&&p(ta ===NtsX_asd.ta =|| ta ===NataecNYTAG >u.l.f); TARG_Bts gs) _hncr_top L) buffptru=ttts->>lSudataaC_asemudatatRe * h Tta =!=NataecNYTAG u.l.ftsX_asd.ta ==-ta ;osi TARG_Bts }ex Tzsop[i] tts->cewnfen voifs, e1(xrbuff[TOKEN_-konuff }(lf flts->>lSltokaC_aslkju_-klf (_-k->Res toTzsop[i] tts->cewfixEdufen voifs, e1(xrbuff[TOKEN_-konuff Tzsop[i] tsu=tlts->>lSaC_a)lsX_syn nartsX_markEduvhte htsX_markEduv FIXMARK,ue ci _JwarGC H)osi TARG_Bts }ex===ARSERe jump taX_eeifalelex/. mlux72 L e.* inc20 16:39:c/l L e.*h 55*58 ** $Lexi26 12:47:05dlus h *manipulSomLua L esophashoor Lugenerator enerator tl } +=`to L egn'c;).s16:BecashesVAL s`t,n s_dyo saf(n VAL s_he L esocan=be 100%g"eDOoues16:per }malueVpennfties. ue iof(SHHEATagD fmen ataeT l(on inc20====edef s e s_d`Coin' posiL, "fonaan=euononmfi) L eg(+=`tois,w setf(dex====tfoits hash /list) = l.*)uh_syn USERDATAtype(keytau USERDATA:vataeTELel(oNu.l.f);hu=t(unn lo>= l.*))(l.*))nt>lrkfkeyt, OP>pUM{ dumbeu{ATA:vataeT. lpa)u.l.f);hu=ttst>lrkfkeytX_assehash, OP>pUM{ dumbeu{ATA:vataeTUndtDATA)u.l.f);hu=tIntPoode(tst>lrkfkeytt, OP>pUM{ dumbeu{ATA:vataeT l(on)u.l.f);hu=tIntPoode(ht>lrkfkeytt, OP>pUM{ dumbeu{ATA:vataeTlfs, l(oNu.l.f);hu=tIntPoode(clt>lrkfkeytt, OP>pUM{ dumbeu{ inf:>>pUMPKm(r1ATA RRs, coEe1(fs, key H) );op[tataecandteGh%(unn lo>= odettX_)'c; =t(h&((unn lo>= odettX_)'c;-1o)uyAL, v" v2->}"a&(x-1=p==ta%x,xee nxstr-of of 2"t, OPm(r1ATA&tX_nt, [h&(tX_)'c;-1o]ces to locvarxrbuffTObj /* *ttsH_getanyAfen voifs, e1(xrbuffHashOht1yAL, v" v2->}kCEEEEEEEEEEEEEEEEEE (xrbuffTObj /* *keytf(eufNt, ] nf=tc)vH>CoinposiL, "(t1(keyt, OP ) !no UMPKyrbaK_cod {r"> L egindexgis lil"to f MkefMdo L eMb h TttoO_alceTObjfkeyVE&n->keytt>>pUMPKm(r1ATA&n->1(fumbeu{nf=tnX_nepo g ticr_sint, OPm(r1ATA&ttoO_lilobj /* Se *keyncr_top L) bufe===urnspecialized vers, "fee nlpaLexsxh2 xrbuffTObj /* *ttsH_getTdeufxrbuffHashOht1(Kde.re keytf(eufNt, ] nf=t&tX_nt, [(unn lo>= l.*))(l.*))key&(tX_)'c;-1o]ce Mdo L eMb h TAtype(&n->keyt===NataeTELel(o=&&pnt>lrkf&n->keyt===Nkeyt>>pUMPKm(r1ATA&n->1(fumbeu{nf=tnX_nepo g ticr_sint, OPm(r1ATA&ttoO_lilobj /* Se *keyncr_top L) bufe===urnspecialized vers, "fee ncscodes h2 xrbuffTObj /* *ttsH_gettokefxrbuffHashOht1(Tzsop[i] keytf(eufNt, ] nf=t&tX_nt, [keyX_assehash&(tX_)'c;-1o]ce Mdo L eMb h TAtype(&n->keyt===NataeT. lpa &&ptst>lrkf&n->keyt===Nkeyt>>pUMPKm(r1ATA&n->1(fumbeu{nf=tnX_nepo g ticr_sint, OPm(r1ATA&ttoO_lilobj /* Se *keyncr_top L) bufe===xrbuffTObj /* *ttsH_getAfen voifs, e1(xrbuffHashOht1(xrbuffTObj /* *keytf(euf USERDATAtype(keytau USERDATA:vataeTELel(oN }(lf fltsH_getTde(t1(nt>lrkfkeytt, OP>pATA:vataeT. lpa) }(lf fltsH_gettokatjutst>lrkfkeytt, OP>p infd }(lf fltsH_getanytLott1(keyt, OPlocvarNt, ] ttsH_*epowfen voifs, e1(xrbuffHashOht1(xrbuffTObj /* *keytf(eufode1+ h TAtype(keyt===NataeTEILt>>pUMium*;lue ciet.a itGoat-kefH)osiekefem E (xrbuffTObj /* *vf=tc)vH>gettLott1(keyt, OPyntefsvf==t&ttoO_lilobj /* (f nto yrbaK_cod {r">Ee1(fs, key HEA` EN ")Re *0xfu=t(odet((pxrbuff[TOKEN)v -yAL, v" v2->}kCEpxrbuff[TOKEN)(&tX_nt, [0]./litau/ n'c;of(Nt, >O+t1 gs) NEGNUs i>pUMUN wh2->uno t U }(lf f RRs, coT i=vp auononmsdoc;e===ur====mry e nctl(&o a key "eDOouei/list=udata L e. Tf-O_JwarplusrU>e "eDO====hash.zX_ang_d`key' NEGNaiTde.bsc"eDOS s_dsmb) hash. lrkfkeytX_lf s<= 3e >u.ledef so>n,C do cr_tctl(&o lpaLexsxne ncmi,)fcscodes H)osiekefem E (/==mry e nSHHdNaiTde.bsc`n' "eDOS s_dsmb) hash asd`key' >>>>pUMNt, ] mpf=tc)vH>CoinposiL, "(t1(keyt, OP==>/eln O_mpf- &tX_nt, [0]; E (/==mak_dsup ` ' is lneHi) `N luaKion ticr_sittsH_getTde(t1(n)n!=N&ttoO_lilobj /* u USERDaktefsN >>}E jump */tX_)'c;)yAL, v" vedef so>n,C give up;ATA:-O_Jwar(&orflow)fbuffp== =f+= tX_)'c; ffp==}USERDAtype(keyt==NataeTELel(oumbeu{nt>lrkfkeytf=tnumbeu{ataecandteGttoH>CoinposiL, "(t1(keyt===Nmpr">canlneHX_ang_dhash"t, OP} Lei locvarfs, AsetTt, st); wfen voifs, e1(HashOht1(ef(e32 n'c;'lis *ode1+ h T)'c; >}E jump o UMPKyrbaK_cod {r"> L eg(&orflow"t, OPtX_nt, Otat)vwn>lSst); aK_n'c;juNt, } TS.zsopk(odet)'c; luono-FIRSAtype(&tX_nt, [i].keytf=tAtype(&tX_nt, [i]./lit =NataeTEILumbeu{tX_nt, [i].*epow= RR UN LX_ng*emu_f+= gcs'c;tLotn'c;'l- gcs'c;tLottX_)'c;), OPtX_)'c; n)'c; ffpt->et.a freegta&tX_nt, [)'c;-1]lue ciet.a freegposiL, "f+oHATAuseddoc;e===HashOhc)vH>>lSwfen voifs, e1(>/els'c;'lis *HashOhtEfet)vwn>lSae1(Hash), OPtX_hta ==-TagD fmen, OPtX_nepow= LX_root L e;ffpLX_root L egtan, OPtX_markgtan, OPtX_n'c; ;>0RRUNLX_ng*emu_f+= gcs'c;tLot0t, OPtX_nt, Ota RR UNsetTt, st); tLott1(ttoO_tr-of2T)'c;o);osi TARG_BtR }i R struu),H_freewfen voifs, e1(HashOhtte{ e)aX_ng*emu_f-= gcs'c;tLottX_)'c;), OPyrbM_freetLottX_nt, ), OPyrbM_freetLottto Lex to locode1TdeshesfxrbuffHashOhttf(eufNt, ] vf=ttX_nt, ;ffpode1n'c; ;>tX_)'c; ffp>/el, >lrhes;>0RRUNode1+ } TS.zsopk)'c; luono-FIRS h TAtype(&v[i]./lit !=NataeTEILt>>pUMUN w>lrherfRe *U }(lf f w>lrheaHs to locvarfs, A, hash fen voifs, e1(HashOhtte{ e)id/ rldn'c; ;>tX_)'c; ffpNt, ] nold->}tX_nt, ;ffpode1 rU>e ,fTdeshe(ts;ffpode1+ ataecandteG rU>e<=rldn'c;em"=r.*)ucp Lt"X_syntefs rU>e >>}rldn'c;-rldn'c;/4)_c "fusp[ii=vp +=`n'3/4>>>>>>pUMsetTt, st); tLott1(pef(e32)rldn'c;*2to f MkefMtefs rU>e <>}rldn'c;/4 &&p>80(yess +=`n'1/4>>>>>>pUMMMMMMMMrldn'c; >}EINPOWER2)>>pUMsetTt, st); tLott1(rldn'c;/2to f Mkef>>pUMsetTt, st); tLott1(rldn'c; } TS.zsopkrldn'c; luono-FIRSNt, ] old->}nold+i, OPyntefsAtype(&old->1(ft !=NataeTEILt>>pUMUNhc)vH>settLott1(&old->keytf=told->1(fRe *U yrbM_freetLotnoldto _dRereewold-arrrkdoc;e===ur====Ees h s a key f(e:-Ouhash L e;iet.a .zX_INTows_ sef key fs====al"} y]presonm;nteflne.zX_INTows_ sef key's Coin posiL, "f n ree_s16:teflne.zX_INTows_ sef oToi//*)unt, O)s:in its Coin posiL, "fe nlot_s16:tefimfis lne, l(&o oToi//*)unt, Oe:-On empty placeM \2-pueuNEw keys16:in its Coin posiL, ";ro sefwihesfxrToi//*)unt, O)s:in its Coin posiL, "),s16:NEw key goesOe:-On empty posiL, ".s1/ TObj /* *ttsH_setAfen voifs, e1(HashOht1(xrbuffTObj /* *keytf(eufNt, ] mpf=tc)vH>CoinposiL, "(t1(keyt, OPNt, ] nf=tmp, OP ) !mpo UMPKyrbaK_cod {r"> L egindexgis lil"to f do _dR hINTows_ sef `key' is somewheres)) s_d hoin uaKio oh TttoO_alceTObjfkeyVE&n->keytt>>pUMPKm(r1ATA&n->1(funi_hn sat's i,)fuaKio MkefMnf=tnX_nepo g ticr_sint, OP(fs`key' cr_top L);o=u Ees h itu*?lds ) Atype(&mp->keytf!=NataeTEILt s, co=rin posiL, "f ncr_toree? >>>>pUMNt, ] o sefn;s, co=rin posiL, "fof rToi//*)unt, OuaKion n->}tX_et.a freeo>n,C getAa freegplaceMuaKion _txnew rToi//*)unt, Ooueitfoits =rin posiL, "?sfxOn , ohappens:if>>pUMMMMits posiL, "f naf.bsc"et.a free") uaKio oh Tmpf> n-&&p(o sefn=c)vH>CoinposiL, "(t1(&mp->keyttf!=Nmp u USERDak_txyes; l(&o oToi//*)unt, Of(e:-freegposiL, "fuaKion HNticr_p(o sefnX_nepow!=Nmp uo sefn tro sefnX_nepo ue ciet\2-previousw>>>>pUMPKo sefnX_nepow=tnuUN===ARdo s_d hoin "eDOS` ' ingplaceMtfo`mp luaKion HN nf=t mpo _dR opy oToi//*)unt, Of(e:-freegpos. TmpX_nepowalso goes)fbuffp== mpX_nepow=f RRs, coT wo`mp l n ree >>>>pUM}USERDMkefemum_dRxrToi//*)unt, O)s:in its own Coin posiL, "fbuffp== _dRcewnnt, Owi,)fgoOf(e:-freegposiL, "fuaKion HNnX_nepow=tmpX_nepoo _dR hoin cewnposiL, "fuaKion HNmpX_nepow=finu.zcp0xmpf=tsombeu{}USEU mp->keyf=t key } T;;)emum_dRxrrrece1`et.a free' uaKio oh TAtype(&tX_et.a free->keyt===NataeTEILt>>pUMUN wh2->u&mp->1(funi_hnOK;o L egnti,)fhasAa freegplaceMuaKion MkefMtefst->et.a freegt>}tX_nt, )M{ duSe */ nlneHdecrsnonm=udataheresuaKion MkefMst->et.a free)--Re *U }hashtLotttos, coT i=vp freegplacesfH)osiET(lf fltsH_settLott1(keyt,OP(fs` }hash'oEe1(fs,ifssith nEes h , "fuaKs toTObj /* *ttsH_setode1fen voifs, e1(HashOht1(ode1keytf(eufTObj /* index, OPttype(&indext==NataeTELel(oumbent>lrkf&indext==Nkey ET(lf fltsH_settLott1(&indextR }i R struu),H_settokTdeufen voifs, e1(HashOht1(Tzsop[i] key1(Kde.re 1(ft (eufTObj /* *t>lrk, index, OPttype(&indext==NataeT. lpaR UNtst>lrkf&indext==Nkey /list==tltsH_settLott1(&indextR OPttype(/list) =NataeTELel(oumbent>lrkf/list) =N1(fRee===xrbuffTObj /* *ttsH_getbsol eufen voifs, e1(xrbuff[TOKEN*/ )} }(lf fltsH_gettokaL->gf,tlts->>lSaC_a*/ o l Le===ARSERe jump taX_eeifal es ntdy=NOPARndtlelex/. mlux72 es)s.* inc20 16:39:c/l es)s.*h 55*54 ** $Lexi31 13:10:24dlus h *manipulSomInter expModuli ee nDebuggp[i]VAL s_mLua Implenonm L, "or Lugenerator enerator en inctype.hhto *> en in luyrighto *> en in lulibighto *> en in lcode.hht i20includCopyright lex/las.h * see lua-4.0/src/lcode.h * **/ /* skAL, vd: llex.h * seee lua-4.0/srcauxlibig lex/las.h * see luae lua-4.0/src.h * se* skippedpped: llex.h * e luae lua-4.0/srcdebug/* skipped* zsopd: llexebug/e luae lua-4.0/srcd.h **/ /* skipped: lmem.h * see lua-4.0/src/l lh **/ /* skipped: lmem.h * see lua-4.0/src/lode.h */ /* skipped: lmem.h * see lua-4.0/src/lop.h *s/ /* skippedpped: llex.h * see lua-4.0/src/lc/l is/* skipped* zsopd: llex.h * see lua-4.0/src/lcode.h */ /* skAL, vd: llex.h * seee lua-4.0/src L e.h */ /* skAL, vd: llex.h * see20includCopyrigdebug/* skippes.h * see luae lua-4.0/srcceTibig lex/las.h * see lua R struu),B_ iGCtes)sopen voifs, et, ==ur====Ts_mwholi moduli , omak_s senseg"eDOS DEBDEBUG "or/ es tdy= DEBDEBUGiLei locvarfs, AsetT/ v eufen voifs, e1(xrbuff[TOKEN*/ 1(ode11(ft (eufen push*/.z))tLot*/ toeufen push==("KENLotlsltoeufen set L eaC, -3)o e===ur==========================:05:Ed: l-JUM f-s infdlus (edcs====DisassemL er==========================Code gtestgo(fs, r ofpc (tion dcs RETURN"r">CALL"r">TAILCALL"r">PUSHEIL"r">POP"r">PUSHINT"r"euf"PUSH. lpa"r">PUSHEUM"r">PUSHEEGEUM"r">PUSHUPVALUE"r">GETLOCAu"r"euf"GETGLOBAu"r""GET l(on"r""GETDOTTED"r""GETINDEXso"r">PUSHSELF"r"euf"CREATE l(on"r""SETLOCAu"r""SETGLOBAu"r""SET l(on"r""SETLIST"r""SETMAP"r"euf"ADo"r">ADoI"r""SUB"r""MULT"r""DIV"r">POW"r">CAT");"r""MINUS"r""NOT"r"euf"JMPNn"r""JMPEQ"r""JMPLT"r""JMPLn"r""JMPGT"r""JMPGn"r""JMPT"r""JMPF"r"euf"JMPONT"r""JMPONF"r""JMP"r">PUSHEILJMP"r">FORPREP"r">FORLOOP"r">LFORPREP"r"euf"LFORLOOP"r">CLOSURE"K l i to locode1pushopufen voifs, e1(P} - =*p1(ode1pc)e{ e)x"noo taX[100]; E Iemumof(, "f w= pX_.h *[pc]; E OpCt, O =taGET_OPCODE(it, OPxrbuff[TOKEN*/ =taiemum*/ [o]; E s_syntax taXr">%5d le",tltsGagetline(pX_linemp; ,1pcK_1ju, v{M)_syn USERDAT( lpapModesyrbK_ ipr iGoties[o].mt, )MmumKion ATA:viO:>>pUMPKs_syntax taX+8r">%-12s"ot*/ toeufffff{ dumbeu{ATA:viU:>>pUMPKs_syntax taX+8r">%-12s%4u"ot*/ ,aGETARG_U(ittoeufffff{ dumbeu{ATA:viS:>>pUMPKs_syntax taX+8r">%-12s%4d"ot*/ ,aGETARG_S(ittoeufffff{ dumbeu{ATA:viAB:>>pUMPKs_syntax taX+8r">%-12s%4d %4d"ot*/ ,aGETARG_A(it,aGETARG_B(ittoeufffff{ dumbe}eufen push*/.z))tLot taX);osi TARG_B(o !trOPMENDto Lex to locode1yfs).h *>pen voifs, ete{ e)ode1pc;osiP} - =*p ffp>/el, soeufen L_argAX_INT({r"z,ATis lf->ctLot1of&& !z,ATisc lf->ctLot1o1yAL, v" v2->}kCEEE1r">Lua lf->c , /*`$"t, OPpf=tclt>lrkfz,AA_indextLot1o)->e.loeufen >lS L eaCto 0xsetT/ v e {r">maxslsckt, pX_maxslsckn'c; setT/ v e {r">lpaparamst, pX_lpaparamst, OPpcs;>0RRUNdo L eMben push==("KENLotpc+1oo-FIRSUMsS=1pushopNLotpotpc++oo-FIRSen set L eaC, -3)o g ticr_siresto f wh2->u1o Lex to locode1yfs)cscodes pen voifs, ete{ e)P} - =*p ffp>/elioeufen L_argAX_INT({r"z,ATis lf->ctLot1of&& !z,ATisc lf->ctLot1o1yAL, v" v2->}kCEEE1r">Lua lf->c , /*`$"t, OPpf=tclt>lrkfz,AA_indextLot1o)->e.loeufen >lS L eaCto 0x } TS.zsopkpX_l== r luono-FIRSen push==("KENLoti+1oo-FIRSyne push*/.z))tLotp->k)lk[i]X_)lroo-FIRSen set L eaC, -3)o g f wh2->u1o Lex to locode1yfs)yd"ur pen voifs, ete{ e)P} - =*p ffp>/elpcs;>en L_X_INT_ode(Lot2) le1 ffp>/elis;>0RRUNxrbuff[TOKEN*/ oeufen L_argAX_INT({r"z,ATis lf->ctLot1of&& !z,ATisc lf->ctLot1o1yAL, v" v2->}kCEEE1r">Lua lf->c , /*`$"t, OPpf=tclt>lrkfz,AA_indextLot1o)->e.loeufticr_si(*/ =taz,AFagetld"urumb)tpot++iotpcttf!=N, v{M-FIRSyne push*/.z))tLot*/ toeuf wh2->ui-1oc Le=========================>pi..h *DATA v pi_hncr_top LLLL lua Rx to locode1get_-tzso pen voifs, ete{ e)en >lS L eaCto 0xsetT/ v e {r">BITS_INT"r"BITS_INTto 0xsetT/ v e {r">LFPF"r"LFIELDS_PER_FLUSHto 0xsetT/ v e {r">MAXARG_A"otMAXARG_Ato 0xsetT/ v e {r">MAXARG_B"otMAXARG_Bto 0xsetT/ v e {r">MAXARG_S"otMAXARG_Sto 0xsetT/ v e {r">MAXARG_U"otMAXARG_Uto 0xsetT/ v e {r">MAXLOCAuS"otMAXLOCAuSto 0xsetT/ v e {r">MAXPARAMS"otMAXPARAMSto 0xsetT/ v e {r">MAXSTACK"otMAXSTACKto 0xsetT/ v e {r">MAXUPVALUES"otMAXUPVALUESto 0xsetT/ v e {r">MAXVARSLH"otMAXVARSLHto 0xsetT/ v e {r">RFPF"r"RFIELDS_PER_FLUSHto 0xsetT/ v e {r">SIZE_A"otSIZE_Ato 0xsetT/ v e {r">SIZE_B"otSIZE_Bto 0xsetT/ v e {r">SIZE_OP"r"SIZE_OPto 0xsetT/ v e {r">SIZE_U"r"SIZE_Uto f wh2->u1o Lex to locode1ode_query pen voifs, etf(eufoh Tz,ATisnulltLot1o)no-FIRSen push==("KENLot=dedebug_totaloo-FIRSyne push==("KENLot=dedebug_==("*emu_oo-FIRSyne push==("KENLot=dedebug_max=deoo-FIRSUMh2->u3o g f ekefem E (=dedebug_mem_EN /*;>en L_X_INT_ode(Lot1oo-FIRSUMh2->u0;USElocvar locvar>/elhash_query pen voifs, etf(eufoh Tz,ATisnulltLot2o)no-FIRSen L_argAX_INT({r"z,ATta)tLot1o===NataeT. lpaK_1ju"ssop[i] , /*`$"t, OP>pyne push==("KENLottst>lrkfz,AA_indextLot1o)->assehash)o g f ekefem E (HashOht;-FIRSen L_X_INTtype(Lot2,vataeT l(ont, OP>p/*;>ht>lrkfz,AA_indextLot2)t, OP>pyne push==("KENLotc)vH>CoinposiL, "(t1(z,AA_indextLot1o) */tX_nt, ), OPg f wh2->u1o Lex to locode1 L e_query pen voifs, etf(eufxrbuffHashOht ffp>/elis;>en L_opt_ode(Lot2ot-1oocRSen L_X_INTtype(Lot1,vataeT l(ont, OP/*;>ht>lrkfz,AA_indextLot1o);osioh Ti===N-1=po-FIRSen push==("KENLottX_)'c;), OPRSen push==("KENLottX_et.a freeg*/tX_nt, ), OPf wh2->u2o g f ekefeoh Ti=nt, [i].*epo u USERDaken push==("KENLottX_nt, [i].*epow*/tX_nt, ), OPf RSUMh2->u3o UM}USERDMkef OPf RSUMh2->u2d*/*U }(lf f0o Lex to locode1ssop[i_query pen voifs, etf(eufssop[i L egHtbu=t(*en L_X_INT_*/.z))tLot1osP(L's'M ? lLX_)lrt :alLX_udt ffp>/elss;>en L_opt_ode(Lot2ot0) le1 ffp>h T)==-1=po-FIRSen push==("KENL ,tbX_nshe), OPRSen push==("KENL ,tbX_)'c;), OPRS wh2->u2o g f ekefeoh Ts=/eln O_>u.l.+ } Ttru=ttbX_hash[s]o ts tru=ttsX_nepohashonuff n OPttype(LX_topt==NataeT. lpaR UNn OPtst>lrkfLX_topt==Nts ====>/cr_top, OP>pUMnrfRe *UM}USERD wh2->uno t U }(lf f0o Lex to locode1tref pen voifs, ete{ e)en L_X_INTanytLot1oocRSen pusht>lrkfLot1oocRSen push==("KENLotc)v>reftLoten L_opt_ode(Lot2ot1o)to f wh2->u1o Le to locode1getref pen voifs, ete{ e)oh Tz,ATgetreftLoten L_X_INT_ode(Lot1ott>>pUM wh2->u1o RDMkef OPf }(lf f0o Le to locode1unref pen voifs, ete{ e)en _unreftLoten L_X_INT_ode(Lot1ot; }(lf f0o Le to locode1Tewsherdata pen voifs, etf(eufoh Tz,ATisnu("KENLot2)M-FIRSyne pushsherta)tLot(rLet *)en L_X_INT_ode(Lot1ooten L_X_INT_ode(Lot2)t, OPMkef-FIRSyne_TewsherdatatLoten L_X_INT_ode(Lot1ot; }(lf f1o Le to locode1udatav eufen voifs, ete{ e)en L_X_INTtype(Lot1,vataeTUndtDATAoocRSen push==("KENLot(odetz,ATtosherdatatLot1ot; }(lf f1o Le to locode1= w)oifs,pen voifs, ete{ e)en _voifs, e1s;>en _ iGC(en L_X_INT_ode(Lot1ot; h TL1M-FIRSyne pushsherdatatLotL1t, OPMkef-FIRSyne_push=i)aCto 0x }(lf f1o Le to locode1yo lib,pen voifs, ete{ e)en _voifs, e1s;>pen voifs, tz,ATtosherdatatLot1oo 0xsUSERDAT*en L_X_INT_*/.z))tLot2tau USERDATA:v'm'srcce_ma hlib iGC(L1t, { dumbeu{ATA:v's'srcce__-klib iGC(L1t, { dumbeu{ATA:v'i'srcce_iolib iGC(L1t, { dumbeu{ATA:v'd'srcce_dblib iGC(L1t, { dumbeu{ATA:v'b'srcce_bTA:lib iGC(L1t, { dumbeu{ infd yrbL_argK_cod {r"2r">Ee1(fs, r Lal "), OPg f wh2->u0o Le to locode1 kkem)oifs,pen voifs, ete{ e)en L_X_INTtype(Lot1,vataeTUndtDATAoocRSen kkemapen voifs, tz,ATtosherdatatLot1ot; }(lf f0o Le to locode1doctl(fs,pen voifs, ete{ e)en _voifs, e1RRUNxrbuff[TOKENct, Otat)vL_X_INT_*/.z))tLot2t ffp>/elsoifusoeufen L_X_INTtype(Lot1,vataeTUndtDATAoocRSe1s;>pen voifs, tz,ATtosherdatatLot1oo 0xsoifuss;>en _do*/.z))tL1,xXAdet; h Tsoifuss!hte ho-FIRSyne_push=i)aCto 0xRSen push==("KENLotsoifus), OPRS wh2->u2o g f ekefe{ ==>/eli O_>u.l.+ ticr_si!z,ATisnulltL1ot++i) (f nto yrbapush*/.z))tLotz,ATto*/.z))tL1,xittoeufff wh2->ui-1ocSElocva to locode1set gmethod>pen voifs, ete{ e)ode1ta ==-en L_X_INT_ode(Lot1oo-FIxrbuff[TOKENeventOtat)vL_X_INT_*/.z))tLot2t ffpen L_X_INTanytLot3oocRSen get gmethodNLottag, eventoocRSen pusht>lrkfLot3oocRSen set gmethodNLottag, eventoocRS }(lf f1o Le to locode1pushbooeufen voifs, e1(ode1btf(eufoh Tb)Sen push==("KENLot1t, OPMkefSyne_push=i)aCto 0x }(lf f1o Le to locode1alceT>pen voifs, ete{ e) }(lf fpushbooetLotz,ATalceT(Lot1,v2 o l Le ==ur==========================:05:Ed: l-JUM f-s infdlus (edcs==== lf->c towtes) s_mcPIa"eDOSC. Iffieterp, tr a kt\2-of "assemL er"====langu,>>>"eDOS/ jusOe:- s_mcPI,-soithewtes) can=be drivenuby LuaxXAde==========================Code gtestgo(fs, r ofpc (tion dcs /el, ss;>0RRUNode1si ==-1ocSEsn; (pct; h TN*pcsP(L'.'s L eMb, ss;>(odetz,ATto==("KENLot-1oo-FIRSyne popNLot1oo-FIRSiNpc)rfReufff wh2->u, soeufg f ekefeoh TN*pcsP(L'-'s L eMbsi ==--1ocSERSiNpc)rfReuf} e)ticr_siisdigit(N*pc))s, ss;>, s*10 +SiNiNpc)rf) le'0'o 0x }(lf fsi *, soe} e) locvarxrbuff[TOKENtes)_getT/ ([TOKEN taXr"xrbuff[TOKEN*pc)e{ e)>/eli O_>u.l.sn; (pct; ticr_siN*pcs!tr'\0'f&& !*/.chr(de-tzso ,EN*pc))cSERS taX[i++ious*iNpc)rfReuf taX[iious'\0'o 0x }(lf f taXo Lexof(SHHEAEQ(s1) (n/.cmp(_1,xibufs ;hte iof(SHHEAgetTde ((getTde)aC_alpc))cof(SHHEAgetT/ ((tes)_getT/ )x taXr"lpc))cex to locode1tes)C pen voifs, etf(eufx"noo taX[30]; E xrbuff[TOKENpcs;>en L_X_INT_*/.z))tLot1oo UN } T;;)emmbeu{Arbuff[TOKENibufs;>getT/ o-FIRStefEQ("")SUMh2->u0;USEf ekefeoh EQ("isnu("KE" u USERDaken push==("KENLotz,ATisnu("KENLotgetTde))o UM}USERDMkefeoh EQ("is*/.z))" u USERDaken push==("KENLotz,ATis*/.z))tLotgetTde))o UM}USERDMkefeoh EQ("is L e" u USERDaken push==("KENLotz,ATis L eaC, getTde))o UM}USERDMkefeoh EQ("isc lf->c" u USERDaken push==("KENLotz,ATisc lf->ctLotgetTde))o UM}USERDMkefeoh EQ("is lf->c" u USERDaken push==("KENLotz,ATis lf->ctLotgetTde))o UM}USERDMkefeoh EQ("issherdata" u USERDaken push==("KENLotz,ATissherdatatLotgetTde))o UM}USERDMkefeoh EQ("islil"tu USERDaken push==("KENLotz,ATisniltLotgetTde))o UM}USERDMkefeoh EQ("islull" u USERDaken push==("KENLotz,ATisnulltLotgetTde))o UM}USERDMkefeoh EQ("to==("KE" u USERDaken push==("KENLotz,ATto==("KENLotgetTde))o UM}USERDMkefeoh EQ("to*/.z))" u USERDaken push*/.z))tLotz,ATto*/.z))tLotgetTde))o UM}USERDMkefeoh EQ("to==("KE" u USERDaken push==("KENLotz,ATto==("KENLotgetTde))o UM}USERDMkefeoh EQ("_-klf " u USERDaken push==("KENLotz,AT_-klf (LotgetTde))o UM}USERDMkefeoh EQ("toc lf->c" u USERDaken pushc lf->ctLotz,ATtoc lf->ctLotgetTde))o UM}USERDMkefeoh EQ("UMh2->" u USERDakUMh2->ugetTdeo UM}USERDMkefeoh EQ("gettop" u USERDaken push==("KENLotz,ATgettopaCt)o UM}USERDMkefeoh EQ("_ettop" u USERDaken settopaCotgetTde)o UM}USERDMkefeoh EQ("pop" u USERDaken popaCotgetTde)o UM}USERDMkefeoh EQ("push==(" u USERDaken push==("KENLotgetTde)o UM}USERDMkefeoh EQ("pusht>lrk" u USERDaken pusht>lrkfLotgetTde)o UM}USERDMkefeoh EQ("ctl(&o" u USERDaken ctl(&ofLotgetTde)o UM}USERDMkefeoh EQ("Ees h " u USERDaken Ees h fLotgetTde)o UM}USERDMkefeoh EQ("get L e" u USERDaken get L eaC, getTde)o UM}USERDMkefeoh EQ("set L e" u USERDaken set L eaC, getTde)o UM}USERDMkefeoh EQ("nepo" u USERDaken = ENtLot-2)o UM}USERDMkefeoh EQ("XtEh T" u USERDaken XtEh T,LotgetTde)o UM}USERDMkefeoh EQ("caw/ ju" u USERDakode1=args;>getTdeo UMakode1=, ss;>getTdeo UMaken caw/ jutLot*/rg, nresto f UM}USERDMkefeoh EQ("X ju" u USERDakode1=args;>getTdeo UMakode1=, ss;>getTdeo UMaken / jutLot*/rg, nresto f UM}USERDMkefeoh EQ("do*/.z))" u USERDaken do*/.z))tLotz,AL_X_INT_*/.z))tLotgetTde))o UM}USERDMkefeoh EQ("_et gmethod" u USERDakode1ta ==-getTdeo UMakxrbuff[TOKENeventOtagetT/ o-FIRSRSen set gmethodNLottag, eventoocRSUM}USERDMkefeoh EQ("get gmethod" u USERDakode1ta ==-getTdeo UMakxrbuff[TOKENeventOtagetT/ o-FIRSRSen get gmethodNLottag, eventoocRSUM}USERDMkefeoh EQ("typk" u USERDaken push*/.z))tLotz,ATtypennmetLotz,ATtypetLotgetTde))oocRSUM}USERDMkefez,AL_vK_cod {r">unknown iemumof(, "f%.30st, taX);osig f wh2->u0o Le=========================>pi..h *DATA v pi_hncr_top LLLL lua Rx to locxrbuffcs-dcsez,AL_reg1tes)s_fa s[ious"euf{"hash",lhash_query},euf{"-tzso ",1get_-tzso },euf{"-ts).h *",tlts).h *},euf{"-ts)cscodes",tlts)cscodes},euf{"-ts)yd"ur ",tlts)yd"ur },euf{"-o lib",tlo lib},euf{"querycsc",1ssop[i_query},euf{"query L",1 L e_query},euf{"tes)C",1 es)C},euf{"reu"artref},euf{"getref",1getref},euf{"unref",1unref},euf{"Tewsherdata",1Tewsherdata},euf{"udatav e",1udatav e},euf{"Tew)oifs",1Tew)oifs},euf{" kkem)oifs",1 kkem)oifs},euf{"doctl(fs",1doctl(fs},euf{"_et gmethod",1set gmethod},euf{"alceT",1alceT},euf{"totalmem",1ode_query}K l i struu),B_ iGCtes)sopen voifs, ete{ e)en >lS L eaCto 0xen getbsol etaCto 0xen pusht>lrkfLot-2t ffpen setbsol etaCto 0xen L_ iGCutLottes)s_fa st,OP(fstiGCa lf->c nEesids newn L egH)osien setbsol etaCtoUN===ARstvp old- L egof#bsol etloc; yrb setbsol e {r">T"to>n,C iet newn L egas#bsol e TfuaKs torc//, ===ARSERe jump taX_eeifalorc//, relex/. mlux72tm.* inc20 16:39:c/l m.*h 55*56 ** $Lexi31 13:10:24dlus h *manipulSomTa =methodsor Lugenerator enerator en in luyrighto *> en in lcode.hht #includCopyright lex/las.h * see lua-4.0/src/lcoded.h **/ /* skipped: lmem.h * see lua-4.0/src/lode.h */ /* skipped: lmem.h * see lua-4.0/src/lobj /*.h */ /* skipped: lmem.h * * see lua-4.0/src/l is/* skipped* zsopd: llex.h * see lua-4.0/src e.h */ /* skipped: lmem.h * see xrbuff[TOKENxrbufflrbT_event*/ [ious"ni_hnORDER TMloc; "get L e"VE eet L e"VE index"VE getbsol e"VE eetbsol e"VE add"VE euL",; "mue"VE div"VE pow"r">unm",1"lt",1"XtEh T"VE gc"VE lf->c",; " e"VE gT"VE ge"VEn,C depreh Te, r Lal s!!loc; , v{K l i to locode1et\2eventO(xrbuff[TOKEN*/ )} ode1+ } TS.zsolrbT_event*/ [i] luoUSERD h Tso.cmp(lrbT_event*/ [i]ot*/ t ;hte (f ntff wh2->uio 0x }(lf f-1fs, coT/ cr_top L) bufe=== to locode1yuaI_X_INTeventO(en voifs, e1(xrbuff[TOKEN*/ 1(ode1tte{ e)id/ Otaet\2event(*/ toeuf h Te >>}TM_NM-FIRSyneO_vK_cod {r">eventO`%.50s l ndepreh Te,"ot*/ toeuf h Te =>}TM_GC &&pt===NataeT l(ont-FIRSyneO_vK_cod {r">eventO`gc' NEGN L esoitldepreh Te,"toeuf h Te `%.50s l ncr_ta 1(fs, eventO*/ "ot*/ toeuf wh2->ueaHs toee levents:in ataeTEIL ar_di,)fi, fwedotn'lueVth nEsAuseddasAa * 'placeholder' NEGN" inf" fi, bsckn see lORDER ataeT,nORDER TMloc; locvarxrbuff[TOKElrbT_1(fs,events[ELe_TAGS][TM_Nious"euf{1ot1,v0,v0,v0,v1,v1,v1,v1,v1,v1,v1,v1,v0,v1}VEn,C ataeTUndtDATAloc; {1,v1,v1,v1,v1,v1,v1,v1,v1,v1,v1,v1,v1,v1,v1}VEn,C ataeTEIL oc; {1,v1,v0,v0,v0,v0,v0,v0,v0,v1,v0,v0,v0,v0,v1}VEn,C ataeTELel(o=oc; {1,v1,v0,v0,v0,v0,v0,v0,v0,v0,v0,v0,v0,v0,v1}VEn,C ataeT. lpa oc; {0,v0,v1,v0,v0,v1,v1,v1,v1,v1,v1,v1,v1,v0,v1}VEn,C ataeT l(on=oc; {1,v1,v0,v0,v1,v1,v1,v1,v1,v1,v1,v1,v1,v0,v0} En,C ataeTlfs, l(o uaK l iode1yuaT_1(fs,eventap>/elt1(ode1e)s"ni_hnORDER ataeTfH)osiET(lf f(t >>}ELe_TAGSM ? 1O: lrbT_1(fs,events[t][e]aHs to locvarfs, Ainit_onmry pen voifs, e1(f(euta t)} >/el+ } TS.zsoipen voifs, ete{ e)f(euto 0xen M_groSst); aK_LX_TM L e,v0,vELe_TAGS,fcs-dcseTMr">"otMAX_INTto 0xLX_ng*emu_f+= ELe_TAGS*n'c;of(cs-dcseTMo l/*LX_yauf_ta ==-ELe_TAGS-1ocSE } Tt.zsot<=LX_yauf_ta sotluoUSERD nit_onmryNLott) locvaataecPIaode1yua >lS gopen voifs, ete{ e)en M_groSst); aK_LX_TM L e,vLX_yauf_ta ,v1,vcs-dcseTMr(f ntffffffffffffff" go L eg(&orflow"otMAX_INTto 0xLX_ng*emu_f+= n'c;of(cs-dcseTMo l/*LX_yauf_ta rfRe * nit_onmryNLotLX_yauf_ta toeuf wh2->uLX_yauf_ta sHs to locvarfs, AX_INTt gopen voifs, e1(f(euta t)} > ) !(0 <>}t go&&pt go<=tLX_yauf_ta t (f ntyneO_vK_cod {r">%dl ncr_ta 1(fs, ta ",1 g) locv struu),T_ w>lt gopen voifs, e1(f(euta t)} > ) !1(fs,ta)tta t (f ntyneO_vK_cod {r">t go%dlwa ncr_t i}peduby `>lS g'",1 g) locvaataecPIaode1yua opy gmethodsopen voifs, e1(f(euta to1(f(euta udatte{ e)id/ ; E x_INTt gNLottagto); E x_INTt gNLottagudattocSE } Te.zsoeen T_get mNLottagudat1(e);osig f wh2->utagto locvaode1yuaT_t gopxrbuffTObj /* *ote{ e)f(eutf=tAtype(ooo 0xsUSERDATo u USERDATA:vataeTUndtDATA)i TARG_Btst>lrkfo)X_asd.ta ;USERDATA:vataeT l(on)ntff wh2->uht>lrkfo)X_hta ;USERD infd tff wh2->uo glocvaataecPIa struu),_get gmethod>pen voifs, e1(f(eut,kxrbuff[TOKENeventte{ e)id/ ; E Otat)vI_X_INTeventNLoteventott) lE x_INTt gNLotttoeuf h TlrbT_1(fs,event(t1(e)s&&pen T_get mNLott1(e) u USERDAlt>lrkfLX_topt==Nen T_get mNLott1(e);USERDttype(LX_topt==NataeTlfs, l(o;osig f Mkef-FIRSttype(LX_topt==NataeTEILumbe>/cr_top, ocvaataecPIa struu),_set gmethod>pen voifs, e1(f(eut,kxrbuff[TOKENeventte{ e)id/ Otat)vI_X_INTeventNLoteventott) lE x_INTt gNLotttoeuf h T!lrbT_1(fs,event(t1(e) (f ntyneO_vK_cod {r">canlneHX_ang_d`%.20s lta =method NEGN ypes`%.20s %.20s"r(f ntfffffffffffflrbT_event*/ [e]1(ttoO_typennmes[t]r(f ntffffffffffff(t===NataeT l(on=|| t===NataeTUndtDATAo ?(f ntffffffffffffff ">"eDOS inf ta "O: ""oo 0xsUSERDATotype(LX_top le1tau USERDATA:vataeTEIL:(f nto yrbT_get mNLott1(e)s;> RRRUNNNNN{ dumbeu{ATA:vataeTlfs, l(oNu.l.f);yrbT_get mNLott1(e)s;>Alt>lrkfLX_top le1tRRUNNNNN{ dumbeu{ inf:>>pUMPKz,ATa_cod {r">t gomethod =u bo a lf->c (e nlil)"), OPg f LX_top--Re}ex===ARSERe jump taX_eeifalelex/. mlux72 L)ump.* inc20 16:39:c/l L)ump.*h 55*33 ** $Lexi31 16:57:23 lhfmanipulSomyo byte.h *s=udatafilesor Lugenerator enerator en in luyrighto *> en in lcode.hht #includCopyr lh **/ /* skipped: lmem.h * see lua-4.0/src/lode.h */ /* skipped: lmem.h * see lua-4.0/src/lop.h *s/ /* skippedpped: llex.h * see lua-4.0/src/lc/lcode.h */ /* skAL, vd: llex.h * seee lua-4.0/src L)ump.* skipped* zsopd: llex.heifal ef(SHHE Lo Byte ezgetcr locvarxrbuff[TOK* ZNAME (ZIO* Z) USxrbuff[TOK* s=znnmetZ), OET(lf f(*s=='@'M ? s+1O: sRe Le to loc struun , /*`$EOZ>pen voifsC a, ZIO* Z) USyneO_vK_cod {r"un , /*`$irc/gof#fileHi) `%.99s'",ZNAMEtZ))o Le to locode1azgetc>pen voifsC a, ZIO* Z) USode1 =zgetctZ), O h Tc==EOZ)uun , /*`$EOZ {rZ), OET(lf fcRe Le to loc struez"} >pen voifsC a, ZIO* Z1(rLet* botf(euN) USode1r=z"} (Z,b,n), O h Tr!=0)uun , /*`$EOZ {rZ), Le to loc struLo B*emu>pen voifsC a, rLet* bots'c;_t s'c;emZIO* Z1(ode1swap) USoh Tswap) f(eufx"noo*p=([TOKEN) b+)'c;-1; e)id/ n=)'c; ffpticr_sin--)o*p--=([TOK)azgetc {rZ), Og fMkef-FIez"} {rZ,b,)'c;), Le to loc struLo Vt); wfen voifsC a, rLet* botode1oots'c;_t s'c;emZIO* Z1(ode1swap) USoh Tswap) f(eufx"noo*q=([TOKEN) b ffpticr_sim--); {>>pUx"noo*p=q+)'c;-1; e))id/ n=)'c; ffppticr_sin--)o*p--=([TOK)azgetc {rZ), O q+=)'c; ffp} Og fMkef-FIez"} {rZ,b,m*)'c;), Le to locid/ Lo IntO(en voifsC a, ZIO* Z1(ode1swap) USode1x, OLo B*emu {r&x,n'c;of(x)rZ,swap), OET(lf fx, Le to locs'c;_t Lo S'c; pen voifsC a, ZIO* Z1(ode1swap) USs'c;_t x, OLo B*emu {r&x,n'c;of(x)rZ,swap), OET(lf fx, Le to locKde.re Lo Kde.re pen voifsC a, ZIO* Z1(ode1swap) USKde.re x, OLo B*emu {r&x,n'c;of(x)rZ,swap), OET(lf fx, Le to locTzsop[i* Lo Ssop[i]pen voifsC a, ZIO* Z1(ode1swap) USs'c;_t s'c;=Lo S'c; {rZ,swap), O h T)'c;==0>u.ledef s> RRRUMkef-F(eufx"no* s=yneO_tiGCspac; {r)'c;), OPLo B*emu {rsr)'c;rZ,0toeuf wh2->ults->>lSltokaC_sr)'c;-1oo ===ARl(&o trailp[i]'\0'fH)os} Le to loc struLo Ch *>pen voifsC a, P} - * tf, ZIO* Z1(ode1swap) USode1s'c;=Lo IntNLoZ,swap), OtfX_.h *=l)vwn>lSst); aK)'c;rIemumof(, "), OLo Vt); aKtfX_.h *K)'c;rn'c;of(*tfX_.h *)rZ,swap), O h TtfX_.h *[)'c;-1]!=OPMENDtSyneO_vK_cod {r"b >ct, O)) `%.99s'",ZNAMEtZ))o SyneF_p} - ok aKtf,)'c;), Le to loc struLo Ld"ur pen voifsC a, P} - * tf, ZIO* Z1(ode1swap) USode1i,n, OtfX_n*emvars=n=Lo IntNLoZ,swap), OtfX_*emvars=l)vwn>lSst); aKn,Ld"Varoo-F } TS.zsopkN luoUS(euftfX_*emvars[i].vam*/ =Lo Ssop[iNLoZ,swap), OftfX_*emvars[i]. tortpc=Lo IntNLoZ,swap), OftfX_*emvars[i].rc/pc=Lo IntNLoZ,swap), O} Le to loc struLo LHHE pen voifsC a, P} - * tf, ZIO* Z1(ode1swap) USode1n, OtfX_n*inemp; =n=Lo IntNLoZ,swap), OtfX_*inemp; =l)vwn>lSst); aKn,intoocRLo Vt); aKtfX_linemp; ,nrn'c;of(*tfX_linemp; )rZ,swap), Le to locP} - * Lo F lf->c (en voifsC a, ZIO* Z1(ode1swap);Le to loc struLo Chemuant pen voifsC a, P} - * tf, ZIO* Z1(ode1swap) USode1i,n, OtfX_nk)lk=n=Lo IntNLoZ,swap), OtfX_k)lk=l)vwn>lSst); aKn,Tzsop[i*oo-F } TS.zsopkN luoUSOtfX_k)lk[i]=Lo Ssop[iNLoZ,swap), OtfX_nknum=n=Lo IntNLoZ,swap), OtfX_knum=l)vwn>lSst); aKn,Kde.reoocRLo Vt); aKtfX_knum,nrn'c;of(*tfX_knum)oZ,swap), OtfX_nkp} - =n=Lo IntNLoZ,swap), OtfX_kp} - =l)vwn>lSst); aKn,P} - *oo-F } TS.zsopkN luoUSOtfX_kp} - [i]=Lo F lf->ctLoZ,swap), Le to locP} - * Lo F lf->c (en voifsC a, ZIO* Z1(ode1swap) USP} - * tf=yneF_>lSp} - aCto 0tfX_sourc =Lo Ssop[iNLoZ,swap), OtfX_lineD(SHHEd=Lo IntNLoZ,swap), OtfX_lpaparams=Lo IntNLoZ,swap), OtfX_is_vararg=Lo Byte {rZ), OtfX_maxslsckn'c;=Lo IntNLoZ,swap), OLo Ld"ur aKtf,Z,swap), OLo LHHE aKtf,Z,swap), OLo Chemuant aKtf,Z,swap), OLo Chde aKtf,Z,swap), O wh2->uof, Le to loc struLo Signatup pen voifsC a, ZIO* Z) USxrbuff[TOK* s=SIGNATURE, Oticr_siNs!=0s&&pazgetc {rZ)==*soUSO++s, O h TNs!=0tSyneO_vK_cod {r"b >signatup i) `%.99s'",ZNAMEtZ))o Le to loc struTestS'c; pen voifsC a, ode1s,Sxrbuff[TOK* ws`t,nZIO* Z) USode1r=azgetc {rZ), O h Tr!=soUSOyneO_vK_cod {r"virtceT>machHHEAmismaERDAi) `%.99s':\n" " %.20sl n% buel, >dn% ",ZNAMEtZ),ws`t,s,r)o Leof(SHHEATESTSIZE(s) TestS'c;aC_sr#srZ)eof(SHHEAV(v) v/16,v%16Le to locid/ Lo H >dre pen voifsC a, ZIO* Z) USode1vers, ",swap;USKde.re f=0Ktf=TEST_ELel(oumbLo Signatup {rZ), Overs, "=azgetc {rZ), O h Tvers, ">VERSIONoUSOyneO_vK_cod {r"`%.99s' - o new:\n" " , >dnvers, "f%d.%d;] , /*`$ ae1oouff%d.%d", ZNAMEtZ),VTvers, "),VTVERSIONo), O h Tvers, "maj } X_ang_doc; yrbO_vK_cod {r"`%.99s' - o old:\n" " , >dnvers, "f%d.%d;] , /*`$ ae1leauff%d.%d", ZNAMEtZ),VTvers, "),VTVERSIONo), Oswap=pen U_rc//aHE s()!=azgetc {rZ)oo ===ne`$ toOswap bytes? >>>>TESTSIZE(s'c;of(into), OTESTSIZE(s'c;of(s'c;_to), OTESTSIZE(s'c;of(Iemumof(, ")), OTESTSIZE(SIZE_INSTRU, l(o), OTESTSIZE(SIZE_OPto 0TESTSIZE(SIZE_B), OTESTSIZE(s'c;of(Kde.reooo-F =Lo Kde.re {rZ,swap), O h T(l.*))f!=(l.*))tf) _dRdisregard K_cods:in yauf>bieitfofracL, "fuaKioyneO_vK_cod {r"unknown Tde.bsc }matAi) `%.99s':\n" fffff "> , >dn" ELel(o_FMT ";] , /*`$ " ELel(o_FMT, ZNAMEtZ),fKtf), O wh2->uswap;U Le to locP} - * Lo Chunk pen voifsC a, ZIO* Z) US wh2->uLo F lf->ctLoZ,Lo H >dre {rZ)ooe}ex==lSomyo on_d hunk udata fileHooo taXer==== wh2->uCoin Ef okM \2- R ae1EOF uof, Le==lSomet\2-byteHooder==/aode1yuaU_rc//aHE st(rLet) USode1x=1o S wh2->u*([TOK*)&x, L===ARSERe jump taX_eeifalelex/. mlux72vm.* inc20 16:39:c/lvm.*h 55*146 ** $Lexi26 12:47:05dlus h *manipulSomLua virtceT>machHHEor Lugenerator enerator en in luyrighto *> en in lulibighto *> en in lcode.hht 20includCopyright lex/las.h * see lua-4.0/src/lcode.h * **/ /* skAL, vd: llex.h * seee lua-4.0/srcdebug/* skipped* zsopd: llexebug/e luae lua-4.0/srcd.h **/ /* skipped: lmem.h * see lua-4.0/src/l lh **/ /* skipped: lmem.h * see lua-4.0/src/lglh **/ /* skipped: lmem.h * see lua-4.0/src/lobj /*.h */ /* skipped: lmem.h * * see lua-4.0/srcop.h *s/ /* skippedpped: llex.h * see lua-4.0/src/lc/l is/* skipped* zsopd: llex.h * see lua-4.0/src/lcode.h */ /* skAL, vd: llex.h * seee lua-4.0/src L e.h */ /* skAL, vd: llex.h * see20includCopyr e.h */ /* skipped: lmem.h * see 20includCopyrve.h */ /* skipped: lmem.h * see es tdy=OLD_ANSIeof(SHHEAso.coll(a,b) so.cmp(a,b)lorc//, rLe==lSomExtra slsck1n'c; e ncun a lf->c:lSomTAG_LINE(1ootNAMEt1ootTMS/ jus(3) (plus some] ,tra...) >pUM wh2->u1o RDMkefno-FIRS h T!yrbO_so.2d(st>lrkfobjtVE&nt>lrkfobjttt>>pUMPKm(r1ATA2;USERDttype(objtf=NataeTELel(oumbeu{UMh2->u0;USElocvarode1yuaVTtossop[i]pen voifs, e1(TObj /* *objtf(En,C ataeELel(o=oc; oh TAtype(objtf!=NataeTELel(ot>>pUM wh2->u1o RDMkefno-FIRSx"noos[32]lue ci16 digits,>sign, poodeM \2-\0 (+ some] ,tra...)suaKion yua >=("KE2tokas1(nt>lrkfobjtto _dR onv h `s' - Tde.bscuaKion tst>lrkfobjtOtat)v->>lSaC_asto f UMttype(objtf=NataeT. lpaR UNn UMh2->u0;USElocvar locvar strutraceexec]pen voifs, e1(StkI2-base1(StkI2-topotz,ATHookMlinehooktf(eufC juInfo *ci=taiefot>lrkfbase-1oo-FIodeM*linemp; s;>Ai-> l->e.lX_linemp; o-FIodeMpcs;>(*Ai->pcs->Ai-> l->e.lX_.h *) le1 ffp>/el>lSlineoeuf h TpcsP(L0t s, co=ry bo et.a time? >>>>pUMAi->line==-1ocSEUMAi->r(SH O_>u.l.+ Ai->laufpcs;>pc+1;s, co=rk_dsup ieiwi,)f/ juMlinehook >>>>pg f >lSlineOtat)vGagetline(linemp; ,1pcK_Ai->lineVE&Ai->r(SHoo-FI */ jusOlinehook when GCterr a newnlineOooojumps bsck]peoopt=oc; oh T>lSlineO!=MAi->line=||Mpcs<= Ai->laufpcau USERDAi->line==->lSlineoeuff LX_topf=tAop, OP>pt)vD_lineH ok aK-base-2,->lSline,Mlinehookt, OPg f Ai->laufpcs;>pcsHs to locvarClosup *yuaVTclosup pen voifs, e1(f(eu rU>etf(eufClosup *c=taz,AFa>lSclosup tLot* rU>et; f LX_topf-= * rU>e ffpticr_sin rU>e--); f A->upt>lrk[n rU>eious*iLX_top+* rU>et; f Alt>lrkfLX_topt==Nc;osittype(LX_topt==NataeTlfs, l(o;osi>/cr_top, OPET(lf fcRe Lev struu),V_Cclosup pen voifs, e1(en CF lf->c c1(f(eu rU>etf(eufClosup *cl=taz,AVTclosup tLot* rU>et; f cl->e.c==Nc;osicl->isC==-1oc Lev struu),V_Lclosup pen voifs, e1(P} - =*l1(f(eu rU>etf(eufClosup *cl=taz,AVTclosup tLot* rU>et; f cl->e.l=taz;osicl->isC==-0o e===ur====F lf->c towindexg L e.====Receivssithen L egat `N l \2-thenkeyfat top.s1/ xrbuffTObj /* *ttsV get L e]pen voifs, e1(StkI2-ttf(eufClosup *tm ffp>/eltgoeuf h Tttype(t)===NataeT l(on=&&p>80(`N l nan L e>>>>>>pUMMM((tg*;>ht>lrkft)X_hta )===NataeT l(on=||M>80("eDOS inf ta >>>>>>pUMMMMMyrbT_get mNLottg,}TM_GET l(on)===N, v{M) s(fst nlo}TM>>>>>>pUM/C do a prtzsoive getA>>>>pUMArbuffTObj /* *h =tc)vH>gettLotht>lrkft), LX_top-1tRRUNNN===ARSElmfis lnnlilst ntheres)s lnn`index lta =method>>>>>>pUM h Tttype(htf!=NataeTEIL=||M((tm=l)vT_get mNLottg,}TM_INDEX))===N, v{M)>>pUMPKm(r1ATAhoUN===ARh2->u, sElmf>>>>pUM/C Mkefn/ juM`index lta =method >>>>pg f Mkefemum_dRmry a `get L e lta =method >>>>psitm==Nen T_get mbyObjfLott1(TM_GET l(on), OPg f h Ttmf!=N, v{Memum_dRisntheresalta =method>>>>>>pUMt)vD_ hINTslsckfLot2)o UM*iLX_top+1osPM*iLX_top-1tRum_dRkeyf>>>>pUM*LX_topf=t*oo _dR L egH)osif Alt>lrkfLX_top-1osPMtm _dR =method >>>>psittype(LX_top-1osPMataeTlfs, l(o;osif LX_topf+=A2;USERDt)vD_ jutLotLX_top le3ot1oo-FIRSUMh2->uLX_top le1;FI */ juu, sElmf>>>>pg f Mkefemum_dRlnn =method >>>>psit)vGatypea_cod {r"tVE index"oo-FIRSUMh2->u RRs, coA:-O_Jwarwarnodes H)osi} e===ur====Receivssit L egat `N ,nkeyfat `key' \2-/list=at top.s1/ struu),V_set L e]pen voifs, e1(StkI2-t1(StkI2-keytf(euf>/eltgoeuf h Tttype(t)===NataeT l(on=&&p>80(`N l nan L e>>>>>>pUMMM((tg*;>ht>lrkft)X_hta )===NataeT l(on=||M>80("eDOS inf ta >>>>>>pUMMMMMyrbT_get mNLottg,}TM_SET l(on)===N, v{M) (fst nlo}TM>>>>>>pUMhc)vH>settLotht>lrkft), keytf=t*iLX_top-1tRum_dRdo a prtzsoive setA>>>>pMkefemum_dRmry a `set L e lta =method >>>>psiClosup *tm==Nen T_get mbyObjfLott1(TM_SET l(ont, OP>p h Ttmf!=N, v{Mem>>pUMPKz,AD_ hINTslsckfLot3tRRUNNNNN*iLX_top+2tf=t*iLX_top-1tRRUNNNNN*iLX_top+1osPM*key NNNN*iLX_top)f=t*oo NNNNAlt>lrkfLX_top-1osPMtm NNNNttype(LX_top-1osPMataeTlfs, l(o;osif f LX_topf+=A3;>>pUMPKz,AD_ jutLotLX_top le4ot0t,FI */ juu`set L e lta =method >>>>psi}USERDMkefem_dRlnn =method...>>>>>pUMMMt)vGatypea_cod {r"tVE index"oo-FI}ee===xrbuffTObj /* *ttsV_getbsol eufen voifs, e1(Tzsop[i] stf(eufxrbuffTObj /* *t>lrk =tc)vH>gettokaL->gf,tet; f Closup *tm==Nen T_get mbyObjfLott>lrk, TM_GETGLOBAutoeuf h Ttm===N, v{Mem_dRisntheresalta =method>>>>>>pUMUMh2->ut>lrkRum_dRd inf behaviorA>>>>pMkefemum_dRm =method >>>>psit)vD_ hINTslsckfLot3tRRUNNNAlt>lrkfLX_topt==Ntm NNttype(LX_topt==NataeTlfs, l(o;osiOPtst>lrkfLX_top+1osPMso>n,C gsol euT/ >>>>psittype(LX_top+1tf=NataeT. lpaR UNn *iLX_top+2tf=t*t>lrkR f f LX_topf+=A3;>>pUMt)vD_ jutLotLX_top le3ot1oo-FIRSUMh2->uLX_top le1;-FI}ee=== struu),V_setbsol eufen voifs, e1(Tzsop[i] stf(eufxrbuffTObj /* *oldt>lrk =tc)vH>gettokaL->gf,tet; f Closup *tm==Nen T_get mbyObjfLotoldt>lrk1(TM_SETGLOBAutoeuf h Ttm===N, v{Memum_dRisntheresalta =method>>>>>>pUM h Toldt>lrk !=N&yrbO_lilobj /* u USERDak_txcauf>e ncRl(&o `xrbuf l nOKK-becauefe`oldt>lrk' !=NyrbO_lilobj /*luaKion HN (TObj /* *)oldt>lrk =t*fLX_top le1tRRUNNN}USERDMkefemKion HNTObj /* key NNNNttype(&keytf=tataeT. lpaR UNn OPtst>lrkf&keytf=ts ====hc)vH>settLotL->gf,t&keytf=t*iLX_top le1tRRUNNN}USEg f ekefe{ ==t)vD_ hINTslsckfLot3tRRUNNN*iLX_top+2tf=t*iLX_top-1tR _dRcewnt>lrk >>>>pUMhiLX_top+1osPM*oldt>lrk NNttype(LX_topt==NataeT. lpaR UNn tst>lrkfLX_topt==NsRRUNNNAlt>lrkfLX_top-1osPMtm NNttype(LX_top-1osPMataeTlfs, l(o;osif LX_topf+=A3;>>pUMt)vD_ jutLotLX_top le4ot0t,USElocvar locvarode1 ju_binTM]pen voifs, e1(StkI2-topotTMS eventte{ e)_dRmry et.a iGoand >>>>pClosup *tm==Nen T_get mbyObjfLottop-2, eventoocRSLX_topf=tAop, OP h Ttm===N, v{Mem>>psitm==Nen T_get mbyObjfLottop-1, eventooe)_dRmry sexrbd iGoand >>>>pOP h Ttm===N, v{Mem>>psisitm==Nen T_get mfLot0, eventooe)_dRmry a `gsol e'=method >>>>psiOP h Ttm===N, v{M>>pUMMMMMUMh2->u0;UM/C M_cod >>>>psi}USE}eufen push*/.z))tLotlrbT_event*/ [event]to 0xen D_ juTMfLottm,e3ot1oo-FI wh2->u1o Lex to locfs, AX ju_areDOSpen voifs, e1(StkI2-topotTMS eventte{ e) h T! ju_binTMfLottop, evento (f ntyneG_bina_cod {r"top-2, ataeTELel(oVE per }m areDOmetlocl "), e=== to locode1yuaV_so.com pxrbuffTzsop[i] ls,SxrbuffTzsop[i] rstf(eufxrbuffx"noo*l=tazsX_)lro-FIs'c;_t ll=tazsX_leno t xrbuffx"noo*rs;>,sX_)lro-FIs'c;_t lrs;>,sX_leno t } T;;)emmbeu{ode1tempf=tso.coll(l, rt, OP>p h Ttempf!hte h wh2->uoemp;USERDMkefem>n,C iscodes ar_dalceT>upoA:-O]'\0'fH)osssssss'c;_t lenf=tso.lf (looe)_dRindexgof#fi.a '\0'fin boDOSiscodes >>>>psiOP h Tlenf=tazlMem_dRll n inished>>>>>>pUMMMMMET(lf f(lenf=tazrM ? 0 :f-1fs, coll nalceT> } sm juer +=`n'r>>>>>pUMMMekefeoh Tlenf=tazrM N===Al n inished>>>>>>pUMMMMMET(lf f1fs, coll ng i}per +=`n'r>(becauefell ncr_t inished)fbuffp== coboDOSiscodes l.*)er +=`n'`len';fgoO>c coaparp[i]pafper +=e '\0')fbuffp== lenrfReufff lf+=Aleno ll=-=Aleno rf+=Aleno lr=-=Aleno>>psi}USE}ecvarode1yuaVTless+=`n'(en voifs, e1(xrbuffTObj /* *t1(xrbuffTObj /* *r1(StkI2-toptf(eufoh TAtype(lt===NataeTELel(o=&&pttype(rt===NataeTELel(ot>>pUM wh2->u(nt>lrkflt=<(nt>lrkfr)t, OPMkeffoh TAtype(lt===NataeT. lpa &&pttype(rt===NataeT. lpat>>pUM wh2->u(yuaV_so.com (tst>lrkfz)ottst>lrkfr)t p h T! ju_binTMfLottop, TM_LT) (f nto yrbG_oodera_cod {r"top-2);osif LX_top--Re *siET(lf f(ttype(LX_topt=!=NataeTEILt,USElocvar struu),V_so.conc]pen voifs, e1(ode1total1(StkI2-toptf(eufdo L eMb>/eln O_2R _dRcde.bscof#elenonms =`ndle AinVth npa st(ae1leauff2) >>>>pOP h Tto*/.z))tLottop-2)=|| to*/.z))tLottop-1tau USERD>p h T! ju_binTMfLottop, TM_CAT");)M>>pUMMMMMyneG_bina_cod {r"top-2, ataeT. lpaK_"XtEh T" RRUNNN}USERDMkefe h Ttst>lrkftop-1tX_len >L0t s, co h len=0,1doncr_hp[i] uffp== coae1leaufftwoSiscodent>lrkso>getAas manyAas possiL egH)osif Mlint32 tls;>peint32)tst>lrkftop-1tX_len + >>pUMMMMMMMMMMMMMMMpeint32)tst>lrkftop-2)X_leno t [TOKEN taXero t >/el+ ticr_sin=>>>>pUMMMMMtlf+=Atst>lrkftop-n-1tX_len;>>pUMMMMMnrfReufff }>>psiOP h Ttl >LMAX_SIZET)Kz,ATa_cod {r">iscodenn'c; (&orflow"tRRUNNNNN{taXer =NyrbO_tiGCspac; {rMtltRRUNNNNNtls;>0RRUNNNNN } TS.N >zsop--)o _dR oEh Tdi,)fiscodes >>>>psiOPsss'c;_t l =Atst>lrkftop-itX_len;>>pUMMMMMmemcpy({taXer+tl,Atst>lrkftop-itX_iscotl);>>pUMMMMMtlf+=AlReufff }>>psiOPtst>lrkftop-ntOtat)v->>lSltokaC_N{taXerrMtltRRUNNN}>>psitotalf-= *-1fs, cogr_t`n'fiscodes A:- i}pe 1Rcewn>>>>psitopf-= *-1ocSEl ticr_sitotalf> 1toUN===ARpi}p untilst o1u, sElmfleft bufe=== to loc struu),V_pamu>pen voifs, e1(StkI2-fi.a elent)} >/el+ HashOhhtab =tc)vH>>lSaC_a0tocSE } TS.zsofi.a elen+isetode(Lothtaboti+1of=t*ifi.a elen+ioo-FI *stvp couCterAinVfieldt`n'fuaKioyneH>setmum*um(Lothtabott)v->>lSaC_a" "), i)ocRSLX_topf=tfi.a elenoUN===ARl(&o elenonms udata+=e slsck1uaKiottype(LX_topt==NataeT l(onocRSht>lrkfLX_topt==Nhtab;osi>/cr_top, e=== to loc struadjust_varargsopen voifs, e1(StkI2-base1(>/elnfixargst)} >/elnvarargs;>pLX_top-base) lenfixargs, OP h Tnvarargsc. Parameterr ap betweenu[base1topt.====Re(lf nc such +=`) s_m s_m, sElmr ap betweenu[n1topt.==/ StkI2-en V_executs'(en voifs, e1(xrbuffClosup *cl1(StkI2-basetf(eufxrbuffP} - =*xrbufftfs;>Al->e.loeufStkI2-topRum_dRkeepitopfyd"ur,E } per }malueVuaKioxrbuffIemumof(, "fNpcs;>tfX_.h *oeufTzsop[i] *xrbuffk)lks;>tfX_k)lro-FIxrbufflrbTHookMlinehook =tLX_yinehook;osi>/fot>lrkfbase-1o->pcs="lpco 0xen D_ hINTslsckfLottfX_maxslsckn'c;+EXTRA_STACKtoeuf h TtfX_is_varargM N===varargs>>>>>>pUMadjust_varargsaCotbase1(tfX_lpaparams o RDMkef(f ntyneD_adjusttopaCotbase1(tfX_lpaparams o RDtopf=tLX_top s, co=reneroopfof#ieterp, tbscuaKio } T;;)emmbeu{ArbuffIemumof(, "f w= *pc++, OP>p h Tlinehookt>>psiOPtraceexecaCotbase1(topotzinehookt, OP0xsUSERDATGET_OPCODE(itau USERD>pATA:vOPMEND:u USERD>pf LX_topf=tAop, OP>ppppp wh2->uoop, OP>ppp}USERD>pATA:vOPMRETURN:u USERD>pf LX_topf=tAop, OP>ppppp wh2->ubase+GETARG_U(it, OP>ppp}USERD>pATA:vOPMCALL:u USERD>pf ode1=, ss;>GETARG_B(it, OP>ppppp h Tn, ss;= MULTMRET)1=, ss;>ataeMULTRET;USERD>pf LX_topf=tAop, OP>pppppt)vD_ jutLotbase+GETARG_A(it,anresto f UM>psitopf=tLX_top s,,,,,,,{ dumbeu{pp}USERD>pATA:vOPMTAILCALL:u USERD>pf LX_topf=tAop, OP>pppppt)vD_ jutLotbase+GETARG_A(it,aataeMULTRET), OP>ppppp wh2->ubase+GETARG_B(it, OP>ppp}USERD>pATA:vOPMPUSHEIL:u USERD>pf ode1=s;>GETARG_U(it, OP>pppppataecSSERT(n>0r">Ee1(fs, argunonm"t, OP>pppppdo L eMbUM>psittype(top++t==NataeTEILumbeOP>ppp} ticr_si--n >L0t s,,,,,,,{ dumbeu{pp}USERD>pATA:vOPMPOP:u USERD>pf topf-= GETARG_U(it, OP>ppppp{ dumbeu{pp}USERD>pATA:vOPMPUSHINT:u USERD>pf ttype(toptf=NataeTELel(oumbeu{{{{{nt>lrkftoptf=N(Kde.reoGETARG_S(it;USERD>pf toprfReufff pp{ dumbeu{pp}USERD>pATA:vOPMPUSH. lpa:u USERD>pf ttype(toptf=NataeT. lpaR UNn OPOPtst>lrkftoptf=Nk)lk[GETARG_U(it];USERD>pf toprfReufff pp{ dumbeu{pp}USERD>pATA:vOPMPUSHELe:u USERD>pf ttype(toptf=NataeTELel(oumbeu{{{{{nt>lrkftoptf=NtfX_knum[GETARG_U(it];USERD>pf toprfReufff pp{ dumbeu{pp}USERD>pATA:vOPMPUSHEEGELe:u USERD>pf ttype(toptf=NataeTELel(oumbeu{{{{{nt>lrkftoptf=N-tfX_knum[GETARG_U(it];USERD>pf toprfReufff pp{ dumbeu{pp}USERD>pATA:vOPMPUSHUPVALUE:u USERD>pf *top++sPMAl->upt>lrk[GETARG_U(it];USERD>pf { dumbeu{pp}USERD>pATA:vOPMGETLOCAu:u USERD>pf *top++sPM*(base+GETARG_U(itt, OP>ppppp{ dumbeu{pp}USERD>pATA:vOPMGETGLOBAu:u USERD>pf LX_topf=tAop, OP>ppppp*topf=t*ttsV_getbsol etLotk)lk[GETARG_U(it]t;USERD>pf toprfReufff pp{ dumbeu{pp}USERD>pATA:vOPMGET l(on:u USERD>pf LX_topf=tAop, OP>ppppptop--Re *sipppp*(top-1osPM*ttsV get L etLottop-1tReufff pp{ dumbeu{pp}USERD>pATA:vOPMGETDOTTED:u USERD>pf ttype(toptf=NataeT. lpaR UNn OPOPtst>lrkftoptf=Nk)lk[GETARG_U(it];USERD>pf LX_topf=tAop+1Re *sipppp*(top-1osPM*ttsV get L etLottop-1tReufff pp{ dumbeu{pp}USERD>pATA:vOPMGETINDEXED:u USERD>pf *topf=t*(base+GETARG_U(itt, OP>pppppLX_topf=tAop+1Re *sipppp*(top-1osPM*ttsV get L etLottop-1tReufff pp{ dumbeu{pp}USERD>pATA:vOPMPUSH.ELF:u USERD>pf TObj /* receivsrReufff ppreceivsrf=t*(top-1tReufff ppttype(toptf=NataeT. lpaR UNn OPOPtst>lrkftop++t==Nk)lk[GETARG_U(it];USERD>pf LX_topf=tAopRe *sipppp*(top-2osPM*ttsV get L etLottop-2)Re *sipppp*(top-1osPMreceivsrReufff pp{ dumbeu{pp}USERD>pATA:vOPMCREATE l(on:u USERD>pf LX_topf=tAop, OP>pppppttsC_ hINTGCaCto 0xRSSSSSht>lrkftoptf=Nc)vH>>lSaC_aGETARG_U(itt, OP>pppppttype(toptf=NataeT l(onocRS>ppppptoprfReufff pp{ dumbeu{pp}USERD>pATA:vOPMSETLOCAu:u USERD>pf *(base+GETARG_U(ittf=t*(--toptReufff pp{ dumbeu{pp}USERD>pATA:vOPMSETGLOBAu:u USERD>pf LX_topf=tAop, OP>pppppu),V_setbsol etLotk)lk[GETARG_U(it]t;USERD>pf top--Re *sipppp{ dumbeu{pp}USERD>pATA:vOPMSET l(on:u USERD>pf StkI2-tf=tAop-GETARG_A(it;USERD>pf LX_topf=tAop, OP>pppppt)vV set L eaC, tott+1to f UM>psitopf-;>GETARG_B(it,s, copopft>lrks >>>>psiOPss{ dumbeu{pp}USERD>pATA:vOPMSETLIST:u USERD>pf ode1auxs;>GETARG_A(it * LFIELDS_P(o_FLUSH;USERD>pf ode1=s;>GETARG_B(it, OP>pppppHashOharr*;>ht>lrkftop-n-1t;USERD>pf LX_topf=tAop-n,s, coSHHalnt>lrk of#`Aop'ap>/pATA:vof#e_cods) >>>>psiOPss } T; n,sn--); f RD>pf *c)vH>setode(Lotarr,an+auxtf=t*(--toptReufff pp{ dumbeu{pp}USERD>pATA:vOPMSETMAP:u USERD>pf ode1=s;>GETARG_U(it, OP>pppppStkI2-fiHaltopf=tAop-2*n, OP>pppppHashOharr*;>ht>lrkffiHaltop-1t;USERD>pf LX_topf=tfiHaltop,s, coSHHalnt>lrk of#`Aop'ap>/pATA:vof#e_cods) >>>>psiOPss } T; n,sn--) L eMbUM>psitop-=2;; f RD>pf *c)vH>set(Lotarr,atoptf=N*(top+1to f UM>psi}eufff pp{ dumbeu{pp}USERD>pATA:vOPMADD:u USERD>pf h Tto==("KENtop-2)=|| to==("KENtop-1)); f RD>pf X ju_areDOfLottop, TM_ADDto f UM>psiMkef OPf RSSSSSnt>lrkftop-2)s+=Ant>lrkftop-1t;USERD>pf top--Re *sipppp{ dumbeu{pp}USERD>pATA:vOPMADDI:u USERD>pf h Tto==("KENtop-1tau USERD>p>pf ttype(toptf=NataeTELel(oumbeu{{{{{{{nt>lrkftoptf=N(Kde.reoGETARG_S(it;USERD>pf f X ju_areDOfLottop+1, TM_ADDto f UM>psi} f UM>psiMkef OPf RSSSSSnt>lrkftop-1)s+=A(Kde.reoGETARG_S(it;USERD>pf { dumbeu{pp}USERD>pATA:vOPMSUB:u USERD>pf h Tto==("KENtop-2)=|| to==("KENtop-1)); f RD>pf X ju_areDOfLottop, TM_SUBto f UM>psiMkef OPf RSSSSSnt>lrkftop-2)s-=Ant>lrkftop-1t;USERD>pf top--Re *sipppp{ dumbeu{pp}USERD>pATA:vOPMMULT:u USERD>pf h Tto==("KENtop-2)=|| to==("KENtop-1)); f RD>pf X ju_areDOfLottop, TM_MULto f UM>psiMkef OPf RSSSSSnt>lrkftop-2)s*=Ant>lrkftop-1t;USERD>pf top--Re *sipppp{ dumbeu{pp}USERD>pATA:vOPMDIV:u USERD>pf h Tto==("KENtop-2)=|| to==("KENtop-1)); f RD>pf X ju_areDOfLottop, TM_DIVto f UM>psiMkef OPf RSSSSSnt>lrkftop-2)s/=Ant>lrkftop-1t;USERD>pf top--Re *sipppp{ dumbeu{pp}USERD>pATA:vOPMPOW:u USERD>pf h T! ju_binTMfLottop, TM_POW)); f RD>pf z,ATa_cod {r">unf(SHHEd iGoaLal "), OPRD>pf top--Re *sipppp{ dumbeu{pp}USERD>pATA:vOPMCAT");:u USERD>pf ode1=s;>GETARG_U(it, OP>pppppu),V_so.conctLot*,atopto f UM>psitopf-;>n-1Re *sippppLX_topf=tAop, OP>pppppttsC_ hINTGCaCto 0xRSSSSS{ dumbeu{pp}USERD>pATA:vOPMMINUS:u USERD>pf h Tto==("KENtop-1tau USERD>p>pf ttype(toptf=NataeTEILumbeOP>pppf X ju_areDOfLottop+1, TM_UNMto f UM>psi} f UM>psiMkef OPf RSSSSSnt>lrkftop-1)s=N-nt>lrkftop-1t;USERD>pf { dumbeu{pp}USERD>pATA:vOPMNOT:u USERD>pf ttype(top-1)s= OPf RSSSSS Tttype(top-1)s==NataeTEILt ?NataeTELel(o=:NataeTEILumbeOP>pppnt>lrkftop-1)s=N1;USERD>pf { dumbeu{pp}USERD>pATA:vOPMJMPNE:u USERD>pf topf-= 2;; f RD>p h T!yrbO_alceTObjftop, top+1t)Adojump(pcK_i);USERD>pf { dumbeu{pp}USERD>pATA:vOPMJMPEQ:u USERD>pf topf-= 2;; f RD>p h TyrbO_alceTObjftop, top+1t)Adojump(pcK_i);USERD>pf { dumbeu{pp}USERD>pATA:vOPMJMPLT:u USERD>pf topf-= 2;; f RD>p h TyrbVTless+=`nfLottop, top+1, top+2t)Adojump(pcK_i);USERD>pf { dumbeu{pp}USERD>pATA:vOPMJMPLE:u coas<= b ==== !(b>>>psiOPsstopf-= 2;; f RD>p h T!yrbVTless+=`nfLottop+1, top, top+2t)Adojump(pcK_i);USERD>pf { dumbeu{pp}USERD>pATA:vOPMJMPGT:u coas> b ==== (b>>>psiOPsstopf-= 2;; f RD>p h TyrbVTless+=`nfLottop+1, top, top+2t)Adojump(pcK_i);USERD>pf { dumbeu{pp}USERD>pATA:vOPMJMPGE:u coas>= b ==== !(a>>>psiOPsstopf-= 2;; f RD>p h T!yrbVTless+=`nfLottop, top+1, top+2t)Adojump(pcK_i);USERD>pf { dumbeu{pp}USERD>pATA:vOPMJMPT:u USERD>pf h Tttype(--topt=!=NataeTEILtAdojump(pcK_i);USERD>pf { dumbeu{pp}USERD>pATA:vOPMJMPF:u USERD>pf h Tttype(--topt===NataeTEILtAdojump(pcK_i);USERD>pf { dumbeu{pp}USERD>pATA:vOPMJMPONT:u USERD>pf h Tttype(top-1)s==NataeTEILt top--Re *sippppMkefedojump(pcK_i);USERD>pf { dumbeu{pp}USERD>pATA:vOPMJMPONF:u USERD>pf h Tttype(top-1)s!=NataeTEILt top--Re *sippppMkefedojump(pcK_i);USERD>pf { dumbeu{pp}USERD>pATA:vOPMJMP:u USERD>pf dojump(pcK_i);USERD>pf { dumbeu{pp}USERD>pATA:vOPMPUSHEILJMP:u USERD>pf ttype(top++t==NataeTEILumbeOP>ppppc++, OP>p>pf { dumbeu{pp}USERD>pATA:vOPMFORPREP:u USERD>pf h Tto==("KENtop-1ta; f RD>pf z,ATa_cod {r">` }'fisep =u bo a ==("KE" ;USERD>pf h Tto==("KENtop-2ta; f RD>pf z,ATa_cod {r">` }'f-tzso =u bo a ==("KE" ;USERD>pf h Tto==("KENtop-3ta; f RD>pf z,ATa_cod {r">` }'f nitialnt>lrk =u bo a ==("KE" ;USERD>pf h Tnt>lrkftop-1)s> 0 ?(f ntffffffffnt>lrkftop-3)s> nt>lrkftop-2)s:(f ntffffffffnt>lrkftop-3)s< nt>lrkftop-2))o _dR`empty'eroop>>>>>>pUMMMMMsstopf-= 3oUN===ARl(&o ontrolnt>ri L eso>>>>pUMMMMMssdojump(pcK_i);UN===jump A:-roopfendo>>>>pUMMMMM}eufff pp{ dumbeu{pp}USERD>pATA:vOPMFORLOOP:u USERD>pf ataecSSERT(ttype(top-1)s==NataeTELel(oVE Ee1(fs, isep" ;USERD>pf ataecSSERT(ttype(top-2)s==NataeTELel(oVE Ee1(fs, -tzso" ;USERD>pf h Tttype(top-3tf!=NataeTELel(ot>>pUMRD>pf z,ATa_cod {r">` }'f ndexg=u bo a ==("KE" ;USERD>pf nt>lrkftop-3)s+=Ant>lrkftop-1t;e)_dRincrenonmf ndexg>>>>pUMMMMM h Tnt>lrkftop-1)s> 0 ?(f ntffffffffnt>lrkftop-3)s> nt>lrkftop-2)s:(f ntffffffffnt>lrkftop-3)s< nt>lrkftop-2))>>pUMMMMMsstopf-= 3oUN===endoroop:=ARl(&o ontrolnt>ri L eso>>>>pUMMMMMMkef OPf RSSSSSdojump(pcK_i);UN===ARpi}p roopf>>>>psiOPss{ dumbeu{pp}USERD>pATA:vOPMLFORPREP:u USERD>pf Nt, O*nh *oeufRD>pf h Tttype(top-1)s!=NataeT l(ont-FIRSRD>pf z,ATa_cod {r">` }'f L e]=u bo a L e" ;USERD>pf nt, O=Nc)vH>>lxttLotht>lrkftop-1),N&yrbO_lilobj /* ;USERD>pf h Tnt, O==N, v{Memum_dR`empty'eroop>>>>>>pUMMMMMsstop--RUN===ARl(&o L egH)osif RSSSSSdojump(pcK_i);UN===jump A:-roopfendo>>>>pUMMMMM}eufff ppMkefemKion HNMMsstopf+O_2R _dR ndex,t>lrk >>>>pUMMMMMMM*(top-2osPM*keyTnt, t;USERD>pf f *(top-1osPM*t>lTnt, t;USERD>pf }eufff pp{ dumbeu{pp}USERD>pATA:vOPMLFORLOOP:u USERD>pf Nt, O*nh *oeufRD>pf ataecSSERT(ttype(top-3)===NataeT l(onVE Ee1(fs, L e" ;USERD>pf nt, O=Nc)vH>>lxttLotht>lrkftop-3)ottop-2)Re *sipppp h Tnt, O==N, v{MeN===endoroop>>>>>>pUMMMMMsstopf-= 3oUN===ARl(&o L e,vkey, \2-/list=>>>>pUMMMMMMkefemKion HNMMss*(top-2osPM*keyTnt, t;USERD>pf f *(top-1osPM*t>lTnt, t;USERD>pf SSdojump(pcK_i);UN===ARpi}p roopf>>>>psiOPss}eufff pp{ dumbeu{pp}USERD>pATA:vOPMCLOSURn:u USERD>pf LX_topf=tAop, OP>pppppttsV_Lclosup fLottfX_kp} - [GETARG_A(it],>GETARG_B(itto f UM>psitopf=tLX_top s,,,,,,,ttsC_ hINTGCaCto 0xRSSSSS{ dumbeu{pp}USERD}USE}ecv===ARSERe jump taX_eeifalelex/. mlux72zio.* inc20 16:39:c/lzio.*h 55*13 ** $L06/12 13:52:05dlus h *manipulSoma generlocodpuffcs-eam#ieterfacEor Lugenerator enerator en in luyrighto *> en in lcode.hht #includCopyright lex/las.h * see lua-4.0/src/lcodezio.h */ /* skipped: lmemlexh * setoee l-----------------------------------------------------MmemoryN{taXersl---* set to locode1zmfil{ta (ZIO* zau USE(rLet)zRs, coA:-O_Jwarwarnodes H)osi wh2->uEOZo s toZIO* zmtiGCa(ZIO* z,Sxrbuff[TOK* bots'c;_t s'c;emxrbuff[TOKEN*/ )} oa (b==, v{Meedef s> RRRU z->nf=ts'c; ffpz->pf=tpxrbuffunsignedf[TOKEN)b ffpz->fil{ta =1zmfil{ta ffpz->u => RRRU z->n/ = T/ o-FIedef s>zRe}ex===------------------------------------------------------------Miscodes ---* setZIO* zstiGCa(ZIO* z,Sxrbuff[TOK* semxrbuff[TOKEN*/ )} oa (s==, v{Meedef s> RRRU edef s>zmtiGC(z,Ss,tso.lf (s)ot*/ toe}ex===--------------------------------------------------------------*FILEsl---* set to locode1zffil{ta (ZIO* zau USEs'c;_t n, OPoa (f;of((FILEEN)z->u))i wh2->uEOZo 1=s;>f"} z->{taXerrM1, ZBSIZE, (FILEEN)z->u), OPoa (n==0>i wh2->uEOZo 1z->nf=tn-1Re *z->pf=tz->{taXerRRU edef s>* z->p++to s toZIO* zFtiGCa(ZIO* z,SFILE* femxrbuff[TOKEN*/ )} oa (f==, v{Meedef s> RRRU z->nf=t0Re *z->pf=tz->{taXerRRU z->fil{ta =1zffil{ta ffpz->u =>fRRU z->n/ = T/ o-FIedef s>zRe}exx===--------------------------------------------------------------- , >dn---* ses'c;_t z"} >pZIO *z, rLet *bots'c;_t n )} ticr_sinau USERDs'c;_t m NNoa (z->nf=(L0t sipppp h Tz->fil{ta(z)===NEOZ); edef s>noUN===ARh2->ucde.bscof#missp[i]bytesf>>>>psiOPzungetctzt,s, copuel, sElmfudata`fil{ta'AinVtheN{taXer >>>>psi}USERDm==Nin=<=tz->nt ?Nn :tz->n;s, co=in. betweenun \2-z->nf>>>>psimemcpy({,*z->p, mto 0xRSz->nf-= mo 0xRSz->pf+O_mo 0xRSbf=tpxTOKEN)b +_mo 0xRSnf-= mo 0xg f wh2->u0, L===ARSERe jump taX_eeifal es nf(S MINIMALlelex/. mlux72auxlibi* inc20 16:39:c/lauxlibi*h 55*43 ** $Lexi30 13:07:48dlus h *manipulSomAuxiliary e lf->c nfooo tildp[i]Lua libr>riesor Lugenerator enerator en in luargighto *> en in luyrighto *> en in lcode.hht #iTh n ir_susesft otheNofficialncPIaof#Lua.====Any e lf->c declaredfherescould bo writtenuasAan applicaLal lf->c.====WeDOScare,otheA:ve lf->c ncan beAuseddby other libr>ries.==/ 20includCopyright lex/las.h * see lua-4.0/src/lcode.uxlibit lex/las.h * see lua20includCopyrigdebug/* skippes.h * see lua-vaataLIBecPIaode1yuaL_et\2ssop[i]pxrbuff[TOKEN*/ 1(xrbuff[TOKENxrbufflist[] )} ode1+ } TS.zsolist[i] luoUSERD h Tso.cmp(list[i]ot*/ t ;hte (f ntff wh2->uio 0x }(lf f-1fs, coT/ cr_top L) bufe==ataLIBecPIa struu),L_argM_cod pen voifs, e1(f(eu arg,kxrbuff[TOKENe,tramsgte{ e)en _Debug arRRU l),_getslsckfLot0,N&aroo-F l),_get>/foaC_a" ",N&aroo-F h Tar.n/ ==N, v{M>>pUMar.n/ = "?"o-F l),L_vK_cod {r">b >argunonm #%$ toO`%.50s l(%.100s)"r(f ntffffffffff arg,kar.n/ , e,tramsgt, e=== to loc strutype_M_cod pen voifs, e1(f(eu arg,kode1tte{ e)[TOKE{taX[50];USEspop[tf({taXr">%.8s] , /*`$,ogr_t%.8s"1(en typennmefLott)r(f ntfffffffffffffffffffffffffffffffffffffffen typennmefLoten typetLot*argM))o-F l),L_argM_codtLot*arg_N{taX), ocvaataLIBecPIa struu),L_ hINTslsck pen voifs, e1(f(euspac;,kxrbuff[TOKENmes )} oa (spac; >ten slscknpac; {o (f ntyneL_vK_cod {r">slsck (&orflowl(%.30s)"r mes), ocvaataLIBecPIa struu),L_ hINTtype(ln voifs, e1(f(eu arg,kode1tte{ e) h Tyrb typetLot*argMs!=Nt (f nttype_M_codtLot*arg_Nt), ocvaataLIBecPIa struu),L_ hINTanyA(ln voifs, e1(f(eu argte{ e) h Tyrb typetLot*argMs==NataeTEONE (f ntyneL_argM_codtLot*arg_N"/list= , /*`$"), ocvaataLIBecPIaxrbuffx"noo*l),L_ hINT_ltok pen voifs, e1(f(eu arg,ks'c;_t *lf tf(eufxrbuffx"noo*sO=Nc)v_to*/.z))tLot*argMo-F h T!s )type_M_codtLot*arg_NataeT. lpato-F h Tlf tf*lenf=ten sl.lf (Lot*argMo-F wh2->us, ocvaataLIBecPIaxrbuffx"noo*l),L_opt_ltok pen voifs, e1(f(eu arg,kxrbuffx"noo*f(S,ks'c;_t *lf tf(euf h Tyrb isnujutLot*argM)no-FIRS h Tlf t(f ntff*lenf=t(f(S ?tso.lf (f(S) :t0t s,,, wh2->uf(So 0xg f Mkefe wh2->ultsL_ hINT_ltoktLot*arg_Nlf t, ocvaataLIBecPIadouL egltsL_ hINT_nde.re pen voifs, e1(f(eu argte{ e)douL egdO=Nc)v_tonde.re {rt*argMo-F h Td ;htef&& !yrb isnue.re {rt*argMMeN===O_Jware,tra test when dl ncr_t0n>>>>psitype_M_codtLot*arg_NataeTELel(oto-F wh2->ud, ocvaataLIBecPIadouL egltsL_opt_nde.re pen voifs, e1(f(eu arg,)douL egd(S) (euf h Tyrb isnujutLot*argM)n wh2->uf(So 0xMkefe wh2->ultsL_ hINT_nde.re {rt*argMo-ocvaataLIBecPIa struu),L_tiGClib'(en voifs, e1(xrbuffcs-dcseu),L_reg=*l1(f(eu t)} >/el+ } TS.zsoiargp;USEva_ tort(argp, fmtto-F vspop[tf({taXr"fmt, argp);USEva_end(argp);USEz,ATa_cod {r"{taX), ocva20 16:{====================================================== 16:GenerlocBtaXer manipulaLal 16:======================================================= pf==t(B)->{taXer)iof(SHHEA{taXlf (B) ((B)->pf-t(B)->{taXer)iof(SHHEA{taXf"}e(B) ((s'c;_to(ataL_BUFFERSIZEf-t{taXlf (B)o (iof(SHHEALIMIT (ataeMINSTACK/2)=== to locode1empty{taXer (u),L_BtaXer *Bau USEs'c;_t l =A{taXlf (B)o-F h Tlf=(L0t UMh2->u0;UM/C puelcr_hp[i]l slsck1uaKioekefe{ ==t)v pushc/lcode(B->{r"B->{taXerrMltRRUNNNB->pf=tB->{taXerRRU NNB->level++, OP>p wh2->u1o RDlocvar locvar struadjustslsck pen L_BtaXer *Bau USE h TB->levelf> 1te{ ==t)v voifs, ef=tB->LumbeOPode1togetA=f1fs, cocde.bscof#levels A:- oEh Td>>>>psis'c;_t toplenf=ten sl.lf (Lot-1t;USERDdo L eMbUMs'c;_t l =Aen sl.lf (Lot-(toget+1t)umbeu{pp h TB->levelf-1togetA+ 1s>= LIMIT=|| toplen >Llau USERD>p>ptoplen +=AlReufff 1togetrfReufff }>>psiOPekefe{ dumbeu{l ticr_sitogetAlevelt, OP>p h TtogetA>= 2Mem>>pUMPKz,A_ oEh TfLottoget)umbeu{ppB->levelf= B->levelf-1togetA+ 1;USERD}USE}ecvvaataLIBecPIax"noo*l),L_prep{taXer (u),L_BtaXer *Bau USE h Tempty{taXer(B)o>>pUMadjustslsck(B)o-F wh2->uB->{taXerRRocvaataLIBecPIa struu),L_addlssop[i]pen L_BtaXer *B1(xrbuffx"noo*s,ks'c;_t l )} ticr_sil--); f l),L_putx"no(B1(*s++to s toataLIBecPIa struu),L_addssop[i]pen L_BtaXer *B1(xrbuffx"noo*ste{ e)en L_addlssop[i(B1(s,tso.lf (s)to s toataLIBecPIa struu),L_push, sElmf(u),L_BtaXer *Bau USEempty{taXer(B);USE h TB->levelf;hte (f ntt)v pushc/lcode(B->{r", v{,te o RDMkefn h TB->levelf> 1t UMPKz,A_ oEh TfB->{r"B->levelt, OPB->levelf= 1o s toataLIBecPIa struu),L_add/list=(u),L_BtaXer *Bau USEt)v voifs, ef=tB->Lumbes'c;_t vl =Aen sl.lf (Lot-1);USE h Tvl <=A{taXf"}e(B)Memum_dRfimf nA:-{taXer?f>>>>psimemcpy(B->p, c)v_to*/.z))tLot-1),Nvlt,s, copuelitntheres>>>>psiB->pf+O_vlReuffft)v popaCot1toUN===ARl(&o udataslsck1uaKiog f ekefe{ == h Tempty{taXer(B)o>>pUMfft)v inserTfLot-2)Rs, copuel{taXer befvp cewnt>lrk >>>>pUMB->level++,eN===Odd cewnt>lrk nA:-Baslsck1uaKioUMadjustslsck(B)o-F }ecvvaataLIBecPIa struu),L_{taX nit pen voifs, e1(en L_BtaXer *Bau USEB->Lf=tL, OPB->pf=tB->{taXerRRU B->levelf= 0oe}ex===}====================================================== lua20iARSERe jump taX_eeifalelex/. mlux72baselibi* inc20 16:39:c/lbaselibi*h 55*17 ** $Le1/06 13:45:18dlus h *manipulSomBasvarlibr>ryor Lugenerator enerator en inctypeighto *> en in luyrighto *> en in lulibighto *> en in lcode.hht 20includCopyright lex/las.h * see lua-4.0/src/lcode.uxlibit lex/las.h * see lua20includCopyrigdebug/* skippes.h * see lua20includCopyriglibit lex/las.h * see luacva20 16:If your * stemDdoe ncr_tsuppoh `stda_c',iARf(SHHEAth ne lf->c, or==== wf(SHHEA_ERRORMESSAGE so==Nen *(--topn'te`$ to_ALERT=/ 2o locode1yuaV_B__ALERTen voifs, e1( USEB-fel{s(sL_ hINT_nd.z))tLot-1,Nvlda_c',-F wh2->uB- e===ur====F svarliimpnonms al #leRRORMESSAGE s===WeTheibr>ryor `liobr>'wf(SHHEA_sERRORMESSAGE sooo tietscuacod pefoaCatAic.==== 2o locode1yuaV_B__RORMESSAGE son voifs, e1( USEB-,L_ hINTtype(lnL1, ZBaeT. lpato-F h,_get>/ol etLotk)aecSSLERT-F h Tlf= isnuflf->ctLoZ, tau _dR oJware,tod peopf>> Tl_ALERTencr_t0nSHHEd iKion yua >=bug arRRU l)en push*/.z))tLotlr"tod p: ;USERD>p push*/lrkfLX_1oo-FIRSUM Tlf= istslsckfLot0,1&aroo-m>>pUMPKz,A_ ot>/foaC_a" "SlN&aroo-F hRSUM Tlfar.urc =L& !yar.curntly EA_E>t sipppp h[TOKE{taX[501];USEvaMbUMs'cp[tf({taXr">%.\n <%.70s:ineOoo%d>"ar.n/sh `_src,yar.curntly EA_ OP>pppppu),V_ush*/.z))tLotlraX), oc>pppppu),V_uEh TfLottoRe *sippppSERD}USE}een push*/.z))tLotlr"\n;USERD>p puEh TfLotto3USERD>p purawjutLotba10t,USElocv wh2->uB- e===ur====F your * stemDdoe ncr_tsuppoh `stda_ou,nkeur an bestslRl(&o L ne lf->c, .==F your e`$ tkeur an beSHHEA_Eur * n Td`p[tf(' lf->c, orfollowi]peL ne==F modf= el, ang_di]pe`fel{s- Tdel{te slscdes ar_t prtzGoaL plEor Lug(arbuffosilwi]dow} smaeopgir_su } peiuant ce)=== 2o locode1yuaV_B_p[tf(on voifs, e1( USEB-e1=s;>GEA_ ot>/taCot), cocde.bscof#legunonm #>>>>psiel+ ,_get>/ol etLotk)"*/.z))tL;USERD} TS.zs1ip push*/lrkfLX_1ot;e)_dRinflf->c towinb/ juM` iKion yua >=sh*/lrkfLX_1o;UN====varak n Tde[tf(oKion yua >=rawjutLotba10to-FIRSUM=Nc)v_to*/.z))tLot*at;e)_dRintA+ sElmf>>>>pUM/C (spa=N, v{M>>pUMMMMMATa_cod {r">` */.z))tL'u boh2->uB-ascodent>O`%.p[tf('"-FIRSUM Tlfi>e{ fel{s("\t"vlda_ou,-FIRSUMfel{s(svlda_ou,-FIRSUMv popaCot1toUN===ARpft>sElmf>>>>pg f Mkfel{s("\n"vlda_ou,-FIRSh2->uB- e===uro locode1yuaV_B_==("KE (TO voifs, e1( USEB-e1=sseliNc)v_topt_nde(Lotar21to0-F h TlfseliNc=to0->n,C iscoandd K_nv h s"fuaKioynB-,L_ hINTtyanyX_1oo-FIRSUM Tlf= isnue.re {rt*a1-m>>pUMPKz,A_ osh*/e.re {rt*av_tonde.re {rt*a)umbeu{pp hh2->u1o RDlo}USEg f ekefe{ ==t)buffIenoo*ste1Nc)v_topINT_nd.z))tLot-1,NRDlo}Unoo*ste; f RDsignedf[T*)er n;oynB-,L_ hgunpINT_notar2=A{taeliN !yaeliNA{t36ar21t"aeliNou,f#lerg_do"-FIRSUM=tso.lftoul(s1&ars2base+G-FIRSUM Tlfe1N!so.2 _dR oJleaufftw_d hfs, gits,>>>>pUMMMMMcr_sil-isac; {o(signedf[TOKEN)te;-m>s2,eN===OdludCraceilenn'cc; {>>>>psiOP h Tlete;Nc=t0')fbum_dRlnn 1(fs, Lceilenn'OKENacrr a>>>>pUMMMMMyrbT_osh*/e.re {rt*an oc>pppppu)h2->u1o RDlo}U}USERD}USE}ecvyrbT_osh*/eilot), cocdefe{ _tsuade.bscuaKion h2->u1o Lex to locfse1yuaV_B_cod pen voifs, e1( USEt)v vocod {r">`v_topt_nd.z))tLot-1,, v{M) (FIRSh2->uB- e coA:-O_Jwarwarnodes H)osi} to locfse1yuaV_B_tbsol eufen voifs, e1( USEB-,L_ hINTtyanyX_1o2-F h,_getbsol etLotk)v_topINT_nd.z))tLot-1,N-FIRSh2->uB- e===uo locfse1yuaV_B_tbsol eufen voifs, e1( USEt)v vogbsol etLotk)v_topINT_nd.z))tLot-1,N-FIRSh2->uB-1e===uo locfse1yuaV_B_ =men voifs, e1( USEB-,L_ hINTtyanyX_1o1-F h,_gesh*/e.re {rt*av_tonaLot-1,N-FIRSh2->uB-1e===uo locfse1yuaV_B_t L men voifs, e1( USEB-,L_ hINTtype(lnL1, ZBaeT. (ont, OP>p push*/lrkfLX_1oo-F copuelsh L egH)osif ,_getbsnaLot-1v_topINT_nde(Lotar2N-FIRSh2->uB-1e===ARh2->ucdL egH)osi==uo locfse1yuaV_B_wntL men voifs, e1( USEB-,L_esh*/e.re {rt*av_towntL m(LN-FIRSh2->uB-1e===uo locfse1yuaV_B_ctorL mthod >sen voifs, e1( USEB-,L_esh*/e.re {rt*av_toctorL mthod >sot-1v_topINT_nde(Lotar1(f ntfffffffffffffffffffffffffffffffffffffffev_topINT_nde(Lotar2N--FIRSh2->uB-1e===uo locfse1yuaV_B_ol etLsen voifs, e1( USEB-,L_egbsol etLsot), cocdrak n Tdb wh2->ul iKion T!yrbVTsnujutLot*a1-m>>pUMPK,L_ hINTtype(lnL1, ZBaeT. (ont, OP>p>p push*/lrkfLX_1oo-F copuwnt>L egH)#leol etLseKion yua >=sbsol etLsot),Elocv wh2->uB-1e===uo locfse1yuaV_B_rawtA+ n voifs, e1( USEB-,L_ hINTtype(lnL1, ZBaeT. (ont, OP>p p hINTtyanyX_1o2-F h,_gerawtA+ot-2)Rs,v wh2->uB-1e===uo locfse1yuaV_B_rawsA+ n voifs, e1( USEB-,L_ hINTtype(lnL1, ZBaeT. (ont, OP>p p hINTtyanyX_1o2-F h,_g hINTtyanyX_1o3-F h,_gerawt(Lotar-3-FIRSh2->uB-1e===uo locfse1yuaV_B_t L mthod >>O voifs, e1( USEB-e1=sL me=1v_topINT_nde(Lotar1(FIRSbuff[TOKENe,tnto Nc)v_topINT_nd.z))tLot-12-F h,_g hgunpINT_notar= isnuflf->ctLoZ, 3|| tobVTsnujiloZ, 3|3ot1 ntfffffffffffffff"flf->c tonlo}il, /*`$"), oc h Tso.cmp(litnto 1t"gc")hte (f ntt)v pucod {r">` depreTfL iuse:an b_tsupe{te sl`gcta =method >>ataslLua"-F h,_get>/L mthod >ottogageventoocRSLX push*/lrkfLX_1o3-F h,_getbsL mthod >ottogageventoocRSLXh2->u1o Lex to locfse1yuaV_B_g L mthod >>O voifs, e1( USEB-e1=sL me=1v_topINT_nde(Lotar1(FIRSbuff[TOKENe,tnto Nc)v_topINT_nd.z))tLot-12-F h Tso.cmp(litnto 1t"gc")hte (f ntt)v pucod {r">` depreTfL iuse:an b_tsuge{te sl`gcta =method >>ataslLua"-F h,_get>/L mthod >ottogageventoocRSLXh2->u1o Lex to locfse1yuaV_B_gc; s;>n voifs, e1( USEB-,L_esh*/e.re {rt*av_togbsocuCter(LN-FIRS,L_esh*/e.re {rt*av_togbsoct sElhold(LN-FIRSh2->uB-2 Lex to locfse1yuaV_B_To /*ttgarbage>n voifs, e1( USEB-,L_esbsoct sElhold(L>`v_topt_nde(Lotar10t,U-FIRSh2->uB- e===uro locode1yuaV_B_=e(len voifs, e1( USEB-,L_ hINTtyanyX_1o1-F h,_gesh*/.z))tLotlrbT_ypennmefLoten typetLot*a1N--FIRSh2->uB-1e===uuo locfse1yuaV_B_wnx+ n voifs, e1( USEB-,L_ hINTtype(lnL1, ZBaeT. (ont, OP>p petbsLaCot1tRs, copui}pe 1Ra 2nargunonm #% Tseres)s ln'te_d hKion T!yv_townxLotar1(>pUM wh2->u(y2RDMkefn h ==t)v vosh*/eilot),pUM wh2->u(y RDlocvar locvar seMpcsasssElmr apn voifs, e1(f(euspafs,usf(euspoldttf(eufdoocvar sbuff[TOKENxrbufflicod {mefLs[] OPf RS{"ok"vl"run-me? icod {"vl"r_suscod {"vl"syntaxscod {"v ntfff"moryN{tcod {"vl"cod pefo,tod pendle )tL;}F h Tso.cs,us(L0t sippppe1=, ss;mr apGEA_ ot>/taCot) -poldttfFIRSUM Tlf ss;mr ap> (f ntff wh2->uio ss;mr ae===ARh2lmr ap beal >py sle slsck1uaKiottMkefemKion HNMMv vosh*/userdata(", v{,ts, copuJleaufftw_d hsElmf>> TdgneduT/ o_cods) >>>pUMMMMMh2->u1o RDlo}USEg f ekefe{ /C M_cod >>>>psi}Uv vosh*/eilot),pUM w,_gesh*/.z))tLotlrcod {mefLs[.cs,us]), cocdeod >>c O*nh/pUM wh2->u(y2RDMk}===uo locfse1yuaV_B_dsop[i]pen voifs, e1( USEB-e1=soldttf>GEA_ ot>/taCot), s'c;_t l =FIRSbuff[TOKENe,sNc)v_topINT_ndoktLot*a1&ar, OP# Tl0cocd03/02/2001 jcw1togt whdis egH iKion T!y*sNc=t0'27'N===O_biny e iso>>ort(aeDOS ESC.>>>>>pUMMMATa_cod {r">` d/.z))tL'un b_tsurun pre-m (tigH ic O*"-F #endifIRSh2->uB-sasssElmr aoten tydoaXer(B)Ls,tsol>`v_topt_nd.z))tLot-12et; ),poldttf(e===uuo locfse1yuaV_B_dofi]pen voifs, e1( USEB-e1=soldttf>GEA_ ot>/taCot), s'buffx"noo*fmt = "?v_topt_nd.z))tLot-1,, v{M) ;IRSh2->uB-sasssElmr aoten tydofi]potent =),poldttf(e===uuo locfse1yuaV_B_juuTMn voifs, e1( USEB-e1=soldttf, s'buffx"noo*fmt_nc nca"?v_topt_nd.z))tLot-13>` , oc h nlicod 0oe}_dRindexgof#fiolddeod >>thod >>>>psiel+ ,pafs,usoc h nlinF h,_g hINTtype(lnL1,2ZBaeT. (ont, OP>p;>GEA_ ot>/not-12-F h TsorbVTsnujutLot*a4u _dR ope{twnt>eod >>thod >>>>psi h,_get>/ol etLotk)aecSRORMESSAGE s),pUM wcod 0oA_ ot>/taCot),_dRintA+ dexg>>>>pUMMM push*/lrkfLX_1o4),pUM w,_ges>/ol etLotk)aecSRORMESSAGE s),pUMf ekoldttf>GEA_ ot>/taCot), coA:-Opefvp ceflf->c t-juuTMep{taLal ")>>>pUMopuelsh flf->c toosif ,_gesh*/lrkfLX_1oo-FIRS,_g hINTtysckfLot0,nk)"*/oanyAas unonm #>;USERD} TS.zsoi>n]oKion yua >=rawt>/fnL1,2ZBito f UM.cs,us(Lav_tocutLotbanataeMULTRET), OP>p Tempod te h w{===ARh2lp coolddeod >>thod >>>>psif ,_gesh*/lrkfLX_1oc',-F w w,_ges>/ol etLotk)aecSRORMESSAGE s),pUMf ek Tso.cs,us(te h w{===ARcod pefo,cutL>>>>pUM h Tol.cmphr(t_nc nc, 'x'>>pUMfft)v insh*/eilot), cocdh2->uio il, TdgneduT/e slcod >>>>psi}Uef OPf RSSSATa_cod {r">`v{,ts, coputzGoags, ecod >>DOS ou,faddinc nuT/fLssagesnh/pUM wh2->u(y1,pUMf ek Tso.cmphr(t_nc nc, 'p'eN===O_mu>pesElmr a?>>>pUMMMATa_cod {r">` depreTfL it_nc n `pinVth`cutL'"-FIRSh2->ultsL_ot>/taCot) -poldttfF===ARh2lmr ap beal >py sle slsck1uaKio==uro locode1yuaV_B_==op[i]pen voifs, e1( USEB-OKE{taX[5064USEspoERDATGE typetLot*a1N- ==t)beliNaeTELel(oto:pUMfft)v insh*/.z))tLotlrbT_ypo.z))tLot-1,N-FIRSMMMMh2->u1o RDlo}UbeliNaeTEL lpa:u pUMfft)v insh*/lrkfLX_1oo-FIRSUMMMh2->u1o RDlo}UbeliNaeTEL(on:u IRSUMMMcp[tf({taXr">%.L egH: %p(en typopoterfaot-1,N-FIRSMMMM dumbeu{l beliNaeTELs, l(o;o IRSUMMMcp[tf({taXr">%.flf->c t: %p(en typopoterfaot-1,N-FIRSMMMM dumbeu{l beliNaeTELUSERDATA IRSUMMMcp[tf({taXr">%.userdata(%d): %p(en typaLot-1,Nvl typouserdata(", ,N-FIRSMMMM dumbeu{l beliNaeTELL:u pUMfft)v insh*/.z))tLotlr" il"-FIRSUMMMh2->u1o RDlo}U inf b pUMfft)v iargM_codtLot*a1"/list= , /*`$"), oc}eufen push*/.z))tLotlraX), oc>ph2->uB-1e===uuo locfse1yuaV_B_p cachion voifs, e1( USEB-e1=s;, ,_g hINTtype(lnL1, ZBaeT. (ont, OP>p p hINTtype(lnL1,2ZBaeT. s, l(o;o OP>p;>GEA_ ot>/not-11USERD} TS.zs1ic to>>psi}Uv vosh*/e.re {rt*a;UN===AR1>argp;onm #%Kion yua >=rawt>/fnL1,1*a;UN===AR2nargunonm #%Kion yua >=rawjutLotba21oo-FIRSUM TlfrbVTsnujiloZ, ta; f RD>ph2->u1o RDlo}Ul popaCot1toUN===ARl(&o il,sElmf>>>>pg f Mkh2->uB- e===uro locode1yuaV_B_p cach n voifs, e1( USEB-,L_ hINTtype(lnL1, ZBaeT. (ont, OP>p p hINTtype(lnL1,2ZBaeT. s, l(o;o OP>pv insh*/eilot), cocd.a '\dexg>>>>pUM} T;;)emmbeu{odeT!yv_townxLotar1(hte (f ntff wh2->uio0OP>p>p push*/lrkfLX_1o2e)_dRinflf->c to>>psi}Uv vosh*/lrkfLX_1ot3)m_dRkeepyo>>psi}Uv vosh*/lrkfLX_1ot3)m_dRkelrk >>>>pUMB-a >=rawjutLotba21oo-FIRSUM TlfrbVTsnujiloZ, ta; f RD>ph2->u1o RDlo}Ul popaCot1t2UN===ARl(&o lrk >>2-z-sElmf>>>>pg f ==uro locode1yuaV_B_asser+ n voifs, e1( USEB-,L_ hINTtyanyX_1o1-F h Tlf= isnueiLot*a1-mDlo}Ul pvK_cod {r">slasser+ aigH ! %.901(en topt_nd.z))tLot-12et , -FIRSh2->uB- e===uro locode1yuaV_B_t>/nen voifs, e1( USEB-,L_ hINTtype(lnL1, ZBaeT. (ont, OP>p push*/e.re {rt*av_togbsnot-1,N-FIRSh2->uB-1e===uro locode1yuaV_B_=serTfLon voifs, e1( USEB-e1=sv>GEA_ ot>/taCot), coA:la>argp;onm #:n Tdb wserTfLe>>>>psiel+ ;, pos ,_g hINTtype(lnL1, ZBaeT. (ont, OP>p;>GEA_ ot>/not-11USERD Tvl hte 2) */ juuTe>>DOS oth2egunonm #>>>>psi pos T/ Re *sief OPf RSpos T/v_topINT_nde(Lotar2UN===AR2nargunonm #%nthereSposi>c toosif ,_gesh*/.z))tLotlr" " OP>p push*/e.re {rt*an+1-F h,_gerawt(LotaroUN===ARt.n T/ Re>>>pUM} T;;) n>=pos --) L eMbUMa >=rawt>/fnL1,1*an-F w w,_gerawt(LfnL1,1*an+oUN===ARt[n+o]tAop[n]oKion ufen push*/lrkfLX_1ov-F h,_gerawt(LfnL1,1*aposUN===ARt[pos]tAovaKion h2->u1o e===uro locode1yuaV_B_=l(&o n voifs, e1( USEB-e1=spos,inF h,_g hINTtype(lnL1, ZBaeT. (ont, OP>p;>GEA_ ot>/not-11USERDpos T/v_topt_nde(Lotar21tnUSERD Tvl<=tz- UMh2->u0;UM/C puL egH)nth"pty{t"oosif ,_gerawt>/fnL1,1*aposUN===ARsElmf>>=Rt[pos]t>>pUM} T;; ;pos lposoUSmbeu{Arv inrawt>/fnL1,1*aposto f UM>p,_gerawt(LfnL1,1*aposUN===ARa[pos]tAoa[pos+o]tKion ufen push*/.z))tLotlr" " OP>p push*/e.re {rt*an-1-F h,_gerawt(LotaroUN===ARt.n T/ -1oosif ,_gesh*/eilot),pUM,_gerawt(LfnL1,1*anUN===ARt[n]tAo il,Kion h2->u1o Lex t20 16:{====================================================== 16:GeQuitysort Lug(se+Gd sl`AlgoDOmetsnVthMODULA-3', R h *m Sedgewity; Lug Addis t-Wesl, \1993.)or iioocvar struadt(L2pn voifs, e1(f(euspif(euspj USEB-,L_erawt(LfnL1,1*ai),pUM,_gerawt(LfnL1,1*aj)e===uo locfse1yusort_m pxr voifs, e1(f(euspaf(euspb{ e)_dRmrWARNa:u UereScuer +=(auxsort)u boenp *csck1uaac; >tKion T!yrbVTsnujiLot*a)o _dR`eflf->c t>>>>pUM h n+ sElOP>p>p push*/lrkfLX_1o2e)P>p>p push*/lrkfLX_1oat;e)_dRin-1o- oEhmCspas, eflf->c to>>psi}Uv vosh*/lrkfLX_1ob)Rs, copu-2o- oEhmCspas, eflf->c to2-z-`a'>>>pUMB-a >=rawjutLotba21oo-FIRSUMss;>atrbVTsnujiloZ, ta;RDlo}Ul popaCot1toUNpUM wh2->u(ysElOP>pf ekefe{ coas<= b?nh/pUM wh2->u(yl poss+=`nfLottoaf(b)e===uo locfstruadjuxsortxr voifs, e1(f(eusplf(euspu} ticr_sil--= u _dR`ef T;tail,sEcu s"fuaKioynB-euspif(jNpUM wR oportxenonms uda[l]toa[(l+u)/2]o2-z-a[u]oKion yua >=rawt>/fnL1,1ltRRUNNNB-a >=rawt>/fnL1,1ltu-FIRSUM Tlfeort_m poZ, ta-2)RsN===O_J[u]o>>>pUMMMMMt(L2rt*avltu-F wR opwapda[l] --a[u]oKion yuef OPf RSSSATa_paCot1t2UNIRSUM Tlfu-;hte 1(h dumb wR o oth2eenonms udKioynB-et(f(l+u)/2UNNNB-a >=rawt>/fnL1,1ltiRUNNNB-a >=rawt>/fnL1,1ltl-FIRSUM Tlfeort_m poZ, t2, tau ==O_J[i]>>>pUMMMMMt(L2rt*ailtl-FIRSUMefemKion HNMMv vosaCot1toUN===ARl(&o a[l] >>pUMMMMMa >=rawt>/fnL1,1ltu-FIRSUMUM Tlfeort_m poZ, ta-2)RsN===O_J[u]>>>pUMMMMMyrt(L2rt*ailtu-FIRSUMUMef OPf RSSSSSATa_paCot1t2UNIRSUM}IRSUM Tlfu-;hte 2(h dumb wR o oth3eenonms udKioynB-a >=rawt>/fnL1,1*a;UN===ARPivoto>>psi}Uv vosh*/lrkfLX_1ot1RUNNNB-a >=rawt>/fnL1,1ltut1RUNNNB-t(L2rt*ailtut1RUNNNB-=O_J[l] tz-Phte J[u-1] tz-J[u],o oth`$ to Tdgortxatasll+1o- ou-2oKioynB-et(fl; jt(fuRe *sipp} T;;)emmb_dRinderi L #:nJ[l..i] tz-Phtz-J[j..u] >>pUMMMMM=ARpi}p ro++intilst J[i]= 2MP>>>pUMMMMMcr_sil-a >=rawt>/fnL1,1lt++iNvldort_m poZ, ta-2)RsN={Pf RSSSSS Tlfi>uz,ATa_cod {r">is1(fs, dera_eflf->c to} T;dort)tL;USERDn HNMMv vosaCot1toUN===ARl(&o a[i] >>pUMMMMM}pUMMMMM=ARpi}p ro--jntilst J[j] tz-Ph>>pUMMMMMcr_sil-a >=rawt>/fnL1,1lt--jNvldort_m poZ, t3, tau Pf RSSSSS Tlfjis1(fs, dera_eflf->c to} T;dort)tL;USERDn HNMMv vosaCot1toUN===ARl(&o a[j] >>pUMMMMM}pUMMMMM Tlfjpivot, a[i], a[j] >>pUMMMMM{ dumbeu{pp}USERD>pATt(L2rt*ailtjUNIRSUM}IRSUMa >=rawt>/fnL1,1ltut1RUNNNB-a >=rawt>/fnL1,1ltiRUNNNB-t(L2rt*au-1*a;UN===ARpwapdpivot=(a[u-1])>DOS a[i] >>pUMMM=O_J[l..i-1] tz-J[i] =z-Phtz-J[i+1..u] >>pUMMM=Odd stslR==Nen *(smuer +="half")nthVth[j..i]o2-z-lgM_cow_d hVth[l..u] >>pUMMM Tlfi--= u-i Pf RSSSj=l; i=ifs, l=i+2NIRSUM}IRSUMefemKion HNMMj=i+1ip;>GEA_ ot>/not-11USERD TvlrbVTsnujutLot*aRsN===O_ntherer1Ra 2nargunonm #?>>>pUMMMATa hINTtype(lnL1,2ZBaeT. s, l(o;o OP>pv intbsLaCot1tRs, copumakofs *ceres)s l twoegunonm #>>>>psijuxsortrt*a1*an-F wh2->u1o e===u=}====================================================== lua20t20 16:{====================================================== 16:GeDepreTfL i lf->c ncatoanipulaLaleeol etLoenvironnm #.6:======================================================= /ol etL(en tB_rawt>/},EB-{"raws>/ol etL(en tB_raws>/} };io *>fS ?taeT.DEPRECATEDs, lS20 16:{=juuTMcorsElpon[i]Luflf->c toserTfLi]pe`ol etLs'sAan.a '\gunonm #== 2o locode1yudepreTfL _flf->n voifs, e1( USEB-,L_eserTfLot-2oUN===ARt>lrk[G%nthereSflf->c towinb/ juM` iKion lu_egbsol etLsot),EB-,L_eserTfLot-2Rs, copuL egH)#leol etLsenth1orgunonm #%Kion a >=rawjutLotbaA_ ot>/taCot)-1ataeMULTRET), OP>ph2->ultsL_ot>/taCot), cocdh2->uiouuTMsElmr apKio==uro locodtruaddepreTfL _flf-sen voifs, e1( USEB-el+ } TS.zsoictLoZ, depreTfL _mefLs].e lMo-ocu{Arv insh*/cosup fLottfdepreTfL _flf-1toUNpUM wl_ges>/ol etLotk)depreTfL _mefLs].e toe}eg f ==ur#ef OP0 16:{=venuan apexicaLitRcod pefo,yAas ttpty{o- oEuuTMa)depreTfL Sflf->c t== 2o locode1yudepreTfL _flf->n voifs, e1( USEB-,L_vK_cod {r">slflf->c to`%.2 l(%nthdepreTfL "lrbT_ypo.z))tLot-1-,N-FIRSh2->uB- e coA:-O_Jwarwarnodes H)osi} tro locodtruaddepreTfL _flf-sen voifs, e1( USEB-el+ } TS.zsoi/ol etLotk)depreTfL _mefLs].e toe}eg f ==u#endifIu=}====================================================== lua20to locfsbuffcs-dcseu),L_reg=*lse+G_flf-s[]tAoSEB-{aecSSLERTen tB_SSLERT},EB-{aecSRORMESSAGE sen tB_SRORMESSAGE s},EB-{"EuuT(en tB_EuuT},EB-{"Eo /*ttgarbage(en tB_Eo /*ttgarbage},EB-{"EoorL mthod >s(en tB_EoorL mthod >s},EB-{"dofi]p(en tB_dofi]p},EB-{"do.z))tL;en tB_do.z))tL},EB-{"cod {"vllV_B_cod p},EB-{"p cach(en tB_p cach},EB-{"p cachi(en tB_p cachi},EB-{"gc; s;(en tB_gc; s;},EB-{"g>/ol etL(en tB_g>/ol etL},EB-{"g>/L mthod >(en tB_g>/L mthod >},EB-{"gl etLs(en tB_gl etLs},EB-{"wntL m(en tB_wntL m},EB-{"wnxL(en tB_wnxL},EB-{"p[tf((en tB_p[tf(},EB-{"rawt>/(en tB_rawt>/},EB-{"raws>/(en tB_raws>/},EB-{"rawt>/L e" ;en tB_rawt>/},_dR`ef T;m plocbilityo>>psi{"raws>/L e" ;en tB_raws>/},_dR`ef T;m plocbilityo>>psi{"s>/ol etL(en tB_s>/ol etL},EB-{"tbsL m(en tB_s>/L m},EB-{"s>/L mthod >(en tB_s>/L mthod >},EB-{"L m(en tB_L m},EB-{"nde.re {(en tB_Lde.re {},EB-{"nd.z))tL;en tB_to.z))tL},EB-{"pe(l;en tB_te(l},EB-{"asser+;en tB_asser+},EB-{"g>/n(en tB_g>/n},EB-{"sor+;en tB_sor+},EB-{"pserTfL;en tB_tserTfL},EB-{"pl(&o ;en tB_tl(&o } };io taLIBecPIa struu),L__selibi*GCa(ZI voifs, e1( USEB-,L_vKGClibX_1obe+G_flf-s-F h,_gesh*/.z))tLotlraecSVSIZE;o OP>pv intbsol etLotk)"SVSIZE;o;USERDdepreTfL _flf-sot),E==u=}=SERe jump taX_eeifalelex/. mlux72badbbi* inc20 16:39:c/lbadbbi* i55*1729* $Le1/06 13:7:58:3lus h *manipulSomBaIerfacEor>ataslLua:-O_itthdeg arIa Lugenerator enerator en in luarighto *> en in lulibighto *> en in lcode.hht 20includCopyright lex/las.h * see lua-4.0/src/lcode.uxlibit lex/las.h * see lua20includCopyrigdebug/* skippes.h * see lua20includCopyriglibit lex/las.h * see luacva20ocvar struadt(LL esapn voifs, e1(f(buffx"noo*fmif(buffx"noo*fmv USEB-,L_esh*/.z))tLotlri-F h,_gesh*/.z))tLotlrv OP>pv intbsL eaC, to-3-FI} tro locodtruadt(LL esipn voifs, e1(f(buffx"noo*fmif(e1=sv USEB-,L_esh*/.z))tLotlri-F h,_gesh*/e.re {rt*av OP>pv intbsL eaC, to-3-FI} tro locode1=st>/foaC>n voifs, e1( USEB-,L_ebug arRRU l)buffx"noo*fmt_nc nca"?v_topt_nd.z))tLot-12et flnSu;USERDOKE{taX[502;USEva Tlf= isnue.re {rt*a1-m>>pUMPK TvlrbVTstslsckfLot0,(e1=)bT_ypoe.re {rt*a1-&aroo-m>>pUMPKz,A_ osh*/eilot), cocdvelf= ou,f#lerg_do>>>pUMMMMMh2->u1o RDlo}USEg f ekefe{ Tlf= isnuflf->ctLoZ, 1-m>>pUMPK,L_nsh*/lrkfLX_1oo-FIRSUMcp[tf({taXr">%.>100ss(ent_nc nc-FIRSUMt_nc nca"?aXr"OP>pf ekefe{pUMMMATa hgM_codtLot*a1"/lflf->c tonlovelf= /*`$"), oc h TsorbVTstslfoaC_a" t_nc nc, roo-mpUMMMATa hgM_codtLot*a2>is1(fs, dpl "), OPRDlutowntL eaC, USERD} TS.;fmt_nc nc; t_nc ncoUSmbeu{AroERDATGEmt_nc ncm>>pUMPKz,beliN'S'f ntfffffft(LL esaotk)"urc =L"ar.n/src =LUSERDn HNMM Tlfar.urc =LFIRSRD>pf z,t(LL esaotk)"uh `_src"ar.n/sh `_srcUSERDn HNMMt(LL esiotk)" EA_SHHEd "ar.n/ EA_SHHEd USERDn HNMMt(LL esaotk)"what"ar.n/whatUSERDn HNMM dumbeu{pp}UbeliN'l'f ntfffffft(LL esiotk)"curntly EA_",yar.curntly EA_ OP>pppppu) dumbeu{pp}UbeliN'u'f ntfffffft(LL esiotk)"nups",yar.nups OP>pppppu) dumbeu{pp}UbeliN'n'f ntfffffft(LL esaotk)" to"ar.n/ , USERDn HNMMt(LL esaotk)" , what"ar.n/ , what OP>pppppu) dumbeu{pp}UbeliN'f'f ntffffff,L_esh*/.z))tLotlrlflf-;USERDn HNMMv vosh*/lrkfLX_1ot3)mERDn HNMMv votbsL eaC, to-3-FI>pppppu) dumbeu{ppSEg f ekh2->uB-1e===ARh2->ucdL egH)osi==u{pptro locode1=st>/locufen voifs, e1( USEt)v vobug arRRU l)buffx"noo*fm o-FIed TvlrbVTstslsckfLot0,l_topINT_nde(Lotar1-&aroo-m>cocdvelf= ou,f#lerg_do?>>>pUMMMATa hgM_codtLot*a1"/lvelf= ou,f#lerg_do;USERD = "?v_t_t>/locufot*aroo-1v_topINT_nde(Lotar2N-FIRS Tvl< )} oaff,L_esh*/.z))tLotlr toe}eg Arv insh*/lrkfLX_1ot2UNIRSUMh2->u(y2RDMk}=Mkefn h ==t)v vosh*/eilot),pUM wh2->u(y RDlocvar locvar seMpcs>/locufen voifs, e1( USEt)v vobug arRRU l) TvlrbVTstslsckfLot0,l_topINT_nde(Lotar1-&aroo-m>cocdvelf= ou,f#lerg_do?>>>pUMMMATa hgM_codtLot*a1"/lvelf= ou,f#lerg_do;USERDlL_ hINTtyanyX_1o3-F h,_gesh*/.z))tLotlrv votbslocufot*aroo-1v_topINT_nde(Lotar2N--FIRSh2->uB-1e===ur0incdummy>ri L eso>>(-O_SHHEA{tuniq >>2ddSERs )} = 2o locodnoo*fkey1key, 2RD(SHHEA{tKEY_CALLHOOK (&key1)D(SHHEA{tKEY_LINEHOOK (&key=== to locodtruadhookfpn voifs, e1(f(et *bokey USEB-,L_egbsgistreryot),EB-,L_esh*/userdata(", key ;EB-,L_egbsL eaC, to-2-F h Tso= isnuflf->ctLoZ, -1-m>>pUMPK,L_nsh*/lrkfLX_1oo-FIRSUMa >=rawjutLotba10t,USElocv wefe{pUMMMATaopaCot1toUN===ARpft>sElmf>>ataslgbsL eaCoosif ,_gesaCot1toUN===ARpft>L egH)osi==uto locodtruadjutLfpn voifs, e1(f(v vobug ar*oo-USEB-,L_esh*/.z))tLotlrar->entoocRSLXhookfotlrKEY_CALLHOOK-FI} tro locodtruad EA_fpn voifs, e1(f(v vobug ar*oo-USEB-,L_esh*/e.re {rt*aar->curntly EA_ OP>phookfotlrKEY_LINEHOOK-FI} tro locodtruadt(Lhookpn voifs, e1(f(et *bokeyf(v voHookphookf ntfffffffffffffffffffv voHookp(*t(Lhookf)n voifs, e1 Lf(v voHookph) USEB-,L_esbstaCot1toUNpUM Tlf= isnueiLot*a1-mDlo}U(*t(Lhookf)nL, v{M) ;IRSefe{ Tlf= isnuflf->ctLoZ, 1-mDlo}U(*t(Lhookf)nL, hook ;IRSefe{pUMMMATa hgM_codtLot*a1"/lflf->c to /*`$"), oc h,L_egbsgistreryot),EB-,L_esh*/userdata(", key ;EB-,L_esh*/lrkfLX_1ot;e)_dRindupeepyo>>psi,L_egbsL eaC, to-3UN====vatA+ olddlrk >>>>pUMv insh*/lrkfLX_1ot2UN_dRkeepyo(again)oosif ,_gesh*/lrkfLX_1oo-FIRS,_gotbsL eaC, to-5UN===ARpe{twnt>lrk >>>>par locvar seMpcs>/jutLhookpn voifs, e1((eufdoo(LhookotlrKEY_CALLHOOK,djutLflrv votbsjutLhook-FIRSh2->uB-1e===uro locode1yutbslEA_hookpn voifs, e1((eufdoo(LhookotlrKEY_LINEHOOK,d EA_flrv votbslEA_hook-FIRSh2->uB-1e===uro locodbuffcs-dcseu),L_reg=*ldbbi*[]tAoSEB-{"t>/locuf"art>/locuf},EB-{"g>/; s;(eng>/; s;},EB-{"s>/jutLhook"vld>/jutLhook},EB-{"s>/lEA_hook"vld>/lEA_hook},EB-{"s>/locuf"ars>/locuf} };io aLIBecPIa struu),L__dbbi*GCa(ZI voifs, e1( USEB-,L_vKGClibX_1odbbi*),E==u=}=SERe jump taX_eeifalelex/. mlux72baiobr> inc20 16:39:c/lbaiobr> i55*1791* $Lexi30 13:4510:24us h *manipulSomBaSoandd K_I/Oo(and stemDd)ibr>ryor Lugenerator enerator en inctypeighto *> en in luyrighto *> en in lulibighto *> en in lcode.hht 2*> en in lme? ht 20includCopyright lex/las.h * see lua-4.0/src/lcode.uxlibit lex/las.h * see lua20includCopyrigdebug/* skippes.h * see lua20includCopyriglibit lex/las.h * see luacva2 nf(S MIOLD_ANSI2*> en in lcodnghto *> en in llocuf ht 2/*JCWun b'teAuseddbyeratox,eAucaue{ en in bufflicts>DOS Wi]dowstildp[ua20inJCWu(SHHEA{t dulloc(b,)} o}U((b)=N, v{M> ? mulloc(s:t0t( dulloc),*z-s))ua20inJCWu(SHHEA{t}e(B)b)fffffffff Tlfs) (}e(B)( >>>>p#ef OPRlnn ppoh `sf peopcuf o2-z-} T;dsgiod p: fakofthem>>>p#SHHEA{ts>/locufe(a,b((s'et)zRaso.lfp(li( >,"C")==0?"C":v{M>>p(SHHEALIMC_ALL 0p(SHHEALIMC_COLLATE 0p(SHHEALIMC_CTYPE 0p(SHHEALIMC_MONARG_Y 0p(SHHEALIMC_NUMERIC 0p(SHHEALIMC_TIME 0p(SHHEALIdsgiod p(e) "nerlocodI/Oocod {"p(SHHEALIcodng (-1)D(endifIuo *>fS ?tPOPENPRlnLEEN)zpGC(z,),Ee1=sposupe,),>>>p#SHHEA{tOSURELEENX_1of} o}U((posupe,f)=N, osPM? fosupe,f)=0t p#ef OPRlnn ppoh `sf pepGC(z>>>p#SHHEA{tpGC(z,x,y Uv{M> coA:-n *(-s,epGC(z>always aigs>>>p#SHHEA{tOSURELEENX_1of} o}U(fosupe,f))D(endifIuo#SHHEA{tINLEEN 0p(SHHEALIOUTLEEN)1 peigS ?t-dcseu)IOCtrlUSEB-el+ ref[2]e===ARh2f-} T;dsges H)_INPUT/_OUTPUT>>>psiel+ otagN===copuL g-} T;fi]pendle e>>>>psiel+ osupedtagN==opuL g-} T;osupedendle e>>>>p})IOCtrl; =uro locodbuffcsOKENxrbufflifi]pmefLs[] O-{"_INPUT"vl"_OUTPUT"};io ocvar seMpcsh, sElmf(u),L_oifs, e1(f(euspi USE h Temim>>pUMPK,L_nsh*/userdata(", v{,ts,pUM wh2->u(y RDlocvMkefn h ==t)v vosh*/eilot),pUM w,L_esh*/.z))tLotlrdsgiod p(eodng)),pUM w,L_esh*/e.re {rt*aeodng),pUM wh2->u(y3;RDlocvar l 16:{====================================================== 16:GeLEEN)OpeLal ")s6:======================================================= /ndle eu),L_oifs, e1(f(IOCtrlU*ctrlf(eusp (euf het *bof>GEA_ opouserdata(", fUNpUM Tlfp(te v{Memum_dR`eis `f' a userdata >>>>pUM h n+ fL me=1v_typaLot-1, oc>ppp (f==L me== ctrl-> otagm>cocde ncritend L eMcorsEc=sL m?>>>pUMMMMMh2->u1oILEEN)z-fFIRSUMefe{ Tlf=L me== ctrl->osupedtag>pUMMMMMATa_cod {r">` n b_tsuaccERs a osupedefi]p(RUNNNB-=O_efe{ g=Nenrough>>>pg f Mkh2->uB- RRRU }iofocvar sLEEN)zg>/nojutLfi]pen voifs, e1(f(IOCtrlU*ctrlf(euspgte{ e)doLEEN)z=1zfg>/ndle er">`ctrlf(gMo-F hATa hgM_pINT_notarff(gMo>is1(fs, fi]pendle e"-FIRSh2->ultfU }iofocvar sLEEN)zg>/fi]pbyr_fpn voifs, e1(f(IOCtrlU*ctrlf(euspinou,- e)doLEEN)z=oc h,L_egbsol etLsot),EB-,L_egbsgifr">`ctrl->ref[inou,]),pUM,_gerawtA+ot-2)Rs,v w=1zfg>/ndle er">`ctrlf();USE h Tvlf=N, v{M>>pUMMMlL_vK_cod {r">slol etLori L esoo`%.1 l(%nth_tsuadfi]pendle e"f ntfffffffffffffffi]pmefLs[inou,]),pUMh2->ultfU }iofocvar struadt(Lfi]pby = n voifs, e1(f(IOCtrlU*ctrlf(LEEN)z=f ntfffffffffffffffffffffffffbuff[TOKEN*/ )} oa,L_nsh*/userpaLot-1,, ctrl-> otagmOP>pv intbsol etLotk) toe}ex==p#SHHEA{ts>/fi]potectrlff,inou,- (t(Lfi]pby =otectrlff,fi]pmefLs[inou,]))=uro locode1yutbsh2->u1oI voifs, e1(f(IOCtrlU*ctrlf(LEEN)z=f(euspinou,- e)do Tvlf=N, v{M>>pUMMMh2->uB-sh, sElmf(otk)o RDMkefn hbeu{Aro>/fi]pote`ctrlf(=f(euou,-FIRSUMv poph*/userpaLot-1,, ctrl-> otagmOP>p wh2->u(y RDlocvar locvar seMpcosupefi]pen voifs, e1(f(IOCtrlU*ctrlf(LEEN)z=- e)do Tvlf=N, uyrin| tof=N, uyrou,f tof=N, uyrc',-P>p wh2->u(y RDloefn h ==t)v vosh*/userpaLot-1,, ctrl-> otagmOP>p w,_gotbsL gr">`ctrl->osupedtag>OP>p wh2->u(y(OSURELEENX_1of} te (fRDlocvar locvar seMpcio_osupeZI voifs, e1( USEB-IOCtrlU*ctrlt(f(IOCtrlU*)A_ opouserdata(", -1-F h,_gesaCot1toUN===ARl(&o t>lrk[G%Kion h2->u1osh, sElmf(otk)osupefi]pote`ctrlf(g>/nojutLfi]pote`ctrlf(1N--FIar locvar seMpcfi]p_Eo /*ttZI voifs, e1( USEB-IOCtrlU*ctrlt(f(IOCtrlU*)A_ opouserdata(", -1-F hLEEN)z=1zfg>/nojutLfi]pote`ctrlf(1NSE h Tvlf=!, uyrin|&& f=!, uyrou,f&& f=!, uyrc',-P>p wOSURELEENX_1of},pUMh2->ult e===uro locode1yuio_GCa(ZI voifs, e1( USEB-IOCtrlU*ctrlt(f(IOCtrlU*)A_ opouserdata(", -1-F hLEEN)z=F h,_gesaCot1toUN===ARl(&o t>lrk[G%Kion =1zffGC(z,v_topINT_nd.z))tLot-1,Nvlv_topINT_nd.z))tLot-12N-FIRS Tvlfm>>pUMPK,L_nsh*/userpaLot-1,, ctrl-> otagmOP>p wh2->u(y RDlocvRSefe{pUMMMh2->uB-sh, sElmf(otk)o RD} =uro locode1yuio_atastou),L_oifs, e1(f(euspiuou,xrbuff[TOKENmesode USEB-IOCtrlU*ctrlt(f(IOCtrlU*)A_ opouserdata(", -1-F hLEEN)zcurntlyF h,_gesaCot1toUN===ARl(&o t>lrk[G%Kion Tyrb isnujutLot*a1N- ==t)bsupefi]pote`ctrlf(g>/fi]pbyr_fote`ctrlf(euou,-mOP>p wcurntlyt(f(euou,(L0t ? uyrin|: uyrou,N===c g f ekefe{ Tlf= ispaLot-1,Ne== ctrl-> otagm>cocdeepreTfL it_nc n >>pUMMMcurntlyt(f(LEEN)z-A_ opouserdata(", 1 RDMkefn hbeu{Arbuff[TOKENe,sNc)v_topINT_nd.z))tLot-1,NRDlo}Unurntlyt(f(*sNc=t0|' ? pGC(z,s+1, sode U:ffGC(z,s, sode RDlocvRSh2->us, bsh2->u1ote`ctrlf(nurntlyf(euou,-FI==uro locode1yuio_ >pataslI voifs, e1( USEB-h2->uio o_atastoote`INLEENvl"r"-FI==uro locode1yuio_itteetou),L_oifs, e1( USEB-h2->uio o_atastoote`OUTLEENk)"w"-FI==uro locode1yuio_apC(zdtou),L_oifs, e1( USEB-IOCtrlU*ctrlt(f(IOCtrlU*)A_ opouserdata(", -1-F hLEEN)zcurntlyF h,_gesaCot1toUN===ARl(&o t>lrk[G%Kion nurntlyt(ffGC(z,v_topINT_nd.z))tLot-1,Nvl"a"-FIRSh2->ult bsh2->u1ote`ctrlf(nurntlyf(OUTLEEN)e===ur0in6:{====================================================== 16:GeREAD6:======================================================= fS ?taeT.COMPAT_READPATTERNr0in6:{=Weun b_tsulookah >p>DOS ou,f`$ tkeAucaue{ L ne n belo1uaayrin===WeThne l megneduTshen dlweh`$ to Td >puadenx+ OKEN=== 2#SHHEA{tNEED_OTHER (EOFosPM==ARstslR== = l medier(BtlytataslEOF r iofocvar sel+ read_p ttpu1oI voifs, e1(f(LEEN)z=f(buff[TOKENe,p USEB-el+ nludCr0oe}_dRin{ludC}dvelf= >>psiel+ or0oNEED_OTHERF hATa haXer *BbF hATa haX nit pot*arb-FIRScr_sil-*p(te 0')fbumeu{AroERDATGEmpm>>pUMPKz,beliN'{'f ntffffff nludCReufff }> CReufff }> buftinuebeu{pp}UbeliN'}'f ntffffff Tvlr nludCz,ATa_cod {r">isunetLt ced br; {>>ind >pup ttpu1;USERDn HNMM nludC--ufff }> CReufff }> buftinuebeu{pp}U inf b sipppp h[TOuff[TOKENe,tf>GEA_ I_osassend(L>`p),_dRintA+ wn *(-sdenx+ >>pUMMMMM{ el+ m, copumaDATGsElmf>>>>pUM/Cffff Tvlc=N, vEED_OTHER) or0otA+c(, oc>pppppu)mt(f(c==EOF ? 0 :EA_ I_s)tLlemaDAT(c>`p, epUSERDn HNMM Tlfm Pf RSSSSSff Tvlr nludCz,ATaputx"no(B1&bf(bUSERDn HNMM or0oNEED_OTHERF hhhhhhh} hhhhhhhoERDATGEmep Pf RSSSSSffbeliN'+':MM=ARpi}pti>c to(1onlomore)>>>pUM/CffffSSff Tvlrm gowinb dum_cr_siN===ARp ttpu1o aigs?>>>pUM/CffffSSff=O_efe{ g=Nenrough>>>pg RSSSSSffbeliN'*':MM=ARpi}pti>c to(0onlomore)>>>pUM/CffffSSffcr_sil-m w{===ARh2adthereSs = imDdotilst it aigs>>>p or0otA+c(, oc>pppppu)ppppu)mt(f(c==EOF ? 0 :EA_ I_s)tLlemaDAT(c>`p, epUSERDn HNMMn HNMM Tlfm& !yr nludCz,ATaputx"no(B1&bf(bUSERDn HNMM hh} hhhhhhhSSff=O_g=Nenrough>- oEh tinueRh2adi]peL eRp ttpu1o>>pg RSSSSSffbeliN'?':MM=ARt_nc nal>>>p f>GEep+1e===AREh tinuesRh2adi]peL eRp ttpu1o>>pg RSSSSSff buftinuebeu{pp}UUUUU inf b pUMfft)n HNMM Tlfrm gowinb dum_cr_siN===ARp ttpu1o aigs?>>>pUM/CffffSSfff>GEep, cocdefe{ Eh tinuesRh2adi]peL eRp ttpu1o>>pg RSSSSS} hhhhhSERD}USE}ecnb dum_cr_si: ff Tvlc=!, vEED_OTHER) untA+c(c1of},pUMlL_push, sElmf((rb-F===AREsupeZaXer beKion h2->u1o-*p(c=t0')fb; ==u#ef OP0(SHHEA{t dud_p ttpu1ot-1,, Cz,(ATa_cod {r">is >pup ttpu1ap bedepreTfL ")k)o =u#endifIufocvar sel+ read_e.re pen voifs, e1(f(LEEN)z=- e)douL egd(SFIRS Tvlfsn bf(">%.%lfN&ard)hte 1(h ==t)v vosh*/e.re {rt*admOP>p wh2->u(y RDlocvRSefe{Sh2->uB- e coA: >pu aigs>>>p}Iufocvar sel+ read_worden voifs, e1(f(LEEN)z=- e)doel+ oF hATa haXer *BbF hATa haX nit pot*arb-FIRS L or0oftA+c(, o ticr_sitoisac; {oc)UN===ARpudCrcc; {>>>>psicr_sitoc=!, EOF !yr sac; {oc)U>>pUMPK,L_ htx"no(B1&bf(bUSERDn or0oftA+c(, oDlocvRSuntA+c(c1of},pUMlL_push, sElmf((rb-F===AREsupeZaXer beKion h2->u1o-,_gotlf (Lot-1);Up> (fFI==uro locode1yuread_neOoon voifs, e1(f(LEEN)z=- e)doel+ n 0oe}e hATa haXer *BbF hATa haX nit pot*arb-FIRS} T;;)emmbeu{odOKENe,pNc)v_topep{taXer ((rb-FIRSMM TlfrftA+s(plraecBUFFERSIZEf-1of}) coA: >pu aigs?>>>pUM/Cff dumbeu{pp=tso.lf (Lop-FIRSMM Tlfp[n-1] te 0'n'>pUMMMMMATaaddssoize1&bf(nUN=pUMMMefemKion HNMMv vaddssoize1&bf(nt;e)_dRindoh_tsuaddte sl`'n'>>>pUM/Cff dumbeu{ppSE}ecvyrbT_push, sElmf((rb-F===AREsupeZaXer beKion h2->u1o-np> (fF coA: >pu== =p[i]l?)osi==uto locodtruadread_fi]pen voifs, e1(f(LEEN)z=- e)doc;_t l =en 0oe}e hc;_t l c;_ttB->UFZEf}e hOKENe,aXer be=- RRRU RS} T;;)emmbeu{odOKENe,newaXer be=-(OKENe,) dulloc(bXerrMltc;_t-FIRSMM TlfnewaXer be=e v{MemumpUM/Cff}e(B)bXer)io;on HNMMv v_cod {r">is_tsuenough>moryN{t Td >puadfi]p(RUNNNB-SERD}UaXer be=-newaXer bOP>p w, +=AlRf >p)bXer)i+, +ltc;_tof(OKEN)ltc;_t-, +lt, oc>ppp (f=, +=pualt it coul>>>>psif c;_tt*=y2RDMk}=Mkv vosh*/lsz))tLotlraX),rMltRen-F w}e(B)bXer)io;o==uro locode1yuread_OKENapn voifs, e1(f(LEEN)z=f(c;_t l n USEB-OKE{t*aXer bOP>pc;_t l n1}e hOKENeo loaX[50>UFZEfUSEva Tlf<=tz->UFZEf)ERD}UaXer be=-o loaX[5RDMkefn hbeu{AraXer be=-(OKENee,)mulloc(n oc>ppp (f=aXer be=e v{Memon HNMMv v_cod {r">is_tsuenough>moryN{t Td >puadfi]p(RUNNN}=Mkn1Nc)f >p)bXer)iltc;_tof(OKEN)ltn1of},pUMlL_osh*/lsz))tLotlraX),rMltn1NSE h TvlaXer be!=-o loaX[5)f}e(B)bXer)io;on h2->u1o-n1p> (f ton te (fRD==uro locode1yuio_ >pu),L_oifs, e1( USEB-IOCtrlU*ctrlt(f(IOCtrlU*)A_ opouserdata(", -1-F he1yuaaort(me=1v_tyt>/taCot) -p1F he1yu.a 't(me=11F hLEEN)z=1zfg>/ndle er">`ctrlf(.a 't(m-F he1yunFIRS Tvlfm>.a 't(mReufffefn h=1zfg>/fi]pbyr_fote`ctrlf(INLEEN),_dRintA+ _INPUToosif ,_gesaCot1toUNIRS Tvlfa 't(me>uaaort(mbum_dRlnn gunonm #>?>>>pUMMMATa_sbstaCot1t(fF coA:ereliNt>lrk[G%2-z-oeresventooual>garbage>>>pUMMM.a 't(me=1aaort(me=11e===AREhrsEc=sindi {>>>>psiOP,L_esh*/.z))tLotlr"*l"-FUMopuelsh inf brgunonm #%Kion f ekefe{ coasenp *csck1uaac; >t} T;uuTMsElmr ap2-z-} T;xlibit'sZaXer beKion RDlL_ hINTtysckfLot0,laort(m-.a 't(mR1+aeMULINSTACKk)"*/oanyAas unonm #>;USERD} TS.n 0o.a 't(m; n<=laort(m; noUSmbeu{Are1yutuccERsoc>ppp (f=, isnue.re {rt*an; f RD>ptuccERs 0oread_OKENaot-1,, (c;_t l)bT_ypoe.re {rt*an-mOP>p wefemKion HNMMbuff[TOKENe,pNc)v_topINT_nd.z))tLot-1n oc>ppppp Tlfp[0] te 0*'FIRSRD>pf tuccERs 0oread_p ttpu1ot-1,, Cz;>cocdeepreTfL !>>>pUM/CffefemKion HNMMhhoERDATGEp[1])> Pf RSSSSSffbeliN'n':MM=ARe.bscuaKion Tlfrread_e.re pX_1of} gowinendopf>e coA: >pu aigs>>>pn buftinuebMM=ARe.bscuaiseal >py elsh lJwarwae sl"sh*/.z))tL"o>>pg RSSSSSffbeliN'l':MM=ARneOoo>>pn tuccERs 0oread_neOoot-1, oc>ppppppppppp dumbeu{pp}USSffbeliN'a':MM=ARfi]pe>>pn read_fi]pot-1, oc>ppppppppppptuccERs 0o1e==Oddlways tuccERs >>pn dumbeu{pp}USSffbeliN'w':MM=ARworde>>pn tuccERs 0oread_wordot-1, oc>ppppppppppp dumbeu{pp}USSff inf b pUMfft)n HNMMATa hgM_codtLot*an>is1(fs, fCatAi" oc>ppppppppppptuccERs 0o e coA:-O_Jwarwarnodes H)osipppppppp} hhhhhSERD}USE}e TlfrtuccERsm>>pUMPKz,A_ osaCot1toUN===ARl(&o la>arsElmf>>>>pUM/Cff dumb wR o >pu aigs>>>pn SE}ecnendopf>:on h2->u1on -p.a 't(m;===u=}====================================================== lua20t2o locode1yuio_itteeen voifs, e1( USEB-el+ aaort(me=1v_tyt>/taCot) -p1F hIOCtrlU*ctrlt(f(IOCtrlU*)A_ opouserdata(", -1-F he1yut(me=11F heuspafs,use=11F hLEEN)z=1zfg>/ndle er">`ctrlf(t(m-F heTvlfm>t(mReufffefn h=1zfg>/fi]pbyr_fote`ctrlf(OUTLEEN)e_dRintA+ _OUTPUT>>>psi} TS.;ft(metz- laort(m; t(mRemmbeu{odeT!yv_tope(lnL1,t(mbu luaeTELel(otobum_dRlnaeTEel(oto >>pUMMMMM=ARt_ncmiza>c t: coul>>bendoALIcxactlysAan. T;dsges H)>>pUMMMMMtfs,use=1tfs,use&& fp[tf({t">%.%.16g"lrbT_ypoe.re {rt*aarg)Up> (UNNNB-SERD}UefemKion HNMMc;_t l =FIRSSSffbuff[TOKENe,sNc)v_topINT_ndoktLot*agMo>i&l oc>ppppptfs,use=1tfs,use&& (fittee(svld;_tof(OKEN)ltl1of} te lRUNNNB-SERDSERDsh, sElmf(otk)tfs,us-FIRSh2->uB-1e===uro locode1yuio_seekpn voifs, e1((eufdoo locodbuffcsel+ mode[] O-{SEEK_SET, SEEK_CUR, SEEK_END}F ho locodbuffcsOKENxrbufflimodemefLs[] O-{"s>/(en"cur"vl"cn "arv{Me}F hIOCtrlU*ctrlt(f(IOCtrlU*)A_ opouserdata(", -1-F hLEEN)z=F he1=sofFIRS*)er offs>/F h,_gesaCot1toUN===ARl(&o t>lrk[G%Kion =1zfg>/nojutLfi]pote`ctrlf(1NSE hopNc)v_topfind.z))tLol_topt_nd.z))tLot-12et cur"),imodemefLsNSE hoffs>/a"?v_topt_nd*)erX_1o3k)o RDMkATa hgM_pINT_notarop(te -1at2>is1(fs, m O*"-F hopNc)fseekt">%offs>/,imode[op]-F heTvlop>pUMMMh2->uB-sh, sElmf(otk)o R===ARcod peKion efn h ==t)v vosh*/e.re pX_1oftell,f))OP>p wh2->u(y RDlocv==uro locode1yuio_fllsh I voifs, e1( USEB-IOCtrlU*ctrlt(f(IOCtrlU*)A_ opouserdata(", -1-F hLEEN)z=F h,_gesaCot1toUN===ARl(&o t>lrk[G%Kion =1zfg>/ndle er">`ctrlf(1 RDMkATa hgM_pINT_notarf| tobVTsnujutLot*a1N*a1"/l1(fs, fi]pendle e"-FIRSh2->ultsh, sElmf(otk)ffllsh(f} te (fRD==u=}====================================================== lua20t2in6:{====================================================== 16:GeOeresvO.S.)OpeLal ")s6:======================================================= uB-1e===uro locode1yuio_ &o n voifs, e1( USEB-h2->ultsh, sElmf(otk) &o ,v_topINT_nd.z))tLot-1,NN te (fRD==uro locode1yuio_ = n voifs, e1( USEB-h2->ultsh, sElmf(otk) =ov_topINT_nd.z))tLot-1,Nvc>pppppppppppt)n HNMMATa hINT_nd.z))tLot-12N- te (fRD==uro locode1yuio_tmp = n voifs, e1( USEB-,L_esh*/.z))tLotlrtmp (v{M) (FIRSh2->uB-1RD} =uro locode1yuio_g>/env n voifs, e1( USEB-,L_esh*/.z))tLotlrg>/env,v_topINT_nd.z))tLot-1,NN-F_dR`eifUv{M> elsh il,Kion h2->u1o Lex tocvar seMpcio_osuckpn voifs, e1((eufdov vosh*/e.re pX_1o((uL egd)osuck())/CLOCKS_PER_SEC-FIRSh2->uB-1e===uro locode1yuio_daeeen voifs, e1( USEB-OKE{ta[256USEvabuff[TOKENe,sNc)v_topt_nd.z))tLot-1,, "%-;USERD-dcseu)tme,stmSERDme? l /F inJCWu17/02/2001 -Icx/end to TdaccEptRt_nc nal>sebufdssAan2narguntKion T!yrbVTsnujiLot*2N- Nc)v_topINT_nd*)erX_1o2UN_ef OPRlne-z-ofimods,inote:-n *(e slme? ()oEuuTMnth_tw pt(aeofi apef O!>>>pUMme? (&tUN_stmNc)vocufme? (&tUNERD-dmNc)vocufme? (&tUNERD Tso.cmfme? (bvld;_tof(b)s,tso-dm-mpUMMMATaush*/.z))tLotlra ;IRSefe{pUMMMATa_cod {r">is1(fs, `daee' fCatAi" oc>ph2->uB-1e===uro locode1yutbslo->n voifs, e1( USEB-o locodbuffcsel+ TfL[] O-{MC_ALL,IMC_COLLATE,IMC_CTYPE,IMC_MONARG_Yf ntffffffffffffffffffffMC_NUMERIC,IMC_TIME}F ho locodbuffcsOKENxrbuffliTfLmefLs[] O-{"uuT(en"Eo /s, (en"Epe(l;en"moALrt(y"v ntfff"e.rloco;en"me? "arv{Me}F he1=sofNc)v_topfind.z))tLol_topt_nd.z))tLot-12et uuT(),iTfLmefLs RDMkATa hgM_pINT_notarop(te -1at2>is1(fs, dpl "), OPRDlutosh*/.z))tLotlrd>/locufe(TfL[op]vlv_topINT_nd.z))tLot-1,NN-FIRSh2->uB-1e===uro locode1yuio_exitZI voifs, e1( USEB-exitol_topt_nde(Lotar10tEXIT_SUCCESSN-FIRSh2->uB- e coA:-O_Jwarwarnodes H)osi} t=}====================================================== lua20t20o locode1yuio_dug arI voifs, e1( USEB-} T;;)emmbeu{odOKENeaXer b[25;USEva fp[tf({tuyrc',"/lvL__dug a> " oc>pppeTvlftA+s(bXer)iltc;_tof(bXer)io,aayrin- te (| ton HNMMhholfp(libXer)ilt"buft\n"(hte (f ntff wh2->uio0OP>p>p pudosz))tLotlraX),rMmOP>p w,_gotbsLaCot1t(fF coA: &o entooual>h2->uis%Kion f x==p#SHHEA{tLEVELS1 12 =ARp;_ttofhereSfa '\pt(aeofie slsck1uaKio#SHHEA{tLEVELS2 10 =ARp;_ttofhereSsebufd\pt(aeofie slsck1uaKio0o locode1yucod {fben voifs, e1( USEB-el+ aelf= =11e===ARpudCraelf= 0 (it's L ne flf->c t) >>psiel+ fa 'pt(ae=11e===ARptiuTMfvp ceentooual>`...'oosif ,_gebug arRRU l)ATa haXer *BbF hATa haX nit pot*arb-FIRSv vaddssoz))tLo&bf("iod p: "-FIRSv vaddssoz))tLo&bf(v_topINT_nd.z))tLot-1,NNFIRSv vaddssoz))tLo&bf("\), OPRDcr_sil-a >=tslsckfLot0,lelf=++&aroo-m>>pUMPKOKE{taX[5012;US coasenough>- ofit o /owi]pe`cp[tf({'udKioynB-e(f=, lf= =e 2(pUMPKz,A_ addssoz))tLo&bf("sck1uatr; {bk1u:\1;USERDn efe{ Tlf= lf= >tLEVELS1e&& fa 'pt(am>>pUMPKz,Rlnn more:-n n `LEVELS2' more:= lf=s?>>>pUM/Cff TvlrbVTstslsckfLot0,lelf=+LEVELS2, roo-mpUMMMPKz,Aelf=--N_dRkeepep goi]pe>>pUM/CffefemKion HNMMhhA_ addssoz))tLo&bf(" HNMMhh...\1;US coA:-OoanyAas= lf=s)osippppppppcr_sil-a >=tslsckfLot0,lelf=+LEVELS2, roo-mMM=ARfi-z-lgsts= lf=s)osipppppppp ,lelf=++oc>ppppp} hhhhhfa 'pt(ae=10FIRSSSffbuftinuebeu{pp} hhhcp[tf({taXr">%.%4d:ff"0,lelf=t1RUNNNB-a >addssoz))tLo&bf(aX), oc>pB-,L_egbsfoaC_a" "SnT(enroo-oc>pB-oERDATGEm.n/ , what >>pUMPKz,beliN'g':MMbeliN'l':MM=ARol etL,)vocuf)osippppppppcp[tf({taXr">%.flf->c to`%.50s'"ar.n/ , USERDn HNMM dumbeu{pp}UbeliN'f'fMM=ARfield)osippppppppcp[tf({taXr">%.thod >>`%.50s'"ar.n/ , USERDn HNMM dumbeu{pp}UbeliN't'fMM=ARL method >>>>psif ppppcp[tf({taXr">%.`%.50s'RL method >"ar.n/ , USERDn HNMM dumbeu{pp}U inf b sipppp h[T T!y*.n/what(c=t0m'N===O_main?>>>pUM/CffffSScp[tf({taXr">%.taineofi%.70s"ar.n/sh `_srcUSERDn HNMMefe{ Tlf*.n/what(c=t0C'N===O_Ceflf->c t>>>>pUM hffffSScp[tf({taXr">%.%.70s"ar.n/sh `_srcUSERDn HNMMefe{pUM hffffSScp[tf({taXr">%.flf->c to<%d:%.70s>"ar.n/ EA_SHHEd ar.n/sh `_srcUSERDn HNMMar.urc =Le=- RRRU_dRindoh_tsup[tf( urc =Leagain >>pUMMMMM}pUMMM}NNNB-a >addssoz))tLo&bf(aX), oc>pB- Tlfar.curntly EA_p> (fKion HNMMcp[tf({taXr">%.uJleaEA_p%d",yar.curntly EA_ OP>pppppa >addssoz))tLo&bf(aX), oc>pB-}c>pB- Tlfar.urc =LFKion HNMMcp[tf({taXr">%.u[%.70s]"ar.n/sh `_srcUSERDn HNa >addssoz))tLo&bf(aX), oc>pB-}c>pB-v vaddssoz))tLo&bf("\), OPRDcvyrbT_push, sElmf((rb-F h,L_egbsol etL_a" aecSSLERTUNERD Tsol isnuflf->ctLoZ, -1-m>>MM=Oddtruu),oop( TsSSLERT%nth_tsuSHHEd >>>psiOP,L_esh*/lrkfLX_1ot2UN_dRkeeod >>thssage>>>psiOP,L_erawjutLotba10t,USElocv wh2->ult e===urro locodbuffcs-dcseu),L_reg=*liobr>[]tAoSEB-{aecSRORMESSAGE sencod {fb},EB-{"Esuck"ar>pB- o_osuck},EB-{"ds, (en>pB- o_ds, },EB-{"dug a(en>pBio_dug a},EB-{"cxecuee(en>io_execuee},EB-{"cxit(en>pB- o_cxit},EB-{"g>/env(en>pio_g>/env},EB-{"r(&o ;en uio_ &o },EB-{"r( to"ar uio_ =},EB-{"s>/locufe"ars>/loc},EB-{"pmp ="ar uio_pmp =} };io o locodbuffcs-dcseu),L_reg=*liobr>L m[]tAoSEB-{"apC(zdto"ario_apC(zdto},EB-{"Esupefi]p"ar uio_Esupe},EB-{"pllsh(en>pB- o_pllsh},EB-{"GC(zfi]p"ar uio_GC(z},EB-{"r(ad(en>pB- o_r(ad},EB-{"r(adatas"ario_r(adatas},EB-{"s>ek"ar>pB- o_s>ek},EB-{"ittee(en>pBio_ittee},EB-{"itteeto"aruio_itteeto} };io o locodtruu)GC(zDOS buftrofen voifs, e1( USEt)IOCtrlU*ctrlt(f(IOCtrlU*)A_ onewuserdata(", c;_tof(IOCtrlNNFIRSungneddbyer+ ctrl-> otage=1v_tywntL mot),EB-ctrl->osupedtage=1v_tywntL mot),EB-} TS.zsoiL m)/c;_tof(iobr>L m[0]) luoUSmbeu{Aropuelt `ctrl'sAant>lrk[G%f T;thesei lf->c nca>>psiOP,L_esh*/lrkfLX_1ota;RDlo}Ul poph*/cosup fLottfiobr>L m[.e lMo1toUNpUM wl_ges>/ol etLotk)iobr>L m[.e toe}eg f ===AREr(at{Sh2r(Btl {>>- ori L esoomefLs osif ,_gesh*/.z))tLot-1fi]pmefLs[INLEEN]),EB-ctrl->ref[INLEEN]e=1v_tyr_fote`1-F h,_gesh*/.z))tLot-1fi]pmefLs[OUTLEEN]),EB-ctrl->ref[OUTLEEN]e=1v_tyr_fote`1-F hopuer_SHHEd ;fi]pendle e>>>>psio>/fi]pote`ctrlf(ayrinf(INLEEN),psio>/fi]pote`ctrlf(ayrou,xrOUTLEEN)e= t(Lfi]pby =ote`ctrlf(ayrinf("_STDIo;USERDt(Lfi]pby =ote`ctrlf(ayrou,xr"_STDOUT;USERDt(Lfi]pby =ote`ctrlf(ayrc',"/l_STDROR"-F hopuEsupeZfi]pshen dlEo /*tt iKion lu_eph*/cosup fLottffi]p_Eo /*tt1toUN===ARpfts `ctrl'sataslsck1uaKio w,_gotbsL gthod >ote`ctrl-> otag>sloc"-FI==uraLIBecPIa struu),L__iobr>GCa(ZI voifs, e1( USEB-,L_vKGClibX_1oiobr>-F hop(zDOS buftrofot),E==u=}=SERe jump taX_eeifalelex/. mlux72bamathbr> inc20 16:39:c/lbamathbr> i55*1732* $Lexi30 13:4510:24us h *manipulSomBaSoandd K_mathemaDicuf)br>ryor Lugenerator enerator en inctulibighto *> en in lmathht 20includCopyright lex/las.h * see lua-4.0/src/lcode.uxlibit lex/las.h * see lua20includCopyrigdebit lex/las.h * see luacva2 u(S MIPIo#SHHEA{ta s(3.14159265358979323846>p(SHHEALIRADIANS_PER_DEGREE (PI/180.o =ut2in6:{=If you war+ Lua:-O_opeLaleneraradianca(iffc >puofidegrees),6:{=SHHEALIRADIANS== 2#>fS ?tRADIANS=(SHHEALIFROMRAD(a) (a)=(SHHEALITORAD(a) (a)=(efe{p(SHHEALIFROMRAD(a) ((a)/RADIANS_PER_DEGREE)=(SHHEALITORAD(a) ((a)*RADIANS_PER_DEGREE)=(endifIufocvar sel+ math_absen voifs, e1( USEB-v vosh*/e.re pX_1ofabs,v_topINT_nde.re {rt*a1-m-FIRSh2->uB-1e===uocvar sel+ math_si(ZI voifs, e1( USEB-,L_osh*/e.re pX_1osin(TORAD(v_topINT_nde.re {rt*a1-m--FIRSh2->uB-1e===uocvar sel+ math_cosen voifs, e1( USEB-v vosh*/e.re pX_1ocos(TORAD(v_topINT_nde.re {rt*a1-m--FIRSh2->uB-1e===uocvar sel+ math_oanen voifs, e1( USEB-v vosh*/e.re pX_1ooan(TORAD(v_topINT_nde.re {rt*a1-m--FIRSh2->uB-1e===uocvar sel+ math_asi(ZI voifs, e1( USEB-,L_osh*/e.re pX_1oFROMRAD(asin(v_topINT_nde.re {rt*a1-m--FIRSh2->uB-1e===uocvar sel+ math_acosen voifs, e1( USEB-v vosh*/e.re pX_1oFROMRAD(acos(v_topINT_nde.re {rt*a1-m--FIRSh2->uB-1e===uocvar sel+ math_aoanen voifs, e1( USEB-v vosh*/e.re pX_1oFROMRAD(aoan(v_topINT_nde.re {rt*a1-m--FIRSh2->uB-1e===uocvar sel+ math_aoan2en voifs, e1( USEB-v vosh*/e.re pX_1oFROMRAD(aoan2(v_topINT_nde.re {rt*a1-f(v_topINT_nde.re {rt*a2-m--FIRSh2->uB-1e===uocvar sel+ math_ceifen voifs, e1( USEt)v vosh*/e.re pX_1oceif,v_topINT_nde.re {rt*a1-m-FIRSh2->uB-1e===uocvar sel+ math_f,ooren voifs, e1( USEB-v vosh*/e.re pX_1of,oor,v_topINT_nde.re {rt*a1-m-FIRSh2->uB-1e===uocvar sel+ math_mopu),L_oifs, e1( USEB-v vosh*/e.re pX_1ofmop(v_topINT_nde.re {rt*a1-f(v_topINT_nde.re {rt*a2-m-FIRSh2->uB-1e===uocvar sel+ math_sqrtxr voifs, e1( USEB-,L_osh*/e.re pX_1osqrt,v_topINT_nde.re {rt*a1-m-FIRSh2->uB-1e===uocvar sel+ math_powxr voifs, e1( USEB-,L_osh*/e.re pX_1opow(v_topINT_nde.re {rt*a1-f(v_topINT_nde.re {rt*a2-m-FIRSh2->uB-1e===uocvar sel+ math_loarI voifs, e1( USEB-,L_osh*/e.re pX_1oloa,v_topINT_nde.re {rt*a1-m-FIRSh2->uB-1e===uocvar sel+ math_loa10rI voifs, e1( USEB-,L_osh*/e.re pX_1oloa10,v_topINT_nde.re {rt*a1-m-FIRSh2->uB-1e===uocvar sel+ math_exprI voifs, e1( USEB-,L_osh*/e.re pX_1oexp,v_topINT_nde.re {rt*a1-m-FIRSh2->uB-1e===uocvar sel+ math_degrI voifs, e1( USEB-,L_osh*/e.re pX_1ol_topINT_nde.re {rt*a1-/RADIANS_PER_DEGREE)FIRSh2->uB-1e===uocvar sel+ math_r>pu),L_oifs, e1( USEB-,L_osh*/e.re pX_1ol_topINT_nde.re {rt*a1-*RADIANS_PER_DEGREE)FIRSh2->uB-1e===uocvar sel+ math_frexprI voifs, e1( USEB-e1yuc;EB-v vosh*/e.re pX_1ofrexp,v_topINT_nde.re {rt*a1-, &e));EB-v vosh*/e.re pX_1oe)FIRSh2->uB-2e===uocvar sel+ math_ldexprI voifs, e1( USEB-,L_osh*/e.re pX_1oldexp(v_topINT_nde.re {rt*a1-f(v_topINT_nde(Lotar2N--FIRSh2->uB-1e===ur0ocvar sel+ math_mi(ZI voifs, e1( USEB-el+ n 0olu_ot>/taCot), cocde.bscuaofi unonm #>>>>psiuL egd(Smi(Z=ol_topINT_nde.re {rt*a1-F he1=si,EB-} TS.zs2iuB-1e===uro locode1yumath_maxZI voifs, e1( USEB-el+ n 0olu_ot>/taCot), cocde.bscuaofi unonm #>>>>psiuL egd(SmaxZ=ol_topINT_nde.re {rt*a1-F he1=si,EB-} TS.zs2i(SmaxmpUMMMPKSmaxZ=odOPRDcvyrbT_osh*/e.re {rt*admaxmFIRSh2->uB-1e===uro locode1yumath_randaslI voifs, e1( USEB-oA:-ne '%'ddtruuthereS(ryoe)UbeliN#ler==1,p2-z--sdened toalsoeAucaue{ onpUMMMP== = stemDdsenSunOS!) "rand()"umaydh2->uiou>lrk >>bgM_cow-n n RAND_MAX>>>psiuL egd(be=-(uL egd)(rand()%RAND_MAX) /-(uL egd)RAND_MAXSERDtERDATGElu_ot>/taCot)m>>MM=OdINT_nde.bscuaofi unonm #>>>>psi}UbeliN0:um_dRlnn gunonm #> >>pUMMMMMbT_osh*/e.re {rt*ar), cocdN.bscuabetwea(Z0p2-z-1>>>pUM/Cff dumbeu{ppSE}e}UbeliN1:um_dRln othuCopr)brmi>>>>pUM/Cffe1yuuZ=ol_topINT_nde(Lotar1-SERDn HNa >addM_pINT_notar1<=u*a1"/l1(terlrk--sdpty{y"-SERDn HNa >osh*/e.re pX_1o(e1=)(r*u)+oUN===AR1(tegcuabetwea(Z1p2-z-`u'>>>pUM/Cff dumbeu{ppSE}e}UbeliN2:um_dRlnlowcua2-z-uCopr)brmi>s>>>pUM/Cffe1yulZ=ol_topINT_nde(Lotar1-SERDn HNe1yuuZ=ol_topINT_nde(Lotar2-SERDn HNa >addM_pINT_notarl<=u*a2"/l1(terlrk--sdpty{y"-SERDn HNa >osh*/e.re pX_1o(e1=)(r*fu-;+oU)+lUN===AR1(tegcuabetwea(Z`l'sA-z-`u'>>>pUM/Cff dumbeu{ppSE}e}U inf b lTa_cod {r">iswr)er e.bscuaofi unonm #>, OPRDcvyrh2->uB-1e===uro locode1yumath_randass$ ton voifs, e1( USEB-orand(l_topINT_nde(Lotar1--FIRSh2->uB- e===uro locodbuffcs-dcseu),L_reg=*lmathbr>[]tAoSE{"abs(en>pmath_abs},E{"sin(en>pmath_sin},E{"cos(en>pmath_cos},E{"oan(en>pmath_oan},E{"asin(en>math_asi(},E{"acos(en>math_acos},E{"aoan(en>math_aoan},E{"aoan2(enmath_aoan2},E{"ceif(en>math_ceif},E{"f,oor(enmath_f,oor},E{"mod(en>pmath_m >},E{"frexp(enmath_frexp},E{"ldexp(enmath_ldexp},E{"sqfL;en math_sqrt},E{"min(en>pmath_mi(},E{"max(en>pmath_max},E{"log(en>pmath_log},E{"log10(enmath_log10},E{"exp(en math_exp},E{"deg(en math_deg},E{"rad(en>pmath_rad},E{"randas"ar>pB-math_randas},E{"randass$ t(enmath_randass$ t} };ioin6:{=OCa(Zmath)br>ryor L/raLIBecPIa struu),L__mathbr>GCa(ZI voifs, e1( USEB-,L_vKGClibX_1omathbr>);EB-v vosh*/cflf->ctLoZ, math_pow);EB-v votbsL gthod >ote`aeTELel(oto>ispow");EB-v vosh*/e.re pX_1oPI);EB-v votbsol etLotk)"PI"),E==u=}=SERe jump taX_eeifalelex/. mlux72ba.lf r> inc20 16:39:c/lba.lf r> i55*1756* $Lexi3027 16:15:53us h *manipulSomBaSoandd K_br>ryorn. T;dsges _opeLalc ncaanpup ttpu1-maDATes Lugenerator enerator en inctypeighto *> en in luyr ihto *> en in luyrighto *> en in lulibighto *> en in lcode.hht 20includCopyright lex/las.h * see lua-4.0/src/lcode.uxlibit lex/las.h * see lua20includCopyrigdebit lex/las.h * see luacva2ro locode1yuttr_la(ZI voifs, e1( USEB-c;_t l =FIRSl_topINT_ndoktLot*a1>i&l oc>p,L_osh*/e.re pX_1olmFIRSh2->uB-1e===uro locod*)er posrelatxr )er pos,oc;_t l =en USEB-oA:relative;dsges _posi>c t: negative;meancabk1usatasle-z-Kion h2->u1o-pos>=0 ? pGst0t( )er)=en+pGs+1e===uro locode1yuttr_suben voifs, e1( USEB-c;_t l =FIRSbuff[TOKENe,sNc)v_topINT_ndoktLot*a1>i&l oc>p,)er ort(ae=1posrelat(l_topINT_nd*)erX_1o2U1olmFIRS,)er e-z-=1posrelat(l_topt_nd*)erX_1o3k)-1U1olmFIRS Tso.ct(ae< 1(hort(ae=11FIRS Tsoe-z->t( )er)=) e-z-=1lFIRS Tso.ct(ae<= e-zmpUMMMATaush*/lsz))tLotlrs+.ct(a-1ate-z-.ct(a+1 RDMkefn h,_gesh*/.z))tLot-1"" oc>ph2->uB-1e===uro locode1yuttr_lowcuan voifs, e1( USEB-c;_t l =FIRSc;_t l iFIRSl_topaXer *BbF hbuff[TOKENe,sNc)v_topINT_ndoktLot*a1>i&l oc>p,Ta haX nit pot*arb-FIRS} T;;zsoiadtx"no(B1&bf(tolowcu((ungneddbyOKEN)(s].e)NNFIRSv vadsh, sElmf((rb-F hh2->uB-1e===uro locode1yuttr_uCopr)n voifs, e1( USEB-c;_t l =FIRSc;_t l iFIRSl_topaXer *BbF hbuff[TOKENe,sNc)v_topINT_ndoktLot*a1>i&l oc>p,Ta haX nit pot*arb-FIRS} T;;zsoiadtx"no(B1&bf(touCopr((ungneddbyOKEN)(s].e)NNFIRSv vadsh, sElmf((rb-F hh2->uB-1e===uo locode1yuttr_reprI voifs, e1( USEB-c;_t l =FIRSl_topaXer *BbF hbuff[TOKENe,sNc)v_topINT_ndoktLot*a1>i&l oc>pel+ n 0olu_opINT_nde(Lotar2-SERD,Ta haX nit pot*arb-FIRScr_sil-n--p> (f n HNa >adaddloz))tLo&bf(s1olmFIRS, vadsh, sElmf((rb-F hh2->uB-1e===uro locode1yuttr_byeeen voifs, e1( USEB-c;_t l =FIRSbuff[TOKENe,sNc)v_topINT_ndoktLot*a1>i&l oc>p,)er pGst=1posrelat(l_topt_nd*)erX_1o2*a1-f(v RDMkATa hgM_pINT_notar0uB-1e===uro locode1yuttr_OKENeI voifs, e1( USEB-el+ n 0olu_ot>/taCot), cocde.bscuaofi unonm #>>>>psie1=si,EB-l_topaXer *BbF h,Ta haX nit pot*arb-FIRS} T;;zs1iis1(fs, lrk >"RUNNNB-ATa htx"no(B1&bf((ungneddbyOKEN)c OPRDcvyrbT_push, sElmf((rb-F hh2->uB-1e===ur0in6:{====================================================== 16:GePATTERN MATCHING6:======================================================= >>>p(endifIufoccseu)Capt *c{IRSbuff[TOKENe,src_endS coasenton0')fbuofiurc =Ledsges _>>psie1=slelf=S coA:-Otrk-e.bscuaoficapt *svlfanish onlounfanish ) >>psioccseu)beu{Arbuffx"noo*fmit pUNNNB-A)er =enS coA:-1egneduTshunfanish icapt *%Kion ficapt *[MAX_CAPTURES]; };io (SHHEALIESC '%' (SHHEALISPECIALS "^$*+?.([%-"r locvar seMpcoNT_ndcapt *%),L_oifs, e1(f(eusplf(aycseu)Capt *c*cap USEB-, -= '1'FIRS Tso!(0e<= lt&& le< cap->= lf= && cap->capt *[l].la(Zte -1-mpUMMMATaucod {r">is1(fs, capt *%i(S x" oc>ph2->uB-le===uro locode1yucapt *_to_osupeZI voifs, e1(f(aycseu)Capt *c*cap USEB-el+ aelf= =1cap->= lf=FIRS} T;;Aelf=--N_Aelf=>soicapt *[lelf=].la(ZN, osPMh2->uB-l lf=FIRSATaucod {r">is1(fs, p ttpu1ocapt *" oc>ph2->uB- e coA:-O_Jwarwarnodes H)osi} t buffx"noo*fml_ I_osassendpn voifs, e1(f(buffx"noo*fmp USEB-oERDATGEmpoUSmbeu{ArbeliNESC pUMfft) Tlf*p(c=t0')fbSATaucod {r">ismalfCate p ttpu1ooe-zs>DOS `%')"-SERDn HNh2->ults+ RDlo}UbeliN'[' pUMfft) Tlf*p(c=t0^fbSCReufff }> L dRlnlook-} T;x ']'>>>pUM/Cfft) Tlf*p(c=t0')fbSATaucod {r">ismalfCate p ttpu1oomissi]pe`]')"-SERDn HNt) Tlf*(poUSmc=tESC && *p(te 0')fbuCReu===ARpudCrescap*svle.g. '%]') >>pUMMMMM}Scr_sil-*p(te 0]'-SERDn HNh2->ults+ RDlo}U inf b pUMfft)h2->ultsOPRDcv==uro locode1yumatch_osasso(e1= cariMpcos USEB-el+ *sSERDtERDATGEtolowcu(os Smbeu{ArbeliN'a't0t *sv= isalpha(c Of dumbeu{ppbeliN'c't0t *sv= iscnlf (c Of dumbeu{ppbeliN'd't0t *sv= isdig poc Of dumbeu{ppbeliN'l't0t *sv= islowcu(o Of dumbeu{ppbeliN'p't0t *sv= isplf->(o Of dumbeu{ppbeliN's't0t *sv= isac; {oc)Of dumbeu{ppbeliN'u't0t *sv= isuCopr(c)Of dumbeu{ppbeliN'w't0t *sv= isale.b(c)Of dumbeu{ppbeliN'x't0t *sv= isxdig poc Of dumbeu{ppbeliN'z't0t *sv= lc=N, 0')fb;f dumbeu{pp inf b h2->u1o-c= =e c OPRDcvyrh2->u1o-islowcu(ol ? *sv: !rLs RD==ur0ocvar sel+ matchbr; ketosasso(e1= carbuffx"noo*fmparbuffx"noo*fme-zosass USEB-el+ gnee=11FIRS Tso*(po,Ne== 0^fbSbeu{Argnee=10FIRSSSCReu===ARpudCr-ne '^'%Kion f ekcr_sil-++pe< e-zosass USEB-t) Tlf*p(c=tESCFKion HNMMCReufff }> Tlfmatch_osass(c1o(ungneddbyOKEN)mp mpUMMMPKz,h2->ult igbeu{ppSE}e}Uefe{ Tlfo*(po,Ne== 0-fbS&& (p+2e< e-zosass FKion HNMMCR=2ufff }> Tlf(e1=)(ungneddbyOKEN)m(p-2)e<= c && ce<= (e1=)(ungneddbyOKEN)mpmpUMMMPKz,h2->ult igbeu{ppSE}e}Uefe{ Tlfoe1=)(ungneddbyOKEN)mp =e c ,h2->ult igbeu{cvyrh2->u1o! igbe==ur0el+ a_ I_s)tLlemaDATo(e1= carbuffx"noo*fmparbuffx"noo*fmep USEB-oERDATGEmpSmbeu{ArbeliN'.'fMM=ARmaDATecaany"noo*fm>pUMMMMMh2->u1o RDlo}UbeliNESC pUMfft)h2->u1omatch_osass(c1o(ungneddbyOKEN)m(po,N)RDlo}UbeliN'[' pUMfft)h2->u1omatchbr; ketosass(c>`p, epta;RDlo}U inf b pUMfft)h2->ult((ungneddbyOKEN)mp =e c OPRDcv==uro locodbuff[TOKENmesaDATGElu_oifs, e1(f(buffx"noo*fmsarbuffx"noo*fmpapUMMMPKz,,,,,,,,,,,,,,,,,,,aycseu)Capt *c*cap ;io o locodbuffcsOKENmesaDATetLt ceGElu_oifs, e1(f(buffx"noo*fmsarbuffx"noo*fmpapUMMMPKz,,,,,,,,,,,,,,,,,,,,,,,,,,aycseu)Capt *c*cap e)do Tvlmp =e (f to*(po,Ne== 0mpUMMMATaucod {r">isunetLt ced p ttpu1;USERD Tvlms(te mpSmh2->uB- RRRU ffefemKion HNe1= b e mp;on HNe1= Le=-*(po,N;on HNe1= bufte=11FIRSekcr_sil-++se< cap->src_endFKion HNMM Tvlms(== LFKion HNMMMM Tvl--bufte=0t h2->ult + RDlo}Upp} hhhhhefe{ Tlf*s(== b) buftReufff }eu{cvyrh2->u1o RRRU_dRindsges _e-zs>ou,f#leetLt ceGosi==uto locodbuffcsOKENmesax_expandpn voifs, e1(f(buffx"noo*fmsarbuffx"noo*fmpapUMMMPKz,,,,,,,,,,,,,,,,,,,,,,,,buffx"noo*fmepf(aycseu)Capt *c*cap USEB-,)er i 0o e coA:cou #>>saximum expandp} T;imDdo>>psicr_sito(s+i)src_endt&& l_ I_s)tLlemaDAT((ungneddbyOKEN)m(s+i)>`p, epU)NNNB- ReufffRkeepeps tryi]peLoumaDATGDOS -ne saximum pi}pti>c t>>>>psicr_sitoi>=0 beu{Arbuffx"noo*fm *sv= maDAT(tar(s+i)>`ep+1,iTfp-FIRSMM TlfrLs rh2->u1o *sSERDMM --N_dRkeefe{ didb'temaDAT;o *duceG1Rpi}pti>c toLoutryeagain >>pUMf Mkh2->uB- RRRU }iofocvar sbuffcsOKENmesin_expandpn voifs, e1(f(buffx"noo*fmsarbuffx"noo*fmpapUMMMPKz,,,,,,,,,,,,,,,,,,,,,,,,buffx"noo*fmepf(aycseu)Capt *c*cap USEB-} T;;)emmbeu{odOuffx"noo*fm *sv= maDAT(tars>`ep+1,iTfp-FIRSMM TlfrLs(te v{MempUMfft)h2->ult *sSERDMMefe{ Tlfssrc_endt&& l_ I_s)tLlemaDAT((ungneddbyOKEN)ms>`p, epU)NNNB-,,aReu===ARtryeDOS oALImore:pi}pti>c tom>pUMMMefe{Sh2->uB- RRRU ffcv==uro locodbuff[TOKENme.ct(adcapt *%),L_oifs, e1(f(buffx"noo*fmsarbuffx"noo*fmpapUMMMPKz,,,,,,,,,,,,,,,,,,,,,,,,,,(aycseu)Capt *c*cap USEB-Ouffx"noo*fm *soc>pel+ aelf= =1cap->= lf=FIRS Tlf= lf= >=IMAX_CAPTURESbSATaucod {r">is-OoanyAascapt *s;USERDcap->capt *[lelf=].it pe=1tSERDcap->capt *[lelf=].=en 0o-1SERDcap->aelf= =1lelf=+1FIRS TsofrLs=maDAT(tars>`p+1,iTfp-)=N, v{M>)MM=ARmaDATu aiged?>>>psi}Ubep->aelf=--N_dRkeun Lcapt *%Kion h2->ult *sSE==uro locodbuff[TOKENmeenddcapt *%),L_oifs, e1(f(buffx"noo*fmsarbuffx"noo*fmpapUMMMPKz,,,,,,,,,,,,,,,,,,,,,,,,,aycseu)Capt *c*cap USEB-el+ a =1capt *_to_osupeX_1ocfp-FIRSOuffx"noo*fm *soc>pcap->capt *[l].la(Z=1t -pcap->capt *[l].it pU hopuEsupeZcapt *%Kion TsofrLsv= maDAT(tars>`p+1,iTfp-)=N, v{M>)MM=ARmaDATu aiged?>>>psi}Ubep->capt *[l].la(Z=1-1N_dRkeun Lcapt *%Kion h2->ult *sSE==uro locodbuff[TOKENmematch_oapt *%),L_oifs, e1(f(buffx"noo*fmsarel+ aelf=apUMMMPKz,,,,,,,,,,,,,,,,,,,,,,,,,,(aycseu)Capt *c*cap USEB-el+ a =1cNT_ndcapt *ot0,lelf=1ocfp-FIRSc;_t l =en 0obep->capt *[l].la(FIRS Tsofc;_t l)(cap->src_end-s r>= =en &&pUMMMPKmemp(licap->capt *[l].it pf(s1olenNe== 0mpUMMMh2->ult +la(FIRSefe{Sh2->uB- RRRU ==uro locodbuff[TOKENmesaDATGElu_oifs, e1(f(buffx"noo*fmsarbuffx"noo*fmpapUMMMPKz,,,,,,,,,,,,,,,,,,,aycseu)Capt *c*cap USEB-elib Rkeusi]pegowi's:-O_opncmize taigSh2cursc tom>pUMoERDATGEmpSmbeu{ArbeliN'('fMM=AR.ct(aecapt *%Kion UMMMh2->ult ct(adcapt *(tars>`p,iTfp-FIRSMMbeliN')'fMM=ARendtcapt *%Kion UMMMh2->ultenddcapt *(tars>`p,iTfp-FIRSMMbeliNESC MM=ARmay>ben%[0-9]onlo%b>>>pUM/Cff Tvlisdig po(ungneddbyOKEN)(m(po,N))m>>MM=OdIapt *>>>>pUM hffffsv= maDATdcapt *(tars>`m(po,N,iTfp-FIRSMM/Cff Tvls=N, v{M>)Mh2->uB- RRRU ffffffffCR=2u gowinit pU hopuefe{Sh2->uB-maDAT(tars>`p+2,iTfp- >>pUMMMMM}pUMMMhhefe{ Tlf*(po,Ne== 0b'm>>MM=OdetLt ced dsges >>>>pUM hffffsv= maDATetLt ce(tars>`p+2,iTfp-FIRSMM/Cff Tvls=N, v{M>)Mh2->uB- RRRU ffffffffCR=4u gowinit pU hopuefe{Sh2->uB-maDAT(tars>`p+4,iTfp-F >>pUMMMMM}pUMMMhhefe{ gowindflpU hopuEeliN inf br>>psi}UbeliN0')ffMM=ARendt#lep ttpu1o>>pg RSSSh2->ult , copumaDATGtuccEed to>>psi}UbeliN0$' pUMfft) Tlf*(po,Ne== 0')fbudR`eis -ne '$' -ne lgstsnoo*fin p ttpu1>>>>pUM hffffh2->ult(s=N, cap->src_endFK? sv: RRRU_dRinINT_ndendt#ledsges _>>psiMMhhefe{ gowindflpUeu{pp inf b dflp:um_dRlni*(-sdaep ttpu1oimDdo>>psisi}Ubuff[TOKENe,tf>GEA_ I_osassend(L>`p),_dRinpoi #>>winwn *(-sdenx+ >>pUMMMMMel+ mZ=1tsrc_endt&& l_ I_s)tLlemaDAT((ungneddbyOKEN)ms>`p, epUU ffffffoERDATGEmep Pf RSSSSSbeliN'?':M{MM=ARt_nc nal>>>p Ouffx"noo*fm *soc>pRSMM/Cff Tvlm& !yofrLs=maDAT(tars+1,iep+1,iTfp-)=te v{Mem)pUMMMPKz,,,,,h2->ult *sSERDMMffffffC=ep+1e=gowinit pU hopuefe{Sh2->uB-maDAT(tars>`ep+1,iTfp-F)osipppppppp} hhhhhffbeliN'*':MM=AR0onlomore pi}pti>c t>>>>psiPKz,,,,,h2->ultsax_expand(tars>`p,iep,iTfp-FIRSMM/CffbeliN'+':MM=AR1onlomore pi}pti>c t>>>>psiPKz,,,,,h2->ultlm&?tsax_expand(tars+1,ip,iep,iTfp-v: RRR-FIRSMM/CffbeliN'-':MM=AR0onlomore pi}pti>c t>>(sinimum)>>>psiPKz,,,,,h2->ultsin_expand(tars>`p,iep,iTfp-FIRSMM/Cff inf b pUMfft)n HN Tlfrm h2->uB- RRRU ffffffff,,aReu=C=epe=gowinit pU hopuefe{Sh2->uB-maDAT(tars+1,iep,iTfp-F >>pUMMMMM}pUMMM} ffcv==urro locodbuff[TOKENmelmemfi-z-(buffx"noo*fms1,oc;_t l =1apUMMMPKz,,,,,,,,,,,,,,,,,,,,,,buffx"noo*fms2,oc;_t l =2 e)do Tvll2e=0t h2->ult 1N_dRkepty{y;dsges H)a ceentrywhe *%Kion efe{ Tlf=2e>ua1 h2->uB- RRRUMM=Oddtruusuadengative;`l1'eKion efn h ==t)buffx"noo*fmit pU coA:-O_searATu T;x `ms2'M nlide;`s1'>>>pUM/Cl2--N_dRke1fx"noo*fwiuTMfvnINT_ned by `memphr'>>>pUM/Cl1Nc)l1-l2N_dRke`s2'Mn b_tsubG%f unargftcow-n + >>pUMMMcr_sil-a1p> (f !yoit pe=1(buffx"noo*fm)memphr(s1,oms2,ol1-)=te v{MemKion HNMM t pReu==dRke1fx"noo*fiseal >py INT_ned >>pUM/Cff Tvlmemp(liit pf(s2+1,i=2 te (f ntff wB-h2->uio t p- RDlo}Uppefn h ===AREhrsEc=s`l1'eA-z-`s1'>Loutryeagain >>pUMMMMMMMa1p-=o t p-s1U ffffffffs1Nc)it pUNNNB-MM}pUMMM}NNNB-h2->uB- RRRUMM=Od_tsuf unarKion f x==pocvar sel+ sh, dcapt *apn voifs, e1(f(aycseu)Capt *c*cap USEB-el+ i,EB-l_topINTtysckfLot0,bep->aelf=>is-OoanyAascapt *s;USERD} T;;zsoi= lf=FluoUSmbeu{Arel+ l 0obep->capt *[i].la(FIRSdo TvllZN, osPMATaucod {r">isunfanish icapt *"RUNNNB-ATaush*/lsz))tLotlrbep->capt *[i].it pf(l OPRDcvyrh2->u1ocap->= lf=Flcocde.bscuaofidsges H)elsh Gosi==uto locode1yuttr_fi-z-( voifs, e1( USEB-c;_t l =1,i=2FIRSOuffx"noo*fmsNc)v_topINT_ndoktLot*a1>i&l1-FIRSOuffx"noo*fmpNc)v_topINT_ndoktLot*a2, rl2 oc>p,)er it pe=1posrelat(l_topt_nd*)erX_1o3k)1-f(v1) -p1F haycseu)Capt *ccap,EB-l_topgM_pINT_notar0e<= it pe&& (c;_t l)it pe<= l11o3k)"ou,f#lerg_do;USERD Tsol ist>/taCot) > 3f todRkepxtrai unonm #>>>>pUM hffaycpbrk(plrSPECIALS)=N, v{M>)M{MM=ARtrnn special>noo*actcos?>>>pUM/Cbuffx"noo*fms2Nc)vmemfi-z(s+it pf(l1-it pf(p,i=2 FIRSdo Tvls2m>>pUMPKz,A_ osh*/e.re pX_1os2-s+1-SERDn HNa >osh*/e.re pX_1os2-s+l2-SERDn HNh2->ult2ufff }eu{cvyrefemKion HNe1= t chobe=-(*p(c=t0^fbS? (p++-1,Ne:10FIRSSSbuffx"noo*fms1=s+it pFIRSMMbep.src_endt=t +l RDlo}U oKion HNMMbuff[TOKENe, *sSERDMMffbep.aelf= =10FIRSSSff TsofrLs=maDAT(tars1,ip,i&Tfp-)=te v{MemKion HNMMhhA_ osh*/e.re pX_1os1-s+1-SMM=AR.ct(ae>>pUMMMMMMMaT_osh*/e.re {rt*ares-s u==dRkee-z-Kion RDn HNh2->ultsh, dcapt *aot*arcap U+ 2UNNNB-MM}pUMMM}Mcr_sil-s1++uB-1e===uro locodwarwaadd_apn voifs, e1(f(l_topaXer *B*bf(aycseu)Capt *c*cap USEB-eTsol isnusz))tLotlr3)mmbeu{odOuffx"noo*fmnewsNc)v_t_tosz))tLotlr3)UNNNB-c;_t l =Nc)v_t_tlf (Lot-13)UNNNB-c;_t l iUNNNB-} T;;zsoi>pUM/Cfft) Tlf!isdig po(ungneddbyOKEN)news[i]-)pUMMMPKz,,,aT_ htx"no(B1bf(news[i]-SERDn HNHNefemKion HNMMhh>pel+ aelf= =1cNT_ndcapt *ot0,news[i],iTfp-FIRSMM/CffHNa >adaddloz))tLoblrbep->capt *[lelf=].it plrbep->capt *[lelf=].Ren-F wNNB-MM}pUMMMMM}pUMMM} ffcvppefn h ===AR-sdaeflf->c toKioynB-e1yunFIRSOP,L_esh*/lrkfLX_1o3)UNNNB-n 0osh, dcapt *aot*aTfp-FIRSMMlL_erawjutLotbanar1-SERDn eTsol isnusz))tLotlr-1-mpUMMMHNa >adaddlrkfLXb-F===ARaddth2->uB- Tdaccumu/s, d sElmf>>>>pUM/Cefe{pUM hff,L_esaCot1toUN===ARflf->c tosElmf>>nth_tsuaidsges :Rpft itrKion f x==pocvar sel+ ttr_gsuben voifs, e1( USEB-c;_t l src=FIRSbuff[TOKENe,srcNc)v_topINT_ndoktLot*a1>i&src=-FIRSOuffx"noo*fmpNc)v_topINT_nd.z))tLot-12Noc>pel+ sax_sNc)v_topt_nde(Lotar4, src=+1-F he1yut chobe=-(*p(c=t0^fbS? (p++-1,Ne:10FIRSel+ n 0o0F haycseu)Capt *ccap,EB-l_topaXer *BbF h,Ta hgM_pINT_notaIRSMMlL_et>/taCot) >= 3f&& (l isnusz))tLotlr3)| tobVTsnuflf->ctLoZ, 3)maIRSMM3f("scges _orRflf->c toexp*tt "-FIRSv vadaX nit pot*arb-FIRSbep.src_endt=t rc+src=FIRScr_sil-n < sax_smmbeu{odOuffx"noo*fmeFIRSMMbep.aelf= =10FIRSSSev= maDAT(tarsrc,ip,i&Tfp-SERDn eTsoLFKion HNMMnReufff }>add_aot*arb,i&Tfp-SERDn }c>pB- Tlfef&& e>src)cocdetnepty{y;maDAT>>>>pUM hffarcNc)eu===ARpudCri>>>>pUM/Cefe{o TvlsrcNadtx"no(B1&bf(,srcoUSSERDMMefe{ dumbeu{pp Tlfa chob dumbeu{cvyrbT_puaddloz))tLo&bf(src,ibep.src_end-srcUSERDbT_push, sElmf((rb-F haT_osh*/e.re {rt*an), cocde.bscuaofisubstitu>c t>>>>psih2->uB-2e===u=}====================================================== lua20t2o locodtruu),L_Iuaddquot ton voifs, e1(f(l_topaXer *B*bf(i1yut(m USEB-c;_t l =FIRSbuff[TOKENe,sNc)v_topINT_ndoktLot*agMo>i&l oc>paT_ htx"no(B1bf('"'-FIRScr_sil-=--)Sbeu{ArgERDATGEmsm>>pUMPKz,beliN'"':MMbeliN'\\':MMbeliN'\n' pUMfft)n aT_ htx"no(B1bf('\\'-F wNNB-MMaT_ htx"no(B1bf(*s-F wNNB-MM dumbeu{pp}UbeliN'')ffMa >adaddloz))tLoblr"\\000(en4b;f dumbeu{pp}U inf b lTa htx"no(B1bf(*s-F wNN} hhhcReufff}c>paT_ htx"no(B1bf('"'-FI==u=}=saximum p;_ttofheaATu Tm ttpdoimDdo(>olen( Tm t('%99.99f'lr-1e308))m>Kio#SHHEA{tMAX_ITEM 512u=}=saximum p;_ttofheaATu Tm t specificalc nvlsuATuas '%-099.99d'm>Kio#SHHEA{tMAX_FORMAT 20uto locode1yuttr_f Tm t I voifs, e1( USEB-el+ t(me=11F hbuff[TOKENme.crfrmtNc)v_topINT_nd.z))tLot-1t(m-F hl_topaXer *BbF h,Ta haX nit pot*arb-FIRScr_sil-*.crfrmt USEB-t) Tlf*.crfrmtNte 0%'mpUMMMHNa >adtx"no(B1&bf(,scrfrmtoUSSERDMMefe{ Tlf*++.crfrmtNce 0%'mpUMMMHNa >adtx"no(B1&bf(,scrfrmtoUSS cocd%%>>>pUM/Cefe{o{==ARf Tm t imDdo>>psisi}Uaycseu)Capt *ccap,EB-pp}UbKENmf Tm[MAX_FORMAT]U coA:-O_store:-neRf Tm t ('%...')>>>psiPKz,OKE{taX[50MAX_ITEM]U coA:-O_store:-neRf Tm ttpdoimDdo>>psisi}Ubuff[TOKENe,it pfe=1tfrfrmt,EB-pp}Uf Tm[0]tAo0%'FIRSSSff Tsoisdig po(ungneddbyOKEN),it pfbS&& *iit pfo,Ne== 0$'mKion HNMMhht(me=1,it pfe- '0'F wNNB-MMit pfe+=y2R===ARpudCr-ne 'n$' >>pUMMMMM}pUMMM >t(mReufffRSMMbep.src_endt=t crfrmtotlf (Lo.crfrmt + RDlo}Uppbep.aelf= =10FIRSSSff.crfrmtNc)maDAT(tarit pflr"[-+ #0]*(%d*)%.?(%d*)",i&Tfp-SERDn B- Tsocap.capt *[0].la(Z> 2| tocap.capt *[1].la(Z> 2| to==AR< 100>>>>pUM hffffSSccrfrmt-it pfe>tMAX_FORMAT-2)pUMMMMMMMaT_ucod {r">is1(fs, f Tm t (widS oruer_cisc toLoop,)er)"-SERDn HNccrncpy( Tm+1,iit pflrccrfrmt-it pf+1-SM=AR+1 winiten in bufversc tom>pUMpp}Uf Tm[ccrfrmt-it pf+2] =10FIRSSSff.ERDATGEmscrfrmtoUS Pf RSSSSSbeliN'c':MMbeliN'd':MMbeliN'i' pUMfft)n HNcp[tf({taXr">%f Tmf(v_topINT_nde(Lotararg)UFIRSMM/CffHN dumbeu{pp}USSbeliN'o':MMbeliN'u':MMbeliN'x':MMbeliN'X' pUMfft)n HNcp[tf({taXr">%f Tmf((ungneddbyer+)v_topINT_nde.re {rt*aarg)UFIRSMM/CffHN dumbeu{pp}USSbeliN'e':MMbeliN'E':MbeliN'f'fMbeliN'g':MbeliN'G' pUMfft)n HNcp[tf({taXr">%f Tmf(v_topINT_nde.re {rt*aarg)UFIRSMM/CffHN dumbeu{pp}USSbeliN'q' pUMfft)n HN,L_Iuaddquot tot*arb,it(m-F hu{pp}USSbuftinuebMM=ARpudCr-ne "dsso;_t.uJle-ne e-z-Kion RDn HNbeliN's':Kion HNMMhh>pc;_t l =FIRSSSff}USSbuff[TOKENe,sNc)v_topINT_ndoktLot*agMo>i&l oc>ppppppppp Tsocap.capt *[1].la(ZN, 0t&& le>= 100)> Pf RSSSSSff_dRlnn er_cisc toA-z-scges _is -oop,)er winbeRf Tm ttpd;Pf RSSSSSff_ddddepep orig nal>ssges _>>psiMMhht)n HN,L_esh*/lrkfLX_1ot(m-F hu{pp}USSHNa >adaddlrkfLXrb-FIRS hu{pp}USSbuftinuebMM=ARpudCr-ne "dsso;_t.uJle-ne e-z-Kion RDn HNpp} hhhhhffHNefemKion HNMMhh>pHNcp[tf({taXr">%f Tmf(s-FIRS hu{pp}USS dumbeu{pp}USSff} hhhhhff} hhhhhff inf b ==OddlsoutreatNbelis 'pnLlh'-Kion RDn HNppaT_ucod {r">is1(fs, t_nc nfin `f Tm t'"-SERDn HN} hhhhhbT_puaddloz))tLo&bf(aXr">%tlf (LoaX), -F wNN} hcvyrbT_push, sElmf((rb-F hh2->uB-1e===uro locodbuffcs-dcseu),L_reg=*l.lf r>[]tAoSE{"tlf (L",uttr_la(},E{"strsub",uttr_sub},E{"strlowcu",uttr_lowcu},E{"struCopr",uttr_uCopr},E{"strOKEN",uttr_OKEN},E{"strrep",uttr_rep},E{"ascii",uttr_byee}, ==ARf TdbumplocbilityeDOS 3.0p2-z-eaf rcuaKio{"strbyee",uttr_byee},E{"fCatAi",uttr_f Tm t},E{"strfi-z",uttr_fi-z},E{"gsub",uttr_gsub} };io in6:{=OCa(Zssges _br>ryor L/raLIBecPIa struu),L__.lf r>GCa(ZI voifs, e1( USEB-,L_vKGClibX_1o.lf r>-FI===}=SERe jump taX_eeifalelex/custom_br>s:alelex*> en in "lbit r> i"lelex*> en in "luaso ket i"lelex/. mlux72balibit falelex/LuxIcx/ensc t>>winLua * 02/02/2001 jcw@equi4.bum ua20includCopyrigde lex/las.h * see lua20includCopyrigdebit lex/las.h * see luacv0/src/lcode.uxlibit lex/las.h * see lua202#>fS ?tWIN32o#SHHEA{tWIN32_LEAN_AND_MEAN *> en in lwi-zowshto *> en in lighto *> en in lfcntlhto *> en in lcys/o lohto *efe{p(nf(S MImactf(osh *> en in lcys/peigshto *> en in lcys/mmanhto *endifI(endifIu#>fS ?tNOCOMPlex/. mlux72bzbitd leacv0/szbitd le- geneLaledsataslzbit113/zbit leby oALsrc * plohs:lzbit113/ * Sun Feb 18 14:52:43 PST* $L1 ua-4.0/szbit le--R1(terfacttofhereS'zbit' geneLal purpupeZcumpSERsc tobr>ryor versc to1.1.3, July 9th, 1998 ator t(isi]peataslereSusttofherne softwa c. Permissi nfis grant to TdanyoALI Tdustterne softwa co T;xAaspurpupe,EB-elmluxi]pecummercial>app rcalc ns,p2-z- Tdaltcowitp2-z-redissgebueeeitEB-freely,isubjEc=sLoutneRf /owi]peSERsge->c nc: 1. T e orig ntofherne softwa c must _tsubG%misrepSERent t; you must _ts hhhhclaimw-n + you wrote:-ne orig nal>softwa c.=If you ustterne softwa c hhhhiiou>produtt1taioucknowledgnm #hiio-ne produtt doconm #alc nvwoul>>be hhhhappr_cialedsbue>nth_tsurequired. h2. Altcoed drc =Leversc ts must bG%plai othmark toasGtuch,p2-z-must _tsubG hhhhmisrepSERent toasGbei]peLne orig nal>softwa c. h3. T ne n *> enmay>_tsubG% &o onloaltcoed ataslxAasdrc =Ledissgebuec t. Jean-loup GaillyssssssssMark Adler jloup@gzip.o(meeeeeeeeeemadler@rkfmni.cufmech.edu T Ledata f Tm t ustd by Lne zbit_br>ryornne descgebtd by RFCs (RequERs f T atmnm #>) 1950sLou1952hiio-ne fi]pshftp://ds.1(ternic.net/rfc/rfc1950.txs h(zbit_f Tm t), rfc1951.txs (S ?/s, _f Tm t)p2-z-rfc1952.txs (gzip_f Tm t).or io nf(S MI_ZBecPHo#SHHEA{t_ZBecPHolex/. mlux72bzbuff leacv0/szbuff le--RbuffiguLalc ntofhereSzbit_cumpSERsc tobr>ryor * ator c t>>ofidissgebuec ta2-z-upe,/las.ctor enerazbit le ua-4.0/s@(#)9:c/$ r io nf(S MI_ZCONFPHo#SHHEA{t_ZCONFPHo in6 {=If you *really*denedou>uniquE er_fixo T;xuTMeeigsa2-z-br>ryorn.lf->c nc,6 {=cump_silDOS -DZ_PREFIX. T e "sckndd K"Szbit_shoul>>be=cump_sidrDOS ou,fit. ua-4#>fS ?tZ_PREFIX # =SHHEALIS ?/s, Init_ z_S ?/s, Init_ # =SHHEALIS ?/s, z_S ?/s, # =SHHEALIS ?/s, End z_S ?/s, End # =SHHEALIin?/s, Init_ z_in?/s, Init_ # =SHHEALIin?/s, z_in?/s, # =SHHEALIin?/s, End z_in?/s, End # =SHHEALIS ?/s, Init2_ z_S ?/s, Init2_ # =SHHEALIS ?/s, SetDe->c nyornz_S ?/s, SetDe->c nyor # =SHHEALIS ?/s, ator z_S ?/s, ator # =SHHEALIS ?/s, RERet z_S ?/s, RERet # =SHHEALIS ?/s, Params z_S ?/s, Params # =SHHEALIin?/s, Init2_ z_in?/s, Init2_ # =SHHEALIin?/s, SetDe->c nyornz_in?/s, SetDe->c nyor # =SHHEALIin?/s, Sync z_in?/s, Sync # =SHHEALIin?/s, SyncPoi # z_in?/s, SyncPoi # # =SHHEALIin?/s, RERet z_in?/s, RERet # =SHHEALIcumpSERs z_cumpSERs # =SHHEALIcumpSERs2 z_cumpSERs2 # =SHHEALIlf-umpSERs z_lf-umpSERs # =SHHEALIadler32 z_adler32 # =SHHEALIcrc32 z_crc32 # =SHHEALIget_crc_t esooz_get_crc_t eso # =SHHEALIByee z_Byee # =SHHEALIlInt z_lInt # =SHHEALIlLong z_lLong # =SHHEALIByeef eeeeeeeez_Byeef # =SHHEALIcKENf z_cKENf # =SHHEALIintf z_intf # =SHHEALIlIntf z_lIntf # =SHHEALIlLongf z_lLongf # =SHHEALItruupf z_truupf # =SHHEALItruup z_truupI(endifIu#>f (S ?Ed (_WIN32)| toS ?Ed (__WIN32__)bS&& !S ?Ed (WIN32) # =SHHEALIWIN32o#endifI(ifoS ?Ed (__GNUC__)| toS ?Ed (WIN32)| toS ?Ed (__386__)| toS ?Ed (i386) # =nf(S MI__32BIT__ # = =SHHEALI__32BIT__ # =endifI(endifI(ifoS ?Ed (__MSDOS__)|&& !S ?Ed (MSDOS) # =SHHEALIMSDOSI(endifIuin6 {=Cump_silDOS -DMAXSEG_64Kp TsereSallo->flf->c ton b_tsuallo-s, _more6 {=-n n 64k byeesuJleaMme? vlneed to tostemDdseDOS 16-bicsel+). ua-4#>f S ?Ed (MSDOS)|&& !S ?Ed (__32BIT__) # =SHHEALIMAXSEG_64KI(endifI(ifS MIMSDOSI( =SHHEALIUNALIGNED_OKI(endifIu#>f (S ?Ed (MSDOS)| toS ?Ed (_WINDOWS)| toS ?Ed (WIN32)) |&& !S ?Ed (STDC) # =SHHEALISTDCI(endifI(ifoS ?Ed (__STDC__)| toS ?Ed (__cplusplus)| toS ?Ed (__OS2__) # =nf(S MISTDCI( = =SHHEALISTDCI( =endifI(endifIu#>f(S MISTDCI( =>f(S MIbuffcsopuEeb_tsuustt!S ?Ed (STDC)|&& !S ?Ed (buffc)o toMalua20( = =SHHEALIbuffcI( =endifI(endifIuopuS= = Malucump_sirsnmergeSall lefi]psh. mhrsEc=ly:ua-4#>f S ?Ed (__MWERKS__)| toS ?Ed (app ec)| tS ?Ed (THINK_C)| tS ?Ed (__SC__) # =SHHEALINO_DUMMY_DECLI(endifIuopuOl>>Borl2-z-Ch. mhrsEc=lyucumplai suJbou,fmissi]peh2->uis:ua-4#>f S ?Ed (__BORLANDC__)|&& (__BORLANDC__ < 0x500) # =SHHEALINEED_DUMMY_RETURNp(endifIufopuMaximum lrk[G%f T;memLelf= eraS ?/s, Init2ua-4#>f(S MIMAX_MEM_LEVELI( =>fS MIMAXSEG_64KI( = =SHHEALIMAX_MEM_LEVEL 8I( =efe{p( = =SHHEALIMAX_MEM_LEVEL 9I( =endifI(endifIuopuMaximum lrk[G%f T;wi-zowBi>s>eraS ?/s, Init2u2-z--n?/s, Init2. * WARNING:o *duci]peMAX_WBITSemakpshsinigzip_un esooLoupxtratt .gzefi]ps6 {=cr(at{d by gzip. (Fi]pshcr(at{d by sinigzip_EebRptiuTMfvupxtratt{d by6 {=gzip.) ua-4#>f(S MIMAX_WBITS # =SHHEALIMAX_WBITSe 15sopu32K LZ77;wi-zow>>>p(endifIuopuT e memoryurequirenm #>>f T;S ?/s, _a c (erabyees):IRS hu{pp}USS(1 << (wi-zowBi>s+2)) +SS(1 << (memLelf=+9-mpUtn *(-s: 128K%f T;wi-zowBi>s=15s +SS128K%f T;memLelf= = 8 (S ?nf brlrk[GsmpUplusdaefew kilobyeesu. T;dmall objEc=s. F Tdexample,/if you war+ Lou *duce sereSS ?nf brmemoryurequirenm #>>ftasl256KsLou128K,=cump_silDOS hhhhmakp CFLAGS="-O -DMAX_WBITS=14 -DMAX_MEM_LEVEL=7" OMIbuurstterne wiuTMgeneLallyudegradeZcumpSERsc to(the *'e n -free llf-h). uT e memoryurequirenm #>>f T;-n?/s, _a c (erabyees) 1 << wi-zowBi>spUtn *(-s,u32K f T;wi-zowBi>s=15s(S ?nf brlrk[G)Uplusdaefew kilobyees u. T;dmall objEc=s.or io opuTeigudeclaLalc ncar io nf(S MIOF==ARflf->c toprotoeeigsaa20( =>fS MISTDCI( = =SHHEALIOF(args) ot(msI( =efe{p( = =SHHEALIOF(args) o()I( =endifI(endifIuopuTneRf /owi]peSHHEAi>c t>>. T;FAR_a c need to tlrn. T;MSDOS sixcdIR*_modf= programmi]pe(dmall oT;medium modf= DOS == = faruallo-s,c t>). ua T ne was eest to tlrnDOS MSC;n. T;othe ;MSDOS cump_sirsnyou may have6 {=-o=SHHEALINO_MEMCPYnerazuecl.h. If you dob'teenedo-ne sixcd modf=,6 {=just SHHEALIFAR_winbeRpty{y. ua-4#>f (S ?Ed (M_I86SM)| toS ?Ed (M_I86MM))|&& !S ?Ed (__32BIT__) opuMSC dmall oT;medium modf= a20( =SHHEALISMALL_MEDIUM0( =>fS MI_MSC_VERp( = =SHHEALIFAR__farI( =efe{p( = =SHHEALIFAR_farI( =endifI(endifI(ifoS ?Ed (__BORLANDC__)|&& (S ?Ed (__SMALL__)| toS ?Ed (__MEDIUM__)b # =nf(S MI__32BIT__ # = =SHHEALISMALL_MEDIUM0( = =SHHEALIFAR__farI( =endifI(endifIuopuCump_silDOS -DZBecPDLLn. T;Wi-zows DLLnsuCoo(ae>>p(ifoS ?Ed (ZBecPDLLb # =nfoS ?Ed (_WINDOWS)| toS ?Ed (WINDOWS)0( = =>fS MIFAR0( = =RSunS MIFAR0( = =endifI(hhhhiien in lwi-zowshto * = =SHHEALIZEXPORT IWINAPIo# = =>fS MIWIN32o#hhhhff iEALIZEXPORTVA IWINAPIV0( = =efe{p( = =ff iEALIZEXPORTVA IFAR__cdecl _expo(a0( = =endifI(hhendifI(hhnfoS ?Ed (__BORLANDC__)0( = =>f (__BORLANDC__ >= 0x0500)|&& S ?Ed (WIN32) # =hhhhiien in lwi-zowshto * = = =SHHEALIZEXPORT __declspec(dllexpo(a)IWINAPIo# = = =SHHEALIZEXPORTRVA __declspec(dllexpo(a)IWINAPIV0( = =efe{p( = =ffnfoS ?Ed (_Wi-zows)|&& S ?Ed (_PDLL__)0( = = = =SHHEALIZEXPORT _expo(a0( = = =ff iEALIZEXPORTVA _expo(a0( = = =endifI(hhhhendifI(hhendifI(endifIu#>f S ?Ed (__BEOS__)I(hhnfoS ?Ed (ZBecPDLLb # =ff iEALIZEXTERN cx/ern __declspec(dllexpo(a)I( =efe{p( = =SHHEALIZEXTERN cx/ern __declspec(dllimpo(a)I( =endifI(endifIu#>f(S MIZEXPORT0( =SHHEALIZEXPORT0(endifI(if(S MIZEXPORTVA0( =SHHEALIZEXPORTVA0(endifI(if(S MIZEXTERN0( =SHHEALIZEXTERN cx/ernI(endifIu#>f(S MIFAR0( = SHHEALIFARI(endifIu#>f !S ?Ed (MACOS)|&& !S ?Ed (TARGET_OS_MAC) eeigS MIungneddbyOKEN IByeebMM=AR8 bi>s>>>p(endifIeeigS MIungneddbyi # IlIntN_dRke16 bi>s>nlomore >>peeigS MIungneddby,)er IlLong;sopu32 bi>s>nlomore >>pI(ifS MISMALL_MEDIUM0 opuBorl2-z-C/C++oA-z-s= = ol>>MSC versc ts nedore FAR_ nlide;eeigS MIa20( =SHHEALIByeefIByeeIFARI(efe{pUM eeigS MIByeeI FAR_Byeef;p(endifIeeigS MIOKEN IFAR_cKENf;IeeigS MIi # IFAR_ ntf;IeeigS MIlInt IFAR_lIntf;IeeigS MIlLongIFAR_lLongf;pI(ifS MISTDCIUM eeigS MItruu)FAR_*truupf;IUM eeigS MItruu)))))*truup;I(efe{pUM eeigS MIByeeIFAR_*truupf;IUM eeigS MIByeeI )))*truup;I(endifIu#>fS ?tHAVE_UNISTDPHo#hhiien in lcys/peigshto==ARf Tdoff_taa20( =>ien in lunistdhto= ==ARf TdSEEK_*oA-z-off_taa20( =SHHEALIz_off_ta-off_t0(endifI(if(S MISEEK_SET0( =SHHEALISEEK_SET = = =ff0 opuSeeusataslbeginnes _ofefi]p. a20( =SHHEALISEEK_CUR = = =ff1 opuSeeusataslcursEl+ sosi>c t. a20( =SHHEALISEEK_END = = =ff2 opuSet;fi]pepoi #cow-o EOF=plusd"offset">>>p(endifI(if(S MIz_off_t0( =SHHEALIIz_off_talong #endifIuopuMVS linkcowdoeth_tsusuCoo(aecx/ernrk-eefLs bgM_cow-n n 8 byeesua-4#>f S ?Ed (__MVS__)I(hh pragma map(S ?/s, Init_,"DEIo;UI(hh pragma map(S ?/s, Init2_,"DEIo2;UI(hh pragma map(S ?/s, End,"DEEND;UI(hh pragma map(in?/s, Init_,"INIo;UI(hh pragma map(in?/s, Init2_,"INIo2;UI(hh pragma map(in?/s, End,"INEND;UI(hh pragma map(in?/s, Sync,"INSY;UI(hh pragma map(in?/s, SetDe->c nyor,"INSEDI;UI(hh pragma map(in?/s, _blo-ks,"INBL;UI(hh pragma map(in?/s, _blo-ks_new,"INBLNE;UI(hh pragma map(in?/s, _blo-ks_free,"INBLFR;UI(hh pragma map(in?/s, _blo-ks_SERet,"INBLRE;UI(hh pragma map(in?/s, _codfs_free,"INCOFR;UI(hh pragma map(in?/s, _codfs,"INCO;UI(hh pragma map(in?/s, _fast,"INFA;UI(hh pragma map(in?/s, _flush,"INFLU;UI(hh pragma map(in?/s, _mask,"INMA;UI(hh pragma map(in?/s, _Ret_de->c nyor,"INSEDI2;UI(hh pragma map(in?/s, _ctor s,"INTRBI;UI(hh pragma map(in?/s, _trees_dyeefic,"INTRDY;UI(hh pragma map(in?/s, _trees_fixcd,"INTRFI;UI(hh pragma map(in?/s, _trees_free,"INTRFR;UI(endifIu#endif opu_ZCONFPHeacv0/sSERe jumpzbit113/zbit le>>pI(ifS MI__cplusplus cx/ern "C" {I(endifIu#SHHEALIZBecPVERSION "1.1.3"Iuopuo TreS'zbit' cumpSERsc tobr>ryor provid s>er-memoryucumpSERsc toA-z =SHcumpSERsc to.lf->c nc,-elmluxi]pe1(tegrityeINTtystofhereSlf-umpSERscdIRSdata. T ne versc toofhereSbr>ryor suCoo(aso tlrnoneZcumpSERsc tothod > (S ?/s,c t)sbue>othe ;algorithmsfwiuTMfvnadd to/s, ua2-z-wiuTMhavehereSsefL HNccreamR1(terfact.io CumpSERsc toEebRfvndoALIinuaid)tLleNccepp TsereSbXer *H)a cebgM_c =enough ( Tdexamplep Tsanfinput;fi]pene mmap'ed),>nloEebRfvndoALIby6 pi}pat{d jutLstofhereScumpSERsc to.lf->c n. Inn-ne lgttpuNbeli,n-ne >app rcalc n-must provid omore input;2-z/ TdbunRe jeLne output (providi]pemore output ac; {)sbefore eaATujutL.io TreSbr>ryor dlsousuCoo(aso >pi]pe2-z-writi]peai]psh. =gzip (.gz)_f Tm tIRScOS anfinterfacttsimibgMsLoutnataofidsrighio TreSbr>ryor doeth_tsu nltall xAasdneduTMhandler. T e SHcudpuNbNTtyso ereScunliccencytofhereScumpSERs{d data, sohereSbr>ryor shoul>>nentr hbrash entoh. =beliN#lemhrsuptpdoinput.or ioeeigS MItruupTlf*allo-_.lf-)IOF((truupTlopaqui,nlInt imDds,nlInt o;_t -F eeigS MItruu)))(*free_.lf-)IIOF((truupTlopaqui,ntruupTladdSERs -F foccseu)1(ternal_o loe;ioeeigS MIoccseu)z_ccream_sKion HNByeefI)))*enx+_inS coA:enx+ input;byeeeKion RDlInt IIIIavail_inS coA:e.bscuaofibyeesuJvail esooat enx+_ineKion RDlLongIUM eOtrk_inS coA:-Otrk-ebaofiinput;byeeso >p sohfo*fm>pon HNByeefI)))*enx+_out;coA:enx+ output byeeeshoul>>be=put the *%Kion RDlInt IIIIavail_out;coA:remaini]peatee ac; {oat enx+_ou,fKion RDlLongIUM eOtrk_out;coA:-Otrk-ebaofibyeesooutput aohfo*fm>pon HNOKEN I)))*msg; opulgstscod {othssagi,nv{Mep Tsn eod {oKion RDoccseu)1(ternal_o loeIFAR_*o loe;cocdetsuvisiesooby>app rcalc nsfm>pon HNallo-_.lf- zallo-N_dRkeus to Tdallo-s, _ereS1(ternal o loeIKion RDfree_.lf-IIzfreeu==dRkeus to Tdatee ereS1(ternal o loeIKion RDtruupTlllllopaqui,_dRinprivloeIdata objEc= pass to Tdzallo-e2-z-zfreefm>pon HNint IIIIdata_eeig,_dRinbERs guERs Jbou,ft Ledata eeig: ascii>nlobinyornKion RDlLongIUMadler; opuadler32 lrk[G%ofhereSlf-umpSERscdedata Kion RDlLongIUMSERerv t; B-oA:reRerv tRf Tdfut *custtosi=)z_ccream;ioeeigS MIz_ccreamIFAR_*z_ccreamp;ioin6 TreSapp rcalc n-must updloeIenx+_ine2-z-avail_in whtohavail_in haso drolcodo Tdzero. It-must updloeIenx+_ou,fyAdIavail_out whtohavail_out has drolcodo Tdzero. TreSapp rcalc n-must EAi>cal;_ttzallo-,-zfreefA-z =lopaquisbefore jutLi]peLne it pe.lf->c n. All othe ;fieldH)a ceRet by Lne =lcumpSERsc tobr>ryor 2-z-must _tsubG updloed by Lne app rcalc n. uT e opaquislrk[G%provid toby Lne app rcalc nfwiuTMfvnpass toaso-ne first parametpuNf TdbutLstofhzallo-e2-z-zfree. T ne EebRfvnustfulNf Tdbustom memoryumanaginm #. TreScumpSERsc tobr>ryor 2ttaATecan meani]peLouLne =lopaquislrk[G. uzallo-emust h2->uB-Z_v{Mep Tsthe *%nth_tsuenough memoryuf TdLne objEc=. h If zbit_nthus toinuaimulti-th >p toapp rcalc n,dzallo-e2-z-zfreefmust bGIUM eh >p safG. uOn 16-bicsstemDds,o-ne flf->c ncdzallo-e2-z-zfreefmust bG esooLouallo-s, uexac=lyu65536ibyees,sbue>wiuTM_tsubG% quiredo Tdallo-s, _more:-nanterne u TsereSsymbol MAXSEG_64Kp soS ?Ed (las.zbuff l). WARNING:oOn MSDOSaIRSMpoi #cos h2->uB toby zallo-ef TdobjEc=stofhexac=lyu65536ibyees)*must* havehereiTdoffRet n Tm l;_tdo Tdzero. TreSS ?nf brallo-s,c t flf->c nIRSMprovid toby Ln sobr>ryor enRe *apLn so(las.zuecl.c). Tou *duce memory IUMSEquirenm #>>yAdIavarwaanyrallo-s,c t ofh64KpobjEc=s,uJle-ne expenRG%of =lcumpSERsc toLalc ,=cump_silereSbr>ryor DOS -DMAX_WBITS=14 (las.zbuff l). uT e fieldH)eOtrk_inp2-z- Ttrk_out EebRfvnustdn. T;dsalcstics>nlIRSMprogSERs pi}o(as. AftcowcumpSERsc t,)eOtrk_inpholdH)ehe:-Otrk-p;_ttofIUM eheSlf-umpSERscdedata 2-z-may>bensav tRf Tdusttiio-ne SHcumpSERsnlIRSM(particubgMlyu TsereSSHcumpSERsnl war+s=-o=SHcumpSERseentrythi]pe1(IRSMaid)tLleNccep).or io opubuffca #>>>>pu#SHHEALIZ_NO_FLUSH 0u#SHHEALIZ_PARTIAL_FLUSH 1 opuwiuTMfvn &o ,dusttZ_SYNC_FLUSH nlt >p Kio#SHHEA{tZ_SYNC_FLUSH 2o#SHHEA{tZ_F{Me_FLUSH 3o#SHHEA{tZ_FINISH 4uopuA /ow tRflushrlrk[Gs;/las.S ?/s, ()sbe/ow>f T;S taig>>>>pu#SHHEALIZ_OK 0u#SHHEALIZ_STREAM_END = =1u#SHHEALIZ_NEED_DICT = = 2o#SHHEA{tZ_ERRNO (-1)u#SHHEALIZ_STREAM_ERROR (-2)u#SHHEALIZ_DATA_ERROR (-3)u#SHHEALIZ_MEM_ERROR (-4)u#SHHEALIZ_BUF_ERROR (-5)u#SHHEALIZ_VERSION_ERROR (-6)uopuR2->u1ocodfsuf TdLne cumpSERsc t/SHcumpSERsc to.lf->c nc. Nngative6 {=lrk[Gs)a ceeod {s>`posi>cve=lrk[Gs)a ceustdn. T;dpecial>bue>n Tm l entoos. ua-4u#SHHEALIZ_NO_COMPRESSION 0u#SHHEALIZ_BEST_SPEED 1u#SHHEALIZ_BEST_COMPRESSION 9u#SHHEALIZ_DEFAULT_COMPRESSION (-1)u/*ScumpSERsc tobelf=>>>>pu#SHHEALIZ_FILTERED 1u#SHHEALIZ_HUFFMAN_ONLY 2u#SHHEALIZ_DEFAULT_STRATEGY 0u/*ScumpSERsc toccrs, gy;/las.S ?/s, Init2()sbe/ow>f T;S taig>>>>pu#SHHEALIZ_BINARY 0u#SHHEALIZ_ASCII 1u#SHHEALIZ_UNKNOWN 2u/*SPossiesoolrk[Gs)ofhereSdata_eeig field>>>pu#SHHEALIZ_DEFLATED 8uopuTneRS ?/s, _cumpSERsc tothod >o(theo tlrnoneZsuCoo(a toinut ne versc t)ua-4u#SHHEALIZ_N{Mepf0 =ARf TdEAi>cal;_i]pezallo-,-zfree,lopaquisa-4u#SHHEALIzbit_versc tozbitVersc t()u/*Sf TdbumplocbilityeDOS versc ts < 1.0.2 r io opubasic flf->c ncdr ioZEXTERN buff[TOKENe,IZEXPORT zbitVersc tIOF((truu -F opuTneRapp rcalc nfEebRbumplre zbitVersc tI2-z-ZBecPVERSION f TdbunRiccency. h If -ne first>noo*actco dier *H,lereSbr>ryor codf actuallyuus toie u_tsubumplocbsilDOS ereSzbit.h h >p r;fi]peustd by Lne app rcalc n. T ne INT_nd-sdautomlocoallyumadeZby.S ?/s, Initu2-z--n?/s, Init. ua-4.0/soZEXTERN int ZEXPORT S ?/s, InituOF((z_ccreampoccrmarel+ aelf= -F f IAi>cal;_ts ereS1(ternal o reamIo loeIf TdbumpSERsc t.uT e fieldH uzallo-,-zfreefA-zlopaquismust bG EAi>cal;_tdsbefore by Lne oaller. h If zallo-e2-z-zfreefa ceRet -o=Z_N{Me, S ?/s, Inituupdloes erem -o h useSS ?nf brallo-s,c t flf->c nshio TreScumpSERsc tobelf=smust bG Z_DEFAULT_COMPRESSION,>nlobetwetoh0p2-z-9:IRS 1 gcvesnbERs dpe ,d9 gcvesnbERs cumpSERsc t,)0 gcvesnn cumpSERsc toAt all (ereS1(put data ne simp r copiedou>blo-kuJleaMme? ). h Z_DEFAULT_COMPRESSION requERssdaeS ?nf brcumpSomie{ etwetohdpe fA-z =lcumpSERsc to(cursEl+ r Equilrker+ Loubelf=s6)hio S ?/s, Inituh2->uisIZ_OK ifGtuccEsH,lZ_MEM_ERROR Tsthe *%was _ts hhenough memory,IZ_STREAM_ERROR Tsbelf=snth_tsuaifs, cumpSERsc tobelf=, h Z_VERSION_ERROR ifhereSzbit_br>ryor versc to(zbit_versc t)snthinbumplocbsi h DOS ereSversc toasse ju by Lne oaller (ZBecPVERSION). h ms _is Ret -o=null Tsthe *%nth_tscod {othssagi. S ?/s, Initudoeth_tsIRSMperf Tmaany"numpSERsc t:terne wiuTMfvndoALIby.S ?/s, ().or iooZEXTERN int ZEXPORT S ?/s, uOF((z_ccreampoccrmarel+ flush -F op S ?/s, ScumpSERs{soasomuATudata 2s`possieso,oA-z-scops whtohereS1(put bXer *BbHcum{sopty{y; TdLne output bXer *BbHcum{sofull. It-may>el+rodute-s= = output /s, ncyt( >pi]pe1(put DOS ou,fproduti]pe2-y output) except whto }Uf Tc to Tdalushhio TneRS taiged Rema #ics>a ceasRf /owc. S ?/s, Sperf TmsnoneZnloboS ofuLne =f /owi]pea->c nc: - CumpSERsomore input;.ct(ai]peatIenx+_ine2-z-updloeIenx+_ine2-z-avail_inon HNaccorpi]ply.=If _tsuall input;EebRfvnprocERscde(bHcausttere *%nth_tson HNenough roomtiio-ne output bXer *),Ienx+_ine2-z-avail_in a ceupdloed A-z =lnprocERsi]pewiuTMSERe juJle-nne poi # f TdLne enx+ call of.S ?/s, ().o - Provid omore output act(ai]peatIenx+_ou,fyAdIupdloeIenx+_ou,fyAdIavail_outon HNaccorpi]ply.=T ne a->c n%nthf Tc toifhereSparametpuNflushrnth_tndzero.on HNF Tci]pealushrfrequEl+ r degradeshereScumpSERsc toLalc ,=soherne parametpuon RDohoul>>be=Ret tlrnDhtohnecERsyor (era1(tera->cve app rcalc ns). h uS= = output may>benprovid toentoh.fNflushrnth_tt=Ret.o Before Lne oall of.S ?/s, (), Lne app rcalc nfohoul>>enRe *utnataa+ aeast oneZnTsereSa->c ncdis`possieso,obr providi]pemore input;2-z/ TdbunRe i]p more output,fyAdIupdloi]peavail_in T;xvail_out accorpi]ply;Iavail_outon shoul>>nentr>benzerosbefore Lne oall. TreSapp rcalc n-EebRbunRe jeLne ScumpSERs{d output Dhtohituwar+s>%f TdexamplepwhtohereSoutput bXer *Bisofull (xvail_out te (f,>nlogftcoweaATujutL of.S ?/s, ().=If S ?/s, Sh2->uisIZ_OK >andrDOS nzerosxvail_out,hitumust bG oalledeagain gftcowmaki]pehoomtiio-ne output bXer *BbHcausttere *%m>be=ustd tlrnDhtohnecERsyorhio IfhflushrnthRet -o=Z_F{Me_FLUSH,uall output iseflush toaslDOS hZ_SYNC_FLUSH,ua-z- reScumpSERsc toccs, Sis:reRet=soherat=SHcumpSERsc toEeb6 pi.ct(aeataslerne poi # .fNpSEviousScumpSERs{d data has betohdamage onloifIUMra-zaslxccEsHnne desired. Usi]peZ_F{Me_FLUSH -oopoftcn-EebRserious r degradeo ereScumpSERsc t.io IfhS ?/s, Sh2->uisIcOS avail_out te (,lerne flf->c tomust bG oalledeagain h DOS ereSsefL lrk[G%ofhereSflushrparametpuN2-z-more output ac; { (updloed IIavail_outf,>u #ilhereSflushrisScumpletp (S ?/s, _h2->uisIcOS _tn-zero IIavail_outfhio IfhereSparametpuNflushrnthRet -o=Z_FINISH, pending input;ne procERscd, hpending output ieeflush toa-z-S ?/s, _h2->uisIcOS Z_STREAM_END Tsthe * h Das enough output ac; {;hnfoS ?/s, _h2->uisIcOS Z_OK,lerne flf->c tomust bG Scalledeagain cOS Z_FINISH 2-z-more output ac; { (updloedIavail_outf>bue>n more input;data,>u #ilhituh2->uisIcOS Z_STREAM_END T;xAscod {. Aftco S ?/s, Shas h2->uB toZ_STREAM_END, Lne tlrnpossiesolopeLalc ncaoio-ne o reamIa ced ?/s, RERet T;S ?/s, End. ho Z_FINISH EebRfvnustdnimmedis, lysAftcowS ?/s, Initu TsauTMereScumpSERsc t IIis -oRfvndoALIinuaid)tLleNccep. Inn-nne Eeli,navail_out must bG + aeast 0.1% bgM_cow-n n avail_in plusd12ibyees. IfhS ?/s, Sdoeth_tsuh2->uB hZ_STREAM_END, Lnenhitumust bG oalledeagain ge descgebtd abovt.io S ?/s, ()sRetsoccrm->adlero TdereSadler32 bNTtysum%ofhall input; >p oohfo*f(tn *(-s,ueOtrk_inpbyees).io S ?/s, ()smayuupdloeIdata_eeig Tsit;EebRmakp a good guERs Jbou,o ereSinput;data eeig (Z_ASCII T;Z_BINARY). Inndoubt,ft Ledata isScunlider t binyor.=T ne field>iso tlrn. T;inf Tm tc topurpupesfA-z-doeth_tsuaer cto ereScumpSERsc tIalgorithmIinuanyumanner. o S ?/s, ()sh2->uisIZ_OK ifGt= = progSERs has betohmadeZ(more input nprocERscdenlomore output produted),>Z_STREAM_END Tsall input;has beto RbunRe jtoa-z-all output has betohproduted ( tlrnDhtohflushrnthRet -o Z_FINISH),IZ_STREAM_ERROR TsereSs reamIo loeIDas inbunRiccent ( Tdexample u Tsenx+_inetrnnnx+_ou,fDas v{Mem,IZ_BUF_ERROR Tsn progSERs is`possieso (f Tdexamplepavail_in T;xvail_out Das zero).or iooZEXTERN int ZEXPORT S ?/s, EnduOF((z_ccreampoccrm -F op All dyeeficallyuallo-s, d data occseue *apf TdLnis o reamIa cefreed. T ne flf->c todiscardH)anyuunprocERscdeinput;2-z-doeth_tsuflushranyIRSMpending outputhio S ?/s, Enduh2->uisIZ_OK ifGtuccEsH,lZ_STREAM_ERROR Tsereo s reamIo loeIDas inbunRiccent,IZ_DATA_ERROR TsereSs reamIDas freedIRSMpremaDe *lyu(t= = input; Tdoutput Dge discarded). Inn-ne cod {oEeli, h ms _may>benset bu,ft Lnnpoi #>>wina o locodssges _(whiATumust _tsubG hhdeallo-s, d).or ioo0/soZEXTERN int ZEXPORT -n?/s, InituOF((z_ccreampoccrm -F f IAi>cal;_ts ereS1(ternal o reamIo loeIf TdSHcumpSERsc t.uT e fieldH uenx+_in,pavail_in,uzallo-,-zfreefA-zlopaquismust bG EAi>cal;_tdsbefore byIUM eheSoaller.=If _nx+_inenth_tt=Z_N{Mep2-z-avail_in is bgM_c=enough (-ne exacto lrk[G%dependcaoio-ne_cumpSERsc tothod >), -n?/s, Initudetpu i]ts ere =lcumpSERsc tothod >oataslereSzbit_h >p r;a-z-allo-s, s-all data occseue *a HNaccorpi]ply; othe wisttererallo-s,c t wiuTMfvnder *r to TdereSfirst>nutL of u n?/s, .h If zallo-e2-z-zfreefa ceRet -o=Z_N{Me, -n?/s, Inituupdloes erem -o h useSS ?nf brallo-s,c t flf->c nshio -n?/s, Inituh2->uisIZ_OK ifGtuccEsH,lZ_MEM_ERROR Tsthe *%was _ts=enough memory, Z_VERSION_ERROR ifhereSzbit_br>ryor versc tonthinbumplocbsi DOS ereo lersc toasse ju by Lne oaller.h ms _is Ret -o=null Tsthe *%nth_tscod { messagi. -n?/s, Initudoeth_tsuperf Tmaany"SHcumpSERsc toapt(aeatasl >pi]pIUM eheSzbit_h >p r;.fNpSERent:terne wiuTMfvndoALIby.-n?/s, ().= (SoIenx+_ine2-z HNavail_in may>benmodified,sbue>enx+_ou,fyAdIavail_out a ceunchg_dod.)or iooZEXTERN int ZEXPORT -n?/s, _OF((z_ccreampoccrmarel+ flush -F op -n?/s, _SHcumpSERs{soasomuATudata 2s`possieso,oA-z-scops whtohereS1(put bXer *BbHcum{sopty{y; TdLne output bXer *BbHcum{sofull. It-may>s= = el+rodute-s= = output /s, ncyt( >pi]pe1(put DOS ou,fproduti]pe2-y output) except whtoUf Tc to Tdalushhio TneRS taiged Rema #ics>a ceasRf /owc. -n?/s, _perf TmsnoneZnloboS ofuLne =f /owi]pea->c nc: - DHcumpSERsemore input;.ct(ai]peatIenx+_ine2-z-updloeIenx+_ine2-z-avail_inon HNaccorpi]ply.=If _tsuall input;EebRfvnprocERscde(bHcausttere *%nth_tson HNenough roomtiio-ne output bXer *),Ienx+_inenthupdloed A-znprocERsi]pon HNwiuTMSERe juJle-nne poi # f TdLne enx+ call of.-n?/s, ().o - Provid omore output act(ai]peatIenx+_ou,fyAdIupdloeIenx+_ou,fyAdIavail_outon HNaccorpi]ply.=.-n?/s, () provid s>asomuATuoutput 2s`possieso,ou #ilhere c hhhnth_tsmore input;dataRtrnn more ac; { iio-ne output bXer * (las.be/owon HNabou,ft Leflushrparametpu).o Before Lne oall of.-n?/s, (), Lne app rcalc nfohoul>>enRe *utnataa+ aeast oneZnTsereSa->c ncdis`possieso,obr providi]pemore input;2-z/ TdbunRe i]p more output,fyAdIupdloi]peLne enx+_*oA-z-avail_{=lrk[Gs)accorpi]ply. TreSapp rcalc n-EebRbunRe jeLneSlf-umpSERscdeoutput Dhtohituwar+s>%f T examplepwhtohereSoutput bXer *Bisofull (xvail_out te (f,>nlogftcoweaAT Scall of.-n?/s, ().=If -n?/s, _h2->uisIZ_OK andrDOS nzerosxvail_out,hit must bG oalledeagain gftcowmaki]pehoomtiio-ne output bXer *BbHcausttere * masomuAT output 2s`possiesoo TdereSoutput bXer *.uT e flushi]pebehavi Tdofu-n?/s, _ie _tt=Rpecifitdn. T;lrk[Gs)ofhereSflushrparametpuNothe ;-n n Z_SYNC_FLUSH >andrZ_FINISH, bu,ft LlcursEl+ imp enm #alc nvactuallyuflush s>asomuAT output 2s`possiesoo2-ywarhio -n?/s, () shoul>>n Tm lly bG oalledeu #ilhituh2->uisIZ_STREAM_END T;xA eod {. Howentr> Tsall SHcumpSERsc tois -oRfvnperf Tm toinuaid)tLleNccep (xid)tLleNcall of.-n?/s, ), Lne parametpuNflushrohoul>>be=Ret -o Z_FINISH. Inn-nne Eeliuall pending input;ne procERscdoa-z-all pending output ieeflush t;navail_out must bG bgM_c=enough -oRholdsauTMere Slf-umpSERscdedata. (T e p;_ttofheheSlf-umpSERscdedata may have betohsav t byo-ne_cumpSERsorpf TdLnis purpupe.)uT e enx+ opeLalc naoio-nis o reamImust beIin?/s, End=-o=SHallo-s, _ereSSHcumpSERsc too loe.uT e usttofhZ_FINISH IIis nentr> quired, bu,fEebRfvnustdnwinitf Tma-n?/s, _tnataa fasttr> outi]t may>benustdn. T;ereSs)tLleN-n?/s, () jutL.io IfhaNpSERet;de->c nyornis need toJle-nne poi # (las.in?/s, SetDe->c nyor .be/ow), -n?/s, sRetsoccrm-adlero TdereSadler32 bNTtysum%ofhere Sde->c nyornchupen byo-ne_cumpSERsorpanduh2->uisIZ_NEED_DICT; othe wistt IIitsRetsoccrm->adlero TdereSadler32 bNTtysum%ofhall output produted oohfo*f(tn *(-s,ueOtrk_out;byees)panduh2->uisIZ_OK,lZ_STREAM_END T >an cod {oEodf ae descgebtd be/ow. Ale-ne e-z-oTsereSs ream,N-n?/s, () ScNTtysttn *(-tsScumpuoed Adler32 bNTtysum%ne qual Loutnatasav tRby Lne =cumpSERsorpanduh2->uisIZ_STREAM_END nlyu TsereSbNTtysum%ne mhrsEc=hio -n?/s, () h2->uisIZ_OK ifGt= = progSERs has betohmadeZ(more input procERscd olomore output produted),>Z_STREAM_END Ts-ne e-z-oTsereScumpSERs{d data has .beetosEaATedoa-z-all lf-umpSERscdeoutput has betohproduted,IZ_NEED_DICT Tsa nprERet;de->c nyornis need toJle-nne poi #,IZ_DATA_ERROR TsereSinput;dataRwas .mhrsuptpdo(input;.creamI_tsubutf Tmi]peLouLne zbit_f Tm tonloi mhrsEc= Adler32 bNTtysum),IZ_STREAM_ERROR TsereSs reamIo cseue *IDas inbunRiccent (f Tdexamplep Tsenx+_inetrnnnx+_ou,fDas v{Mem,IZ_MEM_ERROR Tsthe *%was _ts henough memory,IZ_BUF_ERROR Tsn progSERs is`possiesoonloifsthe *%was _ts henough hoomtiio-ne output bXer *BwhtohZ_FINISH nthus t. Inn-ne Z_DATA_ERROR Nbeli,n-neSapp rcalc n-mayft Lnnoall .n?/s, Sync Loubooko T;x good =lcumpSERsc toblo-k.or iooZEXTERN int ZEXPORT in?/s, End=OF((z_ccreampoccrm -F op All dyeeficallyuallo-s, d data occseue *apf TdLnis o reamIa cefreed. T ne flf->c todiscardH)anyuunprocERscdeinput;2-z-doeth_tsuflushranyIRSMpending outputhio in?/s, End=h2->uisIZ_OK ifGtuccEsH,lZ_STREAM_ERROR Tsere o reamIo loeo Das inbunRiccent. Inn-ne cod {oEeli, ms _may>benset bu,ft Lnnpoi #>>winao s locodssges _(whiATumust _tsubGhdeallo-s, d).or io opuAdvanc toflf->c ncdr ioop T e f /owi]peflf->c ncda c need to tlrniiot= = dpecial>app rcalc ns.or ioopu soZEXTERN int ZEXPORT S ?/s, Init2_OF((z_ccreampoccrmao int Ibelf=, h int Ithod >, h int Iwi-zowBi>s, h int IthmLelf=, h int Iccrs, gy -F f T ne iseanothe ;versc toofhS ?/s, InituDOS nmore cumpSERsc tot_nc ns.uT ef fieldH)enx+_in,pzallo-,-zfreefA-zlopaquismust bG EAi>cal;_tdsbefore byIUM eheSoaller.io TreSthod >oparametpuNishereScumpSERsc tothod >. It-must bLIZ_DEFLATED inon Ht ne versc toofhereSbr>ryor.io TreSwi-zowBi>s>parametpuNishereSbeliutwoubogarithmIofhereSwi-zow>p;_to (t e p;_ttofheheS netoryubXer *).h Ituohoul>>be=iio-ne rg_do 8..15pf TdLniso lersc toofhereSbr>ryor. LgM_cowlrk[Gs)ofherne parametpuosElmf>>nbRfvttpuon RcumpSERsc toAtn-ne cxpenRG%of memoryuusagi. TreSS ?nf brlrk[G%ne 15pifIUMwS ?/s, Initu thus toinlt >p.io TreSthmLelf= parametpuoRpecifits how>muAT memoryuohoul>>be=allo-s, df f T;ereS1(ternal cumpSERsc too loe.uthmLelf==1hus shsinimum memoryubuton His o/ow>2-z-redutesScumpSERsc toLalc ;uthmLelf==9hus shsaximum memory IUMf Tdo_ncm l dpe . TreSS ?nf brlrk[G%ne 8.uSeeszbuff lef T;eOtrk-memory IUMusagi ae a flf->c toof wi-zowBi>s>2-z-mhmLelf=.io TreSccrs, gy>parametpuNishustdnwintune ereScumpSERsc tIalgorithm. UsjeLne Srlrk[G%Z_DEFAULT_STRATEGY ftrnn Tm l data,>Z_FILTERED f TdSata produted by>af filtcow(oruer_de->orf,>nloZ_HUFFMAN_ONLY Tda Tc HXerman cnbuding otlrn(n dssges _maDAT).h Filtcoed Sata bunRiccsemos+ r ofidmall lrk[Gs)cOS a ds= =wnatara-zasldissgebuec t. Inn-nne Eeli,nereScumpSERsc tIalgorithmIiso tunednwincumpSERseerem fvttpu. TreSeer cttofhZ_FILTERED is -oRa Tc more6 HXerman buding 2-z-bERsessges _maDATing;situ ths= =wnata1(termedis, 6 etwetohZ_DEFAULT>andrZ_HUFFMAN_ONLY. TreSccrs, gy>parametpuNotlrnaer ctsIUM eheSoumpSERsc toLalc >bue>n ,ft LlchrsEc=nERs oTsereScumpSERs{d output entoon Hifsitu th_tt=Rethappropris, ly.io S ?/s, Init2_h2->uisIZ_OK ifGtuccEsH,lZ_MEM_ERROR Tsthe *%was _ts=enough memory, Z_STREAM_ERROR Tsa>parametpuNish1(fs, lsuATuas anfinfs, meod >). ms _is Ret -o=null Tsthe *%nth_tscod {othssagi. S ?/s, Init2-doet uetsuperf Tmaany"numpSERsc t:terne wiuTMfvndoALIby.S ?/s, ().or i oZEXTERN int ZEXPORT S ?/s, SetDe->c nyornOF((z_ccreampoccrmao buff[TByeefI*de->c nyor,o lInt Ide->Length -F op IAi>cal;_ts ereSoumpSERsc tode->c nyornataslereSgcven byeeesequElci h DOS ou,fproduti]pe2-y cumpSERs{d output. T ne flf->c tomust bG oalledon Himmedis, lysAftcowS ?/s, Init, S ?/s, Init2- T;S ?/s, RERet,sbefore anyIRSMjutL of.S ?/s, . TreScumpSERsorpanduSHcumpSERsnl must usehexac=lyuereSsefLIUMwSe->c nyorn(las.in?/s, SetDe->c nyor).io TreSSe->c nyornohoul>>bunRiccaofidsges s (byeeesequElcis)_tnataa cebik lyIUM einbeRpnbuuntcoed /s, uaiio-ne Sata eo>be=cumpSERs{d, DOS ereSmos+ecummotlr h usedidsges s er_ferablrnpu,ftowardH)-ne e-z-oTsereSSe->c nyor. Usi]peaIUMwSe->c nyornisemos+nustfulNwhtohereSSata eo>be=cumpSERs{d_is Rho(aeanduEebRfvIRSMpreSe->idrDOS good accuracy;hereSSata canteren>be=cumpSERs{d_fvttpu;-n n h DOS _ereSSH?nf brpty{y;Se->c nyor.io Depending on t e p;_ttofheheSoumpSERsc todata occseue *apselett{d by6 MwS ?/s, InituoowS ?/s, Init2,sa>part-oTsereSSe->c nyor-may>elSeer cttbG hhdiscarded>%f TdexamplepiTsereSSe->c nyor-is bgM_cow-n n ereSwi-zow>p;_t inon HS ?/s, SoowS ?/s, 2. Trussere o res s mos+nbik ly eo>be=ustfulNohoul>>beIRSMputuJle-ne e-z-oTsereSSe->c nyor, _tsua,ft Lefronthio Up toL2->u1oofherne flf->c t,occrm->adlerois Ret -o=t LeAdler32 lrk[Go oTsereSSe->c nyor;_ereSSHcumpSERsnl may>/s, uaustterne lrk[G%-o=SHtpu i]t h DhiATuSe->c nyor-has betohustd by Lne cumpSERsnl. (T e Adler32 lrk[Go app res -o=t LewholeSSe->c nyor-entoh.fNotlrnaisubRet TsereSSe->c nyor-iso actuallyuus toby Lne cumpSERsnl.)io S ?/s, SetDe->c nyornh2->uisIZ_OK ifGtuccEsH,lnloZ_STREAM_ERROR TsaIRSMparametpuNish1(fs, lsuATuas N{MepSe->c nyor); TdLne o reamIo loeIne u nbunRiccent ( TdexamplehnfoS ?/s, _has al >py betohoalledef TdLnis o reamo oru TsereSbumpSERsc tothod >ois bso(a). S ?/s, SetDe->c nyorndoeth_tsIRSMperf Tmaany"numpSERsc t:terne wiuTMfvndoALIby.S ?/s, ().or ioZEXTERN int ZEXPORT S ?/s, atornOF((z_ccreampodest,o z_ccreampocrc =L -F op SetsoereSSHstinalc nfo reamIae a cumpletp ctor-oTsereSsrc =Leo ream. f T ne flf->c ton b>be=ustfulNwhtohsentral cumpSERsc too rs, giee wiuTMfvIUM eried>%f Tdexamplepwhtohererefa ceRentral ways oTsbeflllllopaqui,_u0>c nyral cumpSEC,_u0>c nyral cumpSEC,SHsti%nth_tscod {othsse01d_here)1(fs, #>fS ?tHAVE_Utscod /s,peLne it End. ho Notaa fast atornOF((z_duc ns.oS1(ternal o reampSERsc toAtn-neDas inbe->c =ustfulquitc=enougrne paramegy>paramew>2-z-reduttL of.e jeLneSlfloexac=l, Z_ST S ?/s, Enduh2F((z_sIZ_OK ifGtuccEsH,lZ_MEM_ERROR Tsthe *%was _ts hhenough memory,IZ_STREAM_ERROR Tsbelf=sc =Leo ream. f IDas inbunRiccent,IZ_DA e p;s N{MepSe2-z-zfLne orIZ_MEis Ret -oleft_dod.)or ittpuoo= far reamduttL oalc nfo reaZEXTERN int ZEXPORT S ?/s, atornO T;S ?ccreampoccrm -F op All dylf->c ton b>beal Lou+ Loubelf=s Enduh2->uii]peflLne cu Init, S ?/scod /uh_tsuperf T-zlopaquirs, _ereSSHeScumpSEal cumpSERsc too loe.uthmLe C,SHsti%nth {othskeepefLIUMwSeERsc tobelf=smust bl lf-put)ersc ateeitEB-heSoumpatave betohsav t Lne = Init2,sa>pa S ?/s, Init2_ T;S ?sIZ_OK ifGtuccEsH,lnloZ_STREAM_ERROR TsaIRSMpc =Leo reages _maloeIDas inbunRiccent ( Tdexs N{MepSe2-z-zflcsticsefLne orIZ_MEiEXTERN int ZEXPORT S ?/s, atornO # =SH_ccreampoccrmao S ?/s,lf= -F f S ?/s,lf= gy -F f All dyDallyuallo-sIenx+_ompSERsc tothod >must bl lfRsc toccrs, gy;/las.e verebunRic cu totofh64Kpobmust bl lfgy>paramew>2a ?/s, Init2u2-z--e versc IRSMpreSe-intune esc nN{MohZ_DEFARsc toA-z =SHcfgy>p omorTsereSsrc =Ldata,>u #ilhmessage esc nN{M locoH,lere TdekiereSSedataRwas .ed, buUMwSeoH,lere Tdges _ma/las.e IbumpSERsc tothod >nth_tsuaid.)or i,rc =Ldata,>esooaohfo*. (In o/ow>2Rs{d_fvttpureSSH?nf TMernth_ts(y>bensav tRt;navai);nx+_*oAwrnth_ts{othssagegoodtofhZ_FIsubRetnx+_*oA-zof.S ?/s, ().o - Prov re Lne oall of.S ?/s, (), Ln # =SH, reamIo loeIne uG oalledproprs examplplet.S ?/s, (), Lne apu0>ceursEl+ imp eubResooaohfo*data,>ve betohsuseSS pSERs{d_fvttpuy>bet;navainne EubgM IIava->adleroiut must bG bgM_c=ro IIava S ?/s, Enduh2 # =SH_sIZ_OK ifGtuccEsH,lZ_STREAM_ERROR Tsere o reamIo reages _maloeIDas inbunRiccent ( TdeereSbumetpuNish1(fbunRiclsuATF_ERROR Tsn situ thadleroiut must bro).or iopu soZEXTERN int ZEXPORT S ?/s, Init2_,"INI_ccreampoccrmao int Ibelf=,Bi>s>2-z-m T ne iseanothe ;versc toofhS ?/s, Initudoeth_nfinterft{d betpuNish1( fieldH)enx+_in,pzallo-in,uzallo-,-zfreefA-zlopaquismust bG EAi>cal;_tdsbeforeSS pSy Lne oaller. h If TreSwi-zowBi>s>parametpuNishereSbeliutwoubogarithmIofhereSwi-zowm memoryBi>s>pges _on H;_ttofheheS netoryubXer *).h Ituohoul>>be=iio-ne rg_do 8..15pf TdLnisone versc toofhereSbr>ryor.io ?nf brlrk[G%ne 15pifIUMwS , Initudoeth_dnwintubunRicio pSERetRs{d_fvttputi%nth {onyralw-n n e>p;_t inon HSs byeeesanbunRicAdIup () h2->uiERe juJfhernreSSH?nf Eodf ae des_ERROR TsereS Kio#SHeheSlf-ryuLne zb, _ereSSHelw-n n e>p;_t S ?/s, Init2_,"INI_sIZ_OK ifGtuccEsH,lZ_MEM_ERROR Tsthe *%was _ts=enough memory, Z_STREAM_ERROR Tsa>parametpuNish1(fs, lsuATuas anfinfsin,6 {=lrk[elf=, h _is Ret -o=null Tsthe *%nth_tscod {othssagi. S ?/s, Init2_,"INItL oasuperf Tmaany"SHcumpSERsc toapt(aeatasl >pi]pIUM ehbit_f Tm t;.fNpSEReeSe->iderne wiuTMfvndoALIby.-n?/s, ().= (SoIex+_ine2-z HNav_in may>benmodifk[elfd,sbue>enx+_ou,fyAdIavail_out a ceunchg_dod.)or iooZEXTEN int ZEXPORT S ?/s, Init2_>c nyornOF((z_ccreampoccrmao buff[TByeefI*de->c nyor,o lInt Ide->Length -F op IAi>cal;_ts ereSoumpSESERsc toapt(aenyornataslereSgcven byeeesSERscdeoutputequEges _is)_tna flf->c tomust bG oalledon Himis, lysAftcowS ?/s,aof.-n?/s, ), Lnesitu theli,nere juJfherTREAMICT Tsa .e->c nyornohoul> byo-ne_cumpSERsorpanduhtL of.e llo-st h DhlereSzbit_h2 lrk[Go apB toby zallo-eli,nere j n?/s, .h If zampSERsorpanduSHcumpSERsnl must usehexac=lyuereSsefLIUMwSe->c nyorn(las.in?/s, SetDe->c nyorndoeth) in?/s, End=h2>c nyornh2->uisIZ_OK ifGtuccEsH,lnloZ_SAM_ERROR TsaIRSMparametpuNish1(fs, lsuATuas N{MepSe->c nyor); TdLne o reamIo loeIne u nbunRiccent ( TdTA_ERROR TsereSinput;byeeesdyorndoeth_tsIRedo-ng;siSrlrk[G%G%ofclrnDOSbyees=nERs oh2 lrk[Go ap)., End=h2>c nyornh2->uitsIRSMperf Tmaany"numpSESERsc toapt(a wiuTMfvndoALIby.-n?/s, Tser degtofhzallo?/s, .h If ioZEXTERN int ZEXPORT S ?/s, Sync Loubooccreampoccrm -F op Z_FINISkip, lsuATuRs{d data has .ituh2-a(xvailparametlas.in?/s,io Srlrk[Gbtd bepfh64Kpob _has al_FINISH USH -oopo)of.e llofr,=s_STREituh2-athssaesooaohfo*data,> -o=kippainnNot ieeflush t bef -n?/s, () h2-ouboosIZ_OK ifGtuccEsa(xvailparametlas.itohustd bfr,=s_SERROR Tsn sitprogSEnput procERs=en t befTA_ERROR TsereSinnolparametlas.itohustd bfr,=s_ STREAM_ERROR TsaIRSMpc =Leo cseue *IDas inbunRiccent (f ne cod {oH,lnloZ ,n-neSapp rcalc n-mayft LnnoseSsefL H+ imp en+ imp enofhereSflunpbyees)be->csitpndns.oS1(wth_tslsuATuRs{d data has .eedIRr,=sne cod {oEeli, ms _matpp rcalc n-must prayt{d jutLsly.n?/s, Sync Loubo,di]pemore input;2-z/ TutL o h _ Situh2-H,lnloZSTREsereSSe->c dataRwas ZEXTERN int ZEXPORT S ?/s, Sync L T;S ?ccreampoccrm -F op All dylf->c ton b>beal Lou+ Loubelf=s End=h2->uii]peflLne cu Init2_,"INscod /uh_tsuperf T-zlopaquirs, _ereSSHeScumpSEal cumpSESERsc too loe.uT e u C,SHsti%nth {othskeepeateeitEB-humpatave betohsav t Lne = Init2. * WAR S ?/s, Init2_ T;S ?sIZ_OK ifGtuccEsH,lnloZ_STREAM_ERROR TsaIRSMpc =Leo reages _maloeIDas inbunRiccent ( Tdexs N{MepSe2-z-zflcsticsefLne orIZ_MEiEXTER to TtDOS v ncdr ioop T e f /owi]peflf->cTtDOS v ncdr ioopchg_m #alc nva byeetope Sde->c flf->c_maloe-ori nva b nc. NngatiTor copiifyumpSEal cuimib, el+rod brlrk[G%s.uT efsRf /oby Lne(Rsc tothod >must bl lfuusagi. TreS,ges _ma=soolfuusagi.,c t flf->c nshio )EC,SHstr reame des Sde-eeigS TtDOS v ncdr ioopf.e elf-lodified,sbue>u war+ Lne sil>app rcs.uT ef EXTERN int ZEXPORT S ?/s,Rseerem fccre*de->c n gIUMSER>c n -F ByeefI*de->c tr rea,IUMSERetr rea -F All dyRsomore SoumpSEtr reamBisofullnewholeSalc nfo ream.uT e fletr rea -F tunednwiutwquEll-F opeSsrc =Leo ream.uT e fl2->u1 nvSTREn -FeSbeliutunpbyges _on HSSe->c nlc nfo ream.uT e , must _tsubGaeast 0.1bgM_cow-n n avail =wnat rea -F 2ibyees. IfhS 2->u1 x?/s, I -FeSbeliutlyuus _on HSSe->cmpSERsc toAtLne uT e fT ne flf->c ton b>be=ustfulNwhumpSERseerem faSSe->c std bi mh>ceuo s reamfi]pene mmap'ed),>nlofT ne fRseerem fsIZ_OK ifGtuccEsH,lZ_MEM_ERROR Tsthe *%was _ts hhenough memory,IZ_STREAMROR Tsn prowas _ts=enough meiio-ne output bXer cod /uT e fTXTERN int ZEXPORT S ?/s,Rseerem 2fccre*de->c n gIUMSER>c n -F ByeefI*de->c tr rea,IUMSERetr rea -F lf= -F f All dyRsomore SoumpSEtr reamBisofullnewholeSalc nfo ream.uT e fl,SHs-F f rametpuNish1(fh first MwSeEpeLouLnea ?/s, Init2u2-z-fletr rea -F tunwiutwquEramel-F opeSsrc =Leo ream.uT e fl2->u1 nvSTREn -FeSbeliutunpby _on HSSe->cmpSEnlc nfo ream.uT e , must _tsubGaeast 0.1bgM_cow-n n availnat rea -F 2ibympSEes. IfhS 2->u1 x?/s, I -FeSbeliutlyuus _on HSSe->cERsc toAtLne uT e fTT ne fRseerem I_sIZ_OK ifGtuccEsH,lZ_MEM_ERROR Tsthe *%was _ts=enough memory, Z_STREAMROR Tsn prowas _ts=enough meiio-ne output bXer m.uT e ,moryAM_ERROR TsaIRSMpc =LlarametpuoRpecifs, lsuATfTXTERN int ZEXPORT S ?/s,SERscdeoutfccre*de->c n gIUMSER>c n -F ByeefI*de->c tr rea,IUMSERetr rea -F All dyDERs{soasomuAmpSEtr reamBisofullnewholeSalc nfo ream.uT e fletr rea -F tunednwiutwquEll-F opeSsrc =Leo ream.uT e fl2->u1 nvSTREn -FeSbeliutunpbyges _on HSSe->c nlc nfo ream.uT e , must _tsubGaeaenough -oRholdsauTMerrlrk[G%GtuhrmpSERscdedata may h p;_ttofheheSlf-umpSERscdedata may havsubGetoheSS pS t byoousScumpSlodicumpSERsorpanduh2->uitransmittereSfirst>SERsnlIRSM(partib el+y, d.)oismt bXeigS Mttofcopene flf->cRsc tobr>ryor 2ttaA.Ttys 2->u1 x?/s, I -FeSbeliutlyuus _on HSSe->cERsc toAtLne uT e fTll dylf->c ton b>be=ustfulNwhumpSESERseentrytaSSe->c std bi mh>ceuo s reamfi]pene mmap'ed),>nlofTTll dySERscdeoutfsIZ_OK ifGtuccEsH,lZ_MEM_ERROR Tsthe *%was _ts hhenough memory,IZ_STREAMROR Tsn prowas _ts=enough meiio-ne output bXer cod /uT e _STREAMRROR TsereSinput;dataRwas .mhrptpdo(inpuiEXTER MItruupTlf*al gzF mm;ERN int ZEgzF mmRT S ?/s,gzopentruupTOKENe,IZEXPOpath,TOKENe,IZEXPOed,p SetsoeOof md =lgz)_f Tm tI mmRamplpIUM ehb+s=-eai]psfl,SHsed,petpuon RDohoulw>2a ?/s,fopent("rb"b+s="wb")ebRfvnustuCoo(n lunistaERsc tothod >nth_t e p;"wb9"ne o a _ma/las.: 'f'ut *cd Sata bunRica ?/s,"wb6f", 'h'nisone vn budingIsubRRsc toapt(aea ?/s,"wb1h"Iex+eSHcumpSEd bepfh64u Tses, InituDOS n2ut *nput;2-c topurpupt Leflushrgy>parametpuNotlrn S ?/s,gzopent=ustfulNwhumpSEafG. atI mmRmust _i nltall =lgz)_c topu; i u Tserell pegzafG. {othsdiRs olyEafG. reSzbit_hI mmRmfprodutSERsc t.uT e f S ?/s,gzopentsIZ_OK iTsthe *%nthhI mmRc Tm llybGaeaopenifIUMra-owas _ts=ebunRici buici nvfuusagi.o-s, _ereS1(tern(,p Rsc too loe.uT e ;oEelssges =ustfulum),IhumpSES>nlInguisSH?nf garill ps (ugh elssrosxftcomatpp rcf Tm tEeli, is_ERROR Tsth)( =SHHRN int ZEgzF mmRT S ?/s,gzdopentruupTTdLned,TOKENe,IZEXPOed,p Setsoegzdopen() /oboci.oS1(aEgzF mmRreSSH?nf I mmRSEd bepf *cdtcoed cmpSEnlc bepf fsRf obta DhlereSzbofhzal eo>aopen,_duc,TOafG/s,pipenereldH)el-Fo(tera?nf I mmRtohprodutedScumpSlodopenifIreSSHfopen)u C,SHsed,petpuon RDolw>2a ?/s,gzopenfTll dylf_*oA-zof.S ?/s,gzclomemorg_do 8toby zalgzF mmRresdneCoo(clomemtfieldH)emmRSEd bepf *cd, ju ly eo> fclome(fdopen(fSTREed,p (clomesa?nf I mmmpSEnlc bepf *cdtcIwar+ L%f TmpSEkeepefdaopen,_u pegzdopen(duc(fSTREed,p .SetsoegzdopentsIZ_OK iTsthe *%nth inbunRici buici nvfuusagi.o-s, _ereS1nednwiut(,p Rsc too loe.uT e fTXTERN int ZEXPORT S ?/s,gzsetp# =SH_ccregzF mmRI mmaelf= -F f ,,lf= gy -F f All dyDallyuallo-sIenx+_ompSERsc tothod >must blcstia/las.e +eSHcumpSEd bepfh64u Tses, InituDOS n2ut *-zowmeLouLne Sde-eeetpuon RDos.Setsoegzsetp# =SH_sIZ_OK ifGtuccEsH,lnloZ_STREAM_ERROR TsaIRSMpc =LI mmRm hhenoughopenifIf+s=-eai]psfTXTERN int ZEXPORT S ?/s,soegzafG. _ccregzF mmRI mmaelf*al /uTlhers toa bl-F All dyRfG.snput;byeeesaofibyeesuSERscdeoutputequEs reSzbit_hRscdeoutputI mmf -ne first>fi]pene mmas=enoughl =lgz)_c topu,egzafG. ou>blsnput;byeeesaofibyu Tses,equEs lnewholeS uT e fTll dygzafG. sIZ_OK ix+_*oofibyeesuSERscdeoutputequEs lyuus tobafG. (0nisone vsereSSeI mmae-1xampleeli,)( XTERN int ZEXPORT S ?/s,soegz-eaie_ccregzF mmRI mmae S ?OKENe,lf*al /uTlhers toa bl-F All dyWeaiesnput;byeeesaofibyeesuSERscdeoutputequEs lnewholeSRscdeoutputI mmf -negz-eaie_sIZ_OK ix+_*oofibyeesuSERscdeoutputequEs lyuus tob-eaitifsitu(0niN#lemhrsupeeli,)(TXTERN int ZEXPORT S ?/sVA-negzprXPOf_ccregzF mmRI mmaeOKENe,IZEXPOc topu,e... All dyRsnverT exaopus,riti]peaiesnput;nou LewholeSRscdeoutputI mmuSEdcumpSERste-sleSflushrpnloi ms mos+,2a ?/s,fprXPOf.egzprXPOf_sIZ_OK ix+_*oofibyees uSERscdeoutputequEs lyuus tob-eaitifu(0niN#lemhrsupeeli,)(TXTERN int ZEXPORT S ?/segzpbXe_ccregzF mmRI mmaeOKENe,IZEXPOs All dyyWeaiesnput;byeeesaoll-t h Data o_maDATiewholeSRscdeoutputI mm,t whuni eheSzbit_ht h DatDATiTsthetco dier fTll dyegzpbXe_sIZ_OK ix+_*oofibyeesutco dier sb-eaitif_STRE-1xiN#lemhrsupeeli,(TXTERN int ZEIZEXPORT zbitVegzgeXe_ccregzF mmRI mmaeOZEXPO/uTlhlf= -FF All dyyRfG.snequEs reSzbit_hRscdeoutputI mmSituh2--FF-1xtco dier sbRf afG.lhmessagsin,wlit_vtco dier *i sohfo*->uitranso TdereSfi/uTlhcod {. nd-of-I mmmpSEOKEdi b>beal Lcoed /s, u. C,SHsti%put;n ix+_n t h Data o{onyraln(xvailetco dier fTll dyegzgeXe_sIZ_OK i/uTlhcodp Tsthe N#lemhrsupeeli,(TXTERN int ZEXPORT S ?/s,soegzpbXc_ccregzF mmRI mmaelf= c All dyyWeaiesncaeOKEverTereSfianhers toa btco , lnewholeSRscdeoutputI mmf -negzpbXc_sIZ_OK ix+_*-o=SHtpcod {asb-eaitif_STRE-1xiN#lemhrsupeeli,(TXTERN int ZEXPORT S ?/s,soegzgeXc_ccregzF mmRI mm All dyyRfG.sn.-n?/ste reSzbit_hRscdeoutputI mmfegzgeXc_sIZ_OK ix+istwquErameTRE-1xiN#lemhrsupeereSSeI mm mpleeli,(TXTERN int ZEXPORT S ?/s,soegzparameccregzF mmRI mmaelf= -F op -n?/s,i]pema data og output ieeflusnewholeSRscdeoutputI mmfC,SHstpuon RDohoulnthRet -oa ?/s,cumpSE) h2->ui n. All otTdo 8toby %ne 15pifIit_f Tm ne vseli, oofibyen?/s, ton b>begzseli, , -n?/.egzparamesIZ_OK ifGtuccEeSzbit_hparametpuNothe ;is_ER 2-z-more otput produtce=iio-net;navainTll dygzohoul>>be=Ret -oon Himihtohflushrti%p olyEyor (era1(ttere * Rmakp mpSEnlcumpSERsc to. T;d(TXTERN int ZEz_off_ORT S ?/s,soegz?/skeccregzF mmRI mma S ?/s,z_off_OR n Tm aelf= lushop All dyyreSSHstin]peatIenxve=lrk;d= = ctf_*oA-zogzafG. = cgz-eaie_ o ream;byeeesRscdeoutputI mmfC,SHs n Tm lre>idernenfsinofibyeesuequEs ln o ream;SERscdedata may ha. f i-zowBushopetpuNothe ;is_ (las.za ?/s,l?/sk(2 Szbit_hne 15pSEEKTs-ne Rethapp toinut nTll dyIMpc =LI mmRrn. penifIf+s=pIUM eh flf->c tomust bal Lmulata obRfvnustdnk[G%G%t>>yAlyEsle-neIMpc =LI mmRrn. penifIf+s=-eai]ps,. T;inf T-ne ?/sksbRf ges _ toinut ;egz?/skex+_n Rs{soasomuAT _is)_tnallo-etcoeoed iewholeSn,wges _maatIenxve=lrk;dAR S ?/s,gz?/skesIZ_OK ix+_*>nbRfvuLne Tm l t flf->cT oueanataittpuoquEs reSznednwiutweginouLne Sde-;SERscdedata m,N-n?/s,TRE-1xiN#lemhrsupeeli,,HS ?/s,ubgM IIavaRSMpc =LI mmRrn. penifIf+s=-eai]psreScumpSEoAwr_maatIenxve=lrk;d?/s,we=Ret -o Lne oall.)H imp enve=lrk;dARXTERN int ZEXPORT S ?/s,soegzaf>p;__ccregzF mmRI mm All dyRf>p;_snput;byeeesI mmfC,S->c tomust bal a toinut n T;inf TmpIUM ehAR S ?gzaf>p;_(I mm eal Lou+ Loubelf=sTTdL)gz?/sk(I mmae0L,pSEEKTSET)TXTERN int ZEz_off_ORT S ?/s,soegzteputccregzF mmRI mm All dyRfZ_OK ix+_*]peatIenxve=lrk;d= = ctf_*oA-zogzafG. = cgz-eaie_ o ream;byeeesRscdeoutputI mmfC,Ssiesoolrk;d=re>idernenfsinofibyeesuequEs ln o ream;SERscdedata may ha. f R S ?gztepu(I mm eal Lou+ Loubelf=sgz?/sk(I mmae0L,pSEEKTCURoZEXTEN int ZEXPORT S ?/s,gzsof_ccregzF mmRI mm All dyRfZ_OK i1flushrEOFRtohpusScumpSlodimage theclrnDpIUM ehbit_fbyeeereamfi]pen,N-n?/s,Tttt IIitsor iopu soN int ZEXPORT S ?/s,soegzclomemccregzF mmRI mm All dy]pema data og output ieeflusfEyor (era1,(clomesa?nf RscdeoutputI mmssagsumpSE, s-all data owiut(,p Rsc too loe.uT e ftTdo 8toby %ne 15pifIit_f Tm ne vseli, oofibyen?/s, ton b>begzseli, , -n?/.TXTERN int ZEIKENe,IZEXPORT zbitVegzseli, ccregzF mmRI mmaelf= * elsum All dyRfZ_OK ix+_*thssagi. S ?= = ctf_*l0.1bthssagmust _ocH impd_ o ream;byeeesRscdeoutputI mmfC elsumt -o=null Tm tEeli, oofiby pSERenne vseli, ocH impd_era?nf I mmRsystemgsumpoughl =mpSERsc tothod >m 2ttaA,ne vselsumt -o=null O eScumpSEalc n-must praytjeLneltoEelssges f=sgecxpenRG%die Eodf ae de opubuffca m%ne mhr ncdr ioop T e f /osec ncda c need to>uB lata otSERsc toAt beunchg_exoinut ssagsuo sttere * myOb omore oNwhtohs HNlc ns.or iooNw ehbit_mpSERsc toAt>ryor 2ttaA.TXTERN int ZEUMSEReT zbitVe2 bNTtysccreUMSERe2 bNTaeOKENe,*de->c /uTlheIf= -FF T e f Uenx+_oa runouLne2 lrk-tysum%ne qureSSH?nf equEs /uT[0..-FF-1]mduttL o8toby %de-;S A-znprum%ne q pSER/uTt -o-n?/s,lf->c tomust bsIZ_OK nednwiuted, bu,fal;_tdsb%ne 15pe cumpSERm%ne q nednAne2 lrk-tysum%ne qu -oalik ly>uB tliohfo*infsiCRCtysbRfvnustdnwed Adlermory, N{M> outipeaIS ?=epwhtoh:TTll dySMSERe2 bNT =e2 bNTty(0L,p, -n?/s,0 T ne imusfo*]pe1(_ uT e (/uT e _Sl-F op) !=rEOF) { 2 bNT =e2 bNTty(2 bNTae/uT e _Sl-F op); } sfE(2 bNT !=roriginal_2 bNT) Eodf (); XTERN int ZEUMSEReT zbitVecrctys sccreUMSERecrcaeOKENe,*de->c /uTlheIf= -FF T e f Uenx+_oa runouLnecrcureSSH?nf equEs /uT[0..-FF-1]mduto8toby %de-;S A-znpmpSERrc pSER/uTt -o-n?/s,lf->c tomust bsIZ_OK nwiuted, bu,fal;_tdsb%ne 15houln cumpSERrc pPre-rocERsk l-OKEdi b>bhiATu.-n'letp (S c nv eal m toinuai?/s,weSSe versc tomust bohoul>>be=usedo-LIby.-n?/s,mpSEalc n-must nednaIS ?=epwhtoh:TTll dySMSERecrcu=ecrcty(0L,p, -n?/s,0 T ne imusfo*]pe1(_ uT e (/uT e _Sl-F op) !=rEOF) { crcu=ecrcty(crcae/uT e _Sl-F op); } sfE(crcu!=roriginal_crc) Eodf (); XTER opubuffcavar degRtone ,by.-'t T;x :)/soZEXTE Initu2-z--n?/s, Init. ua-4nchg_macros.o-s, _ewsum%ne ehbit_f Tm ttoofher *reScumpSERsc sfor'leviAwrlo-empoccrm:0/soZN int ZEXPORT S ?/s, Init2_OF((__ccreampoccrmarel+ aelf= -F f IKENe,IZEXPOtoofher,,lf= gy crm__on N int ZEXPORT S ?/s, Init2_,"IN__ccreampoccrmarel+ a IKENe,IZEXPOtoofher,,lf= gy crm__on N int ZEXPORT S ?/s, InituDOS n2__ccreampoccrmarel+ aelf= -F f ,,lf= >, h int Iwelf= li>s, h elf= f=, h int Ic,lf= gy -F f , IKENe,IZEXPOtoofher, int Ic,lf= gy crm__on N int ZEXPORT S ?/s, Init2_,"IN2__ccreampoccrmarel+ aelf= Bi>s, h int It IKENe,IZEXPOtoofher,,lf= gy crm__on # (las, InituDOS n(el+ ae-F f \ Init2_OF((_((el+ ), (-F f , ERSION). h , _on ofeampoccrm)) # (las, Init2_,"IN(el+ ) \ Init2_,"IN_((el+ ), ERSION). h , _on ofeampoccrm)) # (las, InituDOS n2(el+ ae-F f ,>, h li>s, h ef=, h gy -F f \ Init2_OF((2_((el+ ),(-F f ,(), -n?/s(Bi>s>2-z-m ,(),, h _,\ (gy -F f , ERSION). h , _on ofeampoccrm)) # (las, Init2_,"IN2(el+ aeBi>s>2-z-m \ Init2_,"IN2_((el+ ), (Bi>s>2-z-m , ERSION). h , _on ofeampoccrm)) #sfE! (las.(_Z_UTIL_H) &&E! (las.(NO_DUMMY_DECL) //JCW e *IDaEal cumpS_ticsef{lf= dummy;};ffcatoneln cubuggyERsc sforop # outfERN int ZEIKENe,IZEXP PORT zbitVezEodf aaaaaaaaaaauupTTdLnEod N int ZEXPOR E S ?/s, Sync LouboPlas.iccreampoccrmarz N int ZEIKENe,UMSER>c RT zbitVeget_crc_tohfo*aaauupTlf*a #sfuupT__c2iby2ibym} # outfER# outfffca_ERSIOHp fcauJle-nd: ./luxTm .cp # lse #s lunist< Tm .h> # outfER#sfuupTWIN32 MItruupT__as.64 I64; # lse MItruupTlSERelSEReI64; # outfERfcaprotoZ_ASC LUARSIOAPI,lf*a luxTm _open(lua_Sicsef*L TODO:sgecxridges s sges i T e * clomelettS Kio#SH s sges i T lux),,tag lux_T_ASC-(Z_ASCoryuusagi.chunkop esumt{ lux_raw, lux_heap, lux_poc, lux_I mmR} lux_Memg- e *ray haampleaoryuohmapp MItruupTe *IDaE{ IZEXPOptr; _on _= -FF; i T MItr; unst b{ FILE* fp; i T ref; } u; } lux_Mem T lux_uohheSclSC-(Z_AS-safeeOKEverfhereSbre *ray hako ux_MemgptrH s sges ux_MemT lux_uohheSclS(lua_Sicsef*Laelf= -) { lf*a *pu=elua_toe *ray h(Laef); sfE(p,>nlTsthe||elua_tag(Laef)u!=rlux),,tagTtys elua_Eodf (Lae"wrSERet_ASC-(),, mappG%ofclrn"); 8toby %p; } T lux_umclomem-(clomemuohmap,(cleLouLneup*infsis, ly.io H s sges i T lux_umclome(lua_Sicsef*L { ux_Memg*mu=e( ux_MemT) lux_uohheSclS(Lae-1); sc nN{M(m->t_AS) { lemhrlux_heap:T-zlo(m->ptr); bccrk; lemhrlux_e *:elua_unref(Laem->u.ref); bccrk; lemhrlux_I mm: #sfE (las.(macsnewsh) bccrk; # lsfE (las.(WIN32) UnmapViAwOfF mm(m->ptr); fclome(m->u.fp); bccrk; # lse munmap(m->ptraem->-FF ; fclome(m->u.fp); bccrk; # outfE } m->t_ASu=elux_raw; m->ptrH= 0; m->-FFH= 0; 8toby %0; } T lux_newmemg- OafG/egsin,wmuohmap,(asre *ray hae *IDas in s sges ux_Mem *lux_newmem(lua_Sicsef*Laelf= taeOZEXPOp, _on _= n { ux_Memg*mu=e( ux_MemT) lua_newe *ray h(Lae_on ofe( ux_Mem)); lua_settag(Laelux),,tagT; m->t_ASu=et; m->ptrH= p; m->-FFH= n; 8toby %m;ffcaeCoo(leLvuper,wme *ray haoe.uT nel } T lux_umrawg- OafG/egsiuohmapp >pi]pawyuusagi.(d)or roe )H s sges i T lux_umpaw(lua_Sicsef*L { lf*a* ptrH= Tlf*aT) luaL_um%ne_lSER(Lae1); son _= -FFu=eluaL_um%ne_lSER(Lae2 SzTlf*a lux_newmem(Laelux_raw, ptrae-FF ; 8toby %1; } T lux_umheapg- OafG/egsiuohmapp >pi]ustuCd data ochunkCoryuusagi. s sges i T lux_umheap(lua_Sicsef*L { son _= -FFu=eluaL_um%ne_lSER(Lae1 SzTlf*a lux_newmem(Laelux_heap, muCd d(-FF ae-FF ; 8toby %1; } T lux_ume *g- OafG/egsiuohmapp >pi]u Lua _(whiATusZEXimumusagi)H s sges i T lux_um_(w(lua_Sicsef*L { son _= -FF; IZEXPOptrH= TIZEXT) luaL_um%ne_l_(w(Lae-1, &-FF ; i T refu=elua_ref(Lae1); lux_Memg*mu=elux_newmem(Laelux_poc, ptrae-FF ; m->u.refu=eref; 8toby %1; } T lux_umI mmR- OafG/egsiuohmapp >pi]u I mmaeitdn. T;lrby nwSeE s sges i T lux_umI mm(lua_Sicsef*L { IZEXPOptr; _on _= -FF; lux_Memg*m; FILE *fpu=efopen(luaL_um%ne__(whiA(Lae1)ae"rb"); sfE(fp,>nlTsth)elua_Eodf (Lae"cano>uBopentI mm"); f?/sk(Ip, 0,pSEEKTs-n); lFFu=eftepu(Ip #sfE (las.(macsnewsh) ptrH= muCd d(-FF ; f?/sk(Ip, 0,pSEEKTSET); sfE(ptT !=rTsth)efpe1((ptrae-FFae1aefp); //XXX Eodf aheScl eheSzfclome(fp ; fpu=eTsth; # lsfE (las.(WIN32) { HANDLE hu=eCafG/eF mmMsishiA((HANDLE) _get_osfheSclS(_)el-Fo(fp )a 0,pPAGE_READTreS, 0,p-FFae0); ptrH= h ? MapViAwOfF mm(h, FILE_MAP_READ, 0,p0,p-FF) :eTsth; } # lse ptrH= mmap(0,p-FFaePROT_READ, MAP_PRIVATE, )el-Fo(fp ae0); # outfE sfE(ptT >nlTsth)e{ fclome(fp ; elua_Eodf (Lae"cano>uBmapp mm"); } mu=elux_newmem(Laelux_I mmaeptrae-FF ; m->u.fpu=efp; 8toby %1; } T lux_um2-c R- 8toby %d_AS,(addrloZ_SRsessgF opeSsrc isyuohmapp s sges i T lux_um2-c (lua_Sicsef*L { ux_Memg*mu=elux_uohheSclS(Lae1); sfE(m->-FFHptr); elua_pushoofiby(Laem->-FF ; elua_pushoofiby(Laem->t_AS); 8toby %3; } T lux_umeubR- 8toby %et T-_(whiATTseremore reSzbitisyuohmapp s sges i T lux_um T(lua_Sicsef*L { ux_Memg*mu=elux_uohheSclS(Lae1); s enmu=eluaL_op-z t(Lae2ae1); s enju=eluaL_op-z t(Lae3ae-1); T o>ue:lushrpnpeflf->ce descCoo(csnverT ako 0-woubd [i..j)H s += s < 0 ? m->-FFH:e-1; sfE(j < 0)nju+= m->-FFH+ 1; T sfE(s < 0 ||ej > m->-FFH||ei > jg 8toby %0;H sfE(s < 0)nmu=e0; sfE(j >sTTdL)em->-FF nju=em->-FF; sfE(s > jg mu=ej; elua_pushl_(whiA(Laem->ptrH+ i,nju- i ; 8toby %1; } T lux_z2 bNTtys-oon culx+_ompSE2 lrk-tysum%ne ques stdn. T;lruohmapp s sges i T lux_z2 bNTty(lua_Sicsef*L { ux_Memg*mu=elux_uohheSclS(Lae1); lSEResu=eluaL_op-zlSER(Lae2,e2 bNTty(0,0,0) ; elua_pushoofiby(Lae2 bNTty(Z_S(OKENe,*de->*) m->ptraem->-FF ; 8toby %1; } T lux_zcrctys-oon culx+_ompSECRC-tysum%ne ques stdn. T;lruohmapp s sges i T lux_zcrcty(lua_Sicsef*L { ux_Memg*mu=elux_uohheSclS(Lae1); lSEResu=eluaL_op-zlSER(Lae2,ecrcty(0,0,0) ; elua_pushoofiby(Laecrcty(Z_S(OKENe,*de->*) m->ptraem->-FF ; 8toby %1; } #sfnuupTNOCOMP T lux_zcompg- maany"nu Tm tRsc tot_nc nsn stdn. T;lruohmapp s sges i T lux_zcsc (lua_Sicsef*L { TdLnEod; ampoccrm zs; *de->c /uTfer; lux_Memg*mu=elux_uohheSclS(Lae1); s enwbrame=eluaL_op-z t(Lae2ae0)n< 0 ? -MAX_WBITSH:eMAX_WBITS; s enmust b=eluaL_op-z t(Lae3aeULT_STRATECOMPRES h ); zs.in may>be=em->-FF; zs.ne2-z H= m->ptr; zs.in may (f,> m->-FFH+ m->-FFH/ 1000H+ 12; zs.ne2-z (f,> Bisoful= muCd d(zs.in may (f); zs.e2-z-zf=e0; zs.e-zlop=e0; zs.smust b=e0; Eodb=e InituDOS n2(&zsae-F f ,>ATED inon ,nwbram MAX_ROR LEVELaeULT_STRATEGY ftrnn); sfE(Eodb==ifGtu)e{ Eodb=e InituD(&zsaeER 2-z-m ; esfE(Eodb!=EAM_END Ts-n) { Enduh2->u(&zs); sfE(Eodb==ifGtu)eEodb=eAMROR Tsn ; } lse Eodb=e InituD->u(&zs); } esfE(Eodb!=EAMtu)e{ -zlo().h Itu; elua_Eodf (LaezEodf (Eod } eTlf*a lux_newmem(Laelux_heap, rs, _er(/uT e _Szs.out;byees)_Szs.out;byees); 8toby %1; } # outfE T lux_zSERsc g- maany"nu Tm tSERsc too loe.sn stdn. T;lruohmapp s sges i T lux_zSERsc (lua_Sicsef*L { TdLnEod; ampoccrm zs; *de->c /uTfer; lux_Memg*mu=elux_uohheSclS(Lae1); s enwbrame=eluaL_op-z t(Lae2ae0)n< 0 ? -MAX_WBITSH:eMAX_WBITS; s en/uT_on H=eluaL_op-z t(Lae3ae16*1024 ; ff a(;;)e{ zs.e2-z-zf=e0; zs.e-zlop=e0; zs.in may>be=em->-FFH+ 1; T +1*i soh, bu,faby Tm t zs.ne2-z H= (*de->*) m->ptr; zs.in may (f,> Bis_on ; zs.ne2-z (f,> Bisoful= muCd d(Bis_on u; eEodb=e Init2_,"IN2(&zsaewbram ; esfE(Eodb==ifGtu)e{ eEodb=e Init2_(&zsaeER 2-z-m ; e esfE(Eodb!=EAM_END Ts-n) { End=h2->u(&zs); sfE(Eodb==ifGtu)eEodb=eAMROR Tsn ; } lse Eodb=e Init2_->u(&zs); } esfE(Eodb==ifGtu)ebccrk; -zlo().h Itu; esfE(Eodb!=EAMROR Tsn )elua_Eodf (LaezEodf (Eod n/uT_on H*= 2 } eTlf*a lux_newmem(Laelux_heap, rs, _er(/uT e _Szs.out;byees)_Szs.out;byees); 8toby %1; } T logualllc naoio-nsREed,pain g ?/s,braTm tby ReubFFHThomaop # (las,LCN(a) ((I64) luaL_um%ne_oofiby(Laa)) s sges i T lux_ied,(lua_Sicsef*L { ua_pushoofiby(Lae(doubmm e(LCN(1) %,LCN(2) ; 8toby %1; } s sges i T lux_beSc(lua_Sicsef*L { ua_pushoofiby(Lae(doubmm e(LCN(1) &,LCN(2) ; 8toby %1; } s sges i T lux_bow(lua_Sicsef*L { ua_pushoofiby(Lae(doubmm e(LCN(1) |,LCN(2) ; 8toby %1; } s sges i T lux_bxow(lua_Sicsef*L { ua_pushoofiby(Lae(doubmm e(LCN(1) ^,LCN(2) ; 8toby %1; } s sges i T lux_lshift(lua_Sicsef*L { T itisyc naoio-nif.e jre * rr,=sofupeeli,st ua_pushoofiby(Lae(doubmm e(LCN(1) << luaL_um%ne_ t(Lae2) ; 8toby %1; } s sges i T lux_rshift(lua_Sicsef*L { T H,leres reSzbbraTm !t ua_pushoofiby(Lae(doubmm e(LCN(1) >> luaL_um%ne_ t(Lae2) ; 8toby %1; } #unuupTLCNE T lux_luxTm verfg- gecxetnx+_*r 2ttaAn/uil may opaquiverfhereoofibye s sges i T lux_luxTm verf(lua_Sicsef*L { ua_push_(whiA(Lae_MRROE__ ; elua_pushoofiby(Lae11 ; 8toby %2; } T luxTm t-c ncda c ne (las.ze versc e2-enfhere s sges e *IDaEluaL_reg luxTm []b=e{ {"umpaw", lux_umpaw}, {"umheap", lux_umheap}, {"ume *", lux_ume *}, {"um mm", lux_um mm}, {"umclome", lux_umclome}, {"um2-c ", lux_um2-c }, {"umeub", lux_umeub}, {"z2 bNTty", lux_z2 bNTty}, {"zcrcty", lux_zcrcty}, #sfnuupTNOCOMP {"zcsc ", lux_zcsc }, # outfE {"zSERsc ", lux_zSERsc }, {"ied,", lux_ied,}, {"beSc", lux_beSc}, {"bo*", lux_bo*}, {"bxo*", lux_bxo*}, {"lshift", lux_lshift}, {"rshift", lux_rshift}, {"luxTm verf", lux_luxTm verf}, } luxTm _openC-(ZSHs nopaquisnftowables nvSTetlas.i lf*a luxTm _open(lua_Sicsef*L { ux),,tagu=elua_newtag(L ; elua_pushc ncda c (Laelux_umclome); lua_settag), -n?(Laelux),,tag, "gc"); luaL_openl(LaeluxTm ); } T uJle-nd: mluxsys.cp #sfnuupTWIN32 /*#s lunist"lposTm .c" # outfE#sfnuupTWIN32 # (las,DLFCNE# outfE#sfnuupTNODYNE T s lunis:icalTm .cp T S toinuata prallyua loUM ehb+f Lua e2-enfhers *r17/02/2001 jcw@h, b4.cSznesoZE#sfE (las. (macsnewsh) # (las,qMac 1 # lsfE (las. (WIN32) # (las,qWe v 1 # lsfE (las. (unix)H||e (las. (__unix__ H||e (las. (__GNUC__ # (las,qUnix 1 # outfER#sf,qMac #s lunist # lsfEqWe # (las,WIN32 LEAN_AND_ROAN #s lunists>2s.h> # lsfEqUnix #s lunist # outfERs sges i T ralopen(lua_Sicsef*L { lf*a* hp=e0; IKENe,IZEXPOnwSeE=eluaL_um%ne__(whiA(Lae1);R#sf,qMac CFragConneda c ID IKE ID; FSStdnp mmStdn; OSEodnEod; Str255nEodNwSe; Str255npackageNwSe; Ptr dummy; T MacOS:t /*Eodb=ePBMakeFSStdnoubo(HParmBlkPtr tpuNoBr io); T Tcl:t /*Eodb=eFSpLt flf->FeSzPath(el+-FF(nwSe)_SnwSe, & mmStdn); T Metrowerks:t Eodb=e__path2fss(nwSe, & mmStdn); esfE(Eodb!=EnoEod) 8toby %0; ec2p_(w(_(wcpy(TIZEXT) packageNwSe_SnwSe ; Eodb=eGc nyskFrag),nt(& mmStdn, 0,p0,ppackageNwSe_ kLoUMCFrag, &IKE ID, &dummy,nEodNwSe); esfE(Eodb!=EnoEod)e{ lua_pushoil(L ; e elua_pushoofiby(LaeEod ; e elua_push_(whiA(Laep2c_(w(EodNwSe) ; e e8toby %3; } ehp=eIKE ID; # lsfEqWe hp=eLoUML 2ttaA(nwSe); T hp=eLoUML 2ttaAEx(nwSe, 0,pLOAD_WITH_A is -o_SEARCH_PATm ;H sfE(hb==i0)e{ lua_pushoil(L ; e elua_pushoofiby(LaeGc LastEodf () ; e e8toby %2; } # lsfEqUnix hp=edlopen(nwSe, RTLD_NOW |,RTLD_GLOBAL); esfE(hb==i0)e{ lua_pushoil(L ; e elua_push_(whiA(Lae bNTdf () ; e e8toby %2; } # outfE lua_pushe *ray h(Laeh ; 8toby %1; } Rs sges i T ralon H(lua_Sicsef*L { lf*a *h, *heSclSC=elua_toe *ray h(Lae1 ; OKENe,IZEXPOsymbolE=eluaL_um%ne__(whiA(Lae2); esfE(heSclSC=nlTsth) 8toby %0; #sf,qMac CFragSymbolClaes _ymClaes; OSEodnEod; Str255nsymbolNwSe; Ptr aqui; ec2p_(w(_(wcpy(TIZEXT) symbolNwSe, symbol ; Eodb=eFi>sSymbol(heSclS, symbolNwSe, &aqui, &_ymClaes); sfE(Eodb==inoEod) hp=eaqui; # lsfEqWe hp=eGc PquiAddrloZ((HINSTANCE) heSclS, symbol); # lsfEqUnix hp=edlsym(heSclS, symbol); # outfE sfE(hb==i0) 8toby %0; e8toby %((lua_CFncda c ) h)(L ; } Rs sges i T ralolome(lua_Sicsef*L { lf*a *heSclSC=elua_toe *ray h(Lae1 ; sfE(heSclSC!nlTsth)e{ #sf,qMac ClomeConneda c (heSclS); # lsfEqWe FreeL 2ttaA((HINSTANCE) heSclS); # lsfEqUnix edlolome(heSclS); # outfE } 8toby %0; } s sges e *IDaEluaL_reg calTm []b=e{ {"ralopen", ralopen}, {"ralon H", ralon H}, {"ralolome", ralolome}, } e2-ey %nf*a calTm _open(lua_Sicsef*L nf*a calTm _open(lua_Sicsef*L { luaL_openl(LaecalTm ); } T uJle-nd: mluxsys.cp # outfE# outfERe2-ey %lua_Sicsef*luxsys_open( lua_Sicsef*luxsys_open( { ua_Sicse* LC=elua_open(0);R#sfnuupTMINIMAL ua_woubTm open(L ; elua_ioTm open(L ; elua_el+-m open(L ; elua_math-m open(L ; elua_db-m open(L ; e/* ua_wraTm open(L ; /*lua_e ioeaTm open(L ; luxTm _open(L);R#sfnuupTWIN32 /*lua_posTm open(L ; # outfE#sfnuupTNODYNE calTm _open(L); # outfE# outfE T s lunis:ipreloUM.cp { T wegin efibde)1(e des s sges ers toa btco B1[]b=e{ luacp 27,76,117,97,64,1,4,4,4,32,6,9,8 18,230,91,161,176,185,178,65,8 0,0,0,61,40,110,111,110,101,41 0,0,0,0,0, 0,0,0,0,0,7 0,0,0,0,0,0,0,0,0,0,0,12,0,0,0,4,0,0,0,108,117,120,0,6,0,0,0, 108,101,73,110,116,0,10,0,0,0,108,101,83,116,114,67,117,116,115,0,8,0,0, 0,122,105,112,105,116,101,109,0,8,0,0,0,122,105,112,115,99,97,110,0,8,0, 0,0,90,105,112,79,112,101,110,0,9,0,0,0,90,105,112,70,101,116,99,104,0,8, 0,0,0,90,105,112,66,111,111,116,0,11,0,0,0,108,117,120,108,105,98,118,101, 114,115,0,9,0,0,0,95,86,69,82,83,73,79,78,0,13,0,0,0,32,45,32,108,117,120, 108,105,98,32,48,46,0,3,0,0,0,44,32,0,0,0,0,0,7 0,0,0,8 0,0,0,61,40,110, 111,110,101,41 0,7 0,0,0,1 0,0,0,0,9,0,0,0,0,0,0,0,0,0,0,0,2,0,0,0,7 0,0, 0,115,116,114,108,101,110,0,8,0,0,0,115,116,114,98,121,116,101,0,0,0,0,0, 0,0,0,0,20,0,0,0,198,255,255,127,12,0,0,0,11,0,0,0,66,0,1 0,6,0,0,128,134, 255,255,127,108,2,0,128,75,0,0,0,198,63,0,128,26,0,0,0,76,0,0,0,11,0,0,0, 139,0,0,0,66,0,3,0,23,0,0,0,82,0,0,0,109,253,255,127,75,0,0,0,129,0,0,0, 0,0,0,0,8 0,0,0,61,40,110,111,110,101,41 0,13,0,0,0,1,0,0,0,1,16,0,0,0,0, 0,0,0,0,0,0,0,5,0,0,0,5,0,0,0,103,101,116,110,0,8,0,0,0,116,105,110,115, 101,114,116,0,4,0,0,0,108,117,120,0,6,0,0,0,108,101,73,110,116,0,7,0,0,0, 115,116,114,115,117,98,0,0,0,0,0,0,0,0,0,32,0,0,0,6,0,0,128,17,0,0,0,6,0, 0,128,12,0,0,0,75,0,0,0,66,128,2,0,6,0,0,128,44,5,0,128,76,0,0,0,203,0,0, 0,140,0,0,0,206,0,0,0,12,1,0,0,11,0,0,0,139,0,0,0,139,0,0,0,75,0,0,0,15, 1,0,0,23,0,0,0,152,255,255,127,194,63,5,0,194,191,4,0,2,128,3,0,139,0,0, 0,75,0,0,0,15,1,0,0,23,0,0,0,146,0,0,0,173,250,255,127,203,0,0,0,1,1,0,0, 0,0,0,0,8 0,0,0,61,40,110,111,110,101,41 0,22,0,0,0,2,0,0,0,0,21,0,0,0,0, 0,0,0,0,0,0,0,9,0,0,0,4,0,0,0,108,117,120,0,10,0,0,0,108,101,83,116,114, 67,117,116,115,0,6,0,0,0,109,109,115,117,98,0,4,0,0,0,99,115,122,0,3,0,0, 0,115,122,0,4,0,0,0,105,110,111,0,5,0,0,0,110,97,109,101,0,4,0,0,0,111,102, 102,0,4,0,0,0,100,97,116,0,0,0,0,0,0,0,0,0,93,0,0,0,12,0,0,0,78,0,0,0,140, 0,0,0,11,0,0,0,75,0,0,0,75,0,0,0,24,11,0,128,66,128,1,0,198,0,0,128,70,0, 0,128,70,0,0,128,70,0,0,128,70,0,0,128,70,0,0,128,70,0,0,128,198,0,0,128, 198,0,0,128,198,0,0,128,70,0,0,128,70,0,0,128,70,0,0,128,70,0,0,128,70,0, 0,128,198,0,0,128,198,0,0,128,66,0,1 0,209,0,0,0,199,0,0,0,139,0,0,0,6,2, 0,128,13,0,0,0,7,1,0,0,139,0,0,0,70,2,0,128,13,0,0,0,71,1,0,0,139,0,0,0, 6,4,0,128,13,0,0,0,214,0,0,0,203,0,0,0,135,1,0,0,140,0,0,0,11,0,0,0,75,0, 0,0,88,11,0,128,75,0,0,0,24,11,0,128,139,0,0,0,134,2,0,128,13,0,0,0,23,0, 0,0,66,0,3,0,212,128,1,0,203,0,0,0,199,1,0,0,75,0,0,0,88,11,0,128,139,0, 0,0,134,2,0,128,13,0,0,0,23,0,0,0,139,0,0,0,198,2,0,128,13,0,0,0,23,0,0, 0,139,0,0,0,6,3,0,128,13,0,0,0,23,0,0,0,212,128,1,0,203,0,0,0,7,2,0,0,203, 0,0,0,78,1,0,0,88,11,0,128,139,0,0,0,134,2,0,128,13,0,0,0,23,0,0,0,139,0, 0,0,198,2,0,128,13,0,0,0,23,0,0,0,139,0,0,0,6,3,0,128,13,0,0,0,23,0,0,0, 216,253,255,127,212,128,1,0,203,0,0,0,1,1,0,0,0,0,0,0,8 0,0,0,61,40,110, 111,110,101,41 0,32,0,0,0,2,0,0,0,0,15,0,0,0,0,0,0,0,0,0,0,0,7,0,0,0,7,0, 0,0,109,109,105,110,102,111,0,4,0,0,0,108,117,120,0,10,0,0,0,108,101,83, 116,114,67,117,116,115,0,6,0,0,0,109,109,115,117,98,0,8,0,0,0,122,105,112, 105,116,101,109,0,5,0,0,0,110,97,109,101,0,4,0,0,0,111,102,102,0,1,0,0,0, 0,0,0,64,45,21,152,65,0,0,0,0,72,0,0,0,12,0,0,0,11,0,0,0,130,0,1,0,75,0, 0,0,102,0,0,128,203,0,0,0,82,0,0,0,75,0,0,0,70,5,0,128,37,0,0,128,1,1,0, 0,76,0,0,0,142,0,0,0,204,0,0,0,11,0,0,0,75,0,0,0,152,250,255,127,75,0,0, 0,66,128,2,0,198,0,0,128,70,0,0,128,70,0,0,128,70,0,0,128,70,0,0,128,198, 0,0,128,198,0,0,128,70,0,0,128,66,0,2,0,11,1,0,0,6,0,0,128,13,0,0,0,8,0, 0,0,33,0,0,128,65,1,0,0,75,0,0,0,152,250,255,127,11,1,0,0,70,1,0,128,13, 0,0,0,25,0,0,0,75,1,0,0,11,1,0,0,134,1,0,128,13,0,0,0,25,0,0,0,17,0,0,0, 6,0,0,128,11,1,0,0,198,0,0,128,13,0,0,0,6,0,0,128,172,3,0,128,76,0,0,0,14, 1,0,0,11,0,0,0,75,1,0,0,66,128,5,0,203,1,0,0,203,2,0,0,78,1,0,0,75,1,0,0, 212,128,1,0,203,2,0,0,142,1,0,0,82,1,0,0,69,0,0,0,45,252,255,127,203,1,0, 0,139,1,0,0,152,255,255,127,1,2,0,0,0,0,0,0,8,0,0,0,61,40,110,111,110,101, 41 0,50,0,0,0,1,0,0,0,0,11,0,0,0,0,0,0,0,0,0,0,0,6,0,0,0,7,0,0,0,109,109, 102,105,108,101,0,4,0,0,0,108,117,120,0,8,0,0,0,122,105,112,115,99,97,110, 0,4,0,0,0,109,97,112,0,4,0,0,0,116,111,99,0,5,0,0,0,98,97,115,101,0,0,0, 0,0,0,0,0,0,19,0,0,0,12,0,0,0,11,0,0,0,66,128,0,0,76,0,0,0,142,0,0,0,75, 0,0,0,130,0,1,0,139,0,0,0,39,2,0,128,209,0,0,0,199,0,0,0,75,0,0,0,7,1,0, 0,139,0,0,0,71,1,0,0,203,0,0,0,214,0,0,0,1,1,0,0,0,0,0,0,8 0,0,0,61,40,110, 111,110,101,41 0,56,0,0,0,2,0,0,0,0,10,0,0,0,0,0,0,0,0,0,0,0,11,0,0,0,4, 0,0,0,116,111,99,0,4,0,0,0,108,117,120,0,8,0,0,0,122,105,112,105,116,101, 109,0,4,0,0,0,109,97,112,0,6,0,0,0,109,109,115,117,98,0,5,0,0,0,98,97,115, 101,0,4,0,0,0,100,97,116,0,4,0,0,0,99,115,122,0,3,0,0,0,115,122,0,8,0,0, 0,122,100,101,99,111,109,112,0,6,0,0,0,109,109,115,116,114,0,0,0,0,0,0,0, 0,0,50,0,0,0,11,0,0,0,14,0,0,0,79,0,0,0,38,0,0,128,129,0,0,0,76,0,0,0,142, 0,0,0,11,0,0,0,206,0,0,0,11,0,0,0,14,0,0,0,79,0,0,0,66,0,1 0,12,1,0,0,11, 0,0,0,206,0,0,0,11,0,0,0,78,1,0,0,139,0,0,0,142,1,0,0,23,0,0,0,24,0,0,128, 11,0,0,0,78,1,0,0,139,0,0,0,142,1,0,0,23,0,0,0,139,0,0,0,206,1,0,0,23,0, 0,0,66,128,1,0,139,0,0,0,206,1,0,0,139,0,0,0,14,2,0,0,161,2,0,128,12,1,0, 0,76,2,0,0,140,2,0,0,203,0,0,0,66,0,3,0,134,255,255,127,139,0,0,0,14,2,0, 0,194,191,2,0,66,0,2,0,210,0,0,0,203,0,0,0,1,1,0,0,0,0,0,0,8 0,0,0,61,40, 110,111,110,101,41 0,65,0,0,0,1,0,0,0,0,6,0,0,0,0,0,0,0,0,0,0,0,7,0,0,0, 4,0,0,0,108,117,120,0,4,0,0,0,122,105,112,0,8 0,0,0,90,105,112,79,112,101, 110,0,9,0,0,0,90,105,112,70,101,116,99,104,0,9,0,0,0,98,111,111,116,46,108, 117,120,0,9,0,0,0,100,111,115,116,114,105,110,103,0,10,0,0,0,47,98,111,111, 116,46,108,117,120,0,0,0,0,0,0,0,0,0,26,0,0,0,12,0,0,0,71,0,0,0,12,0,0,0, 142,0,0,0,11,0,0,0,66,128,1,0,212,128,1,0,12,0,0,0,78,0,0,0,167,3,0,128, 12,0,0,0,206,0,0,0,12,0,0,0,78,0,0,0,7,1,0,0,66,128,0,0,75,0,0,0,103,1,0, 128,76,1,0,0,75,0,0,0,11,0,0,0,135,1,0,0,157,0,0,0,131,0,1,0,69,0,0,0,0, 0,0,0,43,0,0,0,17,0,0,0,19,0,0,0,12,0,0,0,71,0,0,0,48,0,0,0,212,128,1,0, 12,0,0,0,135,0,0,0,48,128,0,0,212,128,1,0,12,0,0,0,199,0,0,0,48,0,1,0,212, 128,1,0,12,0,0,0,7,1,0,0,48,128,1,0,212,128,1,0,12,0,0,0,71,1,0,0,48,0,2, 0,212,128,1,0,12,0,0,0,135,1,0,0,48,128,2,0,212,128,1,0,12,0,0,0,199,1,0, 0,48,0,3,0,212,128,1,0,12,2,0,0,103,2,0,128,12,2,0,0,130,0,0,0,76,2,0,0, 135,2,0,0,75,0,0,0,199,2,0,0,11,0,0,0,93,1,0,0,83,2,0,0,133,0,0,0,0,0,0, 0,R} elua_do uT e (L,TOKENe,IZEX*)B1,2448,"luac"); } eereSSeefibde)1(e des T uJle-nd: mluxsys.cp 8toby %L; } lux-0.1/tclux.c0100644000076400001440000000721707241343572012212 0u]pea jcwu]ers T Lux*infsiTcl e2-enfhere #s lunist"luxsys.h" # (las,USE_TCL_STUBS 1 #s lunist TODO:sgecxridges s sges i T e * clomelettS Kio#SH s sges i T tcluxtag s sges i T TcluxCallback(lua_Sicsef*L { Tcl_Obj *listC=elua_toe *ray h(Lae-2); eTcl_Il cup* ipu=elua_toe *ray h(Lae-1); s enm, Fu=elua_gettop(L -e2aerefme=e0aerefvec[10]; sfE(listC=nlTsthe||elua_tag(Lae-2)C!nltcluxtagH||eipC=nlTsth) lua_Eodf (Lae"TcluxCallbackto>uBon HimireSSHs, ler;nou "); listC=eTcl_Duc n-mueObj(list); eTcl_IlcrRefCed /(list); eff a(mu=e1; s <= n; ++i)e{ Tcl_Obj elem; esfE(lua_isoil(L, i))e{ eElemC=eTcl_NewObj(); } lseesfE(lua_isoofiby(Laei))e{ edoubmm du=elua_tooofiby(Laei); lSERelu=e( SER) d; eElemC=elC=nld ?eTcl_NewMSERObj(l) :eTcl_NewDoubmmObj(d); } lseesfE(lua_is_(whiA(Laei))e{ elf= -FFu=elua_el+-FF(Laei); OKENe,IZEX* ptrH= lua_to_(whiA(Laei); eElemC=eTcl_New*de-ArrayObj((ers toa btco T) ptrae-FF ; } lsee{ elua_pushne 15(Laei); erefvec[refm]u=elua_ref(Lae0); eElemC=eTcl_NewIl Obj(refvec[refm++]); } eTcl_ListObjApg ouES c nv(ip, li Elem); } esC=eTcl_Ene ObjEx(ip, li TCL_EVAL_DIRECT); musfo*]--refme>=i0) lua_unref(Laerefvec[refm]); eTcl_DecrRefCed /(list); esfE(s !nlTCL_OK) lua_Eodf (LaeTcl_GetS(whiARnbRfv(ip ; 8toby %0; } Rs sges i T TcluxCmd(Cli nvDy hacd_,eTcl_Il cup* ip_aelf= oc_,eTcl_Obj CONST ov_[] { TdLnv,nm, -FF; IZEXPOptr, *fmt; doubmm d elua_Sicsef*LH= Tlf*aT) cd_; esfE(oc_ < 2)e{ Tcl_WrSERNumAou (ip_aeoc_,eov_ae"fmt ?nou L...?" ; e e8toby %TCL_ETsn ; } efmt =eTcl_GetS(whiAFeSzObj(ov_[1], &-FF ; ifE(oc_ !nl2 +p-FF) { Tcl_SetRnbRfv(ip_ae"nou oed / mismatch" TCL_STATIC ; e e8toby %TCL_ETsn ; } eff a(mu=e2; *fmt; ++i) e esc nN{M(*fmt++)e{ elemhr'i': sfE(Tcl_GetIl FeSzObj(ip_aeov_[i], &v) !nlTCL_OK) e8toby %TCL_ETsn ; lua_pushoofiby(Laev); bccrk; elemhr'd': sfE(Tcl_GetDoubmmFeSzObj(ip_aeov_[i], &d) !nlTCL_OK) e8toby %TCL_ETsn ; lua_pushoofiby(Laed); bccrk; elemhr'r': sfE(Tcl_GetIl FeSzObj(ip_aeov_[i], &v) !nlTCL_OK) e8toby %TCL_ETsn ; sfE(lua_getref(Laev) ==i0) lua_pushoil(L ; bccrk; elemhr'b': ptrH= Tlf*aT) Tcl_Get*de-ArrayFeSzObj(ov_[i], &-FF ; lua_pushl_(whiA(Laeptrae-FF ; bccrk; elemhr's': ptrH= Tcl_GetS(whiAFeSzObj(ov_[i], &-FF ; lua_pushl_(whiA(Laeptrae-FF ; bccrk; elemhr'g': ptrH= Tcl_GetS(whiAFeSzObj(ov_[i], Tsth); lua_getglobal(Laeptr ; bccrk; elemhr'p': lua_pushe *ray h(Laeov_[i] ; bccrk; elemhr'c': sfE(Tcl_ListObjLgF op(ip_aeov_[i], &v) !nlTCL_OK) e8toby %TCL_ETsn ; lua_pushe *rtag(Laeov_[i], tcluxtag); lua_pushe *ray h(Laeip_); lua_pushcclomele(LaeTcluxCallbackae2); Tcl_IlcrRefCed /(ov_[i] ; bccrk; e (aRfv: Tcl_SetRnbRfv(ip_ae"unknownrpnloi mstdn. T;r" TCL_STATIC ; 8toby %TCL_ETsn ; } evu=elua_on H(Laeoc_ -e3ae0); sfE(v !nl0) { Tcl_SetObjRnbRfv(ip_aeTcl_NewIl Obj(v) ; e e8toby %TCL_ETsn ; } e8toby %TCL_OK; } Rs sges lf*a TcluxDelPqui(Cli nvDy hacd_ { ua_olome(Tlf*aT) cd_ ; } Rs sges i T TcluxDecref(lua_Sicsef*L { Tcl_Obj *pu=elua_toe *ray h(Lae-1); sfE(p,>nlTsthe||elua_tag(Lae-1)C!nltcluxtag) lua_Eodf (Lae"bG. ota owo TcluxDecref"); eTcl_DecrRefCed /(p ; 8toby %0; } RDLL S ?/s, ST Tclux_,"IN(Tcl_Il cup* ip_ { ua_Sicsef*L;R#sfuupTTcl_CafG/eCommduttL sfE(!Tcl_IlitS(ub (ip_ae"8.1"ae0))e8toby %TCL_ETsn ; # outfE LC=eluxsys_open( L sfE(L >nlTsth)e8toby %TCL_ETsn ; tcluxtagH=elua_newtag(L ; elua_pushc ncda c (LaeTcluxDecref); lua_settag), -n?(Laetcluxtag, "gc"); Tcl_CafG/eObjCommdut(ip_ae"tclux"aeTcluxCmd, Tlf*aT) LaeTcluxDelPqui ; 8toby %Tcl_PkgPquvide(ip_ae"tclux"ae"0.1"); } lux-0.1/run.lua0100755000076400001440000000041007244346404012205 0u]pea jcwu]ers#!/usr/bin/envelux -- Sicndal nop]peatup _is)_tna -- 02/02/2001 jcw@h, b4.cSzn sfEyoT lux.ZipBoot(nouv0) x+_n L sfEnouvore otouv[1] x+_n L otouv1=t>>yove(nouv,1) esfEyoT lux.ZipBoot(nouv1) x+_n L o doI mm(nouv1) L oeuttL lse prXPO(ON). h ) L eutteuttlux-0.1/go.pl0100755000076400001440000000016207240632632011641 0u]pea jcwu]ers#!/usr/bin/enveperl e * perlux; perlux::eval <<'EOF'; prXPO('Hello Lux, I am Perlite') doI mm('run.lux') EOFtlux-0.1/pylux.c0100644000076400001440000000663507241347372012241 0u]pea jcwu]ers T Lux*infsiPy -nn e2-enfhere #s lunist"luxsys.h" #s lunist TODO:sgecxridges s sges ay h e * clomelettS Kio#SH s sges i T pyluxtag s sges ua_Sicsef*g_lux; # (las,L g_lux Rs sges i T PyluxCallback(lua_Sicsef*L { PyObject *tuplS, *>nbRfv; PyObject*c ncdu=elua_toe *ray h(Lae-1); s enm, Fu=elua_gettop(L -e1aerefme=e0aerefvec[10]; sfE( ncdu=nlTsthe||e!PyCallohfo_Cm%ne( ncd)) lua_Eodf (Lae"PyluxCallbackto>uBon HimireSSHs, ler;nou "); tuplSb=ePyTuplS_New(F ; ifE(tuplSb=nlTsth) lua_Eodf (Lae"cano>uBOafG/egtuplS"); eff a(mu=e1; s <= n; ++i)e{ PyObject*celem; esfE(lua_isoil(L, i))e{ eElemC=ePy_N no; ePy_INCREF(Elem); } lseesfE(lua_isoofiby(Laei))e{ edoubmm du=elua_tooofiby(Laei); lSERelu=e( SER) d; eElemC=elC=nld ?ePyInt_FeSzMSER(l) :ePyFloat_FeSzDoubmm(d); } lseesfE(lua_is_(whiA(Laei))e{ eElemC=ePyS(whiA_FeSzS(whiAAndSize(lua_to_(whiA(Laei)a lua_el+-FF(Laei) ; } lsee{ elua_pushne 15(Laei); erefvec[refm]u=elua_ref(Lae0); eElemC=ePyInt_FeSzMSER(refvec[refm++]); } ePyTuplS_SET_ITEM(tuplS, i -e1aeElem); } e>nbRfvC=ePyObject_CallObject( ncd,gtuplS); musfo*]--refme>=i0) lua_unref(Laerefvec[refm]); ePy_DECREF(tuplS); sfE(>nbRfvC==i0) lua_Eodf (Lae"callbacktfasfon"); Py_DECREF(>nbRfv ; 8toby %0; } Rs sges PyObject* Pylux_eval(PyObject *self, PyObject *nou { IKENe,IZEX* s; s enm, Fu=ePyTuplS_GET_SIZE(nou ; PyObject*cou=ePyTuplS_GetItem(nou s,0 T nsfE(n > 0 &&E(oC==i0e||e!PyS(whiA_Cm%ne(o)))e{ PyErr_BadArguc nv( ; e e8toby %0; } esfE(PyS(whiA_GET_SIZE(o)C!nlnC-(1)e{ PyErr_SetN no(PyExc_IndexEodf ; e e8toby %0; } esC=ePyS(whiA_ASM_ENING(o); eff a(mu=e1; s < n; ++i)e{ PyObject*cvu=ePyTuplS_GetItem(nou s,i); sc nN{M(*m++) { efca emhr'i':elemhr'd':elemhr's':t elemhr'v': sfE(PyInt_Cm%ne(v)) lua_pushoofiby(LaePyInt_ASMLONG(v) ; lseesfE(PyFloat_Cm%ne(v)) lua_pushoofiby(LaePyFloat_ASMDOUBLE(v) ; lseesfE(PyS(whiA_Cm%ne(v)) lua_pushl_(whiA(LaePyS(whiA_ASM_ENING(v)a e PyS(whiA_GET_SIZE(v) ; lsee{ PyErr_SetN no(PyExc_T_ASEodf ; e8toby %0; } bccrk; elemhr'r': sfE(PyInt_Cm%ne(v))e{ sfE(lua_getref(LaePyInt_ASMLONG(v) ) lua_pushoil(L ; } lsee{ PyErr_SetN no(PyExc_T_ASEodf ; e8toby %0; } bccrk; elemhr'g': sfE(PyS(whiA_Cm%ne(v)) lua_getglobal(LaePyS(whiA_ASM_ENING(v) ; lsee{ PyErr_SetN no(PyExc_T_ASEodf ; e8toby %0; } bccrk; elemhr'p': lua_pushe *rtag(Laev, LUA_ANYTAG ; bccrk; elemhr'c': sfE(!PyCallohfo_Cm%ne(v))e{ PyErr_SetN no(PyExc_T_ASEodf ; e8toby %0; } lua_pushe *rtag(Laev, pyluxtag); lua_pushcclomele(LaePyluxCallbackae1 ; Py_INCREF(v); bccrk; e (aRfv: PyErr_BadArguc nv( ; 8toby %0; } e} esC=elua_on H(Laen -e2ae0); sfE(i !nl0) { PyErr_SetN no(PyExc_RuntimeEodf ; e e8toby %0; } ePy_INCREF(Py_N no ; 8toby %Py_N no; } Rs sges i T PyluxDecref(lua_Sicsef*L { PyObject *pu=elua_toe *ray h(Lae-1); sfE(p,>nlTsthe||elua_tag(Lae-1)C!nlpyluxtag) lua_Eodf (Lae"bG. ota owo PyluxDecref"); Py_DECREF(p ; 8toby %0; } Rs sges PyM, -n?Deflpylux_), -n?s[]b=e{ {"eval"aePylux_eval, METH_VARARGS}, {0,p0,p0} } #sfuupTWIN32 __declstdn(d Hixoinu) # outfEnf*a l;_tpylux( { LC=eluxsys_open( L pyluxtagH=elua_newtag(L ; elua_pushc ncda c (LaePyluxDecref); lua_settag), -n?(Laepyluxtag, "gc"); Py_I;_tModumm("pylux",lpylux_), -n?s); } lux-0.1/epwhtohs/0040755000076400001440000000000007245123331012512 5u]pea jcwu]erslux-0.1/epwhtohs/dhl.lua0100755000076400001440000000200107244130153013754 0u]pea jcwu]ers#!/usr/bin/envelux -- Diminutive HTTPD ]erverze vLua -- Inspbu,faby "Du]pmote", writtenze vTcl by Harold Kaplan -- 07/02/2001 jcw@h, b4.cSzn sfEyoT bind x+_n L d dal h,e=ralopen('./luae ioea.so') sfEh x+_n ralon H(h,'lua_e ioeaTm open') lseeprXPO(e) eutteutt -- To ru versc e2whtoh, muke mele ./dhldocs/index.html e2isT ]peat -- ersc ]erverzast"lux dhl.lua", x+_n vSTewo fenN{Mthatp mmze vyour -- web browse _Sus ehbZSHsurl http://127.0.0.1:8080/L... c'eNe,toet! root = './dhldocs' (aRfv = 'index.html' oinu = 8080 prXPO('Speat ehb]erverzon oinua'..oinu..'aeroot:a'..root..'/') ]erver=bind('*',oinu) ncda c s no(p sfE_(w T(p,-1)=='/' x+_n p=p.. (aRfvoeuttL d dal f,e,h,b=openI mm(root..p,'rb') sfEf x+_n L oh,b='200 OK',pe1((f,'*a') olomeI mm(f)tL lse h,b='404 Nouataund','***a'..e..':a'..p oeuttL 8toby %'HTTP/1.0a'..h..'\n\n'..bteutt musfo*1 dotL d dal soo loe=accept(]erver)tL d dal line=receive(soo loe) prXPO(line) seut(soo loe,g T(line,'^%w+%s+([^%s]+)', no,1)) olome(soo loe) euttlux-0.1/epwhtohs/lsd.lua0100755000076400001440000000425307244055534014013 0u]pea jcwu]ers#!/usr/bin/envelux -- A utilitTewo listCre oextractp mms reSzbscripta odocuc nvs -- 17/02/2001 jcw@h, b4.cSzn sfEyoT mk x+_n roI mm('), akit.lua') eut --XXX ncda c sdirwalk(b,c,p,g)tL d dal r,t=b.root,b.vfstL d dal d=r.dirs[c]tL g(p,d)tL d dal s={} eff ai,vze ve[c] ro t e *rt(s,i)oeuttL sort(s) eff ai=1,getn(s) dotL L d dal k=s[i]tL L dirwalk(b,e[c][k],p..k..'/',g)tL eutteutt d dal out;bs={bytes=0,Rsc t=0,ndirs=0, mms=0} ncda c sperc nv(a,b)tL 8toby %b>1ore ot/b*100 f a0teutt ncda c sdirs sg(p,d)tL d dal t=%out;bs prXPO('\n/'..p)tL d dal f=d. mms eff ai=1,f:_on () dotL L d dal z=f[i].cSnt nvs L L d dal h=ay o('%Y/%m/%d %H:%M:%S',f[i].ay o) L L d dal s=f[i]._on L L d dal c=perc nv(s-el+-FF(z),s) prXPO(pnloi (' %10d %3d%% %s %s',s,c,h,f[i].nwSe --sfE_(w-FF(z)~=f[i]._on x+_n L o --d dal y=um T(zSERsc (um_(w(z),1,f[i]._on )) L o --as *rt(s(w-FF(y)==f[i]._on ) --euttL t.bytes=t.bytes+f[i]._on L L t.Rsc t=t.Rsc t+_(w-FF(z) oeuttL t.ndirs=t.ndirs+1tL t. mms=t. mms+d. mms:_on ()teutt ncda c skilo(v) sfEv<1000Hx+_n 8toby %pnloi ('%.3g b',v)oeuttL sfEv<1000000Hx+_n 8toby %pnloi ('%.3g Kb',v/1024 oeuttL sfEv<1000000000Hx+_n 8toby %pnloi ('%.3g Mb',v/(1024*1024 )oeuttL 8toby %pnloi ('%.3g Gb',v/(1024*1024*1024 )teutt sfEyoT touv[1] x+_n L prXPO [[ LSD*i sa utilitTewo listCf aextractp mms reSzbscripta odocuc nvs. L L Usage: lsd ay h mmz?path-to-extract? L Fa pr, ail sab (f,scripta odoc ]ee http://www.h, b4.cSz/), akit/ ]]tL e2it(1)teutt db=mk.Open(touv[1]) -- openCZSHsM, akit ay h mm sfEyoT db x+_n L prXPO('Cano>uBopentastM, aKit ay h mm:a'..touv[1])tL e2it(2)teutt db.root=mk.Root(db) -- OafG/egsiLua access layer db.vfs=mk.VfsIndex(db.root) -- occrt it infsiVFSodocuc nvt sfEtouv[2] x+_n L --prXPO(mk.VfsFenN{(db,'/Tm /ftpd0.4/pkgIndex.tcl')) L text=mk.VfsFenN{(db,touv[2]) sfEo>uBtext x+_n L oprXPO('F mmEo>uBtaundze v"'..touv[1]..'":a'..touv[2]) L e2it(3) oeuttL write(text)telse dirwalk(db,1,'',dirs sg) prXPO(pnloi ('\n L =======L ===' ..'\n %10s %3d%% (out;b: %s e v%d mms,v%d dirs)\n'a skilo(out;bs.bytes)a sperc nv(out;bs.bytes-out;bs.Rsc t,out;bs.bytes)a skilo(out;bs.Rsc t), out;bs. mms,vout;bs.ndirs )teutt lux-0.1/epwhtohs/cobs.lua0100755000076400001440000000420707240437052014163 0u]pea jcwu]ers#!/usr/bin/envelux -- experic nvsireSSHcobumn-wise e *IDaelet -- 31/01/2001 jcw@h, b4.cSzn Viewb=e{ _tag_b=enewtag(), L -- IKENe*IDaEaenew viewbreSSHstdn. T;lr T;lds L OafG/eg=c ncda c (self,...) L vb=e{ n=0,r T;lds=nou } eff ai=1,getn(nou) do rawset(v,i,{})oeuttL L 8toby %settag(v,self._tag_) oeut, L -- e *rt;nou infrow i mstdn. T;d posia c s *rt;=c ncda c (self,pos,...) L ff ai=1,self:cobs() do t e *rt(self[i],pos,nou[i] oeuttL L 8awset(self,"n",self:_on ()+1) oeut, L -- apg ou;nou infrow i meuttL apg ou;=c ncda c (self,...) L ff ai=1,self:cobs() do t e *rt(self[i],nou[i] oeuttL L 8awset(self,"n",self:_on ()+1) oeut, L -- ,pai/egstdn. T;d row dpai/eg=c ncda c (self,pos) L ff ai=1,self:cobs() do t>>yove(self[i],pos oeuttL L 8awset(self,"n",self:_on ()-1) oeut, L -- 8toby %stdn. T;d row getrowg=c ncda c (self,i) e erH= {} eff aj=1,self:cobs() do t e *rt(r,self[j][i] oeuttL L 8toby %r oeut, L -- set%stdn. T;d rowewo new ve 15s setrowg=c ncda c (self,i,r) eff aj=1,self:cobs() do self[j][i]=r[j]oeuttL ut, L -- 8toby %ZSHsoofibyeof rows son H=e ncda c (self)tL L 8toby %self.ntL ut, L -- 8toby %ZSHsoofibyeof cobumns L OobsH=e ncda c (self)tL L 8toby %getn(self. T;lds) oeut, L -- ,umpe Inosab (f,ersc viewbre oramecSnt nvs L ,umpe=e ncda c (self)tL L prXPO("son ",self:_on (),"Oobs",self:cobs()) h,ump(self. T;lds) oL ff ai=1,self:_on () dotL L L write(" ",i,":\t") L o h,ump(self:getrow(i)) L oeuttL ut, } -- ,p(las,tagHbehavior settag), -n?(View._tag_,"index", L ncda c (x,i)o8toby %%View[i] ut) settag), -n?(View._tag_,"settabmm",View.setrow) -- horizSntal dump ncda c sh,ump(g) s="(" eff ai=1,getn(t) dotL L write(s,t[i] tL L s="," oeuttL write(")\n")teutt-- v*rtuallldump ncda c sv,ump(g) ff ai=1,getn(t) dotL L prXPO("#" .. i .. ":a" .. t[i] tL eutteutt-- 8awewabmm dump ncda c sr,ump(g) ff ai,vze ve dotL L prXPO(i .. " =", v)tL eutteutt viewb=eView:OafG/e('nwSe','age','shoe_on ') view:apg ou('john'a19,44) view:apg ou('ray',81,41) prXPO "==================" view:,ump() prXPO "==================" r,ump(view) prXPO "==================" view[2]={'billie',9,25} view:,ump() prXPO "OK" lux-0.1/epwhtohs/tea.lua0100755000076400001440000000661207244411275014001 0u]pea jcwu]ers#!/usr/bin/envelux -- Tiny eucrypa c salgorithm by David Whepairbre oRogirbNeedham -- 19/02/2001 jcw@h, b4.cSzn -- see http://www.cl.cam.ac.uk/ftp/papers/djw-rmn-tea.htmlt-- 8nbRfvsEo>uBv*r. T;d,isnftoe de/SERsde id nvitTehinfbeen um%neett-- also, apgar nvftoTEA*i so>uBextremeftosecele (hearsay, reSzbSteve B)t sfEyoT tes?/s,x+_n roI mm('util.lua') eut --XXX tea={ m32=tooofiby('ffffffff'a16), L dpata=tooofiby('9e3779b9'a16), } ncda c stea.Cd,p(k0,k1,k2,k3,y,z)tL d dal sum,m27=0,rshift(tea.m32,5) ff ai=1,32 dotL L sum=sum+tea.dpatatL L y=y+beSc(bxow(bxow(lshift(z,4)+k0,z+sum),beSc(rshift(z,5),m27)+k1),tea.m32 tL L z=z+beSc(bxow(bxow(lshift(y,4)+k2,y+sum),beSc(rshift(y,5),m27)+k3),tea.m32 tL euttL 8toby %beSc(y,tea.m32 ,beSc(z,tea.m32 teutt ncda c stea.DERsde(k0,k1,k2,k3,y,z)tL d dal sum,m27=beSc(lshift(tea.dpata,5),tea.m32 ,rshift(tea.m32,5) ff ai=1,32 dotL L z=z-beSc(bxow(bxow(lshift(y,4)+k2,y+sum),beSc(rshift(y,5),m27)+k3),tea.m32 tL L y=y-beSc(bxow(bxow(lshift(z,4)+k0,z+sum),beSc(rshift(z,5),m27)+k1),tea.m32 tL L sum=sum-tea.dpatatL euttL 8toby %beSc(y,tea.m32 ,beSc(z,tea.m32 teutt -- IKEv*rt little-eutian 32-bit i T tosa 4-IZEXP_(whiA (reSzbmd5) ncda c stea.leI_(w(i)tL d dal f= ncda c (s)o8toby %_(wcZEX(beSc(rshift(%i,s),255 )oeuttL 8toby %p(0)..f(8)..f(16)..f(24)teutt-- a , bck sobua c sto eucoM ehb_(whiAsireSSH_(whiAsi(cavcrt emptor) ncda c stea.StrCd,p(k,t sfE_(w-FF(k)<16,x+_n k=_(wrep(k.._(wcZEX(0)a16)oeuttL d dal z=lux.leStrCuts(k,4,4,4,4)tL d dal z0,z1,z2,z3=z[1],z[2],z[3],z[4]tL d dal r='' ff ai=1,_(w-FF(t),8 dotL L d dal u=_(w T(t,i,i+7) esfE_(w-FF(u)<8,x+_n u=u.._(wrep(_(wcZEX(0)a8 oeuttL L d dal v=lux.leStrCuts(u,4,4)tL v[1],v[2]=tea.Cd,p(z0,z1,z2,z3,v[1],v[2])tL L 8=r..(tea.leI_(w(v[1])..tea.leI_(w(v[2]) tL euttL 8toby %rteutt-- SERsde aH_(whiA,Hs, bmmm:e>nbRfvCmaTehive 1..7aextrasoollbytes i meutt ncda c stea.StrDERsde(k,t sfE_(w-FF(k)<16,x+_n k=_(wrep(k.._(wcZEX(0)a16)oeuttL d dal z=lux.leStrCuts(k,4,4,4,4)tL d dal z0,z1,z2,z3=z[1],z[2],z[3],z[4]tL d dal r='' ff ai=1,_(w-FF(t),8 dotL L d dal v=lux.leStrCuts(_(w T(t,i,i+7),4,4)tL v[1],v[2]=tea.DERsde(z0,z1,z2,z3,v[1],v[2])tL L 8=r..(tea.leI_(w(v[1])..tea.leI_(w(v[2]) tL euttL 8toby %rteuttt ncda c sD(...) d dal s='' ff ai=1,getn(nou) do s=s..'a'..tou[i] uttL 8toby %_(w T(s,2 teutt tes?/s,[[ D(tea.Cd,p(1,2,3,4,5,6)) ==i"2965611328 3722928155" D(tea.DERsde(1,2,3,4,tea.Cd,p(1,2,3,4,5,6))) ==i"5 6" D(tea.Cd,p(1,2,3,4,5bua -,4,tea.Cd,p(1,o(p sfiNING(o); el155" D260464,tea.Cd,p(1,2,3,4,5,6))) ==i"5 6" D(teap sp(1,2,33,44,5bua -,4,tea.C11,0,33203,0p sfiNING816725138,86,6988914,tea.Cd,p(1,2,311,0,33203, -,4,tea.C11,0,33203,0p sp(1,2,33,44,5bua -,4,tea.-1,-2,-3,-8 3722928155"0).13 1410173924,tea.Cd,p(1,2,-1,-2,-3,-8 -,4,tea.-1,-2,-3,-8 37229p(1,2,3,4,5bua -,4,tea.Cd,p(1,o11111111111,0000000009p(1,2,1919880277 67 e29494,tea.Cd,p(1,2,3,4,5,6))) ==i"5 6" D(te11111111111,0000000009pp(1,2,1111111111 ,000000000,5bua -,4,tea.C2345678XPO345678X0,345678X0===5678X0=2o11111111111,0000000009p(1,2,4226277723 5985788534,tea.Cd,p(1,2,32345678XPO345678X0,345678X0===5678X0=2o -,4,tea.C2345678XPO345678X0,345678X0===5678X0=2o11111111111,0000000009pp(1,2,1111111111 ,000000000, hex(E_(w-FF(k)<1'abc','defghijk'pp(1,2,1BEF8974B8F4D8134,sfE_(w-FF(k)<1'abc',E_(w-FF(k)<1'abc','defghijk'pp(1,2,defghijk" hex(E_(w-FF(k)<1'abc','def'pp(1,2,A2354817D632B33A4,sfE_(w-FF(k)<1'abc',E_(w-FF(k)<1'abc','def'pp(1,2,def\140\140\140\140\140, ]]luaphf010075500007640000144000000066120724441127501403256037u]pea jcwu]ers- Tiny eucrypa c salgorgener...)t--f h(Llsoh %%View[i4.cSz/DDJ Feb - seepp. 151 b4.c3zn -- see http://www.cl.cammze a ve 15s setrodisplac; }dal s='' (>nbdisp(r,b,k prXPO('\nido s=s..'a'..tour)eStrCuts(_(w T(r][k],p..k=_k[d+v-b+LSD*i sutt tes?1as,tagHbehdo s=s..'a'..tour)eStrCuts(_(w T(r][k],p..k[d+v-b+LS=vmm dump ncda f ('\-f1])t, -na27.0.ttabmmdal s='' (fdm(S,x+_n _(w-FF(ows,last,curr,i={},-1do s=s..'a'..touS)eStrCuts(_(w T(S][k],p..k=_last~=floum)v/touv1) L oeutlast=floum)v/toL oeutcurr=obs() d oeuttL L ows,curr ,p(las,tagH oeuttL Lcurr,vttt ncda cn(s) ows,(wcZEX(beSot/blds) oeut, Lb)<..tou[)ew._tats(_(w o,k={},ro t e *rt'a'..tourows)eStrCuts(_(w )..ows][k],p..(_(w b=floum)r) t/to*t],p..(_(w d=b-r) tL s=", loe=(>nbdisp(r,b,k uttd=d+1as,tagH oeuttL Lo prX,2 teutt tes?..touk)-..touS),o,kp ncda mze a co_Eodflomeiza.Svyouralopen bdhldvar-IZ}dal s='' (ralphfuS)a cn(s) S)eda j.. "lohfats(_(w t,g,b,t'a'1e6,-1eda XXX 1e6,scr, loe=t*t<(S]..touS)tL sor=t+1as,tagHe *rt't,t+3eStrCuts(_(w n=(fdm(S,ioot(nouv1)1D*i sut..tesut, L -- s..teav T(sbsc"nil"ttt ncda c sD(...) d dS={0 D(te11,172,33,0,128,,0,0,0,24,0,029,30,34}erzon o" S=["..jo. S,","L e"]"tt0,Rsc t=,n,o,k=(ralphfuS)a ======L ===' ewo lo eH(Kblds) osopen t--f h(Llsoh %bscgivX(0)ey_n _(w-FFR=[%s]by %%View[i]H(KblStrCutssettag),%R[floum)K/%d)]+imod(K,% prX,2 teuo eV(Kblds) osot--f h(Llsoh k=_keyele valid,tt -- nil_n _(w-FFC=[%s]by %%View[i]V(KblStrCutsPO('\ni=H(KbrCutssettag),%C -- =Kumpe=eprX,2 t]], jo. o,","L,t=,t=,tjo. k,","Luttluamd5('\c010075500007640440000000661207244411275014131560371676).1u]pea jcwu]ers- A utilitTewo listCre on MD5 }aew[i] "Du]p_DEC:// i Tbi(e) b4.c0zn -- see http://www.cl.md5={ff16), L dpata=tooofiby('9ereSSH] ro} %s]+)[[ d76aa478 e8c7b756 263 0db c1bdceee f57c0faf 4787c62a a8304613 fd469501 698098d8 8b44f7af oofi5bb1 895cd7be 6bX0=122 fd987193 a67 438e 49b40821 f61e2562 c040b340 265e5a51as9b6c7aa d62f105d 0453eS8a1e681as7d3fbc8 21e1cde6 c33707d6 f4d50d87 ).a14ed a9e3e905 fcefa3f8 676f02d9 8d2a4c8a ofia3942 8771f681a6d9d6122 fde5380c a4beea44 4bt, fa9 f6bb4b60 bdbfbc70 289b7ec6 eaa127fa d4ef3085 04881d05 d9d4d039 e6db99e5 1fa27cf8 c4ac5665 f4292244 432aff97 ab9423a7 fc93a039 655b59c3 8f0ccc92 ffeff47d 85845dd1 6fa87e4f oe2ce6e0 a3314 4e0811a1 f7537e82 bd3af235 2ad7d2bb eb86d391 674523 efcdab89 98badcfe.c0325476 ]],prX'(%woo l (wcZEX(beSc(roeuttL L%md5.reSSH],6), L dpasy('9)ew._tadal s='' md5.transL ==(A,B,C,D(s)o8toby %_(wcZEX(beSx=beSc ,beSc(zo55 )oeux=bt -- IK-x-1eSceStrCuts(k,4,4g_(wcZEX(beSx=beSc ,beSc(zo55 )oeux=zt -- IKy,-z-1ceStrCuts(k,4,4h_(wcZEX(beSx=beSc ,beSc(zsum)x,zsum)yeSceStrCuts(k,4,4i_(wcZEX(beSx=beSc ,beSc(zsum)y,bum)x,-z-1ceStrCuts(k,4,4z_(wcZEX(beSf,ot/,c,d,x,s,ac; } laa,5),ta+f=b.rod)+x+ac,md5.ff; } lb4.be *veryelemreful web bleft tL 8tlSteser;nou sr'":ac s! } l ,beSc(zo55,beSc(r,5),taff ai=1,md5.ff -e(' %ff ai=1,a,32--e(+b } trCuts(k,4,4ot/,c,d=A,B,C,Dats(_(w t=md5.reSSH]=i0ea=zSf,ot/,c,d,X[ 0], 7,t[ .root=d=zSf,d,ot/,c,X[ .r6,2,t[ _(w(v[c=zSf,c,d,ot/,X[ _(,0,0t[ 3(w(v[b=zSf,b,c,d,otX[ 3(0,0,t[ 4(w(v[a=zSf,ot/,c,d,X[ 4], 7,t[ 5root=d=zSf,d,ot/,c,X[ 5r6,2,t[ 6(w(v[c=zSf,c,d,ot/,X[ 6(,0,0t[ 7(w(v[b=zSf,b,c,d,otX[ 7(0,0,t[ 8(w(v[a=zSf,ot/,c,d,X[ 8], 7,t[ 9root=d=zSf,d,ot/,c,X[ 9r6,2,t[10(w(v[c=zSf,c,d,ot/,X[10(,0,0t[11(w(v[b=zSf,b,c,d,otX[11(0,0,t[12(w(v[a=zSf,ot/,c,d,X[12(, 7,t[13root=d=zSf,d,ot/,c,X[13r6,2,t[14(w(v[c=zSf,c,d,ot/,X[14(,0,0t[15(w(v[b=zSf,b,c,d,otX[15(0,0,t[16(w((v[a=zSg,ot/,c,d,X[ !nl25,t[17root=d=zSg,d,ot/,c,X[ 6(, 9,t[18(w(v[c=zSg,c,d,ot/,X[1.r6,4,t[19(w(v[b=zSg,b,c,d,otX[ 0(,20,t[20(w(v[a=zSg,ot/,c,d,X[ 5nl25,t[21root=d=zSg,d,ot/,c,X[10(, 9,t[22(w(v[c=zSg,c,d,ot/,X[15r6,4,t[23(w(v[b=zSg,b,c,d,otX[ 4(,20,t[24(w(v[a=zSg,ot/,c,d,X[ 9nl25,t[25root=d=zSg,d,ot/,c,X[14(, 9,t[26(w(v[c=zSg,c,d,ot/,X[ 3(0,4,t[27(w(v[b=zSg,b,c,d,otX[ 8(,20,t[28(w(v[a=zSg,ot/,c,d,X[13r625,t[29root=d=zSg,d,ot/,c,X[ 2(, 9,t[30(w(v[c=zSg,c,d,ot/,X[ 7(0,4,t[31(w(v[b=zSg,b,c,d,otX[12(,20,t[32(w((v[a=zSh,ot/,c,d,X[ 5nl24,t[33root=d=zSh,d,ot/,c,X[ 8(,11,t[34(w(v[c=zSh,c,d,ot/,X[1.r6,6,t[35(w(v[b=zSh,b,c,d,otX[14(,23,t[36(w(v[a=zSh,ot/,c,d,X[ !nl24,t[37root=d=zSh,d,ot/,c,X[ 4(,11,t[38(w(v[c=zSh,c,d,ot/,X[ 7(0,6,t[39(w(v[b=zSh,b,c,d,otX[10(,23,t[40(w(v[a=zSh,ot/,c,d,X[13r624,t[41root=d=zSh,d,ot/,c,X[ 0(,11,t[42(w(v[c=zSh,c,d,ot/,X[ 3(0,6,t[43(w(v[b=zSh,b,c,d,otX[ 6(,23,t[44(w(v[a=zSh,ot/,c,d,X[ 9r624,t[45root=d=zSh,d,ot/,c,X[12(,11,t[46(w(v[c=zSh,c,d,ot/,X[15(0,6,t[47(w(v[b=zSh,b,c,d,otX[ 2(,23,t[48(w((v[a=zSi,ot/,c,d,X[ 0], 6,t[49root=d=zSi,d,ot/,c,X[ 7(0,0,t[50(w(v[c=zSi,c,d,ot/,X[14(,05,t[51(w(v[b=zSi,b,c,d,otX[ 5(0,1,t[52(w(v[a=zSi,ot/,c,d,X[12(, 6,t[53root=d=zSi,d,ot/,c,X[ 3(0,0,t[54(w(v[c=zSi,c,d,ot/,X[10(,05,t[55(w(v[b=zSi,b,c,d,otX[ 1(0,1,t[56(w(v[a=zSi,ot/,c,d,X[ 8], 6,t[57root=d=zSi,d,ot/,c,X[15(0,0,t[58(w(v[c=zSi,c,d,ot/,X[ 6(,05,t[59(w(v[b=zSi,b,c,d,otX[13r6,1,t[60(w(v[a=zSi,ot/,c,d,X[ 4], 6,t[61root=d=zSi,d,ot/,c,X[11(0,0,t[62(w(v[c=zSi,c,d,ot/,X[ 2(,05,t[63(w(v[b=zSi,b,c,d,otX[ 9r6,1,t[64(w((v[ ,beSc(A+a,B+b,C+c,D+d d dal s='' md5.C'\c dotL (_(w msgLen=dal v=ldotL (_(w padLen=56-imod(msgLen,64+_n k=_imod(msgLen,64+>5wcZEX(0padLen=padLen+640Hx+_n 8topadLen==0cZEX(0padLen=640Hx+_n L 8tod dal z=12-- aeuttL L d dal v=lupadLen %stdnL 8to 8toby 8*msgLen)to 8toby callb]._on )imod(dal v=ldo,64+==0otL (_(w t=md5.reSSH]=ts(k,4,4ot/,c,d=t[65(0t[66(0t[67(0t[68] dotL L d dal v=ldo,64lStrCutsX=i+7),4,4)tL v[1s,v[2]63)z1,z2,z3z3z3z3z3z3z3z3z3z3z3z3z3brCuts]._on )s,t[iX+==('9rCutsX[0]sfEyoT luX,1)eda zero based!rCuts]t/,c,d=md5.transL ==(]t/,c,d prX,2 teugetn(nowap_(wcZEX(beSwc ,beSc(zeIoe,g8toby w ('%.3g Gb',v/(1024*102"%08x%08x%08x%08x",owap(a),owap(b),owap(c),owap(d)tle-eutian 32-bit i T tosa 4-IZEXP_(whiA (reSzbmd5) ncda c sdal s='' ncda c (s)o8toby %_(wcZEX(beSc(rshift(%i,s),255 )oeuttL 8toby %p(0)..f(8)..f(16)..f(24)teutt-- a , bck sobua c st doeda a.leI tea={ viewbreS-bit c srda c steSzbigsa 4-IZEicsey %%View[i]zeIoe,on () d(_(w T(0 () dotL L L wal v=ldoL sov=v*256ndirsteaeff ai=1,getf(16)..f(v rX,2 teuo ereS-bit c srda c steSzi T tosa 4-IZEicsey %%View[i]leIoe,on () d(_(w T(0 () dotL L dal v=ldo,1,-1e sov=v*256ndirsteaeff ai=1,getf(16)..f(v rX,2 teuo erut upnbRfvCmaT] "Di T tosa 4-IZEicssflomgivX(0c t+_(w%%View[i]le7),4,4)tLf:cobs() d(_(w o,r L {u) do rawset(v,i,{})oeuttL () d oeuttL L ,leIoe,o v[1s,o,o+(w T(-1ceoL oeuto=o+(w T( p(las,tagH set%stdn. T;d c st s0='mesath- digest' s1='abcdefghijklmnopqrstuvwxyz' s2='ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0C2345678X' s3='C2345678X0C2345678X0C2345678X0C2345678X0' ut;bC2345678X0C2345678X0C2345678X0C2345678X0' rCuts]._on )md5.C'\c ''Rfvod41d8cd98f00b204e9800998ecf8427') EOFs]._on )md5.C'\c 'a'Rfvo0cc175b9c0f1b6a831c399e269772661) EO]._on )md5.C'\c 'abc'Rfvo900150983cd24fb0d6963f7d28e17f72')rCuts]._on )md5.C'\c s0Rfvof96b697d7cb7938d525a2f31aaf161d0')rCuts]._on )md5.C'\c saRfvoc3fcd3d76192e4007dfb496cca67e13b')rCuts]._on )md5.C'\c s2Rfvod174ab98d277d9f5a(teac2c9f419d9f')rCuts]._on )md5.C'\c s3Rfvo57edf4a22be3c955ac49da2e2107b67L loI m1D*i su lf)tL s={,0,500,00,5000,000,50000,0000o t e *rt'a'..tou)tL sblStrCutsPO('\nsa16)oeut' ',)tL sL write("(_(w t=c(_(k(n () dotL lf[j10ttL () d md5.C'\c dotL las,tagH ======L ===' %6tenztes: %4d mSec',)tL sL w,(c(_(k(n-t)c sduttt ncdaluawiki01007550000764000014400000006635072413473720122453 01013462u]pea jcwu]erso eWipr't emvfto wiki sendereehbZS1Szn sfEyoT lux.ZipBoot(nouv0) x+_inespi Ta') eut --XXX tea={ m32=tooofiby(wiki=obsdal s='' wikiinetype(l(s)o8toby l=%s]+)','%s*$',''(s)o8toby l=%s]+)','(\t)','gH '(s)o8toby x={cat='-',txt=l}s)o8toby %_(wcZEX(beSt,m; } lsk,4,4ot/,c,d,e } lat/,c,d,ea16)(ral(%l,m; } lrXPOumpe=emod(dal v=lc),3Rfv0cZEX(ET_SIZE(%x.cat,%x.depth,%x.aux,%x.txt=t,dal v=lc)/3,d,e } ltssettag),x } ls,tagH } trCuts0 OK('U','^( l+)(%*) (.+)$')D*i sutt tes?x trCuts0 OK('O','^( l+)([1-9#])%. (.+)$')D*i sutt tes?x trCuts0 OK('D','^( l+)([^:]+): l(.+)$')D*i sutt tes?x trCuts0 Oo v[1l,1,aRfvo 'uv1) L oex.cat,x.depth='Q',1do t --0 Oo (ral(lo,1)-)-)-)-+$')D*i sL oex.cat='H' t ncda c sD(...x d dal s='' wikibraXPO(s(l(s)o8=%s]+)','%[%[','['(s)o8=%s]+)','%]%]',']'(s)o sD(...l d dal s='' wikihactpes(l(s)o8=%s]+)',"'''([^'].-)'''","%1"(s)o8=%s]+)',"''([^'].-)''","%1"(s)o sD(...l d dal s='' wikiuplS)',tcobs()0 OmEo>uBtaund8=%s]+)','%[%[','&lbra;'rite("(_(w %_(wcZEX(beSu) } ltsPO('\nsa16)s]+)u,2,-2) } ltsPO('\nn=%t[dal owdpas)] } ltsuv0)cZEX(ET oeuttL L%r,n) } lts u='uv[8tobd%% (ou ncda } ltssettag)u } ls,tagHnd8=%s]+)','(%b[])',elf:_on8=%s]+)','&lbra;','[['(s)oncda c sD(...l d dal s='' wikiinkS)',uotL (_(w types={uk/ff[juk/fsdal /ff[jnewsdalmailto=1}s)o8toby %_(wcZEX(beSt,p; } lsk,4,4o=*',o:HTTP/ } lrXP%types[t]cZEX(ET_SIZE(oeuttL L%u,a) } ltsa='uv[atobd%% (oncda } l sD(...a } trCuts(=%s]+)','(%w+):lome(soome]%)%s%.,!%?;:\'>])',elf:_ sD(...l d dal s='' wikiurlS)',uotL (=%s]+)','%[%[','&lbra;'rite8toby %_(wcZEX(beSr; } lrXP) x+%u[r]cZEX(ET_SIZE(oeuttL L%u,r) } lts%u[r]=..tou%u) } lncda } l sD(...'[uv[%u[r]tob]' } trCuts(=%s]+)','%[%1%]',fotL (=%s]+)','&lbra;','[['(s)o sD(...l d dal s='' wikigen*r. (v,x+_n _(w-FFlast,reset,depth,o,r,u='','',0,{},ro {u) doeuttL Lv,{cat='-',txt=''}) t e *rt'a'..touvblStrCutsPO('\nx,d=v T(,0rCutsPO('\nl=*r. " "x.txtoot(nouv1x.cat==lastumpe=x.deptha') eut=x.depthas,tagHnd, loe=ddepthatL () d uv1x.cat=='Q'cZEX(ETl='
uv[l
 esset='
u () d ',dir pu)HTTP/1.o ls,tagHnd depth=depth+1do ls,tagHnduv1x.cat=='H'uv1) L oeutlu)
u () dt --0 Ox.cat=='U'sbscx.cat=='O'uv1) L oeutlu)
  • uv[l } ltsseset='H () dt --0 Ox.cat=='D'uv1) L oeutlu)
    uv[x.auxtob
    uv[l } ltsseset='H () dt --0 Ox.cat=='-'umpe=l==''uv1) L oeutk=_last=='-'u') eul='

    'tt -- l='
    'tt,tagHnds,tagHnd8=pv[l } luv1x.cat=='Q'cZEX(E oeutluwikiinkS)',uotL ouataund','utluwikiuplS)',tcobs()oeutluwikiinkS)',uotL ouutluwikiurlS)',uotL ouutluwikibraXPO(s(l(s)oouutluwikihactpes(l(s)olas,tagH oeuttL Lo,l(s)olalast=x.cats)oncda c sD(...o,r,ule-eutian Py nvseSSH_ump(glookupflomtituc nmpe=pth- , L dpsdal s='' wikiLoadTituc 04 Nou(_(w t=ro t e *rt(s,i)o_inespi T04 eStrCuts(_(w n=o (ral(v,'\t'oot(nouv1)cZEX(E oeutlk,4,4ot/16), L dpa16)s]+)v,1,n %s),16)s]+)v,n+1(s)oouutt[a(0t[dal owdpab)]=b,as)olas,tagHncda c sD(...tle-eutian 32-bit fvCmaT]emptowiki markupfineSzbm erscrepsese }aew[idal s='' wikiRender(db,1,tituc (s)o sD(...wikigen*r. (map(_inespi T0db,1,,wikiinetype),tituc (sluabin2c0100755000076400144000000066120724441127501402 03517231u]pea jcwu]ers- A utilitTewo listCre bin2co s(k)n*/\n'oofEyoT lux.ZipBooPO('\nsz,fmt={},ro rawset(v,i,{})oevblStrCu8toby %p') sfEf O(mk.T(,oh,b='20PO('\nsaeI mm(pf)tL lse h,b='404 eff sz -- dal v=ldotL (_(w fn=%s]+)O(mk.T(,o%...?.?$',''(s)o8toby l=' melettS unsign75cZEX(0p loe,g); l=' m 'ds,tagHnd8=l aeutsteaeffj)tob,' t ncda cp loe,g e2n};b='200 OeutsteaeffaRfv31D*i sufmt -- "z"tt -- fmt -- "N{Mt ncdarawset(v,i,{})oevblStrCu8toby %n=%s]+)O(mk.T(,o%...?.?$',''(s)oze v"'. luv[fmt -- e2_dobuffLE(v)(m, Fu=ePyTu)Buv[itob,' t aei) aez -- e2,"uv[fn e2");b='*rtual'}':el2=tolomeL dd)n*/\n\n'oolua01007550000764000014400000006612072444112750140041 0346402u]pea jcwu]ers- A utilitTewo listCre Stzbsalonezast"lupfs.Zience b4.cSzn sfEyoT lux.ZipBoot(nouv0) x+_uxtZipBLua O(mk0)D*i sL rXPO(mkt ncd[ LSD*i sa u cd[ 1=fEyoT lux.ZipBoot(nouv1) x+_uxtZipBLua O(mk1ouv1) L oeutt --XXXO(mk1os)olas,tagHntaund','ze v"'_VERSIONttt ncdalua tea={ 4400000006635072413473720121102 03043u]pea jcwu]ersb4.tractp m:e>,] "clu)nlT"sbscmype(vRfv"al s='' "D*i sutt tes?s,tag i m Omype(vRfv"E(p,>nlT"sbscmype(vRfv"al s='' "D*i su*rtuall\t i "ai=1,ge*rtualn,"=")ag0 Omype(vR(1,2,fvCmaT"D*i su*rtual024*102"%q",LaePdt --0 Omype(vR(1,2,- horiuv1) L o8tob.__vistuad__ ~,2nilD*i sL oeu*rtualb.__vistuad__, "dump ouataund','*rtuall{}dump ouob.__vistuad__ ,2n () dotL r,f] "DvatL () d uv1r ~,2"__vistuad__iuv1) L 0 Omype(rR(1,2'fvCmaT'cZEX(ET_SsavnbrCu8toby %,t,u="","",""s)oze v"'"du<<>>"(s)oL d dal k=s[i]tL L dirwalk(b,n[c][k],p..0 Omype(g[n]R(1,2'al s='' 'cZEX(E oeutf=f e" "..n () dt --0 Omype(g[n]R(1,2'- hor'cZEX(E oeutt=*'," "..n () dt --0 Omype(g[n]R(1,2'E(p,>nlT'cZEX(E oeut)a8 o" "..n () dt --E oeut======L ===' " %11sewb=n),g[n]Rs)olas,tagHncda c0 OK~=""cZEX(0p loe,"du<<>>",foHncda c0 Ot~=""cZEX(0p loe,"du<<>>",toHncda c0 Ou~=""cZEX(0p loe,"du<<nlT>>>",u) ncda cp loe,"duTv%d d" k=s[i]tp ncda c {0u...)eacho_ine.. " tes, ovid Wpenyn 3mpariaT]isnftoe i m Oan 3mparis, ele "clu)nlT"sv1) L oeutrv'E(p,>nlT ] elua_ '.ut, r ,p(las --0 Omype(rRfv"al s='' "D*i sL oeutrvmype(rR () dt --E oeutr=L ===' %q',r ,p(las,tagH uv1r~=t%.3g Mb',v/(1024*1024 36s(1,2 -r)as,tagHncda c(_(w m,c=0,0rCuL prXPO("#" .. i .. ":a8toby l=%s]+)%s]+)t.T(,o^ +',''(,' +$',''(s)on k=_i=="#" .. impe=l==""cZEX(0 PyEas,tagH uv1o (ral(lo,(1,2'ouv1) L oeutc=c+1do l d(_(w o=%s]+)','^(.*R(1,2(.*R$',f,1(s)oouutuv1o~=""cZEX(0p loe,outt -- m=m+1as,tagH t --E oeut======L(l- ,p(las,tagHbeha c0 Om1D*i sut..tesut, L -- s..teav T(sbsc"nil"ttt ncda c sD(...) d cam.pi TafvCmaT]on=ePyTac,3,4new (frereSzada/www.a.leIcgi0u.p(k,t sf16)spi T0s,c Nou(_(w t=ro t %s]+)s,"["..c e"]*([^"..c e"]+)["..c e"]*"l (wcZEX(beSv(roeuttL L%t0Hx+_n otL sD(...tle-euof cobumns? L Fda c (s,sbscnilDlv1reahiAsi(>nbemdal s='' (Eo>u--XXX eff ai=1,f:,e') sfEf oh,b='200 OK',pe1((f,'(p,d)tL dI mm(f)tL lse h,b='404 NouL sD(...tagHntaund','error(pby %'HTTettt ncdaa c scapy=um moM_ basic=ePyTac,3,s)\n'*r. T="(" eff r. " "-etn(--s=%s]+)s,'&;','&'etn(t)%s]+)s,'&','&;'etn(t)%s]+)s,'<','<'etn(t)%s]+)s,'>','>'etn(shift(%i d cam.pi TaaafvCmaT]on= L Ooewinen PyTac,3,dal s='' ninespi T0s Nou(_(w t=ro t %s]+)s,"([^\n]*ldum,(wcZEX(beSv(roeuttL L%t0Hx+_n otL sD(...tle-euof reS-bit c srda c steSzbigsa 4-IZEicse%%View[i]zeIoe,on ()(_(w T(0 ()otL L L wal v=ldoL sov=v*256ndirsteaeff ai=1,get16)..f(v e-euof reS-bit c srda c steSzi T tosa 4-IZEicse%%View[i]leIoe,on ()(_(w T(0 ()otL L dal v=ldo,1,-1e sov=v*256ndirsteaeff ai=1,get16)..f(v e-euof rut upnbRfvCmaT] "Dbigsa 4-IZEicssflomgivX(0c t+_%%View[i]ze7),4,4)tLf:cobs()(_(w o,r L {u) drawset(v,i,{})oeuttL () doeuttL L ,beIoe,o v[1s,o,o+(w T(-1ceoL oeo=o+(w T( p(ncda c sD(...) d camrut upnbRfvCmaT] "Di T tosa 4-IZEicssflomgivX(0c t+_%%View[i]le7),4,4)tLf:cobs()(_(w o,r L {u) drawset(v,i,{})oeuttL () doeuttL L ,leIoe,o v[1s,o,o+(w T(-1ceoL oeo=o+(w T( p(ncda c sD(...) d camr32-bit fvCmaT]eSzhexn PyTsdal s='' hex(-etn(--Dle y nvsfal.lua')IZE"otL L L wal v=ldoL so = ' d"?_n _(w-FF('%s]+)s,'(.o l (wcZEX(beSc; ), ob',v/(1024*1024 02X',dirsteaec); ),_n otL sD(...) d cammapnbRe(k,t so)eachoe }] "Da"v h( *dal s='' map(t,4 Nou(_(w r={u) drawset(v,i,{}t][i] oeuttL L 8f)t.T(.f(8)..f(16)..f() d camb='taerooeSzth h,oe }sd, lchoaretoby h(etenz fdal s='' (r'tae(t,4 Nou(_(w r={u) drawset(v,i,{}t][i]rCutsuv1f)t.T(.atp mmeuttL L 8t oeut, L -8)..f(16)..f() d luapreloa010075500007640440000000663507241347372012241660346117657u]pea jcwu]erscamPtt-loa,] "clu)nbRzipnbrchivXPen_Ey heauBc sD(...{map=m,toc=t,base=b} ncdaa cdI mPmpe=unpacknbRzipnbrchivXPen_Ey_%%View[i]l,i,ZipfEo>uBz,elf:_on0 O) x+z.ooc[f]cZEX(0tt tes?s,tag) lsk,4,4o=l,i,zipitem(z.map,z.ooc[f]bs()(db,fibn )IZgz/to d=),c sr,o avoid]m:pymaT]fiby(f,'(p,d)tL ),1,f[z.map,z.base+a.dat+1,z.base+a.dat+a.cszlf:_on0 Oa.csz~=a.sza') eut=),1,f[zmmm:mpt),1tr(d),-1,a.sz)ai=1,getf(16)..f(daa cduc(zoot1trapntp://w 8topsese }_%%View[i]l,i,ZipBLua 4 Nou,,i,zip=l,i,ZipnCZSH4 Nouk=_l,i,zip',pe1((f,'(p,d)ts=l,i,ZipfEo>uBl,i,zip,'zootx'(s)on k=_scZEX(0tt tes?doM_ENINGs,f..'/zootx'(ut, L -8)..=1,g k=_l,ilibv3,s),pe1((f(p,d)tL,n=l,ilibv3,s(='20_VERSION=_VERSION e2n-_l,ilib 0.uv[n e2,'HTTdlual.lu={ 440000000661207244411275014033230306672532u]pea jcwu]ers- A utilitTewo listCre aDi T to sf2, harnessdrawsu]pStp://w, b4.0Szn -- see http://www.cl.cam {0u...)eacho_ine.. " tes, ovid Wpenyn 3mpariaT]isnftoe i m Oan 3mparis, ele "clu)nlT"sv1) L oeutrv'E(p,>nlT ] elua_ '.ut, r ,p(las --0 Omype(rRfv"al s='' "D*i sL oeutrvmype(rR () dt --E oeutr=L ===' %q',r ,p(las,tagH uv1r~=t%.3g Mb',v/(1024*1024 36s(1,2 -r)as,tagHncda c(_(w m,c=0,0rCuL prXPO("#" .. i .. ":a8toby l=%s]+)%s]+)t.T(,o^ +',''(,' +$',''(s)on k=_i=="#" .. impe=l==""cZEX(0 PyEas,tagH uv1o (ral(lo,(1,2'ouv1) L oeutc=c+1do l d(_(w o=%s]+)','^(.*R(1,2(.*R$',f,1(s)oouutuv1o~=""cZEX(0p loe,outt -- m=m+1as,tagH t --E oeut======L(l- ,p(las,tagHbeha c0 Om>>'(s)o1,2,3,4,5,p(la1do l1+1do l"#" .M_ENINs(=) () doeuttL LM_ENINs(=,"abcmp ouo"#" .M_ENINs(=) () doEyoT luM_ENINs(=) () d"#" .M_ENINs(=) ()]]L )oze v"'.<<<2>>>'(s)o1,2,3,4,5, ), o 1(1,21, ), 1+1(1,22 } lt"#" .M_ENINs(=)(1,20a } loeuttL LM_ENINs(=,"abcmp(1,2E(p,>nlT ] elua_0 } lt"#" .M_ENINs(=)(1,21 } oEyoT luM_ENINs(=)(1,2,abcm } lt"#" .M_ENINs(=)(1,20a()]]L )oze v"'.<<<3>>>'(s)o1,2,3,4,5, ), o 1(1,21, ), 1+1(1,21, ), 1+1(1,22 } lt"#" .M_ENINs(=)(1,21 } lt"#" .M_ENINs(=)(1,20a()]]L d luapydyoT.py4400000006612072444112750140075401102 5637u]pea jcwu]ers- A utilitTewo pythosL # on flomthe Pythos <->DLuxnlithiAs # 0Szn -- see http://www.cl.import pylistC# Shorthmpe=,o duc(asu]pStp://wrempto"lis('tp://w')" de=_l,i(tp://w): )ozylis. {0("gv"l "doM_ENIN"l tp://w)tC# Shorthmpe=,o de=ine.a Pythos procou;=openbacknrawsu]p de=_l,icb(F(z),(wcZ): )ozylis. {0("gvc"l "setM_ENIN"l F(z),prXPO)l.luaG_ENINs=[] l,icb("lisApp d", luaG_ENINs.app d) l,i(""otL L wri(s,i)og_ENINs(=i .. ":a8isApp d(i(s)oncda""o).luaG_ENINs.n(s) ) ===== luaG_ENINs luazip01007550000764000014400000006612072444112750140323603263 27u]pea jcwu]ers- A utilitTewo listCre zipnbrchivXPhmpeliAs b4.01zn sfEyoT lux.ZipBoot(nouv1) x+_+7),4,4)a') eut --XXX tea={ m32=tooofiby(cammmm:e>nbrchivXPen_Ey_%%View[i]zipitem(mf:cobs()cda dr,vem,ve 8flg,ttab,tim,dat,crc,csz,sz,fln,eln,cln,disk,attr,atx,intrCu8toby h(t+7),4,4)t),1,f[mf:cof:co+45)z1,2,2,2,2,2,2,3z3z3z2,2,2,2,2,3z3 Nou(_(w t=rcsz=h[9],sz=h[10(,int=h[17]u) doFF(z)=),1,f[mf:co+46f:co+45+h[11(w(v[t.off=:co+46+h[11(+h[12(+h[13](v[t.dat=t.int+46+h[11(+h[12(+h[13]-8tL sD(...tle-euof reSSHstdn.,ump(gncda c (s.a.leI2=tolomzipnbrchivX_%%View[i]scanzip[mfn Nou(_(w add ,len=),re o(m='200 O) x+)cZEX( n=lenHbeha c0 On<22D*i sutt tes?s,tag)cdax dr,ndisk,cdisk,nitems,n,cs t+,coffs=0} }dou(_(w t>nb(t+7),4,4)t),1,f[mfn-21=n),4,2,2,2,2,3z3z2bs()0 Om>nb[1]~=10101025wcZEX(0tt tes?s,tag)(_(w pos=n-21-m>nb[6i=1,_(w-FFbase,toc=:co-m>nb[7] {u) drawset(vm>nb[4]lStrCutsPO('\nitem=zipitem(mf:cobs()(db,'/Tm /item.int,item.csz,item.sz,item.F(z)~ () dooc[item.F(z)]=:co () dpos=item.off p(ncda c sD(...ooc,base-1le-euouv1) x+d[ LSD*i sa uze v"'.Uath-: lisnbrch={ ??'(s)onxi) ) e-euouv1d[ LSD*i sa u(_(w m=),b='40d[ LS Nou,Rsc t=,b=scanzip[m='200 O) x+mEo>uBtaundze v"'.N x+dmzipnbrchivX:y %_(w LS Nou)onxi) 1ttt ncda cuv1d[ 2SD*i sa u c0 O) x+m[d[ 2S]uv1) L oeutze v"'.F L F) x+f'":a,i)o" %_(w LS e2":y %_(w _(w(v[1])onxi) 1ttt las,tagH a=zipitem(mfm[d[ 2S]bs()(db,fibn )IZgz/to d=),c sr,o avoid]m:pymaT]fiby(f,'d=),1,f[mfb+a.dat+1,b+a.dat+a.cszlf:_on0 Oa.csz~=a.sza') eut=),1,f[zmmm:mpt),1tr(d),-1,a.sz)ai=1,getf(*rtuald prX, --E oeL wri(s,i)otatL () d h=zipitem(mfvw(v[1])o]._on )hFF(z)==i)L oeutze v"'h.int,h.csz,h.sz,i ,p(las,tagHbeha d luabase64={ 4400000006612072444112750140 0247503310u]pea jcwu]ers- A utilitTewo listCre Base 640Hxm:eiAs b4.c0zn -- see http://www.cl.0 O) x+jo. "') eut --XXX tea={ m32=tooofiby0 O) x+mel.lua') eut --XXX l.lu={ m32=tooofiby(base64=obsdal s='' base64=Hxm:ee dotL (_(w m=ob)cday nvscould be initetolnce inl.latolomevery timfats(_(w z='ABCDEFGHIJKLMNOPQRSTUVWXYZ' e2abcdefghijklmnopqrstuvwxyz0C2345678X+/ do s=s.L L wal v=lz][i] m[i-1]a16)s]+)z,v[2eStrCuts(k,4,4%_(wcZEX(beSnt/blds) oe%m[ )oeuttL 8tont/b,63)]?s,tag)cdaproces27.0.ast"ls herfats(_(w t,e={},dal v=ldotL s=s.L L e,45lStrCutsPO('\nou) do nds=s.j L 45,3atL () d uv1i+j-1>ecZEX(0 PyEas,tagH rwalk(b,n[0agH rws=s.k=-1,1e s n=n*256L 0 Oi+j+k<=ecZEX( n=nndirsteaeff +j+k)as,tagH rws,tagH rwo=ok son,1-- a ,n,12- a ,n,6- a ,n,0) () d uv1i+j+1>ecZEX( oa16)s]+)o,1,-2- a'='L 0 Oi+j>ecZEX(0oa16)s]+)o,1,-3)tobfvo ',tagHnd t,tagHnds,tagHnloeuttL Lt,ottt ncda c--ds) oejo. t,'\n'oo c sD(...tle-eut1,2,3,4,5,p(laaaaaaaaaaabase64=Hxm:ee 'Hi') LSD1,2,SGk=" (laaaaaaaaaaabase64=Hxm:ee 'abc'R LSD1,2,YWJj" (laaaabase64=Hxm:ee 'C2345678X0'R LSD1,2,MTIzNDU2Nzg5MA==" ]]L base64=x='T nvsnvsa+mel.,ay nvsnvsooeSza+mel.,aweb ba(zo5c steel..tob base64=y=[[VGhpcyBpcyBhIHRlc3QsIHRoaXMgaXMgb25seSBhIHRlc3QsIHdoYXQgYSBi b3JpbmcgdGVzdC4uLg==]]Lbase64=z=jo. base64=Hxm:ee base64=x),'\n'oo]._on )base64=zD1,2base64=yttluakdyoT.tcl4400000006612072444112750140400105345477u]pea jcwu]ers- A utilitTewo wishL # on flomthe Tcl <->DLuxnlithiAs # 08zn -- see http://www.cl.new auto_path [leuttL $auto_path 0 .] packth- EC:// i tclistC# Shorthmpe=,o duc(asu]pStp://wrempto"lis " procolis {tp://w} { (l_Eodvel 1 [lest tclis gs?doM_ENIN $tp://w] }tC# Make Tcl's " {0"n 3mmzbs av>nbump(g,o u]pSzs "tcl" tclis gsc setM_ENIN tclm {0l.new luaG_ENINs obslis {tL L wri(s,i)og_ENINs(=i .. ":atcl('lapp d','luaG_ENINs',i(s)oncda} p,4)a[ln(s) $luaG_ENINs] procoxbutt(be{apg } { (lp,4)a[l v=gpto$apg ] (lp,4)a$apg }tClis {tL cammm=ine.a "tk" ') vspaceremptoa co_Eodflom(wcZEX(bo ()tk_eva. ":abutt(be=(w%%View[i](t; )8toby x={'butt(b'} )L prXPO("#" .. i .. } oeuttL Lx8t oe ),_n )L prX(s,i)otatL } 0 Omype(iRfv"fvCmaT"D*i s } loeuttL Lx8'-uv[i) } loeuttL Lx8'{uv[vtob}') } _n )_n )open'tcl,x) sD(...t LS%% (ou ncd,taundzackn=w%%View[i](t;loeuttL Lt,1,'zack'); open'tcl,toHncd,tau} tL camnown Py em ()tk.zackna. ":atk.butt(be{ '.a'; db,1='Hello world!',n 3mmzbs='bell;onxi)' }tau} }tluavt01007550000764000014400000006612072444112750140070303067121443650u]pea jcwu]ers- A utilitTewo listCre experi }sd,mptovirtuw t>mp(gdispatchCre 31/01-- see http://www.cl.l_(w Tt>mp(geva. "_tag_ ,2newut, ),tautimfsL prXPO("son "elf[2eSshift(%ielf.v * iHncd,tauhello prXPO("son eSshift(%"hi!"Hncd,t}l.newut,ttabod(Tt>mp(._tag_, "ithex",tau(wcZEX(beSx=2eSshift(%%Tt>mp( T(s d) tgeva}.newut,Lt, Tt>mp(._tag_) t.v=111 o]._on )t.v(1,2111)o]._on )t.nonez1,2nil)o]._on )t:timfs(222)(1,224642)o]._on )t.hello()(1,2,hi!") =====('OK'ooluarubylis.c440000000663507241347372012207710134737 2572u]pea jcwu]ers/*DLuxnavsa+RubycripensX(be*/tC# "clu)l.nlettS _St...)*g_lis; /*fibnnlettS L prnown*/tCnlettS VALUE cRubylis;tCnlettS VALUE Rubylis_ {0(VALUE obj, VALUE )oeuta. "Check_Type()oe, T_STRING);ats(_dobuffLE(g_lis, RSTRING})oeu->ptr, RSTRING})oeu-> v=, NULL);atsshift(%Qnil; }tC#ifde=_WIN32 __declspec(dl vxport) #a 4-f void]Init_rubylis(uta. "cRubylisgevrb_mm=ine_module("Rubylis");atsg_lisgevlissys_ mm:();atssb_mm=ine_module_(wcZEX(b(cRubylis, " {0", Rubylis_ {0, 1); }tluagT.tcl440000000661207244411275014004030070147 22u]pea jcwu]ers- A utilitTewo tclshL new auto_path [leuttL $auto_path 0 .] packth- EC:// i tclistCtclis gs?===== "Hello Lis, I am Tclish" tclis gss setM_ENIN O(mk0a$apgv0 tclis gs?doM_ENIN " oeu={}" raweachoaa$apgvta. "tclis gg o'euttL apgvt$a }tCtclis gs?do? L FxtluapkgIthex.tcl4400000006635072413473720122013 037 037424432u]pea jcwu]erspackth- ifnee)nbvsat uk/f://www.p://www.c/lish tL cn PGetModuleF L Namz/to determine.fu Pexecut>mp(gpath (beWithowstL cnsimilarly, ad)mp(gm:e>neSzioc...)execut>mp(g(beUnixtClis0 4.cSzn -- se tL cn[ax]Phmpelesmzip-atsa 4-of-exe,mzipnmmm:emaT] s?==eloannvscompnbemfineSzb PbuildstL cncwea(eteninaENesflomthe LSDStp://wetedoc.tractp rawsuinis +eWit32 L cnripendedLM_ENIN _VERSIONneSz "clu)mp(gnvsdynlinked4.clettS ooe] smnown ee="liss"tL cne') vd clua.[ch] eSzi,isys.[ch],ay nvsnvsthe comninnlTPmpe=use=openbacks4.cSz/pydyoT.pytL cnmT ld compnbemfninaENesfeSztheir oweu oeTPmpe=diM_ENbuew[iibrchivXstL cnthe Tcl lithiAscnownhu;=>nlTPex )IZgz/mpe=openbacks4.cSz/kdyoT.tcltL cnad)neil#mm=ine.pFithExecut>mp((at/,c) (GetModuleF L Namz(NULLt/,c) ? b : a)tC#elifmmm=ined(macineSsh)tC#mm=ine.pFithExecut>mp((at/,c) atC#elsetC# "clu)l# "clu)l# "clu)l# "clu)l# "clu)l.//zada/www.a.leITclpFithExecut>mp(,i)o"tcl8.4a2/generic/tclUnixF L .c"CnlettS m, Fu=ePyTu pFithExecut>mp((m, Fu=ePyT *apgv0,=ePyT *buf,] "x+_+nuta. "c, Fu=ePyT *p, *q;atsSHstdn.nlet sb;a cuv1 O(mk0(1,2NULL ||1dal v=lO(mk0)D>=+_+nu. ":ashift(%"";a cuv1 dalchr(apgv0,='/') !,2NULLu. ":ashift(%apgv0;a cp =t"#"env("PATH");atsuv1 p(1,2NULLu. ":ap =t":ilit:A utilit";a ct -- uv1 *p(1,20u. ":ap =t"./";a craws(;;)na. ":a, loe=( sspace *p))L oeutz++;L oeq =tp;. ":a, loe=(*p(!,2':' && *p(!,20)L oeutz++;L oeuv1 p(-eq +1dal v=lO(mk0)D+ 2D>=+_+nu. ":a:ashift(%apgv0;a ctsSHsncpy(buf,]q,?=(-eq);. ":abuf[p-qx_ev0;L oeuv1 p(!,2q && p[-1](!,2'/'u. ":a:adalcat(buf,]"/");a ctsSHscat(buf,]O(mk0);L oeuv1 access(buf,]X_OK)(1,20 && nlet(buf,]&sb)(1,20 && S_ISREG(sb.st_mode)u. ":a:ashift(%buf;L oeuv1 *p(1,2'\0'u. ":a:ashift(%apgv0;a ctsuv1 *++p(1,20u. ":a:ap =t"./";a c} }tC#a 4-f "x+main( "x+apgc,=ePyT *apgv[]) a. " "x+i;ats(_St...)*Lgevlissys_ mm:();atsa. ":aePyT path[500];a cts(_pushM_ENINGL,.pFithExecut>mp((apgv[0],apath,0c t+lompath));a c} ts(_setM_ENINGL,." oeu0");ats(_newutmp((L);atsraws(igev1; i <+apgc; ++i)na. ":a(_push, L dpaLf i(;a cts(_pushM_ENINGL,.O(mk.T((;a cts(_newutmp((L, -3);a c} ts(_setM_ENINGL,." oeu");a/*_ "clu)<:(zoot.cD*/tC{':elbeg "DeL dd)n*/ melettS unsignn*/tC/*_isnfmed:Iml,i,c */ m(_ h,(L);atsshift(%0; }tluaperlis.c4400000006635072413473720122117101347352365u]pea jcwu]ers/*DLuxnavsa+PerlcripensX(be*/tC# "clu)l# "clu)l# "clu)l.nlettS _St...)*g_lis; /* fibnnlettS L prnown*/tCXS(XS_perlis_ {0)na. "dXSARGS;atsuv1 items(!,21ttt lacroak("Uath-: perlis:: {0(M_ENIN)");atsa. ":aSTRLEN+_+n;a ctsc, Fu=ePyT *ptr_evSvPV(ST(0),s +nu;a cts(_dobuffLE(g_lis, ptr, v=, NULL);ats} tsXSRETURN_EMPTY; }tC#ifde=_WIN32 __declspec(dl vxport) #a 4-f XS(zoot_perlis)na. "dXSARGS;atsePyT *? L F= __FILE__; tsXS_VERSION_BOOTCHECK; ts(void)nitems; /* unE(pdo*/ mg_lisgevlissys_ mm:();atsnewXS("perlis:: {0", XS_perlis_ {0,s? L ); tsXSRETURN_YES; }tluaREADME440000000663507241347372012246003675141570u]pea jcwu]ers T nvsdir h( *y a cains "Lis")e aD(very slightly) modifinlnce!nzbs ZEX(0 weenisnfto,i)oTc0,sPythos,+Perl, mpe=sobon. GivX(0teb ba(key gow lomLuxnis eSzfacactp...)deploy }, the Luagm:retengine.hu;=beX(0tt-packth-mfineSzb 27.0p(,Ctoources? L . WHAT'S IN A NAME I hav- isniswww.the temp}aew[ii,o de') vmeveryehiaT]"Lis",0c nce y nv would ZEX(0ltim...ly hav- eSzbe carriww.throughflv3, the }/ i API. Fo, the timfzbeiaT]moM_ new]m:e>n- su-- avsa Py esdiffLE }]languth- lithiAss -.hu;=the texto"lia"P. "it. T nvsshould ) x+be reSSHstpdou; p attemp} eSzmisrepsese }=the origins lomLua vs. Lis. DOWNLOADS AND INSTALLATION T nvsnvsworkP. "progresff iSSHa aew[iiiSSHstdnX(boPmpe=docu }aew[i aret) x+yO( av>nbump(,mov1)rt')IZEeeb bivsat the followiaT]URL: uk/f://www.p://www.c/lish tAsngeneral rup(,m"lis-N.M..gz"Dle sourcesm:e>n=elease v3,sX(beN.M, e loe="lis-XYZ..gz"Daretum moM_ rec }]compnbesdrawsp ae024* XYZ. T e sourcesm:e>n=elease "clu)nnvs. "') public=domain. You may mpe=o:pybitcfrereS. T e E sponsibactp raws') lomthi;==='LE7al resi)a ctMissX(beImpossXmp(,5oftwaretTeam tlualissys.h44000000066350724134737201224460135055617u]pea jcwu]ers/*_l,isys.h cngenerawww.a.leIml,isys.h by ooesrc *gpaths:({ -4.0/ "clu)l.C/*_mknrawsa PAPIm(wcZEX(bo */t# fnde=_LUA_APIC#mm=ine.LUA_API ripernC#a 4-f C#mm=ine.LUA_VERSION "u]pS4.0"C#mm=ine.LUA_COPYRIGHT "Copyright (C) 1994-- s0bTeCGraf,=PUC-Rio"C#mm=ine.LUA_AUTHORS "W.Celes, R.zIerusalimschyn& L. H.)de Figueir do"l.C/*_') vmlomg_ENIN vaEN>mp(,,mptoprrorPhmpeler */t#mm=ine.LUA_ERRORMESSAGE "_ERRORMESSAGE"l.C/*_pse-mm=ined]efLE ces */t#mm=ine.LUA_NOREF (-2)t#mm=ine.LUA_REFNIL (-1)t#mm=ine.LUA_REFREGISTRY 0.C/*_pse-mm=ined]legs */t#mm=ine.LUA_ANYTAG (-1)t#mm=ine.LUA_NOTAG (-2)tCC/*_ovid WnrawsmltiEodfshift(sd "Di_ a P*/t#mm=ine.LUA_MULTRET (-1)t.C/*_minimumnnlecknav>nbump(grawsa,Ct(wcZEX(be*/t#mm=ine.LUA_MINSTACK 20t.C/*_prrorPm:e>sdraws(_do* */t#mm=ine.LUA_ERRRUN 1t#mm=ine.LUA_ERRFILE 2t#mm=ine.LUA_ERRSYNTAX 3t#mm=ine.LUA_ERRMEM 4t#mm=ine.LUA_ERRERR 5t.Cmypede=_SHstdn._St...)_St...;.Cmypede=_ "x+(*_CFwcZEX(b) ((_St...)*L); t/* ** mypee tt testo by `(_mype' */t#mm=ine.LUA_TNONE (-1)t.#mm=ine.LUA_TUSERDATA 0.#mm=ine.LUA_TNIL 1.#mm=ine.LUA_TNUMBER 2t#mm=ine.LUA_TSTRING 3t#mm=ine.LUA_TTABLE 4t#mm=ine.LUA_TFUNCTION 5t.Ct/* ** st...)manipu aew[i */tLUA_API _St...)*_ mm:a( "x+nleckc t+); LUA_API void]]]]]]](_ h, ((_St...)*L); tt/* ** basic=nlecknmanipu aew[i */tLUA_API "x+]](_getwop ((_St...)*L); LUA_API void]](_newuop ((_St...)*L,] "x+ithex); LUA_API void]](_push {0uen((_St...)*L,] "x+ithex); LUA_API void]](_eoT ln((_St...)*L,] "x+ithex); LUA_API void]](_euttL ((_St...)*L,] "x+ithex); LUA_API "x+]](_nleckcpacer((_St...)*L); tt/* ** accessm(wcZEX(bo (nleckn-> C) */tCLUA_API "x+]]]]]]]]]]](_mype ((_St...)*L,] "x+ithex); LUA_API c, Fu=ePyT *(_mype') vm((_St...)*L,] "x+t); LUA_API "x+]]]]]]]]]]](_isn L dpi((_St...)*L,] "x+ithex); LUA_API "x+]]]]]]]]]]](_isM_ENIN ((_St...)*L,] "x+ithex); LUA_API "x+]]]]]]]]]]](_isc(wcZEX(beS(_St...)*L,] "x+ithex); LUA_API "x+]]]]]]]]]]](_ eluS(_St...)*L,] "x+ithex); LUA_API "x+]]]]]]]]]]](_p:/IN S(_St...)*L,] "x+ithex1,] "x+ithex2); LUA_API "x+]]]]]]]]]]](_less')IZES(_St...)*L,] "x+ithex1,] "x+ithex2); LUA_API doump(g]]]]]]]](_ on L dpi((_St...)*L,] "x+ithex); LUA_API c, Fu=ePyT *(_moM_ENIN ((_St...)*L,] "x+ithex); LUA_API c t+_tg]]]]]]]](_dal v= ((_St...)*L,] "x+ithex); LUA_API _CFwcZEX(b]](_ oc(wcZEX(beS(_St...)*L,] "x+ithex); LUA_API void% (ou *(_moE(p,>nlTi((_St...)*L,] "x+ithex); LUA_API c, Fu=void]]]]*(_mopoineLEuS(_St...)*L,] "x+ithex); t/* ** pushm(wcZEX(bo (Cn-> nleck) */tLUA_API void]](_push)ilD((_St...)*L); LUA_API void]](_push, L dpuS(_St...)*L,]doump(gn); LUA_API void]](_pushlM_ENIN ((_St...)*L,]c, Fu=ePyT *s, c t+_tg +nu;aLUA_API void]](_pushM_ENIN ((_St...)*L,]c, Fu=ePyT *su;aLUA_API void]](_pushc hurvm((_St...)*L,]_CFwcZEX(b]fn,] "x+nu;aLUA_API void]](_pushE(p, eluS(_St...)*L,]void]*u,] "x+tag); t/* ** getm(wcZEX(bo (u]pS-> nleck) */tLUA_API void]](_getM_ENIN ((_St...)*L,]c, Fu=ePyT *F(z)~;aLUA_API void]](_gewutmp(n((_St...)*L,] "x+ithex); LUA_API void]](_awgetm((_St...)*L,] "x+ithex); LUA_API void]](_awgetim((_St...)*L,] "x+ithex,] "x+nu;aLUA_API void]](_getM_ENINsD((_St...)*L); LUA_API void]](_gewut,ttabodm((_St...)*L,] "x+tag,]c, Fu=ePyT *event); LUA_API "x+]](_gewefm((_St...)*L,] "x+ef); LUA_API void]](_newutmp(r((_St...)*L); tt/* ** setm(wcZEX(bo (nleckn-> u]p) */tLUA_API void]](_setM_ENIN ((_St...)*L,]c, Fu=ePyT *F(z)~;aLUA_API void]](_sewutmp(n((_St...)*L,] "x+ithex); LUA_API void]](_awsetm((_St...)*L,] "x+ithex); LUA_API void]](_awsetim((_St...)*L,] "x+ithex,] "x+nu;aLUA_API void]](_setM_ENINsD((_St...)*L); LUA_API void]](_sewut,ttabodm((_St...)*L,] "x+tag,]c, Fu=ePyT *event); LUA_API "x+]](_efm((_St...)*L,] "x+lock); tt/* ** "do"m(wcZEX(bo (duc(Luagm:de) */tLUA_API "x+]](_ a P((_St...)*L,] "x+napg ,] "x+nisnftoe); LUA_API void]](_aw a P((_St...)*L,] "x+napg ,] "x+nisnftoe); LUA_API "x+]](_do? L F((_St...)*L,]c, Fu=ePyT *? L F(z)~;aLUA_API "x+]](_doM_ENIN ((_St...)*L,]c, Fu=ePyT *str~;aLUA_API "x+]](_dobuffLE ((_St...)*L,]c, Fu=ePyT *buff, c t+_tgs t+,]c, Fu=ePyT *F(z)~;at/* ** Garbage-colleZEX(b]fwcZEX(bo */tLUA_API "x+]](_getgcthisnholdD((_St...)*L); LUA_API "x+]](_getgccou }]((_St...)*L); LUA_API void]](_sewgcthisnholdD((_St...)*L,] "x+newuhisnhold~;at/* ** miscellaneoE(]fwcZEX(bo */tLUA_API "x+]](_newut,D((_St...)*L); LUA_API "x+]](_o:pyut,ttabodsm((_St...)*L,] "x+tagto,] "x+taga.le); LUA_API void]](_sewut,m((_St...)*L,] "x+tag); LUA_API void]](_prrorP((_St...)*L,]c, Fu=ePyT *su;a LUA_API void]](_unefm((_St...)*L,] "x+ef); tLUA_API "x+]](_nex ((_St...)*L,] "x+ithex); LUA_API "x+]](_"#" uS(_St...)*L,] "x+ithex); LUA_API void]](_o:nca ((_St...)*L,] "x+n); LUA_API void]*(_newE(p,>nlTi((_St...)*L,]c t+_tgs t+); tt/* ** =============================================================== ** somemE(pfulnmacros ** =============================================================== */ C#mm=ine.l,a_pop(L,n) (_newuop(L, -(n)-1)t.#mm=ine.(_egi2,3,(L,n,f) ((_pushc(wcZEX(b(L, f),s(_setM_ENINGL,.n))C#mm=ine.l,a_pushE(p,>nlTGL,u) (_pushE(p, elGL,.u,]0)C#mm=ine.l,a_pushc(wcZEX(b(L,f) (_pushc hurv(L, f,]0)C#mm=ine.l,a_clone elGL,t) (_o:pyut,ttabods(L,]_newut, L),s(t))t.#mm=ine.(_is(wcZEX(b(L,n) ((_mype(L,n)(1,2LUA_TFUNCTION).#mm=ine.(_isutmp((L,n) ((_mype(L,n)(1,2LUA_TTABLE).#mm=ine.(_isE(p,>nlTGL,n) ((_mype(L,n)(1,2LUA_TUSERDATA).#mm=ine.(_is)il(L,n) ((_mype(L,n)(1,2LUA_TNIL).#mm=ine.(_is)ull(L,n) ((_mype(L,n)(1,2LUA_TNONE)t.#mm=ine.(_gewegi2,ry L) (_gewef(L,]LUA_REFREGISTRY)tC#a 4-f tt/****************************************************************************** * Copyright (C) 1994-- s0bTeCGraf,=PUC-Rio. A Prighte tt(p,v