GOOF----LE-8-2.0� ] [ 4 h" ] g guile� � g define-module*� � � g scripts� g use2dot� � g filenameS�
f scripts/use2dot.scm� g importsS� g srfi�
g srfi-13�
� g selectS� g string-join� � � g frisk� � g make-frisker� g edge-type� g edge-up� g edge-down� � � � g exportsS� � g autoloadsS� g ice-9� g getopt-long� ! � " � #!" � $g set-current-module� %$ � &$ � 'f 1Print a module's dependencies in graphviz format.� (g %summary� )g
guile-user� *) � +g *default-module*� ,g format� -f ~S� .g q� /g map� 0f ~A=~A� 1g vv� 2f digraph use2dot {
� 3g for-each� 4f ~A;
� 5g label� 6f Guile Module Dependencies� 7g ratio� 8g fill� 978�� :9 � ;g >>header� <f "~A" -> "~A"� =g autoload� >g style� ?g dotted� @>?�� Ag fontsize� BA �� C@B � Dg computed� Eg bold� F>E�� GF � Hf [~A]� If ,� Jf ;
� Kg >>body� Lf }� Mg >>footer� Ng >>� Of use2dot� Pg default-module� Qg single-char� RQm � Sg value� TS � UPRT � VU � Wg
option-ref� Xg reverse� Yg edges� Zg main�C 5 h` � ]4
#5 4& > " G '(R*+R,- h s ] 6 k g s
g filenamef scripts/use2dot.scm�
;
�� <
�� < �� g nameg q� C.R/,0 h y ] � �6 q g pair
g filenamef scripts/use2dot.scm�
? �� @ ��
@ ��
@ '�� @ �� C h p ] 6 h g pairs
g filenamef scripts/use2dot.scm�
>
��
? ��
g nameg vv� C1R,23,4 h f ] 6 ^ g s
g filenamef scripts/use2dot.scm�
E �� E #�� E �� C15.6:
h0 � ] 4> " G 445� �56 � g filenamef scripts/use2dot.scm�
C
�� D �� D
��
D �� F �� F �� F �� # F �� % F �� & F �� + F �� - E ��
-
g nameg >>header� C;R3,<=CDGH1IJ h� ] 44 54 5> " G 4 5 �$ " �$ " $ %4
4 4 5
5> " G " 6 g edge
� g key * N g t N ~ g filenamef scripts/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 �� � C h t ] 6 l g edges
g filenamef scripts/use2dot.scm�
M
��
N ��
g nameg >>body� CKR,L h j ] 6 b g filenamef scripts/use2dot.scm�
Z
�� [
�� [ ��
g nameg >>footer� CMR;KM h( � ]4> " G 4 > " G 6 x g edges
( g filenamef scripts/use2dot.scm�
]
�� ^ �� _ �� ( ` �� ( g nameg >>� CNR OVWP+NXY hP � - 1 3 4 �5 45 4�5 45 4 445
556� g args
P g parsed-args P g =m " P g scan . P g files 9 P g filenamef scripts/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
g nameg use2dot� CRiZRC � g m
0 g filenamef scripts/use2dot.scm� 0
�� 2 7 �� 5 7
�� 7 9 �� : 9
�� � ;
�� >
�� � C
�� M
�� � Z
�� S ]
�� V b
�� ] k
�� _
C6