Editing: use2dot.go
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
Save
Back