[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
generate-scmconfig-symbols-source
From: |
Thien-Thi Nguyen |
Subject: |
generate-scmconfig-symbols-source |
Date: |
Wed, 03 Jul 2002 23:12:47 -0700 |
#!/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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- generate-scmconfig-symbols-source,
Thien-Thi Nguyen <=