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

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

:EIQ[$SCITECOPATH]/getopt.tes
EIQ[$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]]M ]; 1:Xa 10:a> 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"

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

static void __attribute__((constructor))
teco_symbols_init(void)
{
	teco_symbol_list_init(&Q[getopt.n], entries, G_N_ELEMENTS(entries), FALSE);
}

static void TECO_DEBUG_CLEANUP
teco_cmdline_cleanup(void)
{
	teco_symbol_list_clear(&Q[getopt.n]);
}


!* write output file *!
2EL EWQ#ou

EX