Server IP : 162.213.251.212 / Your IP : 18.226.150.47 [ Web Server : LiteSpeed System : Linux business55.web-hosting.com 4.18.0-553.lve.el8.x86_64 #1 SMP Mon May 27 15:27:34 UTC 2024 x86_64 User : allssztx ( 535) PHP Version : 8.1.31 Disable Function : NONE Domains : 1 Domains MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : ON | Sudo : OFF | Pkexec : OFF Directory : /proc/self/root/proc/self/root/proc/thread-self/root/lib64/guile/2.0/ccache/scripts/ |
Upload File : |
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 > "