[EDIT] FILE: documentation.go
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
SAVE
CANCEL