diff options
| author | Robin Haberkorn <robin.haberkorn@googlemail.com> | 2016-11-16 16:28:03 +0100 |
|---|---|---|
| committer | Robin Haberkorn <robin.haberkorn@googlemail.com> | 2016-11-18 07:05:52 +0100 |
| commit | b44a4bae7d5c1098709dfaffd122263e0f4c5bc6 (patch) | |
| tree | 2789f5ab99317bf1e399f82b173e7d2ba3b1ce1c /src/symbols-extract.tes | |
| parent | cb5e08b40d7444817c7eb6c1e4e8bf5208c2823c (diff) | |
| download | sciteco-b44a4bae7d5c1098709dfaffd122263e0f4c5bc6.tar.gz | |
standard lib: added getopt.tes for parsing command line options in scripts
* this uses an optstring compatible with getopt(3).
* It does not use repeated getopt calls to iterate options, though
but places the results in registers beginning with "getopt.".
E.g. option "C" will result in "getopt.C" being set after the
call to setopt.
String arguments are supported and are placed in the string part
of the getopt registers.
* The grosciteco.tes and symbols-extract.tes scripts make use of
getopt now, to simplify and clean up their command line handling.
Diffstat (limited to 'src/symbols-extract.tes')
| -rwxr-xr-x | src/symbols-extract.tes | 30 |
1 files changed, 17 insertions, 13 deletions
diff --git a/src/symbols-extract.tes b/src/symbols-extract.tes index e81331a..a88731d 100755 --- a/src/symbols-extract.tes +++ b/src/symbols-extract.tes @@ -1,18 +1,24 @@ #!/usr/local/bin/sciteco -m -! ./symbols-extract.tes <input file> <output file> <prefix pattern list> <array name> ! +!* + * ./symbols-extract.tes [-p <prefix pattern list>] -n <SymbolList object> [--] \ + * <output file> <input header> + *! +:EMQ[$SCITECOPATH]/getopt.tes EMQ[$SCITECOPATH]/string.tes -! read commandline arguments ! -LR 0X#in 2LR 0X#ou 2LR 0X#pa 2LR 0X#na HK +!* read commandline arguments *! +[getopt.p] +[optstring]p:n: M[getopt]"F (0/0) ' +LR 0X#ou 2LR 0X#in HK -! copy all defines in input file beginning with prefix ! -EBQ#in <S#defineS[Q#pa]; -SS :Xa> EF +!* copy all defines in input file beginning with prefix *! +EBN#in <S#defineS[Q[getopt.p]]; -SS :Xa> EF -! sort all defines ! +!* sort all defines *! Ga ZJB 0,.M[qsort] J -! format as C/C++ array ! +!* format as C/C++ array *! I/* * AUTOGENERATED FROM Q#in * DO NOT EDIT @@ -29,20 +35,18 @@ I/* namespace SciTECO { -static const SymbolList::Entry entries[] = { - +static const SymbolList::Entry entries[] = {^J < .,W.Xa 0KK I#ifdef Qa^J^I{"Qa", Qa},^J#endif^J .-Z;> I}; -SymbolList Symbols::Q#na(entries, G_N_ELEMENTS(entries)); +SymbolList Symbols::Q[getopt.n](entries, G_N_ELEMENTS(entries)); -} /* namespace SciTECO */ - +} /* namespace SciTECO */^J -! write output file ! +!* write output file *! EWQ#ou EX |