1 |
#!/bin/sh |
#!/bin/sh |
2 |
# Usage: scan-api guile sofile |
# Usage: scan-api guile sofile |
3 |
# The output is an alist: ((scheme ...) (C ...)) |
# The output is an alist: ((meta ...) (scheme ...) (C ...)) |
4 |
|
|
5 |
guile=$1 |
guile=$1 |
6 |
sofile=$2 |
sofile=$2 |
28 |
} |
} |
29 |
|
|
30 |
echo ';; Generated' `date` 'by guile-scripts/scan-api -- do not edit!' |
echo ';; Generated' `date` 'by guile-scripts/scan-api -- do not edit!' |
|
echo ';; GUILE_LOAD_PATH:' $GUILE_LOAD_PATH |
|
|
echo ';; LTDL_LOAD_PATH:' $LTDL_LOAD_PATH |
|
|
echo ';; guile:' $guile |
|
|
echo ';; sofile:' $sofile |
|
|
echo |
|
31 |
echo '(' |
echo '(' |
32 |
|
echo '(meta (GUILE_LOAD_PATH . "'$GUILE_LOAD_PATH'")' |
33 |
|
echo ' (LTDL_LOAD_PATH . "'$LTDL_LOAD_PATH'")' |
34 |
|
echo ' (guile . "'$guile'")' |
35 |
|
echo ' (sofile . "'$sofile'")' |
36 |
|
echo ' (pwd . "'`pwd`'"))' |
37 |
echo '(scheme' ; scheme ; echo ') ;; end of scheme' |
echo '(scheme' ; scheme ; echo ') ;; end of scheme' |
38 |
echo '(C ' ; C ; echo ') ;; end of C' |
echo '(C ' ; C ; echo ') ;; end of C' |
39 |
echo ')' |
echo ') ;; eof' |
40 |
|
|
41 |
# scan-api ends here |
# scan-api ends here |