== behind n; (where n = fixedlen(p))
-*/
-static void codebehind (CompileState *compst, TTree *tree) {
- if (tree->u.n > 0)
- addinstruction(compst, IBehind, tree->u.n);
- codegen(compst, sib1(tree), 0, NOINST, fullset);
-}
-
-
-/*
-** Choice; optimizations:
-** - when p1 is headfail
-** - when first(p1) and first(p2) are disjoint; than
-** a character not in first(p1) cannot go to p1, and a character
-** in first(p1) cannot go to p2 (at it is not in first(p2)).
-** (The optimization is not valid if p1 accepts the empty string,
-** as then there is no character at all...)
-** - when p2 is empty and opt is true; a IPartialCommit can resuse
-** the Choice already active in the stack.
-*/
-static void codechoice (CompileState *compst, TTree *p1, TTree *p2, int opt,
- const Charset *fl) {
- int emptyp2 = (p2->tag == TTrue);
- Charset cs1, cs2;
- int e1 = getfirst(p1, fullset, &cs1);
- if (headfail(p1) ||
- (!e1 && (getfirst(p2, fl, &cs2), cs_disjoint(&cs1, &cs2)))) {
- /* == test (fail(p1)) -> L1 ; p1 ; jmp L2; L1: p2; L2: */
- int test = codetestset(compst, &cs1, 0);
- int jmp = NOINST;
- codegen(compst, p1, 0, test, fl);
- if (!emptyp2)
- jmp = addoffsetinst(compst, IJmp);
- jumptohere(compst, test);
- codegen(compst, p2, opt, NOINST, fl);
- jumptohere(compst, jmp);
- }
- else if (opt && emptyp2) {
- /* p1? == IPartialCommit; p1 */
- jumptohere(compst, addoffsetinst(compst, IPartialCommit));
- codegen(compst, p1, 1, NOINST, fullset);
- }
- else {
- /* ==
- test(fail(p1)) -> L1; choice L1; ; commit L2; L1: ; L2: */
- int pcommit;
- int test = codetestset(compst, &cs1, e1);
- int pchoice = addoffsetinst(compst, IChoice);
- codegen(compst, p1, emptyp2, test, fullset);
- pcommit = addoffsetinst(compst, ICommit);
- jumptohere(compst, pchoice);
- jumptohere(compst, test);
- codegen(compst, p2, opt, NOINST, fl);
- jumptohere(compst, pcommit);
- }
-}
-
-
-/*
-** And predicate
-** optimization: fixedlen(p) = n ==> <&p> == ; behind n
-** (valid only when 'p' has no captures)
-*/
-static void codeand (CompileState *compst, TTree *tree, int tt) {
- int n = fixedlen(tree);
- if (n >= 0 && n <= MAXBEHIND && !hascaptures(tree)) {
- codegen(compst, tree, 0, tt, fullset);
- if (n > 0)
- addinstruction(compst, IBehind, n);
- }
- else { /* default: Choice L1; p1; BackCommit L2; L1: Fail; L2: */
- int pcommit;
- int pchoice = addoffsetinst(compst, IChoice);
- codegen(compst, tree, 0, tt, fullset);
- pcommit = addoffsetinst(compst, IBackCommit);
- jumptohere(compst, pchoice);
- addinstruction(compst, IFail, 0);
- jumptohere(compst, pcommit);
- }
-}
-
-
-/*
-** Captures: if pattern has fixed (and not too big) length, use
-** a single IFullCapture instruction after the match; otherwise,
-** enclose the pattern with OpenCapture - CloseCapture.
-*/
-static void codecapture (CompileState *compst, TTree *tree, int tt,
- const Charset *fl) {
- int len = fixedlen(sib1(tree));
- if (len >= 0 && len <= MAXOFF && !hascaptures(sib1(tree))) {
- codegen(compst, sib1(tree), 0, tt, fl);
- addinstcap(compst, IFullCapture, tree->cap, tree->key, len);
- }
- else {
- addinstcap(compst, IOpenCapture, tree->cap, tree->key, 0);
- codegen(compst, sib1(tree), 0, tt, fl);
- addinstcap(compst, ICloseCapture, Cclose, 0, 0);
- }
-}
-
-
-static void coderuntime (CompileState *compst, TTree *tree, int tt) {
- addinstcap(compst, IOpenCapture, Cgroup, tree->key, 0);
- codegen(compst, sib1(tree), 0, tt, fullset);
- addinstcap(compst, ICloseRunTime, Cclose, 0, 0);
-}
-
-
-/*
-** Repetion; optimizations:
-** When pattern is a charset, can use special instruction ISpan.
-** When pattern is head fail, or if it starts with characters that
-** are disjoint from what follows the repetions, a simple test
-** is enough (a fail inside the repetition would backtrack to fail
-** again in the following pattern, so there is no need for a choice).
-** When 'opt' is true, the repetion can reuse the Choice already
-** active in the stack.
-*/
-static void coderep (CompileState *compst, TTree *tree, int opt,
- const Charset *fl) {
- Charset st;
- if (tocharset(tree, &st)) {
- addinstruction(compst, ISpan, 0);
- addcharset(compst, st.cs);
- }
- else {
- int e1 = getfirst(tree, fullset, &st);
- if (headfail(tree) || (!e1 && cs_disjoint(&st, fl))) {
- /* L1: test (fail(p1)) -> L2;
; jmp L1; L2: */
- int jmp;
- int test = codetestset(compst, &st, 0);
- codegen(compst, tree, opt, test, fullset);
- jmp = addoffsetinst(compst, IJmp);
- jumptohere(compst, test);
- jumptothere(compst, jmp, test);
- }
- else {
- /* test(fail(p1)) -> L2; choice L2; L1:
; partialcommit L1; L2: */
- /* or (if 'opt'): partialcommit L1; L1:
; partialcommit L1; */
- int commit, l2;
- int test = codetestset(compst, &st, e1);
- int pchoice = NOINST;
- if (opt)
- jumptohere(compst, addoffsetinst(compst, IPartialCommit));
- else
- pchoice = addoffsetinst(compst, IChoice);
- l2 = gethere(compst);
- codegen(compst, tree, 0, NOINST, fullset);
- commit = addoffsetinst(compst, IPartialCommit);
- jumptothere(compst, commit, l2);
- jumptohere(compst, pchoice);
- jumptohere(compst, test);
- }
- }
-}
-
-
-/*
-** Not predicate; optimizations:
-** In any case, if first test fails, 'not' succeeds, so it can jump to
-** the end. If pattern is headfail, that is all (it cannot fail
-** in other parts); this case includes 'not' of simple sets. Otherwise,
-** use the default code (a choice plus a failtwice).
-*/
-static void codenot (CompileState *compst, TTree *tree) {
- Charset st;
- int e = getfirst(tree, fullset, &st);
- int test = codetestset(compst, &st, e);
- if (headfail(tree)) /* test (fail(p1)) -> L1; fail; L1: */
- addinstruction(compst, IFail, 0);
- else {
- /* test(fail(p))-> L1; choice L1;
; failtwice; L1: */
- int pchoice = addoffsetinst(compst, IChoice);
- codegen(compst, tree, 0, NOINST, fullset);
- addinstruction(compst, IFailTwice, 0);
- jumptohere(compst, pchoice);
- }
- jumptohere(compst, test);
-}
-
-
-/*
-** change open calls to calls, using list 'positions' to find
-** correct offsets; also optimize tail calls
-*/
-static void correctcalls (CompileState *compst, int *positions,
- int from, int to) {
- int i;
- Instruction *code = compst->p->code;
- for (i = from; i < to; i += sizei(&code[i])) {
- if (code[i].i.code == IOpenCall) {
- int n = code[i].i.key; /* rule number */
- int rule = positions[n]; /* rule position */
- assert(rule == from || code[rule - 1].i.code == IRet);
- if (code[finaltarget(code, i + 2)].i.code == IRet) /* call; ret ? */
- code[i].i.code = IJmp; /* tail call */
- else
- code[i].i.code = ICall;
- jumptothere(compst, i, rule); /* call jumps to respective rule */
- }
- }
- assert(i == to);
-}
-
-
-/*
-** Code for a grammar:
-** call L1; jmp L2; L1: rule 1; ret; rule 2; ret; ...; L2:
-*/
-static void codegrammar (CompileState *compst, TTree *grammar) {
- int positions[MAXRULES];
- int rulenumber = 0;
- TTree *rule;
- int firstcall = addoffsetinst(compst, ICall); /* call initial rule */
- int jumptoend = addoffsetinst(compst, IJmp); /* jump to the end */
- int start = gethere(compst); /* here starts the initial rule */
- jumptohere(compst, firstcall);
- for (rule = sib1(grammar); rule->tag == TRule; rule = sib2(rule)) {
- positions[rulenumber++] = gethere(compst); /* save rule position */
- codegen(compst, sib1(rule), 0, NOINST, fullset); /* code rule */
- addinstruction(compst, IRet, 0);
- }
- assert(rule->tag == TTrue);
- jumptohere(compst, jumptoend);
- correctcalls(compst, positions, start, gethere(compst));
-}
-
-
-static void codecall (CompileState *compst, TTree *call) {
- int c = addoffsetinst(compst, IOpenCall); /* to be corrected later */
- getinstr(compst, c).i.key = sib2(call)->cap; /* rule number */
- assert(sib2(call)->tag == TRule);
-}
-
-
-/*
-** Code first child of a sequence
-** (second child is called in-place to allow tail call)
-** Return 'tt' for second child
-*/
-static int codeseq1 (CompileState *compst, TTree *p1, TTree *p2,
- int tt, const Charset *fl) {
- if (needfollow(p1)) {
- Charset fl1;
- getfirst(p2, fl, &fl1); /* p1 follow is p2 first */
- codegen(compst, p1, 0, tt, &fl1);
- }
- else /* use 'fullset' as follow */
- codegen(compst, p1, 0, tt, fullset);
- if (fixedlen(p1) != 0) /* can 'p1' consume anything? */
- return NOINST; /* invalidate test */
- else return tt; /* else 'tt' still protects sib2 */
-}
-
-
-/*
-** Main code-generation function: dispatch to auxiliar functions
-** according to kind of tree
-*/
-static void codegen (CompileState *compst, TTree *tree, int opt, int tt,
- const Charset *fl) {
- tailcall:
- switch (tree->tag) {
- case TChar: codechar(compst, tree->u.n, tt); break;
- case TAny: addinstruction(compst, IAny, 0); break;
- case TSet: codecharset(compst, treebuffer(tree), tt); break;
- case TTrue: break;
- case TFalse: addinstruction(compst, IFail, 0); break;
- case TChoice: codechoice(compst, sib1(tree), sib2(tree), opt, fl); break;
- case TRep: coderep(compst, sib1(tree), opt, fl); break;
- case TBehind: codebehind(compst, tree); break;
- case TNot: codenot(compst, sib1(tree)); break;
- case TAnd: codeand(compst, sib1(tree), tt); break;
- case TCapture: codecapture(compst, tree, tt, fl); break;
- case TRunTime: coderuntime(compst, tree, tt); break;
- case TGrammar: codegrammar(compst, tree); break;
- case TCall: codecall(compst, tree); break;
- case TSeq: {
- tt = codeseq1(compst, sib1(tree), sib2(tree), tt, fl); /* code 'p1' */
- /* codegen(compst, p2, opt, tt, fl); */
- tree = sib2(tree); goto tailcall;
- }
- default: assert(0);
- }
-}
-
-
-/*
-** Optimize jumps and other jump-like instructions.
-** * Update labels of instructions with labels to their final
-** destinations (e.g., choice L1; ... L1: jmp L2: becomes
-** choice L2)
-** * Jumps to other instructions that do jumps become those
-** instructions (e.g., jump to return becomes a return; jump
-** to commit becomes a commit)
-*/
-static void peephole (CompileState *compst) {
- Instruction *code = compst->p->code;
- int i;
- for (i = 0; i < compst->ncode; i += sizei(&code[i])) {
- switch (code[i].i.code) {
- case IChoice: case ICall: case ICommit: case IPartialCommit:
- case IBackCommit: case ITestChar: case ITestSet:
- case ITestAny: { /* instructions with labels */
- jumptothere(compst, i, finallabel(code, i)); /* optimize label */
- break;
- }
- case IJmp: {
- int ft = finaltarget(code, i);
- switch (code[ft].i.code) { /* jumping to what? */
- case IRet: case IFail: case IFailTwice:
- case IEnd: { /* instructions with unconditional implicit jumps */
- code[i] = code[ft]; /* jump becomes that instruction */
- code[i + 1].i.code = IAny; /* 'no-op' for target position */
- break;
- }
- case ICommit: case IPartialCommit:
- case IBackCommit: { /* inst. with unconditional explicit jumps */
- int fft = finallabel(code, ft);
- code[i] = code[ft]; /* jump becomes that instruction... */
- jumptothere(compst, i, fft); /* but must correct its offset */
- i--; /* reoptimize its label */
- break;
- }
- default: {
- jumptothere(compst, i, ft); /* optimize label */
- break;
- }
- }
- break;
- }
- default: break;
- }
- }
- assert(code[i - 1].i.code == IEnd);
-}
-
-
-/*
-** Compile a pattern
-*/
-Instruction *compile (lua_State *L, Pattern *p) {
- CompileState compst;
- compst.p = p; compst.ncode = 0; compst.L = L;
- reallocprog(L, p, 2); /* minimum initial size */
- codegen(&compst, p->tree, 0, NOINST, fullset);
- addinstruction(&compst, IEnd, 0);
- reallocprog(L, p, compst.ncode); /* set final size */
- peephole(&compst);
- return p->code;
-}
-
-
-/* }====================================================== */
-
diff --git a/OpenSource/lpeg/lpcode.h b/OpenSource/lpeg/lpcode.h
deleted file mode 100644
index 5c9d54f96..000000000
--- a/OpenSource/lpeg/lpcode.h
+++ /dev/null
@@ -1,34 +0,0 @@
-/*
-** $Id: lpcode.h,v 1.5 2013/04/04 21:24:45 roberto Exp $
-*/
-
-#if !defined(lpcode_h)
-#define lpcode_h
-
-#include "lua.h"
-
-#include "lptypes.h"
-#include "lptree.h"
-#include "lpvm.h"
-
-int tocharset (TTree *tree, Charset *cs);
-int checkaux (TTree *tree, int pred);
-int fixedlenx (TTree *tree, int count, int len);
-int hascaptures (TTree *tree);
-int lp_gc (lua_State *L);
-Instruction *compile (lua_State *L, Pattern *p);
-void reallocprog (lua_State *L, Pattern *p, int nsize);
-int sizei (const Instruction *i);
-
-
-#define PEnullable 0
-#define PEnofail 1
-
-#define nofail(t) checkaux(t, PEnofail)
-#define nullable(t) checkaux(t, PEnullable)
-
-#define fixedlen(t) fixedlenx(t, 0, 0)
-
-
-
-#endif
diff --git a/OpenSource/lpeg/lpeg-128.gif b/OpenSource/lpeg/lpeg-128.gif
deleted file mode 100644
index bbf5e78b8..000000000
Binary files a/OpenSource/lpeg/lpeg-128.gif and /dev/null differ
diff --git a/OpenSource/lpeg/lpeg.def b/OpenSource/lpeg/lpeg.def
deleted file mode 100644
index 0f1b9045f..000000000
--- a/OpenSource/lpeg/lpeg.def
+++ /dev/null
@@ -1,3 +0,0 @@
-LIBRARY "lpeg"
-EXPORTS
- luaopen_lpeg
diff --git a/OpenSource/lpeg/lpeg.html b/OpenSource/lpeg/lpeg.html
deleted file mode 100644
index 4747e304e..000000000
--- a/OpenSource/lpeg/lpeg.html
+++ /dev/null
@@ -1,1429 +0,0 @@
-
-
-
- LPeg - Parsing Expression Grammars For Lua
-
-
-
-
-
-
-
-
-
LPeg
-
- Parsing Expression Grammars For Lua, version 0.12
-
-
-
-
-
-
-
-
-
-
-
-
-
-LPeg is a new pattern-matching library for Lua,
-based on
-
-Parsing Expression Grammars (PEGs).
-This text is a reference manual for the library.
-For a more formal treatment of LPeg,
-as well as some discussion about its implementation,
-see
-
-A Text Pattern-Matching Tool based on Parsing Expression Grammars .
-(You may also be interested in my
-talk about LPeg
-given at the III Lua Workshop.)
-
-
-
-Following the Snobol tradition,
-LPeg defines patterns as first-class objects.
-That is, patterns are regular Lua values
-(represented by userdata).
-The library offers several functions to create
-and compose patterns.
-With the use of metamethods,
-several of these functions are provided as infix or prefix
-operators.
-On the one hand,
-the result is usually much more verbose than the typical
-encoding of patterns using the so called
-regular expressions
-(which typically are not regular expressions in the formal sense).
-On the other hand,
-first-class patterns allow much better documentation
-(as it is easy to comment the code,
-to break complex definitions in smaller parts, etc.)
-and are extensible,
-as we can define new functions to create and compose patterns.
-
-
-
-For a quick glance of the library,
-the following table summarizes its basic operations
-for creating patterns:
-
-
-Operator Description lpeg.P(string)Matches string literally lpeg.P(n)Matches exactly n characters lpeg.S(string)Matches any character in string (Set) lpeg.R("xy ")Matches any character between x and y (Range) patt^nMatches at least n repetitions of patt patt^-nMatches at most n repetitions of patt patt1 * patt2Matches patt1 followed by patt2 patt1 + patt2Matches patt1 or patt2
- (ordered choice) patt1 - patt2Matches patt1 if patt2 does not match -pattEquivalent to ("" - patt) #pattMatches patt but consumes no input lpeg.B(patt)Matches patt behind the current position,
- consuming no input
-
-
As a very simple example,
-lpeg.R("09")^1 creates a pattern that
-matches a non-empty sequence of digits.
-As a not so simple example,
--lpeg.P(1)
-(which can be written as lpeg.P(-1),
-or simply -1 for operations expecting a pattern)
-matches an empty string only if it cannot match a single character;
-so, it succeeds only at the end of the subject.
-
-
-
-LPeg also offers the re module[09]+).
-(This module is 260 lines of Lua code,
-and of course it uses LPeg to parse regular expressions and
-translate them to regular LPeg patterns.)
-
-
-
-
-
-
-
lpeg.match (pattern, subject [, init])
-
-The matching function.
-It attempts to match the given pattern against the subject string.
-If the match succeeds,
-returns the index in the subject of the first character after the match,
-or the captured values
-(if the pattern captured any value).
-
-
-
-An optional numeric argument init makes the match
-start at that position in the subject string.
-As usual in Lua libraries,
-a negative value counts from the end.
-
-
-
-Unlike typical pattern-matching functions,
-match works only in anchored mode;
-that is, it tries to match the pattern with a prefix of
-the given subject string (at position init),
-not with an arbitrary substring of the subject.
-So, if we want to find a pattern anywhere in a string,
-we must either write a loop in Lua or write a pattern that
-matches anywhere.
-This second approach is easy and quite efficient;
-see examples .
-
-
-
lpeg.type (value)
-
-If the given value is a pattern,
-returns the string "pattern".
-Otherwise returns nil.
-
-
-
lpeg.version ()
-
-Returns a string with the running version of LPeg.
-
-
-
lpeg.setmaxstack (max)
-
-Sets the maximum size for the backtrack stack used by LPeg to
-track calls and choices.
-Most well-written patterns need little backtrack levels and
-therefore you seldom need to change this maximum;
-but a few useful patterns may need more space.
-Before changing this maximum you should try to rewrite your
-pattern to avoid the need for extra space.
-
-
-
-
-
-
-The following operations build patterns.
-All operations that expect a pattern as an argument
-may receive also strings, tables, numbers, booleans, or functions,
-which are translated to patterns according to
-the rules of function lpeg.P
-
-
-
-
lpeg.P (value)
-
-Converts the given value into a proper pattern,
-according to the following rules:
-
-
-
-
-If the argument is a pattern,
-it is returned unmodified.
-
-If the argument is a string,
-it is translated to a pattern that matches the string literally.
-
-If the argument is a non-negative number n ,
-the result is a pattern that matches exactly n characters.
-
-If the argument is a negative number -n ,
-the result is a pattern that
-succeeds only if the input string has less than n characters left:
-lpeg.P(-n)
-is equivalent to -lpeg.P(n)
-(see the unary minus operation ).
-
-If the argument is a boolean,
-the result is a pattern that always succeeds or always fails
-(according to the boolean value),
-without consuming any input.
-
-If the argument is a table,
-it is interpreted as a grammar
-(see Grammars ).
-
-If the argument is a function,
-returns a pattern equivalent to a
-match-time capture over the empty string.
-
-
-
-
lpeg.B(patt)
-
-Returns a pattern that
-matches only if the input string at the current position
-is preceded by patt.
-Pattern patt must match only strings
-with some fixed length,
-and it cannot contain captures.
-
-
-
-Like the and predicate ,
-this pattern never consumes any input,
-independently of success or failure.
-
-
-
-
lpeg.R ({range})
-
-Returns a pattern that matches any single character
-belonging to one of the given ranges .
-Each range is a string xy of length 2,
-representing all characters with code
-between the codes of x and y
-(both inclusive).
-
-
-
-As an example, the pattern
-lpeg.R("09") matches any digit,
-and lpeg.R("az", "AZ") matches any ASCII letter.
-
-
-
-
lpeg.S (string)
-
-Returns a pattern that matches any single character that
-appears in the given string.
-(The S stands for Set .)
-
-
-
-As an example, the pattern
-lpeg.S("+-*/") matches any arithmetic operator.
-
-
-
-Note that, if s is a character
-(that is, a string of length 1),
-then lpeg.P(s) is equivalent to lpeg.S(s)
-which is equivalent to lpeg.R(s..s).
-Note also that both lpeg.S("") and lpeg.R()
-are patterns that always fail.
-
-
-
-
lpeg.V (v)
-
-This operation creates a non-terminal (a variable )
-for a grammar.
-The created non-terminal refers to the rule indexed by v
-in the enclosing grammar.
-(See Grammars for details.)
-
-
-
-
lpeg.locale ([table])
-
-Returns a table with patterns for matching some character classes
-according to the current locale.
-The table has fields named
-alnum,
-alpha,
-cntrl,
-digit,
-graph,
-lower,
-print,
-punct,
-space,
-upper, and
-xdigit,
-each one containing a correspondent pattern.
-Each pattern matches any single character that belongs to its class.
-
-
-
-If called with an argument table,
-then it creates those fields inside the given table and
-returns that table.
-
-
-
-
#patt
-
-Returns a pattern that
-matches only if the input string matches patt,
-but without consuming any input,
-independently of success or failure.
-(This pattern is called an and predicate
-and it is equivalent to
-&patt in the original PEG notation.)
-
-
-
-
-This pattern never produces any capture.
-
-
-
-
-patt
-
-Returns a pattern that
-matches only if the input string does not match patt.
-It does not consume any input,
-independently of success or failure.
-(This pattern is equivalent to
-!patt in the original PEG notation.)
-
-
-
-As an example, the pattern
--lpeg.P(1) matches only the end of string.
-
-
-
-This pattern never produces any captures,
-because either patt fails
-or -patt fails.
-(A failing pattern never produces captures.)
-
-
-
-
patt1 + patt2
-
-Returns a pattern equivalent to an ordered choice
-of patt1 and patt2.
-(This is denoted by patt1 / patt2 in the original PEG notation,
-not to be confused with the / operation in LPeg.)
-It matches either patt1 or patt2,
-with no backtracking once one of them succeeds.
-The identity element for this operation is the pattern
-lpeg.P(false),
-which always fails.
-
-
-
-If both patt1 and patt2 are
-character sets,
-this operation is equivalent to set union.
-
-
-lower = lpeg.R("az")
-upper = lpeg.R("AZ")
-letter = lower + upper
-
-
-
-
patt1 - patt2
-
-Returns a pattern equivalent to !patt2 patt1 .
-This pattern asserts that the input does not match
-patt2 and then matches patt1.
-
-
-
-When successful,
-this pattern produces all captures from patt1.
-It never produces any capture from patt2
-(as either patt2 fails or
-patt1 - patt2 fails).
-
-
-
-If both patt1 and patt2 are
-character sets,
-this operation is equivalent to set difference.
-Note that -patt is equivalent to "" - patt
-(or 0 - patt).
-If patt is a character set,
-1 - patt is its complement.
-
-
-
-
patt1 * patt2
-
-Returns a pattern that matches patt1
-and then matches patt2,
-starting where patt1 finished.
-The identity element for this operation is the
-pattern lpeg.P(true),
-which always succeeds.
-
-
-
-(LPeg uses the * operator
-[instead of the more obvious ..]
-both because it has
-the right priority and because in formal languages it is
-common to use a dot for denoting concatenation.)
-
-
-
-
patt^n
-
-If n is nonnegative,
-this pattern is
-equivalent to pattn patt* :
-It matches n or more occurrences of patt.
-
-
-
-Otherwise, when n is negative,
-this pattern is equivalent to (patt?)-n :
-It matches at most |n|
-occurrences of patt.
-
-
-
-In particular, patt^0 is equivalent to patt* ,
-patt^1 is equivalent to patt+ ,
-and patt^-1 is equivalent to patt?
-in the original PEG notation.
-
-
-
-In all cases,
-the resulting pattern is greedy with no backtracking
-(also called a possessive repetition).
-That is, it matches only the longest possible sequence
-of matches for patt.
-
-
-
-
-
-
-
-With the use of Lua variables,
-it is possible to define patterns incrementally,
-with each new pattern using previously defined ones.
-However, this technique does not allow the definition of
-recursive patterns.
-For recursive patterns,
-we need real grammars.
-
-
-
-LPeg represents grammars with tables,
-where each entry is a rule.
-
-
-
-The call lpeg.V(v)
-creates a pattern that represents the nonterminal
-(or variable ) with index v in a grammar.
-Because the grammar still does not exist when
-this function is evaluated,
-the result is an open reference to the respective rule.
-
-
-
-A table is fixed when it is converted to a pattern
-(either by calling lpeg.P or by using it wherein a
-pattern is expected).
-Then every open reference created by lpeg.V(v)
-is corrected to refer to the rule indexed by v in the table.
-
-
-
-When a table is fixed,
-the result is a pattern that matches its initial rule .
-The entry with index 1 in the table defines its initial rule.
-If that entry is a string,
-it is assumed to be the name of the initial rule.
-Otherwise, LPeg assumes that the entry 1 itself is the initial rule.
-
-
-
-As an example,
-the following grammar matches strings of a's and b's that
-have the same number of a's and b's:
-
-
-equalcount = lpeg.P{
- "S"; -- initial rule name
- S = "a" * lpeg.V"B" + "b" * lpeg.V"A" + "",
- A = "a" * lpeg.V"S" + "b" * lpeg.V"A" * lpeg.V"A",
- B = "b" * lpeg.V"S" + "a" * lpeg.V"B" * lpeg.V"B",
-} * -1
-
-
-It is equivalent to the following grammar in standard PEG notation:
-
-
- S <- 'a' B / 'b' A / ''
- A <- 'a' S / 'b' A A
- B <- 'b' S / 'a' B B
-
-
-
-
-
-
-A capture is a pattern that creates values
-(the so called semantic information ) when it matches.
-LPeg offers several kinds of captures,
-which produces values based on matches and combine these values to
-produce new values.
-Each capture may produce zero or more values.
-
-
-
-The following table summarizes the basic captures:
-
-
-Operation What it Produces lpeg.C(patt)the match for patt plus all captures
- made by patt lpeg.Carg(n)the value of the nth extra argument to
- lpeg.match (matches the empty string) lpeg.Cb(name)the values produced by the previous
- group capture named name
- (matches the empty string) lpeg.Cc(values)the given values (matches the empty string) lpeg.Cf(patt, func)a folding of the captures from patt lpeg.Cg(patt [, name])the values produced by patt,
- optionally tagged with name lpeg.Cp()the current position (matches the empty string) lpeg.Cs(patt)the match for patt
- with the values from nested captures replacing their matches lpeg.Ct(patt)a table with all captures from patt patt / stringstring, with some marks replaced by captures
- of pattpatt / numberthe n-th value captured by patt,
-or no value when number is zero. patt / tabletable[c], where c is the (first)
- capture of pattpatt / functionthe returns of function applied to the captures
- of patt lpeg.Cmt(patt, function)the returns of function applied to the captures
- of patt; the application is done at match time
-
-
-A capture pattern produces its values every time it succeeds.
-For instance,
-a capture inside a loop produces as many values as matched by the loop.
-A capture produces a value only when it succeeds.
-For instance,
-the pattern lpeg.C(lpeg.P"a"^-1)
-produces the empty string when there is no "a"
-(because the pattern "a"? succeeds),
-while the pattern lpeg.C("a")^-1
-does not produce any value when there is no "a"
-(because the pattern "a" fails).
-
-
-
-Usually,
-LPeg evaluates all captures only after (and if) the entire match succeeds.
-During match time it only gathers enough information
-to produce the capture values later.
-As a particularly important consequence,
-most captures cannot affect the way a pattern matches a subject.
-The only exception to this rule is the
-so-called match-time capture
-
-
lpeg.C (patt)
-
-Creates a simple capture ,
-which captures the substring of the subject that matches patt.
-The captured value is a string.
-If patt has other captures,
-their values are returned after this one.
-
-
-
-
lpeg.Carg (n)
-
-Creates an argument capture .
-This pattern matches the empty string and
-produces the value given as the nth extra
-argument given in the call to lpeg.match.
-
-
-
-
lpeg.Cb (name)
-
-Creates a back capture .
-This pattern matches the empty string and
-produces the values produced by the most recent
-group capture named name.
-
-
-
-Most recent means the last
-complete
-outermost
-group capture with the given name.
-A Complete capture means that the entire pattern
-corresponding to the capture has matched.
-An Outermost capture means that the capture is not inside
-another complete capture.
-
-
-
-
lpeg.Cc ([value, ...])
-
-Creates a constant capture .
-This pattern matches the empty string and
-produces all given values as its captured values.
-
-
-
-
lpeg.Cf (patt, func)
-
-Creates a fold capture .
-If patt produces a list of captures
-C1 C2 ... Cn ,
-this capture will produce the value
-func(...func(func(C1 , C2 ), C3 )...,
- Cn ) ,
-that is, it will fold
-(or accumulate , or reduce )
-the captures from patt using function func.
-
-
-
-This capture assumes that patt should produce
-at least one capture with at least one value (of any type),
-which becomes the initial value of an accumulator .
-(If you need a specific initial value,
-you may prefix a constant capture to patt.)
-For each subsequent capture,
-LPeg calls func
-with this accumulator as the first argument and all values produced
-by the capture as extra arguments;
-the first result from this call
-becomes the new value for the accumulator.
-The final value of the accumulator becomes the captured value.
-
-
-
-As an example,
-the following pattern matches a list of numbers separated
-by commas and returns their addition:
-
-
--- matches a numeral and captures its numerical value
-number = lpeg.R"09"^1 / tonumber
-
--- matches a list of numbers, capturing their values
-list = number * ("," * number)^0
-
--- auxiliary function to add two numbers
-function add (acc, newvalue) return acc + newvalue end
-
--- folds the list of numbers adding them
-sum = lpeg.Cf(list, add)
-
--- example of use
-print(sum:match("10,30,43")) --> 83
-
-
-
-
lpeg.Cg (patt [, name])
-
-Creates a group capture .
-It groups all values returned by patt
-into a single capture.
-The group may be anonymous (if no name is given)
-or named with the given name.
-
-
-
-An anonymous group serves to join values from several captures into
-a single capture.
-A named group has a different behavior.
-In most situations, a named group returns no values at all.
-Its values are only relevant for a following
-back capture or when used
-inside a table capture .
-
-
-
-
lpeg.Cp ()
-
-Creates a position capture .
-It matches the empty string and
-captures the position in the subject where the match occurs.
-The captured value is a number.
-
-
-
-
lpeg.Cs (patt)
-
-Creates a substitution capture ,
-which captures the substring of the subject that matches patt,
-with substitutions .
-For any capture inside patt with a value,
-the substring that matched the capture is replaced by the capture value
-(which should be a string).
-The final captured value is the string resulting from
-all replacements.
-
-
-
-
lpeg.Ct (patt)
-
-Creates a table capture .
-This capture creates a table and puts all values from all anonymous captures
-made by patt inside this table in successive integer keys,
-starting at 1.
-Moreover,
-for each named capture group created by patt,
-the first value of the group is put into the table
-with the group name as its key.
-The captured value is only the table.
-
-
-
-
patt / string
-
-Creates a string capture .
-It creates a capture string based on string.
-The captured value is a copy of string,
-except that the character % works as an escape character:
-any sequence in string of the form %n ,
-with n between 1 and 9,
-stands for the match of the n -th capture in patt.
-The sequence %0 stands for the whole match.
-The sequence %% stands for a single %.
-
-
-
-
patt / number
-
-Creates a numbered capture .
-For a non-zero number,
-the captured value is the n-th value
-captured by patt.
-When number is zero,
-there are no captured values.
-
-
-
-
patt / table
-
-Creates a query capture .
-It indexes the given table using as key the first value captured by
-patt,
-or the whole match if patt produced no value.
-The value at that index is the final value of the capture.
-If the table does not have that key,
-there is no captured value.
-
-
-
-
patt / function
-
-Creates a function capture .
-It calls the given function passing all captures made by
-patt as arguments,
-or the whole match if patt made no capture.
-The values returned by the function
-are the final values of the capture.
-In particular,
-if function returns no value,
-there is no captured value.
-
-
-
-
lpeg.Cmt(patt, function)
-
-Creates a match-time capture .
-Unlike all other captures,
-this one is evaluated immediately when a match occurs.
-It forces the immediate evaluation of all its nested captures
-and then calls function.
-
-
-
-The given function gets as arguments the entire subject,
-the current position (after the match of patt),
-plus any capture values produced by patt.
-
-
-
-The first value returned by function
-defines how the match happens.
-If the call returns a number,
-the match succeeds
-and the returned number becomes the new current position.
-(Assuming a subject s and current position i ,
-the returned number must be in the range [i, len(s) + 1] .)
-If the call returns true ,
-the match succeeds without consuming any input.
-(So, to return true is equivalent to return i .)
-If the call returns false , nil , or no value,
-the match fails.
-
-
-
-Any extra values returned by the function become the
-values produced by the capture.
-
-
-
-
-
-
-
-
Using a Pattern
-
-This example shows a very simple but complete program
-that builds and uses a pattern:
-
-
-local lpeg = require "lpeg"
-
--- matches a word followed by end-of-string
-p = lpeg.R"az"^1 * -1
-
-print(p:match("hello")) --> 6
-print(lpeg.match(p, "hello")) --> 6
-print(p:match("1 hello")) --> nil
-
-
-The pattern is simply a sequence of one or more lower-case letters
-followed by the end of string (-1).
-The program calls match both as a method
-and as a function.
-In both sucessful cases,
-the match returns
-the index of the first character after the match,
-which is the string length plus one.
-
-
-
-
Name-value lists
-
-This example parses a list of name-value pairs and returns a table
-with those pairs:
-
-
-lpeg.locale(lpeg) -- adds locale entries into 'lpeg' table
-
-local space = lpeg.space^0
-local name = lpeg.C(lpeg.alpha^1) * space
-local sep = lpeg.S(",;") * space
-local pair = lpeg.Cg(name * "=" * space * name) * sep^-1
-local list = lpeg.Cf(lpeg.Ct("") * pair^0, rawset)
-t = list:match("a=b, c = hi; next = pi") --> { a = "b", c = "hi", next = "pi" }
-
-
-Each pair has the format name = name followed by
-an optional separator (a comma or a semicolon).
-The pair pattern encloses the pair in a group pattern,
-so that the names become the values of a single capture.
-The list pattern then folds these captures.
-It starts with an empty table,
-created by a table capture matching an empty string;
-then for each capture (a pair of names) it applies rawset
-over the accumulator (the table) and the capture values (the pair of names).
-rawset returns the table itself,
-so the accumulator is always the table.
-
-
-
Splitting a string
-
-The following code builds a pattern that
-splits a string using a given pattern
-sep as a separator:
-
-
-function split (s, sep)
- sep = lpeg.P(sep)
- local elem = lpeg.C((1 - sep)^0)
- local p = elem * (sep * elem)^0
- return lpeg.match(p, s)
-end
-
-
-First the function ensures that sep is a proper pattern.
-The pattern elem is a repetition of zero of more
-arbitrary characters as long as there is not a match against
-the separator.
-It also captures its match.
-The pattern p matches a list of elements separated
-by sep.
-
-
-
-If the split results in too many values,
-it may overflow the maximum number of values
-that can be returned by a Lua function.
-In this case,
-we can collect these values in a table:
-
-
-function split (s, sep)
- sep = lpeg.P(sep)
- local elem = lpeg.C((1 - sep)^0)
- local p = lpeg.Ct(elem * (sep * elem)^0) -- make a table capture
- return lpeg.match(p, s)
-end
-
-
-
-
Searching for a pattern
-
-The primitive match works only in anchored mode.
-If we want to find a pattern anywhere in a string,
-we must write a pattern that matches anywhere.
-
-
-
-Because patterns are composable,
-we can write a function that,
-given any arbitrary pattern p,
-returns a new pattern that searches for p
-anywhere in a string.
-There are several ways to do the search.
-One way is like this:
-
-
-function anywhere (p)
- return lpeg.P{ p + 1 * lpeg.V(1) }
-end
-
-
-This grammar has a straight reading:
-it matches p or skips one character and tries again.
-
-
-
-If we want to know where the pattern is in the string
-(instead of knowing only that it is there somewhere),
-we can add position captures to the pattern:
-
-
-local I = lpeg.Cp()
-function anywhere (p)
- return lpeg.P{ I * p * I + 1 * lpeg.V(1) }
-end
-
-print(anywhere("world"):match("hello world!")) -> 7 12
-
-
-
-Another option for the search is like this:
-
-
-local I = lpeg.Cp()
-function anywhere (p)
- return (1 - lpeg.P(p))^0 * I * p * I
-end
-
-
-Again the pattern has a straight reading:
-it skips as many characters as possible while not matching p,
-and then matches p (plus appropriate captures).
-
-
-
-If we want to look for a pattern only at word boundaries,
-we can use the following transformer:
-
-
-
-local t = lpeg.locale()
-
-function atwordboundary (p)
- return lpeg.P{
- [1] = p + t.alpha^0 * (1 - t.alpha)^1 * lpeg.V(1)
- }
-end
-
-
-
-
-
-The following pattern matches only strings with balanced parentheses:
-
-
-b = lpeg.P{ "(" * ((1 - lpeg.S"()") + lpeg.V(1))^0 * ")" }
-
-
-Reading the first (and only) rule of the given grammar,
-we have that a balanced string is
-an open parenthesis,
-followed by zero or more repetitions of either
-a non-parenthesis character or
-a balanced string (lpeg.V(1)),
-followed by a closing parenthesis.
-
-
-
-
Global substitution
-
-The next example does a job somewhat similar to string.gsub.
-It receives a pattern and a replacement value,
-and substitutes the replacement value for all occurrences of the pattern
-in a given string:
-
-
-function gsub (s, patt, repl)
- patt = lpeg.P(patt)
- patt = lpeg.Cs((patt / repl + 1)^0)
- return lpeg.match(patt, s)
-end
-
-
-As in string.gsub,
-the replacement value can be a string,
-a function, or a table.
-
-
-
-
-
-This example breaks a string into comma-separated values,
-returning all fields:
-
-
-local field = '"' * lpeg.Cs(((lpeg.P(1) - '"') + lpeg.P'""' / '"')^0) * '"' +
- lpeg.C((1 - lpeg.S',\n"')^0)
-
-local record = field * (',' * field)^0 * (lpeg.P'\n' + -1)
-
-function csv (s)
- return lpeg.match(record, s)
-end
-
-
-A field is either a quoted field
-(which may contain any character except an individual quote,
-which may be written as two quotes that are replaced by one)
-or an unquoted field
-(which cannot contain commas, newlines, or quotes).
-A record is a list of fields separated by commas,
-ending with a newline or the string end (-1).
-
-
-
-As it is,
-the previous pattern returns each field as a separated result.
-If we add a table capture in the definition of record,
-the pattern will return instead a single table
-containing all fields:
-
-
-local record = lpeg.Ct(field * (',' * field)^0) * (lpeg.P'\n' + -1)
-
-
-
-
UTF-8 and Latin 1
-
-It is not difficult to use LPeg to convert a string from
-UTF-8 encoding to Latin 1 (ISO 8859-1):
-
-
-
--- convert a two-byte UTF-8 sequence to a Latin 1 character
-local function f2 (s)
- local c1, c2 = string.byte(s, 1, 2)
- return string.char(c1 * 64 + c2 - 12416)
-end
-
-local utf8 = lpeg.R("\0\127")
- + lpeg.R("\194\195") * lpeg.R("\128\191") / f2
-
-local decode_pattern = lpeg.Cs(utf8^0) * -1
-
-
-In this code,
-the definition of UTF-8 is already restricted to the
-Latin 1 range (from 0 to 255).
-Any encoding outside this range (as well as any invalid encoding)
-will not match that pattern.
-
-
-
-As the definition of decode_pattern demands that
-the pattern matches the whole input (because of the -1 at its end),
-any invalid string will simply fail to match,
-without any useful information about the problem.
-We can improve this situation redefining decode_pattern
-as follows:
-
-
-local function er (_, i) error("invalid encoding at position " .. i) end
-
-local decode_pattern = lpeg.Cs(utf8^0) * (-1 + lpeg.P(er))
-
-
-Now, if the pattern utf8^0 stops
-before the end of the string,
-an appropriate error function is called.
-
-
-
-
UTF-8 and Unicode
-
-We can extend the previous patterns to handle all Unicode code points.
-Of course,
-we cannot translate them to Latin 1 or any other one-byte encoding.
-Instead, our translation results in a array with the code points
-represented as numbers.
-The full code is here:
-
-
--- decode a two-byte UTF-8 sequence
-local function f2 (s)
- local c1, c2 = string.byte(s, 1, 2)
- return c1 * 64 + c2 - 12416
-end
-
--- decode a three-byte UTF-8 sequence
-local function f3 (s)
- local c1, c2, c3 = string.byte(s, 1, 3)
- return (c1 * 64 + c2) * 64 + c3 - 925824
-end
-
--- decode a four-byte UTF-8 sequence
-local function f4 (s)
- local c1, c2, c3, c4 = string.byte(s, 1, 4)
- return ((c1 * 64 + c2) * 64 + c3) * 64 + c4 - 63447168
-end
-
-local cont = lpeg.R("\128\191") -- continuation byte
-
-local utf8 = lpeg.R("\0\127") / string.byte
- + lpeg.R("\194\223") * cont / f2
- + lpeg.R("\224\239") * cont * cont / f3
- + lpeg.R("\240\244") * cont * cont * cont / f4
-
-local decode_pattern = lpeg.Ct(utf8^0) * -1
-
-
-
-
Lua's long strings
-
-A long string in Lua starts with the pattern [=*[
-and ends at the first occurrence of ]=*] with
-exactly the same number of equal signs.
-If the opening brackets are followed by a newline,
-this newline is discarded
-(that is, it is not part of the string).
-
-
-
-To match a long string in Lua,
-the pattern must capture the first repetition of equal signs and then,
-whenever it finds a candidate for closing the string,
-check whether it has the same number of equal signs.
-
-
-
-equals = lpeg.P"="^0
-open = "[" * lpeg.Cg(equals, "init") * "[" * lpeg.P"\n"^-1
-close = "]" * lpeg.C(equals) * "]"
-closeeq = lpeg.Cmt(close * lpeg.Cb("init"), function (s, i, a, b) return a == b end)
-string = open * lpeg.C((lpeg.P(1) - closeeq)^0) * close / 1
-
-
-
-The open pattern matches [=*[,
-capturing the repetitions of equal signs in a group named init;
-it also discharges an optional newline, if present.
-The close pattern matches ]=*],
-also capturing the repetitions of equal signs.
-The closeeq pattern first matches close;
-then it uses a back capture to recover the capture made
-by the previous open,
-which is named init;
-finally it uses a match-time capture to check
-whether both captures are equal.
-The string pattern starts with an open,
-then it goes as far as possible until matching closeeq,
-and then matches the final close.
-The final numbered capture simply discards
-the capture made by close.
-
-
-
-
Arithmetic expressions
-
-This example is a complete parser and evaluator for simple
-arithmetic expressions.
-We write it in two styles.
-The first approach first builds a syntax tree and then
-traverses this tree to compute the expression value:
-
-
--- Lexical Elements
-local Space = lpeg.S(" \n\t")^0
-local Number = lpeg.C(lpeg.P"-"^-1 * lpeg.R("09")^1) * Space
-local TermOp = lpeg.C(lpeg.S("+-")) * Space
-local FactorOp = lpeg.C(lpeg.S("*/")) * Space
-local Open = "(" * Space
-local Close = ")" * Space
-
--- Grammar
-local Exp, Term, Factor = lpeg.V"Exp", lpeg.V"Term", lpeg.V"Factor"
-G = lpeg.P{ Exp,
- Exp = lpeg.Ct(Term * (TermOp * Term)^0);
- Term = lpeg.Ct(Factor * (FactorOp * Factor)^0);
- Factor = Number + Open * Exp * Close;
-}
-
-G = Space * G * -1
-
--- Evaluator
-function eval (x)
- if type(x) == "string" then
- return tonumber(x)
- else
- local op1 = eval(x[1])
- for i = 2, #x, 2 do
- local op = x[i]
- local op2 = eval(x[i + 1])
- if (op == "+") then op1 = op1 + op2
- elseif (op == "-") then op1 = op1 - op2
- elseif (op == "*") then op1 = op1 * op2
- elseif (op == "/") then op1 = op1 / op2
- end
- end
- return op1
- end
-end
-
--- Parser/Evaluator
-function evalExp (s)
- local t = lpeg.match(G, s)
- if not t then error("syntax error", 2) end
- return eval(t)
-end
-
--- small example
-print(evalExp"3 + 5*9 / (1+1) - 12") --> 13.5
-
-
-
-The second style computes the expression value on the fly,
-without building the syntax tree.
-The following grammar takes this approach.
-(It assumes the same lexical elements as before.)
-
-
--- Auxiliary function
-function eval (v1, op, v2)
- if (op == "+") then return v1 + v2
- elseif (op == "-") then return v1 - v2
- elseif (op == "*") then return v1 * v2
- elseif (op == "/") then return v1 / v2
- end
-end
-
--- Grammar
-local V = lpeg.V
-G = lpeg.P{ "Exp",
- Exp = lpeg.Cf(V"Term" * lpeg.Cg(TermOp * V"Term")^0, eval);
- Term = lpeg.Cf(V"Factor" * lpeg.Cg(FactorOp * V"Factor")^0, eval);
- Factor = Number / tonumber + Open * V"Exp" * Close;
-}
-
--- small example
-print(lpeg.match(G, "3 + 5*9 / (1+1) - 12")) --> 13.5
-
-
-Note the use of the fold (accumulator) capture.
-To compute the value of an expression,
-the accumulator starts with the value of the first term,
-and then applies eval over
-the accumulator, the operator,
-and the new term for each repetition.
-
-
-
-
-
-
-
LPeg
-source code .
-
-
-
-
-
-Copyright © 2013 Lua.org, PUC-Rio.
-
-
-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.
-
-
-
-
-
-
-
-
-$Id: lpeg.html,v 1.71 2013/04/11 19:17:41 roberto Exp $
-
-
-
-
-#include
-#include
-
-
-#include "lptypes.h"
-#include "lpprint.h"
-#include "lpcode.h"
-
-
-#if defined(LPEG_DEBUG)
-
-/*
-** {======================================================
-** Printing patterns (for debugging)
-** =======================================================
-*/
-
-
-void printcharset (const byte *st) {
- int i;
- printf("[");
- for (i = 0; i <= UCHAR_MAX; i++) {
- int first = i;
- while (testchar(st, i) && i <= UCHAR_MAX) i++;
- if (i - 1 == first) /* unary range? */
- printf("(%02x)", first);
- else if (i - 1 > first) /* non-empty range? */
- printf("(%02x-%02x)", first, i - 1);
- }
- printf("]");
-}
-
-
-static void printcapkind (int kind) {
- const char *const modes[] = {
- "close", "position", "constant", "backref",
- "argument", "simple", "table", "function",
- "query", "string", "num", "substitution", "fold",
- "runtime", "group"};
- printf("%s", modes[kind]);
-}
-
-
-static void printjmp (const Instruction *op, const Instruction *p) {
- printf("-> %d", (int)(p + (p + 1)->offset - op));
-}
-
-
-static void printinst (const Instruction *op, const Instruction *p) {
- const char *const names[] = {
- "any", "char", "set",
- "testany", "testchar", "testset",
- "span", "behind",
- "ret", "end",
- "choice", "jmp", "call", "open_call",
- "commit", "partial_commit", "back_commit", "failtwice", "fail", "giveup",
- "fullcapture", "opencapture", "closecapture", "closeruntime"
- };
- printf("%02ld: %s ", (long)(p - op), names[p->i.code]);
- switch ((Opcode)p->i.code) {
- case IChar: {
- printf("'%c'", p->i.aux);
- break;
- }
- case ITestChar: {
- printf("'%c'", p->i.aux); printjmp(op, p);
- break;
- }
- case IFullCapture: {
- printcapkind(getkind(p));
- printf(" (size = %d) (idx = %d)", getoff(p), p->i.key);
- break;
- }
- case IOpenCapture: {
- printcapkind(getkind(p));
- printf(" (idx = %d)", p->i.key);
- break;
- }
- case ISet: {
- printcharset((p+1)->buff);
- break;
- }
- case ITestSet: {
- printcharset((p+2)->buff); printjmp(op, p);
- break;
- }
- case ISpan: {
- printcharset((p+1)->buff);
- break;
- }
- case IOpenCall: {
- printf("-> %d", (p + 1)->offset);
- break;
- }
- case IBehind: {
- printf("%d", p->i.aux);
- break;
- }
- case IJmp: case ICall: case ICommit: case IChoice:
- case IPartialCommit: case IBackCommit: case ITestAny: {
- printjmp(op, p);
- break;
- }
- default: break;
- }
- printf("\n");
-}
-
-
-void printpatt (Instruction *p, int n) {
- Instruction *op = p;
- while (p < op + n) {
- printinst(op, p);
- p += sizei(p);
- }
-}
-
-
-#if defined(LPEG_DEBUG)
-static void printcap (Capture *cap) {
- printcapkind(cap->kind);
- printf(" (idx: %d - size: %d) -> %p\n", cap->idx, cap->siz, cap->s);
-}
-
-
-void printcaplist (Capture *cap, Capture *limit) {
- printf(">======\n");
- for (; cap->s && (limit == NULL || cap < limit); cap++)
- printcap(cap);
- printf("=======\n");
-}
-#endif
-
-/* }====================================================== */
-
-
-/*
-** {======================================================
-** Printing trees (for debugging)
-** =======================================================
-*/
-
-static const char *tagnames[] = {
- "char", "set", "any",
- "true", "false",
- "rep",
- "seq", "choice",
- "not", "and",
- "call", "opencall", "rule", "grammar",
- "behind",
- "capture", "run-time"
-};
-
-
-void printtree (TTree *tree, int ident) {
- int i;
- for (i = 0; i < ident; i++) printf(" ");
- printf("%s", tagnames[tree->tag]);
- switch (tree->tag) {
- case TChar: {
- int c = tree->u.n;
- if (isprint(c))
- printf(" '%c'\n", c);
- else
- printf(" (%02X)\n", c);
- break;
- }
- case TSet: {
- printcharset(treebuffer(tree));
- printf("\n");
- break;
- }
- case TOpenCall: case TCall: {
- printf(" key: %d\n", tree->key);
- break;
- }
- case TBehind: {
- printf(" %d\n", tree->u.n);
- printtree(sib1(tree), ident + 2);
- break;
- }
- case TCapture: {
- printf(" cap: %d key: %d n: %d\n", tree->cap, tree->key, tree->u.n);
- printtree(sib1(tree), ident + 2);
- break;
- }
- case TRule: {
- printf(" n: %d key: %d\n", tree->cap, tree->key);
- printtree(sib1(tree), ident + 2);
- break; /* do not print next rule as a sibling */
- }
- case TGrammar: {
- TTree *rule = sib1(tree);
- printf(" %d\n", tree->u.n); /* number of rules */
- for (i = 0; i < tree->u.n; i++) {
- printtree(rule, ident + 2);
- rule = sib2(rule);
- }
- assert(rule->tag == TTrue); /* sentinel */
- break;
- }
- default: {
- int sibs = numsiblings[tree->tag];
- printf("\n");
- if (sibs >= 1) {
- printtree(sib1(tree), ident + 2);
- if (sibs >= 2)
- printtree(sib2(tree), ident + 2);
- }
- break;
- }
- }
-}
-
-
-void printktable (lua_State *L, int idx) {
- int n, i;
- lua_getfenv(L, idx);
- if (lua_isnil(L, -1)) /* no ktable? */
- return;
- n = lua_objlen(L, -1);
- printf("[");
- for (i = 1; i <= n; i++) {
- printf("%d = ", i);
- lua_rawgeti(L, -1, i);
- if (lua_isstring(L, -1))
- printf("%s ", lua_tostring(L, -1));
- else
- printf("%s ", lua_typename(L, lua_type(L, -1)));
- lua_pop(L, 1);
- }
- printf("]\n");
- /* leave ktable at the stack */
-}
-
-/* }====================================================== */
-
-#endif
diff --git a/OpenSource/lpeg/lpprint.h b/OpenSource/lpeg/lpprint.h
deleted file mode 100644
index e640f744e..000000000
--- a/OpenSource/lpeg/lpprint.h
+++ /dev/null
@@ -1,35 +0,0 @@
-/*
-** $Id: lpprint.h,v 1.1 2013/03/21 20:25:12 roberto Exp $
-*/
-
-
-#if !defined(lpprint_h)
-#define lpprint_h
-
-
-#include "lptree.h"
-#include "lpvm.h"
-
-
-#if defined(LPEG_DEBUG)
-
-void printpatt (Instruction *p, int n);
-void printtree (TTree *tree, int ident);
-void printktable (lua_State *L, int idx);
-void printcharset (const byte *st);
-void printcaplist (Capture *cap, Capture *limit);
-
-#else
-
-#define printktable(L,idx) \
- luaL_error(L, "function only implemented in debug mode")
-#define printtree(tree,i) \
- luaL_error(L, "function only implemented in debug mode")
-#define printpatt(p,n) \
- luaL_error(L, "function only implemented in debug mode")
-
-#endif
-
-
-#endif
-
diff --git a/OpenSource/lpeg/lptree.c b/OpenSource/lpeg/lptree.c
deleted file mode 100644
index a5dfeb4ae..000000000
--- a/OpenSource/lpeg/lptree.c
+++ /dev/null
@@ -1,1232 +0,0 @@
-/*
-** $Id: lptree.c,v 1.10 2013/04/12 16:30:33 roberto Exp $
-** Copyright 2013, Lua.org & PUC-Rio (see 'lpeg.html' for license)
-*/
-
-#include
-#include
-#include
-
-
-#include "lua.h"
-#include "lauxlib.h"
-
-#include "lptypes.h"
-#include "lpcap.h"
-#include "lpcode.h"
-#include "lpprint.h"
-#include "lptree.h"
-
-
-/* number of siblings for each tree */
-const byte numsiblings[] = {
- 0, 0, 0, /* char, set, any */
- 0, 0, /* true, false */
- 1, /* rep */
- 2, 2, /* seq, choice */
- 1, 1, /* not, and */
- 0, 0, 2, 1, /* call, opencall, rule, grammar */
- 1, /* behind */
- 1, 1 /* capture, runtime capture */
-};
-
-
-static TTree *newgrammar (lua_State *L, int arg);
-
-
-/*
-** returns a reasonable name for value at index 'idx' on the stack
-*/
-static const char *val2str (lua_State *L, int idx) {
- const char *k = lua_tostring(L, idx);
- if (k != NULL)
- return lua_pushfstring(L, "%s", k);
- else
- return lua_pushfstring(L, "(a %s)", luaL_typename(L, idx));
-}
-
-
-/*
-** Fix a TOpenCall into a TCall node, using table 'postable' to
-** translate a key to its rule address in the tree. Raises an
-** error if key does not exist.
-*/
-static void fixonecall (lua_State *L, int postable, TTree *g, TTree *t) {
- int n;
- lua_rawgeti(L, -1, t->key); /* get rule's name */
- lua_gettable(L, postable); /* query name in position table */
- n = lua_tonumber(L, -1); /* get (absolute) position */
- lua_pop(L, 1); /* remove position */
- if (n == 0) { /* no position? */
- lua_rawgeti(L, -1, t->key); /* get rule's name again */
- luaL_error(L, "rule '%s' undefined in given grammar", val2str(L, -1));
- }
- t->tag = TCall;
- t->u.ps = n - (t - g); /* position relative to node */
- assert(sib2(t)->tag == TRule);
- sib2(t)->key = t->key;
-}
-
-
-/*
-** Transform left associative constructions into right
-** associative ones, for sequence and choice; that is:
-** (t11 + t12) + t2 => t11 + (t12 + t2)
-** (t11 * t12) * t2 => t11 * (t12 * t2)
-** (that is, Op (Op t11 t12) t2 => Op t11 (Op t12 t2))
-*/
-static void correctassociativity (TTree *tree) {
- TTree *t1 = sib1(tree);
- assert(tree->tag == TChoice || tree->tag == TSeq);
- while (t1->tag == tree->tag) {
- int n1size = tree->u.ps - 1; /* t1 == Op t11 t12 */
- int n11size = t1->u.ps - 1;
- int n12size = n1size - n11size - 1;
- memmove(sib1(tree), sib1(t1), n11size * sizeof(TTree)); /* move t11 */
- tree->u.ps = n11size + 1;
- sib2(tree)->tag = tree->tag;
- sib2(tree)->u.ps = n12size + 1;
- }
-}
-
-
-/*
-** Make final adjustments in a tree. Fix open calls in tree 't',
-** making them refer to their respective rules or raising appropriate
-** errors (if not inside a grammar). Correct associativity of associative
-** constructions (making them right associative). Assume that tree's
-** ktable is at the top of the stack (for error messages).
-*/
-static void finalfix (lua_State *L, int postable, TTree *g, TTree *t) {
- tailcall:
- switch (t->tag) {
- case TGrammar: /* subgrammars were already fixed */
- return;
- case TOpenCall: {
- if (g != NULL) /* inside a grammar? */
- fixonecall(L, postable, g, t);
- else { /* open call outside grammar */
- lua_rawgeti(L, -1, t->key);
- luaL_error(L, "rule '%s' used outside a grammar", val2str(L, -1));
- }
- break;
- }
- case TSeq: case TChoice:
- correctassociativity(t);
- break;
- }
- switch (numsiblings[t->tag]) {
- case 1: /* finalfix(L, postable, g, sib1(t)); */
- t = sib1(t); goto tailcall;
- case 2:
- finalfix(L, postable, g, sib1(t));
- t = sib2(t); goto tailcall; /* finalfix(L, postable, g, sib2(t)); */
- default: assert(numsiblings[t->tag] == 0); break;
- }
-}
-
-
-/*
-** {======================================================
-** Tree generation
-** =======================================================
-*/
-
-/*
-** In 5.2, could use 'luaL_testudata'...
-*/
-static int testpattern (lua_State *L, int idx) {
- if (lua_touserdata(L, idx)) { /* value is a userdata? */
- if (lua_getmetatable(L, idx)) { /* does it have a metatable? */
- luaL_getmetatable(L, PATTERN_T);
- if (lua_rawequal(L, -1, -2)) { /* does it have the correct mt? */
- lua_pop(L, 2); /* remove both metatables */
- return 1;
- }
- }
- }
- return 0;
-}
-
-
-static Pattern *getpattern (lua_State *L, int idx) {
- return (Pattern *)luaL_checkudata(L, idx, PATTERN_T);
-}
-
-
-static int getsize (lua_State *L, int idx) {
- return (lua_objlen(L, idx) - sizeof(Pattern)) / sizeof(TTree) + 1;
-}
-
-
-static TTree *gettree (lua_State *L, int idx, int *len) {
- Pattern *p = getpattern(L, idx);
- if (len)
- *len = getsize(L, idx);
- return p->tree;
-}
-
-
-/*
-** create a pattern
-*/
-static TTree *newtree (lua_State *L, int len) {
- size_t size = (len - 1) * sizeof(TTree) + sizeof(Pattern);
- Pattern *p = (Pattern *)lua_newuserdata(L, size);
- luaL_getmetatable(L, PATTERN_T);
- lua_setmetatable(L, -2);
- p->code = NULL; p->codesize = 0;
- return p->tree;
-}
-
-
-static TTree *newleaf (lua_State *L, int tag) {
- TTree *tree = newtree(L, 1);
- tree->tag = tag;
- return tree;
-}
-
-
-static TTree *newcharset (lua_State *L) {
- TTree *tree = newtree(L, bytes2slots(CHARSETSIZE) + 1);
- tree->tag = TSet;
- loopset(i, treebuffer(tree)[i] = 0);
- return tree;
-}
-
-
-/*
-** add to tree a sequence where first sibling is 'sib' (with size
-** 'sibsize'); returns position for second sibling
-*/
-static TTree *seqaux (TTree *tree, TTree *sib, int sibsize) {
- tree->tag = TSeq; tree->u.ps = sibsize + 1;
- memcpy(sib1(tree), sib, sibsize * sizeof(TTree));
- return sib2(tree);
-}
-
-
-/*
-** Add element 'idx' to 'ktable' of pattern at the top of the stack;
-** create new 'ktable' if necessary. Return index of new element.
-*/
-static int addtoktable (lua_State *L, int idx) {
- if (idx == 0 || lua_isnil(L, idx)) /* no actual value to insert? */
- return 0;
- else {
- int n;
- lua_getfenv(L, -1); /* get ktable from pattern */
- n = lua_objlen(L, -1);
- if (n == 0) { /* is it empty/non-existent? */
- lua_pop(L, 1); /* remove it */
- lua_createtable(L, 1, 0); /* create a fresh table */
- }
- lua_pushvalue(L, idx); /* element to be added */
- lua_rawseti(L, -2, n + 1);
- lua_setfenv(L, -2); /* set it as ktable for pattern */
- return n + 1;
- }
-}
-
-
-/*
-** Build a sequence of 'n' nodes, each with tag 'tag' and 'u.n' got
-** from the array 's' (or 0 if array is NULL). (TSeq is binary, so it
-** must build a sequence of sequence of sequence...)
-*/
-static void fillseq (TTree *tree, int tag, int n, const char *s) {
- int i;
- for (i = 0; i < n - 1; i++) { /* initial n-1 copies of Seq tag; Seq ... */
- tree->tag = TSeq; tree->u.ps = 2;
- sib1(tree)->tag = tag;
- sib1(tree)->u.n = s ? (byte)s[i] : 0;
- tree = sib2(tree);
- }
- tree->tag = tag; /* last one does not need TSeq */
- tree->u.n = s ? (byte)s[i] : 0;
-}
-
-
-/*
-** Numbers as patterns:
-** 0 == true (always match); n == TAny repeated 'n' times;
-** -n == not (TAny repeated 'n' times)
-*/
-static TTree *numtree (lua_State *L, int n) {
- if (n == 0)
- return newleaf(L, TTrue);
- else {
- TTree *tree, *nd;
- if (n > 0)
- tree = nd = newtree(L, 2 * n - 1);
- else { /* negative: code it as !(-n) */
- n = -n;
- tree = newtree(L, 2 * n);
- tree->tag = TNot;
- nd = sib1(tree);
- }
- fillseq(nd, TAny, n, NULL); /* sequence of 'n' any's */
- return tree;
- }
-}
-
-
-/*
-** Convert value at index 'idx' to a pattern
-*/
-static TTree *getpatt (lua_State *L, int idx, int *len) {
- TTree *tree;
- switch (lua_type(L, idx)) {
- case LUA_TSTRING: {
- size_t slen;
- const char *s = lua_tolstring(L, idx, &slen); /* get string */
- if (slen == 0) /* empty? */
- tree = newleaf(L, TTrue); /* always match */
- else {
- tree = newtree(L, 2 * (slen - 1) + 1);
- fillseq(tree, TChar, slen, s); /* sequence of 'slen' chars */
- }
- break;
- }
- case LUA_TNUMBER: {
- int n = lua_tointeger(L, idx);
- tree = numtree(L, n);
- break;
- }
- case LUA_TBOOLEAN: {
- tree = (lua_toboolean(L, idx) ? newleaf(L, TTrue) : newleaf(L, TFalse));
- break;
- }
- case LUA_TTABLE: {
- tree = newgrammar(L, idx);
- break;
- }
- case LUA_TFUNCTION: {
- tree = newtree(L, 2);
- tree->tag = TRunTime;
- tree->key = addtoktable(L, idx);
- sib1(tree)->tag = TTrue;
- break;
- }
- default: {
- return gettree(L, idx, len);
- }
- }
- lua_replace(L, idx); /* put new tree into 'idx' slot */
- if (len)
- *len = getsize(L, idx);
- return tree;
-}
-
-
-/*
-** Return the number of elements in the ktable of pattern at 'idx'.
-** In Lua 5.2, default "environment" for patterns is nil, not
-** a table. Treat it as an empty table. In Lua 5.1, assumes that
-** the environment has no numeric indices (len == 0)
-*/
-static int ktablelen (lua_State *L, int idx) {
- if (!lua_istable(L, idx)) return 0;
- else return lua_objlen(L, idx);
-}
-
-
-/*
-** Concatentate the contents of table 'idx1' into table 'idx2'.
-** (Assume that both indices are negative.)
-** Return the original length of table 'idx2'
-*/
-static int concattable (lua_State *L, int idx1, int idx2) {
- int i;
- int n1 = ktablelen(L, idx1);
- int n2 = ktablelen(L, idx2);
- if (n1 == 0) return 0; /* nothing to correct */
- for (i = 1; i <= n1; i++) {
- lua_rawgeti(L, idx1, i);
- lua_rawseti(L, idx2 - 1, n2 + i); /* correct 'idx2' */
- }
- return n2;
-}
-
-
-/*
-** Make a merge of ktables from p1 and p2 the ktable for the new
-** pattern at the top of the stack.
-*/
-static int joinktables (lua_State *L, int p1, int p2) {
- int n1, n2;
- lua_getfenv(L, p1); /* get ktables */
- lua_getfenv(L, p2);
- n1 = ktablelen(L, -2);
- n2 = ktablelen(L, -1);
- if (n1 == 0 && n2 == 0) { /* are both tables empty? */
- lua_pop(L, 2); /* nothing to be done; pop tables */
- return 0; /* nothing to correct */
- }
- if (n2 == 0 || lua_equal(L, -2, -1)) { /* second table is empty or equal? */
- lua_pop(L, 1); /* pop 2nd table */
- lua_setfenv(L, -2); /* set 1st ktable into new pattern */
- return 0; /* nothing to correct */
- }
- if (n1 == 0) { /* first table is empty? */
- lua_setfenv(L, -3); /* set 2nd table into new pattern */
- lua_pop(L, 1); /* pop 1st table */
- return 0; /* nothing to correct */
- }
- else {
- lua_createtable(L, n1 + n2, 0); /* create ktable for new pattern */
- /* stack: new p; ktable p1; ktable p2; new ktable */
- concattable(L, -3, -1); /* from p1 into new ktable */
- concattable(L, -2, -1); /* from p2 into new ktable */
- lua_setfenv(L, -4); /* new ktable becomes p env */
- lua_pop(L, 2); /* pop other ktables */
- return n1; /* correction for indices from p2 */
- }
-}
-
-
-static void correctkeys (TTree *tree, int n) {
- if (n == 0) return; /* no correction? */
- tailcall:
- switch (tree->tag) {
- case TOpenCall: case TCall: case TRunTime: case TRule: {
- if (tree->key > 0)
- tree->key += n;
- break;
- }
- case TCapture: {
- if (tree->key > 0 && tree->cap != Carg && tree->cap != Cnum)
- tree->key += n;
- break;
- }
- default: break;
- }
- switch (numsiblings[tree->tag]) {
- case 1: /* correctkeys(sib1(tree), n); */
- tree = sib1(tree); goto tailcall;
- case 2:
- correctkeys(sib1(tree), n);
- tree = sib2(tree); goto tailcall; /* correctkeys(sib2(tree), n); */
- default: assert(numsiblings[tree->tag] == 0); break;
- }
-}
-
-
-/*
-** copy 'ktable' of element 'idx' to new tree (on top of stack)
-*/
-static void copyktable (lua_State *L, int idx) {
- lua_getfenv(L, idx);
- lua_setfenv(L, -2);
-}
-
-
-/*
-** merge 'ktable' from rule at stack index 'idx' into 'ktable'
-** from tree at the top of the stack, and correct corresponding
-** tree.
-*/
-static void mergektable (lua_State *L, int idx, TTree *rule) {
- int n;
- lua_getfenv(L, -1); /* get ktables */
- lua_getfenv(L, idx);
- n = concattable(L, -1, -2);
- lua_pop(L, 2); /* remove both ktables */
- correctkeys(rule, n);
-}
-
-
-/*
-** create a new tree, whith a new root and one sibling.
-** Sibling must be on the Lua stack, at index 1.
-*/
-static TTree *newroot1sib (lua_State *L, int tag) {
- int s1;
- TTree *tree1 = getpatt(L, 1, &s1);
- TTree *tree = newtree(L, 1 + s1); /* create new tree */
- tree->tag = tag;
- memcpy(sib1(tree), tree1, s1 * sizeof(TTree));
- copyktable(L, 1);
- return tree;
-}
-
-
-/*
-** create a new tree, whith a new root and 2 siblings.
-** Siblings must be on the Lua stack, first one at index 1.
-*/
-static TTree *newroot2sib (lua_State *L, int tag) {
- int s1, s2;
- TTree *tree1 = getpatt(L, 1, &s1);
- TTree *tree2 = getpatt(L, 2, &s2);
- TTree *tree = newtree(L, 1 + s1 + s2); /* create new tree */
- tree->tag = tag;
- tree->u.ps = 1 + s1;
- memcpy(sib1(tree), tree1, s1 * sizeof(TTree));
- memcpy(sib2(tree), tree2, s2 * sizeof(TTree));
- correctkeys(sib2(tree), joinktables(L, 1, 2));
- return tree;
-}
-
-
-static int lp_P (lua_State *L) {
- luaL_checkany(L, 1);
- getpatt(L, 1, NULL);
- lua_settop(L, 1);
- return 1;
-}
-
-
-/*
-** sequence operator; optimizations:
-** false x => false, x true => x, true x => x
-** (cannot do x . false => false because x may have runtime captures)
-*/
-static int lp_seq (lua_State *L) {
- TTree *tree1 = getpatt(L, 1, NULL);
- TTree *tree2 = getpatt(L, 2, NULL);
- if (tree1->tag == TFalse || tree2->tag == TTrue)
- lua_pushvalue(L, 1); /* false . x == false, x . true = x */
- else if (tree1->tag == TTrue)
- lua_pushvalue(L, 2); /* true . x = x */
- else
- newroot2sib(L, TSeq);
- return 1;
-}
-
-
-/*
-** choice operator; optimizations:
-** charset / charset => charset
-** true / x => true, x / false => x, false / x => x
-** (x / true is not equivalent to true)
-*/
-static int lp_choice (lua_State *L) {
- Charset st1, st2;
- TTree *t1 = getpatt(L, 1, NULL);
- TTree *t2 = getpatt(L, 2, NULL);
- if (tocharset(t1, &st1) && tocharset(t2, &st2)) {
- TTree *t = newcharset(L);
- loopset(i, treebuffer(t)[i] = st1.cs[i] | st2.cs[i]);
- }
- else if (nofail(t1) || t2->tag == TFalse)
- lua_pushvalue(L, 1); /* true / x => true, x / false => x */
- else if (t1->tag == TFalse)
- lua_pushvalue(L, 2); /* false / x => x */
- else
- newroot2sib(L, TChoice);
- return 1;
-}
-
-
-/*
-** p^n
-*/
-static int lp_star (lua_State *L) {
- int size1;
- int n = luaL_checkint(L, 2);
- TTree *tree1 = gettree(L, 1, &size1);
- if (n >= 0) { /* seq tree1 (seq tree1 ... (seq tree1 (rep tree1))) */
- TTree *tree = newtree(L, (n + 1) * (size1 + 1));
- if (nullable(tree1))
- luaL_error(L, "loop body may accept empty string");
- while (n--) /* repeat 'n' times */
- tree = seqaux(tree, tree1, size1);
- tree->tag = TRep;
- memcpy(sib1(tree), tree1, size1 * sizeof(TTree));
- }
- else { /* choice (seq tree1 ... choice tree1 true ...) true */
- TTree *tree;
- n = -n;
- /* size = (choice + seq + tree1 + true) * n, but the last has no seq */
- tree = newtree(L, n * (size1 + 3) - 1);
- for (; n > 1; n--) { /* repeat (n - 1) times */
- tree->tag = TChoice; tree->u.ps = n * (size1 + 3) - 2;
- sib2(tree)->tag = TTrue;
- tree = sib1(tree);
- tree = seqaux(tree, tree1, size1);
- }
- tree->tag = TChoice; tree->u.ps = size1 + 1;
- sib2(tree)->tag = TTrue;
- memcpy(sib1(tree), tree1, size1 * sizeof(TTree));
- }
- copyktable(L, 1);
- return 1;
-}
-
-
-/*
-** #p == &p
-*/
-static int lp_and (lua_State *L) {
- newroot1sib(L, TAnd);
- return 1;
-}
-
-
-/*
-** -p == !p
-*/
-static int lp_not (lua_State *L) {
- newroot1sib(L, TNot);
- return 1;
-}
-
-
-/*
-** [t1 - t2] == Seq (Not t2) t1
-** If t1 and t2 are charsets, make their difference.
-*/
-static int lp_sub (lua_State *L) {
- Charset st1, st2;
- int s1, s2;
- TTree *t1 = getpatt(L, 1, &s1);
- TTree *t2 = getpatt(L, 2, &s2);
- if (tocharset(t1, &st1) && tocharset(t2, &st2)) {
- TTree *t = newcharset(L);
- loopset(i, treebuffer(t)[i] = st1.cs[i] & ~st2.cs[i]);
- }
- else {
- TTree *tree = newtree(L, 2 + s1 + s2);
- tree->tag = TSeq; /* sequence of... */
- tree->u.ps = 2 + s2;
- sib1(tree)->tag = TNot; /* ...not... */
- memcpy(sib1(sib1(tree)), t2, s2 * sizeof(TTree)); /* ...t2 */
- memcpy(sib2(tree), t1, s1 * sizeof(TTree)); /* ... and t1 */
- correctkeys(sib1(tree), joinktables(L, 1, 2));
- }
- return 1;
-}
-
-
-static int lp_set (lua_State *L) {
- size_t l;
- const char *s = luaL_checklstring(L, 1, &l);
- TTree *tree = newcharset(L);
- while (l--) {
- setchar(treebuffer(tree), (byte)(*s));
- s++;
- }
- return 1;
-}
-
-
-static int lp_range (lua_State *L) {
- int arg;
- int top = lua_gettop(L);
- TTree *tree = newcharset(L);
- for (arg = 1; arg <= top; arg++) {
- int c;
- size_t l;
- const char *r = luaL_checklstring(L, arg, &l);
- luaL_argcheck(L, l == 2, arg, "range must have two characters");
- for (c = (byte)r[0]; c <= (byte)r[1]; c++)
- setchar(treebuffer(tree), c);
- }
- return 1;
-}
-
-
-/*
-** Look-behind predicate
-*/
-static int lp_behind (lua_State *L) {
- TTree *tree;
- TTree *tree1 = getpatt(L, 1, NULL);
- int n = fixedlen(tree1);
- luaL_argcheck(L, !hascaptures(tree1), 1, "pattern have captures");
- luaL_argcheck(L, n > 0, 1, "pattern may not have fixed length");
- luaL_argcheck(L, n <= MAXBEHIND, 1, "pattern too long to look behind");
- tree = newroot1sib(L, TBehind);
- tree->u.n = n;
- return 1;
-}
-
-
-/*
-** Create a non-terminal
-*/
-static int lp_V (lua_State *L) {
- TTree *tree = newleaf(L, TOpenCall);
- luaL_argcheck(L, !lua_isnoneornil(L, 1), 1, "non-nil value expected");
- tree->key = addtoktable(L, 1);
- return 1;
-}
-
-
-/*
-** Create a tree for a non-empty capture, with a body and
-** optionally with an associated Lua value (at index 'labelidx' in the
-** stack)
-*/
-static int capture_aux (lua_State *L, int cap, int labelidx) {
- TTree *tree = newroot1sib(L, TCapture);
- tree->cap = cap;
- tree->key = addtoktable(L, labelidx);
- return 1;
-}
-
-
-/*
-** Fill a tree with an empty capture, using an empty (TTrue) sibling.
-*/
-static TTree *auxemptycap (lua_State *L, TTree *tree, int cap, int idx) {
- tree->tag = TCapture;
- tree->cap = cap;
- tree->key = addtoktable(L, idx);
- sib1(tree)->tag = TTrue;
- return tree;
-}
-
-
-/*
-** Create a tree for an empty capture
-*/
-static TTree *newemptycap (lua_State *L, int cap, int idx) {
- return auxemptycap(L, newtree(L, 2), cap, idx);
-}
-
-
-/*
-** Captures with syntax p / v
-** (function capture, query capture, string capture, or number capture)
-*/
-static int lp_divcapture (lua_State *L) {
- switch (lua_type(L, 2)) {
- case LUA_TFUNCTION: return capture_aux(L, Cfunction, 2);
- case LUA_TTABLE: return capture_aux(L, Cquery, 2);
- case LUA_TSTRING: return capture_aux(L, Cstring, 2);
- case LUA_TNUMBER: {
- int n = lua_tointeger(L, 2);
- TTree *tree = newroot1sib(L, TCapture);
- luaL_argcheck(L, 0 <= n && n <= SHRT_MAX, 1, "invalid number");
- tree->cap = Cnum;
- tree->key = n;
- return 1;
- }
- default: return luaL_argerror(L, 2, "invalid replacement value");
- }
-}
-
-
-static int lp_substcapture (lua_State *L) {
- return capture_aux(L, Csubst, 0);
-}
-
-
-static int lp_tablecapture (lua_State *L) {
- return capture_aux(L, Ctable, 0);
-}
-
-
-static int lp_groupcapture (lua_State *L) {
- if (lua_isnoneornil(L, 2))
- return capture_aux(L, Cgroup, 0);
- else {
- luaL_checkstring(L, 2);
- return capture_aux(L, Cgroup, 2);
- }
-}
-
-
-static int lp_foldcapture (lua_State *L) {
- luaL_checktype(L, 2, LUA_TFUNCTION);
- return capture_aux(L, Cfold, 2);
-}
-
-
-static int lp_simplecapture (lua_State *L) {
- return capture_aux(L, Csimple, 0);
-}
-
-
-static int lp_poscapture (lua_State *L) {
- newemptycap(L, Cposition, 0);
- return 1;
-}
-
-
-static int lp_argcapture (lua_State *L) {
- int n = luaL_checkint(L, 1);
- TTree *tree = newemptycap(L, Carg, 0);
- tree->key = n;
- luaL_argcheck(L, 0 < n && n <= SHRT_MAX, 1, "invalid argument index");
- return 1;
-}
-
-
-static int lp_backref (lua_State *L) {
- luaL_checkstring(L, 1);
- newemptycap(L, Cbackref, 1);
- return 1;
-}
-
-
-/*
-** Constant capture
-*/
-static int lp_constcapture (lua_State *L) {
- int i;
- int n = lua_gettop(L); /* number of values */
- if (n == 0) /* no values? */
- newleaf(L, TTrue); /* no capture */
- else if (n == 1)
- newemptycap(L, Cconst, 1); /* single constant capture */
- else { /* create a group capture with all values */
- TTree *tree = newtree(L, 1 + 3 * (n - 1) + 2);
- tree->tag = TCapture;
- tree->cap = Cgroup;
- tree->key = 0;
- tree = sib1(tree);
- for (i = 1; i <= n - 1; i++) {
- tree->tag = TSeq;
- tree->u.ps = 3; /* skip TCapture and its sibling */
- auxemptycap(L, sib1(tree), Cconst, i);
- tree = sib2(tree);
- }
- auxemptycap(L, tree, Cconst, i);
- }
- return 1;
-}
-
-
-static int lp_matchtime (lua_State *L) {
- TTree *tree;
- luaL_checktype(L, 2, LUA_TFUNCTION);
- tree = newroot1sib(L, TRunTime);
- tree->key = addtoktable(L, 2);
- return 1;
-}
-
-/* }====================================================== */
-
-
-/*
-** {======================================================
-** Grammar - Tree generation
-** =======================================================
-*/
-
-/*
-** push on the stack the index and the pattern for the
-** initial rule of grammar at index 'arg' in the stack;
-** also add that index into position table.
-*/
-static void getfirstrule (lua_State *L, int arg, int postab) {
- lua_rawgeti(L, arg, 1); /* access first element */
- if (lua_isstring(L, -1)) { /* is it the name of initial rule? */
- lua_pushvalue(L, -1); /* duplicate it to use as key */
- lua_gettable(L, arg); /* get associated rule */
- }
- else {
- lua_pushinteger(L, 1); /* key for initial rule */
- lua_insert(L, -2); /* put it before rule */
- }
- if (!testpattern(L, -1)) { /* initial rule not a pattern? */
- if (lua_isnil(L, -1))
- luaL_error(L, "grammar has no initial rule");
- else
- luaL_error(L, "initial rule '%s' is not a pattern", lua_tostring(L, -2));
- }
- lua_pushvalue(L, -2); /* push key */
- lua_pushinteger(L, 1); /* push rule position (after TGrammar) */
- lua_settable(L, postab); /* insert pair at position table */
-}
-
-/*
-** traverse grammar at index 'arg', pushing all its keys and patterns
-** into the stack. Create a new table (before all pairs key-pattern) to
-** collect all keys and their associated positions in the final tree
-** (the "position table").
-** Return the number of rules and (in 'totalsize') the total size
-** for the new tree.
-*/
-static int collectrules (lua_State *L, int arg, int *totalsize) {
- int n = 1; /* to count number of rules */
- int postab = lua_gettop(L) + 1; /* index of position table */
- int size; /* accumulator for total size */
- lua_newtable(L); /* create position table */
- getfirstrule(L, arg, postab);
- size = 2 + getsize(L, postab + 2); /* TGrammar + TRule + rule */
- lua_pushnil(L); /* prepare to traverse grammar table */
- while (lua_next(L, arg) != 0) {
- if (lua_tonumber(L, -2) == 1 ||
- lua_equal(L, -2, postab + 1)) { /* initial rule? */
- lua_pop(L, 1); /* remove value (keep key for lua_next) */
- continue;
- }
- if (!testpattern(L, -1)) /* value is not a pattern? */
- luaL_error(L, "rule '%s' is not a pattern", val2str(L, -2));
- luaL_checkstack(L, LUA_MINSTACK, "grammar has too many rules");
- lua_pushvalue(L, -2); /* push key (to insert into position table) */
- lua_pushinteger(L, size);
- lua_settable(L, postab);
- size += 1 + getsize(L, -1); /* update size */
- lua_pushvalue(L, -2); /* push key (for next lua_next) */
- n++;
- }
- *totalsize = size + 1; /* TTrue to finish list of rules */
- return n;
-}
-
-
-static void buildgrammar (lua_State *L, TTree *grammar, int frule, int n) {
- int i;
- TTree *nd = sib1(grammar); /* auxiliary pointer to traverse the tree */
- for (i = 0; i < n; i++) { /* add each rule into new tree */
- int ridx = frule + 2*i + 1; /* index of i-th rule */
- int rulesize;
- TTree *rn = gettree(L, ridx, &rulesize);
- nd->tag = TRule;
- nd->key = 0;
- nd->cap = i; /* rule number */
- nd->u.ps = rulesize + 1; /* point to next rule */
- memcpy(sib1(nd), rn, rulesize * sizeof(TTree)); /* copy rule */
- mergektable(L, ridx, sib1(nd)); /* merge its ktable into new one */
- nd = sib2(nd); /* move to next rule */
- }
- nd->tag = TTrue; /* finish list of rules */
-}
-
-
-/*
-** Check whether a tree has potential infinite loops
-*/
-static int checkloops (TTree *tree) {
- tailcall:
- if (tree->tag == TRep && nullable(sib1(tree)))
- return 1;
- else if (tree->tag == TGrammar)
- return 0; /* sub-grammars already checked */
- else {
- switch (numsiblings[tree->tag]) {
- case 1: /* return checkloops(sib1(tree)); */
- tree = sib1(tree); goto tailcall;
- case 2:
- if (checkloops(sib1(tree))) return 1;
- /* else return checkloops(sib2(tree)); */
- tree = sib2(tree); goto tailcall;
- default: assert(numsiblings[tree->tag] == 0); return 0;
- }
- }
-}
-
-
-static int verifyerror (lua_State *L, int *passed, int npassed) {
- int i, j;
- for (i = npassed - 1; i >= 0; i--) { /* search for a repetition */
- for (j = i - 1; j >= 0; j--) {
- if (passed[i] == passed[j]) {
- lua_rawgeti(L, -1, passed[i]); /* get rule's key */
- return luaL_error(L, "rule '%s' may be left recursive", val2str(L, -1));
- }
- }
- }
- return luaL_error(L, "too many left calls in grammar");
-}
-
-
-/*
-** Check whether a rule can be left recursive; raise an error in that
-** case; otherwise return 1 iff pattern is nullable. Assume ktable at
-** the top of the stack.
-*/
-static int verifyrule (lua_State *L, TTree *tree, int *passed, int npassed,
- int nullable) {
- tailcall:
- switch (tree->tag) {
- case TChar: case TSet: case TAny:
- case TFalse:
- return nullable; /* cannot pass from here */
- case TTrue:
- case TBehind: /* look-behind cannot have calls */
- return 1;
- case TNot: case TAnd: case TRep:
- /* return verifyrule(L, sib1(tree), passed, npassed, 1); */
- tree = sib1(tree); nullable = 1; goto tailcall;
- case TCapture: case TRunTime:
- /* return verifyrule(L, sib1(tree), passed, npassed); */
- tree = sib1(tree); goto tailcall;
- case TCall:
- /* return verifyrule(L, sib2(tree), passed, npassed); */
- tree = sib2(tree); goto tailcall;
- case TSeq: /* only check 2nd child if first is nullable */
- if (!verifyrule(L, sib1(tree), passed, npassed, 0))
- return nullable;
- /* else return verifyrule(L, sib2(tree), passed, npassed); */
- tree = sib2(tree); goto tailcall;
- case TChoice: /* must check both children */
- nullable = verifyrule(L, sib1(tree), passed, npassed, nullable);
- /* return verifyrule(L, sib2(tree), passed, npassed, nullable); */
- tree = sib2(tree); goto tailcall;
- case TRule:
- if (npassed >= MAXRULES)
- return verifyerror(L, passed, npassed);
- else {
- passed[npassed++] = tree->key;
- /* return verifyrule(L, sib1(tree), passed, npassed); */
- tree = sib1(tree); goto tailcall;
- }
- case TGrammar:
- return nullable(tree); /* sub-grammar cannot be left recursive */
- default: assert(0); return 0;
- }
-}
-
-
-static void verifygrammar (lua_State *L, TTree *grammar) {
- int passed[MAXRULES];
- TTree *rule;
- /* check left-recursive rules */
- for (rule = sib1(grammar); rule->tag == TRule; rule = sib2(rule)) {
- if (rule->key == 0) continue; /* unused rule */
- verifyrule(L, sib1(rule), passed, 0, 0);
- }
- assert(rule->tag == TTrue);
- /* check infinite loops inside rules */
- for (rule = sib1(grammar); rule->tag == TRule; rule = sib2(rule)) {
- if (rule->key == 0) continue; /* unused rule */
- if (checkloops(sib1(rule))) {
- lua_rawgeti(L, -1, rule->key); /* get rule's key */
- luaL_error(L, "empty loop in rule '%s'", val2str(L, -1));
- }
- }
- assert(rule->tag == TTrue);
-}
-
-
-/*
-** Give a name for the initial rule if it is not referenced
-*/
-static void initialrulename (lua_State *L, TTree *grammar, int frule) {
- if (sib1(grammar)->key == 0) { /* initial rule is not referenced? */
- int n = lua_objlen(L, -1) + 1; /* index for name */
- lua_pushvalue(L, frule); /* rule's name */
- lua_rawseti(L, -2, n); /* ktable was on the top of the stack */
- sib1(grammar)->key = n;
- }
-}
-
-
-static TTree *newgrammar (lua_State *L, int arg) {
- int treesize;
- int frule = lua_gettop(L) + 2; /* position of first rule's key */
- int n = collectrules(L, arg, &treesize);
- TTree *g = newtree(L, treesize);
- luaL_argcheck(L, n <= MAXRULES, arg, "grammar has too many rules");
- g->tag = TGrammar; g->u.n = n;
- lua_newtable(L); /* create 'ktable' */
- lua_setfenv(L, -2);
- buildgrammar(L, g, frule, n);
- lua_getfenv(L, -1); /* get 'ktable' for new tree */
- finalfix(L, frule - 1, g, sib1(g));
- initialrulename(L, g, frule);
- verifygrammar(L, g);
- lua_pop(L, 1); /* remove 'ktable' */
- lua_insert(L, -(n * 2 + 2)); /* move new table to proper position */
- lua_pop(L, n * 2 + 1); /* remove position table + rule pairs */
- return g; /* new table at the top of the stack */
-}
-
-/* }====================================================== */
-
-
-static Instruction *prepcompile (lua_State *L, Pattern *p, int idx) {
- lua_getfenv(L, idx); /* push 'ktable' (may be used by 'finalfix') */
- finalfix(L, 0, NULL, p->tree);
- lua_pop(L, 1); /* remove 'ktable' */
- return compile(L, p);
-}
-
-
-static int lp_printtree (lua_State *L) {
- TTree *tree = getpatt(L, 1, NULL);
- int c = lua_toboolean(L, 2);
- if (c) {
- lua_getfenv(L, 1); /* push 'ktable' (may be used by 'finalfix') */
- finalfix(L, 0, NULL, tree);
- lua_pop(L, 1); /* remove 'ktable' */
- }
- printktable(L, 1);
- printtree(tree, 0);
- return 0;
-}
-
-
-static int lp_printcode (lua_State *L) {
- Pattern *p = getpattern(L, 1);
- printktable(L, 1);
- if (p->code == NULL) /* not compiled yet? */
- prepcompile(L, p, 1);
- printpatt(p->code, p->codesize);
- return 0;
-}
-
-
-/*
-** Get the initial position for the match, interpreting negative
-** values from the end of the subject
-*/
-static size_t initposition (lua_State *L, size_t len) {
- lua_Integer ii = luaL_optinteger(L, 3, 1);
- if (ii > 0) { /* positive index? */
- if ((size_t)ii <= len) /* inside the string? */
- return (size_t)ii - 1; /* return it (corrected to 0-base) */
- else return len; /* crop at the end */
- }
- else { /* negative index */
- if ((size_t)(-ii) <= len) /* inside the string? */
- return len - ((size_t)(-ii)); /* return position from the end */
- else return 0; /* crop at the beginning */
- }
-}
-
-
-/*
-** Main match function
-*/
-static int lp_match (lua_State *L) {
- Capture capture[INITCAPSIZE];
- const char *r;
- size_t l;
- Pattern *p = (getpatt(L, 1, NULL), getpattern(L, 1));
- Instruction *code = (p->code != NULL) ? p->code : prepcompile(L, p, 1);
- const char *s = luaL_checklstring(L, SUBJIDX, &l);
- size_t i = initposition(L, l);
- int ptop = lua_gettop(L);
- lua_pushnil(L); /* initialize subscache */
- lua_pushlightuserdata(L, capture); /* initialize caplistidx */
- lua_getfenv(L, 1); /* initialize penvidx */
- r = match(L, s, s + i, s + l, code, capture, ptop);
- if (r == NULL) {
- lua_pushnil(L);
- return 1;
- }
- return getcaptures(L, s, r, ptop);
-}
-
-
-
-/*
-** {======================================================
-** Library creation and functions not related to matching
-** =======================================================
-*/
-
-static int lp_setmax (lua_State *L) {
- luaL_optinteger(L, 1, -1);
- lua_settop(L, 1);
- lua_setfield(L, LUA_REGISTRYINDEX, MAXSTACKIDX);
- return 0;
-}
-
-
-static int lp_version (lua_State *L) {
- lua_pushstring(L, VERSION);
- return 1;
-}
-
-
-static int lp_type (lua_State *L) {
- if (testpattern(L, 1))
- lua_pushliteral(L, "pattern");
- else
- lua_pushnil(L);
- return 1;
-}
-
-
-int lp_gc (lua_State *L) {
- Pattern *p = getpattern(L, 1);
- if (p->codesize > 0)
- reallocprog(L, p, 0);
- return 0;
-}
-
-
-static void createcat (lua_State *L, const char *catname, int (catf) (int)) {
- TTree *t = newcharset(L);
- int i;
- for (i = 0; i <= UCHAR_MAX; i++)
- if (catf(i)) setchar(treebuffer(t), i);
- lua_setfield(L, -2, catname);
-}
-
-
-static int lp_locale (lua_State *L) {
- if (lua_isnoneornil(L, 1)) {
- lua_settop(L, 0);
- lua_createtable(L, 0, 12);
- }
- else {
- luaL_checktype(L, 1, LUA_TTABLE);
- lua_settop(L, 1);
- }
- createcat(L, "alnum", isalnum);
- createcat(L, "alpha", isalpha);
- createcat(L, "cntrl", iscntrl);
- createcat(L, "digit", isdigit);
- createcat(L, "graph", isgraph);
- createcat(L, "lower", islower);
- createcat(L, "print", isprint);
- createcat(L, "punct", ispunct);
- createcat(L, "space", isspace);
- createcat(L, "upper", isupper);
- createcat(L, "xdigit", isxdigit);
- return 1;
-}
-
-
-static struct luaL_Reg pattreg[] = {
- {"ptree", lp_printtree},
- {"pcode", lp_printcode},
- {"match", lp_match},
- {"B", lp_behind},
- {"V", lp_V},
- {"C", lp_simplecapture},
- {"Cc", lp_constcapture},
- {"Cmt", lp_matchtime},
- {"Cb", lp_backref},
- {"Carg", lp_argcapture},
- {"Cp", lp_poscapture},
- {"Cs", lp_substcapture},
- {"Ct", lp_tablecapture},
- {"Cf", lp_foldcapture},
- {"Cg", lp_groupcapture},
- {"P", lp_P},
- {"S", lp_set},
- {"R", lp_range},
- {"locale", lp_locale},
- {"version", lp_version},
- {"setmaxstack", lp_setmax},
- {"type", lp_type},
- {NULL, NULL}
-};
-
-
-static struct luaL_Reg metareg[] = {
- {"__mul", lp_seq},
- {"__add", lp_choice},
- {"__pow", lp_star},
- {"__gc", lp_gc},
- {"__len", lp_and},
- {"__div", lp_divcapture},
- {"__unm", lp_not},
- {"__sub", lp_sub},
- {NULL, NULL}
-};
-
-
-int luaopen_lpeg (lua_State *L);
-int luaopen_lpeg (lua_State *L) {
- luaL_newmetatable(L, PATTERN_T);
- lua_pushnumber(L, MAXBACK); /* initialize maximum backtracking */
- lua_setfield(L, LUA_REGISTRYINDEX, MAXSTACKIDX);
- luaL_register(L, NULL, metareg);
- luaL_register(L, "lpeg", pattreg);
- lua_pushvalue(L, -1);
- lua_setfield(L, -3, "__index");
- return 1;
-}
-
-/* }====================================================== */
diff --git a/OpenSource/lpeg/lptree.h b/OpenSource/lpeg/lptree.h
deleted file mode 100644
index b69528a6f..000000000
--- a/OpenSource/lpeg/lptree.h
+++ /dev/null
@@ -1,77 +0,0 @@
-/*
-** $Id: lptree.h,v 1.2 2013/03/24 13:51:12 roberto Exp $
-*/
-
-#if !defined(lptree_h)
-#define lptree_h
-
-
-#include "lptypes.h"
-
-
-/*
-** types of trees
-*/
-typedef enum TTag {
- TChar = 0, TSet, TAny, /* standard PEG elements */
- TTrue, TFalse,
- TRep,
- TSeq, TChoice,
- TNot, TAnd,
- TCall,
- TOpenCall,
- TRule, /* sib1 is rule's pattern, sib2 is 'next' rule */
- TGrammar, /* sib1 is initial (and first) rule */
- TBehind, /* match behind */
- TCapture, /* regular capture */
- TRunTime /* run-time capture */
-} TTag;
-
-/* number of siblings for each tree */
-extern const byte numsiblings[];
-
-
-/*
-** Tree trees
-** The first sibling of a tree (if there is one) is immediately after
-** the tree. A reference to a second sibling (ps) is its position
-** relative to the position of the tree itself. A key in ktable
-** uses the (unique) address of the original tree that created that
-** entry. NULL means no data.
-*/
-typedef struct TTree {
- byte tag;
- byte cap; /* kind of capture (if it is a capture) */
- unsigned short key; /* key in ktable for Lua data (0 if no key) */
- union {
- int ps; /* occasional second sibling */
- int n; /* occasional counter */
- } u;
-} TTree;
-
-
-/*
-** A complete pattern has its tree plus, if already compiled,
-** its corresponding code
-*/
-typedef struct Pattern {
- union Instruction *code;
- int codesize;
- TTree tree[1];
-} Pattern;
-
-
-/* number of siblings for each tree */
-extern const byte numsiblings[];
-
-/* access to siblings */
-#define sib1(t) ((t) + 1)
-#define sib2(t) ((t) + (t)->u.ps)
-
-
-
-
-
-
-#endif
-
diff --git a/OpenSource/lpeg/lptypes.h b/OpenSource/lpeg/lptypes.h
deleted file mode 100644
index 7ace5451a..000000000
--- a/OpenSource/lpeg/lptypes.h
+++ /dev/null
@@ -1,147 +0,0 @@
-/*
-** $Id: lptypes.h,v 1.8 2013/04/12 16:26:38 roberto Exp $
-** LPeg - PEG pattern matching for Lua
-** Copyright 2007, Lua.org & PUC-Rio (see 'lpeg.html' for license)
-** written by Roberto Ierusalimschy
-*/
-
-#if !defined(lptypes_h)
-#define lptypes_h
-
-
-#if !defined(LPEG_DEBUG)
-#define NDEBUG
-#endif
-
-#include
-#include
-
-#include "lua.h"
-
-
-#define VERSION "0.12"
-
-
-#define PATTERN_T "lpeg-pattern"
-#define MAXSTACKIDX "lpeg-maxstack"
-
-
-/*
-** compatibility with Lua 5.2
-*/
-#if (LUA_VERSION_NUM == 502)
-
-#undef lua_equal
-#define lua_equal(L,idx1,idx2) lua_compare(L,(idx1),(idx2),LUA_OPEQ)
-
-#undef lua_getfenv
-#define lua_getfenv lua_getuservalue
-#undef lua_setfenv
-#define lua_setfenv lua_setuservalue
-
-#undef lua_objlen
-#define lua_objlen lua_rawlen
-
-#undef luaL_register
-#define luaL_register(L,n,f) \
- { if ((n) == NULL) luaL_setfuncs(L,f,0); else luaL_newlib(L,f); }
-
-#endif
-
-
-/* default maximum size for call/backtrack stack */
-#if !defined(MAXBACK)
-#define MAXBACK 100
-#endif
-
-
-/* maximum number of rules in a grammar */
-#define MAXRULES 200
-
-
-
-/* initial size for capture's list */
-#define INITCAPSIZE 32
-
-
-/* index, on Lua stack, for subject */
-#define SUBJIDX 2
-
-/* number of fixed arguments to 'match' (before capture arguments) */
-#define FIXEDARGS 3
-
-/* index, on Lua stack, for capture list */
-#define caplistidx(ptop) ((ptop) + 2)
-
-/* index, on Lua stack, for pattern's ktable */
-#define ktableidx(ptop) ((ptop) + 3)
-
-/* index, on Lua stack, for backtracking stack */
-#define stackidx(ptop) ((ptop) + 4)
-
-
-
-typedef unsigned char byte;
-
-
-#define BITSPERCHAR 8
-
-#define CHARSETSIZE ((UCHAR_MAX/BITSPERCHAR) + 1)
-
-
-
-typedef struct Charset {
- byte cs[CHARSETSIZE];
-} Charset;
-
-
-
-#define loopset(v,b) { int v; for (v = 0; v < CHARSETSIZE; v++) {b;} }
-
-/* access to charset */
-#define treebuffer(t) ((byte *)((t) + 1))
-
-/* number of slots needed for 'n' bytes */
-#define bytes2slots(n) (((n) - 1) / sizeof(TTree) + 1)
-
-/* set 'b' bit in charset 'cs' */
-#define setchar(cs,b) ((cs)[(b) >> 3] |= (1 << ((b) & 7)))
-
-
-/*
-** in capture instructions, 'kind' of capture and its offset are
-** packed in field 'aux', 4 bits for each
-*/
-#define getkind(op) ((op)->i.aux & 0xF)
-#define getoff(op) (((op)->i.aux >> 4) & 0xF)
-#define joinkindoff(k,o) ((k) | ((o) << 4))
-
-#define MAXOFF 0xF
-#define MAXAUX 0xFF
-
-
-/* maximum number of bytes to look behind */
-#define MAXBEHIND MAXAUX
-
-
-/* maximum size (in elements) for a pattern */
-#define MAXPATTSIZE (SHRT_MAX - 10)
-
-
-/* size (in elements) for an instruction plus extra l bytes */
-#define instsize(l) (((l) + sizeof(Instruction) - 1)/sizeof(Instruction) + 1)
-
-
-/* size (in elements) for a ISet instruction */
-#define CHARSETINSTSIZE instsize(CHARSETSIZE)
-
-/* size (in elements) for a IFunc instruction */
-#define funcinstsize(p) ((p)->i.aux + 2)
-
-
-
-#define testchar(st,c) (((int)(st)[((c) >> 3)] & (1 << ((c) & 7))))
-
-
-#endif
-
diff --git a/OpenSource/lpeg/lpvm.c b/OpenSource/lpeg/lpvm.c
deleted file mode 100644
index cd893ed82..000000000
--- a/OpenSource/lpeg/lpvm.c
+++ /dev/null
@@ -1,355 +0,0 @@
-/*
-** $Id: lpvm.c,v 1.5 2013/04/12 16:29:49 roberto Exp $
-** Copyright 2007, Lua.org & PUC-Rio (see 'lpeg.html' for license)
-*/
-
-#include
-#include
-
-
-#include "lua.h"
-#include "lauxlib.h"
-
-#include "lpcap.h"
-#include "lptypes.h"
-#include "lpvm.h"
-#include "lpprint.h"
-
-
-/* initial size for call/backtrack stack */
-#if !defined(INITBACK)
-#define INITBACK 100
-#endif
-
-
-#define getoffset(p) (((p) + 1)->offset)
-
-static const Instruction giveup = {{IGiveup, 0, 0}};
-
-
-/*
-** {======================================================
-** Virtual Machine
-** =======================================================
-*/
-
-
-typedef struct Stack {
- const char *s; /* saved position (or NULL for calls) */
- const Instruction *p; /* next instruction */
- int caplevel;
-} Stack;
-
-
-#define getstackbase(L, ptop) ((Stack *)lua_touserdata(L, stackidx(ptop)))
-
-
-/*
-** Double the size of the array of captures
-*/
-static Capture *doublecap (lua_State *L, Capture *cap, int captop, int ptop) {
- Capture *newc;
- if (captop >= INT_MAX/((int)sizeof(Capture) * 2))
- luaL_error(L, "too many captures");
- newc = (Capture *)lua_newuserdata(L, captop * 2 * sizeof(Capture));
- memcpy(newc, cap, captop * sizeof(Capture));
- lua_replace(L, caplistidx(ptop));
- return newc;
-}
-
-
-/*
-** Double the size of the stack
-*/
-static Stack *doublestack (lua_State *L, Stack **stacklimit, int ptop) {
- Stack *stack = getstackbase(L, ptop);
- Stack *newstack;
- int n = *stacklimit - stack; /* current stack size */
- int max, newn;
- lua_getfield(L, LUA_REGISTRYINDEX, MAXSTACKIDX);
- max = lua_tointeger(L, -1); /* maximum allowed size */
- lua_pop(L, 1);
- if (n >= max) /* already at maximum size? */
- luaL_error(L, "too many pending calls/choices");
- newn = 2 * n; /* new size */
- if (newn > max) newn = max;
- newstack = (Stack *)lua_newuserdata(L, newn * sizeof(Stack));
- memcpy(newstack, stack, n * sizeof(Stack));
- lua_replace(L, stackidx(ptop));
- *stacklimit = newstack + newn;
- return newstack + n; /* return next position */
-}
-
-
-/*
-** Interpret the result of a dynamic capture: false -> fail;
-** true -> keep current position; number -> next position.
-** Return new subject position. 'fr' is stack index where
-** is the result; 'curr' is current subject position; 'limit'
-** is subject's size.
-*/
-static int resdyncaptures (lua_State *L, int fr, int curr, int limit) {
- lua_Integer res;
- if (!lua_toboolean(L, fr)) { /* false value? */
- lua_settop(L, fr - 1); /* remove results */
- return -1; /* and fail */
- }
- else if (lua_isboolean(L, fr)) /* true? */
- res = curr; /* keep current position */
- else {
- res = lua_tointeger(L, fr) - 1; /* new position */
- if (res < curr || res > limit)
- luaL_error(L, "invalid position returned by match-time capture");
- }
- lua_remove(L, fr); /* remove first result (offset) */
- return res;
-}
-
-
-/*
-** Add capture values returned by a dynamic capture to the capture list
-** 'base', nested inside a group capture. 'fd' indexes the first capture
-** value, 'n' is the number of values (at least 1).
-*/
-static void adddyncaptures (const char *s, Capture *base, int n, int fd) {
- int i;
- /* Cgroup capture is already there */
- assert(base[0].kind == Cgroup && base[0].siz == 0);
- base[0].idx = 0; /* make it an anonymous group */
- for (i = 1; i <= n; i++) { /* add runtime captures */
- base[i].kind = Cruntime;
- base[i].siz = 1; /* mark it as closed */
- base[i].idx = fd + i - 1; /* stack index of capture value */
- base[i].s = s;
- }
- base[i].kind = Cclose; /* close group */
- base[i].siz = 1;
- base[i].s = s;
-}
-
-
-/*
-** Remove dynamic captures from the Lua stack (called in case of failure)
-*/
-static int removedyncap (lua_State *L, Capture *capture,
- int level, int last) {
- int id = finddyncap(capture + level, capture + last); /* index of 1st cap. */
- int top = lua_gettop(L);
- if (id == 0) return 0; /* no dynamic captures? */
- lua_settop(L, id - 1); /* remove captures */
- return top - id + 1; /* number of values removed */
-}
-
-
-/*
-** Opcode interpreter
-*/
-const char *match (lua_State *L, const char *o, const char *s, const char *e,
- Instruction *op, Capture *capture, int ptop) {
- Stack stackbase[INITBACK];
- Stack *stacklimit = stackbase + INITBACK;
- Stack *stack = stackbase; /* point to first empty slot in stack */
- int capsize = INITCAPSIZE;
- int captop = 0; /* point to first empty slot in captures */
- int ndyncap = 0; /* number of dynamic captures (in Lua stack) */
- const Instruction *p = op; /* current instruction */
- stack->p = &giveup; stack->s = s; stack->caplevel = 0; stack++;
- lua_pushlightuserdata(L, stackbase);
- for (;;) {
-#if defined(DEBUG)
- printf("s: |%s| stck:%d, dyncaps:%d, caps:%d ",
- s, stack - getstackbase(L, ptop), ndyncap, captop);
- printinst(op, p);
- printcaplist(capture, capture + captop);
-#endif
- assert(stackidx(ptop) + ndyncap == lua_gettop(L) && ndyncap <= captop);
- switch ((Opcode)p->i.code) {
- case IEnd: {
- assert(stack == getstackbase(L, ptop) + 1);
- capture[captop].kind = Cclose;
- capture[captop].s = NULL;
- return s;
- }
- case IGiveup: {
- assert(stack == getstackbase(L, ptop));
- return NULL;
- }
- case IRet: {
- assert(stack > getstackbase(L, ptop) && (stack - 1)->s == NULL);
- p = (--stack)->p;
- continue;
- }
- case IAny: {
- if (s < e) { p++; s++; }
- else goto fail;
- continue;
- }
- case ITestAny: {
- if (s < e) p += 2;
- else p += getoffset(p);
- continue;
- }
- case IChar: {
- if ((byte)*s == p->i.aux && s < e) { p++; s++; }
- else goto fail;
- continue;
- }
- case ITestChar: {
- if ((byte)*s == p->i.aux && s < e) p += 2;
- else p += getoffset(p);
- continue;
- }
- case ISet: {
- int c = (byte)*s;
- if (testchar((p+1)->buff, c) && s < e)
- { p += CHARSETINSTSIZE; s++; }
- else goto fail;
- continue;
- }
- case ITestSet: {
- int c = (byte)*s;
- if (testchar((p + 2)->buff, c) && s < e)
- p += 1 + CHARSETINSTSIZE;
- else p += getoffset(p);
- continue;
- }
- case IBehind: {
- int n = p->i.aux;
- if (n > s - o) goto fail;
- s -= n; p++;
- continue;
- }
- case ISpan: {
- for (; s < e; s++) {
- int c = (byte)*s;
- if (!testchar((p+1)->buff, c)) break;
- }
- p += CHARSETINSTSIZE;
- continue;
- }
- case IJmp: {
- p += getoffset(p);
- continue;
- }
- case IChoice: {
- if (stack == stacklimit)
- stack = doublestack(L, &stacklimit, ptop);
- stack->p = p + getoffset(p);
- stack->s = s;
- stack->caplevel = captop;
- stack++;
- p += 2;
- continue;
- }
- case ICall: {
- if (stack == stacklimit)
- stack = doublestack(L, &stacklimit, ptop);
- stack->s = NULL;
- stack->p = p + 2; /* save return address */
- stack++;
- p += getoffset(p);
- continue;
- }
- case ICommit: {
- assert(stack > getstackbase(L, ptop) && (stack - 1)->s != NULL);
- stack--;
- p += getoffset(p);
- continue;
- }
- case IPartialCommit: {
- assert(stack > getstackbase(L, ptop) && (stack - 1)->s != NULL);
- (stack - 1)->s = s;
- (stack - 1)->caplevel = captop;
- p += getoffset(p);
- continue;
- }
- case IBackCommit: {
- assert(stack > getstackbase(L, ptop) && (stack - 1)->s != NULL);
- s = (--stack)->s;
- captop = stack->caplevel;
- p += getoffset(p);
- continue;
- }
- case IFailTwice:
- assert(stack > getstackbase(L, ptop));
- stack--;
- /* go through */
- case IFail:
- fail: { /* pattern failed: try to backtrack */
- do { /* remove pending calls */
- assert(stack > getstackbase(L, ptop));
- s = (--stack)->s;
- } while (s == NULL);
- if (ndyncap > 0) /* is there matchtime captures? */
- ndyncap -= removedyncap(L, capture, stack->caplevel, captop);
- captop = stack->caplevel;
- p = stack->p;
- continue;
- }
- case ICloseRunTime: {
- CapState cs;
- int rem, res, n;
- int fr = lua_gettop(L) + 1; /* stack index of first result */
- cs.s = o; cs.L = L; cs.ocap = capture; cs.ptop = ptop;
- n = runtimecap(&cs, capture + captop, s, &rem); /* call function */
- captop -= n; /* remove nested captures */
- fr -= rem; /* 'rem' items were popped from Lua stack */
- res = resdyncaptures(L, fr, s - o, e - o); /* get result */
- if (res == -1) /* fail? */
- goto fail;
- s = o + res; /* else update current position */
- n = lua_gettop(L) - fr + 1; /* number of new captures */
- ndyncap += n - rem; /* update number of dynamic captures */
- if (n > 0) { /* any new capture? */
- if ((captop += n + 2) >= capsize) {
- capture = doublecap(L, capture, captop, ptop);
- capsize = 2 * captop;
- }
- /* add new captures to 'capture' list */
- adddyncaptures(s, capture + captop - n - 2, n, fr);
- }
- p++;
- continue;
- }
- case ICloseCapture: {
- const char *s1 = s;
- assert(captop > 0);
- /* if possible, turn capture into a full capture */
- if (capture[captop - 1].siz == 0 &&
- s1 - capture[captop - 1].s < UCHAR_MAX) {
- capture[captop - 1].siz = s1 - capture[captop - 1].s + 1;
- p++;
- continue;
- }
- else {
- capture[captop].siz = 1; /* mark entry as closed */
- capture[captop].s = s;
- goto pushcapture;
- }
- }
- case IOpenCapture:
- capture[captop].siz = 0; /* mark entry as open */
- capture[captop].s = s;
- goto pushcapture;
- case IFullCapture:
- capture[captop].siz = getoff(p) + 1; /* save capture size */
- capture[captop].s = s - getoff(p);
- /* goto pushcapture; */
- pushcapture: {
- capture[captop].idx = p->i.key;
- capture[captop].kind = getkind(p);
- if (++captop >= capsize) {
- capture = doublecap(L, capture, captop, ptop);
- capsize = 2 * captop;
- }
- p++;
- continue;
- }
- default: assert(0); return NULL;
- }
- }
-}
-
-/* }====================================================== */
-
-
diff --git a/OpenSource/lpeg/lpvm.h b/OpenSource/lpeg/lpvm.h
deleted file mode 100644
index 6a2a558d7..000000000
--- a/OpenSource/lpeg/lpvm.h
+++ /dev/null
@@ -1,63 +0,0 @@
-/*
-** $Id: lpvm.h,v 1.2 2013/04/03 20:37:18 roberto Exp $
-*/
-
-#if !defined(lpvm_h)
-#define lpvm_h
-
-#include "lpcap.h"
-
-
-/* Virtual Machine's instructions */
-typedef enum Opcode {
- IAny, /* if no char, fail */
- IChar, /* if char != aux, fail */
- ISet, /* if char not in buff, fail */
- ITestAny, /* in no char, jump to 'offset' */
- ITestChar, /* if char != aux, jump to 'offset' */
- ITestSet, /* if char not in buff, jump to 'offset' */
- ISpan, /* read a span of chars in buff */
- IBehind, /* walk back 'aux' characters (fail if not possible) */
- IRet, /* return from a rule */
- IEnd, /* end of pattern */
- IChoice, /* stack a choice; next fail will jump to 'offset' */
- IJmp, /* jump to 'offset' */
- ICall, /* call rule at 'offset' */
- IOpenCall, /* call rule number 'key' (must be closed to a ICall) */
- ICommit, /* pop choice and jump to 'offset' */
- IPartialCommit, /* update top choice to current position and jump */
- IBackCommit, /* "fails" but jump to its own 'offset' */
- IFailTwice, /* pop one choice and then fail */
- IFail, /* go back to saved state on choice and jump to saved offset */
- IGiveup, /* internal use */
- IFullCapture, /* complete capture of last 'off' chars */
- IOpenCapture, /* start a capture */
- ICloseCapture,
- ICloseRunTime
-} Opcode;
-
-
-
-typedef union Instruction {
- struct Inst {
- byte code;
- byte aux;
- short key;
- } i;
- int offset;
- byte buff[1];
-} Instruction;
-
-
-int getposition (lua_State *L, int t, int i);
-void printpatt (Instruction *p, int n);
-const char *match (lua_State *L, const char *o, const char *s, const char *e,
- Instruction *op, Capture *capture, int ptop);
-int verify (lua_State *L, Instruction *op, const Instruction *p,
- Instruction *e, int postable, int rule);
-void checkrule (lua_State *L, Instruction *op, int from, int to,
- int postable, int rule);
-
-
-#endif
-
diff --git a/OpenSource/lpeg/makefile b/OpenSource/lpeg/makefile
deleted file mode 100644
index 57a18fb36..000000000
--- a/OpenSource/lpeg/makefile
+++ /dev/null
@@ -1,55 +0,0 @@
-LIBNAME = lpeg
-LUADIR = /usr/include/lua5.1/
-
-COPT = -O2
-# COPT = -DLPEG_DEBUG -g
-
-CWARNS = -Wall -Wextra -pedantic \
- -Waggregate-return \
- -Wcast-align \
- -Wcast-qual \
- -Wdisabled-optimization \
- -Wpointer-arith \
- -Wshadow \
- -Wsign-compare \
- -Wundef \
- -Wwrite-strings \
- -Wbad-function-cast \
- -Wdeclaration-after-statement \
- -Wmissing-prototypes \
- -Wnested-externs \
- -Wstrict-prototypes \
-# -Wunreachable-code \
-
-
-CFLAGS = $(CWARNS) $(COPT) -ansi -I$(LUADIR) -fPIC
-CC = gcc
-
-FILES = lpvm.o lpcap.o lptree.o lpcode.o lpprint.o
-
-# For Linux
-linux:
- make lpeg.so "DLLFLAGS = -shared -fPIC"
-
-# For Mac OS
-macosx:
- make lpeg.so "DLLFLAGS = -bundle -undefined dynamic_lookup"
-
-lpeg.so: $(FILES)
- env $(CC) $(DLLFLAGS) $(FILES) -o lpeg.so
-
-$(FILES): makefile
-
-test: test.lua re.lua lpeg.so
- ./test.lua
-
-clean:
- rm -f $(FILES) lpeg.so
-
-
-lpcap.o: lpcap.c lpcap.h lptypes.h
-lpcode.o: lpcode.c lptypes.h lpcode.h lptree.h lpvm.h lpcap.h
-lpprint.o: lpprint.c lptypes.h lpprint.h lptree.h lpvm.h lpcap.h
-lptree.o: lptree.c lptypes.h lpcap.h lpcode.h lptree.h lpvm.h lpprint.h
-lpvm.o: lpvm.c lpcap.h lptypes.h lpvm.h lpprint.h lptree.h
-
diff --git a/OpenSource/lpeg/re.html b/OpenSource/lpeg/re.html
deleted file mode 100644
index 4717ec2bb..000000000
--- a/OpenSource/lpeg/re.html
+++ /dev/null
@@ -1,498 +0,0 @@
-
-
-
- LPeg.re - Regex syntax for LPEG
-
-
-
-
-
LPeg.re
-
- Regex syntax for LPEG
-
-
-
-
-
-
-
-
-
-
re Module
-
-
-The re module
-(provided by file re.lua in the distribution)
-supports a somewhat conventional regex syntax
-for pattern usage within LPeg .
-
-
-
-The next table summarizes re's syntax.
-A p represents an arbitrary pattern;
-num represents a number ([0-9]+);
-name represents an identifier
-([a-zA-Z][a-zA-Z0-9_]*).
-Constructions are listed in order of decreasing precedence.
-
-Syntax Description ( p )grouping 'string'literal string "string"literal string [class]character class .any character %namepattern defs[name] or a pre-defined pattern namenon terminal <name>non terminal {}position capture { p }simple capture {: p :}anonymous group capture {:name: p :}named group capture {~ p ~}substitution capture {| p |}table capture =nameback reference
- p ?optional match p *zero or more repetitions p +one or more repetitions p^numexactly n repetitions p^+numat least n repetitions p^-numat most n repetitions p -> 'string'string capture p -> "string"string capture p -> numnumbered capture p -> namefunction/query/string capture
-equivalent to p / defs[name] p => namematch-time capture
-equivalent to lpeg.Cmt(p, defs[name]) & pand predicate ! pnot predicate p1 p2concatenation p1 / p2ordered choice (name <- p)+ grammar
-
-Any space appearing in a syntax description can be
-replaced by zero or more space characters and Lua-style comments
-(-- until end of line).
-
-
-
-Character classes define sets of characters.
-An initial ^ complements the resulting set.
-A range x -y includes in the set
-all characters with codes between the codes of x and y .
-A pre-defined class %name includes all
-characters of that class.
-A simple character includes itself in the set.
-The only special characters inside a class are ^
-(special only if it is the first character);
-]
-(can be included in the set as the first character,
-after the optional ^);
-% (special only if followed by a letter);
-and -
-(can be included in the set as the first or the last character).
-
-
-
-Currently the pre-defined classes are similar to those from the
-Lua's string library
-(%a for letters,
-%A for non letters, etc.).
-There is also a class %nl
-containing only the newline character,
-which is particularly handy for grammars written inside long strings,
-as long strings do not interpret escape sequences like \n.
-
-
-
-
-
-
re.compile (string, [, defs])
-
-Compiles the given string and
-returns an equivalent LPeg pattern.
-The given string may define either an expression or a grammar.
-The optional defs table provides extra Lua values
-to be used by the pattern.
-
-
-
re.find (subject, pattern [, init])
-
-Searches the given pattern in the given subject.
-If it finds a match,
-returns the index where this occurrence starts and
-the index where it ends.
-Otherwise, returns nil.
-
-
-
-An optional numeric argument init makes the search
-starts at that position in the subject string.
-As usual in Lua libraries,
-a negative value counts from the end.
-
-
-
re.gsub (subject, pattern, replacement)
-
-Does a global substitution ,
-replacing all occurrences of pattern
-in the given subject by replacement.
-
-
re.match (subject, pattern)
-
-Matches the given pattern against the given subject,
-returning all captures.
-
-
-
re.updatelocale ()
-
-Updates the pre-defined character classes to the current locale.
-
-
-
-
-
-
A complete simple program
-
-The next code shows a simple complete Lua program using
-the re module:
-
-
-local re = require"re"
-
--- find the position of the first numeral in a string
-print(re.find("the number 423 is odd", "[0-9]+")) --> 12 14
-
--- returns all words in a string
-print(re.match("the number 423 is odd", "({%a+} / .)*"))
---> the number is odd
-
--- returns the first numeral in a string
-print(re.match("the number 423 is odd", "s <- {%d+} / . s"))
---> 423
-
-print(re.gsub("hello World", "[aeiou]", "."))
---> h.ll. W.rld
-
-
-
-
Balanced parentheses
-
-The following call will produce the same pattern produced by the
-Lua expression in the
-balanced parentheses example:
-
-
-b = re.compile[[ balanced <- "(" ([^()] / balanced)* ")" ]]
-
-
-
String reversal
-
-The next example reverses a string:
-
-
-rev = re.compile[[ R <- (!.) -> '' / ({.} R) -> '%2%1']]
-print(rev:match"0123456789") --> 9876543210
-
-
-
CSV decoder
-
-The next example replicates the CSV decoder :
-
-
-record = re.compile[[
- record <- {| field (',' field)* |} (%nl / !.)
- field <- escaped / nonescaped
- nonescaped <- { [^,"%nl]* }
- escaped <- '"' {~ ([^"] / '""' -> '"')* ~} '"'
-]]
-
-
-
Lua's long strings
-
-The next example matches Lua long strings:
-
-
-c = re.compile([[
- longstring <- ('[' {:eq: '='* :} '[' close)
- close <- ']' =eq ']' / . close
-]])
-
-print(c:match'[==[]]===]]]]==]===[]') --> 17
-
-
-
Abstract Syntax Trees
-
-This example shows a simple way to build an
-abstract syntax tree (AST) for a given grammar.
-To keep our example simple,
-let us consider the following grammar
-for lists of names:
-
-
-p = re.compile[[
- listname <- (name s)*
- name <- [a-z][a-z]*
- s <- %s*
-]]
-
-
-Now, we will add captures to build a corresponding AST.
-As a first step, the pattern will build a table to
-represent each non terminal;
-terminals will be represented by their corresponding strings:
-
-
-c = re.compile[[
- listname <- {| (name s)* |}
- name <- {| {[a-z][a-z]*} |}
- s <- %s*
-]]
-
-
-Now, a match against "hi hello bye"
-results in the table
-{{"hi"}, {"hello"}, {"bye"}}.
-
-
-For such a simple grammar,
-this AST is more than enough;
-actually, the tables around each single name
-are already overkilling.
-More complex grammars,
-however, may need some more structure.
-Specifically,
-it would be useful if each table had
-a tag field telling what non terminal
-that table represents.
-We can add such a tag using
-named group captures :
-
-
-x = re.compile[[
- listname <- {| {:tag: '' -> 'list':} (name s)* |}
- name <- {| {:tag: '' -> 'id':} {[a-z][a-z]*} |}
- s <- ' '*
-]]
-
-
-With these group captures,
-a match against "hi hello bye"
-results in the following table:
-
-
-{tag="list",
- {tag="id", "hi"},
- {tag="id", "hello"},
- {tag="id", "bye"}
-}
-
-
-
-
Indented blocks
-
-This example breaks indented blocks into tables,
-respecting the indentation:
-
-
-p = re.compile[[
- block <- {| {:ident:' '*:} line
- ((=ident !' ' line) / &(=ident ' ') block)* |}
- line <- {[^%nl]*} %nl
-]]
-
-
-As an example,
-consider the following text:
-
-
-t = p:match[[
-first line
- subline 1
- subline 2
-second line
-third line
- subline 3.1
- subline 3.1.1
- subline 3.2
-]]
-
-
-The resulting table t will be like this:
-
-
- {'first line'; {'subline 1'; 'subline 2'; ident = ' '};
- 'second line';
- 'third line'; { 'subline 3.1'; {'subline 3.1.1'; ident = ' '};
- 'subline 3.2'; ident = ' '};
- ident = ''}
-
-
-
Macro expander
-
-This example implements a simple macro expander.
-Macros must be defined as part of the pattern,
-following some simple rules:
-
-
-p = re.compile[[
- text <- {~ item* ~}
- item <- macro / [^()] / '(' item* ')'
- arg <- ' '* {~ (!',' item)* ~}
- args <- '(' arg (',' arg)* ')'
- -- now we define some macros
- macro <- ('apply' args) -> '%1(%2)'
- / ('add' args) -> '%1 + %2'
- / ('mul' args) -> '%1 * %2'
-]]
-
-print(p:match"add(mul(a,b), apply(f,x))") --> a * b + f(x)
-
-
-A text is a sequence of items,
-wherein we apply a substitution capture to expand any macros.
-An item is either a macro,
-any character different from parentheses,
-or a parenthesized expression.
-A macro argument (arg) is a sequence
-of items different from a comma.
-(Note that a comma may appear inside an item,
-e.g., inside a parenthesized expression.)
-Again we do a substitution capture to expand any macro
-in the argument before expanding the outer macro.
-args is a list of arguments separated by commas.
-Finally we define the macros.
-Each macro is a string substitution;
-it replaces the macro name and its arguments by its corresponding string,
-with each %n replaced by the n -th argument.
-
-
-
Patterns
-
-This example shows the complete syntax
-of patterns accepted by re.
-
-
-p = [=[
-
-pattern <- exp !.
-exp <- S (alternative / grammar)
-
-alternative <- seq ('/' S seq)*
-seq <- prefix*
-prefix <- '&' S prefix / '!' S prefix / suffix
-suffix <- primary S (([+*?]
- / '^' [+-]? num
- / '->' S (string / '{}' / name)
- / '=>' S name) S)*
-
-primary <- '(' exp ')' / string / class / defined
- / '{:' (name ':')? exp ':}'
- / '=' name
- / '{}'
- / '{~' exp '~}'
- / '{' exp '}'
- / '.'
- / name S !arrow
- / '<' name '>' -- old-style non terminals
-
-grammar <- definition+
-definition <- name S arrow exp
-
-class <- '[' '^'? item (!']' item)* ']'
-item <- defined / range / .
-range <- . '-' [^]]
-
-S <- (%s / '--' [^%nl]*)* -- spaces and comments
-name <- [A-Za-z][A-Za-z0-9_]*
-arrow <- '<-'
-num <- [0-9]+
-string <- '"' [^"]* '"' / "'" [^']* "'"
-defined <- '%' name
-
-]=]
-
-print(re.match(p, p)) -- a self description must match itself
-
-
-
-
-
-
-
-Copyright © 2008-2010 Lua.org, PUC-Rio.
-
-
-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.
-
-
-
-
-
-
-
-
-$Id: re.html,v 1.21 2013/03/28 20:43:30 roberto Exp $
-
-
-
-
hihello buttotheend ]]
-checkeq(x, {tag='x', 'hi', {tag = 'b', 'hello'}, 'but',
- {'totheend'}})
-
-
--- tests for look-ahead captures
-x = {re.match("alo", "&(&{.}) !{'b'} {&(...)} &{..} {...} {!.}")}
-checkeq(x, {"", "alo", ""})
-
-assert(re.match("aloalo",
- "{~ (((&'al' {.}) -> 'A%1' / (&%l {.}) -> '%1%1') / .)* ~}")
- == "AallooAalloo")
-
--- bug in 0.9 (and older versions), due to captures in look-aheads
-x = re.compile[[ {~ (&(. ([a-z]* -> '*')) ([a-z]+ -> '+') ' '*)* ~} ]]
-assert(x:match"alo alo" == "+ +")
-
--- valid capture in look-ahead (used inside the look-ahead itself)
-x = re.compile[[
- S <- &({:two: .. :} . =two) {[a-z]+} / . S
-]]
-assert(x:match("hello aloaLo aloalo xuxu") == "aloalo")
-
-
-p = re.compile[[
- block <- {| {:ident:space*:} line
- ((=ident !space line) / &(=ident space) block)* |}
- line <- {[^%nl]*} %nl
- space <- '_' -- should be ' ', but '_' is simpler for editors
-]]
-
-t= p:match[[
-1
-__1.1
-__1.2
-____1.2.1
-____
-2
-__2.1
-]]
-checkeq(t, {"1", {"1.1", "1.2", {"1.2.1", "", ident = "____"}, ident = "__"},
- "2", {"2.1", ident = "__"}, ident = ""})
-
-
--- nested grammars
-p = re.compile[[
- s <- a b !.
- b <- ( x <- ('b' x)? )
- a <- ( x <- 'a' x? )
-]]
-
-assert(p:match'aaabbb')
-assert(p:match'aaa')
-assert(not p:match'bbb')
-assert(not p:match'aaabbba')
-
--- testing groups
-t = {re.match("abc", "{:S <- {:.:} {S} / '':}")}
-checkeq(t, {"a", "bc", "b", "c", "c", ""})
-
-t = re.match("1234", "{| {:a:.:} {:b:.:} {:c:.{.}:} |}")
-checkeq(t, {a="1", b="2", c="4"})
-t = re.match("1234", "{|{:a:.:} {:b:{.}{.}:} {:c:{.}:}|}")
-checkeq(t, {a="1", b="2", c="4"})
-t = re.match("12345", "{| {:.:} {:b:{.}{.}:} {:{.}{.}:} |}")
-checkeq(t, {"1", b="2", "4", "5"})
-t = re.match("12345", "{| {:.:} {:{:b:{.}{.}:}:} {:{.}{.}:} |}")
-checkeq(t, {"1", "23", "4", "5"})
-t = re.match("12345", "{| {:.:} {{:b:{.}{.}:}} {:{.}{.}:} |}")
-checkeq(t, {"1", "23", "4", "5"})
-
-
--- testing pre-defined names
-assert(os.setlocale("C") == "C")
-
-function eqlpeggsub (p1, p2)
- local s1 = cs2str(re.compile(p1))
- local s2 = string.gsub(allchar, "[^" .. p2 .. "]", "")
- -- if s1 ~= s2 then print(#s1,#s2) end
- assert(s1 == s2)
-end
-
-
-eqlpeggsub("%w", "%w")
-eqlpeggsub("%a", "%a")
-eqlpeggsub("%l", "%l")
-eqlpeggsub("%u", "%u")
-eqlpeggsub("%p", "%p")
-eqlpeggsub("%d", "%d")
-eqlpeggsub("%x", "%x")
-eqlpeggsub("%s", "%s")
-eqlpeggsub("%c", "%c")
-
-eqlpeggsub("%W", "%W")
-eqlpeggsub("%A", "%A")
-eqlpeggsub("%L", "%L")
-eqlpeggsub("%U", "%U")
-eqlpeggsub("%P", "%P")
-eqlpeggsub("%D", "%D")
-eqlpeggsub("%X", "%X")
-eqlpeggsub("%S", "%S")
-eqlpeggsub("%C", "%C")
-
-eqlpeggsub("[%w]", "%w")
-eqlpeggsub("[_%w]", "_%w")
-eqlpeggsub("[^%w]", "%W")
-eqlpeggsub("[%W%S]", "%W%S")
-
-re.updatelocale()
-
-
--- testing nested substitutions x string captures
-
-p = re.compile[[
- text <- {~ item* ~}
- item <- macro / [^()] / '(' item* ')'
- arg <- ' '* {~ (!',' item)* ~}
- args <- '(' arg (',' arg)* ')'
- macro <- ('apply' args) -> '%1(%2)'
- / ('add' args) -> '%1 + %2'
- / ('mul' args) -> '%1 * %2'
-]]
-
-assert(p:match"add(mul(a,b), apply(f,x))" == "a * b + f(x)")
-
-rev = re.compile[[ R <- (!.) -> '' / ({.} R) -> '%2%1']]
-
-assert(rev:match"0123456789" == "9876543210")
-
-
--- testing error messages in re
-
-local function errmsg (p, err)
- local s, msg = pcall(re.compile, p)
- assert(not s and string.find(msg, err))
-end
-
-errmsg('aaaa', "rule 'aaaa'")
-errmsg('a', 'outside')
-errmsg('b <- a', 'undefined')
-errmsg("x <- 'a' x <- 'b'", 'already defined')
-errmsg("'a' -", "near '-'")
-
-
-print"OK"
-
-
diff --git a/OpenSource/luaffi/makefiles/ffi.vcxproj b/OpenSource/luaffi/makefiles/ffi.vcxproj
index 9b72f9977..eb53fa1ca 100644
--- a/OpenSource/luaffi/makefiles/ffi.vcxproj
+++ b/OpenSource/luaffi/makefiles/ffi.vcxproj
@@ -1,5 +1,5 @@
-
+
Debug
@@ -35,10 +35,12 @@
DynamicLibrary
Unicode
true
+ v100
DynamicLibrary
Unicode
+ v100
@@ -82,10 +84,10 @@
true
- "$(ProjectDir)..\..\Lua\Current\bin\Win32\Release\lua.exe" "$(ProjectDir)..\src\dynasm\dynasm.lua" -LNE -D X32WIN -o "$(ProjectDir)..\src\call_x86.h" "$(ProjectDir)..\src\call_x86.dasc"
-"$(ProjectDir)..\..\Lua\Current\bin\Win32\Release\lua.exe" "$(ProjectDir)..\src\dynasm\dynasm.lua" -LNE -D X64 -o "$(ProjectDir)..\src\call_x64.h" "$(ProjectDir)..\src\call_x86.dasc"
-"$(ProjectDir)..\..\Lua\Current\bin\Win32\Release\lua.exe" "$(ProjectDir)..\src\dynasm\dynasm.lua" -LNE -D X64 -D X64WIN -o "$(ProjectDir)..\src\call_x64win.h" "$(ProjectDir)..\src\call_x86.dasc"
-"$(ProjectDir)..\..\Lua\Current\bin\Win32\Release\lua.exe" "$(ProjectDir)..\src\dynasm\dynasm.lua" -LNE -o "$(ProjectDir)..\src\call_arm.h" "$(ProjectDir)..\src\call_arm.dasc"
+ "$(ProjectDir)..\..\Lua\Current\bin\Win32\$(Configuration)\lua.exe" "$(ProjectDir)..\src\dynasm\dynasm.lua" -LNE -D X32WIN -o "$(ProjectDir)..\src\call_x86.h" "$(ProjectDir)..\src\call_x86.dasc"
+"$(ProjectDir)..\..\Lua\Current\bin\Win32\$(Configuration)\lua.exe" "$(ProjectDir)..\src\dynasm\dynasm.lua" -LNE -D X64 -o "$(ProjectDir)..\src\call_x64.h" "$(ProjectDir)..\src\call_x86.dasc"
+"$(ProjectDir)..\..\Lua\Current\bin\Win32\$(Configuration)\lua.exe" "$(ProjectDir)..\src\dynasm\dynasm.lua" -LNE -D X64 -D X64WIN -o "$(ProjectDir)..\src\call_x64win.h" "$(ProjectDir)..\src\call_x86.dasc"
+"$(ProjectDir)..\..\Lua\Current\bin\Win32\$(Configuration)\lua.exe" "$(ProjectDir)..\src\dynasm\dynasm.lua" -LNE -o "$(ProjectDir)..\src\call_arm.h" "$(ProjectDir)..\src\call_arm.dasc"
