/[guile]/guile/guile-scripts/scan-api
ViewVC logotype

Diff of /guile/guile-scripts/scan-api

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.3 by ttn, Tue Feb 19 08:30:35 2002 UTC revision 1.4 by ttn, Fri Mar 1 07:16:17 2002 UTC
# Line 1  Line 1 
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
# Line 28  nm $sofile \ Line 28  nm $sofile \
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

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26