home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / pub / scripts / ckermit / match < prev    next >
Encoding:
Text File  |  2020-01-01  |  3.8 KB  |  178 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 "2005:06:13:00:18:41    /htdocs/panixhome/userdirs/aleida/0f3.html" */[0-3]*.html*
  110. yy a*b?c a[*?]*[?*]c
  111. yy a*b?c a[*?]*[?*]?
  112. yy a*b?c a[\*\?]*[\?\*]?
  113. nn a*b?c a[*?]*[?*]x
  114. yy "a]b" "*[x\\]]b"
  115. set case off
  116. yy abc ABC
  117. set case on
  118. nn abc ABC
  119. nn abc ab[c
  120. yy a]b *]b
  121. yy abc *
  122. yy {} *
  123. :FOO
  124. yy {abc def xyz} *b*e*y*
  125. yy Grⁿ▀e *ⁿ*
  126. yy R n * *
  127. yy {Grⁿ▀e aus K÷ln} *ⁿ*▀*÷*
  128. yy abcdefg ab*\\fg
  129. yy abcde?g ab*\\?g
  130. yy ckutio.c cku{abc,xxx,zzzzzzz,fio,tio,xio,iox}.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,}.c
  135. yy ckutio.c cku{,tio,tio}.c
  136. nn ckutio.c cku{abc,xxx,zzzzzzz,fio,xio,iox}.c
  137. yy ckutio.c cku{abc,xxx,zzzzzzz,fi,ti,xi,iox}*.c
  138. yy ckutio.c cku{,fio,t*}.c
  139. yy ckutio.c ck{xx,uu,u}{xxx,[ft]i*}*c
  140. yy ckutio.c ck{xx,uu,?}{xxx,[ft]i*}*c
  141. yy ckutio.c ck{xx,uu,[cuw]}{xxx,[ft]i*}*c
  142. yy ckutio.c ck{xx,uu,[a-z]}{xxx,[ft]i*}*c
  143. yy ckutio.c ck{xx,uu,[a-z],blah}{xxx,[ft]i*}*c
  144. yy ckutio.c ck{xx,uu,u}{xxx,[ft]io}.c
  145. yy ckutio.c ck{xx,uu,u}{xxx,[ft]i*}.c
  146. yy ckutio.c {ckutio.c}
  147. yy ckutio.c {ck[cuw]*.[cwh]}
  148. yy ckutio.c {{ck[cuw]*.[cwh],makefile}}
  149. yy ckutio.c {{makefile,ck[cuw]*.[cwh]}}
  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. xif match a\\*b a\\\\*b { echo YES } else { echo NO }
  155. yy a,b,c a{xyz,\\,b\\,,ooo}c
  156. yy abc [abc]bc
  157. yy abc [a-z]bc
  158. nn abc [123]bc
  159. nn abc [1-9]bc
  160. yy 123 [1-9][1-9][1-9]
  161. nn a23 [1-9][1-9][1-9]
  162. yy cert-es.html "{cert,blah,foo}-es.html"
  163. yy cert-es.html "{cert,blah,foo}{-es.,.}html"
  164. yy cert.html    "{cert-es,cert,blah-es,foo-es}.html"
  165. yy cert-es.html "{cert-es,cert,blah-es,foo-es}.html"
  166. yy cert-es.html "{cert.html,{cert,blah,foo}-es.html}"
  167. yy cert-es.html "{cert,blah,foo}{-es,}.html"
  168. yy cert.html    "{cert,blah,foo}{-es,}.html"
  169. yy cert-es.html "{{cert,blah,foo}-es.html,cert.html}"
  170. yy cert.html    "{{cert,blah,foo}-en.html,cert.html}"
  171. nn T01011-00856-21-632-073 *[a-z]
  172. yy foo/0234.html */[0-3]*.html
  173. nn foo/9234.html */[0-3]*.html
  174. yy a\*b\?c a[*?]*[?*]c
  175.  
  176. echo DONE
  177. exit
  178.