#!/usr/local/bin/sciteco -m
!*
 * ./symbols-extract.tes [-p <prefix pattern list>] -n <SymbolList object> [--] \
 *                       <output file> <input header>
 *!

0,2EJ !* FIXME: Memory limiting is too slow *!

:EMQ[$SCITECOPATH]/getopt.tes
EMQ[$SCITECOPATH]/string.tes

!* 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 *!
EBN#in <S#defineS[Q[getopt.p]]; -SS :Xa> EF

!* sort all defines *!
Ga ZJB 0,.M[qsort] J

!* format as C/C++ array *!
I/*
 * AUTOGENERATED FROM Q#in
 * DO NOT EDIT
 */
#ifdef HAVE_CONFIG_H
#include "config.h"
#endif

#include <glib.h>

#include "Q#in"
#include "sciteco.h"
#include "symbols.h"

namespace SciTECO {

static const SymbolList::Entry entries[] = {^J
<
  .,W.Xa 0KK
  I#ifdef Qa^J^I{"Qa", Qa},^J#endif^J
.-Z;>
I};

SymbolList Symbols::Q[getopt.n](entries, G_N_ELEMENTS(entries));

} /* namespace SciTECO */^J

!* write output file *!
EWQ#ou

EX