diff options
| author | Robin Haberkorn <robin.haberkorn@googlemail.com> | 2014-11-02 00:06:28 +0100 |
|---|---|---|
| committer | Robin Haberkorn <robin.haberkorn@googlemail.com> | 2014-11-02 00:06:28 +0100 |
| commit | a395c9df173b53e095f1a20d6bc583063cdb60c7 (patch) | |
| tree | bbfc9911b5ad561f0d35c6bf475520a4c492eb55 /src | |
| parent | 06d0bac8006889749fbf03efd5200ae68818b576 (diff) | |
| download | sciteco-a395c9df173b53e095f1a20d6bc583063cdb60c7.tar.gz | |
changed syntax for long Q-Register names: use [] brackets instead of {}
this breaks many existing scripts, and means you may have to rebuild SciTECO
with ./configure --enable-bootstrap
The syntax of SciTECO might change in backwards-incompatible until
version 1.0 is released.
Diffstat (limited to 'src')
| -rw-r--r-- | src/qregisters.cpp | 6 | ||||
| -rwxr-xr-x | src/symbols-extract.tes | 4 |
2 files changed, 5 insertions, 5 deletions
diff --git a/src/qregisters.cpp b/src/qregisters.cpp index f0d56a5..1a7ba34 100644 --- a/src/qregisters.cpp +++ b/src/qregisters.cpp @@ -375,7 +375,7 @@ MICROSTATE_START; switch (chr) { case '.': undo.push_var(is_local) = true; break; case '#': set(&&StateFirstChar); break; - case '{': set(&&StateString); break; + case '[': set(&&StateString); break; default: undo.push_str(name) = String::chrdup(g_ascii_toupper(chr)); goto done; @@ -396,10 +396,10 @@ StateSecondChar: StateString: switch (chr) { - case '{': + case '[': undo.push_var(nesting)++; break; - case '}': + case ']': if (!nesting) goto done; undo.push_var(nesting)--; diff --git a/src/symbols-extract.tes b/src/symbols-extract.tes index 2fe270c..6bd0051 100755 --- a/src/symbols-extract.tes +++ b/src/symbols-extract.tes @@ -1,7 +1,7 @@ #!./sciteco-minimal -m ! ./symbols-extract.tes <input file> <output file> <prefix pattern list> <array name> ! -EMQ{$SCITECOPATH}/string.tes +EMQ[$SCITECOPATH]/string.tes ! read commandline arguments ! LR 0X#in 2LR 0X#ou 2LR 0X#pa 2LR 0X#na HK @@ -10,7 +10,7 @@ LR 0X#in 2LR 0X#ou 2LR 0X#pa 2LR 0X#na HK EBQ#in <S#defineS[Q#pa]; -SS :Xa> EF ! sort all defines ! -Ga ZJB 0,.M{qsort} J +Ga ZJB 0,.M[qsort] J ! format as C/C++ array ! I/* |