GOOF----LE-8-2.0
] H 4 h� ] g guile� � g define-module*� � � g ice-9� g
documentation� � g filenameS�
f ice-9/documentation.scm� g importsS� g rdelim�
�
� � g exportsS� g file-commentary� g documentation-files� g search-documentation-files� g object-documentation� � g autoloadsS� g regex� � g match:suffix� � � g set-current-module� � � g make-regexp� f ^;;; Commentary:� !f
^;;; Code:� "f ^;+� #g regexp-exec� $g length� %g regexp?� &g string?� 'g
procedure?� (g call-with-input-file� )g eof-object?� *g after� +g in� ,g read-delimited� -f
� .g
string-append� /f � 0g before� 1g map� 2g in-vicinity� 3f guile-procedures.txt� 4g %library-dir� 5g %package-data-dir� 6g %site-dir� 7f .� 8f � 9g entry-delimiter� :g file-exists?� ;g symbol->string� <g
string-length� =g string=?� >g substring� ?g
string-ref� @g find-documentation-in-file� Ag or-map� Bg procedure-documentation� Cg object-property� Dg macro?� Eg macro-transformer� Fg procedure-name� Gg set-procedure-property!�C 5 h� � ]4
5 4 > " G !"# h � ] 4L 5 $ 6 C � g line
g m g filenamef ice-9/documentation.scm�
g �� h %�� h �� i �� i $�� C$%&'()*#+,-./0
h� � ]!" �45 $ " � $ C4L 5$ " 4L5$ " & C4 5& "& 44L55" " "��g4 5 "��P � g port
� g line � g doc � g parse-state � g t
" g new-state Q � g filenamef ice-9/documentation.scm�
~ �� �� � ��
� �� � *�� � %�� & �
�� * � �� 6 � �� 8 � :�� = � �� I � �� K � =�� Q � �� U � �� [ � �� _ � �� c � *�� g � �� i � (�� o � �� q � <�� w � �� x � �� } � 1�� � � >�� � � �� � � �� � �� � �� � )�� � �� � � �� � � �� � �� $ � C h � - 1 3 HHH45K45K45 O K 45�$ J" 1� 45$ " 45$ 45" J 45�$ J" 2�� 45$ " 45$ 45" J 45�$ J" ��� 4 5$ " J
O 6 � g filename
g cust g default-in-line-re g default-after-line-re g
default-scrub g dirt + 7 g v O } g v � � g v � � g
in-line-re � g
after-line-re � g scrub � g filenamef ice-9/documentation.scm�
]
�� d �� d *�� d �� e �� e -�� " e �� % f $�� ) f 1�� + f $�� + f �� ; l �� B l �� F l �� O n !�� O n �� R o !�� \ o �� c p !�� m o �� n p -�� � r �� � r �� � r �� � t $�� � t �� � u $�� � u �� � v $�� � u �� � v 0�� � x �� � x �� � x �� � z �� � z �� � { �� � { �� � l �� } �� )
g nameg file-commentary� CR41i23 h } ]4 5 6 u g vicinity
g filenamef ice-9/documentation.scm�
� �� � �� � !��
� ��
C4i5i6i7 h T ] C L g filenamef ice-9/documentation.scm�
�
�� � ��
C 5R89R:(;<,9)=>? h� � ]!4L 5 45 4 > " G " {45$ C" 4 5 "���45�$ I44
55$ 045
� $ �45 �6"���"���"���4 5 "��v � g port
� g name � g len � g entry , � g t x � g filenamef ice-9/documentation.scm�
� �� � �� � �� � �� �
�� � �� , � �� - � �� 7 � �� > � #�� L � �� L � �� M � �� V � �� Z � �� [ � �� ^ � #�� k � �� o � �� p � �� x � �� � � �� � � )�� � � 6�� � � 3�� � � �� � � �� � � !�� � � �� � C h � ]45$
O 6C � g name
g file g filenamef ice-9/documentation.scm�
�
�� � ��
� �� � �� g nameg find-documentation-in-file� C@RA@ h g ]L 6 _ g file
g filenamef ice-9/documentation.scm�
�
��
� ��
C h( � - 1 3 O ( " 6 � g name
" g files " g filenamef ice-9/documentation.scm�
�
�� �
�� " � �� "
g nameg search-documentation-files� CR'BCDEFG h� G ] 4 5$ 4 5" $ C4 5 $ C4 5$ 44 55" $ C4 5$ >4 5$ 14 4 55 $ 4
> " G " CCC ? g object
� g t � g t - � g t T � g docstring � � g filenamef ice-9/documentation.scm�
�
�� � ��
� �� � �� � �� % � �� + � �� - � �� - � �� 9 � �� C � �� D � �� G � !�� O � �� T � �� ` � �� j � �� k � �� u � �� v � �� y � �� � � �� � � �� � �
�� � � �� � � 1�� � � �� � g nameg object-documentation�g
documentationf zReturn the docstring for OBJECT.
OBJECT can be a procedure, macro or any object that has its
`documentation' property set.� CRC � g m
0 g filenamef ice-9/documentation.scm� P
�� � ]
�� � � �� � � �� � � �� � �
�� � � �� � �
�� \ �
��
� �
�� � �
�� �
C6