GOOF----LE-8-2.0S)]†4hT ] gguile¤ ¤ gdefine-module*¤ ¤ ¤ gscripts¤ gscan-api¤ ¤ gfilenameS¤ fscripts/scan-api.scm¤ gimportsS¤ gice-9¤ gpopen¤   ¤ ¤ grdelim¤  ¤ ¤ gregex¤  ¤ ¤ ¤ gexportsS¤ ¤ gset-current-module¤ ¤ ¤ g%include-in-guild-list¤ f2Generate an API description for a Guile extension.¤ g%summary¤ gset-object-property!¤ gput¤ !gobject-property¤ "gget¤ #g add-props¤ $g make-regexp¤ %g open-pipe¤ &g OPEN_READ¤ 'g eof-object?¤ (g regexp-exec¤ )g read-line¤ *gscan¤ +f ^.guile.+: ([^ ]+)([ ]+(.+))*$¤ ,gformat¤ -f ~A -c '~S ~S'¤ .g use-modules¤ /gsession¤ 0 /¤ 1.0¤ 2gapropos¤ 3f.¤ 423¤ 5gstring->symbol¤ 6gmatch:substring¤ 7gScheme¤ 8f¤ 9g hashq-set!¤ :g scan-Scheme!¤ ;f^[0-9a-fA-F]+ ([B-TV-Z]) (.+)$¤ ghashq-get-handle¤ ?gerror¤ @fboth Scheme and C:¤ Agscan-C!¤ Bgcurrent-module¤ Cg THIS-MODULE¤ Dgmemq¤ Eggroups¤ Fg in-group?¤ Gg string-match¤ Hg string-append¤ If^¤ Jgsymbol->string¤ Kg name-prefix?¤ Lgadd-group-name!¤ Mgeval¤ Ngname¤ Ogmake-grok-proc¤ Pgmake-members-proc¤ Qg make-hook¤ Rgfor-each¤ Sgassq-ref¤ Tgmembers¤ Uggrok¤ Vf+bad grouping, must have `members' or `grok'¤ Wg add-hook!¤ Xg description¤ Ygread¤ Zg open-file¤ [g make-grouper¤ \glist-ref¤ ]gcatch¤ ^]¤ _]¤ `gmake-hash-table¤ agsort¤ bg hash-fold¤ cgstring¤ dg scan-data¤ e7¤ f=¤ ggrun-hook¤ hgstringlist¤ 7=¤ €f) ;; end of meta ¤ f (interface ¤ ‚f(~A ~A (scan-data ~S)) ¤ ƒf) ;; end of interface ¤ „f ) ;; eof ¤ …gmain¤C5hXñ]4   54>"GRRi R!i"R hP-13"4(CŽ4>"GŽŽ"ÿÿÌ"ÿÿÄúgobject Igargs Igargs  Agkey   Agvalue   Agfilenamefscripts/scan-api.scmŒ I ŒŒ J ŒŒ  K ŒŒ  M ŒŒ  N ŒŒ  M ŒŒ " O ŒŒ : P ŒŒ A P ŒŒ A J ŒŒ I gnameg add-propsŒC#R$%&'()hpJ]#4545"I45$C45$4>"G"45"ÿÿ·45"ÿÿªBgre  pgcommand  pgmatch   pgrx   pgport   pgline   cgt  ! cgt  5 Vgfilenamefscripts/scan-api.scmŒ R ŒŒ  S ŒŒ T ŒŒ  S ŒŒ  U ŒŒ  V ŒŒ ! V ŒŒ - X ŒŒ 5 X ŒŒ W Y ŒŒ c Y ŒŒ c U ŒŒ d U ŒŒ p U ŒŒ  p gnamegscanŒC*R*+,-1456 789hPÌ]44 5544 5$">"GL6Ägm  Jgx  Jgt  ! 4gfilenamefscripts/scan-api.scmŒ a ŒŒ  b ŒŒ  b #ŒŒ  b ŒŒ  b ŒŒ  c ŒŒ  c ŒŒ  c ŒŒ ! c ŒŒ 1 d ŒŒ 9 c ŒŒ J e ŒŒ  J Ch »]45O6³ght  gguile  gfilenamefscripts/scan-api.scmŒ [ ŒŒ  \ ŒŒ  ] ŒŒ ] ŒŒ  _ ŒŒ  ` ŒŒ  ] ŒŒ  \ ŒŒ   gnameg scan-Scheme!ŒC:R*;,<56 =>?@9 hhå] 44 55444 55>"G4L5$4>"G"L6Ýgm  agx  agfilenamefscripts/scan-api.scmŒ j ŒŒ  k ŒŒ  k #ŒŒ  k ŒŒ  k ŒŒ  l ŒŒ  l ŒŒ  l ŒŒ  l &ŒŒ & l ŒŒ + l ŒŒ 4 m ŒŒ @ m ŒŒ A n ŒŒ E n ŒŒ L n ŒŒ a o ŒŒ  a Ch §]45O6Ÿght  gsofile  gfilenamefscripts/scan-api.scmŒ g ŒŒ  h ŒŒ  i ŒŒ i ŒŒ  i ŒŒ  h ŒŒ   gnamegscan-C!ŒCAR4Bi5CRD"EhŸ]456—gx  ggroup  gfilenamefscripts/scan-api.scmŒ s ŒŒ  t ŒŒ t ŒŒ  t ŒŒ  t ŒŒ   gnameg in-group?ŒCFRGHIJh«]45456£gx  gprefix  gfilenamefscripts/scan-api.scmŒ v ŒŒ  w ŒŒ w ŒŒ w ŒŒ  w +ŒŒ  w ŒŒ   gnameg name-prefix?ŒCKR E"h´]45Œ6¬gx  gname  gfilenamefscripts/scan-api.scmŒ y ŒŒ  z ŒŒ z ŒŒ  z #ŒŒ  z ŒŒ  z ŒŒ  z ŒŒ   gnamegadd-group-name!ŒCLRMCLh~]4L5$L6Cvgx  gfilenamefscripts/scan-api.scmŒ ~ ŒŒ   ŒŒ  ŒŒ  € ŒŒ   gnamegpŒC Nh8Ø]45OQ4>"GCÐgname  6gform  6g predicate?  6gp   6gfilenamefscripts/scan-api.scmŒ | ŒŒ  } ŒŒ } ŒŒ  ŒŒ $ ŒŒ + ŒŒ  6 gnamegmake-grok-procŒCORDLh ]4L5$L6Cygx  gfilenamefscripts/scan-api.scmŒ … ŒŒ  † ŒŒ  † ŒŒ  ‡ ŒŒ   gnamegpŒC Nh0À] OQ4>"GC¸gname  +gmembers  +gp  +gfilenamefscripts/scan-api.scmŒ „ ŒŒ … ŒŒ  ˆ ŒŒ  ˆ ŒŒ ˆ ŒŒ  + gnamegmake-members-procŒCPRQRRSTU?VW#OXP hxk]4545$"$"4>"GL$44Ž5 4 55" 4 56cggdef  xgname  xgmembers   xggrok   xgfilenamefscripts/scan-api.scmŒ ŒŒ  ‘ ŒŒ  ’ ŒŒ ’ (ŒŒ  ’ ŒŒ  “ ŒŒ  “ %ŒŒ  “ ŒŒ  ‘ ŒŒ # ” ŒŒ 2 • ŒŒ 6 • ŒŒ ; • ŒŒ M — ŒŒ N ˜ ŒŒ Q ˜ &ŒŒ X ˜ ;ŒŒ [ ˜ &ŒŒ ] ™ &ŒŒ ^ š &ŒŒ d š 5ŒŒ f š &ŒŒ h ˜ ŒŒ m › ŒŒ x – ŒŒ  x CYZ&h ]LO44556wgfile  gfilenamefscripts/scan-api.scmŒ Ž ŒŒ ŒŒ  ŒŒ  ŒŒ  ŒŒ   Ch( ] 4 54O>"GC˜gfiles  &ghook  &gfilenamefscripts/scan-api.scmŒ ‹ ŒŒ  Œ ŒŒ  Œ ŒŒ ŒŒ  & gnameg make-grouperŒC[R\_[hZ]LŽŽ6Rgfilenamefscripts/scan-api.scmŒ ¤ ŒŒ  ¤ 3ŒŒ ¤ %ŒŒ  Ch]-13CUgargs gfilenamefscripts/scan-api.scmŒ ¤ ŒŒ C`:Aab#cJd"7=Eefg h€\] 44545$" 4545$ " >"GL$4 L>"G"ŒCTgkey  }gvalue  }g prior-result   }gt   5gfilenamefscripts/scan-api.scmŒ ¨ ŒŒ  © "ŒŒ « #ŒŒ « +ŒŒ  ¬ #ŒŒ  ¬ 2ŒŒ  ¬ ;ŒŒ  ¬ 2ŒŒ  ¬ .ŒŒ * ­ 2ŒŒ 0 ­ ;ŒŒ 2 ­ 2ŒŒ 7 ® #ŒŒ 8 ® /ŒŒ > ® 8ŒŒ @ ® /ŒŒ D ® +ŒŒ F ¯ /ŒŒ L ° /ŒŒ Q © "ŒŒ _ ± "ŒŒ ` ± /ŒŒ | ² "ŒŒ  } Ch"ch¦]45456žga  gb  gfilenamefscripts/scan-api.scmŒ µ ŒŒ  ¶ !ŒŒ ¶ (ŒŒ ¶ !ŒŒ  · !ŒŒ  · (ŒŒ  · !ŒŒ  ¶ ŒŒ   C,ijklmn8opqr*sty6hj]4 5NCbgm  gfilenamefscripts/scan-api.scmŒ Ç ŒŒ  Ç *ŒŒ Ç "ŒŒ   Cz{E|}"Nhj]6bgp  gfilenamefscripts/scan-api.scmŒ Ì -ŒŒ  Ì @ŒŒ Ì 9ŒŒ  C~€R,‚E"dh ²]45Œ456ªgx  gfilenamefscripts/scan-api.scmŒ Ò ŒŒ  Ó ŒŒ Õ ŒŒ Õ (ŒŒ  Õ /ŒŒ  Õ (ŒŒ  Õ ŒŒ  Ö ŒŒ  Ö !ŒŒ  Ö ŒŒ Ó ŒŒ  Cƒ„+h "-134 54 54O54 54>"G4>"G44  O5 54  >"G4 >"G4 >"G4 45$">"G4 45$">"G4 >"G4 H44 5O>"GJ>"G4 >"G4 4 $4!"4#55"$5Œ>"G4 %>"G4 &>"G4'(>"G4 )>"G4 *>"GCgargs gguile 0 gsofile  0 ggrouper  0 ght  0 gall  v gt  ¾ Ñgt  ë þgi  ' S gfilenamefscripts/scan-api.scmŒ ¡ ŒŒ ¢ ŒŒ  £ ŒŒ  ¤ ŒŒ ) ¥ ŒŒ 0 ¢ ŒŒ 9 ¦ ŒŒ M § ŒŒ a ¨ ŒŒ d ¨ ŒŒ n ³ ŒŒ r ¨ ŒŒ v ¨ ŒŒ v ¨ ŒŒ y ¸ ŒŒ ~ ¸ ŒŒ ƒ ¸ ŒŒ Œ ¹ ŒŒ ‘ ¹ ŒŒ – ¹ ŒŒ Ÿ º ŒŒ ¤ º ŒŒ © º ŒŒ ² » ŒŒ · » ŒŒ ¸ ¼ ŒŒ ¼ ¼ ŒŒ ¾ ¼ ŒŒ ¾ ¼ ŒŒ Î ¼ -ŒŒ Ö » ŒŒ ß ½ ŒŒ ä ½ ŒŒ å ¾ ŒŒ é ¾ ŒŒ ë ¾ ŒŒ ë ¾ ŒŒ û ¾ /ŒŒ  ½ ŒŒ  ¿ ŒŒ  ¿ ŒŒ  ¿ ŒŒ ! À ŒŒ & À ŒŒ ' Á ŒŒ *  ŒŒ .  ŒŒ / à ŒŒ 4 à !ŒŒ 8 Å ŒŒ : à ŒŒ F  ŒŒ X À ŒŒ a É ŒŒ f É ŒŒ m É ŒŒ v Ê ŒŒ { Ê ŒŒ } Ë ŒŒ ~ Ë ŒŒ † Ë $ŒŒ ‡ Ì (ŒŒ Œ Í -ŒŒ ” Ì (ŒŒ ™ Î (ŒŒ › Ï $ŒŒ  Ë ŒŒ ž Ë ŒŒ £ Ê ŒŒ ¬ Ð ŒŒ ± Ð ŒŒ ¶ Ð ŒŒ ¿ Ñ ŒŒ Ä Ñ ŒŒ É Ñ ŒŒ Ò Ò ŒŒ æ Ø ŒŒ ë Ø ŒŒ ð Ø ŒŒ ù Ù ŒŒ þ Ù ŒŒ  Ù ŒŒS  gnamegscan-apiŒCRi…RCégm  ,gfilenamefscripts/scan-api.scmŒ  = ŒŒ 0 C ŒŒ 2 D ŒŒ 5 D ŒŒ < F ŒŒ C G ŒŒ ­ I ŒŒ … R ŒŒ ¶ [ ŒŒ  g ŒŒ  q ŒŒ  q ŒŒ â s ŒŒ ¾ v ŒŒ § y ŒŒ { | ŒŒ ; „ ŒŒ Û ‹ ŒŒ M ¡ ŒŒ T Ü ŒŒ  V C6