GOOF----LE-8-2.0r ] 3 4 h� ] g guile� � g define-module*� � � g ice-9� g regex� � g filenameS�
f ice-9/regex.scm� g exportsS� g match:count�
g match:string� g match:prefix� g match:suffix� g
regexp-match?� g regexp-quote� g match:start� g match:end� g match:substring� g string-match� g regexp-substitute� g fold-matches� g list-matches� g regexp-substitute/global�
� g set-current-module� � � g
vector-length� g substring� g string?� !g integer?� "g call-with-output-string� #g string-for-each� $g
write-char� %g make-regexp� &g regexp-exec� 'g for-each� (g display� )g pre� *g post� +g error� ,g wrong-type-arg� -g regexp?� .g
regexp/notbol� /g
string-length� 0g reverse!� 1g cons� 2g
procedure?�C 5 h� � ]4
5 4 > " G h } ]4 5�C u g match
g filenamef ice-9/regex.scm�
;
�� < ��
< �� g nameg match:count� C R h v ]
�C n g match
g filenamef ice-9/regex.scm�
>
�� ? �� g nameg match:string� C
R
h � ]4 5
4
56 ~ g match
g filenamef ice-9/regex.scm�
A
�� B
��
B $�� B �� g nameg match:prefix� CR
h � ]4 54
56 ~ g match
g filenamef ice-9/regex.scm�
D
�� E
�� E "�� E �� g nameg match:suffix� CR ! hp M ] �$ a4
�5$ R" G4 5�$ C ��$ +4 ��5$ 4 ��5$ � "���CCC "���CC E g match
l g i a g filenamef ice-9/regex.scm�
J
�� K �� K ��
L �� L �� L �� K �� M �� N �� $ N �� ( N �� / O �� 0 O �� 4 N �� 5 P �� < P $�� = P �� ? P �� C O �� D Q �� K Q $�� L Q �� N Q �� R O �� U R �� [ R �� a M �� l g nameg
regexp-match?� CR"#$ h � ] *�$ " = .�$ " / \�$ " ! ^�$ " $�$ " [�$ 4\L > " G L 6 (�$ " K )�$ " = +�$ " / ?�$ " ! {�$ " }�$ " |�$ 04[L > " G 4 L > " G ]L 6 L 6 � g c
g filenamef ice-9/regex.scm�
g �� h �� R j �� m k �� v h �� � m �� � n �� � o �� q ��
C h Z ] O L 6 R g p
g filenamef ice-9/regex.scm�
f �� g �� C h w ] O 6 o g string
g filenamef ice-9/regex.scm�
d
��
e ��
g nameg regexp-quote� CR h0 � - . , 3 #
��� ��$ CC � g match
, g n , g start , g filenamef ice-9/regex.scm�
t
�� u &�� u �� u �� u �� # v �� ' v �� , g nameg match:start� CR h0 � - . , 3 #
��� ��$ CC � g match
, g n , g end , g filenamef ice-9/regex.scm�
x
�� y %�� y �� y �� y �� # z �� ' z �� , g nameg match:end� CR
hP � - . , 3 #
4 5 4 5 $ $ 4 56CC � g match
J g n J g start J g end ) J g filenamef ice-9/regex.scm�
|
�� } �� } �� ! ~ �� ) } �� 1 �� : �� F �� J g nameg match:substring� CR%& h0 � - 1 3 4 5�$ �"
6 � g pattern
- g str - g args - g rx - g start - g filenamef ice-9/regex.scm�
�
��
� �� � �� � �� � �� � �� - � �� -
g nameg string-match� CR' (!)*+, hh � ]4 5$ L64 5$ 4L 5L6 &
4L 5L6 &
4L 5L6
6 � g obj
a g filenamef ice-9/regex.scm�
� �� � ��
� �� � )�� � �� � �� # � 2�� / � )�� 1 � �� 7 � �� : � 2�� D � )�� F � �� L � �� O � 2�� Y � )�� ] � %�� a � �� a C" h \ ] LL @ T g p
g filenamef ice-9/regex.scm�
� �� � �� C h0 � - 1 3 $ O 6O 6 � g port
+ g match + g items + g filenamef ice-9/regex.scm�
�
�� � �� � �� + � �� +
g nameg regexp-substitute� CR-%./& h� 2 - . , 3 #
4 5$ " 4 5 " �H
�$
" K 45�$ " 4J �5
$ P" 4
54
5 "���4
54
5�$ $ � "��y"���"���C
"��` * g regexp
� g string � g init � g proc � g flags � g regexp - � g start 3 � g value 3 � g abuts 3 � g bol 4 � g m
j � g filenamef ice-9/regex.scm�
�
�� � �� � �� ' � ,�� - � �� 3 � �� 9 � �� > � �� J � �� Q � �� U � �� [ � �� h � 4�� j � �� j � �� r � �� w � �� ~ � �� � �
�� � � �� � � �� � � "�� � � �� � � �� � �
�� � � �� � �
�� � � �� � g nameg fold-matches� CR01 h( � - . , 3 #
4 56 � g regexp
' g string ' g flags ' g filenamef ice-9/regex.scm�
�
�� � �� � (�� % � �� ' � �� ' g nameg list-matches� CR( (!2) *+,
h� E ]4 5$ L64 5$ 4L 5L64 5$
4 L 5L6 & 4LL4L 55L6 & LL�4
L 56 6 = g item
� g filenamef ice-9/regex.scm�
� �� � ��
� �� � &�� � �� � �� # � /�� / � &�� 0 � �� : � �� = � /�� G � &�� K � �� O � �� R � �� Y � -�� a � �� e � �� i � �� m � �� r � �� s � .�� { � �� � �� � � �� � g nameg do-item� C hx \ ] ( 4L5L6 � " OO LL LQ �$ *�( �64�> " G � "���CL "��� T g matches
w g start w g m w g items o g do-item - o g filenamef ice-9/regex.scm�
� �� � �� � �� � �� � �� � �� � �� ? � �� C � �� F � �� J � �� O � !�� Q � �� R � �� W � #�� \ � �� g � %�� m � �� o � �� w g nameg
next-match� C" h \ ] LLL @ T g p
g filenamef ice-9/regex.scm�
� �� � �� C hH � - 1 3 $ $O Q 45
6O 6 � g port
B g regexp B g string B g items B g
next-match 3 g filenamef ice-9/regex.scm�
�
�� � �� � �� ( � �� 3 � �� B � �� B
g nameg regexp-substitute/global� CRC � g m
( g filenamef ice-9/regex.scm� '
�� � ;
�� Y >
�� A
�� � D
�� � J
�� j d
�� j t
�� f x
��
� |
�� � �
�� � �
�� � �
�� � �
�� � �
�� �
C6