home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / k95source / match.ksc < prev    next >
Text File  |  2020-01-01  |  3KB  |  157 lines
  1. def yy if not match {\fcont(\%1)} {\fcont(\%2)} -
  2.   echo PROBLEM: "\fcont(\%1)" "\fcont(\%2)" SHOULD MATCH
  3. def nn if match {\fcont(\%1)} {\fcont(\%2)} -
  4.   echo PROBLEM: "\fcont(\%1)" "\fcont(\%2)" SHOULD NOT MATCH
  5. set tak echo on
  6. ; forward foo
  7. yy {} {}
  8. nn {} x
  9. yy abc abc
  10. yy abc ab*
  11. yy abc a*bc
  12. yy abc abc*
  13. yy abc *bc
  14. yy abc *abc
  15. nn abc abc*x
  16. yy abcdefg a*cd*f*g*
  17. yy abcdefg *f*g*
  18. yy abcdefg *fg*
  19. yy abcdefg a*c?*fg*
  20. yy abcdefg a*c?*f*g*
  21. nn abcdefg a*c?*f*g*x
  22. nn abc ab
  23. yy abc a*c
  24. nn abc a*b
  25. nn abc a?b
  26. yy abc a?c
  27. nn abc ??
  28. yy abc ???
  29. yy abc ???*
  30. yy abc *bc
  31. yy abc *abc
  32. yy abc *??
  33. yy abc *???
  34. yy abc *??c
  35. yy abc *?bc
  36. yy abc *a?c
  37. nn abc ????
  38. yy abc a\\bc
  39. yy abc [a-z]bc
  40. yy abc *[a-z]c
  41. yy abc a[b]c
  42. yy abc a[abc]c
  43. yy abc a[a-z]c
  44. nn abc a[a\\-c]c
  45. nn abc a[0-9]c
  46. yy abc a[ab-x]c
  47. yy abc a[a-xy]c
  48. nn abc a[xyz]c
  49. yy abc a[\\b]c
  50. nn abc a[\\c]c
  51. yy abc [a-z][a-z][a-z]
  52. yy abc [a-z][a-z]*
  53. yy abc [a-z]?[a-z]
  54. nn abc abcx
  55. nn abc [a-z][a-z][a-z]x
  56. nn abc [a-z][a-z][a-z][a-z]
  57. yy abc a[wxyz\\]abc]c
  58. yy abc a[c-mw-xyb]c
  59. nn abc a[c-m-xy]c
  60. yy abc a[c-m-xyb]c
  61. yy abc a[a-b-c]c
  62. yy abcbc a*bc
  63. yy a/b/cdefg.txt */*/*.txt
  64. yy abc a*
  65. yy abc a*c
  66. yy abc a*?
  67. yy abc a*?*
  68. yy abc a*[a-z]
  69. yy abc [abc]*c
  70. yy abc [a-z]*[a-z]
  71. yy abc [abc]*[abc]
  72. yy abc [abc]*c
  73. yy abc a*c
  74. yy abc a**c
  75. yy abc a*******c
  76. yy b *
  77. yy b **
  78. yy b ?
  79. yy b b*
  80. yy b ?*
  81. yy b *?
  82. yy abXyz a*X*z
  83. yy abXyz ab\\Xyz
  84. yy abXyz ab\\X*z
  85. yy ab?yz a*\\?yz
  86. yy abXyz a*\\Xyz
  87. yy abXyz a*\\X*z
  88. yy ab*yz a*\\**z
  89. nn abc a[a[b-x]yz]c
  90. yy abc ?*?
  91. yy abbbbbbbbbbbbc ?*?
  92. yy abbbbbbbbbbbbc ?*
  93. yy abbbbbbbbbbbbc *?
  94. yy abbbbbbbbbbbbc ??*
  95. yy abbbbbbbbbbbbc *??
  96. yy xa x[ab] 
  97. yy xa.x x[ab].x 
  98. yy abc *[a-z]bc
  99. yy ckcpro.w ck[cu]*.[cwh] 
  100. yy xablah.x x[ab]*.*
  101. yy xa.x x[ab]*.* 
  102. yy xa.x x[ab]*.x 
  103. nn xcblah.x x[ba]*.*
  104. nn ckwart.c ck[cu]*.[cwh] 
  105. nn ckwart.c ck[cu]*.c 
  106. yy xcblah.x x[abc]*.*
  107. yy ckwart.c ck[cuw]*.[cwh] 
  108. yy ckwart.c ck[cuw]*.c 
  109. yy a*b?c a[*?]*[?*]c
  110. yy a*b?c a[*?]*[?*]?
  111. yy a*b?c a[\*\?]*[\?\*]?
  112. nn a*b?c a[*?]*[?*]x
  113. yy "a]b" "*[x\\]]b"
  114. set case off
  115. yy abc ABC
  116. set case on
  117. nn abc ABC
  118. nn abc ab[c
  119. yy a]b *]b
  120. yy abc *
  121. yy {} *
  122. :FOO
  123. yy {abc def xyz} *b*e*y*
  124. yy Gr│ïe *│*
  125. yy Rán *á*
  126. yy {Gr│ïe aus K≈ln} *│*ï*≈*
  127. yy abcdefg ab*\\fg
  128. yy abcde?g ab*\\?g
  129. yy ckutio.c cku{abc,xxx,zzzzzzz,fio,tio,xio,iox}.c
  130. yy ckutio.c cku{tio}.c
  131. yy ckutio.c cku{,tio}.c
  132. yy ckutio.c cku{tio,}.c
  133. yy ckutio.c cku{,tio,}.c
  134. yy ckutio.c cku{,tio,tio}.c
  135. nn ckutio.c cku{abc,xxx,zzzzzzz,fio,xio,iox}.c
  136. yy ckutio.c cku{abc,xxx,zzzzzzz,fi,ti,xi,iox}*.c
  137. yy ckutio.c cku{,fio,t*}.c
  138. yy ckutio.c ck{xx,uu,u}{xxx,[ft]i*}*c
  139. yy ckutio.c ck{xx,uu,?}{xxx,[ft]i*}*c
  140. yy ckutio.c ck{xx,uu,[cuw]}{xxx,[ft]i*}*c
  141. yy ckutio.c ck{xx,uu,[a-z]}{xxx,[ft]i*}*c
  142. yy ckutio.c ck{xx,uu,[a-z],blah}{xxx,[ft]i*}*c
  143. yy ckutio.c ck{xx,uu,u}{xxx,[ft]io}.c
  144. yy ckutio.c ck{xx,uu,u}{xxx,[ft]i*}.c
  145. yy ckutio.c {ckutio.c}
  146. yy ckutio.c {ck[cuw]*.[cwh]}
  147. yy ckutio.c {{ck[cuw]*.[cwh],makefile}}
  148. yy ckutio.c {{makefile,ck[cuw]*.[cwh]}}
  149. xif match a\b a\b { echo YES } else { echo NO }
  150. xif match a\\b a\\b { echo YES } else { echo NO }
  151. xif match a\\b a\\\\b { echo YES } else { echo NO }
  152. xif match a\*b a\*b { echo YES } else { echo NO }
  153. xif match a\\*b a\\\\*b { echo YES } else { echo NO }
  154. yy a,b,c a{xyz,\\,b\\,,ooo}c
  155.  
  156. exit
  157.