asda?‰PNG  IHDR ? f ??C1 sRGB ??é gAMA ±? üa pHYs ? ??o¨d GIDATx^íüL”÷e÷Y?a?("Bh?_ò???￠§?q5k?*:t0A-o??￥]VkJ￠M??f?±8\k2íll￡1]q?ù???T doc-snarf.go000064400000040700151027762450006761 0ustar00GOOF----LE-8-2.0A]4h! ] gfoo gbar gfoo/bar f0.0.2 gdoc-snarf-version gguile  gdefine-module*   gscripts g doc-snarf    gfilenameS fscripts/doc-snarf.scm gimportsS gice-9 g getopt-long   gregex   g string-fun   grdelim    gexportsS   !gset-current-module "! #! $f$Snarf out documentation from a file. %g%summary &gversion 'g single-char ('v )gvalue *) +&(* ,ghelp -'h .,-* /goutput 0'o 1) 2/01 3gtexinfo 4't 534* 6glang 7'l 8671 9+.258 :gcommand-synopsis ;gdisplay gdisplay-version ?f(Usage: doc-snarf [options...] inputfile  @f6 --help, -h Show this usage information  Af3 --version, -v Show version information  Bf? --output=FILE, -o Specify output file [default=stdout]  Cf3 --texinfo, -t Format output as texinfo  Df5 --lang=[c,scheme], -l Specify the input language  Eg display-help Ff doc-snarf Gg option-ref Hgstring->symbol Igstring-downcase Jfscheme Kg snarf-file Lgmain Mgc Nf^/\*(.*) Of^ \*/ Pf ^ \* (.*) Qf ^ \*-(.*) RfNOTHING AT THIS TIME!!! SMNOPQR Tgscheme Uf^;; (.*) Vf^;;\. Wf^;;-(.*) Xf ^\(define YTUVUWX ZSY [gsupported-languages \glist-ref ]gassq-ref ^gdocstring-start _g docstring-end `gdocstring-prefix ag option-prefix bgsignature-start cg std-int-doc? dg lang-parm egmemq fgmap ggcar hgerror if.doc-snarf: input language must be c or scheme. jg write-output kgsnarf lgformat-texinfo mg format-plain ng unread-string ogread pglength qgdefine rglambda sgstring? tgfind-std-int-doc ugseparate-fields-discarding-char vg string-append wgsplit-prefixed xgopen-input-file yg make-regexp zg eof-object? {gclose-input-port |greverse }gneutral ~g regexp-exec g read-line g doc-string gmatch:substring goptions f internal:  gappend g parse-entry gentry g make-entry g entry-symbol gentry-signature gentry-docstrings g entry-options gentry-filename g entry-line g get-symbol gmake-prototype f gcall-with-input-string g read-char g join-symbols gsymbol->string f.  f  gwith-output-to-port gopen-output-file gcurrent-output-port gfor-each f  f@c snarfed from  f: f@deffn procedure  g write-line f@c  f @end deffn f Procedure:  f;;  f Snarfed from  f C5h@3v]h]$CC~gbraz  gfilenamefscripts/doc-snarf.scm 1  2  2 2    gnamegfoo/barCRR4   54#>"G$%R9:R;<=h0]4>"G4>"G6gfilenamefscripts/doc-snarf.scm `  a   a a   a  * a 5  * gnamegdisplay-versionC>R;?@ABCDhh]4>"G4>"G4>"G4>"G4>"G6gfilenamefscripts/doc-snarf.scm e  f   f f   g   g  g  ' h  + h 0 h  9 i  = j  B i  K k  O k T k  ` l b l   b gnameg display-helpCERF:G,&3HI6J>E/KhZ-134545454544 4  555$ 6$ 64545$ 6 6Rgargs goptions  g help-wanted  J gversion-wanted  J gtexinfo-wanted  J glang  J ginput  y goutput  y gfilenamefscripts/doc-snarf.scm p q   q $  q   q   q   r   r + ! r  " s  ( s . + s  , t  2 t . 5 t  6 u  9 v  < v " B v 6 D v < F v " H v  J u  J r  X w  \ x  b w  f y  g {  l { ) o {  p |  v | * y |  y {  }  ) gnameg doc-snarfC R iLRZ[R\][^_`abc hh]45$ "K$ "=$ ".$ "$ " $ "6glang  hgparm  hgfilenamefscripts/doc-snarf.scm   h   h gnameg lang-parmCdRefg[hijklm hP] 4455$"4>"G45$ " 6ginput  Pgoutput  Pgtexinfo?   Pglang   Pgt   3gfilenamefscripts/doc-snarf.scm           # (  6  F  P   P gnameg snarf-fileCKRnopqrsh)] 4>"G45$"o 45$_&T$I$= 45$*&45$ CCCCCCCC 45$@&3$&$45$C"O"K"G"C"?C!gline  g input-port  gform   gfilenamefscripts/doc-snarf.scm       "  &  -  4  8 :  =  A D  F  J M  P  T W  \  `  a  e g  j " m  q r  w z  ~               5  gnamegfind-std-int-docg documentationfUnread @var{line} from @var{input-port}, then read in the entire form and return the standard internal docstring if found. Return #f if not.CtRufvhe]L6]gline  gfilenamefscripts/doc-snarf.scm   Chh-13LO6`glines gfilenamefscripts/doc-snarf.scm     Ch] O6gstring  gprefix  gfilenamefscripts/doc-snarf.scm     gnamegsplit-prefixedCwRxyd^_`abz{|}~ctwhu ]4544554455445544554455"74 5$4 >"G  6  &[4 5$*454 5       "45        "z &m4 54 54 54 5$*454 5        "$+45 4 5        "$45$&45$ 45""$44 5 5" 45 4  5       "Z$/45 4   5       "%45        " &24 54 54 5$+45 4 5        "$45$&45$ 45""$44 5 5" 45 4  5       " $/45 4   5       "45        "C45       "m g input-file  glang  gi-p  gdocstring-start   g docstring-end  ) gdocstring-prefix  9 g option-prefix  I gsignature-start  Y gline  _ gstate _ g doc-strings _ goptions _ gentries _ glno _ gm  gm0   Zgm1   Zgm2   Zgm3   Zgd   gint-doc   goptions   gm1  } gm2  } gm3  } gd   gint-doc    goptions   ?gfilenamefscripts/doc-snarf.scm    %  2  (  2  %    %  2 % ( ' 2 ) % )  , % / 2 5 ( 7 2 9 % 9  < % ? 2 E ( G 2 I % I  L % O 2 U ( W 2 Y % Y  _  `  j  k          - 9  & * 6                      (  )   3   4  : 9   I  O  P   X  [  " e   j   z      0     )   "  )  ;  )                 "   +   /                      )   -    '   *   :  ;   C  D  ) E  - J  9 Z  ^   b  c   l !  u "  }    #  %   %  & "  &   '   %  #   0     )   "  )  ;  )           )  *   * "  * +  * /  +  , +  / -  ? *  E # F /  N / O / ) P / - Q 0  a 0  d 2  t / u 4  } 4 ~ 4 )  4 -  4 9  4      +  B    $     gnamegsnarfCkRh]Cgsymbol  g signature  g docstrings   goptions   gfilename   gline   gfilenamefscripts/doc-snarf.scm 6  7  7    gnameg make-entryCRhz] Crge  gfilenamefscripts/doc-snarf.scm 8  9    gnameg entry-symbolCRh}] Cuge  gfilenamefscripts/doc-snarf.scm :  ;    gnamegentry-signatureCRh~] Cvge  gfilenamefscripts/doc-snarf.scm <  =    gnamegentry-docstringsCRh{] Csge  gfilenamefscripts/doc-snarf.scm >  ?    gnameg entry-optionsCRh|] Ctge  gfilenamefscripts/doc-snarf.scm @  A    gnamegentry-filenameCRh] Cge  gfilenamefscripts/doc-snarf.scm B  D    gnameg entry-lineg documentationf4This docstring will not be snarfed, unfortunately...CR|pH hA]$5454545454545645 $=4455454545454564545454569g docstrings  goptions  gdef-line   gfilename   gline-no   gfilenamefscripts/doc-snarf.scm I  K  M   N   N + O  + P  2 P  3 P 3 : P  ; P  = M  > Q  F Q  J K  M R  P R % W R Y R  Z S  a S  b T  i T  j U  u V  | V  } V 2 V  V  R  X  X  X  X - Y  Y  Y 2 Y  Y  X )  gnameg parse-entryCRohP] 4>"G4>"G45$6$6Cgs-p  Lgtmp - Lgfilenamefscripts/doc-snarf.scm a   b   c  ' d  - b  2 f 6 e  < g ? h C e  I i K k   L Ch]6{gdef-line  gfilenamefscripts/doc-snarf.scm ^ _   gnamegmake-prototypeCRohH] 4>"G4>"G45$C$CCgs-p  Ggtmp - Ggfilenamefscripts/doc-snarf.scm p   q   r  ' s  - q  2 u 6 t  9 v = w A t  F z   G Ch]6wgdef-line  gfilenamefscripts/doc-snarf.scm m n   gnameg get-symbolCRvhH](C$ 456(645456gs  Cgfilenamefscripts/doc-snarf.scm ~                  "   &   +   -  0   5  ( 7   9  1 :  5 ?  C A  5 C    C gnameg join-symbolsCRhR]LL6Jgfilenamefscripts/doc-snarf.scm      Ch(]$ 45"45O6gentries  %g output-file  %gwriter   %gfilenamefscripts/doc-snarf.scm     *   # %    % gnameg write-outputCjR;=hb]6Zgs  gfilenamefscripts/doc-snarf.scm       C;h }]4>"G6ugs  gfilenamefscripts/doc-snarf.scm       !     (   Ch]4>"G445>"G4>"G4>"G445>"G4>"G445>"G4>"G4 >"G44 5>"G4>"G4  4 5>"G4 45>"G6gentry  gfilenamefscripts/doc-snarf.scm              #   ,   <   @  E   N   Q  \   e   i  n   w   z                                  %   gnamegformat-texinfoClR;=hb]6Zgs  gfilenamefscripts/doc-snarf.scm       C;h }]4>"G6ugs  gfilenamefscripts/doc-snarf.scm       !     (   Ch]4>"G445>"G4>"G445>"G44 5>"G4 >"G44 5>"G4 >"G44 5>"G4>"G6wgentry  gfilenamefscripts/doc-snarf.scm              #   ,   <   A  L   U   Z  e   n   r  w                         gnameg format-plainCmRCngm gfilenamefscripts/doc-snarf.scm 1 J  J N U  U X  W  ` 3 e U p \ ^  a   T 8   6 U 8  :  <  > @ ! B $ I & ^ (R m ) ~ +S  /  3:  "  3< C6lint.go000064400000020131151027762450006047 0ustar00GOOF----LE-8-2.0A ]I4h] gguile  gdefine-module*   gscripts glint  gfilenameS fscripts/lint.scm gimportsS gice-9 g common-list     gformat     gexportsS  gset-current-module   g%include-in-guild-list f1Check for bugs and style errors in a Scheme file. g%summary gscan-file-for-module-name guniq gscan-file-for-free-variables gresolve-module fResolved module: ~S  !gcatch "geval #f!Unresolved free variables in ~A:  $g write-char %gwrite &gnewline 'f#No unresolved free variables in ~A  (gwith-input-from-file )g eof-object? *gread +g define-module ,gappend -gdetect-free-variables .gmemq /gdefine-generic 0gquote 1g quasiquote 2glet 3gletrec 4gmap 5gcar 6glet* 7gand-let* 8gdefine 9g define-public :g define-macro ;glambda g define-method ?gdefine* @g define-class Agdetect-free-variables-noncar Bgcase Cgunquote Dgunquote-splicing Egelse Fg=> Ggfor-each HgmainC5h0]4   54>"GRR !"hS]LL6Kgfilenamefscripts/lint.scm x   y  y   C#$%&hh-13M$4L>"G"4 >"G4L>"G4>"GNCgargs bgfilenamefscripts/lint.scm z   {   |   }   |  )   ;  @  E  N  `  b C' h])45445545H4>"G"8("64O O>"G""J$  6C}gfilename  g module-name  g free-vars   gmodule  ! g all-resolved?  ! g free-vars  > vgfilenamefscripts/lint.scm n  o  p  p   p   o   q  ! q  & s  + s  2 s  > t  D u  I w  p  v  v t      gnameglintCR()*+hP]"945$C" 45"$&C""45"gx  ?gfilenamefscripts/lint.scm          "  "  %  )  ,  . ! 2  5  ?  @  J   J Ch]6gfilename  gfilenamefscripts/lint.scm   gnamegscan-file-for-module-nameCR(),*-h@]")45$@4545"45"gx  /gfvlists  /gfilenamefscripts/lint.scm            " 8 $  '  / /  0  5 % =   = Ch]6gfilename  gfilenamefscripts/lint.scm   gnamegscan-file-for-free-variablesCR.+/0123,45-hu]L$L"M6mgbinding  gfilenamefscripts/lint.scm "  ;  ;  $   C-hd]L6\gbodyform  gfilenamefscripts/lint.scm " $  C67-hd]M6\gbodyform  gfilenamefscripts/lint.scm    C-89:;<-hd]L6\gbodyform  gfilenamefscripts/lint.scm    C=-hd]L6\gbodyform  gfilenamefscripts/lint.scm    C>?-hd]L6\gbodyform  gfilenamefscripts/lint.scm      C@Ah]$"M6zg slot/option  gfilenamefscripts/lint.scm     <  8   <      CB-hi]M6agcase  gfilenamefscripts/lint.scm     1    CCDEFA%hh]H$4J5$CC$;$"!$"$"$C$"$r$"4J4  5544  O5?44  O5?6 $"$I(4 O5@4J54 J56$"$"$:$JKJ6JKJ6$"$U"-("/$""J"4 O5@$.4J54J54 O5@$"$f"=("@$!$"""J"4 O5@$4 O5@$4J54 O5@ $"!!$""$"#$ $J64J54$J56Cgx  fglocals  fgkey  , dgletrec?  glocals-for-let-body  glocals   gargs   glocals-for-lambda-body   glocals-for-receive-body  + Nglocals  i gargs  i glocals-for-method-body    gfilenamefscripts/lint.scm      ! ! % )  ,  , b l }    . ( ; " "   (  ' 6 ? 6 '   "     "               "  ' 5 * / /  0  4 / 7 7 < C > / B 5 H / J  L  U t  v  z } %      )  3  ?  )    %      )     *  ,  3  ,  ?  9  9  3  3  *  ;  *           ! + ( : + + + 0  5 , ;  <  H  L  N  W i * o  , x  3 |  ,   J   C   ?   C   C   9   9   3   3  *  ;  *                                *                I " * M " P $  T $ 0 X $  Y %  ^ % 7 b %  d $  e '   f gnamegdetect-free-variablesC-R.FA,-hXU] $45$CC$.$ 645456CMgx  Uglocals  Ugkey  ( Sgfilenamefscripts/lint.scm )  - -  .  .  .   . ! ! 0 % -  ( 1  ( 1 8 3 * < 3 ? 5  C 5 0 G 5  H 6  M 6 7 Q 6  S 5  T 8   U gnamegdetect-free-variables-noncarCARGhs-136kgfiles gfilenamefscripts/lint.scm :  ;   gnamegmainCHRCgm  ,gfilenamefscripts/lint.scm  f 0 k 2 l  5 l  n     ) . :   0 C6use2dot.go000064400000007717151027762450006505 0ustar00GOOF----LE-8-2.0][4h"] gguile  gdefine-module*   gscripts guse2dot  gfilenameS fscripts/use2dot.scm gimportsS gsrfi gsrfi-13    gselectS g string-join   gfrisk  g make-frisker g edge-type gedge-up g edge-down    gexportsS  g autoloadsS gice-9 g getopt-long !  "  #!" $gset-current-module %$ &$ 'f1Print a module's dependencies in graphviz format. (g%summary )g guile-user *) +g*default-module* ,gformat -f~S .gq /gmap 0f~A=~A 1gvv 2fdigraph use2dot {  3gfor-each 4f ~A;  5glabel 6fGuile Module Dependencies 7gratio 8gfill 978 :9 ;g>>header "~A" =gautoload >gstyle ?gdotted @>? Agfontsize BA  C@B Dgcomputed Egbold F>E GF Hf [~A] If, Jf;  Kg>>body Lf} Mg>>footer Ng>> Ofuse2dot Pgdefault-module Qg single-char RQm Sgvalue TS UPRT VU Wg option-ref Xgreverse Ygedges ZgmainC5h` ]4   #5 4&>"G'(R*+R,-hs]6kgs  gfilenamefscripts/use2dot.scm ;  < <   gnamegqC.R/,0hy]6qgpair  gfilenamefscripts/use2dot.scm ?   @  @  @ '  @    Chp]6hgpairs  gfilenamefscripts/use2dot.scm > ?   gnamegvvC1R,23,4hf]6^gs  gfilenamefscripts/use2dot.scm E  E # E   C15.6: h0]4>"G445 56gfilenamefscripts/use2dot.scm C  D   D D   F  F   F  # F  % F  & F  + F - E   - gnameg>>headerC;R3,<=CDGH1IJh] 44545>"G45$"$ "$%4 4 4 5 5>"G"6gedge  gkey * Ngt N ~gfilenamefscripts/use2dot.scm O   P   P  P %  P 6  P  $ Q  * Q 7 R  D Q F S  N Q  W V  \ V  ] V $ ` V 1 h V : j V $ o V  W  W   Cht]6lgedges  gfilenamefscripts/use2dot.scm M N   gnameg>>bodyCKR,Lhj]6bgfilenamefscripts/use2dot.scm Z  [ [   gnameg>>footerCMR;KMh(]4>"G4>"G6xgedges  (gfilenamefscripts/use2dot.scm ]  ^   _  ( `   ( gnameg>>CNR OVWP+NXY hP-13454545454 445 556gargs Pg parsed-args  Pg=m  " Pgscan  . Pgfiles  9 Pgfilenamefscripts/use2dot.scm b c   c )  c #  d #  c   c   f  f % " f " c  % g  ) g  . g  . c  1 h  6 h ( 7 h , 9 h  9 c  > i  A i  B i  J i  L i  N i  P i  P gnameguse2dotCRiZRCgm  0gfilenamefscripts/use2dot.scm  0 2 7  5 7 7 9  : 9 ;  >  C  M  Z S ] V b ] k   _ C6punify.go000064400000004756151027762450006432 0ustar00GOOF----LE-8-2.0 ]%4hs] gguile  gdefine-module*   gscripts gpunify  gfilenameS fscripts/punify.scm gexportsS  gset-current-module     g%include-in-guild-list f1Strip comments and whitespace from a Scheme file. g%summary g string->list gsymbol->string gchar=? gmemq g list->string gdisplay gwrite f( g write-punily f) f  gwith-input-from-file g eof-object? gread !gcurrent-input-port "g punify-one #gfor-each $gmainC5h]4    54>"GRR h ]!"p$B44554:5$4 5$"45""$4:>"G66$("4>"G4 >"G"X( 6$"$"4 >"G4 >"G"""gform  gls  Kgt P vgfirst gls   glast-was-list?   g new-first   gfilenamefscripts/punify.scm . =  =  >   > &  >   >   ?  ! ?  % ?  ) ?  * @  6 ?  < A  A A # C A  P /  Y C  p D  v E  v /  y /  } /  / 0  0 1 1  1 2 3 4 5  5  6 # 6  8  7 ' 8  :  : ! :  ;   <   7 '  <   3  3   3 6  3 3   gnameg write-punilyCR !hP]"445$C4>"G4455"4455"gform  :gt :gfilenamefscripts/punify.scm I   K   L  L  N  + J  . J # 4 J  : O  : K  ; J  > J # D J  J K   J Chv]6ngfile  gfilenamefscripts/punify.scm G H   gnameg punify-oneC"R#"ht-136lgargs gfilenamefscripts/punify.scm Q  R   gnamegpunifyCRi$RCgm  (gfilenamefscripts/punify.scm  ( , + . ,  1 ,  .  G  Q  T    C6generate-autoload.go000064400000007662151027762450010517 0ustar00GOOF----LE-8-2.0]24h] gguile  gdefine-module*   gscripts ggenerate-autoload  gfilenameS fscripts/generate-autoload.scm gexportsS  gset-current-module     g%include-in-guild-list f)Generate #:autoload clauses for a module. g%summary gopen-input-file g eof-object? gread glength gdefmacro-public g define-public g define-module gmember g:export gappend gexport g export-syntax g autoload-info f--target !gdisplay "f;;; do not edit --- generated  #gstrftime $f%Y-%m-%d %H:%M:%S %g localtime &g current-time 'gnewline (f(define-module  )f (guile-user) *gfor-each +f :autoload  ,f  -f) .f ;;;  /f symbols in  0f modules  1gmainC5h( ]4    54>"GRR h])45"45$$(CCC"45"$a"F 45$4&'$45""""" 45$n&a"'$45"1"t$)$45"""":"6 45$&:454 5$4 5"" &" $454 5"d"""45"Egfile  gp gform   g module-name   gexports   gt  J fgt  s gfilenamefscripts/generate-autoload.scm @  A A   B   C  C  D / F  7 l  K l  K G N G  R G Y f  ` f  d e  f g  i g , m e  p h  r h  v e  w i  k  k  i  G W  W  V  X  X * V  a  a  ^  b  d  d  b  G Y  Y  V  Z  Z  V  [   ]   ]   [   G " H  ) H  - G  / I  2 I * 6 G  7 J  @ K  B L  F L & J L  J L  S N # X N + ] N # p J  s R  s R   P   S   U   U   U   S   B   B   B 9  B Q   gnameg autoload-infoCR !"#$%&'()**!+,h(]MN45MN6g module-name  $gexports  $gfilenamefscripts/generate-autoload.scm } (  ~ =  ~ *   >   ;   *  :  F " 4 $ *  $ Ch ] 45$ LLO@Cgfile  gt gfilenamefscripts/generate-autoload.scm y   z  z   } !  C-./0hJ-13 H H45$"$"4>"G4444555>"G4 >"G4 >"G4$" >"G4  O>"G4>"G4 >"G JJ6Bgargs g module-count g syms-count  gt   ,gtarget-override  , gfiles  ? gfilenamefscripts/generate-autoload.scm n o   q !  q )  q !  q  , o  4 s  7 s $ ? s 0 ? o  B t  F t K t  T u  W u [ u  \ u + _ u 6 e u + g u l u  u v  w  w w  x  x x ! x  y      ' )    )  gnameggenerate-autoloadCRi1RCgm  (gfilenamefscripts/generate-autoload.scm  : , = . >  1 >  @  n $   & C6frisk.go000064400000024671151027762450006234 0ustar00GOOF----LE-8-2.0)]4h] gguile  gdefine-module*   gscripts gfrisk  gfilenameS fscripts/frisk.scm gimportsS gsrfi gsrfi-1    gselectS gfilter gremove    gexportsS g make-frisker g mod-up-ls g mod-down-ls gmod-int? g edge-type gedge-up g edge-down  g autoloadsS gice-9 g getopt-long !  "  #!" $gset-current-module %$ &$ 'g%include-in-guild-list (f)Show dependency information for a module. )g%summary *g guile-user +* ,g*default-module* -g open-file .fr /g eof-object? 0g define-module 1gdef 2g use-moduleS 3g :use-module 4gregular 5gautoloadS 6g :autoload 7gautoload 8g use-modules 9gfor-each :gload ;gprimitive-load gformat ?f[computed in ~A] @gread Ag grok-proc Bgmake-object-property Cgup-ls Dgdn-ls Egint? Fgi Ggx Hgi-or-x Igsetter JI KI Lg make-edge Mgcar Ngcdr Ogup-ls+! Pgdn-ls+! Qgassq-ref Rg make-body Sgmember Tgmodules Uginternal Vgexternal Wgi-up Xgmap Ygx-up Zgi-down [gx-down \gedges ]gscan ^gdefault-module _f~A ~A --- ~A --- ~A  `g dump-updown af~A ~A  bf ~A ~A  cgdump-up dg dump-down effrisk fgupstream gg single-char hgu ifh jg downstream kgd ljk mgi nUm ogx pVo qgm rgvalue sr t^qs uilnpt vg option-ref wf$~A ~A, ~A ~A (~A ~A, ~A ~A), ~A ~A  xglength yffiles zfmodules {finternal |fexternal }fedges ~gmainC5hg]4   #5 4&>"G'R()R+,R-./01234567894h8] LM$"L$"6guse  4gt  gmaybe  2gfilenamefscripts/frisk.scm !  .  .  s "  s  # t  ' t  4 #  4 C:;<=>?@h]I45H"45$C$$K4L>"G"("$"$>4L  $ " >"G" $" $#4L >"G"b"Y"N" $"4 LLO>"G"f$"$O4LJ$"L45$" 45>"G"45"\45"O45"Bgfilename  gp gcurmod   gform   gt   gkey  0 gmodule  ? gls  ^ gkey  k guse  gmaybe gt  ` sgfile  w  gfilenamefscripts/frisk.scm o   p  p " p  p   x   y   y  ) z  - y  0 {  0 {  > } % ? }  E ~  F   J  $ R   ^  d  k % k  " - E = s " s  t  t  " ( "  " - > " ( " -  '    {  !  1 ! 6  K {  Z  ^ " ` " v . w " z (  $  (  3  (    q     q   z "  x   q   x C   Ch]OCgdefault-module  g note-use!  gfilenamefscripts/frisk.scm n   gnameg grok-procCAR4Bi5CR4Bi5DR4Bi5ERCiRDiREiREFGh]45$CCgmodule  gfilenamefscripts/frisk.scm          gnamegi-or-xCHR4Bi5RKh(] 445>"GCgtype  %gup  %gdown   %gnew   %gfilenamefscripts/frisk.scm      % gnameg make-edgeCLRMiRNiRKCh]45456gm  gnew  gfilenamefscripts/frisk.scm  2  (     gnamegup-ls+!CORKDh]45456gm  gnew  gfilenamefscripts/frisk.scm  2  (     gnamegdn-ls+!CPRQh`]L6Xgkey  gfilenamefscripts/frisk.scm    Chn]OCfgalist  gfilenamefscripts/frisk.scm   gnameg make-bodyCRRASKCD1ELOP h]4M5$"=445>"G445>"GMN& 4564M5$"=445>"G445>"GMN45MN4>"G 6gtype  gd  gu   gt  Zgd  Z gt  y gu  gedge  gfilenamefscripts/frisk.scm       ' 4 ,  5  A 4 F  S - U  Z  ` , d  p " q  y   4   4  -  " / " 0 $ $ $!  C9RTUEVWXYZ[\h]HH4O54>"GJ4J5 4 J5 44  J554 4  J5544 J554 4 J55J6gdefault-module  gfiles  gmodules   gedges  ggrok   gfilenamefscripts/frisk.scm            6  <  E  H  Q  T  Y ! c  d  g  l ! v  w  z   !    !     gnamegscanC]RQ^,]hb]L6Zgfiles  gfilenamefscripts/frisk.scm    Ch0-1345$"OCgoptions /gt  %gdefault-module % /gfilenamefscripts/frisk.scm   .     %  / gnameg make-friskerCR9>_HXhs]4545Ckgedge  gfilenamefscripts/frisk.scm   # #     CChs]4545Ckgedge  gfilenamefscripts/frisk.scm   # #     CD h0]45445544556gm  .gfilenamefscripts/frisk.scm             $  ,  .   . Ch{]6sgmodules  gfilenamefscripts/frisk.scm   gnameg dump-updownC`R9>aH9>bh|]45456tgedge  gfilenamefscripts/frisk.scm   %  "  3     CCh0]445>"G456gm  +gfilenamefscripts/frisk.scm     #   #  +   + Chw]6ogmodules  gfilenamefscripts/frisk.scm   gnamegdump-upCcR9>aH9>bh|]45456tgedge  gfilenamefscripts/frisk.scm   %  "  3     CDh0]445>"G456gm  +gfilenamefscripts/frisk.scm     #   #  +   + Chy]6qgmodules  gfilenamefscripts/frisk.scm   gnameg dump-downCdR euvfjUV^,T\>wxyz{|}`cdh-13 45454545454544  4  5554 545 45 4 5 445454 54 54 5> "G$$""$$" " 6gargs g parsed-opts  g=u  ! g=d  - g=i  9 g=x  E gfiles  R greport  l gmodules  u ginternal ~ gexternal gedges  gfilenamefscripts/frisk.scm                % !  !  $  *  % -  -  0  6  % 9  9  <  B  % E  E  H   M  + P  / R   R  U   V   Z   [   a  3 e   f   h   l   l  o   s   u   u  x   |   ~   ~                                             I  gnamegfriskCRi~RC_gm  0gfilenamefscripts/frisk.scm  a 4 i 6 j  9 j ; l  > l  n                 W  )   ^ z     !   C6read-scheme-source.go000064400000021410151027762450010555 0ustar00GOOF----LE-8-2.0"]N4hA] gguile  gdefine-module*   gscripts gread-scheme-source  gfilenameS fscripts/read-scheme-source.scm gimportsS gice-9 grdelim      gexportsS gread-scheme-source-silently gquoted? gclump  gset-current-module   g%include-in-guild-list f/Print a parsed representation of a Scheme file. g%summary g:type gvariable g define-module glength gdefine !galias "glambda #gstring? $g procedure %g :signature &g :std-int-doc 'g annotate! (gquote )gfilename *g make-regexp +f^#! ,f^!# -f ^[ ]*(;+) .f^[ ]*$ /gopen-input-file 0g eof-object? 1g regexp-exec 2ghash-bang-comment 3g:line 4g :line-count 5g :text-list 6greverse 7g read-line 8g whitespace 9g:text :gcomment ;g:leading-semicolons g port-line ?gappend @gfollowing-form-properties Agprocess Bgfor-each Cgwrite Dgnewline Egerror Ff bad list! Ggstring->symbol Hg substring Igsymbol->string Jgassq-ref Kgleading-semicolons Lgtext MgmainC5h]4   54>"GRR !"#$%& h]"6$"&6""B 45$0&#$$6"""" 45$& "$$z 45$e&U45$@4 >"G4 >"G 6"""""$c$U4 >"G4 >"G 45$45$  6CC"""""fgform  gnote!  gfilenamefscripts/read-scheme-source.scm c      d   d   d     " "  &  (  * . d  5 z  < z  @ y B {  E {  I y L |  N |  R y U }  X }  \ y ` ~  b ~  d ~ t d  w e  ~ e  d f  f  d q  q  n r  r  n s  s  s  s  n t  t t  n u  u  u  u  n v v  v  v w w  w " w 4 w . w  w  x   x %  x   x $ d  ' g  ) g  - d 0 h  3 h  7 d 8 i < i  > i  C i L j P j  S j  Y j d k  k k  o k p l  u l  y l  } k  m   m #  m a   gnameg annotate!C'R()*+,-./0123456789:;<=>'?h-134M5NCgargs gfilenamefscripts/read-scheme-source.scm / 7  1  gnamegprop+C@h`i]b4>"G4545454545"$4 5  $ C4 5$"p4  5  $" 4  5 $84   4 54  5>"/G"(45    "45  "|".4 5$"4>"G"4 5  $44     >"G"4>"G45 45H H 4  O>"GJ   J   $"4>"GJ K  4  J  >"G4 >"G    4545" C4545"agfile  ^gnb!  ^g hash-bang-rx  A ^g bang-hash-rx  A ^gall-comment-rx  A ^gall-whitespace-rx  A ^gp  A ^gn  O Ggline  O Ggt \ Egline x gtext x gt  gt 8 .gm1 M Ygform  +gcount  (gprops  gprops  %gt  gfilenamefscripts/read-scheme-source.scm         # # %  &  * # ,  -  1 % 3  4  8 ( :  ; A  O  U  V \  h  t x  y        2 .  - . -       $ $         #  0  8 A  E  M + M ! R & U / V # [  h  u      $  !    /  !  #          '           /  6  7 % E F G  H  O  P , ^ \  ^ gnamegprocessCARBAht]MNClge  gfilenamefscripts/read-scheme-source.scm   4 *  Chn]LO6fgfile  gfilenamefscripts/read-scheme-source.scm      C6h0-13H4O>"GJ6gfiles +gres +gfilenamefscripts/read-scheme-source.scm    +  + gnamegread-scheme-source-silentlyg documentationf6See commentary in module (scripts read-scheme-source).CRBACDht]4>"G6lge  gfilenamefscripts/read-scheme-source.scm   (  2   Chn]6fgfile  gfilenamefscripts/read-scheme-source.scm   Ch-136gfiles gfilenamefscripts/read-scheme-source.scm    gnamegread-scheme-sourceg documentationf6See commentary in module (scripts read-scheme-source).CR(EFGHIhB]"$ 45$&${ 45$l&a"Q(C$"4>"G4445 55""CCCCCC:gsym  gform  ginside  $ gls  G galist  G gfirst  S gfilenamefscripts/read-scheme-source.scm            #  $  )  - /  6  : ?  C G  M  S ! S  X  \  a  e ! j  u  w # z $ } / $ # #     2 )  gnamegquoted?CR6@82:JKL ht]Y"g(6$"45$"45$"45$"|45$"(45"G 4 5  $I4 5  $4  5"45"45"454 5"E""lgforms  {gforms  mgacc   mgpass-this-one-through?   mgform   mgt  mg inner-forms  8glevel  8gtext  8g inner-form 8gt 8g new-level  gfilenamefscripts/read-scheme-source.scm            % # 0  1  5  9  = @  E # P  Q  U  Y  ] `  m  n  r  v  z }         < 0 * $  0    '  0  '   3  4  3  ,  2  .  9  ?  @  ?  9   2  <  0  *  $ # < * 0 - * 8 $ 8  ; / < ) B 9 D ) E . K > M . P ( Z  ]   b  ( m   m  p { R  { gnamegclumpCRiMRCgm  ,gfilenamefscripts/read-scheme-source.scm  V 0 ] 2 ^  5 ^  c   F ] w ~     C6disassemble.go000064400000002174151027762450007403 0ustar00GOOF----LE-8-2.0d]#4h] gguile  gdefine-module*   gscripts g disassemble  gfilenameS fscripts/disassemble.scm gimportsS gsystem gvm gobjcode     glanguage gassembly  gprefixS gasm:   gexportsS  gset-current-module   f Disassemble a compiled .go file. g%summary gfor-each gasm:disassemble !g load-objcode "gmainC5hz]4   54>"GR !hm]456egfile  gfilenamefscripts/disassemble.scm $  %  %   Ch-136wgfiles gfilenamefscripts/disassemble.scm #  $   gnameg disassembleCRi"RCrgm  ,gfilenamefscripts/disassemble.scm   . !  1 ! r # y (   { C6api-diff.go000064400000021022151027762450006560 0ustar00GOOF----LE-8-2.0!]^4h] gguile  gdefine-module*   gscripts gapi-diff  gfilenameS fscripts/api-diff.scm gimportsS gice-9 g common-list     gformat    g getopt-long     gexportsS  g autoloadsS gsrfi gsrfi-13  gstring-tokenize   gset-current-module !  "  #g%include-in-guild-list $f,Show differences between two scan-api files. %g%summary &gwith-input-from-file 'gread (gread-alist-file )gset-object-property! *gput +gobject-property ,gget -gassq-ref .gmeta /g interface 0ggroups 1gmake-hash-table 2gfor-each 3g hashq-set! 4gread-api-alist-file 5g hashq-ref 6ghang-by-the-roots 7gset-difference 8gdiff? 9g diff+note! :g hash-fold ;gacons fgroups-removed: ~A  ?fgroups-added: ~A  @glength Af ~5@A ~5@A :  Bf- Cf~5@A ~5@A : ~5@A Df~5@D ~5@D : ~5@D Ef ~A  Fgsort Ggunion Hgstringstring Jgdetails Kf~A ~A:  Lgremovals Mf ~A  Ng additions Of~A: no changes  Pgerror Qf!api-diff: group-diff: bad options Rg group-diff Sg single-char TSd Ugvalue VU WJTV XW Yg option-ref Zf /dev/null [ZZ \gstring->symbol ]gmainC5h]4   5 4">"G#R$%R&'hO]6Ggfilenamefscripts/api-diff.scm 5   5    Ch}]6ugfile  gfilenamefscripts/api-diff.scm 3 4   gnamegread-alist-fileC(R)i*R+i,R(-./*0123hk]L6cggroup  gfilenamefscripts/api-diff.scm @ ' A > A )  C h|]!4545454>"G44 54 O45>"G>"GCtgfile  |galist |gmeta   |g interface   |ght  E lgfilenamefscripts/api-diff.scm :  ;  ;  <   <   <   ;   =   = $  =   ;  " >  ( >  / >  8 ?  > ?  ? ? % E ?  H @  R B ' X B 6 Z B ' _ @  q ?   | gnamegread-api-alist-fileC4R,02235h{]LL4L56sggroup  gfilenamefscripts/api-diff.scm I  K . L .  K (  J    C-0hw]LO456ogx  gfilenamefscripts/api-diff.scm H   M   M &  M   I    Ch0] 454O>"GCg interface  ,ght )gfilenamefscripts/api-diff.scm F  G G  G G   H   , gnameghang-by-the-rootsC6R7h] 45(CCga  gb  gresult  gfilenamefscripts/api-diff.scm Q  R  R   S    gnamegdiff?C8R8hpS]H45$4>"GK"45$4>"GK"J$6CKga  kgb  kg note-removals   kgnote-additions   kg note-same   kgsame?   kgt   2gt  ; _gfilenamefscripts/api-diff.scm W  X   Y  Y   Y & + Y 8 3 Z ; Z  D Z & X Z 9 e [  i [   k gnameg diff+note!C9R6:;,0<=9>hn]6fgremovals  gfilenamefscripts/api-diff.scm f   g $ g   C?ho]6gg additions  gfilenamefscripts/api-diff.scm h   i $ i   ChG]C?gfilenamefscripts/api-diff.scm j    C2-@ABC9@hj]45NCbgsubs  gfilenamefscripts/api-diff.scm x #  y 5 y %  C@hj]45NCbgadds  gfilenamefscripts/api-diff.scm z #  { 5 { %  ChG]C?gfilenamefscripts/api-diff.scm | #   CDE h /]94L54L5$ 45"$ 45"$$ ""4$"$">"G"4>"nG"g$]$O HH4O O >"G4 J J>"G""""| 6'ggroup  gold gnew   g old-count  * g new-count  > gdelta  [ g add-count  g sub-count  gfilenamefscripts/api-diff.scm k   l # l   m #  l   n )  n 2 * l  2 o ) 3 o 2 > l  F p % Q p 2 [ l  ^ q  c q $ i r ! q r / w s !  s / q  + > B F t  t u v " } " } - ~ 4 } "  $  &   CFGHIh]45456zga  gb  gfilenamefscripts/api-diff.scm   ' '     C-J-9KL2Mhj]6bgx  gfilenamefscripts/api-diff.scm 4  A 6  Ch(]4L>"G6gremovals  !gfilenamefscripts/api-diff.scm *  *  5 1  * ! *  ! CKN2Mhj]6bgx  gfilenamefscripts/api-diff.scm 4  A 6  Ch(]4L>"G6g additions  !gfilenamefscripts/api-diff.scm *  *  5 1  * ! *  ! COhZ]L6Rgfilenamefscripts/api-diff.scm *  7 ,  Ch`]4L5$"4L5$"OOO6ggroup  Ygt gold  Ygt  ( :gnew  : Ygfilenamefscripts/api-diff.scm   , (  C   , ( ( 7 C :  Y   Y CPQha-13 4544554545445545(74   >"G  O4455645  $ O 66Ygi-old gi-new goptions  gi-old   gg-old  # g g-old-names  . gi-new  7 gg-new  J g g-new-names  U gt  gfilenamefscripts/api-diff.scm ] ^   ^   _   _ !  _ %  _ 0 ! _ % # _  # ^  & `  . ^  1 a  7 ^  : b  ? b ! @ b % F b 0 H b % J b  J ^  M c  U ^  ] d  ^ e    k  d    %  gnameg group-diffCRRXY[4J<\R hx-1345454545H45$4 4 ,55JK" J@gargs vgp  vgrest  ! vgi-old  + vgi-new  6 vgoptions  9 vgt  E lgfilenamefscripts/api-diff.scm               ! !  !  $  ) % +  +  .  3 % 6  6  9  9  < B  E E  O * P * U / _ * ` $ c  e  v # v gnamegapi-diffCRi]RCgm  0gfilenamefscripts/api-diff.scm  ) 4 0 6 1  9 1 H 3 O 7 V 8  : N F  Q  W  ]      C6snarf-check-and-output-texi.go000064400000043443151027762450012345 0ustar00GOOF----LE-8-2.0 G]4h ] gguile  gdefine-module*   gscripts gsnarf-check-and-output-texi  gfilenameS f'scripts/snarf-check-and-output-texi.scm gimportsS gice-9 gstreams     gmatch     gexportsS  gset-current-module   g%include-in-guild-list f8Transform snarfed .doc files into texinfo documentation. g%summary gmake-syntax-transformer   gwhen gmacro !g $sc-dispatch "! #! $g_ %gany &$% 'g syntax->datum (' )' *g datum->syntax +* ,* -gif .gbegin /gsyntax-violation 0/ 1/ 2f-source expression failed to match any pattern 3gunless 4gnot 5g *manual-flag* 6gmember 7f--manual 8gprocess-stream 9gcurrent-input-port :g stream-null? ;g stream-car g stream-cdr ?g stream-map @gstring? Agstring Bgint_hex Cgint Dgstring->number Egint_oct Fgint_dec Ggid Hgstring->symbol Ig make-stream Jgeol Kghash Lg port->stream Mgread Ngerror Ogsyntax Pfpremature end of file Qg brace_open Rgconsume-multiline Sgconsume-upto-cookie Tgprocess-singleline Uf*premature end of file in directive context Vgreverse! Wgbegin-multiline Xf*premature end of file in multiline context Yg brace_close Zg end-multiline [gprocess-multiline-directive \g*file* ]g*line* ^g*c-function-name* _g*function-name* `g *snarf-type* ag*args* bg*sig* cg *docstring* df@deffnx {Scheme Procedure}  eg*primitive-deffnx-signature* fg string-length gg*primitive-deffnx-sig-length* hgregister iglength jgformat kf;~A:~A: ~A's C implementation takes ~A args (should take ~A) lgwith-output-to-string mf~A nf ~A of [~A pf . ~A qg primitive rf@deffnx {C Function} ~A ( sf, ~A tf)  uf ~A  vf@c snarfed from ~A:~A  wf@deffn {Scheme Procedure} ~A  xgstring=? yg substring zgdisplay {f  |f @end deffn  }f ~g string-append f@ f@@ g texi-quote gSCM G finvalid argument syntax: ~A gmap gcdr gcomma  g paren_close  gargsig funknown doc attribute: ~A garglist g paren_open  finvalid arglist syntax: ~A gvoid G glocation gtype gfname greverse   gcname gsymbol->string f unknown doc attribute syntax: ~A gargpos G g list-index f9~A:~A: wrong position for argument ~A: ~A (should be ~A)  gcurrent-error-port funknown check: ~A gmainC5h8Q]4   54>"GRR4 #&),-.h-13Cgcond gbody gfilenamef'scripts/snarf-check-and-output-texi.scm ! "   Ch{] 45L4?6sgargs  gv gfilenamef'scripts/snarf-check-and-output-texi.scm  !    C12h(y] 45$ O@6qgy  'gtmp 'gfilenamef'scripts/snarf-check-and-output-texi.scm !   ' C5R43 #&),-4.h -13Cgcond gbody gfilenamef'scripts/snarf-check-and-output-texi.scm $ %   Ch{] 45L4?6sgargs  gv gfilenamef'scripts/snarf-check-and-output-texi.scm  $    C12h(y] 45$ O@6qgy  'gtmp 'gfilenamef'scripts/snarf-check-and-output-texi.scm $   ' C53R5R67589h(-1345$ "456gflags &gfilenamef'scripts/snarf-check-and-output-texi.scm ) *   *   *   *   +  ,  & ,  & gnamegsnarf-check-and-output-texiCR:;<=>h@] 45$C45& 45L645"ginput  ;gtoken  ;gfilenamef'scripts/snarf-check-and-output-texi.scm /   F F   G   G   H   H  ! H  $ I  . I / K  ; K   ; gnamegloopC?@ABCDEFGH h]"""S"!$C45$CC$#& 4 5C""$#& 4 5C""$!& 45C"S"O$!& 4 5C"#"gexpr  gw @ ]gx  @ ]gw n gx  n gw gx  gw gx   gfilenamef'scripts/snarf-check-and-output-texi.scm /  9 " / , ; ( / ; " 3 / N 7 ( O 7 - X 7 " ] / | 5 ( } 5 - 5 " / 3 ( 3 - 3 " / 1 ( 1 , 1 " /   CI:;JK>h`]"L45$C45&"$ 45"4545C"gs  Zgs  Rgt   1gfilenamef'scripts/snarf-check-and-output-texi.scm = -  > /  @ 4  ? 1  A :  A 4 5 ? 1 6 B : B B 4 C C ? J C N Q C 9 R > /  Z CLMh0] OQ4445556gport  *gloop *gfilenamef'scripts/snarf-check-and-output-texi.scm . /   /   =  D - & = ( /  * /   * gnamegprocess-streamC8R:NOP;QR>ST hP"] 45$4>"G"45& 456  6ginput  Ngcont  Ngtoken  , Ngfilenamef'scripts/snarf-check-and-output-texi.scm M  O  O   P   P  P   P  & R  , R  1 T 3 T  7 S  : U  D U  N X   N gnamegdispatch-top-cookieC=R:NOU;<V> h]"k45$4>"G"45&"445>"G45645""gprocess  |ginput  |gcont   |gacc   qginput   qgtoken  0 qgfilenamef'scripts/snarf-check-and-output-texi.scm \  ]   _  _   `   `  `   `  * b  0 b  5 d  7 d  ; c  < e ? e  J e U f  ] f b h  c h % q h  q ]  r ]  | ]   | gnamegconsume-upto-cookieCSRW:NOX;YZ>S[ h` ] 45$4>"G"45&4>"GL456  L6ginput  \gtoken , \gfilenamef'scripts/snarf-check-and-output-texi.scm m   o o   p   p  p   p  & r  , r  1 t  3 t  7 s  8 u J v  R v \ x   \ gnamegloopC:NOX;YZ>S[ hJ]4>"GOQ45$4>"G"45&4 >"G4 56  6Bginput  |gcont  |gloop   |gtoken  L |gfilenamef'scripts/snarf-check-and-output-texi.scm j  k   m  # o - o  . p  2 p 4 p  9 p  F r  L r  Q t  S t  W s  X u j v  r v | x   | gnamegconsume-multilineCRR\R]R^R_R`RaRbRcR\]^_`abc h ]        Cgfilenamef'scripts/snarf-check-and-output-texi.scm                  gnamegbegin-multilineCWRdeR4fiei5gRbh`iaNjk\]_ljm_nopah`]04>"G"L$$4>"G""L$+4>"G]"L $4>"G""'(C4>"G"" "i "-Xgargs  gr  go  L gargs  L gtail  L gtail  gfilenamef'scripts/snarf-check-and-output-texi.scm           $  %  * " - ( 2  = ! @ , H  L  Q  U  V  [ % ^ , c  n $ q , v 7     ' $    " - 2 " - "   =  -  C5qjr^amsthx+]4>"G("L4>"G")("(4>"G""6#gargs ; dgfilenamef'scripts/snarf-check-and-output-texi.scm          "  ' ! * & /  ;  A  F  K % N , S  ^ d  d  g ' m  r  t   t Cuvwfgxyezc{|h]@&" 45$+44   455>"G"& "4  O5$& 4 5""4 >"G4  >"G4>"G"|("~$*45$44 55""$ 4>"G"4>"G""x4>"G6greq  gopt gvar   gall   gnice-sig  g scm-deffnx  gstrings  gg scm-deffnx  ggfilenamef'scripts/snarf-check-and-output-texi.scm               % &  ,  5  6 :  ;  > C  J + T Y  i " m t  5                  +          "  -  "   &  *  +  0  5  @  J  K  g  g  t  x  }     C   gnameg end-multilineCZRf}~yxhH#] 4L5$C4L545$"4L56gi  Egss ! ;gfilenamef'scripts/snarf-check-and-output-texi.scm           . !  !  $  * ( ,  0  2  <  A  C  E   E gnamegrecCh] OQ 6gs  grec gfilenamef'scripts/snarf-check-and-output-texi.scm    gnameg texi-quoteCRGNj h@|]1" "$$$t$N&'$ 4L5C445564455644556445564455644556$*$$""""$( $C"""tgexpr  =gw  gx   gw  1 gx  1 gw  B gx  B gw gx  gw $ 5 gfilenamef'scripts/snarf-check-and-output-texi.scm  X  _  c  h  i 8 s  u  x  }  ~ 8     8     8     8     8        0  5 '  = gnamegdo-argsCCNjbaA\]`G~_^c!hZ ]yO""" ""=""L$7&$$&$   $     &o"456 $R (G   $-  &   C456456""456456456456456456456456$A&+$ "$_ $,$ 45"44 4  555"44 4  555"44 4  555"$ $l$] $<$-(  $""' """""" """""" C"p"l"h$&|$q$\&F$;(0  $      &   C"""""""""$X&B$7(,$& C"t"p"l"h"d"`$X&B$7(,$& C" " """"$&o"`(4544?5 C$6$& & """|"x""i"e$b&L$A(6$&&4455 C"""""""""t(45 C$J$0&"4 564 564 56"$A$,&$ ")"="9"5"1Q" R gl  gexpr   gw  3 dgx  3 dgw  L Hgx  L Hgw  ] :gx  ] :gw v gx v gw gx gw gw  gx  gw   gx   gw   gx   gw  # gx  # gw  = gx  = gw [ rgw   Wgx   Wgw   Ogx   Ogw   Kgx   Kgw  ?gw ! ;gx ! ;gw  h gx  h gw   gw   gx   gw   gx   gw   gw    gx    gw  . gx  . gls  > gp-ls  > gname  K ]gw  g gw  v gx v gw   gx   gw   gw    gx    gexpr  " gls  * gp-ls  * gstring  7 ?gw  I gw  X gx  X gw   gx   gw   gx   gdo-args  Dgfilenamef'scripts/snarf-check-and-output-texi.scm                                                        !   &   *   ,   /   4   8   :   =   B   F   H   K   P   T   V   Y   ^   b   d   g   l   p   r   r             7          7          7       g  o       1   5   ;            N  Q ( Y  [  `     *       "   =   B   w   |                                               o   gnamegprocess-multiline-directiveC[R_GCazj\Nh({]q$$$$$$&$$   &o$f(]  $O     &;45$( $C4    54 56CCCCCCCCCCC 4 56 4 56 4 56Csgl  $gw  gx   gw  6 gx  6 gw  G gx  G gw  ` gx  ` gw q gx q gw gw gx gidx  gfilenamef'scripts/snarf-check-and-output-texi.scm   3  .  , #  %  %  &  '  '  ' (  ( ) 2 (  *  ( 1   1   1   1   1   1   1   1   1   1   1  " 1   $ gnamegprocess-singlelineCTRiRCIgm  ,gfilenamef'scripts/snarf-check-and-output-texi.scm   0  2   5   '  ) . M  \ u j y | } }  ~         %   &  > ! 5 8  8 6   8 C6help.go000064400000020701151027762450006034 0ustar00GOOF----LE-8-2.0!]p4h ] gguile  gdefine-module*   gscripts ghelp  gfilenameS fscripts/help.scm gimportsS gice-9 gformat     g documentation    gsrfi gsrfi-1  gselectS gfold g append-map    gexportsS g show-help g show-summary g show-usage gmain !  "gset-current-module #" $" %fShow a brief help message. &g%summary 'fhelp help --all help COMMAND (g %synopsis )f Show help on guild commands. With --all, show arcane incantations as well. With COMMAND, show more detailed help for a particular command.  *g%help +g file-exists? ,gfile-is-directory? -gopendir .g eof-object? /gclosedir 0greaddir 1gstring=? 2f. 3f.. 4gdirectory-files 5gor-map 6gstring-suffix? 7g string-null? 8g substring 9g string-length :gappend ;g%load-compiled-extensions gunique ?gmap @gsymbol->string Agsort Bg in-vicinity Cg %load-path Dgstringsymbol Jgresolve-module KgensureS Lgand=> Mgmodule-variable Ng variable-ref Og%include-in-guild-list Pf ~A ~23t~a  Qf ~A  R Sf For help on a specific command, try "guild help COMMAND". Report guild bugs to ~a GNU Guile home page: General help using GNU software: For complete documentation, run: info guile 'Using Guile Tools'  Tg%guile-bug-report-address Ug list-commands Vgfile-commentary Wg%search-load-path Xgmodule-filename Ygmodule-commentary Zg last-pair [g module-name \gmodule-command-name ]gcurrent-output-port ^g string-split _g string-append `f OPTION... af Usage: guild  bgnewline cf guild  df)No documentation found for command "~a".  egcurrent-module fg%mod gf--all hg if-a ji kgcurrent-error-port lgexit mgstring-prefix? nf- ofNo command named "~a". C5hx]4   !54$>"G%&R'(R)*R+,-./0123 h]!45$45$}45"`45$4>"GC4545$" 4 5$""45"CCgdir  g dir-stream  gnew  % gacc  % gt  U ngfilenamefscripts/help.scm )  * *   *   *   +   +  % ,  & .  0 . 1 0  F 2  M 3  Q 3 & U 3  U 3  c 4  g 4 & k 4  r 3  } 6  2  ,  ,  -  ,  7   gnamegdirectory-filesC4R56789h8]4L5$#45$CL 4L5456Cgext  4gfilenamefscripts/help.scm :  <  ;  @   ; " B  ) B 0 0 B  2 A   4 C:;<h]O456zgpath  gfilenamefscripts/help.scm 9 C  :    gnamegstrip-extensionsC=R>h8](C(C$645Cgl  5gfilenamefscripts/help.scm E  F   G   F   H   H   H ! F  & H + ( H # + I  , I  1 I $ 3 I  4 I   5 gnameguniqueC>R?@>A=h ] 45$CCgx  grest  gstripped  gfilenamefscripts/help.scm P   Q , Q   R   R +   C4Bhj]6bgx  gy  gfilenamefscripts/help.scm U ! U /  Ch ~]44L556vgpath  gfilenamefscripts/help.scm O   S   T  U   T   P    CCD h(] 4544O556ghead  &gshead &gfilenamefscripts/help.scm K  L  L   N   O  $ N  & M   & gnamegfind-submodulesCERFGHIJKLM&NO PQ h~]!4545$4455"$GL$"4 5$"$$   6  6CCvgname  gmodname  gmod   gsummary  7 gv  S fgfilenamefscripts/help.scm b   c   c  c   c   d   c  " e  # e  & e % , e : . e % 2 e  7 c  ? g  E h  K i  Q i 2 S i  S i  [ j  ^ j  j g p k u l  { l  m  m   CER ST h@]4>"G4O45>"G 6gall?  ;gfilenamefscripts/help.scm Y  Z   Z Z   a   n  # n  % n  * a  7 o ; o   ; gnameg list-commandsCURVWXh]44556gmod  gfilenamefscripts/help.scm x  z   z   z   y    gnamegmodule-commentaryCYR@Z[h]44556gmod  gfilenamefscripts/help.scm |  }   } "  }   }   }    gnamegmodule-command-nameC\R]^M(_\`FabHFcbh0]4L>"G4L>"GL6ygu  0gfilenamefscripts/help.scm          0   0 C hv-.,3#45445$"4455 54 >"G4>"G4 >"G  O6ngmod gport gvar  % Egusages  I gfilenamefscripts/help.scm    *     # 1 %  %  -  0  5  8 & @ & B  I  I  L  P W  `  e j  s    gnameg show-usageCR]M&FbhH-.,3#4545$4>"G6Cgmod Ggport Ggvar  " Ggfilenamefscripts/help.scm  ,  " " "  *  + 0  7 E  G gnameg show-summaryCR]M*FbY d\ hF-.,3#454>"G4>"G45$4>"G645$4>"G6  4 56>gmod gport gt  J gt  t gfilenamefscripts/help.scm  )   .  B  H  J  J  S X  _ m n  t  }   gnameg show-helpCR4ei5fRUhjfklmnJIK oh-13(6$"$6"445>"G 6(d4 5$"4  4 5 5$4>"G 64>"G 6"ugargs gname l gt  gfilenamefscripts/help.scm             & . ' ! +  0  5  :  C  P  P  S  W  X ! \ 1 _ 5 a ! e  l  l  o  s  t # }       & gnamegmainC RCgm  ,gfilenamefscripts/help.scm   . !  1 ! 3 "  6 " 8 #  ; #  ) - 9 P E V K Y m x 7 | 9      u   w C6compile.go000064400000023525151027762450006543 0ustar00GOOF----LE-8-2.0=']4h" ] gguile  gdefine-module*   gscripts gcompile  gfilenameS fscripts/compile.scm gimportsS gsystem gbase    gselectS g compile-file   gtarget     gmessage     gsrfi gsrfi-1   gsrfi-13   gsrfi-37 !  "! #gice-9 $gformat %#$ &% '"& (gexportsS ) *gset-current-module +* ,* -fCompile a file. .g%summary /gcurrent-error-port 0ferror: ~{~a~}~% 1gexit 2gfail 3gsrfi-37:option 4!3 5!3 6fhelp 7h6 8g alist-cons 9ghelp? :fversion ;: L= ?g assoc-ref @g load-path Afoutput BoA Cg output-file Df.`-o' option cannot be specified more than once Efwarn FWE Ggstring=? Hgshow-warning-help Igwarnings Jgstring->symbol Kg alist-delete Lfoptimize MOL Ng optimize? Offrom PfO Qgfrom Rf2`--from' option cannot be specified more than once Sfto TtS Ugto Vf0`--to' option cannot be specified more than once Wftarget XTW Yf4`--target' option cannot be specified more than once Zg%options [g args-fold \f~A: unrecognized option ]g input-files ^] _@ `gunsupported-warning aI` b^_a cg parse-args dfcompile (GNU Guile) ~A~% egversion ffCopyright (C) 2009, 2011 Free Software Foundation, Inc. License LGPLv3+: GNU LGPL version 3 or later . This is free software: you are free to change and redistribute it. There is NO WARRANTY, to the extent permitted by law.~% gf$The available warning types are:~%~% hgfor-each if ~22A ~A~% jf`~A' kg lk mk ngsrfi-9 on pgthrow-bad-struct qop rop sgwarning-type-name tgwarning-type-description ug%warning-types vf~% wgwarningsS xgOS ygscheme zgobjcode {g %host-type |fUsage: compile [OPTION] FILE... Compile each Guile source file FILE into a Guile object. -h, --help print this help message -L, --load-path=DIR add DIR to the front of the module load path -o, --output=OFILE write output to OFILE -W, --warn=WARNING emit warnings of type WARNING; use `--warn=help' for a list of available warnings -f, --from=LANG specify a source language other than `scheme' -t, --to=LANG specify a target language other than `objcode' -T, --target=TRIPLET produce bytecode for host TRIPLET Note that auto-compilation will be turned off. Report bugs to <~A>.~% }g%guile-bug-report-address ~gappend g %load-path g%load-should-auto-compile f"`-o' option can only be specified  fwhen compiling a single file g sigaction gSIGINT finterrupted by the user f wrote `~A'  g*current-warning-prefix* f g with-target g output-fileS gfromS gtoS goptsS gmainC5hK]4   '()54,>"G-.R$/01h(-13445>"G 6gmessages 'gfilenamefscripts/compile.scm + ,  ,  ,   ,  ' -  ' gnamegfailC2R5789h]6gopt  gname  garg   gresult   gfilenamefscripts/compile.scm 2   3  3   C5;<1h]4>"G 6gopt  gname  garg   gresult   gfilenamefscripts/compile.scm 5   6   7    C5>?@8h ] 456gopt  gname  garg   gresult   g load-path  gfilenamefscripts/compile.scm :   ; # ; 5 ; # ;   <  < +  <    C5B?C2D8h ]45$66gopt  gname  garg   gresult   gfilenamefscripts/compile.scm ?   @  @ ( @   @   A   A   B "  B    C5FG6H1?I8JK hH-] 45$4>"G 645454 56%gopt  Hgname  Hgarg   Hgresult   Hgwarnings  - Hgfilenamefscripts/compile.scm E   F  F $ F   F   H  $ I  % J & + J 8 - J & - J  3 K $ 4 L * = L $ > M $ B M 2 F M $ H K   H C5M8Nh]6gopt  gname  garg   gresult   gfilenamefscripts/compile.scm P   Q  Q   C5P?Q2R8Jh(]45$6456gopt  $gname  $garg   $gresult   $gfilenamefscripts/compile.scm S   T  T ( T   T   U   U   V "  V ( $ V   $ C5T?U2V8Jh(]45$6456gopt  $gname  $garg   $gresult   $gfilenamefscripts/compile.scm X   Y  Y ( Y   Y   Z   Z   [ "  [ & $ [   $ C5X?2Y8h ]45$66gopt  gname  garg   gresult   gfilenamefscripts/compile.scm ]   ^  ^ ( ^   ^   _   _   ` "  `    C ZR[Z$/\1h ]445>"G 6gopt  gname  garg   gresult   gfilenamefscripts/compile.scm f  g   g  g ,  g  h   C?]8h ] 456gfile  gresult  g input-files  gfilenamefscripts/compile.scm i  j " j 4 j " j   k   k *  k    Cbh]6gargs  gfilenamefscripts/compile.scm b  o  e    gnameg parse-argsg documentationfQParse argument list @var{args} and return an alist with all the relevant options.CcR$defh(]445>"G6gfilenamefscripts/compile.scm s  t   t t (  t   u ! u   ! gnameg show-versionC"G4>"G6gfilenamefscripts/compile.scm z  {   { {   |  . 0   0 gnamegshow-warning-helpCHRc?9wINxQyUz{]C@$|}1~22hn-136fgargs gfilenamefscripts/compile.scm      Ch$hP]LLLLL6 Hgfilenamefscripts/compile.scm      Ch(~]Y4LLLLLO5Z6vgfile  &gfilenamefscripts/compile.scm    @   &   & C hp-13 45454545$ "45$" 4 5$" 4 5$" 454545 $"$*4>"G4 >"G"4 5  $0("$4>"G""4>"GO6gargs ngoptions  nghelp?   ngo  + Hg compile-opts  H ngt  S fgfrom  f ngt  q gto  ngt  gtarget  ng input-files  ng output-file  ng load-path ngfilenamefscripts/compile.scm       -      # & & 9 ( & + # +  . 4 3 6 :  ? H  K  Q 1 S  S  c 8 f  i  o 1 q  q  6   1     -    -    -                  #  $  %  )  *  .  0  5  F  n H n gnamegcompileCRiRCCgm  ,gfilenamefscripts/compile.scm   . (  1 (  +  1   1   4   4   9   9   >   >   D   D   O  J O  N R  r R  v W  W  \  \  1  / b y s P z      C6display-commentary.go000064400000004633151027762450010733 0ustar00GOOF----LE-8-2.0 ]*4h ] gguile  gdefine-module*   gscripts gdisplay-commentary  gfilenameS fscripts/display-commentary.scm gimportsS gice-9 g documentation      gexportsS  gset-current-module   f5Display the Commentary section from a file or module. g%summary gformat f~A commentary: ~A gfile-commentary gdisplay-commentary-one gmap gsymbol->string g string-append f/ gmodule-name->filename-frag !g%search-load-path "f module ~A  #gdisplay-module-commentary $gfor-each %gstring? &g string-index 'gwith-input-from-string (gread )gmainC5h]4   54>"GRh]456gfile  gfilenamefscripts/display-commentary.scm %  & & '  &    gnamegdisplay-commentary-oneCRh@(]45" (C45"" gls  ?gls ?gls   1gacc   1gfilenamefscripts/display-commentary.scm (  ) )   *   +   -   -  $ - , ' - 0 ) -  1 - 1 *  4 *  7 * " ? *   ? gnamegmodule-name->filename-fragC R! "h8] 4455$4>"G6Cg module-name  3gt  3gfilenamefscripts/display-commentary.scm /  0  0   0  0   2   2  # 2  1 3   3 gnamegdisplay-module-commentaryC#R$%&#'(h@]45$! 4(5& 4566$6Cgref  =gfilenamefscripts/display-commentary.scm 6  7  7   8 #  8   :  ( 9  . ;  1 <  5 7  ; =   = Ch-136grefs gfilenamefscripts/display-commentary.scm 5  6   gnamegdisplay-commentaryCRi)RCgm  ,gfilenamefscripts/display-commentary.scm   . #  1 #  %  (  /  5  @    C6summarize-guile-TODO.go000064400000021024151027762450010765 0ustar00GOOF----LE-8-2.0!]}4h] g debug-enable g backtrace gguile  gdefine-module*   gscripts gsummarize-guile-TODO   gfilenameS f scripts/summarize-guile-TODO.scm gimportsS gread-text-outline   gice-9 g getopt-long    gexportsS   g autoloadsS gsrfi gsrfi-13  gstring-tokenize  gsrfi-14  gchar-set !  "g common-list #" $g remove-if-not %$ &!#% 'gset-current-module (' )' *g%include-in-guild-list +fA quaint relic of the past. ,g%summary -gset-object-property! .gput /gobject-property 0gget 1gwho 2gmap 3gstring->symbol 4gpct-done 5gstring->number 6gas-leaf 7gparent 8gfor-each 9ghang-by-the-leaves :gmake-text-outline-reader ;f=(([ ][ ])*)([-+])(D*)(R*)(X*)(([0-9]+)%)* *([^[]*)(\[(.*)\])* gbody-submatch-number ?>  @g extra-fields Agstatus BA  Cgdesign? DC  Egreview? FE  Gg extblock? HG  I4  J1  K@BDFHIJ L=?K Mg open-file Nfr Og read-TODO Pg option-ref Qginvolved Rgmemq Sgpersonal Tgreverse Ugtodo Vgstring=? Wf- Xgdone Yf+ Zgreview [g select-items \gformat ]f ~A ^f _f under : ~A~A  `g make-string af status: ~A~A~A~A~A~A item : ~A  bfD cfR dfX ef ~A% fgmake-display-item gg no-parent hg display-items ifsummarize-guile-TODO jg single-char kjw l1k mjn ngm oji pgvalue qp rQoq sjp tSsq ujt vUu wjd xXw yjr zZy {lnrtvxz |gmainC5h]4i>"G4    &5 4)>"G*R+,R-i.R/i0R01.23 45 h2] 45$-4444:555>"G"45$44 5>"G"C*gx  ygt Cgt L vgfilenamef scripts/summarize-guile-TODO.scm Q  R R  R R   T   T   U  V  % V - - V  / U  4 T  D W J W  L W L W  U Y  [ Y  \ Y  g Y   y gnamegas-leafC6R.78hw]LL6ogchild  gfilenamef scripts/summarize-guile-TODO.scm b % c 3 c '  C6hX]$'4>"GLO64>"G45MNCgtree  Tgparent  Tgfilenamef scripts/summarize-guile-TODO.scm ^   _  _  a   a  a +  a  . d % 0 b  1 f  7 f % > f  G g . P g ( R g   T gnameghangC8hn]L6fgtree  gfilenamef scripts/summarize-guile-TODO.scm h  i   Ch8]HOQ4O>"GJCgtrees  4gleaves  4ghang   1gfilenamef scripts/summarize-guile-TODO.scm \  ]   ]   ^   h   4 gnameghang-by-the-leavesC9R9:;LMNh ]4454556gfile  gfilenamef scripts/summarize-guile-TODO.scm m  o   o  p  q   o   y   y   y   o   n    gnameg read-TODOCORPQ301Rh ]45$L456Cgx  gfilenamef scripts/summarize-guile-TODO.scm   $ + $    ,  3  ,  $  CS01Th(] 45$ 45LCCgx  !gt !gfilenamef scripts/summarize-guile-TODO.scm   & - &   5  0  +  ! C8Ph ]4L5$ MNCCgpair  gfilenamef scripts/summarize-guile-TODO.scm    %     '  !     CUV0AWh]456gx  gfilenamef scripts/summarize-guile-TODO.scm   / 6 /  ?  %   CXV0AYh]456gx  gfilenamef scripts/summarize-guile-TODO.scm   / 6 /  ?  %   CZ0Ehv]6ngx  gfilenamef scripts/summarize-guile-TODO.scm   . '  CT$h+]H45$45OJK"45$45OJK"4O     >"G"!(645"4J5"#gp  gitems  gsub   gt   6gu   /gt  @ ggu  O `gsub  gitems   gfilenamef scripts/summarize-guile-TODO.scm {  |  |   } }   }  }        *  ,  7 =  @ @  I  O  [  ]  h  u       )    "  gnameg select-itemsC[R01\]^h ] 45$ 6Cgitem  gt gfilenamef scripts/summarize-guile-TODO.scm      2  '     C^hp]Chgitem  gfilenamef scripts/summarize-guile-TODO.scm     C\_`07hX]"<$444 5>"G45 "C45 "gitem  Ugparent  Bgindent   Bgfilenamef scripts/summarize-guile-TODO.scm      #  "  +  1 * 3  8 3 @  B  C " I , K " U   U Chg]C_gitem  gfilenamef scripts/summarize-guile-TODO.scm    C\a0ACb^EcGd4eh] 44545$"45$ "4 5$ "4 5$4 5"4L5> "GL6gitem  gt Y tgfilenamef scripts/summarize-guile-TODO.scm                   & & * '  -  /  3  5 & ; * <  B  D  H  J ( P , Q  W  Y  Y  b  g % k  q  u   $  Ch0]$"$"OCg show-who?  ,g show-parent?  ,gshow-who   ,g show-parents   ,gfilenamef scripts/summarize-guile-TODO.scm      , gnamegmake-display-itemCfRfP1g8h( ] 4454556gp  &gitems  &g display-item   &gfilenamef scripts/summarize-guile-TODO.scm    ) 7  )  .  <  .  )     &   & gnameg display-itemsChRi{h[OPhH'-13454444555>"GCgargs Dgp  Bgfilenamef scripts/summarize-guile-TODO.scm              " % % 5 * C - 5 . 0 0 % 2  7  D gnamegsummarize-guile-TODOC R i|RCgm - Dgfilenamef scripts/summarize-guile-TODO.scm  A A   A  C H K J L  M L T N [ O 5 Q  \  m  {        C6scan-api.go000064400000024553151027762450006610 0ustar00GOOF----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  gmainC5hX]4   54>"GRRi R!i"R hP-13"4(C4>"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-propsC#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 gnamegscanC*R*+,-1456 789hP]44 5544 5$">"GL6gm  Jgx  Jgt  ! 4gfilenamefscripts/scan-api.scm a   b   b #  b   b  c  c   c  ! c  1 d  9 c J e   J Ch ]45O6ght  gguile  gfilenamefscripts/scan-api.scm [  \   ]  ]   _   `   ]   \    gnameg scan-Scheme!C:R*;,<56 =>?@9 hh] 44 55444 55>"G4L5$4>"G"L6gm  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 ]45O6ght  gsofile  gfilenamefscripts/scan-api.scm g  h   i  i   i   h    gnamegscan-C!CAR4Bi5CRD"Eh]456gx  ggroup  gfilenamefscripts/scan-api.scm s  t  t   t   t    gnameg in-group?CFRGHIJh]45456gx  gprefix  gfilenamefscripts/scan-api.scm v  w  w  w   w +  w    gnameg name-prefix?CKR E"h]456gx  gname  gfilenamefscripts/scan-api.scm y  z z   z #  z   z   z    gnamegadd-group-name!CLRMCLh~]4L5$L6Cvgx  gfilenamefscripts/scan-api.scm ~          gnamegpC Nh8]45OQ4>"GCgname  6gform  6g predicate?  6gp   6gfilenamefscripts/scan-api.scm |  }  }    $ +   6 gnamegmake-grok-procCORDLh ]4L5$L6Cygx  gfilenamefscripts/scan-api.scm        gnamegpC Nh0] OQ4>"GCgname  +gmembers  +gp  +gfilenamefscripts/scan-api.scm       + gnamegmake-members-procCPRQRRSTU?VW#OXP hxk]4545$"$"4>"GL$445 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>"GCgfiles  &ghook  &gfilenamefscripts/scan-api.scm       & gnameg make-grouperC[R\_[hZ]L6Rgfilenamefscripts/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]45456ga  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 ]45456gx  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-apiCRiRCgm  ,gfilenamefscripts/scan-api.scm  = 0 C 2 D  5 D < F C G  I  R  [  g  q   q  s v y { | ;  M T   V C6autofrisk.go000064400000023350151027762450007116 0ustar00GOOF----LE-8-2.0&]|4h# ] gguile  gdefine-module*   gscripts g autofrisk  gfilenameS fscripts/autofrisk.scm gimportsS gsrfi gsrfi-1     gsrfi-8    gsrfi-13    gsrfi-14    gread-scheme-source   gfrisk    gexportsS ! "g autoloadsS #gice-9 $gpopen %#$ &gopen-input-pipe '& (%' )gset-current-module *) +) ,g%include-in-guild-list -f0Generate snippets for use in configure.ac files. .g%summary /g files-glob 0gnon-critical-external 1gnon-critical-internal 2gprograms 3g pww-varname 4/0123 5g*recognized-keys* 6gerror 7f syntax error: 8finput not a list 9gevery :glist? ;fnon-list element gquote ?gmemq @funrecognized key: Agapply Bgmap Cgfold Dgappend Egassq-ref Fgcanonical-configuration Ggfor-each Hgformat IfGUILE_MODULE_REQUIRED~A  Jg>>strong Kgobject->string Lg string-map! Mgchar-set-contains? Ngchar-set:letter+digit Og safe-name Pfprobably_wont_work Qg*pww* Rgedge-up Sg edge-down Tfhave_guile_module~A UfGUILE_MODULE_AVAILABLE(~A, ~A)  Vf"test "$~A" = no && ~A="~A $~A"~A Wf  Xg>>weak Yfguile_module~Asupport_~A ZfAC_PATH_PROG(~A, ~A)  [ftest \  \f "$~A" = "" -o \  ]f~A && ~A="~A $~A"  ^glist-ref _f war = peace `ffreedom = slavery afignorance = strength bgrandom cg >>program dg >>programs efecho '(' ~A ')' fgsymbol->string ggread hgunglob ig make-frisker jgexternal kg partition lgmember mg mod-down-ls nfAC_DEFUN([AUTOFRISK_CHECKS],[  of ~A=~S  pf qfAC_SUBST(~A) ])  rg>>checks sg[ AC_DEFUN([AUTOFRISK_SUMMARY],[ if test ! "$~A" = "" ; then p=" ***" echo "$p" echo "$p NOTE:" echo "$p The following modules probably won't work:" echo "$p $~A" echo "$p They can be installed anyway, and will work if their" echo "$p dependencies are installed later. Please see README." echo "$p" fi ])  tg >>summary uf modules.af vg file-exists? wfcould not find input file: xgwith-output-to-file yf~A.m4 zgread-scheme-source-silently {gmainC5h ]4    !"(5 4+>"G,R-.R45R6789:;<hk] 45Ccgform  gfilenamefscripts/autofrisk.scm N   N $ N   C=>?5h8]$$&C45$CNCCgform  4gkey  4gt  ! 2gfilenamefscripts/autofrisk.scm P   Q   Q  R   R   S $  S   S   T  ! S  0 V !  4 C@ABCDh8] L&$45""$CCgform  4gso-far  4gt  & 4gfilenamefscripts/autofrisk.scm [  \ 0 \ &  ] +  \ &  ^ +  ^ :  ^ + & \ "  4 Chj]OL6bgkey  gfilenamefscripts/autofrisk.scm Z   `  [    C5Ehb]L6Zgkey  gfilenamefscripts/autofrisk.scm c  d   Ch]$"4>"G45$"4>"G45$"4>"GH4 O5 J$"4 >"G4  O5OCgforms  g condition * Mg condition V ygun z g condition  gx  gbunched gfilenamefscripts/autofrisk.scm I  L K   K   K *  L   K  " M * M  2 K  7 K  ; K * = M  B K  N N V N  ^ K  c K  g K * i N ; n K  z O  } P Y P  K  K  K * K  Z  Z   gnamegcanonical-configurationCFRGHIhm]6egmodule  gfilenamefscripts/autofrisk.scm g  h  h   Chz]6rgmodules  gfilenamefscripts/autofrisk.scm f g   gnameg>>strongCJRKLMNhh]45$C_C`gc  gfilenamefscripts/autofrisk.scm m   n   n    Ch(] 454>"GCgmodule  "gvar "gfilenamefscripts/autofrisk.scm k  l l  m   " gnameg safe-nameCORPQRGRSHTOUVQW hP]454544554>"G 6gedge  Mgup Mgdown   Mgvar  # Mgfilenamefscripts/autofrisk.scm w  x  x  y   x   z   z %  z ; # z  # x  & {  + {  4 {  A |  K } - M |   M Ch{]6sg weak-edges  gfilenamefscripts/autofrisk.scm v w   gnameg>>weakCXRBHYOhw]4L56ogprog  gfilenamefscripts/autofrisk.scm         CGHZh]6wgvar  gprog  gfilenamefscripts/autofrisk.scm      CH[H\hm]6egvar  gfilenamefscripts/autofrisk.scm      C]^_`abQhx(] 4O54>"G4>"G4>"G4    4 556 gmodule  qgprogs  qgvars   qgfilenamefscripts/autofrisk.scm       )  .  3  <  T  U Y  [  ]  `  a  i q   q gnameg >>programCcRGchw]6ogform  gfilenamefscripts/autofrisk.scm   $   Ch]6wgprograms  gfilenamefscripts/autofrisk.scm   gnameg >>programsCdR&HeBfgh ] 4455456gpattern  gp  gfilenamefscripts/autofrisk.scm    '          gnamegunglobChRFDBh/01ij3Qkl9lhb]L6Zgi  gfilenamefscripts/autofrisk.scm "  CBSmh0] 4L5$CLO44556gmodule  /gt /gfilenamefscripts/autofrisk.scm     % / - /   / CHnJopXCDmh]456|gmodule  gso-far  gfilenamefscripts/autofrisk.scm   %     Cd2qh+]A4544455?454544554 54 5(" 4  O> G4>"G4>"G4 >"G445>"G445>"G 6#gforms  gcfg gfiles   gncx  ' gnci  0 greport  < gexternal  E g pww-varname  N bgweak  v gstrong  v  gfilenamefscripts/autofrisk.scm        *  /  *       !  %  '  '  *  .  0  0  3  4  <  <  ?  C  E  E  H  L  N  N  V  ] * _  c  y  ~       %             9  gnameg>>checksCrRHfsQh]456zgfilenamefscripts/autofrisk.scm      gnameg >>summaryCtRuv6wxHyrzth m]44L5>"G6egfilenamefscripts/autofrisk.scm            C h`-13("45$"4>"G45O6gargs Ygfile  Ygt  ! Dgfilenamefscripts/autofrisk.scm      ,     !  .  2  9  G  L $ P  Y  Y gnameg autofriskCRi{RCgm  0gfilenamefscripts/autofrisk.scm  6 4 @ 6 A  9 A ; C  > C  I 5 f k t  t v k   .       C6list.go000064400000007524151027762450006067 0ustar00GOOF----LE-8-2.0<]@4h] gguile  gdefine-module*   gscripts glist  gfilenameS fscripts/list.scm gimportsS gsrfi gsrfi-1      gexportsS g list-scripts  gset-current-module   g%include-in-guild-list fAn alias for "help". g%summary g file-exists? gfile-is-directory? gopendir g eof-object? gclosedir greaddir gstring=? !f. "f.. #gdirectory-files $gor-map %gstring-suffix? &g string-null? 'g substring (g string-length )gappend *g%load-compiled-extensions +g%load-extensions ,gstrip-extensions -gunique .gmap /gsymbol->string 0gsort 1g append-map 2gfold 3g in-vicinity 4g %load-path 5gstring<= ?<=C5h8 ]4   54>"GRR !" h]!45$45$}45"`45$4>"GC4545$" 4 5$""45"CCgdir  g dir-stream  gnew  % gacc  % gt  U ngfilenamefscripts/list.scm #  $ $   $   $   %   %  % &  & (  0 ( 1 *  F ,  M -  Q - & U -  U -  c .  g . & k .  r -  } 0  ,  &  &  '  &  1   gnamegdirectory-filesC#R$%&'(h8]4L5$#45$CL 4L5456Cgext  4gfilenamefscripts/list.scm 4  6  5  :   5 " <  ) < 0 0 <  2 ;   4 C)*+h]O456zgpath  gfilenamefscripts/list.scm 3 =  4    gnamegstrip-extensionsC,R-h8](C(C$645Cgl  5gfilenamefscripts/list.scm ?  @   A   @   B   B   B ! @  & B + ( B # + C  , C  1 C $ 3 C  4 C   5 gnameguniqueC-R./-012,h ] 45$CCgx  grest  gstripped  gfilenamefscripts/list.scm J   K , K   L   L +   C#3hj]6bgx  gy  gfilenamefscripts/list.scm O ! O /  Ch ~]44L556vgpath  gfilenamefscripts/list.scm I   M   N  O   N   J    C45 h(] 4544O556ghead  &gshead &gfilenamefscripts/list.scm E  F  F   H   I  $ H  & G   & gnamegfind-submodulesC6R789hc]6[gx  gfilenamefscripts/list.scm T  V  V   C6:h-13456gargs gfilenamefscripts/list.scm S  W  W   W  T   gnameg list-scriptsCR?hp-13@hgargs gfilenamefscripts/list.scm Y  Z   gnamegmainC=RCgm  ,gfilenamefscripts/list.scm   0  2  5  # % 3 H ? N E S 3 Y   5 C6snarf-guile-m4-docs.go000064400000007053151027762450010571 0ustar00GOOF----LE-8-2.0]34hS] gguile  gdefine-module*   gscripts gsnarf-guile-m4-docs  gfilenameS fscripts/snarf-guile-m4-docs.scm gimportsS gice-9 grdelim      gexportsS  gset-current-module   g%include-in-guild-list f/Snarf out texinfo documentation from .m4 files. g%summary gdisplay f@deffn {Autoconf Macro} gfor-each gstring=? f# g substring g string-length f#  !gnewline "f @end deffn #g display-texi $gcatch %$ &$ 'gprefix? (g list->string )greverse *g string->list +g massage-usage ,g open-file -fr .g eof-object? /f# Usage: 0g read-line 1fAC_DEFUN 2gmainC5h ]4   54>"GRR !h]4"&44 55$ 4 5"B"<45 $*44 55$ 4 5"""">"G6gline  |gfilenamefscripts/snarf-guile-m4-docs.scm *  +  .   . (  . ,  .   +   /  / +  0 + ' 9 + # = +  > , # B , - C , 2 N , # R +  S -  p +  | 1   | C"!hP]4>"G4>"G4>"G4>"G6glines  Ngfilenamefscripts/snarf-guile-m4-docs.scm (  )   ) )   *  ) 3  - 3 2 3  ; 4  N 4   N gnameg display-texiC#R&hr]L4L 4L556jgfilenamefscripts/snarf-guile-m4-docs.scm 7   8  8 #  8   8    Chg-13C_gargs gfilenamefscripts/snarf-guile-m4-docs.scm 7  Ch]O6gline  gsub  gfilenamefscripts/snarf-guile-m4-docs.scm 6  7    gnamegprefix?C'R()*hp1]"Y(4455C($")$",$ ""45")gline  ogline  _gacc   _gkey  " Tgfilenamefscripts/snarf-guile-m4-docs.scm :  ;  <  =   =   =   =   >  " ?  " ?  Q A  W ?  _ >  _ ;  ` ;  g ; - o ;   o gnameg massage-usageC+R,-.'/0+1#) h-1345"45$C45$4544 55"4 5$'4 4 5>"G45""45"|$%4 5$45"U""45"= gargs gp  gline   gacc   gt  gfilenamefscripts/snarf-guile-m4-docs.scm D E  E   E "  E  E   G   H H  , I  2 I  4 I  8 I 9 F  @ J  C J - M J  U J  V K  \ K  ^ K  b I c L  f L  q L  z F  M  F  Q  I N  N ( N  N  F  O  O  G  F  G ) gnamegsnarf-guile-m4-docsCRi2RCgm  ,gfilenamefscripts/snarf-guile-m4-docs.scm  ! 0 % 2 &  5 &  (  6  : D S   C6read-rfc822.go000064400000011640151027762450007025 0ustar00GOOF----LE-8-2.0]L4h] gguile  gdefine-module*   gscripts g read-rfc822  gfilenameS fscripts/read-rfc822.scm gimportsS gice-9 gregex     grdelim     gexportsS gread-rfc822-silently  g autoloadsS gsrfi gsrfi-13  g string-join   gset-current-module   !g%include-in-guild-list "fValidate an RFC822-style file. #g%summary $g make-regexp %f^From  &g from-line-rx 'f^([^:]+):[ ]* (gheader-name-rx )f^[ ]+ *gheader-cont-rx +goption ,g eof-object? -greverse .g read-line /g regexp-exec 0gfor-each 1g unread-char 2g string->list 3g drain-message 4g match:suffix 5gstring->symbol 6gmatch:substring 7g substring 8g match:end 9f  :g string-null? ;gfrom gbody ?f  @gsuffix Agerror Bfbad component: Cg parse-message Dgformat EfFrom ~A  Ff~A: ~A  Gf ~A Hgdisplay-rfc822 Ig open-file Jg OPEN_READ KgmainC5h8 ]4   5 4 >"G!R"#R4$i%5&R4$i'5(R4$i)5*R+R,-.+/&01hb]L6Zgc  gfilenamefscripts/read-rfc822.scm A  B   C2 hC]"p45$6"45"$=45$,4O 44 55>"G6""45";gport  gline  vgacc   vgfilenamefscripts/read-rfc822.scm <  =   >  >   ?  G  ' G " / G / >  6 @  B @ C A O D  R D $ Z D  [ C  ` A n E v =  w =  ~ = * =   gnameg drain-messageC3R+4/&.-/(56789 hX])454544 5544455 5MNCygreversed-hlines  Qghlines Qgfirst   Qgm   Qgname  ( Qgdata  C Qgfilenamefscripts/read-rfc822.scm P   Q ' Q   R &  Q   S "  Q   T %  T 5 ( T % ( Q  + U % . V , 3 V = ; V , > W , ? V & A X & C U % C Q  J Y ( O Y   Q gnameg add-header!C:3*-;<=>?@AB hX] $LC$MC$MC$M$C4M5NMC 6g component  Tgt 1 Lgfilenamefscripts/read-rfc822.scm g  h  1 l  = m & C m > E m C G m & I m  P o  T o   T C h4]A$444555"HHHOQ"45$)$4>"G"45K"m4 5$4545"$4>"G"45"r45"_4 J5K OC,gport  gfrom g body-lines  # gbody  & gheaders  ) g add-header!  3 gline  < gcurrent-header  < gt  y  gfilenamefscripts/read-rfc822.scm I  J  K  K "  L /  K "  K  J  ) O  ) J  < [  = \ G \  M ] N ] ! d ^  l ^ q _ y \  a  b  b  a  d d ! e  e $ e [  [  [  f  f "  gnameg parse-messageCCRCh]6}gport  gfilenamefscripts/read-rfc822.scm q  r    gnamegread-rfc822-silentlyCR;DE0DFh]6wgheader  gfilenamefscripts/read-rfc822.scm v  w  w $ w 1  w    C=G> hX] 45$4>"G"445>"G456gparse  Tgt -gfilenamefscripts/read-rfc822.scm t  u  u  u u   u )  u 4  u ) . v  3 x 7 x  9 x > v  K y L y  P y  R y  T y   T gnamegdisplay-rfc822CHRIJHh8-1344554>"GCgargs 1gparse  /gfilenamefscripts/read-rfc822.scm { |  | %  | 0  | %  |   |   }  1 gnameg read-rfc822CRiKRCgm  0gfilenamefscripts/read-rfc822.scm  - 4 3 6 4  9 4 : 6  @ 6 $ B 6  E 6 F 7  L 7 $ N 7  Q 7 R 8  X 8 $ Z 8  ] 8 a :  < G I q  t + { 2   4 C6read-text-outline.go000064400000015737151027762450010473 0ustar00GOOF----LE-8-2.0]L4h] gguile  gdefine-module*   gscripts gread-text-outline  gfilenameS fscripts/read-text-outline.scm gimportsS gice-9 gregex      gexportsS gread-text-outline-silently gmake-text-outline-reader  g autoloadsS grdelim   g read-line  g getopt-long     gset-current-module   !g%include-in-guild-list "f*Convert textual outlines to s-expressions. #g%summary $gsymbol->string %gstring=? &f? 'g substring (g string-length )g?? *gmatch:substring +gmsub ,f -g ??-predicates .g make-regexp /f^ 0g string-append 1gassq-ref 2glevel-submatch-number 3g compute-level 4glevel-substring-divisor 5gbody-submatch-number 6g match:suffix 7g extra-fields 8gmap 9gfor-each :gset-object-property! ;g regexp-exec gstart ?> @g eof-object? Agobject-property Bgerror Cfunhandled diff not 1: Df(([ ][ ])*)- * E4  FE Ggwrite Hg open-file Ifr Jgnewline KgmainC5hP]4   5 4 >"G!R"#R$%&'(h ] 4544556gsymbol  gname gfilenamefscripts/read-text-outline.scm {  |  |   }   }   } &  } "  }  }   gnameg??C)R*hj]L6bgm  gfilenamefscripts/read-text-outline.scm    Chp]OChgn  gfilenamefscripts/read-text-outline.scm    gnamegmsubC+R)%,*h]44L55Cgm  gfilenamefscripts/read-text-outline.scm       3        C+h(]45$ O"45Cgpair  &gfilenamefscripts/read-text-outline.scm        "  $ %   & gnameg ??-predicatesC-R'.%/0+123hj]L6bgm  gfilenamefscripts/read-text-outline.scm $  &   C4(h]44L55LC}gm  gfilenamefscripts/read-text-outline.scm $  )  8  )  &   C(hs]4L56kgm  gfilenamefscripts/read-text-outline.scm   0 !  C56hj]6bgm  gfilenamefscripts/read-text-outline.scm   *   C78-9:h]L4L56gpair  gfilenamefscripts/read-text-outline.scm ' . * +  *  )   Ch{]OL6sgobj  gm  gfilenamefscripts/read-text-outline.scm $  &   Chr]Cjgobj  gm  gfilenamefscripts/read-text-outline.scm    C;:<hX]4L5$?4L54L54>"G4L>"GCCgline  Tgt Tglevel  ! Rgbody  ! Rgfilenamefscripts/read-text-outline.scm        !  &  , / 3  <   T Ch]24 5445$" 455445$" 54 5$  O"(4 5$  O" O45$ 45"45$45O"OCgre  gspecs  gfc  1grx  1 gt  ? Qglevel-substring  S gt  ^ gt  z g extract-level  gt  g extract-body  gt  gnew  g misc-props!  gfilenamefscripts/read-text-outline.scm       *    $ ( / , .  1  4  7  = + ?  ? S  S  V  \ & ^  ^  r  x & z  z    %     $   - " *   gnamegmake-line-parserC=R=?@A<BC:> h`]QHH"%45$"'4L5$45  $ " $S    $"4 >"G 4>"GJK"E $=""4 5$ K"  "J "JJK"45" 45"45 J"JK J&CJCgport  \gall  \gpchain  \gline   4g prev-level   4gtp   4gt   4gt  ) 1gwords  6 glevel  A gdiff H gt g gp  gfilenamefscripts/read-text-outline.scm             #  )  6 ( 6  9 ( ? ; A ( A  H ' H  M  R  W  ^  c  g " g  t " x ) "  7  +  1 +     , = E , #  # -  (  +  "    .  4  5  I  L  N  P  V  W [ B  \ Ch] 45OCgre  gspecs  g parse-line  gfilenamefscripts/read-text-outline.scm      gnamegmake-text-outline-readerCR4iDF5RGHIJh@-1344455>"G4>"GCgargs :gfilenamefscripts/read-text-outline.scm   %  0  ;  %   )  : gnamegread-text-outlineCRiKRCgm  0gfilenamefscripts/read-text-outline.scm  p 4 x 6 y  9 y 7 { S  1           G N   P C6