[EDIT] FILE: expect.go
GOOF----LE-8-2.0{ ] t 4 h� ] g guile� � g define-module*� � � g ice-9� g expect� � g filenameS� f ice-9/expect.scm� g importsS� g regex� � � � g exportsS� g expect-strings� g expect-port� g expect-timeout� g expect-timeout-proc� g expect-eof-proc� g expect-char-proc� g expect-strings-compile-flags� g expect-strings-exec-flags� g expect-select� g expect-regexec� � g set-current-module� � � g make-syntax-transformer� � ! � "g macro� #g $sc-dispatch� $# � %# � &g _� 'g any� (&'�� )g syntax->datum� *) � +) � ,g datum->syntax� -, � ., � /g gensym� 0g let� 1f � 21 � 3g or� 4g current-input-port� 54 � 635 � 76 � 8g if� 9g let*� :g secs-usecs� ;g gettimeofday� <; � =:< � >= � ?g +� @g car� A@: � Bg /� Cg cdr� DC: � EBD B@ � F?AE � G9>F � H8G � IH � Jg next-char� Kg and� Lg not� M � Ng read-char� Og eof-object?� Pg set!� Qg string-append� Rg string� Sg cond� Tg append� UT � VT � Wg reverse� Xg =>� Yg length� Zg apply� [g scm-error� \g misc-error� ]f expect� ^f bad recipient: ~S� _g map� `g else� aJ � b`a � cb � dg syntax-violation� ed � fd � gf -source expression failed to match any pattern� hg regexp/newline� ig regexp/noteol� jg make-regexp� k � lg lambda� mg s� ng eof?� omn � pg select� qg regexp-exec� rg match:substring� sg match:count�C 5 h` � ]4 5 4 > " G RRRRR4!"%(+./027IJ8KLMNOPQRSVWXYZ[\]^_@C`c $ h� q - 1 3 45 45 45 45 ��� ��� 4" �( 45" ���� �( " M��& @4�5 �$ ���� " 4 � 5" ��� "��s4 54 5 "��V! "" ��� #�� 5� C i g clauses � g s � g c � g port � g timeout � g tests � @ g exprs � @ g body � @ g filenamef ice-9/expect.scm� 1 �� 2 �� 3 �� 4 �� 5 �� 2 �� ' 6 �� � O �� � R �� � T �� � W �� � X �� � Z �� � Z �� � [ *�� � [ �� � \ #�� � ] (�� � ] 5�� � [ �� � ^ /�� � ^ 7�� � ^ /�� � ^ ,�� � ^ #�� e '�� e 1�� f 2�� e '�� ` '�� ` 2�� a 2�� " b 2�� % c 8�� ( c 2�� + ` '�� 2 h #�� 3 Z �� 6 Y �� @ V �� @ O �� A O )�� J P )�� S Q (�� ] O �� _ 6 �� / � C h d ] 4 5 L 4?6\ g args g v g filenamef ice-9/expect.scm� 1 �� Cfg h( b ] 4 5 $ O @ 6 Z g y ' g tmp ' g filenamef ice-9/expect.scm� 1 �� ' C5RhiRiiR4!"%(+.0W/jklo_@C h� � - 1 3 " a( 4545� " c45 ����� � �� ��� "��� 4 54 5 "���C � g clauses � g tests p g exprs p g defs p g body p g rxname 2 p g filenamef ice-9/expect.scm� x �� y �� y �� } �� ~ �� ~ (�� ~ 3�� & ~ (�� ) ~ �� . � !�� 2 � �� 7 � �� : � �� > � &�� A � 2�� C � &�� K � �� M � &�� ] � *�� ^ � &�� a � �� m � �� p y �� q y !�� z z !�� � { �� � | �� � y �� � y �� � C h d ] 4 5 L 4?6\ g args g v g filenamef ice-9/expect.scm� x �� Cfg h( b ] 4 5 $ O @ 6 Z g y ' g tmp ' g filenamef ice-9/expect.scm� x �� ' C5R;p h@ L ]45 ��� B@�� �$ 4 5��CC D g port : g timeout : g secs-usecs : g relative : g filenamef ice-9/expect.scm� � �� � �� � �� � �� � �� � �� � �� � �� � �� # � �� ' � �� ( � �� / � �� 0 � )�� 1 � -�� 5 � �� 6 � �� 7 � �� : g nameg expect-select� CRiqrs h� � ]#" " $$ �$ �" "���" "��� 4 5 $ 7" " �$ C�45� "���45� "���C | g rx g s g eof? g flags 0 g match > g i J l g result J l g filenamef ice-9/expect.scm� � �� � �� � �� � �� � �� 0 � �� 3 � �� > � �� F � �� J � �� N � �� R � �� X � *�� Y � �� d � �� l � �� m � �� t � �� u � �� } � �� g nameg expect-regexec� CRC � g m , g filenamef ice-9/expect.scm� �� 0 ) �� 4 * �� 8 + �� < , �� @ - �� � s �� � t �� 7 � �� W � �� Y C6
SAVE
CANCEL