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 GOOF----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< C6