← Back
Editing: read-text-outline.go
GOOF----LE-8-2.0� ] L 4 h ] g guile� � g define-module*� � � g scripts� g read-text-outline� � g filenameS� f scripts/read-text-outline.scm� g importsS� g ice-9� g regex� � � � g exportsS� g read-text-outline-silently� g make-text-outline-reader� � g autoloadsS� g rdelim� � g read-line� � g getopt-long� � � � g set-current-module� � � !g %include-in-guild-list� "f *Convert textual outlines to s-expressions.� #g %summary� $g symbol->string� %g string=?� &f ?� 'g substring� (g string-length� )g ??� *g match:substring� +g msub� ,f � -g ??-predicates� .g make-regexp� /f ^� 0g string-append� 1g assq-ref� 2g level-submatch-number� 3g compute-level� 4g level-substring-divisor� 5g body-submatch-number� 6g match:suffix� 7g extra-fields� 8g map� 9g for-each� :g set-object-property!� ;g regexp-exec� <g level� =g make-line-parser� >g start� ?> � @g eof-object?� Ag object-property� Bg error� Cf unhandled diff not 1:� Df (([ ][ ])*)- *� E4 �� FE � Gg write� Hg open-file� If r� Jg newline� Kg main�C 5 hP � ]4 5 4 > " G !R"#R$%&'( h � ] 4 5 445�56� g symbol g name g filenamef scripts/read-text-outline.scm� { �� | �� | �� } �� } �� } &�� } "�� } �� } �� g nameg ??� C)R* h j ] L 6 b g m g filenamef scripts/read-text-outline.scm� � �� � �� C h p ] O C h g n g filenamef scripts/read-text-outline.scm� �� g nameg msub� C+R)%,* h � ]44 L �55�C � g m g filenamef scripts/read-text-outline.scm� � �� � �� � �� � �� � 3�� � �� � �� � �� C+ h( � ] �4 �5$ O " 4 �5�C � g pair & g filenamef scripts/read-text-outline.scm� � �� � �� � �� � �� � �� � �� � �� " � �� $ � �� % � �� & g nameg ??-predicates� C-R'.%/0+123 h j ]L 6b g m g filenamef scripts/read-text-outline.scm� � $�� � &�� C4( h � ]44L 55L �C } g m g filenamef scripts/read-text-outline.scm� � $�� � )�� � 8�� � )�� � &�� C( h s ]4L 56 k g m g filenamef scripts/read-text-outline.scm� � �� � 0�� � !�� C56 h j ] 6b g m g filenamef scripts/read-text-outline.scm� � �� � *�� C78-9: h � ]L �4 �L 56 � g pair g filenamef scripts/read-text-outline.scm� � '�� � .�� � *�� � +�� � *�� � )�� C h { ] O L 6 s g obj g m g filenamef scripts/read-text-outline.scm� � $�� � &�� C h r ]C j g obj g m g filenamef scripts/read-text-outline.scm� � �� C;:< hX � ]4L 5 $ ?4L54L5 4> " G 4L> " G CC � g line T g t T g level ! R g body ! R g filenamef scripts/read-text-outline.scm� � �� � �� � �� � �� � �� ! � �� & � �� , � /�� 3 � �� < � �� T C h ]24 5 445$ " 4 55 445 $ " 5 4 5 $ O " (4 5 $ O " O 45 $ 45" 45 $ 45 O " O C� g re g specs g fc 1 g rx 1 g t ? Q g level-substring S g t ^ � g t z � g extract-level � g t � � g extract-body � g t � � g new � � g misc-props! � g filenamef scripts/read-text-outline.scm� � �� � �� � �� � �� � �� � *�� � �� � �� $ � �� ( � /�� , � �� . � �� 1 � �� 4 � �� 7 � �� = � +�� ? � �� ? � �� S � �� S � �� V � �� \ � &�� ^ � �� ^ � �� r � �� x � &�� z � �� z � �� � � �� � � �� � � %�� � � �� � � �� � � �� � � �� � � $�� � � �� � � �� � � -�� � � "�� � � �� * g nameg make-line-parser� C=R=?@A<BC:> h` � ]QH H" %45 $ " '4L 5 $ � 45 � �$ �" � �$ S � $ " 4 > " G 4> " G J�K���" E �$ =" "4 �5�$ K" � "���J "���J��J�K" 4 5 "��� 4 5 "��� 4 5 �J "���J�K J& CJ�C � g port \ g all \ g pchain \ g line 4 g prev-level 4 g tp 4 g t 4 g t ) 1 g words 6 g level A g diff H g t g � g p � � g filenamef scripts/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 \ C h � ] 4 5 O C � g re g specs g parse-line g filenamef scripts/read-text-outline.scm� � �� � �� � �� g nameg make-text-outline-reader� CR4iDF5RGHIJ h@ � - 1 3 444 �55> " G 4> " G C � g args : g filenamef scripts/read-text-outline.scm� � �� � �� � �� � %�� � 0�� � ;�� � %�� � �� � �� ) � �� : g nameg read-text-outline� CRiKRC� g m 0 g filenamef scripts/read-text-outline.scm� p �� 4 x �� 6 y �� 9 y �� 7 { �� S �� 1 � �� � � �� � �� � �� � �� � �� � �� � �� G � �� N � �� P C6
Save File
Cancel