diff --git a/Makefile b/Makefile index 2d78f03d9..c50e79b10 100644 --- a/Makefile +++ b/Makefile @@ -1,4 +1,36 @@ -BUILDDIR = /tmp/obj +# ======================================================================= # +# ACK CONFIGURATION # +# (Edit this before building) # +# ======================================================================= # + +# What platform to build for by default? + +DEFAULT_PLATFORM = pc86 + +# Where should the ACK put its temporary files? + +ACK_TEMP_DIR = /tmp + +# Where is the ACK going to be installed, eventually? + +PREFIX = /usr/local + +# Where do you want to put the object files used when building? + +BUILDDIR = $(ACK_TEMP_DIR)/ack-build + +# What build flags do you want to use? + +CFLAGS = -g +LDFLAGS = -s + +# ======================================================================= # +# END OF CONFIGURATION # +# ======================================================================= # +# +# You shouldn't need to change anything below this point unless you are +# actually developing ACK. + OBJDIR = $(BUILDDIR)/obj BINDIR = $(BUILDDIR)/bin LIBDIR = $(BUILDDIR)/lib @@ -15,13 +47,12 @@ CP = cp hide = @ -CFLAGS = \ - -g \ +CFLAGS += \ -I$(INCDIR) \ -Imodules/h \ -Ih -LDFLAGS = +LDFLAGS += all: installables @@ -81,6 +112,11 @@ include plat/linux68k/build.mk .PHONY: installables installables: $(INSTALLABLES) +.PHONY: install +install: installables + @echo INSTALLING into $(PREFIX) + $(hide) tar cf - -C $(INSDIR) . | tar xvf - -C $(PREFIX) + .PHONY: clean clean: @echo CLEAN @@ -90,15 +126,15 @@ $(INCDIR)/local.h: @echo LOCAL @mkdir -p $(dir $@) $(hide) echo '#define VERSION 3' > $@ - $(hide) echo '#define ACKM "pc86"' >> $@ + $(hide) echo '#define ACKM "$(DEFAULT_PLATFORM)"' >> $@ $(hide) echo '#define BIGMACHINE 1' >> $@ $(hide) echo '#define SYS_5' >> $@ $(INCDIR)/em_path.h: @echo EM_PATH @mkdir -p $(dir $@) - $(hide) echo '#define TMP_DIR "/tmp"' > $@ - $(hide) echo '#define EM_DIR "/tmp/obj/staging"' >> $@ + $(hide) echo '#define TMP_DIR "$(ACK_TEMP_DIR)"' > $@ + $(hide) echo '#define EM_DIR "$(PREFIX)"' >> $@ $(hide) echo '#define ACK_PATH "share/ack/descr"' >> $@ -include $(DEPENDS) diff --git a/README b/README index 956623d1e..d6a56b050 100644 --- a/README +++ b/README @@ -1,8 +1,8 @@ - THE AMSTERDAM COMPILER KIT V6.0pre4 + THE AMSTERDAM COMPILER KIT V6.0pre5 =================================== © 1987-2005 Vrije Universiteit, Amsterdam - 2010-08-08 + 2013-05-15 INTRODUCTION @@ -24,59 +24,58 @@ SUPPORT Languages: -ANSI C, Pascal, Modula 2. K&R is supported via the ANSI C compiler. +ANSI C, Pascal, Modula 2, Basic. K&R is supported via the ANSI C compiler. Platforms: pc86 produces bootable floppy disk images for 8086 PCs linux386 produces ELF executables for PC Linux systems +linux68k produces ELF executables for m68020 Linux systems cpm produces i80 CP/M .COM files INSTALLATION ============ -The version 6.0 build mechanism has been completely rewritten and is based -around the Prime Mover build tool (see http://primemover.sf.net for more -information). Installation ought to be fairly straightforward. +The version 5.0 build mechanism has been completely rewritten. Installation +ought to be fairly straightforward. Requirements: -- an ANSI C compiler. Currently, I'm afraid, it's hard-coded to use gcc. - To change, try changing the variable definitions in first/c.pm. This also - needs to be available as 'cc' from the shell. - -- about 20MB free in /tmp (or some other temporary directory). +- an ANSI C compiler. This defaults to gcc. You can change this by setting + the CC make variable. + +- about 40MB free in /tmp (or some other temporary directory). - about 6MB in the target directory. Instructions: -- edit config.pm. There's a small section at the top containing some editable - variables. Probably the only one you may want to edit is PREFIX, which - changes where the ACK installs to. - +- edit the Makefile. There's a small section at the top where you can change + the configuration. Probably the only one you may want to edit is PREFIX, + which changes where the ACK installs to. + - Run: - ./pm configure - - ...from the command line. This will write out a configuration file. - + make + + ...from the command line. This will do the build. + + The make system is fully parallelisable. If you have a multicore system, + you probably want to do: + + make -j8 + + ...instead (substituting the right number of cores, of course). You can + also shave a few seconds of the build time by using the -r flag. + - Run: - ./pm - - ...from the command line. This will actually do the build. This takes - about two minutes on my 1.6GHz Athlon Linux machine and about 30 on my - 166MHz Pentium OpenBSD machine. - -- Run: + sudo make install + + ...from the command line. This will install the ACK in your PREFIX + directory (by default, /usr/local). - ./pm install - - ...from the command line (possibly with sudo). This will install the built - ACK into whatever directory you nominated in PREFIX. - The ACK should now be ready to use. @@ -94,8 +93,9 @@ Some useful options include: -o specifies the output file -c produce a .o file -c.s produce a .s assembly file - -O enable optimisation + -O enable optimisation (optimisation levels go up to 6) -ansi compile ANSI C (when using the C compiler) + -v be more verbose (repeatable) build file ack figures out which language to use from the file extension: @@ -107,6 +107,7 @@ ack figures out which language to use from the file extension: .p Pascal .o object files .s assembly files + .e ACK intermediate code assembly files For further information, see the man page (which actually does get installed, but is rather out of date). @@ -117,6 +118,7 @@ A sample command line is: ack -mlinux386 -O examples/paranoia.c + GOTCHAS ======= @@ -163,8 +165,4 @@ Please enjoy. David Given (dtrg on Sourceforge) dg@cowlark.com -2010-08-08 - -# $Source$ -# $State$ -# $Revision$ +2013-05-13 diff --git a/mach/proto/ncg/build.mk b/mach/proto/ncg/build.mk index 4494a8905..1bbda2b49 100644 --- a/mach/proto/ncg/build.mk +++ b/mach/proto/ncg/build.mk @@ -23,7 +23,7 @@ $(call cfile, mach/proto/ncg/subr.c) $(call cfile, mach/proto/ncg/var.c) $(eval $q: $(OBJDIR)/$D/tables.h) -$(eval CLEANABLES += $(OBJDIR)/$D/tables.h $(OBJDIR)/$D/table.c) +$(eval CLEANABLES += $(OBJDIR)/$D/tables.h $(OBJDIR)/$D/tables.c) $(OBJDIR)/$D/tables.c: $(OBJDIR)/$D/tables.h $(OBJDIR)/$D/tables.h: $(NCGG) $(CPPANSI) mach/$(ARCH)/ncg/table @echo NCGG $$@ diff --git a/pm b/pm deleted file mode 100755 index 23560e2c6..000000000 --- a/pm +++ /dev/null @@ -1,5669 +0,0 @@ -#!/bin/sh -# Prime Mover -# -# (C) 2006 David Given. -# Prime Mover is licensed under the MIT open source license. To get the full -# license text, run this file with the '--license' option. -# -# $Id: shell 52 2006-10-03 22:12:33Z dtrg $ - -if [ -x "$(which arch 2>/dev/null)" ]; then - ARCH="$(arch)" -elif [ -x "$(which machine 2>/dev/null)" ]; then - ARCH="$(machine)" -elif [ -x "$(which uname 2>/dev/null)" ]; then - ARCH="$(uname -m)" -else - echo "pm: unable to determine target type, proceeding anyway" - ARCH=unknown -fi - -THISFILE="$0" -PMEXEC="./.pm-exec-$ARCH" -set -e - -GZFILE=/tmp/pm-$$.gz -CFILE=/tmp/pm-$$.c -trap "rm -f $GZFILE $CFILE" EXIT - -extract_section() { - sed -e "1,/^XXXXSTART$1/d" "$THISFILE" | ( - read size - dd bs=1 count=$size 2> /dev/null - ) > $GZFILE - cat $GZFILE | cat -} - -# If the bootstrap's built, run it. - -if [ "$PMEXEC" -nt $0 ]; then - extract_section script | "$PMEXEC" /dev/stdin "$@" - exit $? -fi - -# Otherwise, compile it and restart. - -echo "pm: bootstrapping..." - -if [ -x "$(which gcc 2>/dev/null)" ]; then - CC="gcc -O -s" -else - CC="cc" -fi - -extract_section interpreter > /tmp/pm-$$.c -$CC $CFILE -o "$PMEXEC" && exec "$THISFILE" "$@" - -echo "pm: bootstrap failed." -exit 1 - -XXXXSTARTscript -38405 -#!/usr/bin/lua --- Prime Mover --- --- © 2006 David Given. --- Prime Mover is licensed under the MIT open source license. Search --- for 'MIT' in this file to find the full license text. --- --- $Id: pm 93 2007-02-24 21:20:53Z dtrg $ - --- ======================================================================= -- --- GLOBALS -- --- ======================================================================= -- - -local VERSION = "0.1.1" - --- Fast versions of useful system variables. - -local stdin = io.stdin -local stdout = io.stdout -local stderr = io.stderr - -local string_find = string.find -local string_gsub = string.gsub -local string_sub = string.sub -local string_byte = string.byte - -local table_insert = table.insert -local table_getn = table.getn -local table_concat = table.concat - -local posix_stat = posix.stat -local posix_readlink = posix.readlink -local posix_unlink = posix.unlink -local posix_rmdir = posix.rmdir - -local os_time = os.time - -local _G = _G -local _ - --- Option settings. - -local delete_output_files_on_error = true -local purge_intermediate_cache = false -local no_execute = false -local input_files = {} -local targets = {} -intermediate_cache_dir = ".pm-cache/" -verbose = false -quiet = false - --- Application globals. - -local sandbox = {} -local scope = {object=sandbox, next=nil} -local intermediate_cache = {} -local intermediate_cache_count = 0 -local buildstages = 0 - --- Atoms. - -local PARENT = {} -local EMPTY = {} -local REDIRECT = {} - --- Exported symbols (set to dummy values). - -message = 0 -filetime = 0 -filetouch = 0 -install = 0 -rendertable = 0 -stringmodifier = {} - -setmetatable(_G, {__newindex = function(t, key, value) - error("Attempt to write to new global "..key) -end}) - --- ======================================================================= -- --- UTILITIES -- --- ======================================================================= -- - -local function message(...) - stderr:write("pm: ") - stderr:write(unpack(arg)) - stderr:write("\n") -end -_G.message = message - -local function usererror(...) - stderr:write("pm: ") - stderr:write(unpack(arg)) - stderr:write("\n") - os.exit(1) -end - -local function traceoutput(...) - stdout:write(unpack(arg)) - stdout:write("\n") -end - -local function assert(message, result, e) - if result then - return result - end - - if (type(message) == "string") then - message = {message} - end - - table.insert(message, ": ") - table.insert(message, e) - usererror(unpack(message)) -end - --- Concatenates the contents of its arguments to the specified table. --- (Numeric indices only.) - -local function table_append(t, ...) - for _, i in ipairs(arg) do - if (type(i) == "table") then - for _, j in ipairs(i) do - table_insert(t, j) - end - else - table_insert(t, i) - end - end -end - --- Merge the contents of its arguments to the specified table. --- (Name indices. Will break on numeric indices.) - -local function table_merge(t, ...) - for _, i in ipairs(arg) do - for j, k in pairs(i) do - t[j] = k - end - end -end - --- Turn a list of strings into a single quoted string. - -function rendertable(i) - if (type(i) == "string") or (type(i) == "number") then - return i - end - - if (i == nil) or (i == EMPTY) then - return "" - end - - local t = {} - for _, j in ipairs(i) do - local r = string_gsub(j, "\\", "\\\\") - r = string_gsub(r, '"', '\\"') - table_insert(t, r) - end - return '"'..table_concat(t, '" "')..'"' -end -local rendertable = rendertable - --- Returns just the directory part of a path. - -local function dirname(f) - local f, n = string_gsub(f, "/[^/]*$", "") - if (n == 0) then - return "." - end - return f -end -posix.dirname = dirname - --- Makes an absolute path. - -local function absname(f) - if string.find(f, "^/") then - return f - end - - return posix.getcwd().."/"..f -end -posix.absname = absname - --- Copies a file. - -local function copy(src, dest) - local s = string_gsub(src, "'", "'\"'\"'") - local d = string_gsub(dest, "'", "'\"'\"'") - local r = os.execute("cp '"..s.."' '"..d.."'") - if (r ~= 0) then - return nil, "unable to copy file" - end - return 0, nil -end -posix.copy = copy - --- Makes all directories that contain f - -local function mkcontainerdir(f) - f = dirname(f) - if not posix_stat(f, "type") then - mkcontainerdir(f) - local r = posix.mkdir(f) - if not r then - usererror("unable to create directory '"..f.."'") - end - end -end - --- Install a file (suitable as a command list entry). - -local function do_install(self, src, dest) - src = absname(self:__expand(src)) - dest = absname(self:__expand(dest)) - if verbose then - message("installing '", src, "' --> '", dest, "'") - end - - mkcontainerdir(dest) - local f, e = posix.symlink(src, dest) - if f then - return - end - - if (e ~= nil) then - f, e = posix.unlink(dest) - if f then - f, e = posix.symlink(src, dest) - if f then - return - end - end - end - - self:__error("couldn't install '", src, "' to '", dest, - "': ", e) -end - -function install(src, dest) - return function(self, inputs, outputs) - local src = src - local dest = dest - - if (dest == nil) then - dest = src - src = outputs[1] - end - if (type(src) ~= "string") then - self:__error("pm.install needs a string or an object for an input") - end - if (type(dest) ~= "string") then - self:__error("pm.install needs a string for a destination") - end - return do_install(self, src, dest) - end -end - --- Perform an error traceback. - -local function traceback(e) - local i = 1 - while true do - local t = debug.getinfo(i) - if not t then - break - end - if (t.short_src ~= "stdin") and (t.short_src ~= "[C]") then - if (t.currentline == -1) then - t.currentline = "" - end - message(" ", t.short_src, ":", t.currentline) - end - i = i + 1 - end - - e = string_gsub(e, "^stdin:[0-9]*: ", "") - usererror("error: ", e) -end - --- ======================================================================= -- --- CACHE MANAGEMENT -- --- ======================================================================= -- - -local statted_files = {} -local function clear_stat_cache() - statted_files = {} -end - --- Returns the timestamp of a file, or 0 if it doesn't exist. - -local statted_files = {} -local function filetime(f) - local t = statted_files[f] - if t then - return t - end - - -- Stupid BeOS doesn't dereference symlinks on stat(). - - local realf = f - while true do - local newf, e = posix_readlink(realf) - if e then - break - end - realf = newf - end - - t = posix_stat(realf, "mtime") or 0 - statted_files[f] = t - return t -end -_G.filetime = filetime - --- Pretends to touch a file by manipulating the stat cache. - -local function filetouch(f) - if (type(f) == "string") then - f = {f} - end - - local t = os_time() - for _, i in ipairs(f) do - statted_files[i] = t - end -end -_G.filetouch = filetouch - -local function create_intermediate_cache() - local d = dirname(intermediate_cache_dir) - if not quiet then - message("creating new intermediate file cache in '"..d.."'") - end - - -- Attempt to wipe the old cache directory. - - local f = posix.files(d) - if not f then - -- The directory doesn't exist, so create it. - - mkcontainerdir(d) - f = posix.mkdir(d) - if not f then - usererror("unable to create intermediate file cache directory") - end - else - -- The directory exists. Delete all files in it recursively. - - local function rmdir(root) - local f = posix.files(root) - if not f then - return - end - - for i in f do - if ((i ~= ".") and (i ~= "..")) then - local fn = root.."/"..i - local t = posix_stat(fn, "type") - if (t == "regular") then - if not posix_unlink(fn) then - usererror("unable to purge intermediate file cache directory") - end - elseif (t == "directory") then - rmdir(fn) - posix_rmdir(fn) - end - end - end - end - - rmdir(d) - end -end - -local function save_intermediate_cache() - local fn = intermediate_cache_dir.."index" - local f = io.open(fn, "w") - if not f then - usererror("unable to save intermediate cache index file '", fn, "'") - end - - f:write(intermediate_cache_count, "\n") - for i, j in pairs(intermediate_cache) do - f:write(i, "\n") - f:write(j, "\n") - end - - f:close() -end - -local function load_intermediate_cache() - local fn = intermediate_cache_dir.."index" - local f = io.open(fn, "r") - if not f then - create_intermediate_cache() - return - end - - intermediate_cache_count = f:read("*l") - while true do - local l1 = f:read("*l") - local l2 = f:read("*l") - - if (l1 == nil) or (l2 == nil) then - break - end - - intermediate_cache[l1] = l2 - end - - f:close() -end - -local function create_intermediate_cache_key(key) - local u = intermediate_cache[key] - if not u then - intermediate_cache_count = intermediate_cache_count + 1 - u = intermediate_cache_count - intermediate_cache[key] = u - save_intermediate_cache() - end - - return u -end - --- ======================================================================= -- --- STRING MODIFIERS -- --- ======================================================================= -- - -function stringmodifier.dirname(self, s) - if (type(s) == "table") then - if (table_getn(s) == 1) then - s = s[1] - else - self:__error("tried to use string modifier 'dirname' on a table with more than one entry") - end - end - - return dirname(s) -end - --- ======================================================================= -- --- CLASS SYSTEM -- --- ======================================================================= -- - ---- Base class -------------------------------------------------------------- - -local metaclass = { - class = "metaclass", - - -- Creates a new instance of a class by creating a new object and cloning - -- all properties of the called class onto it. - - __call = function (self, ...) - local o = {} - for i, j in pairs(self) do - o[i] = j - end - setmetatable(o, o) - - -- Determine where this object was defined. - - local i = 1 - while true do - local s = debug.getinfo(i, "Sl") - if s then - if (string_byte(s.source) == 64) then - o.definedat = string_sub(s.source, 2)..":"..s.currentline - end - else - break - end - i = i + 1 - end - - -- Call the object's constructor and return it. - - o:__init(unpack(arg)) - return o - end, - - -- Dummy constructor. - - __init = function (self, ...) - end, -} -setmetatable(metaclass, metaclass) - ---- Top-level build node ---------------------------------------------------- - -local node = metaclass() -node.class = "node" - --- When constructed, nodes initialise themselves from a supplied table of --- properties. All node children take exactly one argument, allowing the --- "constructor {properties}" construction pattern. - -function node:__init(t) - metaclass.__init(self) - - if (type(t) == "string") then - t = {t} - end - if (type(t) ~= "table") then - self:__error("can't be constructed with a ", type(t), "; try a table or a string") - end - - -- Copy over non-numeric parameters. - - for i, j in pairs(t) do - if (tonumber(i) == nil) then - self[i] = j - end - end - - -- Copy any numeric parameters. - - for _, i in ipairs(t) do - table_insert(self, i) - end - - -- If we're a class, don't verify. - - if t.class then - return - end - - -- ensure_n_children - -- When true, ensures that the node has exactly the number of children - -- specified. - - if self.ensure_n_children then - local n = self.ensure_n_children - if (table.getn(self) ~= n) then - local one - if (n == 1) then - one = "one child" - else - one = n.." children" - end - self:_error("must have exactly ", one) - end - end - - -- ensure_at_least_one_child - -- When true, ensures the the node has at least one child. - - if self.ensure_at_least_one_child then - if (table_getn(self) < 1) then - self:__error("must have at least one child") - end - end - - -- construct_string_children_with - -- If set, any string children are automatically converted using the - -- specified constructor. - - if self.construct_string_children_with then - local constructor = self.construct_string_children_with - for i, j in ipairs(self) do - if (type(j) == "string") then - self[i] = constructor {j} - end - end - end - - -- all_children_are_objects - -- When true, verifies that all children are objects and not something - -- else (such as strings). - - if self.all_children_are_objects then - for i, j in ipairs(self) do - if (type(j) ~= "table") then - self:__error("doesn't know what to do with child ", i, - ", which is a ", type(j)) - end - end - end - - -- Ensure that self.install is valid. - - if self.install then - local t = type(self.install) - if (t == "string") or - (t == "function") then - self.install = {self.install} - end - - if (type(self.install) ~= "table") then - self:__error("doesn't know what to do with its installation command, ", - "which is a ", type(self.install), " but should be a table, function ", - "or string") - end - end -end - --- If an attempt is made to access a variable on a node that doesn't exist, --- and the variable starts with a capital letter, it's looked up in the --- property scope. - -function node:__index(key) - local i = string_byte(key, 1) - if (i >= 65) and (i <= 90) then - -- Scan up the class hierarchy. - - local recurse - recurse = function(s, key) - if not s then - return nil - end - local o = rawget(s.object, key) - if o then - if (type(o) == "table") then - - -- Handle lists of the form {PARENT, "foo", "bar"...} - if (o[1] == PARENT) then - local parent = recurse(s.next, key) - local newo = {} - - if parent then - if (type(parent) ~= "table") then - parent = {parent} - end - for _, j in ipairs(parent) do - table_insert(newo, j) - end - end - for _, j in ipairs(o) do - if (j ~= PARENT) then - table_insert(newo, j) - end - end - return newo - - -- Handle lists of the form {REDIRECT, "newkey"} - elseif (o[1] == REDIRECT) then - return self:__index(o[2]) - end - end - return o - end - -- Tail recursion. - return recurse(s.next, key) - end - - -- We want this node looked at first, so fake up a scope entry for it. - local fakescope = { - next = scope, - object = self - } - - -- Tail recursion. - return recurse(fakescope, key) - end - - -- For local properties, just return what's here. - return rawget(self, key) -end - --- Little utility that emits an error message. - -function node:__error(...) - usererror("object '", self.class, "', defined at ", - self.definedat, ", ", unpack(arg)) -end - --- Causes a node to return its outputs; that is, the files the node will --- produce when built. The parameter contains a list of input filenames; the --- outputs of the node's children. - -function node:__outputs(inputs) - self:__error("didn't implement __outputs when it should have") -end - --- Causes a node to return its dependencies; that is, a list of *filenames* --- whose timestamps need to be considered when checking whether a node needs --- to be rebuilt. This is usually, but not always, the same as the inputs. - -function node:__dependencies(inputs, outputs) - return inputs -end - --- Returns the node's timestamp. It will only get built if this is older than its --- children's timestamps. - -function node:__timestamp(inputs, outputs) - local t = 0 - for _, i in ipairs(outputs) do - local tt = filetime(i) - if (tt > t) then - t = tt - end - end - return t -end - --- Unconditionally builds the nodes' children, collating their outputs. We --- push a new scope while we do so, to make this object's definitions visible --- to the children. (Almost never overridden. Only file() will want to do --- this, most likely.) - -function node:__buildchildren() - local inputs = {} - scope = {object=self, next=scope} - - for _, i in ipairs(self) do - table_append(inputs, i:__build()) - end - self:__buildadditionalchildren() - scope = scope.next - return inputs -end - --- Provides a hook for building any additional children that aren't actually --- in the child list. - -function node:__buildadditionalchildren() -end - --- Cause the node's children to be built, collating their outputs, and if --- any output is newer than the node itself, causes the node to be built. - -function node:__build() - -- Build children and collate their outputs. These will become this node's - -- inputs. - - local inputs = self:__buildchildren() - - -- Determine the node's outputs. This will usually be automatically - -- generated, in which case the name will depend on the overall environment --- - -- including the inputs. - - local outputs = self:__outputs(inputs) - - -- Get the current node's timestamp. If anything this node depends on is - -- newer than that, the node needs rebuilding. - - local t = self:__timestamp(inputs, outputs) - local depends = self:__dependencies(inputs, outputs) - local rebuild = false - - if (t == 0) then - rebuild = true - end - - if (not rebuild and depends) then - for _, i in ipairs(depends) do - local tt = filetime(i) --- message("comparing ", t, " with ", tt, " (", rendertable({i}), ")") - if (tt > t) then - if verbose then - message("rebuilding ", self.class, " because ", i, " newer than ", rendertable(outputs)) - end - rebuild = true - break - end - end - end - - if rebuild then - self:__dobuild(inputs, outputs) - filetouch(outputs) - end - - -- If an installation command was specified, execute it now. - - if self.install then - self:__invoke(self.install, inputs, outputs) - end - - -- And return this nodes' outputs. - - return outputs -end - --- Builds this node from the specified input files (the node's childrens' --- outputs). - -function node:__dobuild(inputs, outputs) - self:__error("didn't implement __dobuild when it should have") -end - --- Recursively expands any variables in a string. - -function node:__expand(s) - local searching = true - while searching do - searching = false - - -- Expand %{expressions}% - - s = string_gsub(s, "%%{(.-)}%%", function (expr) - searching = true - - local f, e = loadstring(expr, "expression") - if not f then - self:__error("couldn't compile the expression '", expr, "': ", e) - end - - local env = {self=self} - setmetatable(env, { - __index = function(_, key) - return sandbox[key] - end - }) - setfenv(f, env) - - f, e = pcall(f, self) - if not f then - self:__error("couldn't evaluate the expression '", expr, "': ", e) - end - - return rendertable(e) - end) - - -- Expand %varnames% - - s = string_gsub(s, "%%(.-)%%", function (varname) - searching = true - - -- Parse the string reference. - - local _, _, leftcolon, rightcolon = string_find(varname, "([^:]*):?(.*)$") - local _, _, varname, selectfrom, hyphen, selectto = string_find(leftcolon, "^([^[]*)%[?([^-%]]*)(%-?)([^%]]*)]?$") - - -- Get the basic value that the rest of the reference is going to - -- depend on. - - local result = self:__index(varname) - if not result then - self:__error("doesn't understand variable '", varname, "'") - end - - -- Process any selector, if specified. - - if (selectfrom ~= "") or (hyphen ~= "") or (selectto ~= "") then - if (type(result) ~= "table") then - self:__error("tried to use a [] selector on variable '", varname, - "', which doesn't contain a table") - end - local n = table_getn(result) - - selectfrom = tonumber(selectfrom) - selectto = tonumber(selectto) - - if (hyphen ~= "") then - if not selectfrom then - selectfrom = 1 - end - if not selectto then - selectto = n - end - else - if not selectto then - selectto = selectfrom - end - if not selectfrom then - self:__error("tried to use an empty selector on variable '", varname, "'") - end - end - - if (selectfrom < 1) or (selectto < 1) or - (selectfrom > n) or (selectto > n) or - (selectto < selectfrom) then - self:__error("tried to use an invalid selector [", - selectfrom, "-", selectto, "] on variable '", varname, - "'; only [1-", n, "] is valid") - end - - local newresult = {} - for i = selectfrom, selectto do - table_insert(newresult, result[i]) - end - result = newresult - end - - -- Process any string modifier, if supplied. - - if (rightcolon ~= "") then - local f = stringmodifier[rightcolon] - if not f then - self:__error("tried to use an unknown string modifier '", - rightcolon, "' on variable '", varname, "'") - end - - result = f(self, result) - end - - return rendertable(result) - end) - end - - -- Any remaining %% sequences must be empty, and so convert them into - -- single % sequences. - - s = string_gsub(s, "%%%%", "%") - return s -end - --- Expands any variables in a command table, and executes it. - -function node:__invoke(command, inputs, outputs) - if (type(command) ~= "table") then - command = {command} - end - - for _, s in ipairs(command) do - if (type(s) == "string") then - s = self:__expand(s) - if not quiet then - traceoutput(s) - end - if not no_execute then - local r = os.execute(s) - if (r ~= 0) then - return r - end - end - elseif (type(s) == "function") then - local r = s(self, inputs, outputs) - if r then - return r - end - end - end - return false -end - --- ======================================================================= -- --- PROLOGUE -- --- ======================================================================= -- - --- The prologue contains the standard library that all pmfiles can refer to. --- For simplicity, it's implemented by code running inside the sandbox, --- which means that it's basically identical to user code (and could, in --- fact, be kept in a seperate file). - --- Here we set up the sandbox. - -table_merge(sandbox, { - VERSION = VERSION, - - assert = assert, - collectgarbage = collectgarbage, - dofile = dofile, - error = error, - getfenv = getfenv, - getmetatable = getmetatable, - gcinfo = gcinfo, - ipairs = ipairs, - loadfile = loadfile, - loadlib = loadlib, - loadstring = loadstring, - next = next, - pairs = pairs, - pcall = pcall, - print = print, - rawequal = rawequal, - rawget = rawget, - rawset = rawset, - require = require, - setfenv = setfenv, - setmetatable = setmetatable, - tonumber = tonumber, - tostring = tostring, - type = type, - unpack = unpack, - _VERSION = _VERSION, - xpcall = xpcall, - - table = table, - io = io, - os = os, - posix = posix, - string = string, - debug = debug, - loadlib = loadlib, - - pm = _G, - node = node, - - PARENT = PARENT, - EMPTY = EMPTY, - REDIRECT = REDIRECT, -}) - --- Cause any reads from undefined keys in the sandbox to fail with an error. --- This helps debugging pmfiles somewhat. - -setmetatable(sandbox, { - __index = function(self, key) - local value = rawget(self, key) - if (value == nil) then - error(key.." could not be found in any applicable scope") - end - return value - end -}) - --- Switch into sandbox mode. - -setfenv(1, sandbox) - ---- Assorted utilities ------------------------------------------------------ - --- Includes a file. - -function include(f, ...) - local c, e = loadfile(f) - if not c then - usererror("script compilation error: ", e) - end - - setfenv(c, sandbox) - local arguments = arg - xpcall( - function() - c(unpack(arguments)) - end, - function(e) - message("script execution error --- traceback follows:") - traceback(e) - end - ) -end - ---- file -------------------------------------------------------------------- - --- file() is pretty much the simplest clause. It takes a list of filenames, --- and outputs them. --- --- * Building does nothing. --- * Its outputs are its inputs. --- --- Note: this clause only takes *strings* as its children. If a reference is --- made to a file that doesn't exist, an error occurs. - -file = node { - class = "file", - ensure_at_least_one_child = true, - - __init = function(self, p) - node.__init(self, p) - - -- If we're a class, don't verify. - - if ((type(p) == "table") and p.class) then - return - end - - -- Ensure that the file's children are strings. - - for i, j in ipairs(self) do - if (type(j) ~= "string") then - self:__error("doesn't know what to do with child ", i, - ", which is a ", type(j)) - end - end - end, - - -- File's timestamp is special and will bail if it meets a nonexistant file. - - __timestamp = function(self, inputs, outputs) - local t = 0 - for _, i in ipairs(outputs) do - i = self:__expand(i) - local tt = filetime(i) - if (tt == 0) then - self:__error("is referring to the file '", i, "' which does not exist") - end - if (tt > t) then - t = tt - end - end - return t - end, - - -- Outputs are inputs. - - __outputs = function(self, inputs) - local o = {} - local n - if self.only_n_children_are_outputs then - n = self.only_n_children_are_outputs - else - n = table_getn(inputs) - end - - for i = 1, n do - o[i] = inputs[i] - end - - return o - end, - - -- Building children does nothing; outputs are inputs. - - __buildchildren = function(self) - local outputs = {} - table_append(outputs, self) - return outputs - end, - - -- Building does nothing. - - __dobuild = function(self, inputs, outputs) - end, -} - ---- group ------------------------------------------------------------------- - --- group() is also the simplest clause. It does nothing, existing only to --- group together its children. - -group = node { - class = "group", - - -- Outputs are inputs. - - __outputs = function(self, inputs) - return inputs - end, - - -- Building does nothing. - - __dobuild = function(self, inputs, outputs) - end, -} - ---- deponly ----------------------------------------------------------------- - --- deponly() is the one-and-a-halfth most simplest clause. It acts like --- group {}, but returns no outputs. It's useful for ensuring that building --- one node causes another node to be built without actually using the --- second node's outputs. - -deponly = node { - class = "deponly", - ensure_at_least_one_child = true, - - -- Emits no outputs - - __outputs = function(self, inputs) - return {} - end, - - -- Building does nothing. - - __dobuild = function(self, inputs, outputs) - end, -} - ---- ith --------------------------------------------------------------------- - --- ith() is the second simplest clause. It acts like group {}, but returns --- only some of the specified output. It is suitable for extracting, say, --- one output from a clause to pass to cfile {}. - -ith = node { - class = "ith", - ensure_at_least_one_child = true, - - __init = function(self, p) - node.__init(self, p) - - -- If we're a class, don't verify. - - if ((type(p) == "table") and p.class) then - return - end - - -- If we have an i property, ensure we don't have a from or - -- to property. - - if self.i then - if self.from or self.to then - self:__error("can't have both an i property and a from or to property") - end - - if (type(self.i) ~= "number") then - self:__error("doesn't know what to do with its i property, ", - "which is a ", type(self.i), " where a number was expected") - end - - self.from = self.i - self.to = self.i - end - - -- Ensure the from and to properties are numbers, if they exist. - - if self.from then - if (type(self.from) ~= "number") then - self:__error("doesn't know what to do with its from property, ", - "which is a ", type(self.from), " where a number was expected") - end - end - - if self.to then - if (type(self.to) ~= "number") then - self:__error("doesn't know what to do with its to property, ", - "which is a ", type(self.to), " where a number was expected") - end - end - end, - - -- Emits one output, which is one of the inputs. - - __outputs = function(self, inputs) - local n = table_getn(inputs) - local from = self.from or 1 - local to = self.to or n - - if (from < 1) or (to > n) then - self:__error("tried to select range ", from, " to ", to, - " from only ", n, " inputs") - end - - local range = {} - for i = from, to do - table_append(range, inputs[i]) - end - return range - end, - - -- Building does nothing. - - __dobuild = function(self, inputs, outputs) - end, -} - - ---- foreach ----------------------------------------------------------------- - --- foreach {} is the counterpart to ith {}. It applies a particular rule to --- all of its children. - -foreach = node { - class = "foreach", - - __init = function(self, p) - node.__init(self, p) - - -- If we're a class, don't verify. - - if ((type(p) == "table") and p.class) then - return - end - - -- Ensure we have a rule property which is a table. - - if not self.rule then - self:__error("must have a rule property") - end - if (type(self.rule) ~= "table") then - self:__error("doesn't know what to do with its rule property, ", - "which is a ", type(self.rule), " where a table was expected") - end - end, - - -- Build all our children via the rule. - -- - -- This is pretty much a copy of node.__buildchildren(). - - __buildchildren = function(self) - scope = {object=self, next=scope} - - local intermediate = {} - for _, i in ipairs(self) do - table_append(intermediate, i:__build()) - end - - local inputs = {} - for _, i in ipairs(intermediate) do - local r = self.rule { i } - table_append(inputs, r:__build()) - end - - self:__buildadditionalchildren() - scope = scope.next - return inputs - end, - - -- Inputs are outputs --- because __buildchildren has already done the - -- necessary work. - - __outputs = function(self, inputs) - return inputs - end, - - -- Building does nothing. - - __dobuild = function(self, inputs, outputs) - end, -} - ---- Simple --------------------------------------------------------------- - --- simple is the most common clause, and implements make-like behaviour: --- the named command is executed in order to rebuild the node. --- --- * The timestamp is the newest timestamp of its outputs. --- * Building executes the command. --- * Its outputs are automatically generated by expanding the templates --- in the 'outputs' variable. - -simple = node { - class = "file", - construct_string_children_with = file, - all_children_are_objects = true, - - __init = function(self, p) - node.__init(self, p) - - -- If we're a class, don't verify. - - if ((type(p) == "table") and p.class) then - return - end - - -- outputs must exist, and must be a table. - - if not self.outputs then - self:__error("must have an outputs template set") - end - - if (type(self.outputs) ~= "table") then - self:__error("doesn't know what to do with its outputs, which is a ", - type(self.outputs), " but should be a table") - end - - -- There must be a command which must be a string or table. - - if not self.command then - self:__error("must have a command specified") - end - if (type(self.command) == "string") then - self.command = {self.command} - end - if (type(self.command) ~= "table") then - self:__error("doesn't know what to do with its command, which is a ", - type(self.command), " but should be a string or a table") - end - end, - - -- Outputs are specified manually. - - __outputs = function(self, inputs) - self["in"] = inputs - - local input - if inputs then - input = inputs[1] - end - if not input then - input = "" - end - - self.I = string_gsub(input, "^.*/", "") - self.I = string_gsub(self.I, "%..-$", "") - - -- Construct an outputs array for use in the cache key. This mirrors - -- what the final array will be, but the unique ID is going to be 0. - - self.out = {} - self.U = 0 - for _, i in ipairs(self.outputs) do - i = self:__expand(i) - table_append(self.out, i) - end - - -- Determine the cache key we're going to use. - - local cachekey = table_concat(self.command, " && ") - cachekey = self:__expand(cachekey) - cachekey = create_intermediate_cache_key(cachekey) - - -- Work out the unique ID. - -- - -- Note: we're running in the sandbox, so we need to fully qualify - -- pm.intermediate_cache_dir. - - self.U = pm.intermediate_cache_dir..cachekey - - -- Construct the real outputs array. - - self.out = {} - for _, i in ipairs(self.outputs) do - i = self:__expand(i) - mkcontainerdir(i) - table_append(self.out, i) - end - - return self.out - end, - - -- Building causes the command to be expanded and invoked. The 'children' - -- variable is set to the input files. - - __dobuild = function(self, inputs, outputs) - self["in"] = inputs - self.out = outputs - local r = self:__invoke(self.command, inputs, outputs) - if r then - if delete_output_files_on_error then - self:__invoke({"%RM% %out%"}) - end - self:__error("failed to build with return code ", r) - end - end, -} - ---- End of prologue --------------------------------------------------------- - --- Set a few useful global variables. - -RM = "rm -f" -INSTALL = "ln -f" - --- Now we're done, switch out of sandbox mode again. This only works --- because we made _G local at the top of the file, which makes it --- lexically scoped rather than looked up via the environment. - -setfenv(1, _G) - --- ======================================================================= -- --- APPLICATION DRIVER -- --- ======================================================================= -- - --- Parse and process the command line options. - -do - local function do_help(opt) - message("Prime Mover version ", VERSION, " © 2006 David Given") - stdout:write([[ -Syntax: pm [] [] -Options: - -h --help Displays this message. - --license List Prime Mover's redistribution license. - -cX --cachedir X Sets the object file cache to directory X. - -p --purge Purges the cache before execution. - WARNING: will remove *everything* in the cache dir! - -fX --file X Reads in the pmfile X. May be specified multiple times. - -DX=Y --define X=Y Defines variable X to value Y (or true if Y omitted) - -n --no-execute Don't actually execute anything - -v --verbose Be more verbose - -q --quiet Be more quiet - -If no pmfiles are explicitly specified, 'pmfile' is read. -If no targets are explicitly specified, 'default' is built. -Options and targets may be specified in any order. -]]) - os.exit(0) - end - - local function do_license(opt) - message("Prime Mover version ", VERSION, " © 2006 David Given") - stdout:write([[ - -Prime Mover is licensed under the MIT open source license. - -Copyright © 2006 David Given - -Permission is hereby granted, free of charge, to any person obtaining a copy -of this software and associated documentation files (the "Software"), to deal -in the Software without restriction, including without limitation the rights -to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -copies of the Software, and to permit persons to whom the Software is -furnished to do so, subject to the following conditions: - -The above copyright notice and this permission notice shall be included in -all copies or substantial portions of the Software. - -THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR -IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE -SOFTWARE. -]]) - os.exit(0) - end - - local function needarg(opt) - if not opt then - usererror("missing option parameter") - end - end - - local function do_cachedir(opt) - needarg(opt) - intermediate_cache_dir = opt - return 1 - end - - local function do_inputfile(opt) - needarg(opt) - table_append(input_files, opt) - return 1 - end - - local function do_purgecache(opt) - purge_intermediate_cache = true - return 0 - end - - local function do_define(opt) - needarg(opt) - - local s, e, key, value = string_find(opt, "^([^=]*)=(.*)$") - if not key then - key = opt - value = true - end - - sandbox[key] = value - return 1 - end - - local function do_no_execute(opt) - no_execute = true - return 0 - end - - local function do_verbose(opt) - verbose = true - return 0 - end - - local function do_quiet(opt) - quiet = true - return 0 - end - - local argmap = { - ["h"] = do_help, - ["help"] = do_help, - ["c"] = do_cachedir, - ["cachedir"] = do_cachedir, - ["p"] = do_purgecache, - ["purge"] = do_purgecache, - ["f"] = do_inputfile, - ["file"] = do_inputfile, - ["D"] = do_define, - ["define"] = do_define, - ["n"] = do_no_execute, - ["no-execute"] = do_no_execute, - ["v"] = do_verbose, - ["verbose"] = do_verbose, - ["q"] = do_quiet, - ["quiet"] = do_quiet, - ["license"] = do_license, - } - - -- Called on an unrecognised option. - - local function unrecognisedarg(arg) - usererror("unrecognised option '", arg, "' --- try --help for help") - end - - -- Do the actual argument parsing. - - for i = 1, table_getn(arg) do - local o = arg[i] - local op - - if (string_byte(o, 1) == 45) then - -- This is an option. - if (string_byte(o, 2) == 45) then - -- ...with a -- prefix. - o = string_sub(o, 3) - local fn = argmap[o] - if not fn then - unrecognisedarg("--"..o) - end - local op = arg[i+1] - i = i + fn(op) - else - -- ...without a -- prefix. - local od = string_sub(o, 2, 2) - local fn = argmap[od] - if not fn then - unrecognisedarg("-"..od) - end - op = string_sub(o, 3) - if (op == "") then - op = arg[i+1] - i = i + fn(op) - else - fn(op) - end - end - else - -- This is a target name. - table_append(targets, o) - end - end - - -- Option fallbacks. - - if (table_getn(input_files) == 0) then - input_files = {"pmfile"} - end - - if (table_getn(targets) == 0) then - targets = {"default"} - end -end - --- Load any input files. - -for _, i in ipairs(input_files) do - sandbox.include(i, unpack(arg)) -end - --- Set up the intermediate cache. - -if purge_intermediate_cache then - create_intermediate_cache() -else - load_intermediate_cache() -end - --- Build any targets. - -for _, i in ipairs(targets) do - local o = sandbox[i] - if not o then - usererror("don't know how to build '", i, "'") - end - if ((type(o) ~= "table") and not o.class) then - usererror("'", i, "' doesn't seem to be a valid target") - end - - xpcall( - function() - o:__build() - end, - function(e) - message("rule engine execution error --- traceback follows:") - traceback(e) - end - ) -end - -XXXXSTARTinterpreter -253583 -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#line 1 "lapi.c" -#define lapi_c -#line 1 "lua.h" -#ifndef lua_h -#define lua_h -#define LUA_NUMBER int -#define LUA_NUMBER_SCAN "%d" -#define LUA_NUMBER_FMT "%d" -#define LUA_VERSION "Lua 5.0.2 (patched for Prime Mover)" -#define LUA_COPYRIGHT "Copyright (C) 1994-2004 Tecgraf, PUC-Rio" -#define LUA_AUTHORS "R. Ierusalimschy, L. H. de Figueiredo & W. Celes" -#define LUA_MULTRET (-1) -#define LUA_REGISTRYINDEX (-10000) -#define LUA_GLOBALSINDEX (-10001) -#define lua_upvalueindex(i) (LUA_GLOBALSINDEX-(i)) -#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); -typedef const char*(*lua_Chunkreader)(lua_State*L,void*ud,size_t*sz);typedef -int(*lua_Chunkwriter)(lua_State*L,const void*p,size_t sz,void*ud); -#define LUA_TNONE (-1) -#define LUA_TNIL 0 -#define LUA_TBOOLEAN 1 -#define LUA_TLIGHTUSERDATA 2 -#define LUA_TNUMBER 3 -#define LUA_TSTRING 4 -#define LUA_TTABLE 5 -#define LUA_TFUNCTION 6 -#define LUA_TUSERDATA 7 -#define LUA_TTHREAD 8 -#define LUA_MINSTACK 20 -#ifdef LUA_USER_H -#include LUA_USER_H -#endif -#ifndef LUA_NUMBER -typedef double lua_Number; -#else -typedef LUA_NUMBER lua_Number; -#endif -#ifndef LUA_API -#define LUA_API extern -#endif -LUA_API lua_State*lua_open(void);LUA_API void lua_close(lua_State*L);LUA_API -lua_State*lua_newthread(lua_State*L);LUA_API lua_CFunction lua_atpanic( -lua_State*L,lua_CFunction panicf);LUA_API int lua_gettop(lua_State*L);LUA_API -void lua_settop(lua_State*L,int idx);LUA_API void lua_pushvalue(lua_State*L, -int idx);LUA_API void lua_remove(lua_State*L,int idx);LUA_API void lua_insert( -lua_State*L,int idx);LUA_API void lua_replace(lua_State*L,int idx);LUA_API int - lua_checkstack(lua_State*L,int sz);LUA_API void lua_xmove(lua_State*from, -lua_State*to,int n);LUA_API int lua_isnumber(lua_State*L,int idx);LUA_API int -lua_isstring(lua_State*L,int idx);LUA_API int lua_iscfunction(lua_State*L,int -idx);LUA_API int lua_isuserdata(lua_State*L,int idx);LUA_API int lua_type( -lua_State*L,int idx);LUA_API const char*lua_typename(lua_State*L,int tp); -LUA_API int lua_equal(lua_State*L,int idx1,int idx2);LUA_API int lua_rawequal( -lua_State*L,int idx1,int idx2);LUA_API int lua_lessthan(lua_State*L,int idx1, -int idx2);LUA_API lua_Number lua_tonumber(lua_State*L,int idx);LUA_API int -lua_toboolean(lua_State*L,int idx);LUA_API const char*lua_tostring(lua_State*L -,int idx);LUA_API size_t lua_strlen(lua_State*L,int idx);LUA_API lua_CFunction - lua_tocfunction(lua_State*L,int idx);LUA_API void*lua_touserdata(lua_State*L, -int idx);LUA_API lua_State*lua_tothread(lua_State*L,int idx);LUA_API const -void*lua_topointer(lua_State*L,int idx);LUA_API void lua_pushnil(lua_State*L); -LUA_API void lua_pushnumber(lua_State*L,lua_Number n);LUA_API void -lua_pushlstring(lua_State*L,const char*s,size_t l);LUA_API void lua_pushstring -(lua_State*L,const char*s);LUA_API const char*lua_pushvfstring(lua_State*L, -const char*fmt,va_list argp);LUA_API const char*lua_pushfstring(lua_State*L, -const char*fmt,...);LUA_API void lua_pushcclosure(lua_State*L,lua_CFunction fn -,int n);LUA_API void lua_pushboolean(lua_State*L,int b);LUA_API void -lua_pushlightuserdata(lua_State*L,void*p);LUA_API void lua_gettable(lua_State* -L,int idx);LUA_API void lua_rawget(lua_State*L,int idx);LUA_API void -lua_rawgeti(lua_State*L,int idx,int n);LUA_API void lua_newtable(lua_State*L); -LUA_API void*lua_newuserdata(lua_State*L,size_t sz);LUA_API int -lua_getmetatable(lua_State*L,int objindex);LUA_API void lua_getfenv(lua_State* -L,int idx);LUA_API void lua_settable(lua_State*L,int idx);LUA_API void -lua_rawset(lua_State*L,int idx);LUA_API void lua_rawseti(lua_State*L,int idx, -int n);LUA_API int lua_setmetatable(lua_State*L,int objindex);LUA_API int -lua_setfenv(lua_State*L,int idx);LUA_API void lua_call(lua_State*L,int nargs, -int nresults);LUA_API int lua_pcall(lua_State*L,int nargs,int nresults,int -errfunc);LUA_API int lua_cpcall(lua_State*L,lua_CFunction func,void*ud); -LUA_API int lua_load(lua_State*L,lua_Chunkreader reader,void*dt,const char* -chunkname);LUA_API int lua_dump(lua_State*L,lua_Chunkwriter writer,void*data); -LUA_API int lua_yield(lua_State*L,int nresults);LUA_API int lua_resume( -lua_State*L,int narg);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);LUA_API const char*lua_version(void);LUA_API int lua_error( -lua_State*L);LUA_API int lua_next(lua_State*L,int idx);LUA_API void lua_concat -(lua_State*L,int n); -#define lua_boxpointer(L,u) (*(void**)(lua_newuserdata(L,sizeof(void*)))=(u)) -#define lua_unboxpointer(L,i) (*(void**)(lua_touserdata(L,i))) -#define lua_pop(L,n) lua_settop(L,-(n)-1) -#define lua_register(L,n,f) (lua_pushstring(L,n),lua_pushcfunction(L,f),\ -lua_settable(L,LUA_GLOBALSINDEX)) -#define lua_pushcfunction(L,f) lua_pushcclosure(L,f,0) -#define lua_isfunction(L,n) (lua_type(L,n)==LUA_TFUNCTION) -#define lua_istable(L,n) (lua_type(L,n)==LUA_TTABLE) -#define lua_islightuserdata(L,n) (lua_type(L,n)==LUA_TLIGHTUSERDATA) -#define lua_isnil(L,n) (lua_type(L,n)==LUA_TNIL) -#define lua_isboolean(L,n) (lua_type(L,n)==LUA_TBOOLEAN) -#define lua_isnone(L,n) (lua_type(L,n)==LUA_TNONE) -#define lua_isnoneornil(L, n)(lua_type(L,n)<=0) -#define lua_pushliteral(L, s)lua_pushlstring(L,""s,(sizeof(s)/sizeof(char))-1) -LUA_API int lua_pushupvalues(lua_State*L); -#define lua_getregistry(L) lua_pushvalue(L,LUA_REGISTRYINDEX) -#define lua_setglobal(L,s) (lua_pushstring(L,s),lua_insert(L,-2),lua_settable(\ -L,LUA_GLOBALSINDEX)) -#define lua_getglobal(L,s) (lua_pushstring(L,s),lua_gettable(L,\ -LUA_GLOBALSINDEX)) -#define LUA_NOREF (-2) -#define LUA_REFNIL (-1) -#define lua_ref(L,lock) ((lock)?luaL_ref(L,LUA_REGISTRYINDEX):(lua_pushstring(\ -L,"unlocked references are obsolete"),lua_error(L),0)) -#define lua_unref(L,ref) luaL_unref(L,LUA_REGISTRYINDEX,(ref)) -#define lua_getref(L,ref) lua_rawgeti(L,LUA_REGISTRYINDEX,ref) -#ifndef LUA_NUMBER_SCAN -#define LUA_NUMBER_SCAN "%lf" -#endif -#ifndef LUA_NUMBER_FMT -#define LUA_NUMBER_FMT "%.14g" -#endif -#define LUA_HOOKCALL 0 -#define LUA_HOOKRET 1 -#define LUA_HOOKLINE 2 -#define LUA_HOOKCOUNT 3 -#define LUA_HOOKTAILRET 4 -#define LUA_MASKCALL (1<2147483640L -#define BITS_INT 32 -#else -#error "you must define BITS_INT with number of bits in an integer" -#endif -#endif -#endif -typedef unsigned int lu_hash;typedef int ls_hash;typedef unsigned long lu_mem; -#define MAX_LUMEM ULONG_MAX -typedef long ls_nstr;typedef unsigned char lu_byte; -#define MAX_SIZET ((size_t)(~(size_t)0)-2) -#define MAX_INT (INT_MAX-2) -#define IntPoint(p) ((lu_hash)(p)) -#ifndef LUSER_ALIGNMENT_T -typedef union{double u;void*s;long l;}L_Umaxalign; -#else -typedef LUSER_ALIGNMENT_T L_Umaxalign; -#endif -#ifndef LUA_UACNUMBER -typedef double l_uacNumber; -#else -typedef LUA_UACNUMBER l_uacNumber; -#endif -#ifndef lua_assert -#define lua_assert(c) -#endif -#ifndef check_exp -#define check_exp(c,e) (e) -#endif -#ifndef UNUSED -#define UNUSED(x) ((void)(x)) -#endif -#ifndef cast -#define cast(t, exp)((t)(exp)) -#endif -typedef unsigned long Instruction; -#ifndef LUA_MAXCALLS -#define LUA_MAXCALLS 4096 -#endif -#ifndef LUA_MAXCCALLS -#define LUA_MAXCCALLS 200 -#endif -#ifndef LUA_MAXCSTACK -#define LUA_MAXCSTACK 2048 -#endif -#define MAXSTACK 250 -#ifndef MAXVARS -#define MAXVARS 200 -#endif -#ifndef MAXUPVALUES -#define MAXUPVALUES 32 -#endif -#ifndef MAXPARAMS -#define MAXPARAMS 100 -#endif -#ifndef MINSTRTABSIZE -#define MINSTRTABSIZE 32 -#endif -#ifndef LUA_MINBUFFER -#define LUA_MINBUFFER 32 -#endif -#ifndef LUA_MAXPARSERLEVEL -#define LUA_MAXPARSERLEVEL 200 -#endif -#endif -#line 12 "lobject.h" -#define NUM_TAGS LUA_TTHREAD -#define LUA_TPROTO (NUM_TAGS+1) -#define LUA_TUPVAL (NUM_TAGS+2) -typedef union GCObject GCObject; -#define CommonHeader GCObject*next;lu_byte tt;lu_byte marked -typedef struct GCheader{CommonHeader;}GCheader;typedef union{GCObject*gc;void* -p;lua_Number n;int b;}Value;typedef struct lua_TObject{int tt;Value value;} -TObject; -#define ttisnil(o) (ttype(o)==LUA_TNIL) -#define ttisnumber(o) (ttype(o)==LUA_TNUMBER) -#define ttisstring(o) (ttype(o)==LUA_TSTRING) -#define ttistable(o) (ttype(o)==LUA_TTABLE) -#define ttisfunction(o) (ttype(o)==LUA_TFUNCTION) -#define ttisboolean(o) (ttype(o)==LUA_TBOOLEAN) -#define ttisuserdata(o) (ttype(o)==LUA_TUSERDATA) -#define ttisthread(o) (ttype(o)==LUA_TTHREAD) -#define ttislightuserdata(o) (ttype(o)==LUA_TLIGHTUSERDATA) -#define ttype(o) ((o)->tt) -#define gcvalue(o) check_exp(iscollectable(o),(o)->value.gc) -#define pvalue(o) check_exp(ttislightuserdata(o),(o)->value.p) -#define nvalue(o) check_exp(ttisnumber(o),(o)->value.n) -#define tsvalue(o) check_exp(ttisstring(o),&(o)->value.gc->ts) -#define uvalue(o) check_exp(ttisuserdata(o),&(o)->value.gc->u) -#define clvalue(o) check_exp(ttisfunction(o),&(o)->value.gc->cl) -#define hvalue(o) check_exp(ttistable(o),&(o)->value.gc->h) -#define bvalue(o) check_exp(ttisboolean(o),(o)->value.b) -#define thvalue(o) check_exp(ttisthread(o),&(o)->value.gc->th) -#define l_isfalse(o) (ttisnil(o)||(ttisboolean(o)&&bvalue(o)==0)) -#define setnvalue(obj,x) {TObject*i_o=(obj);i_o->tt=LUA_TNUMBER;i_o->value.n=(\ -x);} -#define chgnvalue(obj,x) check_exp(ttype(obj)==LUA_TNUMBER,(obj)->value.n=(x)) -#define setpvalue(obj,x) {TObject*i_o=(obj);i_o->tt=LUA_TLIGHTUSERDATA;i_o->\ -value.p=(x);} -#define setbvalue(obj,x) {TObject*i_o=(obj);i_o->tt=LUA_TBOOLEAN;i_o->value.b=\ -(x);} -#define setsvalue(obj,x) {TObject*i_o=(obj);i_o->tt=LUA_TSTRING;i_o->value.gc=\ -cast(GCObject*,(x));lua_assert(i_o->value.gc->gch.tt==LUA_TSTRING);} -#define setuvalue(obj,x) {TObject*i_o=(obj);i_o->tt=LUA_TUSERDATA;i_o->value.\ -gc=cast(GCObject*,(x));lua_assert(i_o->value.gc->gch.tt==LUA_TUSERDATA);} -#define setthvalue(obj,x) {TObject*i_o=(obj);i_o->tt=LUA_TTHREAD;i_o->value.gc\ -=cast(GCObject*,(x));lua_assert(i_o->value.gc->gch.tt==LUA_TTHREAD);} -#define setclvalue(obj,x) {TObject*i_o=(obj);i_o->tt=LUA_TFUNCTION;i_o->value.\ -gc=cast(GCObject*,(x));lua_assert(i_o->value.gc->gch.tt==LUA_TFUNCTION);} -#define sethvalue(obj,x) {TObject*i_o=(obj);i_o->tt=LUA_TTABLE;i_o->value.gc=\ -cast(GCObject*,(x));lua_assert(i_o->value.gc->gch.tt==LUA_TTABLE);} -#define setnilvalue(obj) ((obj)->tt=LUA_TNIL) -#define checkconsistency(obj) lua_assert(!iscollectable(obj)||(ttype(obj)==(\ -obj)->value.gc->gch.tt)) -#define setobj(obj1,obj2) {const TObject*o2=(obj2);TObject*o1=(obj1);\ -checkconsistency(o2);o1->tt=o2->tt;o1->value=o2->value;} -#define setobjs2s setobj -#define setobj2s setobj -#define setsvalue2s setsvalue -#define setobjt2t setobj -#define setobj2t setobj -#define setobj2n setobj -#define setsvalue2n setsvalue -#define setttype(obj, tt)(ttype(obj)=(tt)) -#define iscollectable(o) (ttype(o)>=LUA_TSTRING) -typedef TObject*StkId;typedef union TString{L_Umaxalign dummy;struct{ -CommonHeader;lu_byte reserved;lu_hash hash;size_t len;}tsv;}TString; -#define getstr(ts) cast(const char*,(ts)+1) -#define svalue(o) getstr(tsvalue(o)) -typedef union Udata{L_Umaxalign dummy;struct{CommonHeader;struct Table* -metatable;size_t len;}uv;}Udata;typedef struct Proto{CommonHeader;TObject*k; -Instruction*code;struct Proto**p;int*lineinfo;struct LocVar*locvars;TString** -upvalues;TString*source;int sizeupvalues;int sizek;int sizecode;int -sizelineinfo;int sizep;int sizelocvars;int lineDefined;GCObject*gclist;lu_byte - nups;lu_byte numparams;lu_byte is_vararg;lu_byte maxstacksize;}Proto;typedef -struct LocVar{TString*varname;int startpc;int endpc;}LocVar;typedef struct -UpVal{CommonHeader;TObject*v;TObject value;}UpVal; -#define ClosureHeader CommonHeader;lu_byte isC;lu_byte nupvalues;GCObject*\ -gclist -typedef struct CClosure{ClosureHeader;lua_CFunction f;TObject upvalue[1];} -CClosure;typedef struct LClosure{ClosureHeader;struct Proto*p;TObject g;UpVal* -upvals[1];}LClosure;typedef union Closure{CClosure c;LClosure l;}Closure; -#define iscfunction(o) (ttype(o)==LUA_TFUNCTION&&clvalue(o)->c.isC) -#define isLfunction(o) (ttype(o)==LUA_TFUNCTION&&!clvalue(o)->c.isC) -typedef struct Node{TObject i_key;TObject i_val;struct Node*next;}Node;typedef - struct Table{CommonHeader;lu_byte flags;lu_byte lsizenode;struct Table* -metatable;TObject*array;Node*node;Node*firstfree;GCObject*gclist;int sizearray -;}Table; -#define lmod(s,size) check_exp((size&(size-1))==0,(cast(int,(s)&((size)-1)))) -#define twoto(x) (1<<(x)) -#define sizenode(t) (twoto((t)->lsizenode)) -extern const TObject luaO_nilobject;int luaO_log2(unsigned int x);int -luaO_int2fb(unsigned int x); -#define fb2int(x) (((x)&7)<<((x)>>3)) -int luaO_rawequalObj(const TObject*t1,const TObject*t2);int luaO_str2d(const -char*s,lua_Number*result);const char*luaO_pushvfstring(lua_State*L,const char* -fmt,va_list argp);const char*luaO_pushfstring(lua_State*L,const char*fmt,...); -void luaO_chunkid(char*out,const char*source,int len); -#endif -#line 12 "lapi.h" -void luaA_pushobject(lua_State*L,const TObject*o); -#endif -#line 16 "lapi.c" -#line 1 "ldebug.h" -#ifndef ldebug_h -#define ldebug_h -#line 1 "lstate.h" -#ifndef lstate_h -#define lstate_h -#line 1 "ltm.h" -#ifndef ltm_h -#define ltm_h -typedef enum{TM_INDEX,TM_NEWINDEX,TM_GC,TM_MODE,TM_EQ,TM_ADD,TM_SUB,TM_MUL, -TM_DIV,TM_POW,TM_UNM,TM_LT,TM_LE,TM_CONCAT,TM_CALL,TM_N}TMS; -#define gfasttm(g,et,e) (((et)->flags&(1u<<(e)))?NULL:luaT_gettm(et,e,(g)->\ -tmname[e])) -#define fasttm(l,et,e) gfasttm(G(l),et,e) -const TObject*luaT_gettm(Table*events,TMS event,TString*ename);const TObject* -luaT_gettmbyobj(lua_State*L,const TObject*o,TMS event);void luaT_init( -lua_State*L);extern const char*const luaT_typenames[]; -#endif -#line 14 "lstate.h" -#line 1 "lzio.h" -#ifndef lzio_h -#define lzio_h -#define EOZ (-1) -typedef struct Zio ZIO; -#define char2int(c) cast(int,cast(unsigned char,(c))) -#define zgetc(z) (((z)->n--)>0?char2int(*(z)->p++):luaZ_fill(z)) -#define zname(z) ((z)->name) -void luaZ_init(ZIO*z,lua_Chunkreader reader,void*data,const char*name);size_t -luaZ_read(ZIO*z,void*b,size_t n);int luaZ_lookahead(ZIO*z);typedef struct -Mbuffer{char*buffer;size_t buffsize;}Mbuffer;char*luaZ_openspace(lua_State*L, -Mbuffer*buff,size_t n); -#define luaZ_initbuffer(L, buff)((buff)->buffer=NULL,(buff)->buffsize=0) -#define luaZ_sizebuffer(buff) ((buff)->buffsize) -#define luaZ_buffer(buff) ((buff)->buffer) -#define luaZ_resizebuffer(L, buff,size)(luaM_reallocvector(L,(buff)->buffer,(\ -buff)->buffsize,size,char),(buff)->buffsize=size) -#define luaZ_freebuffer(L, buff)luaZ_resizebuffer(L,buff,0) -struct Zio{size_t n;const char*p;lua_Chunkreader reader;void*data;const char* -name;};int luaZ_fill(ZIO*z); -#endif -#line 15 "lstate.h" -#ifndef lua_lock -#define lua_lock(L) ((void)0) -#endif -#ifndef lua_unlock -#define lua_unlock(L) ((void)0) -#endif -#ifndef lua_userstateopen -#define lua_userstateopen(l) -#endif -struct lua_longjmp; -#define defaultmeta(L) (&G(L)->_defaultmeta) -#define gt(L) (&L->_gt) -#define registry(L) (&G(L)->_registry) -#define EXTRA_STACK 5 -#define BASIC_CI_SIZE 8 -#define BASIC_STACK_SIZE (2*LUA_MINSTACK) -typedef struct stringtable{GCObject**hash;ls_nstr nuse;int size;}stringtable; -typedef struct CallInfo{StkId base;StkId top;int state;union{struct{const -Instruction*savedpc;const Instruction**pc;int tailcalls;}l;struct{int dummy;}c -;}u;}CallInfo; -#define CI_C (1<<0) -#define CI_HASFRAME (1<<1) -#define CI_CALLING (1<<2) -#define CI_SAVEDPC (1<<3) -#define CI_YIELD (1<<4) -#define ci_func(ci) (clvalue((ci)->base-1)) -typedef struct global_State{stringtable strt;GCObject*rootgc;GCObject* -rootudata;GCObject*tmudata;Mbuffer buff;lu_mem GCthreshold;lu_mem nblocks; -lua_CFunction panic;TObject _registry;TObject _defaultmeta;struct lua_State* -mainthread;Node dummynode[1];TString*tmname[TM_N];}global_State;struct -lua_State{CommonHeader;StkId top;StkId base;global_State*l_G;CallInfo*ci;StkId - stack_last;StkId stack;int stacksize;CallInfo*end_ci;CallInfo*base_ci; -unsigned short size_ci;unsigned short nCcalls;lu_byte hookmask;lu_byte -allowhook;lu_byte hookinit;int basehookcount;int hookcount;lua_Hook hook; -TObject _gt;GCObject*openupval;GCObject*gclist;struct lua_longjmp*errorJmp; -ptrdiff_t errfunc;}; -#define G(L) (L->l_G) -union GCObject{GCheader gch;union TString ts;union Udata u;union Closure cl; -struct Table h;struct Proto p;struct UpVal uv;struct lua_State th;}; -#define gcotots(o) check_exp((o)->gch.tt==LUA_TSTRING,&((o)->ts)) -#define gcotou(o) check_exp((o)->gch.tt==LUA_TUSERDATA,&((o)->u)) -#define gcotocl(o) check_exp((o)->gch.tt==LUA_TFUNCTION,&((o)->cl)) -#define gcotoh(o) check_exp((o)->gch.tt==LUA_TTABLE,&((o)->h)) -#define gcotop(o) check_exp((o)->gch.tt==LUA_TPROTO,&((o)->p)) -#define gcotouv(o) check_exp((o)->gch.tt==LUA_TUPVAL,&((o)->uv)) -#define ngcotouv(o) check_exp((o)==NULL||(o)->gch.tt==LUA_TUPVAL,&((o)->uv)) -#define gcototh(o) check_exp((o)->gch.tt==LUA_TTHREAD,&((o)->th)) -#define valtogco(v) (cast(GCObject*,(v))) -lua_State*luaE_newthread(lua_State*L);void luaE_freethread(lua_State*L, -lua_State*L1); -#endif -#line 12 "ldebug.h" -#define pcRel(pc, p)(cast(int,(pc)-(p)->code)-1) -#define getline(f,pc) (((f)->lineinfo)?(f)->lineinfo[pc]:0) -#define resethookcount(L) (L->hookcount=L->basehookcount) -void luaG_inithooks(lua_State*L);void luaG_typeerror(lua_State*L,const TObject -*o,const char*opname);void luaG_concaterror(lua_State*L,StkId p1,StkId p2); -void luaG_aritherror(lua_State*L,const TObject*p1,const TObject*p2);int -luaG_ordererror(lua_State*L,const TObject*p1,const TObject*p2);void -luaG_runerror(lua_State*L,const char*fmt,...);void luaG_errormsg(lua_State*L); -int luaG_checkcode(const Proto*pt); -#endif -#line 17 "lapi.c" -#line 1 "ldo.h" -#ifndef ldo_h -#define ldo_h -#ifndef HARDSTACKTESTS -#define condhardstacktests(x) {} -#else -#define condhardstacktests(x) x -#endif -#define luaD_checkstack(L,n) if((char*)L->stack_last-(char*)L->top<=(n)*(int)\ -sizeof(TObject))luaD_growstack(L,n);else condhardstacktests(luaD_reallocstack(\ -L,L->stacksize)); -#define incr_top(L) {luaD_checkstack(L,1);L->top++;} -#define savestack(L,p) ((char*)(p)-(char*)L->stack) -#define restorestack(L,n) ((TObject*)((char*)L->stack+(n))) -#define saveci(L,p) ((char*)(p)-(char*)L->base_ci) -#define restoreci(L,n) ((CallInfo*)((char*)L->base_ci+(n))) -typedef void(*Pfunc)(lua_State*L,void*ud);void luaD_resetprotection(lua_State* -L);int luaD_protectedparser(lua_State*L,ZIO*z,int bin);void luaD_callhook( -lua_State*L,int event,int line);StkId luaD_precall(lua_State*L,StkId func); -void luaD_call(lua_State*L,StkId func,int nResults);int luaD_pcall(lua_State*L -,Pfunc func,void*u,ptrdiff_t oldtop,ptrdiff_t ef);void luaD_poscall(lua_State* -L,int wanted,StkId firstResult);void luaD_reallocCI(lua_State*L,int newsize); -void luaD_reallocstack(lua_State*L,int newsize);void luaD_growstack(lua_State* -L,int n);void luaD_throw(lua_State*L,int errcode);int luaD_rawrunprotected( -lua_State*L,Pfunc f,void*ud); -#endif -#line 18 "lapi.c" -#line 1 "lfunc.h" -#ifndef lfunc_h -#define lfunc_h -Proto*luaF_newproto(lua_State*L);Closure*luaF_newCclosure(lua_State*L,int -nelems);Closure*luaF_newLclosure(lua_State*L,int nelems,TObject*e);UpVal* -luaF_findupval(lua_State*L,StkId level);void luaF_close(lua_State*L,StkId -level);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 -#line 19 "lapi.c" -#line 1 "lgc.h" -#ifndef lgc_h -#define lgc_h -#define luaC_checkGC(L) {lua_assert(!(L->ci->state&CI_CALLING));if(G(L)->\ -nblocks>=G(L)->GCthreshold)luaC_collectgarbage(L);} -size_t luaC_separateudata(lua_State*L);void luaC_callGCTM(lua_State*L);void -luaC_sweep(lua_State*L,int all);void luaC_collectgarbage(lua_State*L);void -luaC_link(lua_State*L,GCObject*o,lu_byte tt); -#endif -#line 20 "lapi.c" -#line 1 "lmem.h" -#ifndef lmem_h -#define lmem_h -#define MEMERRMSG "not enough memory" -void*luaM_realloc(lua_State*L,void*oldblock,lu_mem oldsize,lu_mem size);void* -luaM_growaux(lua_State*L,void*block,int*size,int size_elem,int limit,const -char*errormsg); -#define luaM_free(L, b,s)luaM_realloc(L,(b),(s),0) -#define luaM_freelem(L, b)luaM_realloc(L,(b),sizeof(*(b)),0) -#define luaM_freearray(L, b,n,t)luaM_realloc(L,(b),cast(lu_mem,n)*cast(lu_mem,\ -sizeof(t)),0) -#define luaM_malloc(L, t)luaM_realloc(L,NULL,0,(t)) -#define luaM_new(L, t)cast(t*,luaM_malloc(L,sizeof(t))) -#define luaM_newvector(L, n,t)cast(t*,luaM_malloc(L,cast(lu_mem,n)*cast(lu_mem\ -,sizeof(t)))) -#define luaM_growvector(L,v,nelems,size,t,limit,e) if(((nelems)+1)>(size))((v)\ -=cast(t*,luaM_growaux(L,v,&(size),sizeof(t),limit,e))) -#define luaM_reallocvector(L, v,oldn,n,t)((v)=cast(t*,luaM_realloc(L,v,cast(\ -lu_mem,oldn)*cast(lu_mem,sizeof(t)),cast(lu_mem,n)*cast(lu_mem,sizeof(t))))) -#endif -#line 21 "lapi.c" -#line 1 "lstring.h" -#ifndef lstring_h -#define lstring_h -#define sizestring(l) (cast(lu_mem,sizeof(union TString))+(cast(lu_mem,l)+1)*\ -sizeof(char)) -#define sizeudata(l) (cast(lu_mem,sizeof(union Udata))+(l)) -#define luaS_new(L, s)(luaS_newlstr(L,s,strlen(s))) -#define luaS_newliteral(L, s)(luaS_newlstr(L,""s,(sizeof(s)/sizeof(char))-1)) -#define luaS_fix(s) ((s)->tsv.marked|=(1<<4)) -void luaS_resize(lua_State*L,int newsize);Udata*luaS_newudata(lua_State*L, -size_t s);void luaS_freeall(lua_State*L);TString*luaS_newlstr(lua_State*L, -const char*str,size_t l); -#endif -#line 24 "lapi.c" -#line 1 "ltable.h" -#ifndef ltable_h -#define ltable_h -#define gnode(t,i) (&(t)->node[i]) -#define gkey(n) (&(n)->i_key) -#define gval(n) (&(n)->i_val) -const TObject*luaH_getnum(Table*t,int key);TObject*luaH_setnum(lua_State*L, -Table*t,int key);const TObject*luaH_getstr(Table*t,TString*key);const TObject* -luaH_get(Table*t,const TObject*key);TObject*luaH_set(lua_State*L,Table*t,const - TObject*key);Table*luaH_new(lua_State*L,int narray,int lnhash);void luaH_free -(lua_State*L,Table*t);int luaH_next(lua_State*L,Table*t,StkId key);Node* -luaH_mainposition(const Table*t,const TObject*key); -#endif -#line 25 "lapi.c" -#line 1 "lundump.h" -#ifndef lundump_h -#define lundump_h -Proto*luaU_undump(lua_State*L,ZIO*Z,Mbuffer*buff);int luaU_endianness(void); -void luaU_dump(lua_State*L,const Proto*Main,lua_Chunkwriter w,void*data);void -luaU_print(const Proto*Main); -#define LUA_SIGNATURE "\033Lua" -#define VERSION 0x50 -#define VERSION0 0x50 -#define TEST_NUMBER ((lua_Number)3.14159265358979323846E7) -#endif -#line 27 "lapi.c" -#line 1 "lvm.h" -#ifndef lvm_h -#define lvm_h -#define tostring(L,o) ((ttype(o)==LUA_TSTRING)||(luaV_tostring(L,o))) -#define tonumber(o,n) (ttype(o)==LUA_TNUMBER||(((o)=luaV_tonumber(o,n))!=NULL)\ -) -#define equalobj(L,o1,o2) (ttype(o1)==ttype(o2)&&luaV_equalval(L,o1,o2)) -int luaV_lessthan(lua_State*L,const TObject*l,const TObject*r);int -luaV_equalval(lua_State*L,const TObject*t1,const TObject*t2);const TObject* -luaV_tonumber(const TObject*obj,TObject*n);int luaV_tostring(lua_State*L,StkId - obj);const TObject*luaV_gettable(lua_State*L,const TObject*t,TObject*key,int -loop);void luaV_settable(lua_State*L,const TObject*t,TObject*key,StkId val); -StkId luaV_execute(lua_State*L);void luaV_concat(lua_State*L,int total,int -last); -#endif -#line 28 "lapi.c" -const char lua_ident[]="$Lua: "LUA_VERSION" "LUA_COPYRIGHT" $\n""$Authors: " -LUA_AUTHORS" $\n""$URL: www.lua.org $\n"; -#ifndef api_check -#define api_check(L, o) -#endif -#define api_checknelems(L, n)api_check(L,(n)<=(L->top-L->base)) -#define api_incr_top(L) {api_check(L,L->topci->top);L->top++;} -static TObject*negindex(lua_State*L,int idx){if(idx>LUA_REGISTRYINDEX){ -api_check(L,idx!=0&&-idx<=L->top-L->base);return L->top+idx;}else switch(idx){ -case LUA_REGISTRYINDEX:return registry(L);case LUA_GLOBALSINDEX:return gt(L); -default:{TObject*func=(L->base-1);idx=LUA_GLOBALSINDEX-idx;lua_assert( -iscfunction(func));return(idx<=clvalue(func)->c.nupvalues)?&clvalue(func)->c. -upvalue[idx-1]:NULL;}}}static TObject*luaA_index(lua_State*L,int idx){if(idx>0 -){api_check(L,idx<=L->top-L->base);return L->base+idx-1;}else{TObject*o= -negindex(L,idx);api_check(L,o!=NULL);return o;}}static TObject* -luaA_indexAcceptable(lua_State*L,int idx){if(idx>0){TObject*o=L->base+(idx-1); -api_check(L,idx<=L->stack_last-L->base);if(o>=L->top)return NULL;else return o -;}else return negindex(L,idx);}void luaA_pushobject(lua_State*L,const TObject* -o){setobj2s(L->top,o);incr_top(L);}LUA_API int lua_checkstack(lua_State*L,int -size){int res;lua_lock(L);if((L->top-L->base+size)>LUA_MAXCSTACK)res=0;else{ -luaD_checkstack(L,size);if(L->ci->toptop+size)L->ci->top=L->top+size;res=1 -;}lua_unlock(L);return res;}LUA_API void lua_xmove(lua_State*from,lua_State*to -,int n){int i;lua_lock(to);api_checknelems(from,n);from->top-=n;for(i=0;itop,from->top+i);api_incr_top(to);}lua_unlock(to);}LUA_API -lua_CFunction lua_atpanic(lua_State*L,lua_CFunction panicf){lua_CFunction old; -lua_lock(L);old=G(L)->panic;G(L)->panic=panicf;lua_unlock(L);return old;} -LUA_API lua_State*lua_newthread(lua_State*L){lua_State*L1;lua_lock(L); -luaC_checkGC(L);L1=luaE_newthread(L);setthvalue(L->top,L1);api_incr_top(L); -lua_unlock(L);lua_userstateopen(L1);return L1;}LUA_API int lua_gettop( -lua_State*L){return(L->top-L->base);}LUA_API void lua_settop(lua_State*L,int -idx){lua_lock(L);if(idx>=0){api_check(L,idx<=L->stack_last-L->base);while(L-> -topbase+idx)setnilvalue(L->top++);L->top=L->base+idx;}else{api_check(L,-( -idx+1)<=(L->top-L->base));L->top+=idx+1;}lua_unlock(L);}LUA_API void -lua_remove(lua_State*L,int idx){StkId p;lua_lock(L);p=luaA_index(L,idx);while( -++ptop)setobjs2s(p-1,p);L->top--;lua_unlock(L);}LUA_API void lua_insert( -lua_State*L,int idx){StkId p;StkId q;lua_lock(L);p=luaA_index(L,idx);for(q=L-> -top;q>p;q--)setobjs2s(q,q-1);setobjs2s(p,L->top);lua_unlock(L);}LUA_API void -lua_replace(lua_State*L,int idx){lua_lock(L);api_checknelems(L,1);setobj( -luaA_index(L,idx),L->top-1);L->top--;lua_unlock(L);}LUA_API void lua_pushvalue -(lua_State*L,int idx){lua_lock(L);setobj2s(L->top,luaA_index(L,idx)); -api_incr_top(L);lua_unlock(L);}LUA_API int lua_type(lua_State*L,int idx){StkId - o=luaA_indexAcceptable(L,idx);return(o==NULL)?LUA_TNONE:ttype(o);}LUA_API -const char*lua_typename(lua_State*L,int t){UNUSED(L);return(t==LUA_TNONE)? -"no value":luaT_typenames[t];}LUA_API int lua_iscfunction(lua_State*L,int idx) -{StkId o=luaA_indexAcceptable(L,idx);return(o==NULL)?0:iscfunction(o);}LUA_API - int lua_isnumber(lua_State*L,int idx){TObject n;const TObject*o= -luaA_indexAcceptable(L,idx);return(o!=NULL&&tonumber(o,&n));}LUA_API int -lua_isstring(lua_State*L,int idx){int t=lua_type(L,idx);return(t==LUA_TSTRING -||t==LUA_TNUMBER);}LUA_API int lua_isuserdata(lua_State*L,int idx){const -TObject*o=luaA_indexAcceptable(L,idx);return(o!=NULL&&(ttisuserdata(o)|| -ttislightuserdata(o)));}LUA_API int lua_rawequal(lua_State*L,int index1,int -index2){StkId o1=luaA_indexAcceptable(L,index1);StkId o2=luaA_indexAcceptable( -L,index2);return(o1==NULL||o2==NULL)?0:luaO_rawequalObj(o1,o2);}LUA_API int -lua_equal(lua_State*L,int index1,int index2){StkId o1,o2;int i;lua_lock(L);o1= -luaA_indexAcceptable(L,index1);o2=luaA_indexAcceptable(L,index2);i=(o1==NULL|| -o2==NULL)?0:equalobj(L,o1,o2);lua_unlock(L);return i;}LUA_API int lua_lessthan -(lua_State*L,int index1,int index2){StkId o1,o2;int i;lua_lock(L);o1= -luaA_indexAcceptable(L,index1);o2=luaA_indexAcceptable(L,index2);i=(o1==NULL|| -o2==NULL)?0:luaV_lessthan(L,o1,o2);lua_unlock(L);return i;}LUA_API lua_Number -lua_tonumber(lua_State*L,int idx){TObject n;const TObject*o= -luaA_indexAcceptable(L,idx);if(o!=NULL&&tonumber(o,&n))return nvalue(o);else -return 0;}LUA_API int lua_toboolean(lua_State*L,int idx){const TObject*o= -luaA_indexAcceptable(L,idx);return(o!=NULL)&&!l_isfalse(o);}LUA_API const char -*lua_tostring(lua_State*L,int idx){StkId o=luaA_indexAcceptable(L,idx);if(o== -NULL)return NULL;else if(ttisstring(o))return svalue(o);else{const char*s; -lua_lock(L);s=(luaV_tostring(L,o)?svalue(o):NULL);luaC_checkGC(L);lua_unlock(L -);return s;}}LUA_API size_t lua_strlen(lua_State*L,int idx){StkId o= -luaA_indexAcceptable(L,idx);if(o==NULL)return 0;else if(ttisstring(o))return -tsvalue(o)->tsv.len;else{size_t l;lua_lock(L);l=(luaV_tostring(L,o)?tsvalue(o) -->tsv.len:0);lua_unlock(L);return l;}}LUA_API lua_CFunction lua_tocfunction( -lua_State*L,int idx){StkId o=luaA_indexAcceptable(L,idx);return(o==NULL||! -iscfunction(o))?NULL:clvalue(o)->c.f;}LUA_API void*lua_touserdata(lua_State*L, -int idx){StkId o=luaA_indexAcceptable(L,idx);if(o==NULL)return NULL;switch( -ttype(o)){case LUA_TUSERDATA:return(uvalue(o)+1);case LUA_TLIGHTUSERDATA: -return pvalue(o);default:return NULL;}}LUA_API lua_State*lua_tothread( -lua_State*L,int idx){StkId o=luaA_indexAcceptable(L,idx);return(o==NULL||! -ttisthread(o))?NULL:thvalue(o);}LUA_API const void*lua_topointer(lua_State*L, -int idx){StkId o=luaA_indexAcceptable(L,idx);if(o==NULL)return NULL;else{ -switch(ttype(o)){case LUA_TTABLE:return hvalue(o);case LUA_TFUNCTION:return -clvalue(o);case LUA_TTHREAD:return thvalue(o);case LUA_TUSERDATA:case -LUA_TLIGHTUSERDATA:return lua_touserdata(L,idx);default:return NULL;}}}LUA_API - void lua_pushnil(lua_State*L){lua_lock(L);setnilvalue(L->top);api_incr_top(L) -;lua_unlock(L);}LUA_API void lua_pushnumber(lua_State*L,lua_Number n){lua_lock -(L);setnvalue(L->top,n);api_incr_top(L);lua_unlock(L);}LUA_API void -lua_pushlstring(lua_State*L,const char*s,size_t len){lua_lock(L);luaC_checkGC( -L);setsvalue2s(L->top,luaS_newlstr(L,s,len));api_incr_top(L);lua_unlock(L);} -LUA_API void lua_pushstring(lua_State*L,const char*s){if(s==NULL)lua_pushnil(L -);else lua_pushlstring(L,s,strlen(s));}LUA_API const char*lua_pushvfstring( -lua_State*L,const char*fmt,va_list argp){const char*ret;lua_lock(L); -luaC_checkGC(L);ret=luaO_pushvfstring(L,fmt,argp);lua_unlock(L);return ret;} -LUA_API const char*lua_pushfstring(lua_State*L,const char*fmt,...){const char* -ret;va_list argp;lua_lock(L);luaC_checkGC(L);va_start(argp,fmt);ret= -luaO_pushvfstring(L,fmt,argp);va_end(argp);lua_unlock(L);return ret;}LUA_API -void lua_pushcclosure(lua_State*L,lua_CFunction fn,int n){Closure*cl;lua_lock( -L);luaC_checkGC(L);api_checknelems(L,n);cl=luaF_newCclosure(L,n);cl->c.f=fn;L -->top-=n;while(n--)setobj2n(&cl->c.upvalue[n],L->top+n);setclvalue(L->top,cl); -api_incr_top(L);lua_unlock(L);}LUA_API void lua_pushboolean(lua_State*L,int b) -{lua_lock(L);setbvalue(L->top,(b!=0));api_incr_top(L);lua_unlock(L);}LUA_API -void lua_pushlightuserdata(lua_State*L,void*p){lua_lock(L);setpvalue(L->top,p) -;api_incr_top(L);lua_unlock(L);}LUA_API void lua_gettable(lua_State*L,int idx) -{StkId t;lua_lock(L);t=luaA_index(L,idx);setobj2s(L->top-1,luaV_gettable(L,t,L -->top-1,0));lua_unlock(L);}LUA_API void lua_rawget(lua_State*L,int idx){StkId -t;lua_lock(L);t=luaA_index(L,idx);api_check(L,ttistable(t));setobj2s(L->top-1, -luaH_get(hvalue(t),L->top-1));lua_unlock(L);}LUA_API void lua_rawgeti( -lua_State*L,int idx,int n){StkId o;lua_lock(L);o=luaA_index(L,idx);api_check(L -,ttistable(o));setobj2s(L->top,luaH_getnum(hvalue(o),n));api_incr_top(L); -lua_unlock(L);}LUA_API void lua_newtable(lua_State*L){lua_lock(L);luaC_checkGC -(L);sethvalue(L->top,luaH_new(L,0,0));api_incr_top(L);lua_unlock(L);}LUA_API -int lua_getmetatable(lua_State*L,int objindex){const TObject*obj;Table*mt=NULL -;int res;lua_lock(L);obj=luaA_indexAcceptable(L,objindex);if(obj!=NULL){switch -(ttype(obj)){case LUA_TTABLE:mt=hvalue(obj)->metatable;break;case -LUA_TUSERDATA:mt=uvalue(obj)->uv.metatable;break;}}if(mt==NULL||mt==hvalue( -defaultmeta(L)))res=0;else{sethvalue(L->top,mt);api_incr_top(L);res=1;} -lua_unlock(L);return res;}LUA_API void lua_getfenv(lua_State*L,int idx){StkId -o;lua_lock(L);o=luaA_index(L,idx);setobj2s(L->top,isLfunction(o)?&clvalue(o)-> -l.g:gt(L));api_incr_top(L);lua_unlock(L);}LUA_API void lua_settable(lua_State* -L,int idx){StkId t;lua_lock(L);api_checknelems(L,2);t=luaA_index(L,idx); -luaV_settable(L,t,L->top-2,L->top-1);L->top-=2;lua_unlock(L);}LUA_API void -lua_rawset(lua_State*L,int idx){StkId t;lua_lock(L);api_checknelems(L,2);t= -luaA_index(L,idx);api_check(L,ttistable(t));setobj2t(luaH_set(L,hvalue(t),L-> -top-2),L->top-1);L->top-=2;lua_unlock(L);}LUA_API void lua_rawseti(lua_State*L -,int idx,int n){StkId o;lua_lock(L);api_checknelems(L,1);o=luaA_index(L,idx); -api_check(L,ttistable(o));setobj2t(luaH_setnum(L,hvalue(o),n),L->top-1);L->top ---;lua_unlock(L);}LUA_API int lua_setmetatable(lua_State*L,int objindex){ -TObject*obj,*mt;int res=1;lua_lock(L);api_checknelems(L,1);obj=luaA_index(L, -objindex);mt=(!ttisnil(L->top-1))?L->top-1:defaultmeta(L);api_check(L, -ttistable(mt));switch(ttype(obj)){case LUA_TTABLE:{hvalue(obj)->metatable= -hvalue(mt);break;}case LUA_TUSERDATA:{uvalue(obj)->uv.metatable=hvalue(mt); -break;}default:{res=0;break;}}L->top--;lua_unlock(L);return res;}LUA_API int -lua_setfenv(lua_State*L,int idx){StkId o;int res=0;lua_lock(L);api_checknelems -(L,1);o=luaA_index(L,idx);L->top--;api_check(L,ttistable(L->top));if( -isLfunction(o)){res=1;clvalue(o)->l.g=*(L->top);}lua_unlock(L);return res;} -LUA_API void lua_call(lua_State*L,int nargs,int nresults){StkId func;lua_lock( -L);api_checknelems(L,nargs+1);func=L->top-(nargs+1);luaD_call(L,func,nresults) -;lua_unlock(L);}struct CallS{StkId func;int nresults;};static void f_call( -lua_State*L,void*ud){struct CallS*c=cast(struct CallS*,ud);luaD_call(L,c->func -,c->nresults);}LUA_API int lua_pcall(lua_State*L,int nargs,int nresults,int -errfunc){struct CallS c;int status;ptrdiff_t func;lua_lock(L);func=(errfunc==0 -)?0:savestack(L,luaA_index(L,errfunc));c.func=L->top-(nargs+1);c.nresults= -nresults;status=luaD_pcall(L,f_call,&c,savestack(L,c.func),func);lua_unlock(L) -;return status;}struct CCallS{lua_CFunction func;void*ud;};static void f_Ccall -(lua_State*L,void*ud){struct CCallS*c=cast(struct CCallS*,ud);Closure*cl;cl= -luaF_newCclosure(L,0);cl->c.f=c->func;setclvalue(L->top,cl);incr_top(L); -setpvalue(L->top,c->ud);incr_top(L);luaD_call(L,L->top-2,0);}LUA_API int -lua_cpcall(lua_State*L,lua_CFunction func,void*ud){struct CCallS c;int status; -lua_lock(L);c.func=func;c.ud=ud;status=luaD_pcall(L,f_Ccall,&c,savestack(L,L-> -top),0);lua_unlock(L);return status;}LUA_API int lua_load(lua_State*L, -lua_Chunkreader reader,void*data,const char*chunkname){ZIO z;int status;int c; -lua_lock(L);if(!chunkname)chunkname="?";luaZ_init(&z,reader,data,chunkname);c= -luaZ_lookahead(&z);status=luaD_protectedparser(L,&z,(c==LUA_SIGNATURE[0])); -lua_unlock(L);return status;}LUA_API int lua_dump(lua_State*L,lua_Chunkwriter -writer,void*data){int status;TObject*o;lua_lock(L);api_checknelems(L,1);o=L-> -top-1;if(isLfunction(o)&&clvalue(o)->l.nupvalues==0){luaU_dump(L,clvalue(o)->l -.p,writer,data);status=1;}else status=0;lua_unlock(L);return status;} -#define GCscalel(x) ((x)>>10) -#define GCscale(x) (cast(int,GCscalel(x))) -#define GCunscale(x) (cast(lu_mem,x)<<10) -LUA_API int lua_getgcthreshold(lua_State*L){int threshold;lua_lock(L); -threshold=GCscale(G(L)->GCthreshold);lua_unlock(L);return threshold;}LUA_API -int lua_getgccount(lua_State*L){int count;lua_lock(L);count=GCscale(G(L)-> -nblocks);lua_unlock(L);return count;}LUA_API void lua_setgcthreshold(lua_State -*L,int newthreshold){lua_lock(L);if(cast(lu_mem,newthreshold)>GCscalel( -MAX_LUMEM))G(L)->GCthreshold=MAX_LUMEM;else G(L)->GCthreshold=GCunscale( -newthreshold);luaC_checkGC(L);lua_unlock(L);}LUA_API const char*lua_version( -void){return LUA_VERSION;}LUA_API int lua_error(lua_State*L){lua_lock(L); -api_checknelems(L,1);luaG_errormsg(L);lua_unlock(L);return 0;}LUA_API int -lua_next(lua_State*L,int idx){StkId t;int more;lua_lock(L);t=luaA_index(L,idx) -;api_check(L,ttistable(t));more=luaH_next(L,hvalue(t),L->top-1);if(more){ -api_incr_top(L);}else L->top-=1;lua_unlock(L);return more;}LUA_API void -lua_concat(lua_State*L,int n){lua_lock(L);luaC_checkGC(L);api_checknelems(L,n) -;if(n>=2){luaV_concat(L,n,L->top-L->base-1);L->top-=(n-1);}else if(n==0){ -setsvalue2s(L->top,luaS_newlstr(L,NULL,0));api_incr_top(L);}lua_unlock(L);} -LUA_API void*lua_newuserdata(lua_State*L,size_t size){Udata*u;lua_lock(L); -luaC_checkGC(L);u=luaS_newudata(L,size);setuvalue(L->top,u);api_incr_top(L); -lua_unlock(L);return u+1;}LUA_API int lua_pushupvalues(lua_State*L){Closure* -func;int n,i;lua_lock(L);api_check(L,iscfunction(L->base-1));func=clvalue(L-> -base-1);n=func->c.nupvalues;luaD_checkstack(L,n+LUA_MINSTACK);for(i=0;itop,&func->c.upvalue[i]);L->top++;}lua_unlock(L);return n;}static - const char*aux_upvalue(lua_State*L,int funcindex,int n,TObject**val){Closure* -f;StkId fi=luaA_index(L,funcindex);if(!ttisfunction(fi))return NULL;f=clvalue( -fi);if(f->c.isC){if(n>f->c.nupvalues)return NULL;*val=&f->c.upvalue[n-1]; -return"";}else{Proto*p=f->l.p;if(n>p->sizeupvalues)return NULL;*val=f->l. -upvals[n-1]->v;return getstr(p->upvalues[n-1]);}}LUA_API const char* -lua_getupvalue(lua_State*L,int funcindex,int n){const char*name;TObject*val; -lua_lock(L);name=aux_upvalue(L,funcindex,n,&val);if(name){setobj2s(L->top,val) -;api_incr_top(L);}lua_unlock(L);return name;}LUA_API const char*lua_setupvalue -(lua_State*L,int funcindex,int n){const char*name;TObject*val;lua_lock(L); -api_checknelems(L,1);name=aux_upvalue(L,funcindex,n,&val);if(name){L->top--; -setobj(val,L->top);}lua_unlock(L);return name;} -#line 1 "lauxlib.c" -#define lauxlib_c -#line 1 "lauxlib.h" -#ifndef lauxlib_h -#define lauxlib_h -#ifndef LUALIB_API -#define LUALIB_API LUA_API -#endif -typedef struct luaL_reg{const char*name;lua_CFunction func;}luaL_reg; -LUALIB_API void luaL_openlib(lua_State*L,const char*libname,const luaL_reg*l, -int nup);LUALIB_API int luaL_getmetafield(lua_State*L,int obj,const char*e); -LUALIB_API int luaL_callmeta(lua_State*L,int obj,const char*e);LUALIB_API int -luaL_typerror(lua_State*L,int narg,const char*tname);LUALIB_API int -luaL_argerror(lua_State*L,int numarg,const char*extramsg);LUALIB_API const -char*luaL_checklstring(lua_State*L,int numArg,size_t*l);LUALIB_API const char* -luaL_optlstring(lua_State*L,int numArg,const char*def,size_t*l);LUALIB_API -lua_Number luaL_checknumber(lua_State*L,int numArg);LUALIB_API lua_Number -luaL_optnumber(lua_State*L,int nArg,lua_Number def);LUALIB_API void -luaL_checkstack(lua_State*L,int sz,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 int luaL_newmetatable(lua_State*L,const char* -tname);LUALIB_API void luaL_getmetatable(lua_State*L,const char*tname); -LUALIB_API void*luaL_checkudata(lua_State*L,int ud,const char*tname); -LUALIB_API void luaL_where(lua_State*L,int lvl);LUALIB_API int luaL_error( -lua_State*L,const char*fmt,...);LUALIB_API int luaL_findstring(const char*st, -const char*const lst[]);LUALIB_API int luaL_ref(lua_State*L,int t);LUALIB_API -void luaL_unref(lua_State*L,int t,int ref);LUALIB_API int luaL_getn(lua_State* -L,int t);LUALIB_API void luaL_setn(lua_State*L,int t,int n);LUALIB_API int -luaL_loadfile(lua_State*L,const char*filename);LUALIB_API int luaL_loadbuffer( -lua_State*L,const char*buff,size_t sz,const char*name); -#define luaL_argcheck(L, cond,numarg,extramsg)if(!(cond))luaL_argerror(L,\ -numarg,extramsg) -#define luaL_checkstring(L,n) (luaL_checklstring(L,(n),NULL)) -#define luaL_optstring(L,n,d) (luaL_optlstring(L,(n),(d),NULL)) -#define luaL_checkint(L,n) ((int)luaL_checknumber(L,n)) -#define luaL_checklong(L,n) ((long)luaL_checknumber(L,n)) -#define luaL_optint(L,n,d) ((int)luaL_optnumber(L,n,(lua_Number)(d))) -#define luaL_optlong(L,n,d) ((long)luaL_optnumber(L,n,(lua_Number)(d))) -#ifndef LUAL_BUFFERSIZE -#define LUAL_BUFFERSIZE BUFSIZ -#endif -typedef struct luaL_Buffer{char*p;int lvl;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);LUALIB_API int lua_dofile(lua_State*L,const -char*filename);LUALIB_API int lua_dostring(lua_State*L,const char*str); -LUALIB_API int lua_dobuffer(lua_State*L,const char*buff,size_t sz,const char*n -); -#define luaL_check_lstr luaL_checklstring -#define luaL_opt_lstr luaL_optlstring -#define luaL_check_number luaL_checknumber -#define luaL_opt_number luaL_optnumber -#define luaL_arg_check luaL_argcheck -#define luaL_check_string luaL_checkstring -#define luaL_opt_string luaL_optstring -#define luaL_check_int luaL_checkint -#define luaL_check_long luaL_checklong -#define luaL_opt_int luaL_optint -#define luaL_opt_long luaL_optlong -#endif -#line 24 "lauxlib.c" -#define RESERVED_REFS 2 -#define FREELIST_REF 1 -#define ARRAYSIZE_REF 2 -#define abs_index(L, i)((i)>0||(i)<=LUA_REGISTRYINDEX?(i):lua_gettop(L)+(i)+1) -LUALIB_API int luaL_argerror(lua_State*L,int narg,const char*extramsg){ -lua_Debug ar;lua_getstack(L,0,&ar);lua_getinfo(L,"n",&ar);if(strcmp(ar. -namewhat,"method")==0){narg--;if(narg==0)return luaL_error(L, -"calling `%s' on bad self (%s)",ar.name,extramsg);}if(ar.name==NULL)ar.name= -"?";return luaL_error(L,"bad argument #%d to `%s' (%s)",narg,ar.name,extramsg) -;}LUALIB_API int luaL_typerror(lua_State*L,int narg,const char*tname){const -char*msg=lua_pushfstring(L,"%s expected, got %s",tname,lua_typename(L,lua_type -(L,narg)));return luaL_argerror(L,narg,msg);}static void tag_error(lua_State*L -,int narg,int tag){luaL_typerror(L,narg,lua_typename(L,tag));}LUALIB_API void -luaL_where(lua_State*L,int level){lua_Debug ar;if(lua_getstack(L,level,&ar)){ -lua_getinfo(L,"Snl",&ar);if(ar.currentline>0){lua_pushfstring(L,"%s:%d: ",ar. -short_src,ar.currentline);return;}}lua_pushliteral(L,"");}LUALIB_API int -luaL_error(lua_State*L,const char*fmt,...){va_list argp;va_start(argp,fmt); -luaL_where(L,1);lua_pushvfstring(L,fmt,argp);va_end(argp);lua_concat(L,2); -return lua_error(L);}LUALIB_API int luaL_findstring(const char*name,const char -*const list[]){int i;for(i=0;list[i];i++)if(strcmp(list[i],name)==0)return i; -return-1;}LUALIB_API int luaL_newmetatable(lua_State*L,const char*tname){ -lua_pushstring(L,tname);lua_rawget(L,LUA_REGISTRYINDEX);if(!lua_isnil(L,-1)) -return 0;lua_pop(L,1);lua_newtable(L);lua_pushstring(L,tname);lua_pushvalue(L, --2);lua_rawset(L,LUA_REGISTRYINDEX);lua_pushvalue(L,-1);lua_pushstring(L,tname -);lua_rawset(L,LUA_REGISTRYINDEX);return 1;}LUALIB_API void luaL_getmetatable( -lua_State*L,const char*tname){lua_pushstring(L,tname);lua_rawget(L, -LUA_REGISTRYINDEX);}LUALIB_API void*luaL_checkudata(lua_State*L,int ud,const -char*tname){const char*tn;if(!lua_getmetatable(L,ud))return NULL;lua_rawget(L, -LUA_REGISTRYINDEX);tn=lua_tostring(L,-1);if(tn&&(strcmp(tn,tname)==0)){lua_pop -(L,1);return lua_touserdata(L,ud);}else{lua_pop(L,1);return NULL;}}LUALIB_API -void luaL_checkstack(lua_State*L,int space,const char*mes){if(!lua_checkstack( -L,space))luaL_error(L,"stack overflow (%s)",mes);}LUALIB_API void -luaL_checktype(lua_State*L,int narg,int t){if(lua_type(L,narg)!=t)tag_error(L, -narg,t);}LUALIB_API void luaL_checkany(lua_State*L,int narg){if(lua_type(L, -narg)==LUA_TNONE)luaL_argerror(L,narg,"value expected");}LUALIB_API const char -*luaL_checklstring(lua_State*L,int narg,size_t*len){const char*s=lua_tostring( -L,narg);if(!s)tag_error(L,narg,LUA_TSTRING);if(len)*len=lua_strlen(L,narg); -return s;}LUALIB_API const char*luaL_optlstring(lua_State*L,int narg,const -char*def,size_t*len){if(lua_isnoneornil(L,narg)){if(len)*len=(def?strlen(def): -0);return def;}else return luaL_checklstring(L,narg,len);}LUALIB_API -lua_Number luaL_checknumber(lua_State*L,int narg){lua_Number d=lua_tonumber(L, -narg);if(d==0&&!lua_isnumber(L,narg))tag_error(L,narg,LUA_TNUMBER);return d;} -LUALIB_API lua_Number luaL_optnumber(lua_State*L,int narg,lua_Number def){if( -lua_isnoneornil(L,narg))return def;else return luaL_checknumber(L,narg);} -LUALIB_API int luaL_getmetafield(lua_State*L,int obj,const char*event){if(! -lua_getmetatable(L,obj))return 0;lua_pushstring(L,event);lua_rawget(L,-2);if( -lua_isnil(L,-1)){lua_pop(L,2);return 0;}else{lua_remove(L,-2);return 1;}} -LUALIB_API int luaL_callmeta(lua_State*L,int obj,const char*event){obj= -abs_index(L,obj);if(!luaL_getmetafield(L,obj,event))return 0;lua_pushvalue(L, -obj);lua_call(L,1,1);return 1;}LUALIB_API void luaL_openlib(lua_State*L,const -char*libname,const luaL_reg*l,int nup){if(libname){lua_pushstring(L,libname); -lua_gettable(L,LUA_GLOBALSINDEX);if(lua_isnil(L,-1)){lua_pop(L,1);lua_newtable -(L);lua_pushstring(L,libname);lua_pushvalue(L,-2);lua_settable(L, -LUA_GLOBALSINDEX);}lua_insert(L,-(nup+1));}for(;l->name;l++){int i; -lua_pushstring(L,l->name);for(i=0;ifunc,nup);lua_settable(L,-(nup+3));}lua_pop(L,nup);} -static int checkint(lua_State*L,int topop){int n=(int)lua_tonumber(L,-1);if(n -==0&&!lua_isnumber(L,-1))n=-1;lua_pop(L,topop);return n;}static void getsizes( -lua_State*L){lua_rawgeti(L,LUA_REGISTRYINDEX,ARRAYSIZE_REF);if(lua_isnil(L,-1) -){lua_pop(L,1);lua_newtable(L);lua_pushvalue(L,-1);lua_setmetatable(L,-2); -lua_pushliteral(L,"__mode");lua_pushliteral(L,"k");lua_rawset(L,-3); -lua_pushvalue(L,-1);lua_rawseti(L,LUA_REGISTRYINDEX,ARRAYSIZE_REF);}}void -luaL_setn(lua_State*L,int t,int n){t=abs_index(L,t);lua_pushliteral(L,"n"); -lua_rawget(L,t);if(checkint(L,1)>=0){lua_pushliteral(L,"n");lua_pushnumber(L,( -lua_Number)n);lua_rawset(L,t);}else{getsizes(L);lua_pushvalue(L,t); -lua_pushnumber(L,(lua_Number)n);lua_rawset(L,-3);lua_pop(L,1);}}int luaL_getn( -lua_State*L,int t){int n;t=abs_index(L,t);lua_pushliteral(L,"n");lua_rawget(L, -t);if((n=checkint(L,1))>=0)return n;getsizes(L);lua_pushvalue(L,t);lua_rawget( -L,-2);if((n=checkint(L,2))>=0)return n;for(n=1;;n++){lua_rawgeti(L,t,n);if( -lua_isnil(L,-1))break;lua_pop(L,1);}lua_pop(L,1);return n-1;} -#define bufflen(B) ((B)->p-(B)->buffer) -#define bufffree(B) ((size_t)(LUAL_BUFFERSIZE-bufflen(B))) -#define LIMIT (LUA_MINSTACK/2) -static int emptybuffer(luaL_Buffer*B){size_t l=bufflen(B);if(l==0)return 0; -else{lua_pushlstring(B->L,B->buffer,l);B->p=B->buffer;B->lvl++;return 1;}} -static void adjuststack(luaL_Buffer*B){if(B->lvl>1){lua_State*L=B->L;int toget -=1;size_t toplen=lua_strlen(L,-1);do{size_t l=lua_strlen(L,-(toget+1));if(B-> -lvl-toget+1>=LIMIT||toplen>l){toplen+=l;toget++;}else break;}while(toget -lvl);lua_concat(L,toget);B->lvl=B->lvl-toget+1;}}LUALIB_API char* -luaL_prepbuffer(luaL_Buffer*B){if(emptybuffer(B))adjuststack(B);return B-> -buffer;}LUALIB_API void luaL_addlstring(luaL_Buffer*B,const char*s,size_t l){ -while(l--)luaL_putchar(B,*s++);}LUALIB_API void luaL_addstring(luaL_Buffer*B, -const char*s){luaL_addlstring(B,s,strlen(s));}LUALIB_API void luaL_pushresult( -luaL_Buffer*B){emptybuffer(B);lua_concat(B->L,B->lvl);B->lvl=1;}LUALIB_API -void luaL_addvalue(luaL_Buffer*B){lua_State*L=B->L;size_t vl=lua_strlen(L,-1); -if(vl<=bufffree(B)){memcpy(B->p,lua_tostring(L,-1),vl);B->p+=vl;lua_pop(L,1);} -else{if(emptybuffer(B))lua_insert(L,-2);B->lvl++;adjuststack(B);}}LUALIB_API -void luaL_buffinit(lua_State*L,luaL_Buffer*B){B->L=L;B->p=B->buffer;B->lvl=0;} -LUALIB_API int luaL_ref(lua_State*L,int t){int ref;t=abs_index(L,t);if( -lua_isnil(L,-1)){lua_pop(L,1);return LUA_REFNIL;}lua_rawgeti(L,t,FREELIST_REF) -;ref=(int)lua_tonumber(L,-1);lua_pop(L,1);if(ref!=0){lua_rawgeti(L,t,ref); -lua_rawseti(L,t,FREELIST_REF);}else{ref=luaL_getn(L,t);if(ref=0){t=abs_index(L -,t);lua_rawgeti(L,t,FREELIST_REF);lua_rawseti(L,t,ref);lua_pushnumber(L,( -lua_Number)ref);lua_rawseti(L,t,FREELIST_REF);}}typedef struct LoadF{FILE*f; -char buff[LUAL_BUFFERSIZE];}LoadF;static const char*getF(lua_State*L,void*ud, -size_t*size){LoadF*lf=(LoadF*)ud;(void)L;if(feof(lf->f))return NULL;*size= -fread(lf->buff,1,LUAL_BUFFERSIZE,lf->f);return(*size>0)?lf->buff:NULL;}static -int errfile(lua_State*L,int fnameindex){const char*filename=lua_tostring(L, -fnameindex)+1;lua_pushfstring(L,"cannot read %s: %s",filename,strerror(errno)) -;lua_remove(L,fnameindex);return LUA_ERRFILE;}LUALIB_API int luaL_loadfile( -lua_State*L,const char*filename){LoadF lf;int status,readstatus;int c;int -fnameindex=lua_gettop(L)+1;if(filename==NULL){lua_pushliteral(L,"=stdin");lf.f -=stdin;}else{lua_pushfstring(L,"@%s",filename);lf.f=fopen(filename,"r");}if(lf -.f==NULL)return errfile(L,fnameindex);c=ungetc(getc(lf.f),lf.f);if(!(isspace(c -)||isprint(c))&&lf.f!=stdin){fclose(lf.f);lf.f=fopen(filename,"rb");if(lf.f== -NULL)return errfile(L,fnameindex);}status=lua_load(L,getF,&lf,lua_tostring(L,- -1));readstatus=ferror(lf.f);if(lf.f!=stdin)fclose(lf.f);if(readstatus){ -lua_settop(L,fnameindex);return errfile(L,fnameindex);}lua_remove(L,fnameindex -);return status;}typedef struct LoadS{const char*s;size_t size;}LoadS;static -const char*getS(lua_State*L,void*ud,size_t*size){LoadS*ls=(LoadS*)ud;(void)L; -if(ls->size==0)return NULL;*size=ls->size;ls->size=0;return ls->s;}LUALIB_API -int luaL_loadbuffer(lua_State*L,const char*buff,size_t size,const char*name){ -LoadS ls;ls.s=buff;ls.size=size;return lua_load(L,getS,&ls,name);}static void -callalert(lua_State*L,int status){if(status!=0){lua_getglobal(L,"_ALERT");if( -lua_isfunction(L,-1)){lua_insert(L,-2);lua_call(L,1,0);}else{fprintf(stderr, -"%s\n",lua_tostring(L,-2));lua_pop(L,2);}}}static int aux_do(lua_State*L,int -status){if(status==0){status=lua_pcall(L,0,LUA_MULTRET,0);}callalert(L,status) -;return status;}LUALIB_API int lua_dofile(lua_State*L,const char*filename){ -return aux_do(L,luaL_loadfile(L,filename));}LUALIB_API int lua_dobuffer( -lua_State*L,const char*buff,size_t size,const char*name){return aux_do(L, -luaL_loadbuffer(L,buff,size,name));}LUALIB_API int lua_dostring(lua_State*L, -const char*str){return lua_dobuffer(L,str,strlen(str),str);} -#line 1 "lbaselib.c" -#define lbaselib_c -#line 1 "lualib.h" -#ifndef lualib_h -#define lualib_h -#ifndef LUALIB_API -#define LUALIB_API LUA_API -#endif -#define LUA_COLIBNAME "coroutine" -LUALIB_API int luaopen_base(lua_State*L); -#define LUA_TABLIBNAME "table" -LUALIB_API int luaopen_table(lua_State*L); -#define LUA_IOLIBNAME "io" -#define LUA_OSLIBNAME "os" -LUALIB_API int luaopen_io(lua_State*L); -#define LUA_STRLIBNAME "string" -LUALIB_API int luaopen_string(lua_State*L); -#define LUA_MATHLIBNAME "math" -LUALIB_API int luaopen_math(lua_State*L); -#define LUA_DBLIBNAME "debug" -LUALIB_API int luaopen_debug(lua_State*L);LUALIB_API int luaopen_loadlib( -lua_State*L); -#ifndef lua_assert -#define lua_assert(c) -#endif -#define lua_baselibopen luaopen_base -#define lua_tablibopen luaopen_table -#define lua_iolibopen luaopen_io -#define lua_strlibopen luaopen_string -#define lua_mathlibopen luaopen_math -#define lua_dblibopen luaopen_debug -#endif -#line 20 "lbaselib.c" -static int luaB_print(lua_State*L){int n=lua_gettop(L);int i;lua_getglobal(L, -"tostring");for(i=1;i<=n;i++){const char*s;lua_pushvalue(L,-1);lua_pushvalue(L -,i);lua_call(L,1,1);s=lua_tostring(L,-1);if(s==NULL)return luaL_error(L, -"`tostring' must return a string to `print'");if(i>1)fputs("\t",stdout);fputs( -s,stdout);lua_pop(L,1);}fputs("\n",stdout);return 0;}static int luaB_tonumber( -lua_State*L){int base=luaL_optint(L,2,10);if(base==10){luaL_checkany(L,1);if( -lua_isnumber(L,1)){lua_pushnumber(L,lua_tonumber(L,1));return 1;}}else{const -char*s1=luaL_checkstring(L,1);char*s2;unsigned long n;luaL_argcheck(L,2<=base -&&base<=36,2,"base out of range");n=strtoul(s1,&s2,base);if(s1!=s2){while( -isspace((unsigned char)(*s2)))s2++;if(*s2=='\0'){lua_pushnumber(L,(lua_Number) -n);return 1;}}}lua_pushnil(L);return 1;}static int luaB_error(lua_State*L){int - level=luaL_optint(L,2,1);luaL_checkany(L,1);if(!lua_isstring(L,1)||level==0) -lua_pushvalue(L,1);else{luaL_where(L,level);lua_pushvalue(L,1);lua_concat(L,2) -;}return lua_error(L);}static int luaB_getmetatable(lua_State*L){luaL_checkany -(L,1);if(!lua_getmetatable(L,1)){lua_pushnil(L);return 1;}luaL_getmetafield(L, -1,"__metatable");return 1;}static int luaB_setmetatable(lua_State*L){int t= -lua_type(L,2);luaL_checktype(L,1,LUA_TTABLE);luaL_argcheck(L,t==LUA_TNIL||t== -LUA_TTABLE,2,"nil or table expected");if(luaL_getmetafield(L,1,"__metatable")) -luaL_error(L,"cannot change a protected metatable");lua_settop(L,2); -lua_setmetatable(L,1);return 1;}static void getfunc(lua_State*L){if( -lua_isfunction(L,1))lua_pushvalue(L,1);else{lua_Debug ar;int level=luaL_optint -(L,1,1);luaL_argcheck(L,level>=0,1,"level must be non-negative");if( -lua_getstack(L,level,&ar)==0)luaL_argerror(L,1,"invalid level");lua_getinfo(L, -"f",&ar);if(lua_isnil(L,-1))luaL_error(L, -"no function environment for tail call at level %d",level);}}static int -aux_getfenv(lua_State*L){lua_getfenv(L,-1);lua_pushliteral(L,"__fenv"); -lua_rawget(L,-2);return!lua_isnil(L,-1);}static int luaB_getfenv(lua_State*L){ -getfunc(L);if(!aux_getfenv(L))lua_pop(L,1);return 1;}static int luaB_setfenv( -lua_State*L){luaL_checktype(L,2,LUA_TTABLE);getfunc(L);if(aux_getfenv(L)) -luaL_error(L,"`setfenv' cannot change a protected environment");else lua_pop(L -,2);lua_pushvalue(L,2);if(lua_isnumber(L,1)&&lua_tonumber(L,1)==0)lua_replace( -L,LUA_GLOBALSINDEX);else if(lua_setfenv(L,-2)==0)luaL_error(L, -"`setfenv' cannot change environment of given function");return 0;}static int -luaB_rawequal(lua_State*L){luaL_checkany(L,1);luaL_checkany(L,2); -lua_pushboolean(L,lua_rawequal(L,1,2));return 1;}static int luaB_rawget( -lua_State*L){luaL_checktype(L,1,LUA_TTABLE);luaL_checkany(L,2);lua_rawget(L,1) -;return 1;}static int luaB_rawset(lua_State*L){luaL_checktype(L,1,LUA_TTABLE); -luaL_checkany(L,2);luaL_checkany(L,3);lua_rawset(L,1);return 1;}static int -luaB_gcinfo(lua_State*L){lua_pushnumber(L,(lua_Number)lua_getgccount(L)); -lua_pushnumber(L,(lua_Number)lua_getgcthreshold(L));return 2;}static int -luaB_collectgarbage(lua_State*L){lua_setgcthreshold(L,luaL_optint(L,1,0)); -return 0;}static int luaB_type(lua_State*L){luaL_checkany(L,1);lua_pushstring( -L,lua_typename(L,lua_type(L,1)));return 1;}static int luaB_next(lua_State*L){ -luaL_checktype(L,1,LUA_TTABLE);lua_settop(L,2);if(lua_next(L,1))return 2;else{ -lua_pushnil(L);return 1;}}static int luaB_pairs(lua_State*L){luaL_checktype(L, -1,LUA_TTABLE);lua_pushliteral(L,"next");lua_rawget(L,LUA_GLOBALSINDEX); -lua_pushvalue(L,1);lua_pushnil(L);return 3;}static int luaB_ipairs(lua_State*L -){lua_Number i=lua_tonumber(L,2);luaL_checktype(L,1,LUA_TTABLE);if(i==0&& -lua_isnone(L,2)){lua_pushliteral(L,"ipairs");lua_rawget(L,LUA_GLOBALSINDEX); -lua_pushvalue(L,1);lua_pushnumber(L,0);return 3;}else{i++;lua_pushnumber(L,i); -lua_rawgeti(L,1,(int)i);return(lua_isnil(L,-1))?0:2;}}static int load_aux( -lua_State*L,int status){if(status==0)return 1;else{lua_pushnil(L);lua_insert(L -,-2);return 2;}}static int luaB_loadstring(lua_State*L){size_t l;const char*s= -luaL_checklstring(L,1,&l);const char*chunkname=luaL_optstring(L,2,s);return -load_aux(L,luaL_loadbuffer(L,s,l,chunkname));}static int luaB_loadfile( -lua_State*L){const char*fname=luaL_optstring(L,1,NULL);return load_aux(L, -luaL_loadfile(L,fname));}static int luaB_dofile(lua_State*L){const char*fname= -luaL_optstring(L,1,NULL);int n=lua_gettop(L);int status=luaL_loadfile(L,fname) -;if(status!=0)lua_error(L);lua_call(L,0,LUA_MULTRET);return lua_gettop(L)-n;} -static int luaB_assert(lua_State*L){luaL_checkany(L,1);if(!lua_toboolean(L,1)) -return luaL_error(L,"%s",luaL_optstring(L,2,"assertion failed!"));lua_settop(L -,1);return 1;}static int luaB_unpack(lua_State*L){int n,i;luaL_checktype(L,1, -LUA_TTABLE);n=luaL_getn(L,1);luaL_checkstack(L,n,"table too big to unpack"); -for(i=1;i<=n;i++)lua_rawgeti(L,1,i);return n;}static int luaB_pcall(lua_State* -L){int status;luaL_checkany(L,1);status=lua_pcall(L,lua_gettop(L)-1, -LUA_MULTRET,0);lua_pushboolean(L,(status==0));lua_insert(L,1);return -lua_gettop(L);}static int luaB_xpcall(lua_State*L){int status;luaL_checkany(L, -2);lua_settop(L,2);lua_insert(L,1);status=lua_pcall(L,0,LUA_MULTRET,1); -lua_pushboolean(L,(status==0));lua_replace(L,1);return lua_gettop(L);}static -int luaB_tostring(lua_State*L){char buff[128];luaL_checkany(L,1);if( -luaL_callmeta(L,1,"__tostring"))return 1;switch(lua_type(L,1)){case -LUA_TNUMBER:lua_pushstring(L,lua_tostring(L,1));return 1;case LUA_TSTRING: -lua_pushvalue(L,1);return 1;case LUA_TBOOLEAN:lua_pushstring(L,(lua_toboolean( -L,1)?"true":"false"));return 1;case LUA_TTABLE:sprintf(buff,"table: %p", -lua_topointer(L,1));break;case LUA_TFUNCTION:sprintf(buff,"function: %p", -lua_topointer(L,1));break;case LUA_TUSERDATA:case LUA_TLIGHTUSERDATA:sprintf( -buff,"userdata: %p",lua_touserdata(L,1));break;case LUA_TTHREAD:sprintf(buff, -"thread: %p",(void*)lua_tothread(L,1));break;case LUA_TNIL:lua_pushliteral(L, -"nil");return 1;}lua_pushstring(L,buff);return 1;}static int luaB_newproxy( -lua_State*L){lua_settop(L,1);lua_newuserdata(L,0);if(lua_toboolean(L,1)==0) -return 1;else if(lua_isboolean(L,1)){lua_newtable(L);lua_pushvalue(L,-1); -lua_pushboolean(L,1);lua_rawset(L,lua_upvalueindex(1));}else{int validproxy=0; -if(lua_getmetatable(L,1)){lua_rawget(L,lua_upvalueindex(1));validproxy= -lua_toboolean(L,-1);lua_pop(L,1);}luaL_argcheck(L,validproxy,1, -"boolean or proxy expected");lua_getmetatable(L,1);}lua_setmetatable(L,2); -return 1;} -#define REQTAB "_LOADED" -#define LUA_PATH "LUA_PATH" -#ifndef LUA_PATH_SEP -#define LUA_PATH_SEP ';' -#endif -#ifndef LUA_PATH_MARK -#define LUA_PATH_MARK '?' -#endif -#ifndef LUA_PATH_DEFAULT -#define LUA_PATH_DEFAULT "?;?.lua" -#endif -static const char*getpath(lua_State*L){const char*path;lua_getglobal(L, -LUA_PATH);path=lua_tostring(L,-1);lua_pop(L,1);if(path)return path;path=getenv -(LUA_PATH);if(path)return path;return LUA_PATH_DEFAULT;}static const char* -pushnextpath(lua_State*L,const char*path){const char*l;if(*path=='\0')return -NULL;if(*path==LUA_PATH_SEP)path++;l=strchr(path,LUA_PATH_SEP);if(l==NULL)l= -path+strlen(path);lua_pushlstring(L,path,l-path);return l;}static void -pushcomposename(lua_State*L){const char*path=lua_tostring(L,-1);const char* -wild;int n=1;while((wild=strchr(path,LUA_PATH_MARK))!=NULL){luaL_checkstack(L, -3,"too many marks in a path component");lua_pushlstring(L,path,wild-path); -lua_pushvalue(L,1);path=wild+1;n+=2;}lua_pushstring(L,path);lua_concat(L,n);} -static int luaB_require(lua_State*L){const char*path;int status=LUA_ERRFILE; -luaL_checkstring(L,1);lua_settop(L,1);lua_getglobal(L,REQTAB);if(!lua_istable( -L,2))return luaL_error(L,"`"REQTAB"' is not a table");path=getpath(L); -lua_pushvalue(L,1);lua_rawget(L,2);if(lua_toboolean(L,-1))return 1;else{while( -status==LUA_ERRFILE){lua_settop(L,3);if((path=pushnextpath(L,path))==NULL) -break;pushcomposename(L);status=luaL_loadfile(L,lua_tostring(L,-1));}}switch( -status){case 0:{lua_getglobal(L,"_REQUIREDNAME");lua_insert(L,-2); -lua_pushvalue(L,1);lua_setglobal(L,"_REQUIREDNAME");lua_call(L,0,1);lua_insert -(L,-2);lua_setglobal(L,"_REQUIREDNAME");if(lua_isnil(L,-1)){lua_pushboolean(L, -1);lua_replace(L,-2);}lua_pushvalue(L,1);lua_pushvalue(L,-2);lua_rawset(L,2); -return 1;}case LUA_ERRFILE:{return luaL_error(L, -"could not load package `%s' from path `%s'",lua_tostring(L,1),getpath(L));} -default:{return luaL_error(L,"error loading package `%s' (%s)",lua_tostring(L, -1),lua_tostring(L,-1));}}}static const luaL_reg base_funcs[]={{"error", -luaB_error},{"getmetatable",luaB_getmetatable},{"setmetatable", -luaB_setmetatable},{"getfenv",luaB_getfenv},{"setfenv",luaB_setfenv},{"next", -luaB_next},{"ipairs",luaB_ipairs},{"pairs",luaB_pairs},{"print",luaB_print},{ -"tonumber",luaB_tonumber},{"tostring",luaB_tostring},{"type",luaB_type},{ -"assert",luaB_assert},{"unpack",luaB_unpack},{"rawequal",luaB_rawequal},{ -"rawget",luaB_rawget},{"rawset",luaB_rawset},{"pcall",luaB_pcall},{"xpcall", -luaB_xpcall},{"collectgarbage",luaB_collectgarbage},{"gcinfo",luaB_gcinfo},{ -"loadfile",luaB_loadfile},{"dofile",luaB_dofile},{"loadstring",luaB_loadstring -},{"require",luaB_require},{NULL,NULL}};static int auxresume(lua_State*L, -lua_State*co,int narg){int status;if(!lua_checkstack(co,narg))luaL_error(L, -"too many arguments to resume");lua_xmove(L,co,narg);status=lua_resume(co,narg -);if(status==0){int nres=lua_gettop(co);if(!lua_checkstack(L,nres))luaL_error( -L,"too many results to resume");lua_xmove(co,L,nres);return nres;}else{ -lua_xmove(co,L,1);return-1;}}static int luaB_coresume(lua_State*L){lua_State* -co=lua_tothread(L,1);int r;luaL_argcheck(L,co,1,"coroutine expected");r= -auxresume(L,co,lua_gettop(L)-1);if(r<0){lua_pushboolean(L,0);lua_insert(L,-2); -return 2;}else{lua_pushboolean(L,1);lua_insert(L,-(r+1));return r+1;}}static -int luaB_auxwrap(lua_State*L){lua_State*co=lua_tothread(L,lua_upvalueindex(1)) -;int r=auxresume(L,co,lua_gettop(L));if(r<0){if(lua_isstring(L,-1)){luaL_where -(L,1);lua_insert(L,-2);lua_concat(L,2);}lua_error(L);}return r;}static int -luaB_cocreate(lua_State*L){lua_State*NL=lua_newthread(L);luaL_argcheck(L, -lua_isfunction(L,1)&&!lua_iscfunction(L,1),1,"Lua function expected"); -lua_pushvalue(L,1);lua_xmove(L,NL,1);return 1;}static int luaB_cowrap( -lua_State*L){luaB_cocreate(L);lua_pushcclosure(L,luaB_auxwrap,1);return 1;} -static int luaB_yield(lua_State*L){return lua_yield(L,lua_gettop(L));}static -int luaB_costatus(lua_State*L){lua_State*co=lua_tothread(L,1);luaL_argcheck(L, -co,1,"coroutine expected");if(L==co)lua_pushliteral(L,"running");else{ -lua_Debug ar;if(lua_getstack(co,0,&ar)==0&&lua_gettop(co)==0)lua_pushliteral(L -,"dead");else lua_pushliteral(L,"suspended");}return 1;}static const luaL_reg -co_funcs[]={{"create",luaB_cocreate},{"wrap",luaB_cowrap},{"resume", -luaB_coresume},{"yield",luaB_yield},{"status",luaB_costatus},{NULL,NULL}}; -static void base_open(lua_State*L){lua_pushliteral(L,"_G");lua_pushvalue(L, -LUA_GLOBALSINDEX);luaL_openlib(L,NULL,base_funcs,0);lua_pushliteral(L, -"_VERSION");lua_pushliteral(L,LUA_VERSION);lua_rawset(L,-3);lua_pushliteral(L, -"newproxy");lua_newtable(L);lua_pushvalue(L,-1);lua_setmetatable(L,-2); -lua_pushliteral(L,"__mode");lua_pushliteral(L,"k");lua_rawset(L,-3); -lua_pushcclosure(L,luaB_newproxy,1);lua_rawset(L,-3);lua_rawset(L,-1);} -LUALIB_API int luaopen_base(lua_State*L){base_open(L);luaL_openlib(L, -LUA_COLIBNAME,co_funcs,0);lua_newtable(L);lua_setglobal(L,REQTAB);return 0;} -#line 1 "lcode.c" -#define lcode_c -#line 1 "lcode.h" -#ifndef lcode_h -#define lcode_h -#line 1 "llex.h" -#ifndef llex_h -#define llex_h -#define FIRST_RESERVED 257 -#define TOKEN_LEN (sizeof("function")/sizeof(char)) -enum RESERVED{TK_AND=FIRST_RESERVED,TK_BREAK,TK_DO,TK_ELSE,TK_ELSEIF,TK_END, -TK_FALSE,TK_FOR,TK_FUNCTION,TK_IF,TK_IN,TK_LOCAL,TK_NIL,TK_NOT,TK_OR,TK_REPEAT -,TK_RETURN,TK_THEN,TK_TRUE,TK_UNTIL,TK_WHILE,TK_NAME,TK_CONCAT,TK_DOTS,TK_EQ, -TK_GE,TK_LE,TK_NE,TK_NUMBER,TK_STRING,TK_EOS}; -#define NUM_RESERVED (cast(int,TK_WHILE-FIRST_RESERVED+1)) -typedef union{lua_Number r;TString*ts;}SemInfo;typedef struct Token{int token; -SemInfo seminfo;}Token;typedef struct LexState{int current;int linenumber;int -lastline;Token t;Token lookahead;struct FuncState*fs;struct lua_State*L;ZIO*z; -Mbuffer*buff;TString*source;int nestlevel;}LexState;void luaX_init(lua_State*L -);void luaX_setinput(lua_State*L,LexState*LS,ZIO*z,TString*source);int -luaX_lex(LexState*LS,SemInfo*seminfo);void luaX_checklimit(LexState*ls,int val -,int limit,const char*msg);void luaX_syntaxerror(LexState*ls,const char*s); -void luaX_errorline(LexState*ls,const char*s,const char*token,int line);const -char*luaX_token2str(LexState*ls,int token); -#endif -#line 11 "lcode.h" -#line 1 "lopcodes.h" -#ifndef lopcodes_h -#define lopcodes_h -enum OpMode{iABC,iABx,iAsBx}; -#define SIZE_C 9 -#define SIZE_B 9 -#define SIZE_Bx (SIZE_C+SIZE_B) -#define SIZE_A 8 -#define SIZE_OP 6 -#define POS_C SIZE_OP -#define POS_B (POS_C+SIZE_C) -#define POS_Bx POS_C -#define POS_A (POS_B+SIZE_B) -#if SIZE_Bx >1) -#else -#define MAXARG_Bx MAX_INT -#define MAXARG_sBx MAX_INT -#endif -#define MAXARG_A ((1<>POS_A)) -#define SETARG_A(i,u) ((i)=(((i)&MASK0(SIZE_A,POS_A))|((cast(Instruction,u)<<\ -POS_A)&MASK1(SIZE_A,POS_A)))) -#define GETARG_B(i) (cast(int,((i)>>POS_B)&MASK1(SIZE_B,0))) -#define SETARG_B(i,b) ((i)=(((i)&MASK0(SIZE_B,POS_B))|((cast(Instruction,b)<<\ -POS_B)&MASK1(SIZE_B,POS_B)))) -#define GETARG_C(i) (cast(int,((i)>>POS_C)&MASK1(SIZE_C,0))) -#define SETARG_C(i,b) ((i)=(((i)&MASK0(SIZE_C,POS_C))|((cast(Instruction,b)<<\ -POS_C)&MASK1(SIZE_C,POS_C)))) -#define GETARG_Bx(i) (cast(int,((i)>>POS_Bx)&MASK1(SIZE_Bx,0))) -#define SETARG_Bx(i,b) ((i)=(((i)&MASK0(SIZE_Bx,POS_Bx))|((cast(Instruction,b)\ -<=OPR_NE) -typedef enum UnOpr{OPR_MINUS,OPR_NOT,OPR_NOUNOPR}UnOpr; -#define getcode(fs,e) ((fs)->f->code[(e)->info]) -#define luaK_codeAsBx(fs,o,A,sBx) luaK_codeABx(fs,o,A,(sBx)+MAXARG_sBx) -int luaK_code(FuncState*fs,Instruction i,int line);int luaK_codeABx(FuncState* -fs,OpCode o,int A,unsigned int Bx);int luaK_codeABC(FuncState*fs,OpCode o,int -A,int B,int C);void luaK_fixline(FuncState*fs,int line);void luaK_nil( -FuncState*fs,int from,int n);void luaK_reserveregs(FuncState*fs,int n);void -luaK_checkstack(FuncState*fs,int n);int luaK_stringK(FuncState*fs,TString*s); -int luaK_numberK(FuncState*fs,lua_Number r);void luaK_dischargevars(FuncState* -fs,expdesc*e);int luaK_exp2anyreg(FuncState*fs,expdesc*e);void -luaK_exp2nextreg(FuncState*fs,expdesc*e);void luaK_exp2val(FuncState*fs, -expdesc*e);int luaK_exp2RK(FuncState*fs,expdesc*e);void luaK_self(FuncState*fs -,expdesc*e,expdesc*key);void luaK_indexed(FuncState*fs,expdesc*t,expdesc*k); -void luaK_goiftrue(FuncState*fs,expdesc*e);void luaK_goiffalse(FuncState*fs, -expdesc*e);void luaK_storevar(FuncState*fs,expdesc*var,expdesc*e);void -luaK_setcallreturns(FuncState*fs,expdesc*var,int nresults);int luaK_jump( -FuncState*fs);void luaK_patchlist(FuncState*fs,int list,int target);void -luaK_patchtohere(FuncState*fs,int list);void luaK_concat(FuncState*fs,int*l1, -int l2);int luaK_getlabel(FuncState*fs);void luaK_prefix(FuncState*fs,UnOpr op -,expdesc*v);void luaK_infix(FuncState*fs,BinOpr op,expdesc*v);void luaK_posfix -(FuncState*fs,BinOpr op,expdesc*v1,expdesc*v2); -#endif -#line 15 "lcode.c" -#define hasjumps(e) ((e)->t!=(e)->f) -void luaK_nil(FuncState*fs,int from,int n){Instruction*previous;if(fs->pc>fs-> -lasttarget&&GET_OPCODE(*(previous=&fs->f->code[fs->pc-1]))==OP_LOADNIL){int -pfrom=GETARG_A(*previous);int pto=GETARG_B(*previous);if(pfrom<=from&&from<= -pto+1){if(from+n-1>pto)SETARG_B(*previous,from+n-1);return;}}luaK_codeABC(fs, -OP_LOADNIL,from,from+n-1,0);}int luaK_jump(FuncState*fs){int jpc=fs->jpc;int j -;fs->jpc=NO_JUMP;j=luaK_codeAsBx(fs,OP_JMP,0,NO_JUMP);luaK_concat(fs,&j,jpc); -return j;}static int luaK_condjump(FuncState*fs,OpCode op,int A,int B,int C){ -luaK_codeABC(fs,op,A,B,C);return luaK_jump(fs);}static void luaK_fixjump( -FuncState*fs,int pc,int dest){Instruction*jmp=&fs->f->code[pc];int offset=dest --(pc+1);lua_assert(dest!=NO_JUMP);if(abs(offset)>MAXARG_sBx)luaX_syntaxerror( -fs->ls,"control structure too long");SETARG_sBx(*jmp,offset);}int -luaK_getlabel(FuncState*fs){fs->lasttarget=fs->pc;return fs->pc;}static int -luaK_getjump(FuncState*fs,int pc){int offset=GETARG_sBx(fs->f->code[pc]);if( -offset==NO_JUMP)return NO_JUMP;else return(pc+1)+offset;}static Instruction* -getjumpcontrol(FuncState*fs,int pc){Instruction*pi=&fs->f->code[pc];if(pc>=1&& -testOpMode(GET_OPCODE(*(pi-1)),OpModeT))return pi-1;else return pi;}static int - need_value(FuncState*fs,int list,int cond){for(;list!=NO_JUMP;list= -luaK_getjump(fs,list)){Instruction i=*getjumpcontrol(fs,list);if(GET_OPCODE(i) -!=OP_TEST||GETARG_C(i)!=cond)return 1;}return 0;}static void patchtestreg( -Instruction*i,int reg){if(reg==NO_REG)reg=GETARG_B(*i);SETARG_A(*i,reg);} -static void luaK_patchlistaux(FuncState*fs,int list,int ttarget,int treg,int -ftarget,int freg,int dtarget){while(list!=NO_JUMP){int next=luaK_getjump(fs, -list);Instruction*i=getjumpcontrol(fs,list);if(GET_OPCODE(*i)!=OP_TEST){ -lua_assert(dtarget!=NO_JUMP);luaK_fixjump(fs,list,dtarget);}else{if(GETARG_C(* -i)){lua_assert(ttarget!=NO_JUMP);patchtestreg(i,treg);luaK_fixjump(fs,list, -ttarget);}else{lua_assert(ftarget!=NO_JUMP);patchtestreg(i,freg);luaK_fixjump( -fs,list,ftarget);}}list=next;}}static void luaK_dischargejpc(FuncState*fs){ -luaK_patchlistaux(fs,fs->jpc,fs->pc,NO_REG,fs->pc,NO_REG,fs->pc);fs->jpc= -NO_JUMP;}void luaK_patchlist(FuncState*fs,int list,int target){if(target==fs-> -pc)luaK_patchtohere(fs,list);else{lua_assert(targetpc);luaK_patchlistaux( -fs,list,target,NO_REG,target,NO_REG,target);}}void luaK_patchtohere(FuncState* -fs,int list){luaK_getlabel(fs);luaK_concat(fs,&fs->jpc,list);}void luaK_concat -(FuncState*fs,int*l1,int l2){if(l2==NO_JUMP)return;else if(*l1==NO_JUMP)*l1=l2 -;else{int list=*l1;int next;while((next=luaK_getjump(fs,list))!=NO_JUMP)list= -next;luaK_fixjump(fs,list,l2);}}void luaK_checkstack(FuncState*fs,int n){int -newstack=fs->freereg+n;if(newstack>fs->f->maxstacksize){if(newstack>=MAXSTACK) -luaX_syntaxerror(fs->ls,"function or expression too complex");fs->f-> -maxstacksize=cast(lu_byte,newstack);}}void luaK_reserveregs(FuncState*fs,int n -){luaK_checkstack(fs,n);fs->freereg+=n;}static void freereg(FuncState*fs,int -reg){if(reg>=fs->nactvar&®freereg--;lua_assert(reg==fs-> -freereg);}}static void freeexp(FuncState*fs,expdesc*e){if(e->k==VNONRELOC) -freereg(fs,e->info);}static int addk(FuncState*fs,TObject*k,TObject*v){const -TObject*idx=luaH_get(fs->h,k);if(ttisnumber(idx)){lua_assert(luaO_rawequalObj( -&fs->f->k[cast(int,nvalue(idx))],v));return cast(int,nvalue(idx));}else{Proto* -f=fs->f;luaM_growvector(fs->L,f->k,fs->nk,f->sizek,TObject,MAXARG_Bx, -"constant table overflow");setobj2n(&f->k[fs->nk],v);setnvalue(luaH_set(fs->L, -fs->h,k),cast(lua_Number,fs->nk));return fs->nk++;}}int luaK_stringK(FuncState -*fs,TString*s){TObject o;setsvalue(&o,s);return addk(fs,&o,&o);}int -luaK_numberK(FuncState*fs,lua_Number r){TObject o;setnvalue(&o,r);return addk( -fs,&o,&o);}static int nil_constant(FuncState*fs){TObject k,v;setnilvalue(&v); -sethvalue(&k,fs->h);return addk(fs,&k,&v);}void luaK_setcallreturns(FuncState* -fs,expdesc*e,int nresults){if(e->k==VCALL){SETARG_C(getcode(fs,e),nresults+1); -if(nresults==1){e->k=VNONRELOC;e->info=GETARG_A(getcode(fs,e));}}}void -luaK_dischargevars(FuncState*fs,expdesc*e){switch(e->k){case VLOCAL:{e->k= -VNONRELOC;break;}case VUPVAL:{e->info=luaK_codeABC(fs,OP_GETUPVAL,0,e->info,0) -;e->k=VRELOCABLE;break;}case VGLOBAL:{e->info=luaK_codeABx(fs,OP_GETGLOBAL,0,e -->info);e->k=VRELOCABLE;break;}case VINDEXED:{freereg(fs,e->aux);freereg(fs,e -->info);e->info=luaK_codeABC(fs,OP_GETTABLE,0,e->info,e->aux);e->k=VRELOCABLE; -break;}case VCALL:{luaK_setcallreturns(fs,e,1);break;}default:break;}}static -int code_label(FuncState*fs,int A,int b,int jump){luaK_getlabel(fs);return -luaK_codeABC(fs,OP_LOADBOOL,A,b,jump);}static void discharge2reg(FuncState*fs, -expdesc*e,int reg){luaK_dischargevars(fs,e);switch(e->k){case VNIL:{luaK_nil( -fs,reg,1);break;}case VFALSE:case VTRUE:{luaK_codeABC(fs,OP_LOADBOOL,reg,e->k -==VTRUE,0);break;}case VK:{luaK_codeABx(fs,OP_LOADK,reg,e->info);break;}case -VRELOCABLE:{Instruction*pc=&getcode(fs,e);SETARG_A(*pc,reg);break;}case -VNONRELOC:{if(reg!=e->info)luaK_codeABC(fs,OP_MOVE,reg,e->info,0);break;} -default:{lua_assert(e->k==VVOID||e->k==VJMP);return;}}e->info=reg;e->k= -VNONRELOC;}static void discharge2anyreg(FuncState*fs,expdesc*e){if(e->k!= -VNONRELOC){luaK_reserveregs(fs,1);discharge2reg(fs,e,fs->freereg-1);}}static -void luaK_exp2reg(FuncState*fs,expdesc*e,int reg){discharge2reg(fs,e,reg);if(e -->k==VJMP)luaK_concat(fs,&e->t,e->info);if(hasjumps(e)){int final;int p_f= -NO_JUMP;int p_t=NO_JUMP;if(need_value(fs,e->t,1)||need_value(fs,e->f,0)){int -fj=NO_JUMP;if(e->k!=VJMP)fj=luaK_jump(fs);p_f=code_label(fs,reg,0,1);p_t= -code_label(fs,reg,1,0);luaK_patchtohere(fs,fj);}final=luaK_getlabel(fs); -luaK_patchlistaux(fs,e->f,p_f,NO_REG,final,reg,p_f);luaK_patchlistaux(fs,e->t, -final,reg,p_t,NO_REG,p_t);}e->f=e->t=NO_JUMP;e->info=reg;e->k=VNONRELOC;}void -luaK_exp2nextreg(FuncState*fs,expdesc*e){luaK_dischargevars(fs,e);freeexp(fs,e -);luaK_reserveregs(fs,1);luaK_exp2reg(fs,e,fs->freereg-1);}int luaK_exp2anyreg -(FuncState*fs,expdesc*e){luaK_dischargevars(fs,e);if(e->k==VNONRELOC){if(! -hasjumps(e))return e->info;if(e->info>=fs->nactvar){luaK_exp2reg(fs,e,e->info) -;return e->info;}}luaK_exp2nextreg(fs,e);return e->info;}void luaK_exp2val( -FuncState*fs,expdesc*e){if(hasjumps(e))luaK_exp2anyreg(fs,e);else -luaK_dischargevars(fs,e);}int luaK_exp2RK(FuncState*fs,expdesc*e){luaK_exp2val -(fs,e);switch(e->k){case VNIL:{if(fs->nk+MAXSTACK<=MAXARG_C){e->info= -nil_constant(fs);e->k=VK;return e->info+MAXSTACK;}else break;}case VK:{if(e-> -info+MAXSTACK<=MAXARG_C)return e->info+MAXSTACK;else break;}default:break;} -return luaK_exp2anyreg(fs,e);}void luaK_storevar(FuncState*fs,expdesc*var, -expdesc*exp){switch(var->k){case VLOCAL:{freeexp(fs,exp);luaK_exp2reg(fs,exp, -var->info);return;}case VUPVAL:{int e=luaK_exp2anyreg(fs,exp);luaK_codeABC(fs, -OP_SETUPVAL,e,var->info,0);break;}case VGLOBAL:{int e=luaK_exp2anyreg(fs,exp); -luaK_codeABx(fs,OP_SETGLOBAL,e,var->info);break;}case VINDEXED:{int e= -luaK_exp2RK(fs,exp);luaK_codeABC(fs,OP_SETTABLE,var->info,var->aux,e);break;} -default:{lua_assert(0);break;}}freeexp(fs,exp);}void luaK_self(FuncState*fs, -expdesc*e,expdesc*key){int func;luaK_exp2anyreg(fs,e);freeexp(fs,e);func=fs-> -freereg;luaK_reserveregs(fs,2);luaK_codeABC(fs,OP_SELF,func,e->info, -luaK_exp2RK(fs,key));freeexp(fs,key);e->info=func;e->k=VNONRELOC;}static void -invertjump(FuncState*fs,expdesc*e){Instruction*pc=getjumpcontrol(fs,e->info); -lua_assert(testOpMode(GET_OPCODE(*pc),OpModeT)&&GET_OPCODE(*pc)!=OP_TEST); -SETARG_A(*pc,!(GETARG_A(*pc)));}static int jumponcond(FuncState*fs,expdesc*e, -int cond){if(e->k==VRELOCABLE){Instruction ie=getcode(fs,e);if(GET_OPCODE(ie) -==OP_NOT){fs->pc--;return luaK_condjump(fs,OP_TEST,NO_REG,GETARG_B(ie),!cond); -}}discharge2anyreg(fs,e);freeexp(fs,e);return luaK_condjump(fs,OP_TEST,NO_REG, -e->info,cond);}void luaK_goiftrue(FuncState*fs,expdesc*e){int pc; -luaK_dischargevars(fs,e);switch(e->k){case VK:case VTRUE:{pc=NO_JUMP;break;} -case VFALSE:{pc=luaK_jump(fs);break;}case VJMP:{invertjump(fs,e);pc=e->info; -break;}default:{pc=jumponcond(fs,e,0);break;}}luaK_concat(fs,&e->f,pc);}void -luaK_goiffalse(FuncState*fs,expdesc*e){int pc;luaK_dischargevars(fs,e);switch( -e->k){case VNIL:case VFALSE:{pc=NO_JUMP;break;}case VTRUE:{pc=luaK_jump(fs); -break;}case VJMP:{pc=e->info;break;}default:{pc=jumponcond(fs,e,1);break;}} -luaK_concat(fs,&e->t,pc);}static void codenot(FuncState*fs,expdesc*e){ -luaK_dischargevars(fs,e);switch(e->k){case VNIL:case VFALSE:{e->k=VTRUE;break; -}case VK:case VTRUE:{e->k=VFALSE;break;}case VJMP:{invertjump(fs,e);break;} -case VRELOCABLE:case VNONRELOC:{discharge2anyreg(fs,e);freeexp(fs,e);e->info= -luaK_codeABC(fs,OP_NOT,0,e->info,0);e->k=VRELOCABLE;break;}default:{lua_assert -(0);break;}}{int temp=e->f;e->f=e->t;e->t=temp;}}void luaK_indexed(FuncState* -fs,expdesc*t,expdesc*k){t->aux=luaK_exp2RK(fs,k);t->k=VINDEXED;}void -luaK_prefix(FuncState*fs,UnOpr op,expdesc*e){if(op==OPR_MINUS){luaK_exp2val(fs -,e);if(e->k==VK&&ttisnumber(&fs->f->k[e->info]))e->info=luaK_numberK(fs,- -nvalue(&fs->f->k[e->info]));else{luaK_exp2anyreg(fs,e);freeexp(fs,e);e->info= -luaK_codeABC(fs,OP_UNM,0,e->info,0);e->k=VRELOCABLE;}}else codenot(fs,e);}void - luaK_infix(FuncState*fs,BinOpr op,expdesc*v){switch(op){case OPR_AND:{ -luaK_goiftrue(fs,v);luaK_patchtohere(fs,v->t);v->t=NO_JUMP;break;}case OPR_OR: -{luaK_goiffalse(fs,v);luaK_patchtohere(fs,v->f);v->f=NO_JUMP;break;}case -OPR_CONCAT:{luaK_exp2nextreg(fs,v);break;}default:{luaK_exp2RK(fs,v);break;}}} -static void codebinop(FuncState*fs,expdesc*res,BinOpr op,int o1,int o2){if(op -<=OPR_POW){OpCode opc=cast(OpCode,(op-OPR_ADD)+OP_ADD);res->info=luaK_codeABC( -fs,opc,0,o1,o2);res->k=VRELOCABLE;}else{static const OpCode ops[]={OP_EQ,OP_EQ -,OP_LT,OP_LE,OP_LT,OP_LE};int cond=1;if(op>=OPR_GT){int temp;temp=o1;o1=o2;o2= -temp;}else if(op==OPR_NE)cond=0;res->info=luaK_condjump(fs,ops[op-OPR_NE],cond -,o1,o2);res->k=VJMP;}}void luaK_posfix(FuncState*fs,BinOpr op,expdesc*e1, -expdesc*e2){switch(op){case OPR_AND:{lua_assert(e1->t==NO_JUMP); -luaK_dischargevars(fs,e2);luaK_concat(fs,&e1->f,e2->f);e1->k=e2->k;e1->info=e2 -->info;e1->aux=e2->aux;e1->t=e2->t;break;}case OPR_OR:{lua_assert(e1->f== -NO_JUMP);luaK_dischargevars(fs,e2);luaK_concat(fs,&e1->t,e2->t);e1->k=e2->k;e1 -->info=e2->info;e1->aux=e2->aux;e1->f=e2->f;break;}case OPR_CONCAT:{ -luaK_exp2val(fs,e2);if(e2->k==VRELOCABLE&&GET_OPCODE(getcode(fs,e2))== -OP_CONCAT){lua_assert(e1->info==GETARG_B(getcode(fs,e2))-1);freeexp(fs,e1); -SETARG_B(getcode(fs,e2),e1->info);e1->k=e2->k;e1->info=e2->info;}else{ -luaK_exp2nextreg(fs,e2);freeexp(fs,e2);freeexp(fs,e1);e1->info=luaK_codeABC(fs -,OP_CONCAT,0,e1->info,e2->info);e1->k=VRELOCABLE;}break;}default:{int o1= -luaK_exp2RK(fs,e1);int o2=luaK_exp2RK(fs,e2);freeexp(fs,e2);freeexp(fs,e1); -codebinop(fs,e1,op,o1,o2);}}}void luaK_fixline(FuncState*fs,int line){fs->f-> -lineinfo[fs->pc-1]=line;}int luaK_code(FuncState*fs,Instruction i,int line){ -Proto*f=fs->f;luaK_dischargejpc(fs);luaM_growvector(fs->L,f->code,fs->pc,f-> -sizecode,Instruction,MAX_INT,"code size overflow");f->code[fs->pc]=i; -luaM_growvector(fs->L,f->lineinfo,fs->pc,f->sizelineinfo,int,MAX_INT, -"code size overflow");f->lineinfo[fs->pc]=line;return fs->pc++;}int -luaK_codeABC(FuncState*fs,OpCode o,int a,int b,int c){lua_assert(getOpMode(o) -==iABC);return luaK_code(fs,CREATE_ABC(o,a,b,c),fs->ls->lastline);}int -luaK_codeABx(FuncState*fs,OpCode o,int a,unsigned int bc){lua_assert(getOpMode -(o)==iABx||getOpMode(o)==iAsBx);return luaK_code(fs,CREATE_ABx(o,a,bc),fs->ls -->lastline);} -#line 1 "ldblib.c" -#define ldblib_c -static void settabss(lua_State*L,const char*i,const char*v){lua_pushstring(L,i -);lua_pushstring(L,v);lua_rawset(L,-3);}static void settabsi(lua_State*L,const - char*i,int v){lua_pushstring(L,i);lua_pushnumber(L,(lua_Number)v);lua_rawset( -L,-3);}static int getinfo(lua_State*L){lua_Debug ar;const char*options= -luaL_optstring(L,2,"flnSu");if(lua_isnumber(L,1)){if(!lua_getstack(L,(int)( -lua_tonumber(L,1)),&ar)){lua_pushnil(L);return 1;}}else if(lua_isfunction(L,1) -){lua_pushfstring(L,">%s",options);options=lua_tostring(L,-1);lua_pushvalue(L, -1);}else return luaL_argerror(L,1,"function or level expected");if(! -lua_getinfo(L,options,&ar))return luaL_argerror(L,2,"invalid option"); -lua_newtable(L);for(;*options;options++){switch(*options){case'S':settabss(L, -"source",ar.source);settabss(L,"short_src",ar.short_src);settabsi(L, -"linedefined",ar.linedefined);settabss(L,"what",ar.what);break;case'l': -settabsi(L,"currentline",ar.currentline);break;case'u':settabsi(L,"nups",ar. -nups);break;case'n':settabss(L,"name",ar.name);settabss(L,"namewhat",ar. -namewhat);break;case'f':lua_pushliteral(L,"func");lua_pushvalue(L,-3); -lua_rawset(L,-3);break;}}return 1;}static int getlocal(lua_State*L){lua_Debug -ar;const char*name;if(!lua_getstack(L,luaL_checkint(L,1),&ar))return -luaL_argerror(L,1,"level out of range");name=lua_getlocal(L,&ar,luaL_checkint( -L,2));if(name){lua_pushstring(L,name);lua_pushvalue(L,-2);return 2;}else{ -lua_pushnil(L);return 1;}}static int setlocal(lua_State*L){lua_Debug ar;if(! -lua_getstack(L,luaL_checkint(L,1),&ar))return luaL_argerror(L,1, -"level out of range");luaL_checkany(L,3);lua_pushstring(L,lua_setlocal(L,&ar, -luaL_checkint(L,2)));return 1;}static int auxupvalue(lua_State*L,int get){ -const char*name;int n=luaL_checkint(L,2);luaL_checktype(L,1,LUA_TFUNCTION);if( -lua_iscfunction(L,1))return 0;name=get?lua_getupvalue(L,1,n):lua_setupvalue(L, -1,n);if(name==NULL)return 0;lua_pushstring(L,name);lua_insert(L,-(get+1)); -return get+1;}static int getupvalue(lua_State*L){return auxupvalue(L,1);} -static int setupvalue(lua_State*L){luaL_checkany(L,3);return auxupvalue(L,0);} -static const char KEY_HOOK='h';static void hookf(lua_State*L,lua_Debug*ar){ -static const char*const hooknames[]={"call","return","line","count", -"tail return"};lua_pushlightuserdata(L,(void*)&KEY_HOOK);lua_rawget(L, -LUA_REGISTRYINDEX);if(lua_isfunction(L,-1)){lua_pushstring(L,hooknames[(int)ar -->event]);if(ar->currentline>=0)lua_pushnumber(L,(lua_Number)ar->currentline); -else lua_pushnil(L);lua_assert(lua_getinfo(L,"lS",ar));lua_call(L,2,0);}else -lua_pop(L,1);}static int makemask(const char*smask,int count){int mask=0;if( -strchr(smask,'c'))mask|=LUA_MASKCALL;if(strchr(smask,'r'))mask|=LUA_MASKRET;if -(strchr(smask,'l'))mask|=LUA_MASKLINE;if(count>0)mask|=LUA_MASKCOUNT;return -mask;}static char*unmakemask(int mask,char*smask){int i=0;if(mask&LUA_MASKCALL -)smask[i++]='c';if(mask&LUA_MASKRET)smask[i++]='r';if(mask&LUA_MASKLINE)smask[ -i++]='l';smask[i]='\0';return smask;}static int sethook(lua_State*L){if( -lua_isnoneornil(L,1)){lua_settop(L,1);lua_sethook(L,NULL,0,0);}else{const char -*smask=luaL_checkstring(L,2);int count=luaL_optint(L,3,0);luaL_checktype(L,1, -LUA_TFUNCTION);lua_sethook(L,hookf,makemask(smask,count),count);} -lua_pushlightuserdata(L,(void*)&KEY_HOOK);lua_pushvalue(L,1);lua_rawset(L, -LUA_REGISTRYINDEX);return 0;}static int gethook(lua_State*L){char buff[5];int -mask=lua_gethookmask(L);lua_Hook hook=lua_gethook(L);if(hook!=NULL&&hook!= -hookf)lua_pushliteral(L,"external hook");else{lua_pushlightuserdata(L,(void*)& -KEY_HOOK);lua_rawget(L,LUA_REGISTRYINDEX);}lua_pushstring(L,unmakemask(mask, -buff));lua_pushnumber(L,(lua_Number)lua_gethookcount(L));return 3;}static int -debug(lua_State*L){for(;;){char buffer[250];fputs("lua_debug> ",stderr);if( -fgets(buffer,sizeof(buffer),stdin)==0||strcmp(buffer,"cont\n")==0)return 0; -lua_dostring(L,buffer);lua_settop(L,0);}} -#define LEVELS1 12 -#define LEVELS2 10 -static int errorfb(lua_State*L){int level=1;int firstpart=1;lua_Debug ar;if( -lua_gettop(L)==0)lua_pushliteral(L,"");else if(!lua_isstring(L,1))return 1; -else lua_pushliteral(L,"\n");lua_pushliteral(L,"stack traceback:");while( -lua_getstack(L,level++,&ar)){if(level>LEVELS1&&firstpart){if(!lua_getstack(L, -level+LEVELS2,&ar))level--;else{lua_pushliteral(L,"\n\t...");while( -lua_getstack(L,level+LEVELS2,&ar))level++;}firstpart=0;continue;} -lua_pushliteral(L,"\n\t");lua_getinfo(L,"Snl",&ar);lua_pushfstring(L,"%s:",ar. -short_src);if(ar.currentline>0)lua_pushfstring(L,"%d:",ar.currentline);switch( -*ar.namewhat){case'g':case'l':case'f':case'm':lua_pushfstring(L, -" in function `%s'",ar.name);break;default:{if(*ar.what=='m')lua_pushfstring(L -," in main chunk");else if(*ar.what=='C'||*ar.what=='t')lua_pushliteral(L," ?" -);else lua_pushfstring(L," in function <%s:%d>",ar.short_src,ar.linedefined);} -}lua_concat(L,lua_gettop(L));}lua_concat(L,lua_gettop(L));return 1;}static -const luaL_reg dblib[]={{"getlocal",getlocal},{"getinfo",getinfo},{"gethook", -gethook},{"getupvalue",getupvalue},{"sethook",sethook},{"setlocal",setlocal},{ -"setupvalue",setupvalue},{"debug",debug},{"traceback",errorfb},{NULL,NULL}}; -LUALIB_API int luaopen_debug(lua_State*L){luaL_openlib(L,LUA_DBLIBNAME,dblib,0 -);lua_pushliteral(L,"_TRACEBACK");lua_pushcfunction(L,errorfb);lua_settable(L, -LUA_GLOBALSINDEX);return 1;} -#line 1 "ldebug.c" -#define ldebug_c -static const char*getfuncname(CallInfo*ci,const char**name); -#define isLua(ci) (!((ci)->state&CI_C)) -static int currentpc(CallInfo*ci){if(!isLua(ci))return-1;if(ci->state& -CI_HASFRAME)ci->u.l.savedpc=*ci->u.l.pc;return pcRel(ci->u.l.savedpc,ci_func( -ci)->l.p);}static int currentline(CallInfo*ci){int pc=currentpc(ci);if(pc<0) -return-1;else return getline(ci_func(ci)->l.p,pc);}void luaG_inithooks( -lua_State*L){CallInfo*ci;for(ci=L->ci;ci!=L->base_ci;ci--)currentpc(ci);L-> -hookinit=1;}LUA_API int lua_sethook(lua_State*L,lua_Hook func,int mask,int -count){if(func==NULL||mask==0){mask=0;func=NULL;}L->hook=func;L->basehookcount -=count;resethookcount(L);L->hookmask=cast(lu_byte,mask);L->hookinit=0;return 1 -;}LUA_API lua_Hook lua_gethook(lua_State*L){return L->hook;}LUA_API int -lua_gethookmask(lua_State*L){return L->hookmask;}LUA_API int lua_gethookcount( -lua_State*L){return L->basehookcount;}LUA_API int lua_getstack(lua_State*L,int - level,lua_Debug*ar){int status;CallInfo*ci;lua_lock(L);for(ci=L->ci;level>0&& -ci>L->base_ci;ci--){level--;if(!(ci->state&CI_C))level-=ci->u.l.tailcalls;}if( -level>0||ci==L->base_ci)status=0;else if(level<0){status=1;ar->i_ci=0;}else{ -status=1;ar->i_ci=ci-L->base_ci;}lua_unlock(L);return status;}static Proto* -getluaproto(CallInfo*ci){return(isLua(ci)?ci_func(ci)->l.p:NULL);}LUA_API -const char*lua_getlocal(lua_State*L,const lua_Debug*ar,int n){const char*name; -CallInfo*ci;Proto*fp;lua_lock(L);name=NULL;ci=L->base_ci+ar->i_ci;fp= -getluaproto(ci);if(fp){name=luaF_getlocalname(fp,n,currentpc(ci));if(name) -luaA_pushobject(L,ci->base+(n-1));}lua_unlock(L);return name;}LUA_API const -char*lua_setlocal(lua_State*L,const lua_Debug*ar,int n){const char*name; -CallInfo*ci;Proto*fp;lua_lock(L);name=NULL;ci=L->base_ci+ar->i_ci;fp= -getluaproto(ci);L->top--;if(fp){name=luaF_getlocalname(fp,n,currentpc(ci));if( -!name||name[0]=='(')name=NULL;else setobjs2s(ci->base+(n-1),L->top);} -lua_unlock(L);return name;}static void funcinfo(lua_Debug*ar,StkId func){ -Closure*cl=clvalue(func);if(cl->c.isC){ar->source="=[C]";ar->linedefined=-1;ar -->what="C";}else{ar->source=getstr(cl->l.p->source);ar->linedefined=cl->l.p-> -lineDefined;ar->what=(ar->linedefined==0)?"main":"Lua";}luaO_chunkid(ar-> -short_src,ar->source,LUA_IDSIZE);}static const char*travglobals(lua_State*L, -const TObject*o){Table*g=hvalue(gt(L));int i=sizenode(g);while(i--){Node*n= -gnode(g,i);if(luaO_rawequalObj(o,gval(n))&&ttisstring(gkey(n)))return getstr( -tsvalue(gkey(n)));}return NULL;}static void info_tailcall(lua_State*L, -lua_Debug*ar){ar->name=ar->namewhat="";ar->what="tail";ar->linedefined=ar-> -currentline=-1;ar->source="=(tail call)";luaO_chunkid(ar->short_src,ar->source -,LUA_IDSIZE);ar->nups=0;setnilvalue(L->top);}static int auxgetinfo(lua_State*L -,const char*what,lua_Debug*ar,StkId f,CallInfo*ci){int status=1;for(;*what; -what++){switch(*what){case'S':{funcinfo(ar,f);break;}case'l':{ar->currentline= -(ci)?currentline(ci):-1;break;}case'u':{ar->nups=clvalue(f)->c.nupvalues;break -;}case'n':{ar->namewhat=(ci)?getfuncname(ci,&ar->name):NULL;if(ar->namewhat== -NULL){if((ar->name=travglobals(L,f))!=NULL)ar->namewhat="global";else ar-> -namewhat="";}break;}case'f':{setobj2s(L->top,f);break;}default:status=0;}} -return status;}LUA_API int lua_getinfo(lua_State*L,const char*what,lua_Debug* -ar){int status=1;lua_lock(L);if(*what=='>'){StkId f=L->top-1;if(!ttisfunction( -f))luaG_runerror(L,"value for `lua_getinfo' is not a function");status= -auxgetinfo(L,what+1,ar,f,NULL);L->top--;}else if(ar->i_ci!=0){CallInfo*ci=L-> -base_ci+ar->i_ci;lua_assert(ttisfunction(ci->base-1));status=auxgetinfo(L,what -,ar,ci->base-1,ci);}else info_tailcall(L,ar);if(strchr(what,'f'))incr_top(L); -lua_unlock(L);return status;} -#define check(x) if(!(x))return 0; -#define checkjump(pt,pc) check(0<=pc&&pcsizecode) -#define checkreg(pt,reg) check((reg)<(pt)->maxstacksize) -static int precheck(const Proto*pt){check(pt->maxstacksize<=MAXSTACK);check(pt -->sizelineinfo==pt->sizecode||pt->sizelineinfo==0);lua_assert(pt->numparams+pt -->is_vararg<=pt->maxstacksize);check(GET_OPCODE(pt->code[pt->sizecode-1])== -OP_RETURN);return 1;}static int checkopenop(const Proto*pt,int pc){Instruction - i=pt->code[pc+1];switch(GET_OPCODE(i)){case OP_CALL:case OP_TAILCALL:case -OP_RETURN:{check(GETARG_B(i)==0);return 1;}case OP_SETLISTO:return 1;default: -return 0;}}static int checkRK(const Proto*pt,int r){return(rmaxstacksize -||(r>=MAXSTACK&&r-MAXSTACKsizek));}static Instruction luaG_symbexec(const - Proto*pt,int lastpc,int reg){int pc;int last;last=pt->sizecode-1;check( -precheck(pt));for(pc=0;pccode[pc];OpCode - op=GET_OPCODE(i);int a=GETARG_A(i);int b=0;int c=0;checkreg(pt,a);switch( -getOpMode(op)){case iABC:{b=GETARG_B(i);c=GETARG_C(i);if(testOpMode(op, -OpModeBreg)){checkreg(pt,b);}else if(testOpMode(op,OpModeBrk))check(checkRK(pt -,b));if(testOpMode(op,OpModeCrk))check(checkRK(pt,c));break;}case iABx:{b= -GETARG_Bx(i);if(testOpMode(op,OpModeK))check(bsizek);break;}case iAsBx:{b -=GETARG_sBx(i);break;}}if(testOpMode(op,OpModesetA)){if(a==reg)last=pc;}if( -testOpMode(op,OpModeT)){check(pc+2sizecode);check(GET_OPCODE(pt->code[pc+ -1])==OP_JMP);}switch(op){case OP_LOADBOOL:{check(c==0||pc+2sizecode); -break;}case OP_LOADNIL:{if(a<=reg&®<=b)last=pc;break;}case OP_GETUPVAL:case - OP_SETUPVAL:{check(bnups);break;}case OP_GETGLOBAL:case OP_SETGLOBAL:{ -check(ttisstring(&pt->k[b]));break;}case OP_SELF:{checkreg(pt,a+1);if(reg==a+1 -)last=pc;break;}case OP_CONCAT:{check(c=a)last=pc;case OP_FORLOOP:checkreg(pt,a+2);case -OP_JMP:{int dest=pc+1+b;check(0<=dest&&destsizecode);if(reg!=NO_REG&&pc< -dest&&dest<=lastpc)pc+=b;break;}case OP_CALL:case OP_TAILCALL:{if(b!=0){ -checkreg(pt,a+b-1);}c--;if(c==LUA_MULTRET){check(checkopenop(pt,pc));}else if( -c!=0)checkreg(pt,a+c-1);if(reg>=a)last=pc;break;}case OP_RETURN:{b--;if(b>0) -checkreg(pt,a+b-1);break;}case OP_SETLIST:{checkreg(pt,a+(b&(LFIELDS_PER_FLUSH --1))+1);break;}case OP_CLOSURE:{int nup;check(bsizep);nup=pt->p[b]->nups; -check(pc+nupsizecode);for(;nup>0;nup--){OpCode op1=GET_OPCODE(pt->code[pc -+nup]);check(op1==OP_GETUPVAL||op1==OP_MOVE);}break;}default:break;}}return pt -->code[last];} -#undef check -#undef checkjump -#undef checkreg -int luaG_checkcode(const Proto*pt){return luaG_symbexec(pt,pt->sizecode,NO_REG -);}static const char*kname(Proto*p,int c){c=c-MAXSTACK;if(c>=0&&ttisstring(&p -->k[c]))return svalue(&p->k[c]);else return"?";}static const char*getobjname( -CallInfo*ci,int stackpos,const char**name){if(isLua(ci)){Proto*p=ci_func(ci)-> -l.p;int pc=currentpc(ci);Instruction i;*name=luaF_getlocalname(p,stackpos+1,pc -);if(*name)return"local";i=luaG_symbexec(p,pc,stackpos);lua_assert(pc!=-1); -switch(GET_OPCODE(i)){case OP_GETGLOBAL:{int g=GETARG_Bx(i);lua_assert( -ttisstring(&p->k[g]));*name=svalue(&p->k[g]);return"global";}case OP_MOVE:{int - a=GETARG_A(i);int b=GETARG_B(i);if(bu.l.tailcalls>0)||!isLua(ci-1))return NULL;ci ---;i=ci_func(ci)->l.p->code[currentpc(ci)];if(GET_OPCODE(i)==OP_CALL|| -GET_OPCODE(i)==OP_TAILCALL)return getobjname(ci,GETARG_A(i),name);else return -NULL;}static int isinstack(CallInfo*ci,const TObject*o){StkId p;for(p=ci->base -;ptop;p++)if(o==p)return 1;return 0;}void luaG_typeerror(lua_State*L, -const TObject*o,const char*op){const char*name=NULL;const char*t= -luaT_typenames[ttype(o)];const char*kind=(isinstack(L->ci,o))?getobjname(L->ci -,o-L->base,&name):NULL;if(kind)luaG_runerror(L, -"attempt to %s %s `%s' (a %s value)",op,kind,name,t);else luaG_runerror(L, -"attempt to %s a %s value",op,t);}void luaG_concaterror(lua_State*L,StkId p1, -StkId p2){if(ttisstring(p1))p1=p2;lua_assert(!ttisstring(p1));luaG_typeerror(L -,p1,"concatenate");}void luaG_aritherror(lua_State*L,const TObject*p1,const -TObject*p2){TObject temp;if(luaV_tonumber(p1,&temp)==NULL)p2=p1;luaG_typeerror -(L,p2,"perform arithmetic on");}int luaG_ordererror(lua_State*L,const TObject* -p1,const TObject*p2){const char*t1=luaT_typenames[ttype(p1)];const char*t2= -luaT_typenames[ttype(p2)];if(t1[2]==t2[2])luaG_runerror(L, -"attempt to compare two %s values",t1);else luaG_runerror(L, -"attempt to compare %s with %s",t1,t2);return 0;}static void addinfo(lua_State -*L,const char*msg){CallInfo*ci=L->ci;if(isLua(ci)){char buff[LUA_IDSIZE];int -line=currentline(ci);luaO_chunkid(buff,getstr(getluaproto(ci)->source), -LUA_IDSIZE);luaO_pushfstring(L,"%s:%d: %s",buff,line,msg);}}void luaG_errormsg -(lua_State*L){if(L->errfunc!=0){StkId errfunc=restorestack(L,L->errfunc);if(! -ttisfunction(errfunc))luaD_throw(L,LUA_ERRERR);setobjs2s(L->top,L->top-1); -setobjs2s(L->top-1,errfunc);incr_top(L);luaD_call(L,L->top-2,1);}luaD_throw(L, -LUA_ERRRUN);}void luaG_runerror(lua_State*L,const char*fmt,...){va_list argp; -va_start(argp,fmt);addinfo(L,luaO_pushvfstring(L,fmt,argp));va_end(argp); -luaG_errormsg(L);} -#line 1 "ldo.c" -#define ldo_c -struct lua_longjmp{struct lua_longjmp*previous;jmp_buf b;volatile int status;} -;static void seterrorobj(lua_State*L,int errcode,StkId oldtop){switch(errcode) -{case LUA_ERRMEM:{setsvalue2s(oldtop,luaS_new(L,MEMERRMSG));break;}case -LUA_ERRERR:{setsvalue2s(oldtop,luaS_new(L,"error in error handling"));break;} -case LUA_ERRSYNTAX:case LUA_ERRRUN:{setobjs2s(oldtop,L->top-1);break;}}L->top= -oldtop+1;}void luaD_throw(lua_State*L,int errcode){if(L->errorJmp){L->errorJmp -->status=errcode;longjmp(L->errorJmp->b,1);}else{G(L)->panic(L);exit( -EXIT_FAILURE);}}int luaD_rawrunprotected(lua_State*L,Pfunc f,void*ud){struct -lua_longjmp lj;lj.status=0;lj.previous=L->errorJmp;L->errorJmp=&lj;if(setjmp( -lj.b)==0)(*f)(L,ud);L->errorJmp=lj.previous;return lj.status;}static void -restore_stack_limit(lua_State*L){L->stack_last=L->stack+L->stacksize-1;if(L-> -size_ci>LUA_MAXCALLS){int inuse=(L->ci-L->base_ci);if(inuse+1top=(L->top-oldstack)+L->stack;for(up=L-> -openupval;up!=NULL;up=up->gch.next)gcotouv(up)->v=(gcotouv(up)->v-oldstack)+L -->stack;for(ci=L->base_ci;ci<=L->ci;ci++){ci->top=(ci->top-oldstack)+L->stack; -ci->base=(ci->base-oldstack)+L->stack;}L->base=L->ci->base;}void -luaD_reallocstack(lua_State*L,int newsize){TObject*oldstack=L->stack; -luaM_reallocvector(L,L->stack,L->stacksize,newsize,TObject);L->stacksize= -newsize;L->stack_last=L->stack+newsize-1-EXTRA_STACK;correctstack(L,oldstack); -}void luaD_reallocCI(lua_State*L,int newsize){CallInfo*oldci=L->base_ci; -luaM_reallocvector(L,L->base_ci,L->size_ci,newsize,CallInfo);L->size_ci=cast( -unsigned short,newsize);L->ci=(L->ci-oldci)+L->base_ci;L->end_ci=L->base_ci+L -->size_ci;}void luaD_growstack(lua_State*L,int n){if(n<=L->stacksize) -luaD_reallocstack(L,2*L->stacksize);else luaD_reallocstack(L,L->stacksize+n+ -EXTRA_STACK);}static void luaD_growCI(lua_State*L){if(L->size_ci>LUA_MAXCALLS) -luaD_throw(L,LUA_ERRERR);else{luaD_reallocCI(L,2*L->size_ci);if(L->size_ci> -LUA_MAXCALLS)luaG_runerror(L,"stack overflow");}}void luaD_callhook(lua_State* -L,int event,int line){lua_Hook hook=L->hook;if(hook&&L->allowhook){ptrdiff_t -top=savestack(L,L->top);ptrdiff_t ci_top=savestack(L,L->ci->top);lua_Debug ar; -ar.event=event;ar.currentline=line;if(event==LUA_HOOKTAILRET)ar.i_ci=0;else ar -.i_ci=L->ci-L->base_ci;luaD_checkstack(L,LUA_MINSTACK);L->ci->top=L->top+ -LUA_MINSTACK;L->allowhook=0;lua_unlock(L);(*hook)(L,&ar);lua_lock(L); -lua_assert(!L->allowhook);L->allowhook=1;L->ci->top=restorestack(L,ci_top);L-> -top=restorestack(L,top);}}static void adjust_varargs(lua_State*L,int nfixargs, -StkId base){int i;Table*htab;TObject nname;int actual=L->top-base;if(actual< -nfixargs){luaD_checkstack(L,nfixargs-actual);for(;actualtop++);}actual-=nfixargs;htab=luaH_new(L,actual,1);for(i=0;i< -actual;i++)setobj2n(luaH_setnum(L,htab,i+1),L->top-actual+i);setsvalue(&nname, -luaS_newliteral(L,"n"));setnvalue(luaH_set(L,htab,&nname),cast(lua_Number, -actual));L->top-=actual;sethvalue(L->top,htab);incr_top(L);}static StkId -tryfuncTM(lua_State*L,StkId func){const TObject*tm=luaT_gettmbyobj(L,func, -TM_CALL);StkId p;ptrdiff_t funcr=savestack(L,func);if(!ttisfunction(tm)) -luaG_typeerror(L,func,"call");for(p=L->top;p>func;p--)setobjs2s(p,p-1); -incr_top(L);func=restorestack(L,funcr);setobj2s(func,tm);return func;}StkId -luaD_precall(lua_State*L,StkId func){LClosure*cl;ptrdiff_t funcr=savestack(L, -func);if(!ttisfunction(func))func=tryfuncTM(L,func);if(L->ci+1==L->end_ci) -luaD_growCI(L);else condhardstacktests(luaD_reallocCI(L,L->size_ci));cl=& -clvalue(func)->l;if(!cl->isC){CallInfo*ci;Proto*p=cl->p;if(p->is_vararg) -adjust_varargs(L,p->numparams,func+1);luaD_checkstack(L,p->maxstacksize);ci=++ -L->ci;L->base=L->ci->base=restorestack(L,funcr)+1;ci->top=L->base+p-> -maxstacksize;ci->u.l.savedpc=p->code;ci->u.l.tailcalls=0;ci->state=CI_SAVEDPC; -while(L->toptop)setnilvalue(L->top++);L->top=ci->top;return NULL;}else{ -CallInfo*ci;int n;luaD_checkstack(L,LUA_MINSTACK);ci=++L->ci;L->base=L->ci-> -base=restorestack(L,funcr)+1;ci->top=L->top+LUA_MINSTACK;ci->state=CI_C;if(L-> -hookmask&LUA_MASKCALL)luaD_callhook(L,LUA_HOOKCALL,-1);lua_unlock(L); -#ifdef LUA_COMPATUPVALUES -lua_pushupvalues(L); -#endif -n=(*clvalue(L->base-1)->c.f)(L);lua_lock(L);return L->top-n;}}static StkId -callrethooks(lua_State*L,StkId firstResult){ptrdiff_t fr=savestack(L, -firstResult);luaD_callhook(L,LUA_HOOKRET,-1);if(!(L->ci->state&CI_C)){while(L -->ci->u.l.tailcalls--)luaD_callhook(L,LUA_HOOKTAILRET,-1);}return restorestack -(L,fr);}void luaD_poscall(lua_State*L,int wanted,StkId firstResult){StkId res; -if(L->hookmask&LUA_MASKRET)firstResult=callrethooks(L,firstResult);res=L->base --1;L->ci--;L->base=L->ci->base;while(wanted!=0&&firstResulttop){setobjs2s( -res++,firstResult++);wanted--;}while(wanted-->0)setnilvalue(res++);L->top=res; -}void luaD_call(lua_State*L,StkId func,int nResults){StkId firstResult; -lua_assert(!(L->ci->state&CI_CALLING));if(++L->nCcalls>=LUA_MAXCCALLS){if(L-> -nCcalls==LUA_MAXCCALLS)luaG_runerror(L,"C stack overflow");else if(L->nCcalls ->=(LUA_MAXCCALLS+(LUA_MAXCCALLS>>3)))luaD_throw(L,LUA_ERRERR);}firstResult= -luaD_precall(L,func);if(firstResult==NULL)firstResult=luaV_execute(L); -luaD_poscall(L,nResults,firstResult);L->nCcalls--;luaC_checkGC(L);}static void - resume(lua_State*L,void*ud){StkId firstResult;int nargs=*cast(int*,ud); -CallInfo*ci=L->ci;if(ci==L->base_ci){lua_assert(nargstop-L->base); -luaD_precall(L,L->top-(nargs+1));}else{lua_assert(ci->state&CI_YIELD);if(ci-> -state&CI_C){int nresults;lua_assert((ci-1)->state&CI_SAVEDPC);lua_assert( -GET_OPCODE(*((ci-1)->u.l.savedpc-1))==OP_CALL||GET_OPCODE(*((ci-1)->u.l. -savedpc-1))==OP_TAILCALL);nresults=GETARG_C(*((ci-1)->u.l.savedpc-1))-1; -luaD_poscall(L,nresults,L->top-nargs);if(nresults>=0)L->top=L->ci->top;}else{ -ci->state&=~CI_YIELD;}}firstResult=luaV_execute(L);if(firstResult!=NULL) -luaD_poscall(L,LUA_MULTRET,firstResult);}static int resume_error(lua_State*L, -const char*msg){L->top=L->ci->base;setsvalue2s(L->top,luaS_new(L,msg)); -incr_top(L);lua_unlock(L);return LUA_ERRRUN;}LUA_API int lua_resume(lua_State* -L,int nargs){int status;lu_byte old_allowhooks;lua_lock(L);if(L->ci==L-> -base_ci){if(nargs>=L->top-L->base)return resume_error(L, -"cannot resume dead coroutine");}else if(!(L->ci->state&CI_YIELD))return -resume_error(L,"cannot resume non-suspended coroutine");old_allowhooks=L-> -allowhook;lua_assert(L->errfunc==0&&L->nCcalls==0);status=luaD_rawrunprotected -(L,resume,&nargs);if(status!=0){L->ci=L->base_ci;L->base=L->ci->base;L-> -nCcalls=0;luaF_close(L,L->base);seterrorobj(L,status,L->base);L->allowhook= -old_allowhooks;restore_stack_limit(L);}lua_unlock(L);return status;}LUA_API -int lua_yield(lua_State*L,int nresults){CallInfo*ci;lua_lock(L);ci=L->ci;if(L -->nCcalls>0)luaG_runerror(L, -"attempt to yield across metamethod/C-call boundary");if(ci->state&CI_C){if(( -ci-1)->state&CI_C)luaG_runerror(L,"cannot yield a C function");if(L->top- -nresults>L->base){int i;for(i=0;ibase+i,L->top- -nresults+i);L->top=L->base+nresults;}}ci->state|=CI_YIELD;lua_unlock(L);return --1;}int luaD_pcall(lua_State*L,Pfunc func,void*u,ptrdiff_t old_top,ptrdiff_t -ef){int status;unsigned short oldnCcalls=L->nCcalls;ptrdiff_t old_ci=saveci(L, -L->ci);lu_byte old_allowhooks=L->allowhook;ptrdiff_t old_errfunc=L->errfunc;L -->errfunc=ef;status=luaD_rawrunprotected(L,func,u);if(status!=0){StkId oldtop= -restorestack(L,old_top);luaF_close(L,oldtop);seterrorobj(L,status,oldtop);L-> -nCcalls=oldnCcalls;L->ci=restoreci(L,old_ci);L->base=L->ci->base;L->allowhook= -old_allowhooks;restore_stack_limit(L);}L->errfunc=old_errfunc;return status;} -struct SParser{ZIO*z;Mbuffer buff;int bin;};static void f_parser(lua_State*L, -void*ud){struct SParser*p;Proto*tf;Closure*cl;luaC_checkGC(L);p=cast(struct -SParser*,ud);tf=p->bin?luaU_undump(L,p->z,&p->buff):luaY_parser(L,p->z,&p-> -buff);cl=luaF_newLclosure(L,0,gt(L));cl->l.p=tf;setclvalue(L->top,cl);incr_top -(L);}int luaD_protectedparser(lua_State*L,ZIO*z,int bin){struct SParser p;int -status;ptrdiff_t oldtopr=savestack(L,L->top);p.z=z;p.bin=bin;luaZ_initbuffer(L -,&p.buff);status=luaD_rawrunprotected(L,f_parser,&p);luaZ_freebuffer(L,&p.buff -);if(status!=0){StkId oldtop=restorestack(L,oldtopr);seterrorobj(L,status, -oldtop);}return status;} -#line 1 "ldump.c" -#define ldump_c -#define DumpVector(b,n,size,D) DumpBlock(b,(n)*(size),D) -#define DumpLiteral(s,D) DumpBlock(""s,(sizeof(s))-1,D) -typedef struct{lua_State*L;lua_Chunkwriter write;void*data;}DumpState;static -void DumpBlock(const void*b,size_t size,DumpState*D){lua_unlock(D->L);(*D-> -write)(D->L,b,size,D->data);lua_lock(D->L);}static void DumpByte(int y, -DumpState*D){char x=(char)y;DumpBlock(&x,sizeof(x),D);}static void DumpInt(int - x,DumpState*D){DumpBlock(&x,sizeof(x),D);}static void DumpSize(size_t x, -DumpState*D){DumpBlock(&x,sizeof(x),D);}static void DumpNumber(lua_Number x, -DumpState*D){DumpBlock(&x,sizeof(x),D);}static void DumpString(TString*s, -DumpState*D){if(s==NULL||getstr(s)==NULL)DumpSize(0,D);else{size_t size=s->tsv -.len+1;DumpSize(size,D);DumpBlock(getstr(s),size,D);}}static void DumpCode( -const Proto*f,DumpState*D){DumpInt(f->sizecode,D);DumpVector(f->code,f-> -sizecode,sizeof(*f->code),D);}static void DumpLocals(const Proto*f,DumpState*D -){int i,n=f->sizelocvars;DumpInt(n,D);for(i=0;ilocvars[i -].varname,D);DumpInt(f->locvars[i].startpc,D);DumpInt(f->locvars[i].endpc,D);} -}static void DumpLines(const Proto*f,DumpState*D){DumpInt(f->sizelineinfo,D); -DumpVector(f->lineinfo,f->sizelineinfo,sizeof(*f->lineinfo),D);}static void -DumpUpvalues(const Proto*f,DumpState*D){int i,n=f->sizeupvalues;DumpInt(n,D); -for(i=0;iupvalues[i],D);}static void DumpFunction(const -Proto*f,const TString*p,DumpState*D);static void DumpConstants(const Proto*f, -DumpState*D){int i,n;DumpInt(n=f->sizek,D);for(i=0;ik[i];DumpByte(ttype(o),D);switch(ttype(o)){case LUA_TNUMBER:DumpNumber( -nvalue(o),D);break;case LUA_TSTRING:DumpString(tsvalue(o),D);break;case -LUA_TNIL:break;default:lua_assert(0);break;}}DumpInt(n=f->sizep,D);for(i=0;ip[i],f->source,D);}static void DumpFunction(const Proto*f -,const TString*p,DumpState*D){DumpString((f->source==p)?NULL:f->source,D); -DumpInt(f->lineDefined,D);DumpByte(f->nups,D);DumpByte(f->numparams,D); -DumpByte(f->is_vararg,D);DumpByte(f->maxstacksize,D);DumpLines(f,D);DumpLocals -(f,D);DumpUpvalues(f,D);DumpConstants(f,D);DumpCode(f,D);}static void -DumpHeader(DumpState*D){DumpLiteral(LUA_SIGNATURE,D);DumpByte(VERSION,D); -DumpByte(luaU_endianness(),D);DumpByte(sizeof(int),D);DumpByte(sizeof(size_t), -D);DumpByte(sizeof(Instruction),D);DumpByte(SIZE_OP,D);DumpByte(SIZE_A,D); -DumpByte(SIZE_B,D);DumpByte(SIZE_C,D);DumpByte(sizeof(lua_Number),D); -DumpNumber(TEST_NUMBER,D);}void luaU_dump(lua_State*L,const Proto*Main, -lua_Chunkwriter w,void*data){DumpState D;D.L=L;D.write=w;D.data=data; -DumpHeader(&D);DumpFunction(Main,NULL,&D);} -#line 1 "lfunc.c" -#define lfunc_c -#define sizeCclosure(n) (cast(int,sizeof(CClosure))+cast(int,sizeof(TObject)*(\ -(n)-1))) -#define sizeLclosure(n) (cast(int,sizeof(LClosure))+cast(int,sizeof(TObject*)*\ -((n)-1))) -Closure*luaF_newCclosure(lua_State*L,int nelems){Closure*c=cast(Closure*, -luaM_malloc(L,sizeCclosure(nelems)));luaC_link(L,valtogco(c),LUA_TFUNCTION);c -->c.isC=1;c->c.nupvalues=cast(lu_byte,nelems);return c;}Closure* -luaF_newLclosure(lua_State*L,int nelems,TObject*e){Closure*c=cast(Closure*, -luaM_malloc(L,sizeLclosure(nelems)));luaC_link(L,valtogco(c),LUA_TFUNCTION);c -->l.isC=0;c->l.g=*e;c->l.nupvalues=cast(lu_byte,nelems);return c;}UpVal* -luaF_findupval(lua_State*L,StkId level){GCObject**pp=&L->openupval;UpVal*p; -UpVal*v;while((p=ngcotouv(*pp))!=NULL&&p->v>=level){if(p->v==level)return p;pp -=&p->next;}v=luaM_new(L,UpVal);v->tt=LUA_TUPVAL;v->marked=1;v->v=level;v->next -=*pp;*pp=valtogco(v);return v;}void luaF_close(lua_State*L,StkId level){UpVal* -p;while((p=ngcotouv(L->openupval))!=NULL&&p->v>=level){setobj(&p->value,p->v); -p->v=&p->value;L->openupval=p->next;luaC_link(L,valtogco(p),LUA_TUPVAL);}} -Proto*luaF_newproto(lua_State*L){Proto*f=luaM_new(L,Proto);luaC_link(L, -valtogco(f),LUA_TPROTO);f->k=NULL;f->sizek=0;f->p=NULL;f->sizep=0;f->code=NULL -;f->sizecode=0;f->sizelineinfo=0;f->sizeupvalues=0;f->nups=0;f->upvalues=NULL; -f->numparams=0;f->is_vararg=0;f->maxstacksize=0;f->lineinfo=NULL;f-> -sizelocvars=0;f->locvars=NULL;f->lineDefined=0;f->source=NULL;return f;}void -luaF_freeproto(lua_State*L,Proto*f){luaM_freearray(L,f->code,f->sizecode, -Instruction);luaM_freearray(L,f->p,f->sizep,Proto*);luaM_freearray(L,f->k,f-> -sizek,TObject);luaM_freearray(L,f->lineinfo,f->sizelineinfo,int); -luaM_freearray(L,f->locvars,f->sizelocvars,struct LocVar);luaM_freearray(L,f-> -upvalues,f->sizeupvalues,TString*);luaM_freelem(L,f);}void luaF_freeclosure( -lua_State*L,Closure*c){int size=(c->c.isC)?sizeCclosure(c->c.nupvalues): -sizeLclosure(c->l.nupvalues);luaM_free(L,c,size);}const char*luaF_getlocalname -(const Proto*f,int local_number,int pc){int i;for(i=0;isizelocvars&&f-> -locvars[i].startpc<=pc;i++){if(pclocvars[i].endpc){local_number--;if( -local_number==0)return getstr(f->locvars[i].varname);}}return NULL;} -#line 1 "lgc.c" -#define lgc_c -typedef struct GCState{GCObject*tmark;GCObject*wk;GCObject*wv;GCObject*wkv; -global_State*g;}GCState; -#define setbit(x,b) ((x)|=(1<<(b))) -#define resetbit(x,b) ((x)&=cast(lu_byte,~(1<<(b)))) -#define testbit(x,b) ((x)&(1<<(b))) -#define unmark(x) resetbit((x)->gch.marked,0) -#define ismarked(x) ((x)->gch.marked&((1<<4)|1)) -#define stringmark(s) setbit((s)->tsv.marked,0) -#define isfinalized(u) (!testbit((u)->uv.marked,1)) -#define markfinalized(u) resetbit((u)->uv.marked,1) -#define KEYWEAKBIT 1 -#define VALUEWEAKBIT 2 -#define KEYWEAK (1<gch.marked,0);switch(o->gch.tt){case LUA_TUSERDATA:{markvalue(st, -gcotou(o)->uv.metatable);break;}case LUA_TFUNCTION:{gcotocl(o)->c.gclist=st-> -tmark;st->tmark=o;break;}case LUA_TTABLE:{gcotoh(o)->gclist=st->tmark;st-> -tmark=o;break;}case LUA_TTHREAD:{gcototh(o)->gclist=st->tmark;st->tmark=o; -break;}case LUA_TPROTO:{gcotop(o)->gclist=st->tmark;st->tmark=o;break;}default -:lua_assert(o->gch.tt==LUA_TSTRING);}}static void marktmu(GCState*st){GCObject -*u;for(u=st->g->tmudata;u;u=u->gch.next){unmark(u);reallymarkobject(st,u);}} -size_t luaC_separateudata(lua_State*L){size_t deadmem=0;GCObject**p=&G(L)-> -rootudata;GCObject*curr;GCObject*collected=NULL;GCObject**lastcollected=& -collected;while((curr=*p)!=NULL){lua_assert(curr->gch.tt==LUA_TUSERDATA);if( -ismarked(curr)||isfinalized(gcotou(curr)))p=&curr->gch.next;else if(fasttm(L, -gcotou(curr)->uv.metatable,TM_GC)==NULL){markfinalized(gcotou(curr));p=&curr-> -gch.next;}else{deadmem+=sizeudata(gcotou(curr)->uv.len);*p=curr->gch.next;curr -->gch.next=NULL;*lastcollected=curr;lastcollected=&curr->gch.next;}}* -lastcollected=G(L)->tmudata;G(L)->tmudata=collected;return deadmem;}static -void removekey(Node*n){setnilvalue(gval(n));if(iscollectable(gkey(n)))setttype -(gkey(n),LUA_TNONE);}static void traversetable(GCState*st,Table*h){int i;int -weakkey=0;int weakvalue=0;const TObject*mode;markvalue(st,h->metatable); -lua_assert(h->lsizenode||h->node==st->g->dummynode);mode=gfasttm(st->g,h-> -metatable,TM_MODE);if(mode&&ttisstring(mode)){weakkey=(strchr(svalue(mode),'k' -)!=NULL);weakvalue=(strchr(svalue(mode),'v')!=NULL);if(weakkey||weakvalue){ -GCObject**weaklist;h->marked&=~(KEYWEAK|VALUEWEAK);h->marked|=cast(lu_byte,( -weakkey<wkv:(weakkey)?&st->wk:&st->wv;h->gclist=*weaklist;*weaklist=valtogco(h);} -}if(!weakvalue){i=h->sizearray;while(i--)markobject(st,&h->array[i]);}i= -sizenode(h);while(i--){Node*n=gnode(h,i);if(!ttisnil(gval(n))){lua_assert(! -ttisnil(gkey(n)));condmarkobject(st,gkey(n),!weakkey);condmarkobject(st,gval(n -),!weakvalue);}}}static void traverseproto(GCState*st,Proto*f){int i; -stringmark(f->source);for(i=0;isizek;i++){if(ttisstring(f->k+i))stringmark -(tsvalue(f->k+i));}for(i=0;isizeupvalues;i++)stringmark(f->upvalues[i]); -for(i=0;isizep;i++)markvalue(st,f->p[i]);for(i=0;isizelocvars;i++) -stringmark(f->locvars[i].varname);lua_assert(luaG_checkcode(f));}static void -traverseclosure(GCState*st,Closure*cl){if(cl->c.isC){int i;for(i=0;ic. -nupvalues;i++)markobject(st,&cl->c.upvalue[i]);}else{int i;lua_assert(cl->l. -nupvalues==cl->l.p->nups);markvalue(st,hvalue(&cl->l.g));markvalue(st,cl->l.p) -;for(i=0;il.nupvalues;i++){UpVal*u=cl->l.upvals[i];if(!u->marked){ -markobject(st,&u->value);u->marked=1;}}}}static void checkstacksizes(lua_State -*L,StkId max){int used=L->ci-L->base_ci;if(4*usedsize_ci&&2*BASIC_CI_SIZE< -L->size_ci)luaD_reallocCI(L,L->size_ci/2);else condhardstacktests( -luaD_reallocCI(L,L->size_ci));used=max-L->stack;if(4*usedstacksize&&2*( -BASIC_STACK_SIZE+EXTRA_STACK)stacksize)luaD_reallocstack(L,L->stacksize/2) -;else condhardstacktests(luaD_reallocstack(L,L->stacksize));}static void -traversestack(GCState*st,lua_State*L1){StkId o,lim;CallInfo*ci;markobject(st, -gt(L1));lim=L1->top;for(ci=L1->base_ci;ci<=L1->ci;ci++){lua_assert(ci->top<=L1 -->stack_last);lua_assert(ci->state&(CI_C|CI_HASFRAME|CI_SAVEDPC));if(lim -top)lim=ci->top;}for(o=L1->stack;otop;o++)markobject(st,o);for(;o<=lim;o -++)setnilvalue(o);checkstacksizes(L1,lim);}static void propagatemarks(GCState* -st){while(st->tmark){switch(st->tmark->gch.tt){case LUA_TTABLE:{Table*h=gcotoh -(st->tmark);st->tmark=h->gclist;traversetable(st,h);break;}case LUA_TFUNCTION: -{Closure*cl=gcotocl(st->tmark);st->tmark=cl->c.gclist;traverseclosure(st,cl); -break;}case LUA_TTHREAD:{lua_State*th=gcototh(st->tmark);st->tmark=th->gclist; -traversestack(st,th);break;}case LUA_TPROTO:{Proto*p=gcotop(st->tmark);st-> -tmark=p->gclist;traverseproto(st,p);break;}default:lua_assert(0);}}}static int - valismarked(const TObject*o){if(ttisstring(o))stringmark(tsvalue(o));return! -iscollectable(o)||testbit(o->value.gc->gch.marked,0);}static void -cleartablekeys(GCObject*l){while(l){Table*h=gcotoh(l);int i=sizenode(h); -lua_assert(h->marked&KEYWEAK);while(i--){Node*n=gnode(h,i);if(!valismarked( -gkey(n)))removekey(n);}l=h->gclist;}}static void cleartablevalues(GCObject*l){ -while(l){Table*h=gcotoh(l);int i=h->sizearray;lua_assert(h->marked&VALUEWEAK); -while(i--){TObject*o=&h->array[i];if(!valismarked(o))setnilvalue(o);}i= -sizenode(h);while(i--){Node*n=gnode(h,i);if(!valismarked(gval(n)))removekey(n) -;}l=h->gclist;}}static void freeobj(lua_State*L,GCObject*o){switch(o->gch.tt){ -case LUA_TPROTO:luaF_freeproto(L,gcotop(o));break;case LUA_TFUNCTION: -luaF_freeclosure(L,gcotocl(o));break;case LUA_TUPVAL:luaM_freelem(L,gcotouv(o) -);break;case LUA_TTABLE:luaH_free(L,gcotoh(o));break;case LUA_TTHREAD:{ -lua_assert(gcototh(o)!=L&&gcototh(o)!=G(L)->mainthread);luaE_freethread(L, -gcototh(o));break;}case LUA_TSTRING:{luaM_free(L,o,sizestring(gcotots(o)->tsv. -len));break;}case LUA_TUSERDATA:{luaM_free(L,o,sizeudata(gcotou(o)->uv.len)); -break;}default:lua_assert(0);}}static int sweeplist(lua_State*L,GCObject**p, -int limit){GCObject*curr;int count=0;while((curr=*p)!=NULL){if(curr->gch. -marked>limit){unmark(curr);p=&curr->gch.next;}else{count++;*p=curr->gch.next; -freeobj(L,curr);}}return count;}static void sweepstrings(lua_State*L,int all){ -int i;for(i=0;istrt.size;i++){G(L)->strt.nuse-=sweeplist(L,&G(L)->strt. -hash[i],all);}}static void checkSizes(lua_State*L,size_t deadmem){if(G(L)-> -strt.nusestrt.size/4)&&G(L)->strt.size>MINSTRTABSIZE*2) -luaS_resize(L,G(L)->strt.size/2);if(luaZ_sizebuffer(&G(L)->buff)>LUA_MINBUFFER -*2){size_t newsize=luaZ_sizebuffer(&G(L)->buff)/2;luaZ_resizebuffer(L,&G(L)-> -buff,newsize);}G(L)->GCthreshold=2*G(L)->nblocks-deadmem;}static void do1gcTM( -lua_State*L,Udata*udata){const TObject*tm=fasttm(L,udata->uv.metatable,TM_GC); -if(tm!=NULL){setobj2s(L->top,tm);setuvalue(L->top+1,udata);L->top+=2;luaD_call -(L,L->top-2,0);}}void luaC_callGCTM(lua_State*L){lu_byte oldah=L->allowhook;L -->allowhook=0;L->top++;while(G(L)->tmudata!=NULL){GCObject*o=G(L)->tmudata; -Udata*udata=gcotou(o);G(L)->tmudata=udata->uv.next;udata->uv.next=G(L)-> -rootudata;G(L)->rootudata=o;setuvalue(L->top-1,udata);unmark(o);markfinalized( -udata);do1gcTM(L,udata);}L->top--;L->allowhook=oldah;}void luaC_sweep( -lua_State*L,int all){if(all)all=256;sweeplist(L,&G(L)->rootudata,all); -sweepstrings(L,all);sweeplist(L,&G(L)->rootgc,all);}static void markroot( -GCState*st,lua_State*L){global_State*g=st->g;markobject(st,defaultmeta(L)); -markobject(st,registry(L));traversestack(st,g->mainthread);if(L!=g->mainthread -)markvalue(st,L);}static size_t mark(lua_State*L){size_t deadmem;GCState st; -GCObject*wkv;st.g=G(L);st.tmark=NULL;st.wkv=st.wk=st.wv=NULL;markroot(&st,L); -propagatemarks(&st);cleartablevalues(st.wkv);cleartablevalues(st.wv);wkv=st. -wkv;st.wkv=NULL;st.wv=NULL;deadmem=luaC_separateudata(L);marktmu(&st); -propagatemarks(&st);cleartablekeys(wkv);cleartablekeys(st.wk);cleartablevalues -(st.wv);cleartablekeys(st.wkv);cleartablevalues(st.wkv);return deadmem;}void -luaC_collectgarbage(lua_State*L){size_t deadmem=mark(L);luaC_sweep(L,0); -checkSizes(L,deadmem);luaC_callGCTM(L);}void luaC_link(lua_State*L,GCObject*o, -lu_byte tt){o->gch.next=G(L)->rootgc;G(L)->rootgc=o;o->gch.marked=0;o->gch.tt= -tt;} -#line 1 "liolib.c" -#define liolib_c -#ifndef USE_TMPNAME -#ifdef __GNUC__ -#define USE_TMPNAME 0 -#else -#define USE_TMPNAME 1 -#endif -#endif -#ifndef USE_POPEN -#ifdef _POSIX_C_SOURCE -#if _POSIX_C_SOURCE >=2 -#define USE_POPEN 1 -#endif -#endif -#endif -#ifndef USE_POPEN -#define USE_POPEN 0 -#endif -#if !USE_POPEN -#define pclose(f) (-1) -#endif -#define FILEHANDLE "FILE*" -#define IO_INPUT "_input" -#define IO_OUTPUT "_output" -static int pushresult(lua_State*L,int i,const char*filename){if(i){ -lua_pushboolean(L,1);return 1;}else{lua_pushnil(L);if(filename)lua_pushfstring -(L,"%s: %s",filename,strerror(errno));else lua_pushfstring(L,"%s",strerror( -errno));lua_pushnumber(L,errno);return 3;}}static FILE**topfile(lua_State*L, -int findex){FILE**f=(FILE**)luaL_checkudata(L,findex,FILEHANDLE);if(f==NULL) -luaL_argerror(L,findex,"bad file");return f;}static int io_type(lua_State*L){ -FILE**f=(FILE**)luaL_checkudata(L,1,FILEHANDLE);if(f==NULL)lua_pushnil(L);else - if(*f==NULL)lua_pushliteral(L,"closed file");else lua_pushliteral(L,"file"); -return 1;}static FILE*tofile(lua_State*L,int findex){FILE**f=topfile(L,findex) -;if(*f==NULL)luaL_error(L,"attempt to use a closed file");return*f;}static -FILE**newfile(lua_State*L){FILE**pf=(FILE**)lua_newuserdata(L,sizeof(FILE*));* -pf=NULL;luaL_getmetatable(L,FILEHANDLE);lua_setmetatable(L,-2);return pf;} -static void registerfile(lua_State*L,FILE*f,const char*name,const char*impname -){lua_pushstring(L,name);*newfile(L)=f;if(impname){lua_pushstring(L,impname); -lua_pushvalue(L,-2);lua_settable(L,-6);}lua_settable(L,-3);}static int -aux_close(lua_State*L){FILE*f=tofile(L,1);if(f==stdin||f==stdout||f==stderr) -return 0;else{int ok=(pclose(f)!=-1)||(fclose(f)==0);if(ok)*(FILE**) -lua_touserdata(L,1)=NULL;return ok;}}static int io_close(lua_State*L){if( -lua_isnone(L,1)&&lua_type(L,lua_upvalueindex(1))==LUA_TTABLE){lua_pushstring(L -,IO_OUTPUT);lua_rawget(L,lua_upvalueindex(1));}return pushresult(L,aux_close(L -),NULL);}static int io_gc(lua_State*L){FILE**f=topfile(L,1);if(*f!=NULL) -aux_close(L);return 0;}static int io_tostring(lua_State*L){char buff[128];FILE -**f=topfile(L,1);if(*f==NULL)strcpy(buff,"closed");else sprintf(buff,"%p", -lua_touserdata(L,1));lua_pushfstring(L,"file (%s)",buff);return 1;}static int -io_open(lua_State*L){const char*filename=luaL_checkstring(L,1);const char*mode -=luaL_optstring(L,2,"r");FILE**pf=newfile(L);*pf=fopen(filename,mode);return(* -pf==NULL)?pushresult(L,0,filename):1;}static int io_popen(lua_State*L){ -#if !USE_POPEN -luaL_error(L,"`popen' not supported");return 0; -#else -const char*filename=luaL_checkstring(L,1);const char*mode=luaL_optstring(L,2, -"r");FILE**pf=newfile(L);*pf=popen(filename,mode);return(*pf==NULL)?pushresult -(L,0,filename):1; -#endif -}static int io_tmpfile(lua_State*L){FILE**pf=newfile(L);*pf=tmpfile();return(* -pf==NULL)?pushresult(L,0,NULL):1;}static FILE*getiofile(lua_State*L,const char -*name){lua_pushstring(L,name);lua_rawget(L,lua_upvalueindex(1));return tofile( -L,-1);}static int g_iofile(lua_State*L,const char*name,const char*mode){if(! -lua_isnoneornil(L,1)){const char*filename=lua_tostring(L,1);lua_pushstring(L, -name);if(filename){FILE**pf=newfile(L);*pf=fopen(filename,mode);if(*pf==NULL){ -lua_pushfstring(L,"%s: %s",filename,strerror(errno));luaL_argerror(L,1, -lua_tostring(L,-1));}}else{tofile(L,1);lua_pushvalue(L,1);}lua_rawset(L, -lua_upvalueindex(1));}lua_pushstring(L,name);lua_rawget(L,lua_upvalueindex(1)) -;return 1;}static int io_input(lua_State*L){return g_iofile(L,IO_INPUT,"r");} -static int io_output(lua_State*L){return g_iofile(L,IO_OUTPUT,"w");}static int - io_readline(lua_State*L);static void aux_lines(lua_State*L,int idx,int close) -{lua_pushliteral(L,FILEHANDLE);lua_rawget(L,LUA_REGISTRYINDEX);lua_pushvalue(L -,idx);lua_pushboolean(L,close);lua_pushcclosure(L,io_readline,3);}static int -f_lines(lua_State*L){tofile(L,1);aux_lines(L,1,0);return 1;}static int -io_lines(lua_State*L){if(lua_isnoneornil(L,1)){lua_pushstring(L,IO_INPUT); -lua_rawget(L,lua_upvalueindex(1));return f_lines(L);}else{const char*filename= -luaL_checkstring(L,1);FILE**pf=newfile(L);*pf=fopen(filename,"r"); -luaL_argcheck(L,*pf,1,strerror(errno));aux_lines(L,lua_gettop(L),1);return 1;} -}static int read_number(lua_State*L,FILE*f){lua_Number d;if(fscanf(f, -LUA_NUMBER_SCAN,&d)==1){lua_pushnumber(L,d);return 1;}else return 0;}static -int test_eof(lua_State*L,FILE*f){int c=getc(f);ungetc(c,f);lua_pushlstring(L, -NULL,0);return(c!=EOF);}static int read_line(lua_State*L,FILE*f){luaL_Buffer b -;luaL_buffinit(L,&b);for(;;){size_t l;char*p=luaL_prepbuffer(&b);if(fgets(p, -LUAL_BUFFERSIZE,f)==NULL){luaL_pushresult(&b);return(lua_strlen(L,-1)>0);}l= -strlen(p);if(p[l-1]!='\n')luaL_addsize(&b,l);else{luaL_addsize(&b,l-1); -luaL_pushresult(&b);return 1;}}}static int read_chars(lua_State*L,FILE*f, -size_t n){size_t rlen;size_t nr;luaL_Buffer b;luaL_buffinit(L,&b);rlen= -LUAL_BUFFERSIZE;do{char*p=luaL_prepbuffer(&b);if(rlen>n)rlen=n;nr=fread(p, -sizeof(char),rlen,f);luaL_addsize(&b,nr);n-=nr;}while(n>0&&nr==rlen); -luaL_pushresult(&b);return(n==0||lua_strlen(L,-1)>0);}static int g_read( -lua_State*L,FILE*f,int first){int nargs=lua_gettop(L)-1;int success;int n;if( -nargs==0){success=read_line(L,f);n=first+1;}else{luaL_checkstack(L,nargs+ -LUA_MINSTACK,"too many arguments");success=1;for(n=first;nargs--&&success;n++) -{if(lua_type(L,n)==LUA_TNUMBER){size_t l=(size_t)lua_tonumber(L,n);success=(l -==0)?test_eof(L,f):read_chars(L,f,l);}else{const char*p=lua_tostring(L,n); -luaL_argcheck(L,p&&p[0]=='*',n,"invalid option");switch(p[1]){case'n':success= -read_number(L,f);break;case'l':success=read_line(L,f);break;case'a':read_chars -(L,f,~((size_t)0));success=1;break;case'w':return luaL_error(L, -"obsolete option `*w' to `read'");default:return luaL_argerror(L,n, -"invalid format");}}}}if(!success){lua_pop(L,1);lua_pushnil(L);}return n-first -;}static int io_read(lua_State*L){return g_read(L,getiofile(L,IO_INPUT),1);} -static int f_read(lua_State*L){return g_read(L,tofile(L,1),2);}static int -io_readline(lua_State*L){FILE*f=*(FILE**)lua_touserdata(L,lua_upvalueindex(2)) -;if(f==NULL)luaL_error(L,"file is already closed");if(read_line(L,f))return 1; -else{if(lua_toboolean(L,lua_upvalueindex(3))){lua_settop(L,0);lua_pushvalue(L, -lua_upvalueindex(2));aux_close(L);}return 0;}}static int g_write(lua_State*L, -FILE*f,int arg){int nargs=lua_gettop(L)-1;int status=1;for(;nargs--;arg++){if( -lua_type(L,arg)==LUA_TNUMBER){status=status&&fprintf(f,LUA_NUMBER_FMT, -lua_tonumber(L,arg))>0;}else{size_t l;const char*s=luaL_checklstring(L,arg,&l) -;status=status&&(fwrite(s,sizeof(char),l,f)==l);}}return pushresult(L,status, -NULL);}static int io_write(lua_State*L){return g_write(L,getiofile(L,IO_OUTPUT -),1);}static int f_write(lua_State*L){return g_write(L,tofile(L,1),2);}static -int f_seek(lua_State*L){static const int mode[]={SEEK_SET,SEEK_CUR,SEEK_END}; -static const char*const modenames[]={"set","cur","end",NULL};FILE*f=tofile(L,1 -);int op=luaL_findstring(luaL_optstring(L,2,"cur"),modenames);long offset= -luaL_optlong(L,3,0);luaL_argcheck(L,op!=-1,2,"invalid mode");op=fseek(f,offset -,mode[op]);if(op)return pushresult(L,0,NULL);else{lua_pushnumber(L,ftell(f)); -return 1;}}static int io_flush(lua_State*L){return pushresult(L,fflush( -getiofile(L,IO_OUTPUT))==0,NULL);}static int f_flush(lua_State*L){return -pushresult(L,fflush(tofile(L,1))==0,NULL);}static const luaL_reg iolib[]={{ -"input",io_input},{"output",io_output},{"lines",io_lines},{"close",io_close},{ -"flush",io_flush},{"open",io_open},{"popen",io_popen},{"read",io_read},{ -"tmpfile",io_tmpfile},{"type",io_type},{"write",io_write},{NULL,NULL}};static -const luaL_reg flib[]={{"flush",f_flush},{"read",f_read},{"lines",f_lines},{ -"seek",f_seek},{"write",f_write},{"close",io_close},{"__gc",io_gc},{ -"__tostring",io_tostring},{NULL,NULL}};static void createmeta(lua_State*L){ -luaL_newmetatable(L,FILEHANDLE);lua_pushliteral(L,"__index");lua_pushvalue(L,- -2);lua_rawset(L,-3);luaL_openlib(L,NULL,flib,0);}static int io_execute( -lua_State*L){lua_pushnumber(L,system(luaL_checkstring(L,1)));return 1;}static -int io_remove(lua_State*L){const char*filename=luaL_checkstring(L,1);return -pushresult(L,remove(filename)==0,filename);}static int io_rename(lua_State*L){ -const char*fromname=luaL_checkstring(L,1);const char*toname=luaL_checkstring(L -,2);return pushresult(L,rename(fromname,toname)==0,fromname);}static int -io_tmpname(lua_State*L){ -#if !USE_TMPNAME -luaL_error(L,"`tmpname' not supported");return 0; -#else -char buff[L_tmpnam];if(tmpnam(buff)!=buff)return luaL_error(L, -"unable to generate a unique filename in `tmpname'");lua_pushstring(L,buff); -return 1; -#endif -}static int io_getenv(lua_State*L){lua_pushstring(L,getenv(luaL_checkstring(L, -1)));return 1;}static int io_clock(lua_State*L){lua_pushnumber(L,((lua_Number) -clock())/(lua_Number)CLOCKS_PER_SEC);return 1;}static void setfield(lua_State* -L,const char*key,int value){lua_pushstring(L,key);lua_pushnumber(L,value); -lua_rawset(L,-3);}static void setboolfield(lua_State*L,const char*key,int -value){lua_pushstring(L,key);lua_pushboolean(L,value);lua_rawset(L,-3);}static - int getboolfield(lua_State*L,const char*key){int res;lua_pushstring(L,key); -lua_gettable(L,-2);res=lua_toboolean(L,-1);lua_pop(L,1);return res;}static int - getfield(lua_State*L,const char*key,int d){int res;lua_pushstring(L,key); -lua_gettable(L,-2);if(lua_isnumber(L,-1))res=(int)(lua_tonumber(L,-1));else{if -(d==-2)return luaL_error(L,"field `%s' missing in date table",key);res=d;} -lua_pop(L,1);return res;}static int io_date(lua_State*L){const char*s= -luaL_optstring(L,1,"%c");time_t t=(time_t)(luaL_optnumber(L,2,-1));struct tm* -stm;if(t==(time_t)(-1))t=time(NULL);if(*s=='!'){stm=gmtime(&t);s++;}else stm= -localtime(&t);if(stm==NULL)lua_pushnil(L);else if(strcmp(s,"*t")==0){ -lua_newtable(L);setfield(L,"sec",stm->tm_sec);setfield(L,"min",stm->tm_min); -setfield(L,"hour",stm->tm_hour);setfield(L,"day",stm->tm_mday);setfield(L, -"month",stm->tm_mon+1);setfield(L,"year",stm->tm_year+1900);setfield(L,"wday", -stm->tm_wday+1);setfield(L,"yday",stm->tm_yday+1);setboolfield(L,"isdst",stm-> -tm_isdst);}else{char b[256];if(strftime(b,sizeof(b),s,stm))lua_pushstring(L,b) -;else return luaL_error(L,"`date' format too long");}return 1;}static int -io_time(lua_State*L){if(lua_isnoneornil(L,1))lua_pushnumber(L,time(NULL));else -{time_t t;struct tm ts;luaL_checktype(L,1,LUA_TTABLE);lua_settop(L,1);ts. -tm_sec=getfield(L,"sec",0);ts.tm_min=getfield(L,"min",0);ts.tm_hour=getfield(L -,"hour",12);ts.tm_mday=getfield(L,"day",-2);ts.tm_mon=getfield(L,"month",-2)-1 -;ts.tm_year=getfield(L,"year",-2)-1900;ts.tm_isdst=getboolfield(L,"isdst");t= -mktime(&ts);if(t==(time_t)(-1))lua_pushnil(L);else lua_pushnumber(L,t);}return - 1;}static int io_difftime(lua_State*L){lua_pushnumber(L,difftime((time_t)( -luaL_checknumber(L,1)),(time_t)(luaL_optnumber(L,2,0))));return 1;}static int -io_setloc(lua_State*L){static const int cat[]={LC_ALL,LC_COLLATE,LC_CTYPE, -LC_MONETARY,LC_NUMERIC,LC_TIME};static const char*const catnames[]={"all", -"collate","ctype","monetary","numeric","time",NULL};const char*l=lua_tostring( -L,1);int op=luaL_findstring(luaL_optstring(L,2,"all"),catnames);luaL_argcheck( -L,l||lua_isnoneornil(L,1),1,"string expected");luaL_argcheck(L,op!=-1,2, -"invalid option");lua_pushstring(L,setlocale(cat[op],l));return 1;}static int -io_exit(lua_State*L){exit(luaL_optint(L,1,EXIT_SUCCESS));return 0;}static -const luaL_reg syslib[]={{"clock",io_clock},{"date",io_date},{"difftime", -io_difftime},{"execute",io_execute},{"exit",io_exit},{"getenv",io_getenv},{ -"remove",io_remove},{"rename",io_rename},{"setlocale",io_setloc},{"time", -io_time},{"tmpname",io_tmpname},{NULL,NULL}};LUALIB_API int luaopen_io( -lua_State*L){luaL_openlib(L,LUA_OSLIBNAME,syslib,0);createmeta(L); -lua_pushvalue(L,-1);luaL_openlib(L,LUA_IOLIBNAME,iolib,1);registerfile(L,stdin -,"stdin",IO_INPUT);registerfile(L,stdout,"stdout",IO_OUTPUT);registerfile(L, -stderr,"stderr",NULL);return 1;} -#line 1 "llex.c" -#define llex_c -#define next(LS) (LS->current=zgetc(LS->z)) -static const char*const token2string[]={"and","break","do","else","elseif", -"end","false","for","function","if","in","local","nil","not","or","repeat", -"return","then","true","until","while","*name","..","...","==",">=","<=","~=", -"*number","*string",""};void luaX_init(lua_State*L){int i;for(i=0;i< -NUM_RESERVED;i++){TString*ts=luaS_new(L,token2string[i]);luaS_fix(ts); -lua_assert(strlen(token2string[i])+1<=TOKEN_LEN);ts->tsv.reserved=cast(lu_byte -,i+1);}} -#define MAXSRC 80 -void luaX_checklimit(LexState*ls,int val,int limit,const char*msg){if(val> -limit){msg=luaO_pushfstring(ls->L,"too many %s (limit=%d)",msg,limit); -luaX_syntaxerror(ls,msg);}}void luaX_errorline(LexState*ls,const char*s,const -char*token,int line){lua_State*L=ls->L;char buff[MAXSRC];luaO_chunkid(buff, -getstr(ls->source),MAXSRC);luaO_pushfstring(L,"%s:%d: %s near `%s'",buff,line, -s,token);luaD_throw(L,LUA_ERRSYNTAX);}static void luaX_error(LexState*ls,const - char*s,const char*token){luaX_errorline(ls,s,token,ls->linenumber);}void -luaX_syntaxerror(LexState*ls,const char*msg){const char*lasttoken;switch(ls->t -.token){case TK_NAME:lasttoken=getstr(ls->t.seminfo.ts);break;case TK_STRING: -case TK_NUMBER:lasttoken=luaZ_buffer(ls->buff);break;default:lasttoken= -luaX_token2str(ls,ls->t.token);break;}luaX_error(ls,msg,lasttoken);}const char -*luaX_token2str(LexState*ls,int token){if(tokenL,"%c",token);}else -return token2string[token-FIRST_RESERVED];}static void luaX_lexerror(LexState* -ls,const char*s,int token){if(token==TK_EOS)luaX_error(ls,s,luaX_token2str(ls, -token));else luaX_error(ls,s,luaZ_buffer(ls->buff));}static void inclinenumber -(LexState*LS){next(LS);++LS->linenumber;luaX_checklimit(LS,LS->linenumber, -MAX_INT,"lines in a chunk");}void luaX_setinput(lua_State*L,LexState*LS,ZIO*z, -TString*source){LS->L=L;LS->lookahead.token=TK_EOS;LS->z=z;LS->fs=NULL;LS-> -linenumber=1;LS->lastline=1;LS->source=source;next(LS);if(LS->current=='#'){do -{next(LS);}while(LS->current!='\n'&&LS->current!=EOZ);}} -#define EXTRABUFF 32 -#define MAXNOCHECK 5 -#define checkbuffer(LS, len)if(((len)+MAXNOCHECK)*sizeof(char)>luaZ_sizebuffer\ -((LS)->buff))luaZ_openspace((LS)->L,(LS)->buff,(len)+EXTRABUFF) -#define save(LS, c,l)(luaZ_buffer((LS)->buff)[l++]=cast(char,c)) -#define save_and_next(LS, l)(save(LS,LS->current,l),next(LS)) -static size_t readname(LexState*LS){size_t l=0;checkbuffer(LS,l);do{ -checkbuffer(LS,l);save_and_next(LS,l);}while(isalnum(LS->current)||LS->current -=='_');save(LS,'\0',l);return l-1;}static void read_numeral(LexState*LS,int -comma,SemInfo*seminfo){size_t l=0;checkbuffer(LS,l);if(comma)save(LS,'.',l); -while(isdigit(LS->current)){checkbuffer(LS,l);save_and_next(LS,l);}if(LS-> -current=='.'){save_and_next(LS,l);if(LS->current=='.'){save_and_next(LS,l); -save(LS,'\0',l);luaX_lexerror(LS, -"ambiguous syntax (decimal point x string concatenation)",TK_NUMBER);}}while( -isdigit(LS->current)){checkbuffer(LS,l);save_and_next(LS,l);}if(LS->current== -'e'||LS->current=='E'){save_and_next(LS,l);if(LS->current=='+'||LS->current== -'-')save_and_next(LS,l);while(isdigit(LS->current)){checkbuffer(LS,l); -save_and_next(LS,l);}}save(LS,'\0',l);if(!luaO_str2d(luaZ_buffer(LS->buff),& -seminfo->r))luaX_lexerror(LS,"malformed number",TK_NUMBER);}static void -read_long_string(LexState*LS,SemInfo*seminfo){int cont=0;size_t l=0; -checkbuffer(LS,l);save(LS,'[',l);save_and_next(LS,l);if(LS->current=='\n') -inclinenumber(LS);for(;;){checkbuffer(LS,l);switch(LS->current){case EOZ:save( -LS,'\0',l);luaX_lexerror(LS,(seminfo)?"unfinished long string": -"unfinished long comment",TK_EOS);break;case'[':save_and_next(LS,l);if(LS-> -current=='['){cont++;save_and_next(LS,l);}continue;case']':save_and_next(LS,l) -;if(LS->current==']'){if(cont==0)goto endloop;cont--;save_and_next(LS,l);} -continue;case'\n':save(LS,'\n',l);inclinenumber(LS);if(!seminfo)l=0;continue; -default:save_and_next(LS,l);}}endloop:save_and_next(LS,l);save(LS,'\0',l);if( -seminfo)seminfo->ts=luaS_newlstr(LS->L,luaZ_buffer(LS->buff)+2,l-5);}static -void read_string(LexState*LS,int del,SemInfo*seminfo){size_t l=0;checkbuffer( -LS,l);save_and_next(LS,l);while(LS->current!=del){checkbuffer(LS,l);switch(LS -->current){case EOZ:save(LS,'\0',l);luaX_lexerror(LS,"unfinished string", -TK_EOS);break;case'\n':save(LS,'\0',l);luaX_lexerror(LS,"unfinished string", -TK_STRING);break;case'\\':next(LS);switch(LS->current){case'a':save(LS,'\a',l) -;next(LS);break;case'b':save(LS,'\b',l);next(LS);break;case'f':save(LS,'\f',l) -;next(LS);break;case'n':save(LS,'\n',l);next(LS);break;case'r':save(LS,'\r',l) -;next(LS);break;case't':save(LS,'\t',l);next(LS);break;case'v':save(LS,'\v',l) -;next(LS);break;case'\n':save(LS,'\n',l);inclinenumber(LS);break;case EOZ: -break;default:{if(!isdigit(LS->current))save_and_next(LS,l);else{int c=0;int i -=0;do{c=10*c+(LS->current-'0');next(LS);}while(++i<3&&isdigit(LS->current));if -(c>UCHAR_MAX){save(LS,'\0',l);luaX_lexerror(LS,"escape sequence too large", -TK_STRING);}save(LS,c,l);}}}break;default:save_and_next(LS,l);}}save_and_next( -LS,l);save(LS,'\0',l);seminfo->ts=luaS_newlstr(LS->L,luaZ_buffer(LS->buff)+1,l --3);}int luaX_lex(LexState*LS,SemInfo*seminfo){for(;;){switch(LS->current){ -case'\n':{inclinenumber(LS);continue;}case'-':{next(LS);if(LS->current!='-') -return'-';next(LS);if(LS->current=='['&&(next(LS),LS->current=='[')) -read_long_string(LS,NULL);else while(LS->current!='\n'&&LS->current!=EOZ)next( -LS);continue;}case'[':{next(LS);if(LS->current!='[')return'[';else{ -read_long_string(LS,seminfo);return TK_STRING;}}case'=':{next(LS);if(LS-> -current!='=')return'=';else{next(LS);return TK_EQ;}}case'<':{next(LS);if(LS-> -current!='=')return'<';else{next(LS);return TK_LE;}}case'>':{next(LS);if(LS-> -current!='=')return'>';else{next(LS);return TK_GE;}}case'~':{next(LS);if(LS-> -current!='=')return'~';else{next(LS);return TK_NE;}}case'"':case'\'':{ -read_string(LS,LS->current,seminfo);return TK_STRING;}case'.':{next(LS);if(LS -->current=='.'){next(LS);if(LS->current=='.'){next(LS);return TK_DOTS;}else -return TK_CONCAT;}else if(!isdigit(LS->current))return'.';else{read_numeral(LS -,1,seminfo);return TK_NUMBER;}}case EOZ:{return TK_EOS;}default:{if(isspace(LS -->current)){next(LS);continue;}else if(isdigit(LS->current)){read_numeral(LS,0 -,seminfo);return TK_NUMBER;}else if(isalpha(LS->current)||LS->current=='_'){ -size_t l=readname(LS);TString*ts=luaS_newlstr(LS->L,luaZ_buffer(LS->buff),l); -if(ts->tsv.reserved>0)return ts->tsv.reserved-1+FIRST_RESERVED;seminfo->ts=ts; -return TK_NAME;}else{int c=LS->current;if(iscntrl(c))luaX_error(LS, -"invalid control char",luaO_pushfstring(LS->L,"char(%d)",c));next(LS);return c -;}}}}} -#undef next -#line 1 "lmem.c" -#define lmem_c -#ifndef l_realloc -#define l_realloc(b,os,s) realloc(b,s) -#endif -#ifndef l_free -#define l_free(b,os) free(b) -#endif -#define MINSIZEARRAY 4 -void*luaM_growaux(lua_State*L,void*block,int*size,int size_elems,int limit, -const char*errormsg){void*newblock;int newsize=(*size)*2;if(newsize< -MINSIZEARRAY)newsize=MINSIZEARRAY;else if(*size>=limit/2){if(*size=MAX_SIZET)luaG_runerror(L, -"memory allocation error: block too big");else{block=l_realloc(block,oldsize, -size);if(block==NULL){if(L)luaD_throw(L,LUA_ERRMEM);else return NULL;}}if(L){ -lua_assert(G(L)!=NULL&&G(L)->nblocks>0);G(L)->nblocks-=oldsize;G(L)->nblocks+= -size;}return block;} -#line 1 "loadlib.c" -#undef LOADLIB -#ifdef USE_DLOPEN -#define LOADLIB -#include /* dg: magic anchor comment */ -static int loadlib(lua_State*L){const char*path=luaL_checkstring(L,1);const -char*init=luaL_checkstring(L,2);void*lib=dlopen(path,RTLD_NOW);if(lib!=NULL){ -lua_CFunction f=(lua_CFunction)dlsym(lib,init);if(f!=NULL){ -lua_pushlightuserdata(L,lib);lua_pushcclosure(L,f,1);return 1;}}lua_pushnil(L) -;lua_pushstring(L,dlerror());lua_pushstring(L,(lib!=NULL)?"init":"open");if( -lib!=NULL)dlclose(lib);return 3;} -#endif -#ifndef USE_DLL -#ifdef _WIN32 -#define USE_DLL 1 -#else -#define USE_DLL 0 -#endif -#endif -#if USE_DLL -#define LOADLIB -#include /* dg: magic anchor comment */ -static void pusherror(lua_State*L){int error=GetLastError();char buffer[128]; -if(FormatMessage(FORMAT_MESSAGE_IGNORE_INSERTS|FORMAT_MESSAGE_FROM_SYSTEM,0, -error,0,buffer,sizeof(buffer),0))lua_pushstring(L,buffer);else lua_pushfstring -(L,"system error %d\n",error);}static int loadlib(lua_State*L){const char*path -=luaL_checkstring(L,1);const char*init=luaL_checkstring(L,2);HINSTANCE lib= -LoadLibrary(path);if(lib!=NULL){lua_CFunction f=(lua_CFunction)GetProcAddress( -lib,init);if(f!=NULL){lua_pushlightuserdata(L,lib);lua_pushcclosure(L,f,1); -return 1;}}lua_pushnil(L);pusherror(L);lua_pushstring(L,(lib!=NULL)?"init": -"open");if(lib!=NULL)FreeLibrary(lib);return 3;} -#endif -#ifndef LOADLIB -#ifdef linux -#define LOADLIB -#endif -#ifdef sun -#define LOADLIB -#endif -#ifdef sgi -#define LOADLIB -#endif -#ifdef BSD -#define LOADLIB -#endif -#ifdef _WIN32 -#define LOADLIB -#endif -#ifdef LOADLIB -#undef LOADLIB -#define LOADLIB "`loadlib' not installed (check your Lua configuration)" -#else -#define LOADLIB "`loadlib' not supported" -#endif -static int loadlib(lua_State*L){lua_pushnil(L);lua_pushliteral(L,LOADLIB); -lua_pushliteral(L,"absent");return 3;} -#endif -LUALIB_API int luaopen_loadlib(lua_State*L){lua_register(L,"loadlib",loadlib); -return 0;} -#line 1 "lobject.c" -#define lobject_c -#ifndef lua_str2number -#define lua_str2number(s,p) strtod((s),(p)) -#endif -const TObject luaO_nilobject={LUA_TNIL,{NULL}};int luaO_int2fb(unsigned int x) -{int m=0;while(x>=(1<<3)){x=(x+1)>>1;m++;}return(m<<3)|cast(int,x);}int -luaO_log2(unsigned int x){static const lu_byte log_8[255]={0,1,1,2,2,2,2,3,3,3 -,3,3,3,3,3,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5 -,5,5,5,5,5,5,5,5,5,5,5,5,5,5,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6 -,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6 -,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7 -,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7 -,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7 -,7,7,7,7,7,7,7,7,7,7,7};if(x>=0x00010000){if(x>=0x01000000)return log_8[((x>> -24)&0xff)-1]+24;else return log_8[((x>>16)&0xff)-1]+16;}else{if(x>=0x00000100) -return log_8[((x>>8)&0xff)-1]+8;else if(x)return log_8[(x&0xff)-1];return-1;}} -int luaO_rawequalObj(const TObject*t1,const TObject*t2){if(ttype(t1)!=ttype(t2 -))return 0;else switch(ttype(t1)){case LUA_TNIL:return 1;case LUA_TNUMBER: -return nvalue(t1)==nvalue(t2);case LUA_TBOOLEAN:return bvalue(t1)==bvalue(t2); -case LUA_TLIGHTUSERDATA:return pvalue(t1)==pvalue(t2);default:lua_assert( -iscollectable(t1));return gcvalue(t1)==gcvalue(t2);}}int luaO_str2d(const char -*s,lua_Number*result){char*endptr;lua_Number res=lua_str2number(s,&endptr);if( -endptr==s)return 0;while(isspace((unsigned char)(*endptr)))endptr++;if(*endptr -!='\0')return 0;*result=res;return 1;}static void pushstr(lua_State*L,const -char*str){setsvalue2s(L->top,luaS_new(L,str));incr_top(L);}const char* -luaO_pushvfstring(lua_State*L,const char*fmt,va_list argp){int n=1;pushstr(L, -"");for(;;){const char*e=strchr(fmt,'%');if(e==NULL)break;setsvalue2s(L->top, -luaS_newlstr(L,fmt,e-fmt));incr_top(L);switch(*(e+1)){case's':pushstr(L,va_arg -(argp,char*));break;case'c':{char buff[2];buff[0]=cast(char,va_arg(argp,int)); -buff[1]='\0';pushstr(L,buff);break;}case'd':setnvalue(L->top,cast(lua_Number, -va_arg(argp,int)));incr_top(L);break;case'f':setnvalue(L->top,cast(lua_Number, -va_arg(argp,l_uacNumber)));incr_top(L);break;case'%':pushstr(L,"%");break; -default:lua_assert(0);}n+=2;fmt=e+2;}pushstr(L,fmt);luaV_concat(L,n+1,L->top-L -->base-1);L->top-=n;return svalue(L->top-1);}const char*luaO_pushfstring( -lua_State*L,const char*fmt,...){const char*msg;va_list argp;va_start(argp,fmt) -;msg=luaO_pushvfstring(L,fmt,argp);va_end(argp);return msg;}void luaO_chunkid( -char*out,const char*source,int bufflen){if(*source=='='){strncpy(out,source+1, -bufflen);out[bufflen-1]='\0';}else{if(*source=='@'){int l;source++;bufflen-= -sizeof(" `...' ");l=strlen(source);strcpy(out,"");if(l>bufflen){source+=(l- -bufflen);strcat(out,"...");}strcat(out,source);}else{int len=strcspn(source, -"\n");bufflen-=sizeof(" [string \"...\"] ");if(len>bufflen)len=bufflen;strcpy( -out,"[string \"");if(source[len]!='\0'){strncat(out,source,len);strcat(out, -"...");}else strcat(out,source);strcat(out,"\"]");}}} -#line 1 "lopcodes.c" -#define lopcodes_c -#ifdef LUA_OPNAMES -const char*const luaP_opnames[]={"MOVE","LOADK","LOADBOOL","LOADNIL", -"GETUPVAL","GETGLOBAL","GETTABLE","SETGLOBAL","SETUPVAL","SETTABLE","NEWTABLE" -,"SELF","ADD","SUB","MUL","DIV","POW","UNM","NOT","CONCAT","JMP","EQ","LT", -"LE","TEST","CALL","TAILCALL","RETURN","FORLOOP","TFORLOOP","TFORPREP", -"SETLIST","SETLISTO","CLOSE","CLOSURE"}; -#endif -#define opmode(t,b,bk,ck,sa,k,m) (((t)<f->locvars[(fs)->actvar[i]]) -#define enterlevel(ls) if(++(ls)->nestlevel>LUA_MAXPARSERLEVEL)\ -luaX_syntaxerror(ls,"too many syntax levels"); -#define leavelevel(ls) ((ls)->nestlevel--) -typedef struct BlockCnt{struct BlockCnt*previous;int breaklist;int nactvar;int - upval;int isbreakable;}BlockCnt;static void chunk(LexState*ls);static void -expr(LexState*ls,expdesc*v);static void next(LexState*ls){ls->lastline=ls-> -linenumber;if(ls->lookahead.token!=TK_EOS){ls->t=ls->lookahead;ls->lookahead. -token=TK_EOS;}else ls->t.token=luaX_lex(ls,&ls->t.seminfo);}static void -lookahead(LexState*ls){lua_assert(ls->lookahead.token==TK_EOS);ls->lookahead. -token=luaX_lex(ls,&ls->lookahead.seminfo);}static void error_expected(LexState -*ls,int token){luaX_syntaxerror(ls,luaO_pushfstring(ls->L,"`%s' expected", -luaX_token2str(ls,token)));}static int testnext(LexState*ls,int c){if(ls->t. -token==c){next(ls);return 1;}else return 0;}static void check(LexState*ls,int -c){if(!testnext(ls,c))error_expected(ls,c);} -#define check_condition(ls,c,msg) {if(!(c))luaX_syntaxerror(ls,msg);} -static void check_match(LexState*ls,int what,int who,int where){if(!testnext( -ls,what)){if(where==ls->linenumber)error_expected(ls,what);else{ -luaX_syntaxerror(ls,luaO_pushfstring(ls->L, -"`%s' expected (to close `%s' at line %d)",luaX_token2str(ls,what), -luaX_token2str(ls,who),where));}}}static TString*str_checkname(LexState*ls){ -TString*ts;check_condition(ls,(ls->t.token==TK_NAME)," expected");ts=ls -->t.seminfo.ts;next(ls);return ts;}static void init_exp(expdesc*e,expkind k, -int i){e->f=e->t=NO_JUMP;e->k=k;e->info=i;}static void codestring(LexState*ls, -expdesc*e,TString*s){init_exp(e,VK,luaK_stringK(ls->fs,s));}static void -checkname(LexState*ls,expdesc*e){codestring(ls,e,str_checkname(ls));}static -int luaI_registerlocalvar(LexState*ls,TString*varname){FuncState*fs=ls->fs; -Proto*f=fs->f;luaM_growvector(ls->L,f->locvars,fs->nlocvars,f->sizelocvars, -LocVar,MAX_INT,"");f->locvars[fs->nlocvars].varname=varname;return fs-> -nlocvars++;}static void new_localvar(LexState*ls,TString*name,int n){FuncState -*fs=ls->fs;luaX_checklimit(ls,fs->nactvar+n+1,MAXVARS,"local variables");fs-> -actvar[fs->nactvar+n]=luaI_registerlocalvar(ls,name);}static void -adjustlocalvars(LexState*ls,int nvars){FuncState*fs=ls->fs;fs->nactvar+=nvars; -for(;nvars;nvars--){getlocvar(fs,fs->nactvar-nvars).startpc=fs->pc;}}static -void removevars(LexState*ls,int tolevel){FuncState*fs=ls->fs;while(fs->nactvar ->tolevel)getlocvar(fs,--fs->nactvar).endpc=fs->pc;}static void new_localvarstr -(LexState*ls,const char*name,int n){new_localvar(ls,luaS_new(ls->L,name),n);} -static void create_local(LexState*ls,const char*name){new_localvarstr(ls,name, -0);adjustlocalvars(ls,1);}static int indexupvalue(FuncState*fs,TString*name, -expdesc*v){int i;Proto*f=fs->f;for(i=0;inups;i++){if(fs->upvalues[i].k==v -->k&&fs->upvalues[i].info==v->info){lua_assert(fs->f->upvalues[i]==name); -return i;}}luaX_checklimit(fs->ls,f->nups+1,MAXUPVALUES,"upvalues"); -luaM_growvector(fs->L,fs->f->upvalues,f->nups,fs->f->sizeupvalues,TString*, -MAX_INT,"");fs->f->upvalues[f->nups]=name;fs->upvalues[f->nups]=*v;return f-> -nups++;}static int searchvar(FuncState*fs,TString*n){int i;for(i=fs->nactvar-1 -;i>=0;i--){if(n==getlocvar(fs,i).varname)return i;}return-1;}static void -markupval(FuncState*fs,int level){BlockCnt*bl=fs->bl;while(bl&&bl->nactvar> -level)bl=bl->previous;if(bl)bl->upval=1;}static void singlevaraux(FuncState*fs -,TString*n,expdesc*var,int base){if(fs==NULL)init_exp(var,VGLOBAL,NO_REG);else -{int v=searchvar(fs,n);if(v>=0){init_exp(var,VLOCAL,v);if(!base)markupval(fs,v -);}else{singlevaraux(fs->prev,n,var,0);if(var->k==VGLOBAL){if(base)var->info= -luaK_stringK(fs,n);}else{var->info=indexupvalue(fs,n,var);var->k=VUPVAL;}}}} -static TString*singlevar(LexState*ls,expdesc*var,int base){TString*varname= -str_checkname(ls);singlevaraux(ls->fs,varname,var,base);return varname;}static - void adjust_assign(LexState*ls,int nvars,int nexps,expdesc*e){FuncState*fs=ls -->fs;int extra=nvars-nexps;if(e->k==VCALL){extra++;if(extra<=0)extra=0;else -luaK_reserveregs(fs,extra-1);luaK_setcallreturns(fs,e,extra);}else{if(e->k!= -VVOID)luaK_exp2nextreg(fs,e);if(extra>0){int reg=fs->freereg;luaK_reserveregs( -fs,extra);luaK_nil(fs,reg,extra);}}}static void code_params(LexState*ls,int -nparams,int dots){FuncState*fs=ls->fs;adjustlocalvars(ls,nparams); -luaX_checklimit(ls,fs->nactvar,MAXPARAMS,"parameters");fs->f->numparams=cast( -lu_byte,fs->nactvar);fs->f->is_vararg=cast(lu_byte,dots);if(dots)create_local( -ls,"arg");luaK_reserveregs(fs,fs->nactvar);}static void enterblock(FuncState* -fs,BlockCnt*bl,int isbreakable){bl->breaklist=NO_JUMP;bl->isbreakable= -isbreakable;bl->nactvar=fs->nactvar;bl->upval=0;bl->previous=fs->bl;fs->bl=bl; -lua_assert(fs->freereg==fs->nactvar);}static void leaveblock(FuncState*fs){ -BlockCnt*bl=fs->bl;fs->bl=bl->previous;removevars(fs->ls,bl->nactvar);if(bl-> -upval)luaK_codeABC(fs,OP_CLOSE,bl->nactvar,0,0);lua_assert(bl->nactvar==fs-> -nactvar);fs->freereg=fs->nactvar;luaK_patchtohere(fs,bl->breaklist);}static -void pushclosure(LexState*ls,FuncState*func,expdesc*v){FuncState*fs=ls->fs; -Proto*f=fs->f;int i;luaM_growvector(ls->L,f->p,fs->np,f->sizep,Proto*, -MAXARG_Bx,"constant table overflow");f->p[fs->np++]=func->f;init_exp(v, -VRELOCABLE,luaK_codeABx(fs,OP_CLOSURE,0,fs->np-1));for(i=0;if->nups;i++ -){OpCode o=(func->upvalues[i].k==VLOCAL)?OP_MOVE:OP_GETUPVAL;luaK_codeABC(fs,o -,0,func->upvalues[i].info,0);}}static void open_func(LexState*ls,FuncState*fs) -{Proto*f=luaF_newproto(ls->L);fs->f=f;fs->prev=ls->fs;fs->ls=ls;fs->L=ls->L;ls -->fs=fs;fs->pc=0;fs->lasttarget=0;fs->jpc=NO_JUMP;fs->freereg=0;fs->nk=0;fs->h -=luaH_new(ls->L,0,0);fs->np=0;fs->nlocvars=0;fs->nactvar=0;fs->bl=NULL;f-> -source=ls->source;f->maxstacksize=2;}static void close_func(LexState*ls){ -lua_State*L=ls->L;FuncState*fs=ls->fs;Proto*f=fs->f;removevars(ls,0); -luaK_codeABC(fs,OP_RETURN,0,1,0);luaM_reallocvector(L,f->code,f->sizecode,fs-> -pc,Instruction);f->sizecode=fs->pc;luaM_reallocvector(L,f->lineinfo,f-> -sizelineinfo,fs->pc,int);f->sizelineinfo=fs->pc;luaM_reallocvector(L,f->k,f-> -sizek,fs->nk,TObject);f->sizek=fs->nk;luaM_reallocvector(L,f->p,f->sizep,fs-> -np,Proto*);f->sizep=fs->np;luaM_reallocvector(L,f->locvars,f->sizelocvars,fs-> -nlocvars,LocVar);f->sizelocvars=fs->nlocvars;luaM_reallocvector(L,f->upvalues, -f->sizeupvalues,f->nups,TString*);f->sizeupvalues=f->nups;lua_assert( -luaG_checkcode(f));lua_assert(fs->bl==NULL);ls->fs=fs->prev;}Proto*luaY_parser -(lua_State*L,ZIO*z,Mbuffer*buff){struct LexState lexstate;struct FuncState -funcstate;lexstate.buff=buff;lexstate.nestlevel=0;luaX_setinput(L,&lexstate,z, -luaS_new(L,zname(z)));open_func(&lexstate,&funcstate);next(&lexstate);chunk(& -lexstate);check_condition(&lexstate,(lexstate.t.token==TK_EOS), -" expected");close_func(&lexstate);lua_assert(funcstate.prev==NULL); -lua_assert(funcstate.f->nups==0);lua_assert(lexstate.nestlevel==0);return -funcstate.f;}static void luaY_field(LexState*ls,expdesc*v){FuncState*fs=ls->fs -;expdesc key;luaK_exp2anyreg(fs,v);next(ls);checkname(ls,&key);luaK_indexed(fs -,v,&key);}static void luaY_index(LexState*ls,expdesc*v){next(ls);expr(ls,v); -luaK_exp2val(ls->fs,v);check(ls,']');}struct ConsControl{expdesc v;expdesc*t; -int nh;int na;int tostore;};static void recfield(LexState*ls,struct -ConsControl*cc){FuncState*fs=ls->fs;int reg=ls->fs->freereg;expdesc key,val;if -(ls->t.token==TK_NAME){luaX_checklimit(ls,cc->nh,MAX_INT, -"items in a constructor");cc->nh++;checkname(ls,&key);}else luaY_index(ls,&key -);check(ls,'=');luaK_exp2RK(fs,&key);expr(ls,&val);luaK_codeABC(fs,OP_SETTABLE -,cc->t->info,luaK_exp2RK(fs,&key),luaK_exp2RK(fs,&val));fs->freereg=reg;} -static void closelistfield(FuncState*fs,struct ConsControl*cc){if(cc->v.k== -VVOID)return;luaK_exp2nextreg(fs,&cc->v);cc->v.k=VVOID;if(cc->tostore== -LFIELDS_PER_FLUSH){luaK_codeABx(fs,OP_SETLIST,cc->t->info,cc->na-1);cc-> -tostore=0;fs->freereg=cc->t->info+1;}}static void lastlistfield(FuncState*fs, -struct ConsControl*cc){if(cc->tostore==0)return;if(cc->v.k==VCALL){ -luaK_setcallreturns(fs,&cc->v,LUA_MULTRET);luaK_codeABx(fs,OP_SETLISTO,cc->t-> -info,cc->na-1);}else{if(cc->v.k!=VVOID)luaK_exp2nextreg(fs,&cc->v); -luaK_codeABx(fs,OP_SETLIST,cc->t->info,cc->na-1);}fs->freereg=cc->t->info+1;} -static void listfield(LexState*ls,struct ConsControl*cc){expr(ls,&cc->v); -luaX_checklimit(ls,cc->na,MAXARG_Bx,"items in a constructor");cc->na++;cc-> -tostore++;}static void constructor(LexState*ls,expdesc*t){FuncState*fs=ls->fs; -int line=ls->linenumber;int pc=luaK_codeABC(fs,OP_NEWTABLE,0,0,0);struct -ConsControl cc;cc.na=cc.nh=cc.tostore=0;cc.t=t;init_exp(t,VRELOCABLE,pc); -init_exp(&cc.v,VVOID,0);luaK_exp2nextreg(ls->fs,t);check(ls,'{');do{lua_assert -(cc.v.k==VVOID||cc.tostore>0);testnext(ls,';');if(ls->t.token=='}')break; -closelistfield(fs,&cc);switch(ls->t.token){case TK_NAME:{lookahead(ls);if(ls-> -lookahead.token!='=')listfield(ls,&cc);else recfield(ls,&cc);break;}case'[':{ -recfield(ls,&cc);break;}default:{listfield(ls,&cc);break;}}}while(testnext(ls, -',')||testnext(ls,';'));check_match(ls,'}','{',line);lastlistfield(fs,&cc); -SETARG_B(fs->f->code[pc],luaO_int2fb(cc.na));SETARG_C(fs->f->code[pc], -luaO_log2(cc.nh)+1);}static void parlist(LexState*ls){int nparams=0;int dots=0 -;if(ls->t.token!=')'){do{switch(ls->t.token){case TK_DOTS:dots=1;next(ls); -break;case TK_NAME:new_localvar(ls,str_checkname(ls),nparams++);break;default: -luaX_syntaxerror(ls," or `...' expected");}}while(!dots&&testnext(ls,',' -));}code_params(ls,nparams,dots);}static void body(LexState*ls,expdesc*e,int -needself,int line){FuncState new_fs;open_func(ls,&new_fs);new_fs.f-> -lineDefined=line;check(ls,'(');if(needself)create_local(ls,"self");parlist(ls) -;check(ls,')');chunk(ls);check_match(ls,TK_END,TK_FUNCTION,line);close_func(ls -);pushclosure(ls,&new_fs,e);}static int explist1(LexState*ls,expdesc*v){int n= -1;expr(ls,v);while(testnext(ls,',')){luaK_exp2nextreg(ls->fs,v);expr(ls,v);n++ -;}return n;}static void funcargs(LexState*ls,expdesc*f){FuncState*fs=ls->fs; -expdesc args;int base,nparams;int line=ls->linenumber;switch(ls->t.token){case -'(':{if(line!=ls->lastline)luaX_syntaxerror(ls, -"ambiguous syntax (function call x new statement)");next(ls);if(ls->t.token== -')')args.k=VVOID;else{explist1(ls,&args);luaK_setcallreturns(fs,&args, -LUA_MULTRET);}check_match(ls,')','(',line);break;}case'{':{constructor(ls,& -args);break;}case TK_STRING:{codestring(ls,&args,ls->t.seminfo.ts);next(ls); -break;}default:{luaX_syntaxerror(ls,"function arguments expected");return;}} -lua_assert(f->k==VNONRELOC);base=f->info;if(args.k==VCALL)nparams=LUA_MULTRET; -else{if(args.k!=VVOID)luaK_exp2nextreg(fs,&args);nparams=fs->freereg-(base+1); -}init_exp(f,VCALL,luaK_codeABC(fs,OP_CALL,base,nparams+1,2));luaK_fixline(fs, -line);fs->freereg=base+1;}static void prefixexp(LexState*ls,expdesc*v){switch( -ls->t.token){case'(':{int line=ls->linenumber;next(ls);expr(ls,v);check_match( -ls,')','(',line);luaK_dischargevars(ls->fs,v);return;}case TK_NAME:{singlevar( -ls,v,1);return;} -#ifdef LUA_COMPATUPSYNTAX -case'%':{TString*varname;int line=ls->linenumber;next(ls);varname=singlevar(ls -,v,1);if(v->k!=VUPVAL)luaX_errorline(ls,"global upvalues are obsolete",getstr( -varname),line);return;} -#endif -default:{luaX_syntaxerror(ls,"unexpected symbol");return;}}}static void -primaryexp(LexState*ls,expdesc*v){FuncState*fs=ls->fs;prefixexp(ls,v);for(;;){ -switch(ls->t.token){case'.':{luaY_field(ls,v);break;}case'[':{expdesc key; -luaK_exp2anyreg(fs,v);luaY_index(ls,&key);luaK_indexed(fs,v,&key);break;}case -':':{expdesc key;next(ls);checkname(ls,&key);luaK_self(fs,v,&key);funcargs(ls, -v);break;}case'(':case TK_STRING:case'{':{luaK_exp2nextreg(fs,v);funcargs(ls,v -);break;}default:return;}}}static void simpleexp(LexState*ls,expdesc*v){switch -(ls->t.token){case TK_NUMBER:{init_exp(v,VK,luaK_numberK(ls->fs,ls->t.seminfo. -r));next(ls);break;}case TK_STRING:{codestring(ls,v,ls->t.seminfo.ts);next(ls) -;break;}case TK_NIL:{init_exp(v,VNIL,0);next(ls);break;}case TK_TRUE:{init_exp -(v,VTRUE,0);next(ls);break;}case TK_FALSE:{init_exp(v,VFALSE,0);next(ls);break -;}case'{':{constructor(ls,v);break;}case TK_FUNCTION:{next(ls);body(ls,v,0,ls -->linenumber);break;}default:{primaryexp(ls,v);break;}}}static UnOpr getunopr( -int op){switch(op){case TK_NOT:return OPR_NOT;case'-':return OPR_MINUS;default -:return OPR_NOUNOPR;}}static BinOpr getbinopr(int op){switch(op){case'+': -return OPR_ADD;case'-':return OPR_SUB;case'*':return OPR_MULT;case'/':return -OPR_DIV;case'^':return OPR_POW;case TK_CONCAT:return OPR_CONCAT;case TK_NE: -return OPR_NE;case TK_EQ:return OPR_EQ;case'<':return OPR_LT;case TK_LE:return - OPR_LE;case'>':return OPR_GT;case TK_GE:return OPR_GE;case TK_AND:return -OPR_AND;case TK_OR:return OPR_OR;default:return OPR_NOBINOPR;}}static const -struct{lu_byte left;lu_byte right;}priority[]={{6,6},{6,6},{7,7},{7,7},{10,9}, -{5,4},{3,3},{3,3},{3,3},{3,3},{3,3},{3,3},{2,2},{1,1}}; -#define UNARY_PRIORITY 8 -static BinOpr subexpr(LexState*ls,expdesc*v,int limit){BinOpr op;UnOpr uop; -enterlevel(ls);uop=getunopr(ls->t.token);if(uop!=OPR_NOUNOPR){next(ls);subexpr -(ls,v,UNARY_PRIORITY);luaK_prefix(ls->fs,uop,v);}else simpleexp(ls,v);op= -getbinopr(ls->t.token);while(op!=OPR_NOBINOPR&&cast(int,priority[op].left)> -limit){expdesc v2;BinOpr nextop;next(ls);luaK_infix(ls->fs,op,v);nextop= -subexpr(ls,&v2,cast(int,priority[op].right));luaK_posfix(ls->fs,op,v,&v2);op= -nextop;}leavelevel(ls);return op;}static void expr(LexState*ls,expdesc*v){ -subexpr(ls,v,-1);}static int block_follow(int token){switch(token){case -TK_ELSE:case TK_ELSEIF:case TK_END:case TK_UNTIL:case TK_EOS:return 1;default: -return 0;}}static void block(LexState*ls){FuncState*fs=ls->fs;BlockCnt bl; -enterblock(fs,&bl,0);chunk(ls);lua_assert(bl.breaklist==NO_JUMP);leaveblock(fs -);}struct LHS_assign{struct LHS_assign*prev;expdesc v;};static void -check_conflict(LexState*ls,struct LHS_assign*lh,expdesc*v){FuncState*fs=ls->fs -;int extra=fs->freereg;int conflict=0;for(;lh;lh=lh->prev){if(lh->v.k== -VINDEXED){if(lh->v.info==v->info){conflict=1;lh->v.info=extra;}if(lh->v.aux==v -->info){conflict=1;lh->v.aux=extra;}}}if(conflict){luaK_codeABC(fs,OP_MOVE,fs -->freereg,v->info,0);luaK_reserveregs(fs,1);}}static void assignment(LexState* -ls,struct LHS_assign*lh,int nvars){expdesc e;check_condition(ls,VLOCAL<=lh->v. -k&&lh->v.k<=VINDEXED,"syntax error");if(testnext(ls,',')){struct LHS_assign nv -;nv.prev=lh;primaryexp(ls,&nv.v);if(nv.v.k==VLOCAL)check_conflict(ls,lh,&nv.v) -;assignment(ls,&nv,nvars+1);}else{int nexps;check(ls,'=');nexps=explist1(ls,&e -);if(nexps!=nvars){adjust_assign(ls,nvars,nexps,&e);if(nexps>nvars)ls->fs-> -freereg-=nexps-nvars;}else{luaK_setcallreturns(ls->fs,&e,1);luaK_storevar(ls-> -fs,&lh->v,&e);return;}}init_exp(&e,VNONRELOC,ls->fs->freereg-1);luaK_storevar( -ls->fs,&lh->v,&e);}static void cond(LexState*ls,expdesc*v){expr(ls,v);if(v->k -==VNIL)v->k=VFALSE;luaK_goiftrue(ls->fs,v);luaK_patchtohere(ls->fs,v->t);} -#ifndef MAXEXPWHILE -#define MAXEXPWHILE 100 -#endif -#define EXTRAEXP 5 -static void whilestat(LexState*ls,int line){Instruction codeexp[MAXEXPWHILE+ -EXTRAEXP];int lineexp;int i;int sizeexp;FuncState*fs=ls->fs;int whileinit, -blockinit,expinit;expdesc v;BlockCnt bl;next(ls);whileinit=luaK_jump(fs); -expinit=luaK_getlabel(fs);expr(ls,&v);if(v.k==VK)v.k=VTRUE;lineexp=ls-> -linenumber;luaK_goiffalse(fs,&v);luaK_concat(fs,&v.f,fs->jpc);fs->jpc=NO_JUMP; -sizeexp=fs->pc-expinit;if(sizeexp>MAXEXPWHILE)luaX_syntaxerror(ls, -"`while' condition too complex");for(i=0;if->code[ -expinit+i];fs->pc=expinit;enterblock(fs,&bl,1);check(ls,TK_DO);blockinit= -luaK_getlabel(fs);block(ls);luaK_patchtohere(fs,whileinit);if(v.t!=NO_JUMP)v.t -+=fs->pc-expinit;if(v.f!=NO_JUMP)v.f+=fs->pc-expinit;for(i=0;ifs;int -repeat_init=luaK_getlabel(fs);expdesc v;BlockCnt bl;enterblock(fs,&bl,1);next( -ls);block(ls);check_match(ls,TK_UNTIL,TK_REPEAT,line);cond(ls,&v); -luaK_patchlist(fs,v.f,repeat_init);leaveblock(fs);}static int exp1(LexState*ls -){expdesc e;int k;expr(ls,&e);k=e.k;luaK_exp2nextreg(ls->fs,&e);return k;} -static void forbody(LexState*ls,int base,int line,int nvars,int isnum){ -BlockCnt bl;FuncState*fs=ls->fs;int prep,endfor;adjustlocalvars(ls,nvars); -check(ls,TK_DO);enterblock(fs,&bl,1);prep=luaK_getlabel(fs);block(ls); -luaK_patchtohere(fs,prep-1);endfor=(isnum)?luaK_codeAsBx(fs,OP_FORLOOP,base, -NO_JUMP):luaK_codeABC(fs,OP_TFORLOOP,base,0,nvars-3);luaK_fixline(fs,line); -luaK_patchlist(fs,(isnum)?endfor:luaK_jump(fs),prep);leaveblock(fs);}static -void fornum(LexState*ls,TString*varname,int line){FuncState*fs=ls->fs;int base -=fs->freereg;new_localvar(ls,varname,0);new_localvarstr(ls,"(for limit)",1); -new_localvarstr(ls,"(for step)",2);check(ls,'=');exp1(ls);check(ls,',');exp1( -ls);if(testnext(ls,','))exp1(ls);else{luaK_codeABx(fs,OP_LOADK,fs->freereg, -luaK_numberK(fs,1));luaK_reserveregs(fs,1);}luaK_codeABC(fs,OP_SUB,fs->freereg --3,fs->freereg-3,fs->freereg-1);luaK_jump(fs);forbody(ls,base,line,3,1);} -static void forlist(LexState*ls,TString*indexname){FuncState*fs=ls->fs;expdesc - e;int nvars=0;int line;int base=fs->freereg;new_localvarstr(ls, -"(for generator)",nvars++);new_localvarstr(ls,"(for state)",nvars++); -new_localvar(ls,indexname,nvars++);while(testnext(ls,','))new_localvar(ls, -str_checkname(ls),nvars++);check(ls,TK_IN);line=ls->linenumber;adjust_assign( -ls,nvars,explist1(ls,&e),&e);luaK_checkstack(fs,3);luaK_codeAsBx(fs, -OP_TFORPREP,base,NO_JUMP);forbody(ls,base,line,nvars,0);}static void forstat( -LexState*ls,int line){FuncState*fs=ls->fs;TString*varname;BlockCnt bl; -enterblock(fs,&bl,0);next(ls);varname=str_checkname(ls);switch(ls->t.token){ -case'=':fornum(ls,varname,line);break;case',':case TK_IN:forlist(ls,varname); -break;default:luaX_syntaxerror(ls,"`=' or `in' expected");}check_match(ls, -TK_END,TK_FOR,line);leaveblock(fs);}static void test_then_block(LexState*ls, -expdesc*v){next(ls);cond(ls,v);check(ls,TK_THEN);block(ls);}static void ifstat -(LexState*ls,int line){FuncState*fs=ls->fs;expdesc v;int escapelist=NO_JUMP; -test_then_block(ls,&v);while(ls->t.token==TK_ELSEIF){luaK_concat(fs,& -escapelist,luaK_jump(fs));luaK_patchtohere(fs,v.f);test_then_block(ls,&v);}if( -ls->t.token==TK_ELSE){luaK_concat(fs,&escapelist,luaK_jump(fs)); -luaK_patchtohere(fs,v.f);next(ls);block(ls);}else luaK_concat(fs,&escapelist,v -.f);luaK_patchtohere(fs,escapelist);check_match(ls,TK_END,TK_IF,line);}static -void localfunc(LexState*ls){expdesc v,b;FuncState*fs=ls->fs;new_localvar(ls, -str_checkname(ls),0);init_exp(&v,VLOCAL,fs->freereg);luaK_reserveregs(fs,1); -adjustlocalvars(ls,1);body(ls,&b,0,ls->linenumber);luaK_storevar(fs,&v,&b); -getlocvar(fs,fs->nactvar-1).startpc=fs->pc;}static void localstat(LexState*ls) -{int nvars=0;int nexps;expdesc e;do{new_localvar(ls,str_checkname(ls),nvars++) -;}while(testnext(ls,','));if(testnext(ls,'='))nexps=explist1(ls,&e);else{e.k= -VVOID;nexps=0;}adjust_assign(ls,nvars,nexps,&e);adjustlocalvars(ls,nvars);} -static int funcname(LexState*ls,expdesc*v){int needself=0;singlevar(ls,v,1); -while(ls->t.token=='.')luaY_field(ls,v);if(ls->t.token==':'){needself=1; -luaY_field(ls,v);}return needself;}static void funcstat(LexState*ls,int line){ -int needself;expdesc v,b;next(ls);needself=funcname(ls,&v);body(ls,&b,needself -,line);luaK_storevar(ls->fs,&v,&b);luaK_fixline(ls->fs,line);}static void -exprstat(LexState*ls){FuncState*fs=ls->fs;struct LHS_assign v;primaryexp(ls,&v -.v);if(v.v.k==VCALL){luaK_setcallreturns(fs,&v.v,0);}else{v.prev=NULL; -assignment(ls,&v,1);}}static void retstat(LexState*ls){FuncState*fs=ls->fs; -expdesc e;int first,nret;next(ls);if(block_follow(ls->t.token)||ls->t.token== -';')first=nret=0;else{nret=explist1(ls,&e);if(e.k==VCALL){luaK_setcallreturns( -fs,&e,LUA_MULTRET);if(nret==1){SET_OPCODE(getcode(fs,&e),OP_TAILCALL); -lua_assert(GETARG_A(getcode(fs,&e))==fs->nactvar);}first=fs->nactvar;nret= -LUA_MULTRET;}else{if(nret==1)first=luaK_exp2anyreg(fs,&e);else{ -luaK_exp2nextreg(fs,&e);first=fs->nactvar;lua_assert(nret==fs->freereg-first); -}}}luaK_codeABC(fs,OP_RETURN,first,nret+1,0);}static void breakstat(LexState* -ls){FuncState*fs=ls->fs;BlockCnt*bl=fs->bl;int upval=0;next(ls);while(bl&&!bl -->isbreakable){upval|=bl->upval;bl=bl->previous;}if(!bl)luaX_syntaxerror(ls, -"no loop to break");if(upval)luaK_codeABC(fs,OP_CLOSE,bl->nactvar,0,0); -luaK_concat(fs,&bl->breaklist,luaK_jump(fs));}static int statement(LexState*ls -){int line=ls->linenumber;switch(ls->t.token){case TK_IF:{ifstat(ls,line); -return 0;}case TK_WHILE:{whilestat(ls,line);return 0;}case TK_DO:{next(ls); -block(ls);check_match(ls,TK_END,TK_DO,line);return 0;}case TK_FOR:{forstat(ls, -line);return 0;}case TK_REPEAT:{repeatstat(ls,line);return 0;}case TK_FUNCTION -:{funcstat(ls,line);return 0;}case TK_LOCAL:{next(ls);if(testnext(ls, -TK_FUNCTION))localfunc(ls);else localstat(ls);return 0;}case TK_RETURN:{ -retstat(ls);return 1;}case TK_BREAK:{breakstat(ls);return 1;}default:{exprstat -(ls);return 0;}}}static void chunk(LexState*ls){int islast=0;enterlevel(ls); -while(!islast&&!block_follow(ls->t.token)){islast=statement(ls);testnext(ls, -';');lua_assert(ls->fs->freereg>=ls->fs->nactvar);ls->fs->freereg=ls->fs-> -nactvar;}leavelevel(ls);} -#line 1 "lposix.c" -#define MYNAME "posix" -#define MYVERSION MYNAME" library for "LUA_VERSION" / Nov 2003" -#ifndef MYBUFSIZ -#define MYBUFSIZ 512 -#endif -#line 1 "modemuncher.h" -struct modeLookup{char rwx;mode_t bits;};typedef struct modeLookup modeLookup; -static modeLookup modesel[]={{'r',S_IRUSR},{'w',S_IWUSR},{'x',S_IXUSR},{'r', -S_IRGRP},{'w',S_IWGRP},{'x',S_IXGRP},{'r',S_IROTH},{'w',S_IWOTH},{'x',S_IXOTH} -,{(char)NULL,(mode_t)-1}};static int rwxrwxrwx(mode_t*mode,const char*p){int -count;mode_t tmp_mode=*mode;tmp_mode&=~(S_ISUID|S_ISGID);for(count=0;count<9; -count++){if(*p==modesel[count].rwx)tmp_mode|=modesel[count].bits;else if(*p== -'-')tmp_mode&=~modesel[count].bits;else if(*p=='s')switch(count){case 2: -tmp_mode|=S_ISUID|S_IXUSR;break;case 5:tmp_mode|=S_ISGID|S_IXGRP;break;default -:return-4;break;}p++;}*mode=tmp_mode;return 0;}static void modechopper(mode_t -mode,char*p){int count;char*pp;pp=p;for(count=0;count<9;count++){if(mode& -modesel[count].bits)*p=modesel[count].rwx;else*p='-';p++;}*p=0;if(mode&S_ISUID -)pp[2]=(mode&S_IXUSR)?'s':'S';if(mode&S_ISGID)pp[5]=(mode&S_IXGRP)?'s':'S';} -static int mode_munch(mode_t*mode,const char*p){char op=0;mode_t affected_bits -,ch_mode;int doneFlag=0; -#ifdef DEBUG -char tmp[10]; -#endif -#ifdef DEBUG -modechopper(*mode,tmp);printf("modemuncher: got base mode = %s\n",tmp); -#endif -while(!doneFlag){affected_bits=0;ch_mode=0; -#ifdef DEBUG -printf("modemuncher step 1\n"); -#endif -if(*p=='r'||*p=='-')return rwxrwxrwx(mode,p);for(;;p++)switch(*p){case'u': -affected_bits|=04700;break;case'g':affected_bits|=02070;break;case'o': -affected_bits|=01007;break;case'a':affected_bits|=07777;break;case' ':break; -default:goto no_more_affected;}no_more_affected:if(affected_bits==0) -affected_bits=07777; -#ifdef DEBUG -printf("modemuncher step 2 (*p='%c')\n",*p); -#endif -switch(*p){case'+':case'-':case'=':op=*p;break;case' ':break;default:return-1; -} -#ifdef DEBUG -printf("modemuncher step 3\n"); -#endif -for(p++;*p!=0;p++)switch(*p){case'r':ch_mode|=00444;break;case'w':ch_mode|= -00222;break;case'x':ch_mode|=00111;break;case's':ch_mode|=06000;break;case' ': -break;default:goto specs_done;}specs_done: -#ifdef DEBUG -printf("modemuncher step 4\n"); -#endif -if(*p!=',')doneFlag=1;if(*p!=0&&*p!=' '&&*p!=','){ -#ifdef DEBUG -printf("modemuncher: comma error!\n");printf("modemuncher: doneflag = %u\n", -doneFlag); -#endif -return-2;}p++;if(ch_mode)switch(op){case'+':*mode=*mode|=ch_mode&affected_bits -;break;case'-':*mode=*mode&=~(ch_mode&affected_bits);break;case'=':*mode= -ch_mode&affected_bits;break;default:return-3;}} -#ifdef DEBUG -modechopper(*mode,tmp);printf("modemuncher: returning mode = %s\n",tmp); -#endif -return 0;} -#line 38 "lposix.c" -static const char*filetype(mode_t m){if(S_ISREG(m))return"regular";else if( -S_ISLNK(m))return"link";else if(S_ISDIR(m))return"directory";else if(S_ISCHR(m -))return"character device";else if(S_ISBLK(m))return"block device";else if( -S_ISFIFO(m))return"fifo"; -#ifdef S_ISSOCK -else if(S_ISSOCK(m))return"socket"; -#endif -else return"?";}typedef int(*Selector)(lua_State*L,int i,const void*data); -static int doselection(lua_State*L,int i,const char*const S[],Selector F,const - void*data){if(lua_isnone(L,i)){lua_newtable(L);for(i=0;S[i]!=NULL;i++){ -lua_pushstring(L,S[i]);F(L,i,data);lua_settable(L,-3);}return 1;}else{int j= -luaL_findstring(luaL_checkstring(L,i),S);if(j==-1)luaL_argerror(L,i, -"unknown selector");return F(L,j,data);}}static void storeindex(lua_State*L, -int i,const char*value){lua_pushstring(L,value);lua_rawseti(L,-2,i);}static -void storestring(lua_State*L,const char*name,const char*value){lua_pushstring( -L,name);lua_pushstring(L,value);lua_settable(L,-3);}static void storenumber( -lua_State*L,const char*name,lua_Number value){lua_pushstring(L,name); -lua_pushnumber(L,value);lua_settable(L,-3);}static int pusherror(lua_State*L, -const char*info){lua_pushnil(L);if(info==NULL)lua_pushstring(L,strerror(errno) -);else lua_pushfstring(L,"%s: %s",info,strerror(errno));lua_pushnumber(L,errno -);return 3;}static int lposix_pushresult(lua_State*L,int i,const char*info){if -(i!=-1){lua_pushnumber(L,i);return 1;}else return pusherror(L,info);}static -void badoption(lua_State*L,int i,const char*what,int option){luaL_argerror(L,2 -,lua_pushfstring(L,"unknown %s option `%c'",what,option));}static uid_t -mygetuid(lua_State*L,int i){if(lua_isnone(L,i))return-1;else if(lua_isnumber(L -,i))return(uid_t)lua_tonumber(L,i);else if(lua_isstring(L,i)){struct passwd*p= -getpwnam(lua_tostring(L,i));return(p==NULL)?-1:p->pw_uid;}else return -luaL_typerror(L,i,"string or number");}static gid_t mygetgid(lua_State*L,int i -){if(lua_isnone(L,i))return-1;else if(lua_isnumber(L,i))return(gid_t) -lua_tonumber(L,i);else if(lua_isstring(L,i)){struct group*g=getgrnam( -lua_tostring(L,i));return(g==NULL)?-1:g->gr_gid;}else return luaL_typerror(L,i -,"string or number");}static int Perrno(lua_State*L){lua_pushstring(L,strerror -(errno));lua_pushnumber(L,errno);return 2;}static int Pdir(lua_State*L){const -char*path=luaL_optstring(L,1,".");DIR*d=opendir(path);if(d==NULL)return -pusherror(L,path);else{int i;struct dirent*entry;lua_newtable(L);for(i=1;( -entry=readdir(d))!=NULL;i++)storeindex(L,i,entry->d_name);closedir(d);return 1 -;}}static int aux_files(lua_State*L){DIR*d=lua_touserdata(L,lua_upvalueindex(1 -));struct dirent*entry;if(d==NULL)luaL_error(L,"attempt to use closed dir"); -entry=readdir(d);if(entry==NULL){closedir(d);lua_pushnil(L);lua_replace(L, -lua_upvalueindex(1));lua_pushnil(L);}else{lua_pushstring(L,entry->d_name); -#if 0 -#ifdef _DIRENT_HAVE_D_TYPE -lua_pushstring(L,filetype(DTTOIF(entry->d_type)));return 2; -#endif -#endif -}return 1;}static int Pfiles(lua_State*L){const char*path=luaL_optstring(L,1, -".");DIR*d=opendir(path);if(d==NULL)return pusherror(L,path);else{ -lua_pushlightuserdata(L,d);lua_pushcclosure(L,aux_files,1);return 1;}}static -int Pgetcwd(lua_State*L){char buf[MYBUFSIZ];if(getcwd(buf,sizeof(buf))==NULL) -return pusherror(L,".");else{lua_pushstring(L,buf);return 1;}}static int -Pmkdir(lua_State*L){const char*path=luaL_checkstring(L,1);return -lposix_pushresult(L,mkdir(path,0777),path);}static int Pchdir(lua_State*L){ -const char*path=luaL_checkstring(L,1);return lposix_pushresult(L,chdir(path), -path);}static int Prmdir(lua_State*L){const char*path=luaL_checkstring(L,1); -return lposix_pushresult(L,rmdir(path),path);}static int Punlink(lua_State*L){ -const char*path=luaL_checkstring(L,1);return lposix_pushresult(L,unlink(path), -path);}static int Plink(lua_State*L){const char*oldpath=luaL_checkstring(L,1); -const char*newpath=luaL_checkstring(L,2);return lposix_pushresult(L,link( -oldpath,newpath),NULL);}static int Psymlink(lua_State*L){const char*oldpath= -luaL_checkstring(L,1);const char*newpath=luaL_checkstring(L,2);return -lposix_pushresult(L,symlink(oldpath,newpath),NULL);}static int Preadlink( -lua_State*L){char buf[MYBUFSIZ];const char*path=luaL_checkstring(L,1);int n= -readlink(path,buf,sizeof(buf));if(n==-1)return pusherror(L,path); -lua_pushlstring(L,buf,n);return 1;}static int Paccess(lua_State*L){int mode= -F_OK;const char*path=luaL_checkstring(L,1);const char*s;for(s=luaL_optstring(L -,2,"f");*s!=0;s++)switch(*s){case' ':break;case'r':mode|=R_OK;break;case'w': -mode|=W_OK;break;case'x':mode|=X_OK;break;case'f':mode|=F_OK;break;default: -badoption(L,2,"mode",*s);break;}return lposix_pushresult(L,access(path,mode), -path);}static int Pmkfifo(lua_State*L){const char*path=luaL_checkstring(L,1); -return lposix_pushresult(L,mkfifo(path,0777),path);}static int Pexec(lua_State -*L){const char*path=luaL_checkstring(L,1);int i,n=lua_gettop(L);char**argv= -malloc((n+1)*sizeof(char*));if(argv==NULL)luaL_error(L,"not enough memory"); -argv[0]=(char*)path;for(i=1;ipw_name);break;case 1:lua_pushnumber(L,p->pw_uid);break; -case 2:lua_pushnumber(L,p->pw_gid);break;case 3:lua_pushstring(L,p->pw_dir); -break;case 4:lua_pushstring(L,p->pw_shell);break;case 5:lua_pushstring(L,p-> -pw_gecos);break;case 6:lua_pushstring(L,p->pw_passwd);break;}return 1;}static -const char*const Sgetpasswd[]={"name","uid","gid","dir","shell","gecos", -"passwd",NULL};static int Pgetpasswd(lua_State*L){struct passwd*p=NULL;if( -lua_isnoneornil(L,1))p=getpwuid(geteuid());else if(lua_isnumber(L,1))p= -getpwuid((uid_t)lua_tonumber(L,1));else if(lua_isstring(L,1))p=getpwnam( -lua_tostring(L,1));else luaL_typerror(L,1,"string or number");if(p==NULL) -lua_pushnil(L);else doselection(L,2,Sgetpasswd,Fgetpasswd,p);return 1;}static -int Pgetgroup(lua_State*L){struct group*g=NULL;if(lua_isnumber(L,1))g=getgrgid -((gid_t)lua_tonumber(L,1));else if(lua_isstring(L,1))g=getgrnam(lua_tostring(L -,1));else luaL_typerror(L,1,"string or number");if(g==NULL)lua_pushnil(L);else -{int i;lua_newtable(L);storestring(L,"name",g->gr_name);storenumber(L,"gid",g -->gr_gid);for(i=0;g->gr_mem[i]!=NULL;i++)storeindex(L,i+1,g->gr_mem[i]);} -return 1;}static int Psetuid(lua_State*L){return lposix_pushresult(L,setuid( -mygetuid(L,1)),NULL);}static int Psetgid(lua_State*L){return lposix_pushresult -(L,setgid(mygetgid(L,1)),NULL);}struct mytimes{struct tms t;clock_t elapsed;}; -#define pushtime(L,x) lua_pushnumber(L,((lua_Number)x)/CLOCKS_PER_SEC) -static int Ftimes(lua_State*L,int i,const void*data){const struct mytimes*t= -data;switch(i){case 0:pushtime(L,t->t.tms_utime);break;case 1:pushtime(L,t->t. -tms_stime);break;case 2:pushtime(L,t->t.tms_cutime);break;case 3:pushtime(L,t -->t.tms_cstime);break;case 4:pushtime(L,t->elapsed);break;}return 1;}static -const char*const Stimes[]={"utime","stime","cutime","cstime","elapsed",NULL}; -#define storetime(L,name,x) storenumber(L,name,(lua_Number)x/CLK_TCK) -static int Ptimes(lua_State*L){struct mytimes t;t.elapsed=times(&t.t);return -doselection(L,1,Stimes,Ftimes,&t);}struct mystat{struct stat s;char mode[10]; -const char*type;};static int Fstat(lua_State*L,int i,const void*data){const -struct mystat*s=data;switch(i){case 0:lua_pushstring(L,s->mode);break;case 1: -lua_pushnumber(L,s->s.st_ino);break;case 2:lua_pushnumber(L,s->s.st_dev);break -;case 3:lua_pushnumber(L,s->s.st_nlink);break;case 4:lua_pushnumber(L,s->s. -st_uid);break;case 5:lua_pushnumber(L,s->s.st_gid);break;case 6:lua_pushnumber -(L,s->s.st_size);break;case 7:lua_pushnumber(L,s->s.st_atime);break;case 8: -lua_pushnumber(L,s->s.st_mtime);break;case 9:lua_pushnumber(L,s->s.st_ctime); -break;case 10:lua_pushstring(L,s->type);break;case 11:lua_pushnumber(L,s->s. -st_mode);break;}return 1;}static const char*const Sstat[]={"mode","ino","dev", -"nlink","uid","gid","size","atime","mtime","ctime","type","_mode",NULL};static - int Pstat(lua_State*L){struct mystat s;const char*path=luaL_checkstring(L,1); -if(stat(path,&s.s)==-1)return pusherror(L,path);s.type=filetype(s.s.st_mode); -modechopper(s.s.st_mode,s.mode);return doselection(L,2,Sstat,Fstat,&s);}static - int Puname(lua_State*L){struct utsname u;luaL_Buffer b;const char*s;if(uname( -&u)==-1)return pusherror(L,NULL);luaL_buffinit(L,&b);for(s=luaL_optstring(L,1, -"%s %n %r %v %m");*s;s++)if(*s!='%')luaL_putchar(&b,*s);else switch(*++s){case -'%':luaL_putchar(&b,*s);break;case'm':luaL_addstring(&b,u.machine);break;case -'n':luaL_addstring(&b,u.nodename);break;case'r':luaL_addstring(&b,u.release); -break;case's':luaL_addstring(&b,u.sysname);break;case'v':luaL_addstring(&b,u. -version);break;default:badoption(L,2,"format",*s);break;}luaL_pushresult(&b); -return 1;}static const int Kpathconf[]={_PC_LINK_MAX,_PC_MAX_CANON, -_PC_MAX_INPUT,_PC_NAME_MAX,_PC_PATH_MAX,_PC_PIPE_BUF,_PC_CHOWN_RESTRICTED, -_PC_NO_TRUNC,_PC_VDISABLE,-1};static int Fpathconf(lua_State*L,int i,const -void*data){const char*path=data;lua_pushnumber(L,pathconf(path,Kpathconf[i])); -return 1;}static const char*const Spathconf[]={"link_max","max_canon", -"max_input","name_max","path_max","pipe_buf","chown_restricted","no_trunc", -"vdisable",NULL};static int Ppathconf(lua_State*L){const char*path= -luaL_checkstring(L,1);return doselection(L,2,Spathconf,Fpathconf,path);}static - const int Ksysconf[]={_SC_ARG_MAX,_SC_CHILD_MAX,_SC_CLK_TCK,_SC_NGROUPS_MAX, -_SC_STREAM_MAX,_SC_TZNAME_MAX,_SC_OPEN_MAX,_SC_JOB_CONTROL,_SC_SAVED_IDS, -_SC_VERSION,-1};static int Fsysconf(lua_State*L,int i,const void*data){ -lua_pushnumber(L,sysconf(Ksysconf[i]));return 1;}static const char*const -Ssysconf[]={"arg_max","child_max","clk_tck","ngroups_max","stream_max", -"tzname_max","open_max","job_control","saved_ids","version",NULL};static int -Psysconf(lua_State*L){return doselection(L,1,Ssysconf,Fsysconf,NULL);}static -const luaL_reg R[]={{"access",Paccess},{"chdir",Pchdir},{"chmod",Pchmod},{ -"chown",Pchown},{"ctermid",Pctermid},{"dir",Pdir},{"errno",Perrno},{"exec", -Pexec},{"files",Pfiles},{"fork",Pfork},{"getcwd",Pgetcwd},{"getenv",Pgetenv},{ -"getgroup",Pgetgroup},{"getlogin",Pgetlogin},{"getpasswd",Pgetpasswd},{ -"getprocessid",Pgetprocessid},{"kill",Pkill},{"link",Plink},{"mkdir",Pmkdir},{ -"mkfifo",Pmkfifo},{"pathconf",Ppathconf},{"putenv",Pputenv},{"readlink", -Preadlink},{"rmdir",Prmdir},{"setgid",Psetgid},{"setuid",Psetuid},{"sleep", -Psleep},{"stat",Pstat},{"symlink",Psymlink},{"sysconf",Psysconf},{"times", -Ptimes},{"ttyname",Pttyname},{"umask",Pumask},{"uname",Puname},{"unlink", -Punlink},{"utime",Putime},{"wait",Pwait}, -#ifdef linux -{"setenv",Psetenv},{"unsetenv",Punsetenv}, -#endif -{NULL,NULL}};LUALIB_API int luaopen_posix(lua_State*L){luaL_openlib(L,MYNAME,R -,0);lua_pushliteral(L,"version");lua_pushliteral(L,MYVERSION);lua_settable(L,- -3);return 1;} -#line 1 "lstate.c" -#define lstate_c -#ifndef LUA_USERSTATE -#define EXTRASPACE 0 -#else -union UEXTRASPACE{L_Umaxalign a;LUA_USERSTATE b;}; -#define EXTRASPACE (sizeof(union UEXTRASPACE)) -#endif -static int default_panic(lua_State*L){UNUSED(L);return 0;}static lua_State* -mallocstate(lua_State*L){lu_byte*block=(lu_byte*)luaM_malloc(L,sizeof( -lua_State)+EXTRASPACE);if(block==NULL)return NULL;else{block+=EXTRASPACE; -return cast(lua_State*,block);}}static void freestate(lua_State*L,lua_State*L1 -){luaM_free(L,cast(lu_byte*,L1)-EXTRASPACE,sizeof(lua_State)+EXTRASPACE);} -static void stack_init(lua_State*L1,lua_State*L){L1->stack=luaM_newvector(L, -BASIC_STACK_SIZE+EXTRA_STACK,TObject);L1->stacksize=BASIC_STACK_SIZE+ -EXTRA_STACK;L1->top=L1->stack;L1->stack_last=L1->stack+(L1->stacksize- -EXTRA_STACK)-1;L1->base_ci=luaM_newvector(L,BASIC_CI_SIZE,CallInfo);L1->ci=L1 -->base_ci;L1->ci->state=CI_C;setnilvalue(L1->top++);L1->base=L1->ci->base=L1-> -top;L1->ci->top=L1->top+LUA_MINSTACK;L1->size_ci=BASIC_CI_SIZE;L1->end_ci=L1-> -base_ci+L1->size_ci;}static void freestack(lua_State*L,lua_State*L1){ -luaM_freearray(L,L1->base_ci,L1->size_ci,CallInfo);luaM_freearray(L,L1->stack, -L1->stacksize,TObject);}static void f_luaopen(lua_State*L,void*ud){ -global_State*g=luaM_new(NULL,global_State);UNUSED(ud);if(g==NULL)luaD_throw(L, -LUA_ERRMEM);L->l_G=g;g->mainthread=L;g->GCthreshold=0;g->strt.size=0;g->strt. -nuse=0;g->strt.hash=NULL;setnilvalue(defaultmeta(L));setnilvalue(registry(L)); -luaZ_initbuffer(L,&g->buff);g->panic=default_panic;g->rootgc=NULL;g->rootudata -=NULL;g->tmudata=NULL;setnilvalue(gkey(g->dummynode));setnilvalue(gval(g-> -dummynode));g->dummynode->next=NULL;g->nblocks=sizeof(lua_State)+sizeof( -global_State);stack_init(L,L);defaultmeta(L)->tt=LUA_TTABLE;sethvalue( -defaultmeta(L),luaH_new(L,0,0));hvalue(defaultmeta(L))->metatable=hvalue( -defaultmeta(L));sethvalue(gt(L),luaH_new(L,0,4));sethvalue(registry(L), -luaH_new(L,4,4));luaS_resize(L,MINSTRTABSIZE);luaT_init(L);luaX_init(L); -luaS_fix(luaS_newliteral(L,MEMERRMSG));g->GCthreshold=4*G(L)->nblocks;}static -void preinit_state(lua_State*L){L->stack=NULL;L->stacksize=0;L->errorJmp=NULL; -L->hook=NULL;L->hookmask=L->hookinit=0;L->basehookcount=0;L->allowhook=1; -resethookcount(L);L->openupval=NULL;L->size_ci=0;L->nCcalls=0;L->base_ci=L->ci -=NULL;L->errfunc=0;setnilvalue(gt(L));}static void close_state(lua_State*L){ -luaF_close(L,L->stack);if(G(L)){luaC_sweep(L,1);lua_assert(G(L)->rootgc==NULL) -;lua_assert(G(L)->rootudata==NULL);luaS_freeall(L);luaZ_freebuffer(L,&G(L)-> -buff);}freestack(L,L);if(G(L)){lua_assert(G(L)->nblocks==sizeof(lua_State)+ -sizeof(global_State));luaM_freelem(NULL,G(L));}freestate(NULL,L);}lua_State* -luaE_newthread(lua_State*L){lua_State*L1=mallocstate(L);luaC_link(L,valtogco( -L1),LUA_TTHREAD);preinit_state(L1);L1->l_G=L->l_G;stack_init(L1,L);setobj2n(gt -(L1),gt(L));return L1;}void luaE_freethread(lua_State*L,lua_State*L1){ -luaF_close(L1,L1->stack);lua_assert(L1->openupval==NULL);freestack(L,L1); -freestate(L,L1);}LUA_API lua_State*lua_open(void){lua_State*L=mallocstate(NULL -);if(L){L->tt=LUA_TTHREAD;L->marked=0;L->next=L->gclist=NULL;preinit_state(L); -L->l_G=NULL;if(luaD_rawrunprotected(L,f_luaopen,NULL)!=0){close_state(L);L= -NULL;}}lua_userstateopen(L);return L;}static void callallgcTM(lua_State*L,void -*ud){UNUSED(ud);luaC_callGCTM(L);}LUA_API void lua_close(lua_State*L){lua_lock -(L);L=G(L)->mainthread;luaF_close(L,L->stack);luaC_separateudata(L);L->errfunc -=0;do{L->ci=L->base_ci;L->base=L->top=L->ci->base;L->nCcalls=0;}while( -luaD_rawrunprotected(L,callallgcTM,NULL)!=0);lua_assert(G(L)->tmudata==NULL); -close_state(L);} -#line 1 "lstring.c" -#define lstring_c -void luaS_freeall(lua_State*L){lua_assert(G(L)->strt.nuse==0);luaM_freearray(L -,G(L)->strt.hash,G(L)->strt.size,TString*);}void luaS_resize(lua_State*L,int -newsize){GCObject**newhash=luaM_newvector(L,newsize,GCObject*);stringtable*tb= -&G(L)->strt;int i;for(i=0;isize;i++ -){GCObject*p=tb->hash[i];while(p){GCObject*next=p->gch.next;lu_hash h=gcotots( -p)->tsv.hash;int h1=lmod(h,newsize);lua_assert(cast(int,h%newsize)==lmod(h, -newsize));p->gch.next=newhash[h1];newhash[h1]=p;p=next;}}luaM_freearray(L,tb-> -hash,tb->size,TString*);tb->size=newsize;tb->hash=newhash;}static TString* -newlstr(lua_State*L,const char*str,size_t l,lu_hash h){TString*ts=cast(TString -*,luaM_malloc(L,sizestring(l)));stringtable*tb;ts->tsv.len=l;ts->tsv.hash=h;ts -->tsv.marked=0;ts->tsv.tt=LUA_TSTRING;ts->tsv.reserved=0;memcpy(ts+1,str,l* -sizeof(char));((char*)(ts+1))[l]='\0';tb=&G(L)->strt;h=lmod(h,tb->size);ts-> -tsv.next=tb->hash[h];tb->hash[h]=valtogco(ts);tb->nuse++;if(tb->nuse>cast( -ls_nstr,tb->size)&&tb->size<=MAX_INT/2)luaS_resize(L,tb->size*2);return ts;} -TString*luaS_newlstr(lua_State*L,const char*str,size_t l){GCObject*o;lu_hash h -=(lu_hash)l;size_t step=(l>>5)+1;size_t l1;for(l1=l;l1>=step;l1-=step)h=h^((h -<<5)+(h>>2)+(unsigned char)(str[l1-1]));for(o=G(L)->strt.hash[lmod(h,G(L)-> -strt.size)];o!=NULL;o=o->gch.next){TString*ts=gcotots(o);if(ts->tsv.len==l&&( -memcmp(str,getstr(ts),l)==0))return ts;}return newlstr(L,str,l,h);}Udata* -luaS_newudata(lua_State*L,size_t s){Udata*u;u=cast(Udata*,luaM_malloc(L, -sizeudata(s)));u->uv.marked=(1<<1);u->uv.tt=LUA_TUSERDATA;u->uv.len=s;u->uv. -metatable=hvalue(defaultmeta(L));u->uv.next=G(L)->rootudata;G(L)->rootudata= -valtogco(u);return u;} -#line 1 "lstrlib.c" -#define lstrlib_c -#ifndef uchar -#define uchar(c) ((unsigned char)(c)) -#endif -typedef long sint32;static int str_len(lua_State*L){size_t l;luaL_checklstring -(L,1,&l);lua_pushnumber(L,(lua_Number)l);return 1;}static sint32 posrelat( -sint32 pos,size_t len){return(pos>=0)?pos:(sint32)len+pos+1;}static int -str_sub(lua_State*L){size_t l;const char*s=luaL_checklstring(L,1,&l);sint32 -start=posrelat(luaL_checklong(L,2),l);sint32 end=posrelat(luaL_optlong(L,3,-1) -,l);if(start<1)start=1;if(end>(sint32)l)end=(sint32)l;if(start<=end) -lua_pushlstring(L,s+start-1,end-start+1);else lua_pushliteral(L,"");return 1;} -static int str_lower(lua_State*L){size_t l;size_t i;luaL_Buffer b;const char*s -=luaL_checklstring(L,1,&l);luaL_buffinit(L,&b);for(i=0;i0)luaL_addlstring(&b,s,l);luaL_pushresult(&b); -return 1;}static int str_byte(lua_State*L){size_t l;const char*s= -luaL_checklstring(L,1,&l);sint32 pos=posrelat(luaL_optlong(L,2,1),l);if(pos<=0 -||(size_t)(pos)>l)return 0;lua_pushnumber(L,uchar(s[pos-1]));return 1;}static -int str_char(lua_State*L){int n=lua_gettop(L);int i;luaL_Buffer b; -luaL_buffinit(L,&b);for(i=1;i<=n;i++){int c=luaL_checkint(L,i);luaL_argcheck(L -,uchar(c)==c,i,"invalid value");luaL_putchar(&b,uchar(c));}luaL_pushresult(&b) -;return 1;}static int writer(lua_State*L,const void*b,size_t size,void*B){( -void)L;luaL_addlstring((luaL_Buffer*)B,(const char*)b,size);return 1;}static -int str_dump(lua_State*L){luaL_Buffer b;luaL_checktype(L,1,LUA_TFUNCTION); -luaL_buffinit(L,&b);if(!lua_dump(L,writer,&b))luaL_error(L, -"unable to dump given function");luaL_pushresult(&b);return 1;} -#ifndef MAX_CAPTURES -#define MAX_CAPTURES 32 -#endif -#define CAP_UNFINISHED (-1) -#define CAP_POSITION (-2) -typedef struct MatchState{const char*src_init;const char*src_end;lua_State*L; -int level;struct{const char*init;sint32 len;}capture[MAX_CAPTURES];}MatchState -; -#define ESC '%' -#define SPECIALS "^$*+?.([%-" -static int check_capture(MatchState*ms,int l){l-='1';if(l<0||l>=ms->level||ms -->capture[l].len==CAP_UNFINISHED)return luaL_error(ms->L, -"invalid capture index");return l;}static int capture_to_close(MatchState*ms){ -int level=ms->level;for(level--;level>=0;level--)if(ms->capture[level].len== -CAP_UNFINISHED)return level;return luaL_error(ms->L,"invalid pattern capture") -;}static const char*luaI_classend(MatchState*ms,const char*p){switch(*p++){ -case ESC:{if(*p=='\0')luaL_error(ms->L,"malformed pattern (ends with `%')"); -return p+1;}case'[':{if(*p=='^')p++;do{if(*p=='\0')luaL_error(ms->L, -"malformed pattern (missing `]')");if(*(p++)==ESC&&*p!='\0')p++;}while(*p!=']' -);return p+1;}default:{return p;}}}static int match_class(int c,int cl){int -res;switch(tolower(cl)){case'a':res=isalpha(c);break;case'c':res=iscntrl(c); -break;case'd':res=isdigit(c);break;case'l':res=islower(c);break;case'p':res= -ispunct(c);break;case's':res=isspace(c);break;case'u':res=isupper(c);break; -case'w':res=isalnum(c);break;case'x':res=isxdigit(c);break;case'z':res=(c==0); -break;default:return(cl==c);}return(islower(cl)?res:!res);}static int -matchbracketclass(int c,const char*p,const char*ec){int sig=1;if(*(p+1)=='^'){ -sig=0;p++;}while(++pL,"unbalanced pattern");if(*s!=*p) -return NULL;else{int b=*p;int e=*(p+1);int cont=1;while(++ssrc_end){if(*s -==e){if(--cont==0)return s+1;}else if(*s==b)cont++;}}return NULL;}static const - char*max_expand(MatchState*ms,const char*s,const char*p,const char*ep){sint32 - i=0;while((s+i)src_end&&luaI_singlematch(uchar(*(s+i)),p,ep))i++;while(i ->=0){const char*res=match(ms,(s+i),ep+1);if(res)return res;i--;}return NULL;} -static const char*min_expand(MatchState*ms,const char*s,const char*p,const -char*ep){for(;;){const char*res=match(ms,s,ep+1);if(res!=NULL)return res;else -if(ssrc_end&&luaI_singlematch(uchar(*s),p,ep))s++;else return NULL;}} -static const char*start_capture(MatchState*ms,const char*s,const char*p,int -what){const char*res;int level=ms->level;if(level>=MAX_CAPTURES)luaL_error(ms -->L,"too many captures");ms->capture[level].init=s;ms->capture[level].len=what -;ms->level=level+1;if((res=match(ms,s,p))==NULL)ms->level--;return res;}static - const char*end_capture(MatchState*ms,const char*s,const char*p){int l= -capture_to_close(ms);const char*res;ms->capture[l].len=s-ms->capture[l].init; -if((res=match(ms,s,p))==NULL)ms->capture[l].len=CAP_UNFINISHED;return res;} -static const char*match_capture(MatchState*ms,const char*s,int l){size_t len;l -=check_capture(ms,l);len=ms->capture[l].len;if((size_t)(ms->src_end-s)>=len&& -memcmp(ms->capture[l].init,s,len)==0)return s+len;else return NULL;}static -const char*match(MatchState*ms,const char*s,const char*p){init:switch(*p){case -'(':{if(*(p+1)==')')return start_capture(ms,s,p+2,CAP_POSITION);else return -start_capture(ms,s,p+1,CAP_UNFINISHED);}case')':{return end_capture(ms,s,p+1); -}case ESC:{switch(*(p+1)){case'b':{s=matchbalance(ms,s,p+2);if(s==NULL)return -NULL;p+=4;goto init;}case'f':{const char*ep;char previous;p+=2;if(*p!='[') -luaL_error(ms->L,"missing `[' after `%%f' in pattern");ep=luaI_classend(ms,p); -previous=(s==ms->src_init)?'\0':*(s-1);if(matchbracketclass(uchar(previous),p, -ep-1)||!matchbracketclass(uchar(*s),p,ep-1))return NULL;p=ep;goto init;} -default:{if(isdigit(uchar(*(p+1)))){s=match_capture(ms,s,*(p+1));if(s==NULL) -return NULL;p+=2;goto init;}goto dflt;}}}case'\0':{return s;}case'$':{if(*(p+1 -)=='\0')return(s==ms->src_end)?s:NULL;else goto dflt;}default:dflt:{const char -*ep=luaI_classend(ms,p);int m=ssrc_end&&luaI_singlematch(uchar(*s),p,ep); -switch(*ep){case'?':{const char*res;if(m&&((res=match(ms,s+1,ep+1))!=NULL)) -return res;p=ep+1;goto init;}case'*':{return max_expand(ms,s,p,ep);}case'+':{ -return(m?max_expand(ms,s+1,p,ep):NULL);}case'-':{return min_expand(ms,s,p,ep); -}default:{if(!m)return NULL;s++;p=ep;goto init;}}}}}static const char*lmemfind -(const char*s1,size_t l1,const char*s2,size_t l2){if(l2==0)return s1;else if( -l2>l1)return NULL;else{const char*init;l2--;l1=l1-l2;while(l1>0&&(init=(const -char*)memchr(s1,*s2,l1))!=NULL){init++;if(memcmp(init,s2+1,l2)==0)return init- -1;else{l1-=init-s1;s1=init;}}return NULL;}}static void push_onecapture( -MatchState*ms,int i){int l=ms->capture[i].len;if(l==CAP_UNFINISHED)luaL_error( -ms->L,"unfinished capture");if(l==CAP_POSITION)lua_pushnumber(ms->L,( -lua_Number)(ms->capture[i].init-ms->src_init+1));else lua_pushlstring(ms->L,ms -->capture[i].init,l);}static int push_captures(MatchState*ms,const char*s, -const char*e){int i;luaL_checkstack(ms->L,ms->level,"too many captures");if(ms -->level==0&&s){lua_pushlstring(ms->L,s,e-s);return 1;}else{for(i=0;ilevel -;i++)push_onecapture(ms,i);return ms->level;}}static int str_find(lua_State*L) -{size_t l1,l2;const char*s=luaL_checklstring(L,1,&l1);const char*p= -luaL_checklstring(L,2,&l2);sint32 init=posrelat(luaL_optlong(L,3,1),l1)-1;if( -init<0)init=0;else if((size_t)(init)>l1)init=(sint32)l1;if(lua_toboolean(L,4) -||strpbrk(p,SPECIALS)==NULL){const char*s2=lmemfind(s+init,l1-init,p,l2);if(s2 -){lua_pushnumber(L,(lua_Number)(s2-s+1));lua_pushnumber(L,(lua_Number)(s2-s+l2 -));return 2;}}else{MatchState ms;int anchor=(*p=='^')?(p++,1):0;const char*s1= -s+init;ms.L=L;ms.src_init=s;ms.src_end=s+l1;do{const char*res;ms.level=0;if(( -res=match(&ms,s1,p))!=NULL){lua_pushnumber(L,(lua_Number)(s1-s+1)); -lua_pushnumber(L,(lua_Number)(res-s));return push_captures(&ms,NULL,0)+2;}} -while(s1++L -;if(lua_isstring(L,3)){const char*news=lua_tostring(L,3);size_t l=lua_strlen(L -,3);size_t i;for(i=0;i=3&&(lua_isstring(L,3)||lua_isfunction(L,3)),3, -"string or function expected");luaL_buffinit(L,&b);ms.L=L;ms.src_init=src;ms. -src_end=src+srcl;while(nsrc)src=e;else if(srcMAX_FORMAT)luaL_error(L,"invalid format (too long)");form[0]='%'; -strncpy(form+1,strfrmt,p-strfrmt+1);form[p-strfrmt+2]=0;return p;}static int -str_format(lua_State*L){int arg=1;size_t sfl;const char*strfrmt= -luaL_checklstring(L,arg,&sfl);const char*strfrmt_end=strfrmt+sfl;luaL_Buffer b -;luaL_buffinit(L,&b);while(strfrmt=100){lua_pushvalue(L,arg); -luaL_addvalue(&b);continue;}else{sprintf(buff,form,s);break;}}default:{return -luaL_error(L,"invalid option to `format'");}}luaL_addlstring(&b,buff,strlen( -buff));}}luaL_pushresult(&b);return 1;}static const luaL_reg strlib[]={{"len", -str_len},{"sub",str_sub},{"lower",str_lower},{"upper",str_upper},{"char", -str_char},{"rep",str_rep},{"byte",str_byte},{"format",str_format},{"dump", -str_dump},{"find",str_find},{"gfind",gfind},{"gsub",str_gsub},{NULL,NULL}}; -LUALIB_API int luaopen_string(lua_State*L){luaL_openlib(L,LUA_STRLIBNAME, -strlib,0);return 1;} -#line 1 "ltable.c" -#define ltable_c -#if BITS_INT >26 -#define MAXBITS 24 -#else -#define MAXBITS (BITS_INT-2) -#endif -#define toobig(x) ((((x)-1)>>MAXBITS)!=0) -#ifndef lua_number2int -#define lua_number2int(i,n) ((i)=(int)(n)) -#endif -#define hashpow2(t,n) (gnode(t,lmod((n),sizenode(t)))) -#define hashstr(t,str) hashpow2(t,(str)->tsv.hash) -#define hashboolean(t,p) hashpow2(t,p) -#define hashmod(t,n) (gnode(t,((n)%((sizenode(t)-1)|1)))) -#define hashpointer(t,p) hashmod(t,IntPoint(p)) -#define numints cast(int,sizeof(lua_Number)/sizeof(int)) -static Node*hashnum(const Table*t,lua_Number n){unsigned int a[numints];int i; -n+=1;lua_assert(sizeof(a)<=sizeof(n));memcpy(a,&n,sizeof(a));for(i=1;i=1&&!toobig(k))return k;} -return-1;}static int luaH_index(lua_State*L,Table*t,StkId key){int i;if( -ttisnil(key))return-1;i=arrayindex(key);if(0<=i&&i<=t->sizearray){return i-1;} -else{const TObject*v=luaH_get(t,key);if(v==&luaO_nilobject)luaG_runerror(L, -"invalid key for `next'");i=cast(int,(cast(const lu_byte*,v)-cast(const -lu_byte*,gval(gnode(t,0))))/sizeof(Node));return i+t->sizearray;}}int -luaH_next(lua_State*L,Table*t,StkId key){int i=luaH_index(L,t,key);for(i++;isizearray;i++){if(!ttisnil(&t->array[i])){setnvalue(key,cast(lua_Number,i+1) -);setobj2s(key+1,&t->array[i]);return 1;}}for(i-=t->sizearray;i=twoto(i-1);i++){if(nums[i]>0){a+=nums[i];if(a>= -twoto(i-1)){n=i;na=a;}}}lua_assert(na<=*narray&&*narray<=ntotal);*nhash=ntotal --na;*narray=(n==-1)?0:twoto(n);lua_assert(na<=*narray&&na>=*narray/2);}static -void numuse(const Table*t,int*narray,int*nhash){int nums[MAXBITS+1];int i,lg; -int totaluse=0;for(i=0,lg=0;lg<=MAXBITS;lg++){int ttlg=twoto(lg);if(ttlg>t-> -sizearray){ttlg=t->sizearray;if(i>=ttlg)break;}nums[lg]=0;for(;iarray[i])){nums[lg]++;totaluse++;}}}for(;lg<=MAXBITS;lg++)nums[lg -]=0;*narray=totaluse;i=sizenode(t);while(i--){Node*n=&t->node[i];if(!ttisnil( -gval(n))){int k=arrayindex(gkey(n));if(k>=0){nums[luaO_log2(k-1)+1]++;(*narray -)++;}totaluse++;}}computesizes(nums,totaluse,narray,nhash);}static void -setarrayvector(lua_State*L,Table*t,int size){int i;luaM_reallocvector(L,t-> -array,t->sizearray,size,TObject);for(i=t->sizearray;iarray[i]);t->sizearray=size;}static void setnodevector(lua_State*L,Table*t, -int lsize){int i;int size=twoto(lsize);if(lsize>MAXBITS)luaG_runerror(L, -"table overflow");if(lsize==0){t->node=G(L)->dummynode;lua_assert(ttisnil(gkey -(t->node)));lua_assert(ttisnil(gval(t->node)));lua_assert(t->node->next==NULL) -;}else{t->node=luaM_newvector(L,size,Node);for(i=0;inode[i].next -=NULL;setnilvalue(gkey(gnode(t,i)));setnilvalue(gval(gnode(t,i)));}}t-> -lsizenode=cast(lu_byte,lsize);t->firstfree=gnode(t,size-1);}static void resize -(lua_State*L,Table*t,int nasize,int nhsize){int i;int oldasize=t->sizearray; -int oldhsize=t->lsizenode;Node*nold;Node temp[1];if(oldhsize)nold=t->node;else -{lua_assert(t->node==G(L)->dummynode);temp[0]=t->node[0];nold=temp;setnilvalue -(gkey(G(L)->dummynode));setnilvalue(gval(G(L)->dummynode));lua_assert(G(L)-> -dummynode->next==NULL);}if(nasize>oldasize)setarrayvector(L,t,nasize); -setnodevector(L,t,nhsize);if(nasizesizearray=nasize;for(i=nasize -;iarray[i]))setobjt2t(luaH_setnum(L,t,i+1),&t-> -array[i]);}luaM_reallocvector(L,t->array,oldasize,nasize,TObject);}for(i=twoto -(oldhsize)-1;i>=0;i--){Node*old=nold+i;if(!ttisnil(gval(old)))setobjt2t( -luaH_set(L,t,gkey(old)),gval(old));}if(oldhsize)luaM_freearray(L,nold,twoto( -oldhsize),Node);}static void rehash(lua_State*L,Table*t){int nasize,nhsize; -numuse(t,&nasize,&nhsize);resize(L,t,nasize,luaO_log2(nhsize)+1);}Table* -luaH_new(lua_State*L,int narray,int lnhash){Table*t=luaM_new(L,Table); -luaC_link(L,valtogco(t),LUA_TTABLE);t->metatable=hvalue(defaultmeta(L));t-> -flags=cast(lu_byte,~0);t->array=NULL;t->sizearray=0;t->lsizenode=0;t->node= -NULL;setarrayvector(L,t,narray);setnodevector(L,t,lnhash);return t;}void -luaH_free(lua_State*L,Table*t){if(t->lsizenode)luaM_freearray(L,t->node, -sizenode(t),Node);luaM_freearray(L,t->array,t->sizearray,TObject);luaM_freelem -(L,t);} -#if 0 -void luaH_remove(Table*t,Node*e){Node*mp=luaH_mainposition(t,gkey(e));if(e!=mp -){while(mp->next!=e)mp=mp->next;mp->next=e->next;}else{if(e->next!=NULL)??} -lua_assert(ttisnil(gval(node)));setnilvalue(gkey(e));e->next=NULL;} -#endif -static TObject*newkey(lua_State*L,Table*t,const TObject*key){TObject*val;Node* -mp=luaH_mainposition(t,key);if(!ttisnil(gval(mp))){Node*othern= -luaH_mainposition(t,gkey(mp));Node*n=t->firstfree;if(othern!=mp){while(othern -->next!=mp)othern=othern->next;othern->next=n;*n=*mp;mp->next=NULL;setnilvalue -(gval(mp));}else{n->next=mp->next;mp->next=n;mp=n;}}setobj2t(gkey(mp),key); -lua_assert(ttisnil(gval(mp)));for(;;){if(ttisnil(gkey(t->firstfree)))return -gval(mp);else if(t->firstfree==t->node)break;else(t->firstfree)--;}setbvalue( -gval(mp),0);rehash(L,t);val=cast(TObject*,luaH_get(t,key));lua_assert( -ttisboolean(val));setnilvalue(val);return val;}static const TObject* -luaH_getany(Table*t,const TObject*key){if(ttisnil(key))return&luaO_nilobject; -else{Node*n=luaH_mainposition(t,key);do{if(luaO_rawequalObj(gkey(n),key)) -return gval(n);else n=n->next;}while(n);return&luaO_nilobject;}}const TObject* -luaH_getnum(Table*t,int key){if(1<=key&&key<=t->sizearray)return&t->array[key- -1];else{lua_Number nk=cast(lua_Number,key);Node*n=hashnum(t,nk);do{if( -ttisnumber(gkey(n))&&nvalue(gkey(n))==nk)return gval(n);else n=n->next;}while( -n);return&luaO_nilobject;}}const TObject*luaH_getstr(Table*t,TString*key){Node -*n=hashstr(t,key);do{if(ttisstring(gkey(n))&&tsvalue(gkey(n))==key)return gval -(n);else n=n->next;}while(n);return&luaO_nilobject;}const TObject*luaH_get( -Table*t,const TObject*key){switch(ttype(key)){case LUA_TSTRING:return -luaH_getstr(t,tsvalue(key));case LUA_TNUMBER:{int k;lua_number2int(k,(nvalue( -key)));if(cast(lua_Number,k)==nvalue(key))return luaH_getnum(t,k);}default: -return luaH_getany(t,key);}}TObject*luaH_set(lua_State*L,Table*t,const TObject -*key){const TObject*p=luaH_get(t,key);t->flags=0;if(p!=&luaO_nilobject)return -cast(TObject*,p);else{if(ttisnil(key))luaG_runerror(L,"table index is nil"); -else if(ttisnumber(key)&&nvalue(key)!=nvalue(key))luaG_runerror(L, -"table index is NaN");return newkey(L,t,key);}}TObject*luaH_setnum(lua_State*L -,Table*t,int key){const TObject*p=luaH_getnum(t,key);if(p!=&luaO_nilobject) -return cast(TObject*,p);else{TObject k;setnvalue(&k,cast(lua_Number,key)); -return newkey(L,t,&k);}} -#line 1 "ltablib.c" -#define ltablib_c -#define aux_getn(L,n) (luaL_checktype(L,n,LUA_TTABLE),luaL_getn(L,n)) -static int luaB_foreachi(lua_State*L){int i;int n=aux_getn(L,1);luaL_checktype -(L,2,LUA_TFUNCTION);for(i=1;i<=n;i++){lua_pushvalue(L,2);lua_pushnumber(L,( -lua_Number)i);lua_rawgeti(L,1,i);lua_call(L,2,1);if(!lua_isnil(L,-1))return 1; -lua_pop(L,1);}return 0;}static int luaB_foreach(lua_State*L){luaL_checktype(L, -1,LUA_TTABLE);luaL_checktype(L,2,LUA_TFUNCTION);lua_pushnil(L);for(;;){if( -lua_next(L,1)==0)return 0;lua_pushvalue(L,2);lua_pushvalue(L,-3);lua_pushvalue -(L,-3);lua_call(L,2,1);if(!lua_isnil(L,-1))return 1;lua_pop(L,2);}}static int -luaB_getn(lua_State*L){lua_pushnumber(L,(lua_Number)aux_getn(L,1));return 1;} -static int luaB_setn(lua_State*L){luaL_checktype(L,1,LUA_TTABLE);luaL_setn(L,1 -,luaL_checkint(L,2));return 0;}static int luaB_tinsert(lua_State*L){int v= -lua_gettop(L);int n=aux_getn(L,1)+1;int pos;if(v==2)pos=n;else{pos= -luaL_checkint(L,2);if(pos>n)n=pos;v=3;}luaL_setn(L,1,n);while(--n>=pos){ -lua_rawgeti(L,1,n);lua_rawseti(L,1,n+1);}lua_pushvalue(L,v);lua_rawseti(L,1, -pos);return 0;}static int luaB_tremove(lua_State*L){int n=aux_getn(L,1);int -pos=luaL_optint(L,2,n);if(n<=0)return 0;luaL_setn(L,1,n-1);lua_rawgeti(L,1,pos -);for(;posu) -luaL_error(L,"invalid order function for sorting");lua_pop(L,1);}while( -lua_rawgeti(L,1,--j),sort_comp(L,-3,-1)){if(jci->base+(k)-1) -static void setnameval(lua_State*L,const char*name,int val){lua_pushstring(L, -name);lua_pushintegral(L,val);lua_settable(L,-3);} -#define MARK 0x55 -#ifndef EXTERNMEMCHECK -#define HEADER (sizeof(L_Umaxalign)) -#define MARKSIZE 16 -#define blockhead(b) (cast(char*,b)-HEADER) -#define setsize(newblock, size)(*cast(size_t*,newblock)=size) -#define checkblocksize(b, size)(size==(*cast(size_t*,blockhead(b)))) -#define fillmem(mem,size) memset(mem,-MARK,size) -#else -#define HEADER 0 -#define MARKSIZE 0 -#define blockhead(b) (b) -#define setsize(newblock, size) -#define checkblocksize(b,size) (1) -#define fillmem(mem,size) -#endif -unsigned long memdebug_numblocks=0;unsigned long memdebug_total=0;unsigned -long memdebug_maxmem=0;unsigned long memdebug_memlimit=ULONG_MAX;static void* -checkblock(void*block,size_t size){void*b=blockhead(block);int i;for(i=0;i< -MARKSIZE;i++)lua_assert(*(cast(char*,b)+HEADER+size+i)==MARK+i);return b;} -static void freeblock(void*block,size_t size){if(block){lua_assert( -checkblocksize(block,size));block=checkblock(block,size);fillmem(block,size+ -HEADER+MARKSIZE);free(block);memdebug_numblocks--;memdebug_total-=size;}}void* -debug_realloc(void*block,size_t oldsize,size_t size){lua_assert(oldsize==0|| -checkblocksize(block,oldsize));lua_assert(block!=NULL||size>0);if(size==0){ -freeblock(block,oldsize);return NULL;}else if(size>oldsize&&memdebug_total+ -size-oldsize>memdebug_memlimit)return NULL;else{void*newblock;int i;size_t -realsize=HEADER+size+MARKSIZE;size_t commonsize=(oldsizememdebug_maxmem)memdebug_maxmem= -memdebug_total;memdebug_numblocks++;setsize(newblock,size);for(i=0;icode[pc];OpCode o=GET_OPCODE(i);const char*name=luaP_opnames[o];int line= -getline(p,pc);sprintf(buff,"(%4d) %4d - ",line,pc);switch(getOpMode(o)){case -iABC:sprintf(buff+strlen(buff),"%-12s%4d %4d %4d",name,GETARG_A(i),GETARG_B(i) -,GETARG_C(i));break;case iABx:sprintf(buff+strlen(buff),"%-12s%4d %4d",name, -GETARG_A(i),GETARG_Bx(i));break;case iAsBx:sprintf(buff+strlen(buff), -"%-12s%4d %4d",name,GETARG_A(i),GETARG_sBx(i));break;}return buff;} -#if 0 -void luaI_printcode(Proto*pt,int size){int pc;for(pc=0;pcl.p;lua_newtable(L);setnameval(L,"maxstack",p->maxstacksize);setnameval(L, -"numparams",p->numparams);for(pc=0;pcsizecode;pc++){char buff[100]; -lua_pushintegral(L,pc+1);lua_pushstring(L,buildop(p,pc,buff));lua_settable(L,- -3);}return 1;}static int listk(lua_State*L){Proto*p;int i;luaL_argcheck(L, -lua_isfunction(L,1)&&!lua_iscfunction(L,1),1,"Lua function expected");p= -clvalue(func_at(L,1))->l.p;lua_newtable(L);for(i=0;isizek;i++){ -lua_pushintegral(L,i+1);luaA_pushobject(L,p->k+i);lua_settable(L,-3);}return 1 -;}static int listlocals(lua_State*L){Proto*p;int pc=luaL_checkint(L,2)-1;int i -=0;const char*name;luaL_argcheck(L,lua_isfunction(L,1)&&!lua_iscfunction(L,1), -1,"Lua function expected");p=clvalue(func_at(L,1))->l.p;while((name= -luaF_getlocalname(p,++i,pc))!=NULL)lua_pushstring(L,name);return i-1;}static -int get_limits(lua_State*L){lua_newtable(L);setnameval(L,"BITS_INT",BITS_INT); -setnameval(L,"LFPF",LFIELDS_PER_FLUSH);setnameval(L,"MAXVARS",MAXVARS); -setnameval(L,"MAXPARAMS",MAXPARAMS);setnameval(L,"MAXSTACK",MAXSTACK); -setnameval(L,"MAXUPVALUES",MAXUPVALUES);return 1;}static int mem_query( -lua_State*L){if(lua_isnone(L,1)){lua_pushintegral(L,memdebug_total); -lua_pushintegral(L,memdebug_numblocks);lua_pushintegral(L,memdebug_maxmem); -return 3;}else{memdebug_memlimit=luaL_checkint(L,1);return 0;}}static int -hash_query(lua_State*L){if(lua_isnone(L,2)){luaL_argcheck(L,lua_type(L,1)== -LUA_TSTRING,1,"string expected");lua_pushintegral(L,tsvalue(func_at(L,1))->tsv -.hash);}else{TObject*o=func_at(L,1);Table*t;luaL_checktype(L,2,LUA_TTABLE);t= -hvalue(func_at(L,2));lua_pushintegral(L,luaH_mainposition(t,o)-t->node);} -return 1;}static int stacklevel(lua_State*L){unsigned long a=0; -lua_pushintegral(L,(int)(L->top-L->stack));lua_pushintegral(L,(int)(L-> -stack_last-L->stack));lua_pushintegral(L,(int)(L->ci-L->base_ci)); -lua_pushintegral(L,(int)(L->end_ci-L->base_ci));lua_pushintegral(L,(unsigned -long)&a);return 5;}static int table_query(lua_State*L){const Table*t;int i= -luaL_optint(L,2,-1);luaL_checktype(L,1,LUA_TTABLE);t=hvalue(func_at(L,1));if(i -==-1){lua_pushintegral(L,t->sizearray);lua_pushintegral(L,sizenode(t)); -lua_pushintegral(L,t->firstfree-t->node);}else if(isizearray){ -lua_pushintegral(L,i);luaA_pushobject(L,&t->array[i]);lua_pushnil(L);}else if( -(i-=t->sizearray)");luaA_pushobject(L,gval(gnode(t,i)));if(t-> -node[i].next)lua_pushintegral(L,t->node[i].next-t->node);else lua_pushnil(L);} -return 3;}static int string_query(lua_State*L){stringtable*tb=&G(L)->strt;int -s=luaL_optint(L,2,0)-1;if(s==-1){lua_pushintegral(L,tb->nuse);lua_pushintegral -(L,tb->size);return 2;}else if(ssize){GCObject*ts;int n=0;for(ts=tb->hash -[s];ts;ts=ts->gch.next){setsvalue2s(L->top,gcotots(ts));incr_top(L);n++;} -return n;}return 0;}static int tref(lua_State*L){int level=lua_gettop(L);int -lock=luaL_optint(L,2,1);luaL_checkany(L,1);lua_pushvalue(L,1);lua_pushintegral -(L,lua_ref(L,lock));assert(lua_gettop(L)==level+1);return 1;}static int getref -(lua_State*L){int level=lua_gettop(L);lua_getref(L,luaL_checkint(L,1));assert( -lua_gettop(L)==level+1);return 1;}static int unref(lua_State*L){int level= -lua_gettop(L);lua_unref(L,luaL_checkint(L,1));assert(lua_gettop(L)==level); -return 0;}static int metatable(lua_State*L){luaL_checkany(L,1);if(lua_isnone(L -,2)){if(lua_getmetatable(L,1)==0)lua_pushnil(L);}else{lua_settop(L,2); -luaL_checktype(L,2,LUA_TTABLE);lua_setmetatable(L,1);}return 1;}static int -upvalue(lua_State*L){int n=luaL_checkint(L,2);luaL_checktype(L,1,LUA_TFUNCTION -);if(lua_isnone(L,3)){const char*name=lua_getupvalue(L,1,n);if(name==NULL) -return 0;lua_pushstring(L,name);return 2;}else{const char*name=lua_setupvalue( -L,1,n);lua_pushstring(L,name);return 1;}}static int newuserdata(lua_State*L){ -size_t size=luaL_checkint(L,1);char*p=cast(char*,lua_newuserdata(L,size)); -while(size--)*p++='\0';return 1;}static int pushuserdata(lua_State*L){ -lua_pushlightuserdata(L,cast(void*,luaL_checkint(L,1)));return 1;}static int -udataval(lua_State*L){lua_pushintegral(L,cast(int,lua_touserdata(L,1)));return - 1;}static int doonnewstack(lua_State*L){lua_State*L1=lua_newthread(L);size_t -l;const char*s=luaL_checklstring(L,1,&l);int status=luaL_loadbuffer(L1,s,l,s); -if(status==0)status=lua_pcall(L1,0,0,0);lua_pushintegral(L,status);return 1;} -static int s2d(lua_State*L){lua_pushnumber(L,*cast(const double*, -luaL_checkstring(L,1)));return 1;}static int d2s(lua_State*L){double d= -luaL_checknumber(L,1);lua_pushlstring(L,cast(char*,&d),sizeof(d));return 1;} -static int newstate(lua_State*L){lua_State*L1=lua_open();if(L1){ -lua_userstateopen(L1);lua_pushintegral(L,(unsigned long)L1);}else lua_pushnil( -L);return 1;}static int loadlib(lua_State*L){static const luaL_reg libs[]={{ -"mathlibopen",luaopen_math},{"strlibopen",luaopen_string},{"iolibopen", -luaopen_io},{"tablibopen",luaopen_table},{"dblibopen",luaopen_debug},{ -"baselibopen",luaopen_base},{NULL,NULL}};lua_State*L1=cast(lua_State*,cast( -unsigned long,luaL_checknumber(L,1)));lua_pushvalue(L1,LUA_GLOBALSINDEX); -luaL_openlib(L1,NULL,libs,0);return 0;}static int closestate(lua_State*L){ -lua_State*L1=cast(lua_State*,cast(unsigned long,luaL_checknumber(L,1))); -lua_close(L1);lua_unlock(L);return 0;}static int doremote(lua_State*L){ -lua_State*L1=cast(lua_State*,cast(unsigned long,luaL_checknumber(L,1)));size_t - lcode;const char*code=luaL_checklstring(L,2,&lcode);int status;lua_settop(L1, -0);status=luaL_loadbuffer(L1,code,lcode,code);if(status==0)status=lua_pcall(L1 -,0,LUA_MULTRET,0);if(status!=0){lua_pushnil(L);lua_pushintegral(L,status); -lua_pushstring(L,lua_tostring(L1,-1));return 3;}else{int i=0;while(!lua_isnone -(L1,++i))lua_pushstring(L,lua_tostring(L1,i));lua_pop(L1,i-1);return i-1;}} -static int log2_aux(lua_State*L){lua_pushintegral(L,luaO_log2(luaL_checkint(L, -1)));return 1;}static int int2fb_aux(lua_State*L){int b=luaO_int2fb( -luaL_checkint(L,1));lua_pushintegral(L,b);lua_pushintegral(L,fb2int(b));return - 2;}static int test_do(lua_State*L){const char*p=luaL_checkstring(L,1);if(*p== -'@')lua_dofile(L,p+1);else lua_dostring(L,p);return lua_gettop(L);}static -const char*const delimits=" \t\n,;";static void skip(const char**pc){while(** -pc!='\0'&&strchr(delimits,**pc))(*pc)++;}static int getnum_aux(lua_State*L, -const char**pc){int res=0;int sig=1;skip(pc);if(**pc=='.'){res=cast(int, -lua_tonumber(L,-1));lua_pop(L,1);(*pc)++;return res;}else if(**pc=='-'){sig=-1 -;(*pc)++;}while(isdigit(cast(int,**pc)))res=res*10+(*(*pc)++)-'0';return sig* -res;}static const char*getname_aux(char*buff,const char**pc){int i=0;skip(pc); -while(**pc!='\0'&&!strchr(delimits,**pc))buff[i++]=*(*pc)++;buff[i]='\0'; -return buff;} -#define EQ(s1) (strcmp(s1,inst)==0) -#define getnum (getnum_aux(L,&pc)) -#define getname (getname_aux(buff,&pc)) -static int testC(lua_State*L){char buff[30];const char*pc=luaL_checkstring(L,1 -);for(;;){const char*inst=getname;if EQ("")return 0;else if EQ("isnumber"){ -lua_pushintegral(L,lua_isnumber(L,getnum));}else if EQ("isstring"){ -lua_pushintegral(L,lua_isstring(L,getnum));}else if EQ("istable"){ -lua_pushintegral(L,lua_istable(L,getnum));}else if EQ("iscfunction"){ -lua_pushintegral(L,lua_iscfunction(L,getnum));}else if EQ("isfunction"){ -lua_pushintegral(L,lua_isfunction(L,getnum));}else if EQ("isuserdata"){ -lua_pushintegral(L,lua_isuserdata(L,getnum));}else if EQ("isudataval"){ -lua_pushintegral(L,lua_islightuserdata(L,getnum));}else if EQ("isnil"){ -lua_pushintegral(L,lua_isnil(L,getnum));}else if EQ("isnull"){lua_pushintegral -(L,lua_isnone(L,getnum));}else if EQ("tonumber"){lua_pushnumber(L,lua_tonumber -(L,getnum));}else if EQ("tostring"){const char*s=lua_tostring(L,getnum); -lua_pushstring(L,s);}else if EQ("strlen"){lua_pushintegral(L,lua_strlen(L, -getnum));}else if EQ("tocfunction"){lua_pushcfunction(L,lua_tocfunction(L, -getnum));}else if EQ("return"){return getnum;}else if EQ("gettop"){ -lua_pushintegral(L,lua_gettop(L));}else if EQ("settop"){lua_settop(L,getnum);} -else if EQ("pop"){lua_pop(L,getnum);}else if EQ("pushnum"){lua_pushintegral(L, -getnum);}else if EQ("pushnil"){lua_pushnil(L);}else if EQ("pushbool"){ -lua_pushboolean(L,getnum);}else if EQ("tobool"){lua_pushintegral(L, -lua_toboolean(L,getnum));}else if EQ("pushvalue"){lua_pushvalue(L,getnum);} -else if EQ("pushcclosure"){lua_pushcclosure(L,testC,getnum);}else if EQ( -"pushupvalues"){lua_pushupvalues(L);}else if EQ("remove"){lua_remove(L,getnum) -;}else if EQ("insert"){lua_insert(L,getnum);}else if EQ("replace"){lua_replace -(L,getnum);}else if EQ("gettable"){lua_gettable(L,getnum);}else if EQ( -"settable"){lua_settable(L,getnum);}else if EQ("next"){lua_next(L,-2);}else if - EQ("concat"){lua_concat(L,getnum);}else if EQ("lessthan"){int a=getnum; -lua_pushboolean(L,lua_lessthan(L,a,getnum));}else if EQ("equal"){int a=getnum; -lua_pushboolean(L,lua_equal(L,a,getnum));}else if EQ("rawcall"){int narg= -getnum;int nres=getnum;lua_call(L,narg,nres);}else if EQ("call"){int narg= -getnum;int nres=getnum;lua_pcall(L,narg,nres,0);}else if EQ("loadstring"){ -size_t sl;const char*s=luaL_checklstring(L,getnum,&sl);luaL_loadbuffer(L,s,sl, -s);}else if EQ("loadfile"){luaL_loadfile(L,luaL_checkstring(L,getnum));}else -if EQ("setmetatable"){lua_setmetatable(L,getnum);}else if EQ("getmetatable"){ -if(lua_getmetatable(L,getnum)==0)lua_pushnil(L);}else if EQ("type"){ -lua_pushstring(L,lua_typename(L,lua_type(L,getnum)));}else if EQ("getn"){int i -=getnum;lua_pushintegral(L,luaL_getn(L,i));}else if EQ("setn"){int i=getnum; -int n=cast(int,lua_tonumber(L,-1));luaL_setn(L,i,n);lua_pop(L,1);}else -luaL_error(L,"unknown instruction %s",buff);}return 0;}static void yieldf( -lua_State*L,lua_Debug*ar){lua_yield(L,0);}static int setyhook(lua_State*L){if( -lua_isnoneornil(L,1))lua_sethook(L,NULL,0,0);else{const char*smask= -luaL_checkstring(L,1);int count=luaL_optint(L,2,0);int mask=0;if(strchr(smask, -'l'))mask|=LUA_MASKLINE;if(count>0)mask|=LUA_MASKCOUNT;lua_sethook(L,yieldf, -mask,count);}return 0;}static int coresume(lua_State*L){int status;lua_State* -co=lua_tothread(L,1);luaL_argcheck(L,co,1,"coroutine expected");status= -lua_resume(co,0);if(status!=0){lua_pushboolean(L,0);lua_insert(L,-2);return 2; -}else{lua_pushboolean(L,1);return 1;}}static const struct luaL_reg tests_funcs -[]={{"hash",hash_query},{"limits",get_limits},{"listcode",listcode},{"listk", -listk},{"listlocals",listlocals},{"loadlib",loadlib},{"stacklevel",stacklevel} -,{"querystr",string_query},{"querytab",table_query},{"doit",test_do},{"testC", -testC},{"ref",tref},{"getref",getref},{"unref",unref},{"d2s",d2s},{"s2d",s2d}, -{"metatable",metatable},{"upvalue",upvalue},{"newuserdata",newuserdata},{ -"pushuserdata",pushuserdata},{"udataval",udataval},{"doonnewstack", -doonnewstack},{"newstate",newstate},{"closestate",closestate},{"doremote", -doremote},{"log2",log2_aux},{"int2fb",int2fb_aux},{"totalmem",mem_query},{ -"resume",coresume},{"setyhook",setyhook},{NULL,NULL}};static void fim(void){if -(!islocked)lua_close(lua_state);lua_assert(memdebug_numblocks==0);lua_assert( -memdebug_total==0);}static int l_panic(lua_State*L){UNUSED(L);fprintf(stderr, -"unable to recover; exiting\n");return 0;}int luaB_opentests(lua_State*L){ -lua_atpanic(L,l_panic);lua_userstateopen(L);lua_state=L;luaL_openlib(L,"T", -tests_funcs,0);atexit(fim);return 0;} -#undef main -int main(int argc,char*argv[]){char*limit=getenv("MEMLIMIT");if(limit) -memdebug_memlimit=strtoul(limit,NULL,10);l_main(argc,argv);return 0;} -#endif -#line 1 "ltm.c" -#define ltm_c -const char*const luaT_typenames[]={"nil","boolean","userdata","number", -"string","table","function","userdata","thread"};void luaT_init(lua_State*L){ -static const char*const luaT_eventname[]={"__index","__newindex","__gc", -"__mode","__eq","__add","__sub","__mul","__div","__pow","__unm","__lt","__le", -"__concat","__call"};int i;for(i=0;itmname[i]=luaS_new(L, -luaT_eventname[i]);luaS_fix(G(L)->tmname[i]);}}const TObject*luaT_gettm(Table* -events,TMS event,TString*ename){const TObject*tm=luaH_getstr(events,ename); -lua_assert(event<=TM_EQ);if(ttisnil(tm)){events->flags|=cast(lu_byte,1u<tmname[event];switch(ttype(o)){case -LUA_TTABLE:return luaH_getstr(hvalue(o)->metatable,ename);case LUA_TUSERDATA: -return luaH_getstr(uvalue(o)->uv.metatable,ename);default:return& -luaO_nilobject;}} -#line 1 "lua.c" -#define lua_c -#ifdef LUA_USERCONFIG -#include LUA_USERCONFIG -#endif -#ifdef _POSIX_C_SOURCE -#define stdin_is_tty() isatty(0) -#else -#define stdin_is_tty() 1 -#endif -#ifndef PROMPT -#define PROMPT "> " -#endif -#ifndef PROMPT2 -#define PROMPT2 ">> " -#endif -#ifndef PROGNAME -#define PROGNAME "lua" -#endif -#ifndef lua_userinit -#define lua_userinit(L) openstdlibs(L) -#endif -#ifndef LUA_EXTRALIBS -#define LUA_EXTRALIBS -#endif -static lua_State*L=NULL;static const char*progname=PROGNAME;LUALIB_API int -luaopen_posix(lua_State*L);static const luaL_reg lualibs[]={{"base", -luaopen_base},{"table",luaopen_table},{"io",luaopen_io},{"string", -luaopen_string},{"debug",luaopen_debug},{"loadlib",luaopen_loadlib},{"posix", -luaopen_posix},LUA_EXTRALIBS{NULL,NULL}};static void lstop(lua_State*l, -lua_Debug*ar){(void)ar;lua_sethook(l,NULL,0,0);luaL_error(l,"interrupted!");} -static void laction(int i){signal(i,SIG_DFL);lua_sethook(L,lstop,LUA_MASKCALL| -LUA_MASKRET|LUA_MASKCOUNT,1);}static void print_usage(void){fprintf(stderr, -"usage: %s [options] [script [args]].\n""Available options are:\n" -" - execute stdin as a file\n"" -e stat execute string `stat'\n" -" -i enter interactive mode after executing `script'\n" -" -l name load and run library `name'\n" -" -v show version information\n"" -- stop handling options\n", -progname);}static void l_message(const char*pname,const char*msg){if(pname) -fprintf(stderr,"%s: ",pname);fprintf(stderr,"%s\n",msg);}static int report(int - status){const char*msg;if(status){msg=lua_tostring(L,-1);if(msg==NULL)msg= -"(error with no message)";l_message(progname,msg);lua_pop(L,1);}return status; -}static int lcall(int narg,int clear){int status;int base=lua_gettop(L)-narg; -lua_pushliteral(L,"_TRACEBACK");lua_rawget(L,LUA_GLOBALSINDEX);lua_insert(L, -base);signal(SIGINT,laction);status=lua_pcall(L,narg,(clear?0:LUA_MULTRET), -base);signal(SIGINT,SIG_DFL);lua_remove(L,base);return status;}static void -print_version(void){l_message(NULL,LUA_VERSION" "LUA_COPYRIGHT);}static void -getargs(char*argv[],int n){int i;lua_newtable(L);for(i=0;argv[i];i++){ -lua_pushnumber(L,i-n);lua_pushstring(L,argv[i]);lua_rawset(L,-3);} -lua_pushliteral(L,"n");lua_pushnumber(L,i-n-1);lua_rawset(L,-3);}static int -docall(int status){if(status==0)status=lcall(0,1);return report(status);} -static int file_input(const char*name){return docall(luaL_loadfile(L,name));} -static int dostring(const char*s,const char*name){return docall( -luaL_loadbuffer(L,s,strlen(s),name));}static int load_file(const char*name){ -lua_pushliteral(L,"require");lua_rawget(L,LUA_GLOBALSINDEX);if(!lua_isfunction -(L,-1)){lua_pop(L,1);return file_input(name);}else{lua_pushstring(L,name); -return report(lcall(1,1));}} -#ifndef lua_saveline -#define lua_saveline(L,line) -#endif -#ifndef lua_readline -#define lua_readline(L,prompt) readline(L,prompt) -#ifndef MAXINPUT -#define MAXINPUT 512 -#endif -static int readline(lua_State*l,const char*prompt){static char buffer[MAXINPUT -];if(prompt){fputs(prompt,stdout);fflush(stdout);}if(fgets(buffer,sizeof( -buffer),stdin)==NULL)return 0;else{lua_pushstring(l,buffer);return 1;}} -#endif -static const char*get_prompt(int firstline){const char*p=NULL;lua_pushstring(L -,firstline?"_PROMPT":"_PROMPT2");lua_rawget(L,LUA_GLOBALSINDEX);p=lua_tostring -(L,-1);if(p==NULL)p=(firstline?PROMPT:PROMPT2);lua_pop(L,1);return p;}static -int incomplete(int status){if(status==LUA_ERRSYNTAX&&strstr(lua_tostring(L,-1) -,"near `'")!=NULL){lua_pop(L,1);return 1;}else return 0;}static int -load_string(void){int status;lua_settop(L,0);if(lua_readline(L,get_prompt(1)) -==0)return-1;if(lua_tostring(L,-1)[0]=='='){lua_pushfstring(L,"return %s", -lua_tostring(L,-1)+1);lua_remove(L,-2);}for(;;){status=luaL_loadbuffer(L, -lua_tostring(L,1),lua_strlen(L,1),"=stdin");if(!incomplete(status))break;if( -lua_readline(L,get_prompt(0))==0)return-1;lua_concat(L,lua_gettop(L));} -lua_saveline(L,lua_tostring(L,1));lua_remove(L,1);return status;}static void -manual_input(void){int status;const char*oldprogname=progname;progname=NULL; -while((status=load_string())!=-1){if(status==0)status=lcall(0,0);report(status -);if(status==0&&lua_gettop(L)>0){lua_getglobal(L,"print");lua_insert(L,1);if( -lua_pcall(L,lua_gettop(L)-1,0,0)!=0)l_message(progname,lua_pushfstring(L, -"error calling `print' (%s)",lua_tostring(L,-1)));}}lua_settop(L,0);fputs("\n" -,stdout);progname=oldprogname;}static int handle_argv(char*argv[],int* -interactive){if(argv[1]==NULL){if(stdin_is_tty()){print_version();manual_input -();}else file_input(NULL);}else{int i;for(i=1;argv[i]!=NULL;i++){if(argv[i][0] -!='-')break;switch(argv[i][1]){case'-':{if(argv[i][2]!='\0'){print_usage(); -return 1;}i++;goto endloop;}case'\0':{file_input(NULL);break;}case'i':{* -interactive=1;break;}case'v':{print_version();break;}case'e':{const char*chunk -=argv[i]+2;if(*chunk=='\0')chunk=argv[++i];if(chunk==NULL){print_usage(); -return 1;}if(dostring(chunk,"=")!=0)return 1;break;}case'l':{ -const char*filename=argv[i]+2;if(*filename=='\0')filename=argv[++i];if( -filename==NULL){print_usage();return 1;}if(load_file(filename))return 1;break; -}case'c':{l_message(progname,"option `-c' is deprecated");break;}case's':{ -l_message(progname,"option `-s' is deprecated");break;}default:{print_usage(); -return 1;}}}endloop:if(argv[i]!=NULL){const char*filename=argv[i];getargs(argv -,i);lua_setglobal(L,"arg");if(strcmp(filename,"/dev/stdin")==0)filename=NULL; -return file_input(filename);}}return 0;}static void openstdlibs(lua_State*l){ -const luaL_reg*lib=lualibs;for(;lib->func;lib++){lib->func(l);lua_settop(l,0); -}}static int handle_luainit(void){const char*init=getenv("LUA_INIT");if(init== -NULL)return 0;else if(init[0]=='@')return file_input(init+1);else return -dostring(init,"=LUA_INIT");}struct Smain{int argc;char**argv;int status;}; -static int pmain(lua_State*l){struct Smain*s=(struct Smain*)lua_touserdata(l,1 -);int status;int interactive=0;if(s->argv[0]&&s->argv[0][0])progname=s->argv[0 -];L=l;lua_userinit(l);status=handle_luainit();if(status==0){status=handle_argv -(s->argv,&interactive);if(status==0&&interactive)manual_input();}s->status= -status;return 0;}int main(int argc,char*argv[]){int status;struct Smain s; -lua_State*l=lua_open();if(l==NULL){l_message(argv[0], -"cannot create state: not enough memory");return EXIT_FAILURE;}s.argc=argc;s. -argv=argv;status=lua_cpcall(l,&pmain,&s);report(status);lua_close(l);return( -status||s.status)?EXIT_FAILURE:EXIT_SUCCESS;} -#line 1 "lundump.c" -#define lundump_c -#define LoadByte (lu_byte)ezgetc -typedef struct{lua_State*L;ZIO*Z;Mbuffer*b;int swap;const char*name;}LoadState -;static void unexpectedEOZ(LoadState*S){luaG_runerror(S->L, -"unexpected end of file in %s",S->name);}static int ezgetc(LoadState*S){int c= -zgetc(S->Z);if(c==EOZ)unexpectedEOZ(S);return c;}static void ezread(LoadState* -S,void*b,int n){int r=luaZ_read(S->Z,b,n);if(r!=0)unexpectedEOZ(S);}static -void LoadBlock(LoadState*S,void*b,size_t size){if(S->swap){char*p=(char*)b+ -size-1;int n=size;while(n--)*p--=(char)ezgetc(S);}else ezread(S,b,size);} -static void LoadVector(LoadState*S,void*b,int m,size_t size){if(S->swap){char* -q=(char*)b;while(m--){char*p=q+size-1;int n=size;while(n--)*p--=(char)ezgetc(S -);q+=size;}}else ezread(S,b,m*size);}static int LoadInt(LoadState*S){int x; -LoadBlock(S,&x,sizeof(x));if(x<0)luaG_runerror(S->L,"bad integer in %s",S-> -name);return x;}static size_t LoadSize(LoadState*S){size_t x;LoadBlock(S,&x, -sizeof(x));return x;}static lua_Number LoadNumber(LoadState*S){lua_Number x; -LoadBlock(S,&x,sizeof(x));return x;}static TString*LoadString(LoadState*S){ -size_t size=LoadSize(S);if(size==0)return NULL;else{char*s=luaZ_openspace(S->L -,S->b,size);ezread(S,s,size);return luaS_newlstr(S->L,s,size-1);}}static void -LoadCode(LoadState*S,Proto*f){int size=LoadInt(S);f->code=luaM_newvector(S->L, -size,Instruction);f->sizecode=size;LoadVector(S,f->code,size,sizeof(*f->code)) -;}static void LoadLocals(LoadState*S,Proto*f){int i,n;n=LoadInt(S);f->locvars= -luaM_newvector(S->L,n,LocVar);f->sizelocvars=n;for(i=0;ilocvars[i]. -varname=LoadString(S);f->locvars[i].startpc=LoadInt(S);f->locvars[i].endpc= -LoadInt(S);}}static void LoadLines(LoadState*S,Proto*f){int size=LoadInt(S);f -->lineinfo=luaM_newvector(S->L,size,int);f->sizelineinfo=size;LoadVector(S,f-> -lineinfo,size,sizeof(*f->lineinfo));}static void LoadUpvalues(LoadState*S, -Proto*f){int i,n;n=LoadInt(S);if(n!=0&&n!=f->nups)luaG_runerror(S->L, -"bad nupvalues in %s: read %d; expected %d",S->name,n,f->nups);f->upvalues= -luaM_newvector(S->L,n,TString*);f->sizeupvalues=n;for(i=0;iupvalues[ -i]=LoadString(S);}static Proto*LoadFunction(LoadState*S,TString*p);static void - LoadConstants(LoadState*S,Proto*f){int i,n;n=LoadInt(S);f->k=luaM_newvector(S -->L,n,TObject);f->sizek=n;for(i=0;ik[i];int t=LoadByte(S -);switch(t){case LUA_TNUMBER:setnvalue(o,LoadNumber(S));break;case LUA_TSTRING -:setsvalue2n(o,LoadString(S));break;case LUA_TNIL:setnilvalue(o);break;default -:luaG_runerror(S->L,"bad constant type (%d) in %s",t,S->name);break;}}n= -LoadInt(S);f->p=luaM_newvector(S->L,n,Proto*);f->sizep=n;for(i=0;ip[ -i]=LoadFunction(S,f->source);}static Proto*LoadFunction(LoadState*S,TString*p) -{Proto*f=luaF_newproto(S->L);f->source=LoadString(S);if(f->source==NULL)f-> -source=p;f->lineDefined=LoadInt(S);f->nups=LoadByte(S);f->numparams=LoadByte(S -);f->is_vararg=LoadByte(S);f->maxstacksize=LoadByte(S);LoadLines(S,f); -LoadLocals(S,f);LoadUpvalues(S,f);LoadConstants(S,f);LoadCode(S,f); -#ifndef TRUST_BINARIES -if(!luaG_checkcode(f))luaG_runerror(S->L,"bad code in %s",S->name); -#endif -return f;}static void LoadSignature(LoadState*S){const char*s=LUA_SIGNATURE; -while(*s!=0&&ezgetc(S)==*s)++s;if(*s!=0)luaG_runerror(S->L, -"bad signature in %s",S->name);}static void TestSize(LoadState*S,int s,const -char*what){int r=LoadByte(S);if(r!=s)luaG_runerror(S->L, -"virtual machine mismatch in %s: ""size of %s is %d but read %d",S->name,what, -s,r);} -#define TESTSIZE(s,w) TestSize(S,s,w) -#define V(v) v/16,v%16 -static void LoadHeader(LoadState*S){int version;lua_Number x,tx=TEST_NUMBER; -LoadSignature(S);version=LoadByte(S);if(version>VERSION)luaG_runerror(S->L, -"%s too new: ""read version %d.%d; expected at most %d.%d",S->name,V(version), -V(VERSION));if(versionL,"%s too old: " -"read version %d.%d; expected at least %d.%d",S->name,V(version),V(VERSION0)); -S->swap=(luaU_endianness()!=LoadByte(S));TESTSIZE(sizeof(int),"int");TESTSIZE( -sizeof(size_t),"size_t");TESTSIZE(sizeof(Instruction),"Instruction");TESTSIZE( -SIZE_OP,"OP");TESTSIZE(SIZE_A,"A");TESTSIZE(SIZE_B,"B");TESTSIZE(SIZE_C,"C"); -TESTSIZE(sizeof(lua_Number),"number");x=LoadNumber(S);if((long)x!=(long)tx) -luaG_runerror(S->L,"unknown number format in %s",S->name);}static Proto* -LoadChunk(LoadState*S){LoadHeader(S);return LoadFunction(S,NULL);}Proto* -luaU_undump(lua_State*L,ZIO*Z,Mbuffer*buff){LoadState S;const char*s=zname(Z); -if(*s=='@'||*s=='=')S.name=s+1;else if(*s==LUA_SIGNATURE[0])S.name= -"binary string";else S.name=s;S.L=L;S.Z=Z;S.b=buff;return LoadChunk(&S);}int -luaU_endianness(void){int x=1;return*(char*)&x;} -#line 1 "lvm.c" -#define lvm_c -#ifndef lua_number2str -#define lua_number2str(s,n) sprintf((s),LUA_NUMBER_FMT,(n)) -#endif -#define MAXTAGLOOP 100 -const TObject*luaV_tonumber(const TObject*obj,TObject*n){lua_Number num;if( -ttisnumber(obj))return obj;if(ttisstring(obj)&&luaO_str2d(svalue(obj),&num)){ -setnvalue(n,num);return n;}else return NULL;}int luaV_tostring(lua_State*L, -StkId obj){if(!ttisnumber(obj))return 0;else{char s[32];lua_number2str(s, -nvalue(obj));setsvalue2s(obj,luaS_new(L,s));return 1;}}static void traceexec( -lua_State*L){lu_byte mask=L->hookmask;if(mask&LUA_MASKCOUNT){if(L->hookcount== -0){resethookcount(L);luaD_callhook(L,LUA_HOOKCOUNT,-1);return;}}if(mask& -LUA_MASKLINE){CallInfo*ci=L->ci;Proto*p=ci_func(ci)->l.p;int newline=getline(p -,pcRel(*ci->u.l.pc,p));if(!L->hookinit){luaG_inithooks(L);return;}lua_assert( -ci->state&CI_HASFRAME);if(pcRel(*ci->u.l.pc,p)==0)ci->u.l.savedpc=*ci->u.l.pc; -if(*ci->u.l.pc<=ci->u.l.savedpc||newline!=getline(p,pcRel(ci->u.l.savedpc,p))) -{luaD_callhook(L,LUA_HOOKLINE,newline);ci=L->ci;}ci->u.l.savedpc=*ci->u.l.pc;} -}static void callTMres(lua_State*L,const TObject*f,const TObject*p1,const -TObject*p2){setobj2s(L->top,f);setobj2s(L->top+1,p1);setobj2s(L->top+2,p2); -luaD_checkstack(L,3);L->top+=3;luaD_call(L,L->top-3,1);L->top--;}static void -callTM(lua_State*L,const TObject*f,const TObject*p1,const TObject*p2,const -TObject*p3){setobj2s(L->top,f);setobj2s(L->top+1,p1);setobj2s(L->top+2,p2); -setobj2s(L->top+3,p3);luaD_checkstack(L,4);L->top+=4;luaD_call(L,L->top-4,0);} -static const TObject*luaV_index(lua_State*L,const TObject*t,TObject*key,int -loop){const TObject*tm=fasttm(L,hvalue(t)->metatable,TM_INDEX);if(tm==NULL) -return&luaO_nilobject;if(ttisfunction(tm)){callTMres(L,tm,t,key);return L->top -;}else return luaV_gettable(L,tm,key,loop);}static const TObject* -luaV_getnotable(lua_State*L,const TObject*t,TObject*key,int loop){const -TObject*tm=luaT_gettmbyobj(L,t,TM_INDEX);if(ttisnil(tm))luaG_typeerror(L,t, -"index");if(ttisfunction(tm)){callTMres(L,tm,t,key);return L->top;}else return - luaV_gettable(L,tm,key,loop);}const TObject*luaV_gettable(lua_State*L,const -TObject*t,TObject*key,int loop){if(loop>MAXTAGLOOP)luaG_runerror(L, -"loop in gettable");if(ttistable(t)){Table*h=hvalue(t);const TObject*v= -luaH_get(h,key);if(!ttisnil(v))return v;else return luaV_index(L,t,key,loop+1) -;}else return luaV_getnotable(L,t,key,loop+1);}void luaV_settable(lua_State*L, -const TObject*t,TObject*key,StkId val){const TObject*tm;int loop=0;do{if( -ttistable(t)){Table*h=hvalue(t);TObject*oldval=luaH_set(L,h,key);if(!ttisnil( -oldval)||(tm=fasttm(L,h->metatable,TM_NEWINDEX))==NULL){setobj2t(oldval,val); -return;}}else if(ttisnil(tm=luaT_gettmbyobj(L,t,TM_NEWINDEX)))luaG_typeerror(L -,t,"index");if(ttisfunction(tm)){callTM(L,tm,t,key,val);return;}t=tm;}while(++ -loop<=MAXTAGLOOP);luaG_runerror(L,"loop in settable");}static int call_binTM( -lua_State*L,const TObject*p1,const TObject*p2,StkId res,TMS event){ptrdiff_t -result=savestack(L,res);const TObject*tm=luaT_gettmbyobj(L,p1,event);if( -ttisnil(tm))tm=luaT_gettmbyobj(L,p2,event);if(!ttisfunction(tm))return 0; -callTMres(L,tm,p1,p2);res=restorestack(L,result);setobjs2s(res,L->top);return -1;}static const TObject*get_compTM(lua_State*L,Table*mt1,Table*mt2,TMS event){ -const TObject*tm1=fasttm(L,mt1,event);const TObject*tm2;if(tm1==NULL)return -NULL;if(mt1==mt2)return tm1;tm2=fasttm(L,mt2,event);if(tm2==NULL)return NULL; -if(luaO_rawequalObj(tm1,tm2))return tm1;return NULL;}static int call_orderTM( -lua_State*L,const TObject*p1,const TObject*p2,TMS event){const TObject*tm1= -luaT_gettmbyobj(L,p1,event);const TObject*tm2;if(ttisnil(tm1))return-1;tm2= -luaT_gettmbyobj(L,p2,event);if(!luaO_rawequalObj(tm1,tm2))return-1;callTMres(L -,tm1,p1,p2);return!l_isfalse(L->top);}static int luaV_strcmp(const TString*ls, -const TString*rs){const char*l=getstr(ls);size_t ll=ls->tsv.len;const char*r= -getstr(rs);size_t lr=rs->tsv.len;for(;;){int temp=strcoll(l,r);if(temp!=0) -return temp;else{size_t len=strlen(l);if(len==lr)return(len==ll)?0:1;else if( -len==ll)return-1;len++;l+=len;ll-=len;r+=len;lr-=len;}}}int luaV_lessthan( -lua_State*L,const TObject*l,const TObject*r){int res;if(ttype(l)!=ttype(r)) -return luaG_ordererror(L,l,r);else if(ttisnumber(l))return nvalue(l)uv.metatable,uvalue(t2)->uv.metatable,TM_EQ);break;} -case LUA_TTABLE:{if(hvalue(t1)==hvalue(t2))return 1;tm=get_compTM(L,hvalue(t1) -->metatable,hvalue(t2)->metatable,TM_EQ);break;}default:return gcvalue(t1)== -gcvalue(t2);}if(tm==NULL)return 0;callTMres(L,tm,t1,t2);return!l_isfalse(L-> -top);}void luaV_concat(lua_State*L,int total,int last){do{StkId top=L->base+ -last+1;int n=2;if(!tostring(L,top-2)||!tostring(L,top-1)){if(!call_binTM(L,top --2,top-1,top-2,TM_CONCAT))luaG_concaterror(L,top-2,top-1);}else if(tsvalue(top --1)->tsv.len>0){lu_mem tl=cast(lu_mem,tsvalue(top-1)->tsv.len)+cast(lu_mem, -tsvalue(top-2)->tsv.len);char*buffer;int i;while(ntsv.len;n++;}if(tl>MAX_SIZET)luaG_runerror(L, -"string size overflow");buffer=luaZ_openspace(L,&G(L)->buff,tl);tl=0;for(i=n;i ->0;i--){size_t l=tsvalue(top-i)->tsv.len;memcpy(buffer+tl,svalue(top-i),l);tl -+=l;}setsvalue2s(top-n,luaS_newlstr(L,buffer,tl));}total-=n-1;last-=n-1;}while -(total>1);}static void Arith(lua_State*L,StkId ra,const TObject*rb,const -TObject*rc,TMS op){TObject tempb,tempc;const TObject*b,*c;if((b=luaV_tonumber( -rb,&tempb))!=NULL&&(c=luaV_tonumber(rc,&tempc))!=NULL){switch(op){case TM_ADD: -setnvalue(ra,nvalue(b)+nvalue(c));break;case TM_SUB:setnvalue(ra,nvalue(b)- -nvalue(c));break;case TM_MUL:setnvalue(ra,nvalue(b)*nvalue(c));break;case -TM_DIV:setnvalue(ra,nvalue(b)/nvalue(c));break;case TM_POW:{const TObject*f= -luaH_getstr(hvalue(gt(L)),G(L)->tmname[TM_POW]);ptrdiff_t res=savestack(L,ra); -if(!ttisfunction(f))luaG_runerror(L,"`__pow' (`^' operator) is not a function" -);callTMres(L,f,b,c);ra=restorestack(L,res);setobjs2s(ra,L->top);break;} -default:lua_assert(0);break;}}else if(!call_binTM(L,rb,rc,ra,op)) -luaG_aritherror(L,rb,rc);} -#define runtime_check(L, c){if(!(c))return 0;} -#define RA(i) (base+GETARG_A(i)) -#define XRA(i) (L->base+GETARG_A(i)) -#define RB(i) (base+GETARG_B(i)) -#define RKB(i) ((GETARG_B(i)hookmask&LUA_MASKCALL){L->ci->u.l.pc=&pc;luaD_callhook(L, -LUA_HOOKCALL,-1);}retentry:L->ci->u.l.pc=&pc;lua_assert(L->ci->state== -CI_SAVEDPC||L->ci->state==(CI_SAVEDPC|CI_CALLING));L->ci->state=CI_HASFRAME;pc -=L->ci->u.l.savedpc;cl=&clvalue(L->base-1)->l;k=cl->p->k;for(;;){const -Instruction i=*pc++;StkId base,ra;if((L->hookmask&(LUA_MASKLINE|LUA_MASKCOUNT) -)&&(--L->hookcount==0||L->hookmask&LUA_MASKLINE)){traceexec(L);if(L->ci->state -&CI_YIELD){L->ci->u.l.savedpc=pc-1;L->ci->state=CI_YIELD|CI_SAVEDPC;return -NULL;}}base=L->base;ra=RA(i);lua_assert(L->ci->state&CI_HASFRAME);lua_assert( -base==L->ci->base);lua_assert(L->top<=L->stack+L->stacksize&&L->top>=base); -lua_assert(L->top==L->ci->top||GET_OPCODE(i)==OP_CALL||GET_OPCODE(i)== -OP_TAILCALL||GET_OPCODE(i)==OP_RETURN||GET_OPCODE(i)==OP_SETLISTO);switch( -GET_OPCODE(i)){case OP_MOVE:{setobjs2s(ra,RB(i));break;}case OP_LOADK:{ -setobj2s(ra,KBx(i));break;}case OP_LOADBOOL:{setbvalue(ra,GETARG_B(i));if( -GETARG_C(i))pc++;break;}case OP_LOADNIL:{TObject*rb=RB(i);do{setnilvalue(rb--) -;}while(rb>=ra);break;}case OP_GETUPVAL:{int b=GETARG_B(i);setobj2s(ra,cl-> -upvals[b]->v);break;}case OP_GETGLOBAL:{TObject*rb=KBx(i);const TObject*v; -lua_assert(ttisstring(rb)&&ttistable(&cl->g));v=luaH_getstr(hvalue(&cl->g), -tsvalue(rb));if(!ttisnil(v)){setobj2s(ra,v);}else setobj2s(XRA(i),luaV_index(L -,&cl->g,rb,0));break;}case OP_GETTABLE:{StkId rb=RB(i);TObject*rc=RKC(i);if( -ttistable(rb)){const TObject*v=luaH_get(hvalue(rb),rc);if(!ttisnil(v)){ -setobj2s(ra,v);}else setobj2s(XRA(i),luaV_index(L,rb,rc,0));}else setobj2s(XRA -(i),luaV_getnotable(L,rb,rc,0));break;}case OP_SETGLOBAL:{lua_assert( -ttisstring(KBx(i))&&ttistable(&cl->g));luaV_settable(L,&cl->g,KBx(i),ra);break -;}case OP_SETUPVAL:{int b=GETARG_B(i);setobj(cl->upvals[b]->v,ra);break;}case -OP_SETTABLE:{luaV_settable(L,ra,RKB(i),RKC(i));break;}case OP_NEWTABLE:{int b= -GETARG_B(i);b=fb2int(b);sethvalue(ra,luaH_new(L,b,GETARG_C(i)));luaC_checkGC(L -);break;}case OP_SELF:{StkId rb=RB(i);TObject*rc=RKC(i);runtime_check(L, -ttisstring(rc));setobjs2s(ra+1,rb);if(ttistable(rb)){const TObject*v= -luaH_getstr(hvalue(rb),tsvalue(rc));if(!ttisnil(v)){setobj2s(ra,v);}else -setobj2s(XRA(i),luaV_index(L,rb,rc,0));}else setobj2s(XRA(i),luaV_getnotable(L -,rb,rc,0));break;}case OP_ADD:{TObject*rb=RKB(i);TObject*rc=RKC(i);if( -ttisnumber(rb)&&ttisnumber(rc)){setnvalue(ra,nvalue(rb)+nvalue(rc));}else -Arith(L,ra,rb,rc,TM_ADD);break;}case OP_SUB:{TObject*rb=RKB(i);TObject*rc=RKC( -i);if(ttisnumber(rb)&&ttisnumber(rc)){setnvalue(ra,nvalue(rb)-nvalue(rc));} -else Arith(L,ra,rb,rc,TM_SUB);break;}case OP_MUL:{TObject*rb=RKB(i);TObject*rc -=RKC(i);if(ttisnumber(rb)&&ttisnumber(rc)){setnvalue(ra,nvalue(rb)*nvalue(rc)) -;}else Arith(L,ra,rb,rc,TM_MUL);break;}case OP_DIV:{TObject*rb=RKB(i);TObject* -rc=RKC(i);if(ttisnumber(rb)&&ttisnumber(rc)){setnvalue(ra,nvalue(rb)/nvalue(rc -));}else Arith(L,ra,rb,rc,TM_DIV);break;}case OP_POW:{Arith(L,ra,RKB(i),RKC(i) -,TM_POW);break;}case OP_UNM:{const TObject*rb=RB(i);TObject temp;if(tonumber( -rb,&temp)){setnvalue(ra,-nvalue(rb));}else{setnilvalue(&temp);if(!call_binTM(L -,RB(i),&temp,ra,TM_UNM))luaG_aritherror(L,RB(i),&temp);}break;}case OP_NOT:{ -int res=l_isfalse(RB(i));setbvalue(ra,res);break;}case OP_CONCAT:{int b= -GETARG_B(i);int c=GETARG_C(i);luaV_concat(L,c-b+1,c);base=L->base;setobjs2s(RA -(i),base+b);luaC_checkGC(L);break;}case OP_JMP:{dojump(pc,GETARG_sBx(i));break -;}case OP_EQ:{if(equalobj(L,RKB(i),RKC(i))!=GETARG_A(i))pc++;else dojump(pc, -GETARG_sBx(*pc)+1);break;}case OP_LT:{if(luaV_lessthan(L,RKB(i),RKC(i))!= -GETARG_A(i))pc++;else dojump(pc,GETARG_sBx(*pc)+1);break;}case OP_LE:{if( -luaV_lessequal(L,RKB(i),RKC(i))!=GETARG_A(i))pc++;else dojump(pc,GETARG_sBx(* -pc)+1);break;}case OP_TEST:{TObject*rb=RB(i);if(l_isfalse(rb)==GETARG_C(i))pc -++;else{setobjs2s(ra,rb);dojump(pc,GETARG_sBx(*pc)+1);}break;}case OP_CALL: -case OP_TAILCALL:{StkId firstResult;int b=GETARG_B(i);int nresults;if(b!=0)L-> -top=ra+b;nresults=GETARG_C(i)-1;firstResult=luaD_precall(L,ra);if(firstResult) -{if(firstResult>L->top){lua_assert(L->ci->state==(CI_C|CI_YIELD));(L->ci-1)->u -.l.savedpc=pc;(L->ci-1)->state=CI_SAVEDPC;return NULL;}luaD_poscall(L,nresults -,firstResult);if(nresults>=0)L->top=L->ci->top;}else{if(GET_OPCODE(i)==OP_CALL -){(L->ci-1)->u.l.savedpc=pc;(L->ci-1)->state=(CI_SAVEDPC|CI_CALLING);}else{int - aux;base=(L->ci-1)->base;ra=RA(i);if(L->openupval)luaF_close(L,base);for(aux= -0;ra+auxtop;aux++)setobjs2s(base+aux-1,ra+aux);(L->ci-1)->top=L->top=base+ -aux;lua_assert(L->ci->state&CI_SAVEDPC);(L->ci-1)->u.l.savedpc=L->ci->u.l. -savedpc;(L->ci-1)->u.l.tailcalls++;(L->ci-1)->state=CI_SAVEDPC;L->ci--;L->base -=L->ci->base;}goto callentry;}break;}case OP_RETURN:{CallInfo*ci=L->ci-1;int b -=GETARG_B(i);if(b!=0)L->top=ra+b-1;lua_assert(L->ci->state&CI_HASFRAME);if(L-> -openupval)luaF_close(L,base);L->ci->state=CI_SAVEDPC;L->ci->u.l.savedpc=pc;if( -!(ci->state&CI_CALLING)){lua_assert((ci->state&CI_C)||ci->u.l.pc!=&pc);return -ra;}else{int nresults;lua_assert(ttisfunction(ci->base-1)&&(ci->state& -CI_SAVEDPC));lua_assert(GET_OPCODE(*(ci->u.l.savedpc-1))==OP_CALL);nresults= -GETARG_C(*(ci->u.l.savedpc-1))-1;luaD_poscall(L,nresults,ra);if(nresults>=0)L -->top=L->ci->top;goto retentry;}}case OP_FORLOOP:{lua_Number step,idx,limit; -const TObject*plimit=ra+1;const TObject*pstep=ra+2;if(!ttisnumber(ra)) -luaG_runerror(L,"`for' initial value must be a number");if(!tonumber(plimit,ra -+1))luaG_runerror(L,"`for' limit must be a number");if(!tonumber(pstep,ra+2)) -luaG_runerror(L,"`for' step must be a number");step=nvalue(pstep);idx=nvalue( -ra)+step;limit=nvalue(plimit);if(step>0?idx<=limit:idx>=limit){dojump(pc, -GETARG_sBx(i));chgnvalue(ra,idx);}break;}case OP_TFORLOOP:{int nvar=GETARG_C(i -)+1;StkId cb=ra+nvar+2;setobjs2s(cb,ra);setobjs2s(cb+1,ra+1);setobjs2s(cb+2,ra -+2);L->top=cb+3;luaD_call(L,cb,nvar);L->top=L->ci->top;ra=XRA(i)+2;cb=ra+nvar; -do{nvar--;setobjs2s(ra+nvar,cb+nvar);}while(nvar>0);if(ttisnil(ra))pc++;else -dojump(pc,GETARG_sBx(*pc)+1);break;}case OP_TFORPREP:{if(ttistable(ra)){ -setobjs2s(ra+1,ra);setobj2s(ra,luaH_getstr(hvalue(gt(L)),luaS_new(L,"next"))); -}dojump(pc,GETARG_sBx(i));break;}case OP_SETLIST:case OP_SETLISTO:{int bc;int -n;Table*h;runtime_check(L,ttistable(ra));h=hvalue(ra);bc=GETARG_Bx(i);if( -GET_OPCODE(i)==OP_SETLIST)n=(bc&(LFIELDS_PER_FLUSH-1))+1;else{n=L->top-ra-1;L -->top=L->ci->top;}bc&=~(LFIELDS_PER_FLUSH-1);for(;n>0;n--)setobj2t(luaH_setnum -(L,h,bc+n),ra+n);break;}case OP_CLOSE:{luaF_close(L,ra);break;}case OP_CLOSURE -:{Proto*p;Closure*ncl;int nup,j;p=cl->p->p[GETARG_Bx(i)];nup=p->nups;ncl= -luaF_newLclosure(L,nup,&cl->g);ncl->l.p=p;for(j=0;jl.upvals[j]=cl->upvals[GETARG_B(*pc)];else{ -lua_assert(GET_OPCODE(*pc)==OP_MOVE);ncl->l.upvals[j]=luaF_findupval(L,base+ -GETARG_B(*pc));}}setclvalue(ra,ncl);luaC_checkGC(L);break;}}}} -#line 1 "lzio.c" -#define lzio_c -int luaZ_fill(ZIO*z){size_t size;const char*buff=z->reader(NULL,z->data,&size) -;if(buff==NULL||size==0)return EOZ;z->n=size-1;z->p=buff;return char2int(*(z-> -p++));}int luaZ_lookahead(ZIO*z){if(z->n==0){int c=luaZ_fill(z);if(c==EOZ) -return c;z->n++;z->p--;}return char2int(*z->p);}void luaZ_init(ZIO*z, -lua_Chunkreader reader,void*data,const char*name){z->reader=reader;z->data= -data;z->name=name;z->n=0;z->p=NULL;}size_t luaZ_read(ZIO*z,void*b,size_t n){ -while(n){size_t m;if(z->n==0){if(luaZ_fill(z)==EOZ)return n;else{++z->n;--z->p -;}}m=(n<=z->n)?n:z->n;memcpy(b,z->p,m);z->n-=m;z->p+=m;b=(char*)b+m;n-=m;} -return 0;}char*luaZ_openspace(lua_State*L,Mbuffer*buff,size_t n){if(n>buff-> -buffsize){if(nbuffer -,buff->buffsize,n,char);buff->buffsize=n;}return buff->buffer;} -