Editing: read-rfc822.go
GOOF----LE-8-2.0� ] L 4 h� ] g guile� � g define-module*� � � g scripts� g read-rfc822� � g filenameS� f scripts/read-rfc822.scm� g importsS� g ice-9� g regex� � � g rdelim� � � � g exportsS� g read-rfc822-silently� � g autoloadsS� g srfi� g srfi-13� � g string-join� � � g set-current-module� � � !g %include-in-guild-list� "f Validate an RFC822-style file.� #g %summary� $g make-regexp� %f ^From � &g from-line-rx� 'f ^([^:]+):[ ]*� (g header-name-rx� )f ^[ ]+� *g header-cont-rx� +g option� ,g eof-object?� -g reverse� .g read-line� /g regexp-exec� 0g for-each� 1g unread-char� 2g string->list� 3g drain-message� 4g match:suffix� 5g string->symbol� 6g match:substring� 7g substring� 8g match:end� 9f � :g string-null?� ;g from� <g body-lines� =g headers� >g body� ?f � @g suffix� Ag error� Bf bad component:� Cg parse-message� Dg format� Ef From ~A � Ff ~A: ~A � Gf ~A� Hg display-rfc822� Ig open-file� Jg OPEN_READ� Kg main�C 5 h8 ]4 5 4 > " G !R"#R4$i%5&R4$i'5(R4$i)5*R+R,-.+/&01 h b ] L 6 Z g c g filenamef scripts/read-rfc822.scm� A �� B �� C2 h� C ]" p45$ 6" 4 5� "���$ =45$ ,4 O 44 55�> " G 6"���"���4 5 "��� ; g port � g line v g acc v g filenamef scripts/read-rfc822.scm� < �� = �� > �� > �� ? �� G �� ' G "�� / G �� / > �� 6 @ �� B @ �� C A �� O D �� R D $�� Z D �� [ C �� ` A �� n E �� v = �� w = �� ~ = *�� � = �� � g nameg drain-message� C3R+4/&.-/(56789 hX � ])4 5 � 45 44 55 44455�� 5 �M �N C y g reversed-hlines Q g hlines Q g first Q g m Q g name ( Q g data C Q g filenamef scripts/read-rfc822.scm� P �� Q '�� Q �� R &�� Q �� S "�� Q �� T %�� T 5�� ( T %�� ( Q �� + U %�� . V ,�� 3 V =�� ; V ,�� > W ,�� ? V &�� A X &�� C U %�� C Q �� J Y (�� O Y �� Q g nameg add-header!� C:3*-;<=>?@AB hX � ] �$ LC �$ M C �$ MC �$ M $ C4M 5NMC 6 � g component T g t 1 L g filenamef scripts/read-rfc822.scm� g �� h �� 1 l �� = m &�� C m >�� E m C�� G m &�� I m �� P o �� T o �� T C h� 4 ]A$ 444 555" HHHO Q " �45$ )$ 4> " G " 4 5K" m4 5 $ 4 545� "���$ 4> " G " 4 5 "��r 4 5 "��_4 J5K O C , g port � g from � g body-lines # � g body & � g headers ) � g add-header! 3 � g line < � g current-header < � g t y � g filenamef scripts/read-rfc822.scm� I �� J �� K �� K "�� L /�� K "�� K �� J �� ) O �� ) J �� < [ �� = \ �� G \ �� M ] �� N ] !�� d ^ �� l ^ �� q _ �� y \ �� � a �� � b �� � b �� � a �� � d �� � d !�� � e �� � e $�� � e �� � [ �� � [ �� � [ �� � f �� � f �� " � g nameg parse-message� CCRC h � ] 6} g port g filenamef scripts/read-rfc822.scm� q �� r �� g nameg read-rfc822-silently� CR;DE0DF h ] � �6 w g header g filenamef scripts/read-rfc822.scm� v �� w �� w $�� w 1�� w �� C=G> hX ] 4 5 $ 4> " G " 44 5> " G 4 56 g parse T g t - g filenamef scripts/read-rfc822.scm� t �� u �� u �� u �� u �� u )�� u 4�� u )�� . v �� 3 x �� 7 x �� 9 x �� > v �� K y �� L y �� P y �� R y �� T y �� T g nameg display-rfc822� CHRIJH h8 � - 1 3 44 �55 4> " G C � g args 1 g parse / g filenamef scripts/read-rfc822.scm� { �� | �� | %�� | 0�� | %�� | �� | �� } �� 1 g nameg read-rfc822� CRiKRC � g m 0 g filenamef scripts/read-rfc822.scm� - �� 4 3 �� 6 4 �� 9 4 �� : 6 �� @ 6 $�� B 6 �� E 6 �� F 7 �� L 7 $�� N 7 �� Q 7 �� R 8 �� X 8 $�� Z 8 �� ] 8 �� a : �� � < �� G I �� � q �� t �� + { �� 2 � �� 4 C6
Save
Back