generate-scmconfig-symbols-source

[Thien-Thi Nguyen]

#!/bin/sh
# ob(usage|commentary):
# guile (community|code|creature) loses scheme nature at any argument.

cat <<EOF
#include "libguile/scmconfig.h"
#include <stdio.h>
int
main (int argc, char **argv, char **envp)
{
  if (1 == argc)
    printf ("(define %%scmconfig-symbols (quote (\n");
EOF

syms=`grep '^#undef' $1 | sed 's/^.......//g'`

for sym in $syms ; do cat <<EOF
#ifdef $sym
  printf ("$sym\n");
#endif
EOF
done

cat <<EOF
  if (1 == argc)
    printf (")))\n");
  return 0;
}
EOF