GOOF----LE-8-2.0S) ] � 4 hT ] g guile� � g define-module*� � � g scripts� g scan-api� � g filenameS�
f scripts/scan-api.scm� g importsS� g ice-9�
g popen�
� � g rdelim� � � g regex� � � � g exportsS� � g set-current-module� � � g %include-in-guild-list� f 2Generate an API description for a Guile extension.� g %summary� g set-object-property!� g put� !g object-property� "g get� #g add-props� $g make-regexp� %g open-pipe� &g OPEN_READ� 'g eof-object?� (g regexp-exec� )g read-line� *g scan� +f ^.guile.+: ([^ ]+)([ ]+(.+))*$� ,g format� -f
~A -c '~S ~S'� .g use-modules� /g session� 0/ � 1.0 � 2g apropos� 3f .� 423 � 5g string->symbol� 6g match:substring� 7g Scheme� 8f � 9g
hashq-set!� :g scan-Scheme!� ;f ^[0-9a-fA-F]+ ([B-TV-Z]) (.+)$� <f nm ~A� =g C� >g hashq-get-handle� ?g error� @f both Scheme and C:� Ag scan-C!� Bg current-module� Cg THIS-MODULE� Dg memq� Eg groups� Fg in-group?� Gg string-match� Hg
string-append� If ^� Jg symbol->string� Kg name-prefix?� Lg add-group-name!� Mg eval� Ng name� Og make-grok-proc� Pg make-members-proc� Qg make-hook� Rg for-each� Sg assq-ref� Tg members� Ug grok� Vf +bad grouping, must have `members' or `grok'� Wg add-hook!� Xg description� Yg read� Zg open-file� [g make-grouper� \g list-ref� ]g catch� ^] � _] � `g make-hash-table� ag sort� bg hash-fold� cg string� dg scan-data� e7 � f= � gg run-hook� hg string<?� if +;;; generated by scan-api -- do not edit!
� jf (
� kf (meta
� lf (GUILE_LOAD_PATH . ~S)
� mg getenv� nf GUILE_LOAD_PATH� of (LTDL_LIBRARY_PATH . ~S)
� pf LTDL_LIBRARY_PATH� qf (guile . ~S)
� rf (libguileinterface . ~S)
� sf (.+)� tf ~A -c '(display ~A)'� ug %guile-build-info� vg quote� wg libguileinterface� xvw � ySux � zf (sofile . ~S)
� {f ~A
� |g append� }g map� ~g
hook->list� 7= � �f ) ;; end of meta
� �f (interface
� �f (~A ~A (scan-data ~S))
� �f ) ;; end of interface
� �f ) ;; eof
� �g main�C 5 hX � ]4
5 4 > "