home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / ckscripts / functions < prev    next >
Text File  |  2020-01-01  |  33KB  |  869 lines
  1. #!/usr/local/bin/wermit
  2. #
  3. # C-Kermit function exerciser...
  4. # Calls many functions with many combinations of legal and illegal
  5. # and/or missing or too many arguments.
  6. #
  7. echo
  8. def aaa
  9. def bbb { some text }
  10. def \%t bbb
  11. def \%a I like \%b
  12. def \%b pizza
  13. def \%n 65
  14. def \%m \%n+1
  15. def \%c abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ
  16. def \%d ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz
  17. def lower abcdefghijklmnopqrstuvwxyz
  18. def letters abcdefghijklmnopqrstuvwxyz
  19. def digits 0123456789
  20. asg alphanum \m(letters)\m(digits)
  21.  
  22. ; make a long string
  23.  
  24. asg \%l \frepeat(x,2000) ; long
  25. asg \%x \frepeat(z,8192) ; way too long
  26.  
  27. echo \\%a is defined as "\fcontents(\%a)"
  28. echo \\%b is defined as "\fcontents(\%b)"
  29. echo \fliteral(\%a) = "\%a"
  30. ec
  31. ec \\fliteral() = "\fliteral()"
  32. ec \\fliteral(,,,,) = "\fliteral(,,,,)"
  33. ec \\fliteral(\\%l) = "\fliteral(\%l)"
  34. ec \\fliteral(\\%x) = "\fliteral(\%x)"
  35. ec
  36. ec \\fcontents() = "\fcontents()"
  37. ec \\fcontents(aaa) = "\fcontents(aaa)"
  38. ec \\fcontents(bbb) = "\fcontents(bbb)"
  39. ec \\fcontents(,,,,) = "\fcontents(,,,,)"
  40. ec \\fcontents(\\%l) = "\fcontents(\%l)"
  41. ec \\fcontents(\\%x) = "\fcontents(\%x)"
  42. ec
  43. ec \\fdefinition() = "\fdefinition()"
  44. ec \\fdefinition(aaa) = "\fdefinition(aaa)"
  45. ec \\fdefinition(bbb) = "\fdefinition(bbb)"
  46. ec \\fdefinition(,,,,) = "\fdefinition(,,,,)"
  47. ec \\fdefinition(\\%l) = "\fdefinition(\%l)"
  48. ec \\fdefinition(\\%x) = "\fdefinition(\%x)"
  49. ec \\fdefinition(\\%t) = "\fdefinition(\%t)"
  50. ec
  51. ec \\m() = "\m()"
  52. ec \\m(aaa) = "\m(aaa)"
  53. ec \\m(bbb) = "\m(bbb)"
  54. ec \\m(,,,,) = "\m(,,,,)"
  55. ec \\m(\\%l) = "\m(\%l)"
  56. ec \\m(\\%x) = "\m(\%x)"
  57. ec \\m(\\%t) = "\m(\%t)"
  58. ec
  59. ec \\fchar() = "\fchar()"
  60. ec \\fchar(,) = "\fchar(,)"
  61. ec \\fchar(,,,,,,,,,,,,,,,,,,,) = "\fchar(,,,,,,,,,,,,,,,,,,,)"
  62. ec \\fchar(aaa) = "\fchar(aaa)"
  63. ec \\fchar(bbb) = "\fchar(bbb)"
  64. ec \\fchar(\\%l) = "\fchar(\%l)"
  65. ec \\fchar(\\%x) = "\fchar(\%x)"
  66. ec \\fchar(\\%t) = "\fchar(\%t)"
  67. ec \\fchar(33) = "\fchar(33)"
  68. ec \\fchar(33 + 33) = "\fchar(33 + 33)"
  69. ec \\fchar((34 + 34) / 2 + 1) = "\fchar((34 + 34) / 2 + 1)"
  70. ec \\fchar( 33 ) = "\fchar( 33 )"
  71. ec \\fchar( 33 , 34, 35,36 ) = "\fchar( 33 , 34, 35,36)"
  72. ec \\fchar(255) = "\fchar(255)"
  73. ec \\fchar(320) = "\fchar(320)"
  74. ec \\fchar(\\%n) = "\fchar(\%n)"
  75. ec \\fchar(\\%m) = "\fchar(\%m)"
  76. ec
  77. ec \\fcode() = "\fcode()"
  78. ec \\fcode(,) = "\fcode(,)"
  79. ec \\fcode(,,,,,,,,,,,,,,,,,,,) = "\fcode(,,,,,,,,,,,,,,,,,,,)"
  80. ec \\fcode(a) = "\fcode(a)"
  81. ec \\fcode(a,) = "\fcode(a,)"
  82. ec \\fcode(,a) = "\fcode(,a)"
  83. ec \\fcode(aaa) = "\fcode(aaa)"
  84. ec \\fcode(bbb) = "\fcode(bbb)"
  85. ec \\fcode(\\%l) = "\fcode(\%l)"
  86. ec \\fcode(\\%x) = "\fcode(\%x)"
  87. ec \\fcode(\\%t) = "\fcode(\%t)"
  88. ec \\fcode(\\%n) = "\fcode(\%n)"
  89. ec \\fcode(\\%m) = "\fcode(\%m)"
  90. ec
  91. ec \\fbreak() = "\fbreak()"
  92. ec \\fbreak(,) = "\fbreak(,)"
  93. ec \\fbreak(,,,,,,,,) = "\fbreak(,,,,,,,,)"
  94. set case on
  95. echo WITH CASE ON
  96. ec \\fbreak(\\%c,XYZM) = "\fbreak(\%c,MXYZ)"
  97. set case off
  98. echo WITH CASE OFF
  99. ec \\fbreak(\\%c,XYZM) = "\fbreak(\%c,MXYZ)"
  100. ec \\fbreak(\\%c) = "\fbreak(\%c)"
  101. ec \\fbreak(\\%c,) = "\fbreak(\%c,)"
  102. ec \\fbreak(,\\%c) = "\fbreak(,\%c)"
  103. ec \\fbreak(,\\%c,) = "\fbreak(,\%c,)"
  104. ec \\fbreak({\\%c},XYZM) = "\fbreak({\%c},MXYZ)"
  105. ec \\fbreak({ \\%c },XYZM) = "\fbreak({ \%c },MXYZ)"
  106. ec \\fbreak(\\%c,{XYZM}) = "\fbreak(\%c,{MXYZ})"
  107. ec \\fbreak(\\%c,{ XYZM }) = "\fbreak(\%c,{ MXYZ })"
  108. ec \\fbreak({ \\%c },{ XYZM }) = "\fbreak({ \%c },{ MXYZ })"
  109. ec \\fbreak(abcxmnoxzzz,x) = "\fbreak(abcxmnoxzzz,x)"
  110. ec \\fbreak(abcxmnoxzzz,x,) = "\fbreak(abcxmnoxzzz,x,)"
  111. ec \\fbreak(abcxmnoxzzz,x,0) = "\fbreak(abcxmnoxzzz,x,0)"
  112. ec \\fbreak(abcxmnoxzzz,x,1) = "\fbreak(abcxmnoxzzz,x,1)"
  113. ec \\fbreak(abcxmnoxzzz,x,2) = "\fbreak(abcxmnoxzzz,x,2)"
  114. ec \\fbreak(abcxmnoxzzz,x,3) = "\fbreak(abcxmnoxzzz,x,3)"
  115. ec \\fbreak(abcxmnoxzzz,x,4) = "\fbreak(abcxmnoxzzz,x,4)"
  116. ec \\fbreak(abcxmnoxzzz,x,8) = "\fbreak(abcxmnoxzzz,x,8)"
  117. ec \\fbreak(abcxmnoxzzz,x,999999) = "\fbreak(abcxmnoxzzz,x,999999)"
  118. ec
  119. ec \\fspan() = "\fspan()"
  120. ec \\fspan(,) = "\fspan(,)"
  121. ec \\fspan(,,,,,,,,) = "\fspan(,,,,,,,,)"
  122. set case on
  123. echo WITH CASE ON
  124. ec \\fspan(\\%c,\\m(letters)) = "\fspan(\%c,\m(letters))"
  125. set case off
  126. echo WITH CASE OFF
  127. ec \\fspan(\\%c,\\m(letters)) = "\fspan(\%c,\m(letters))"
  128. ec \\fspan(\\m(alphanum),\\m(alphanum)) = "\fspan(\m(alphanum),\m(alphanum))"
  129. ec \\fspan(\\m(alphanum),\\m(letters)) = "\fspan(\m(alphanum),\m(letters))"
  130. ec \\fspan(\\m(alphanum),\\m(digits)) = "\fspan(\m(alphanum),\m(digits))"
  131. ec \\fspan(\\%c) = "\fspan(\%c)"
  132. ec \\fspan(\\%c,) = "\fspan(\%c,)"
  133. ec \\fspan(,\\%c) = "\fspan(,\%c)"
  134. ec \\fspan(,\\%c,) = "\fspan(,\%c,)"
  135. ec \\fspan({\\%c},\\m(letters)) = "\fspan({\%c},\m(letters))"
  136. ec \\fspan({ \\%c },\\m(letters)) = "\fspan({ \%c },\m(letters))"
  137. ec \\fspan(\\%c,{\\m(letters)}) = "\fspan(\%c,{\m(letters)})"
  138. ec \\fspan(\\%c,{ \\m(letters) }) = "\fspan(\%c,{ \m(letters) })"
  139. ec \\fspan({ \\%c },{ \\m(letters) }) = "\fspan({ \%c },{ \m(letters) })"
  140. ec \\fspan(abcxabcxabc,bca) = "\fspan(abcxabcxabc,bca)"
  141. ec \\fspan(abcxabcxabc,bca,-1) = "\fspan(abcxabcxabc,bca,-1)"
  142. ec \\fspan(abcxabcxabc,bca,0) = "\fspan(abcxabcxabc,bca,0)"
  143. ec \\fspan(abcxabcxabc,bca,1) = "\fspan(abcxabcxabc,bca,1)"
  144. ec \\fspan(abcxabcxabc,bca,2) = "\fspan(abcxabcxabc,bca,2)"
  145. ec \\fspan(abcxabcxabc,bca,3) = "\fspan(abcxabcxabc,bca,3)"
  146. ec \\fspan(abcxabcxabc,bca,4) = "\fspan(abcxabcxabc,bca,4)"
  147. ec \\fspan(abcxabcxabc,bca,5) = "\fspan(abcxabcxabc,bca,5)"
  148. ec \\fspan(abcxabcxabc,bca,999999) = "\fspan(abcxabcxabc,bca,999999)"
  149. ec
  150. ec
  151. ec \\fverify() = "\fverify()"
  152. ec \\fverify(,) = "\fverify(,)"
  153. ec \\fverify(,,,,,,,,) = "\fverify(,,,,,,,,)"
  154. set case on
  155. ec \\%c = "\%c"
  156. echo WITH CASE ON
  157. ec \\fverify(ABCM,\\%c) = "\fverify(ABCM,\%c)"
  158. set case off
  159. echo WITH CASE OFF
  160. ec \\fverify(ABCM,\\%c) = "\fverify(ABCM,\%c)"
  161. ec \\fverify(ABCM,\\%c,) = "\fverify(ABCM,\%c,)"
  162. ec \\fverify(ABCM,\\%c,,) = "\fverify(ABCM,\%c,,)"
  163. ec \\fverify(ABCM,,3) = "\fverify(ABCM,,3)"
  164. ec \\fverify(ABCM,,9999999) = "\fverify(ABCM,,9999999)"
  165. ec \\fverify(\\%c) = "\fverify(\%c)"
  166. ec \\fverify(\\%c,) = "\fverify(\%c,)"
  167. ec \\fverify(,\\%c) = "\fverify(,\%c)"
  168. ec \\fverify(,\\%c,) = "\fverify(,\%c,)"
  169. ec \\fverify(ABCM,{\\%c}) = "\fverify(ABCM,{\%c})"
  170. ec \\fverify(ABCM,{ \\%c }) = "\fverify(ABCM,{ \%c })"
  171. ec \\fverify({ABCM},\\%c) = "\fverify({ABCM},\%c)"
  172. ec \\fverify({ ABCM },\\%c) = "\fverify({ ABCM },\%c)"
  173. ec \\fverify({ ABCM },{ \\%c }) = "\fverify({ ABCM },{ \%c })"
  174. echo \\%d = "\%d"
  175. set case on
  176. echo WITH CASE ON
  177. ec \\fverify(ABCM,\\%d,25) = "\fverify(ABCM,\%d,25)"
  178. ec \\fverify(ABCM,\\%d,26) = "\fverify(ABCM,\%d,26)"
  179. ec \\fverify(ABCM,\\%d,27) = "\fverify(ABCM,\%d,27)"
  180. set case off
  181. echo WITH CASE OFF
  182. ec \\fverify(ABCM,\\%d,25) = "\fverify(ABCM,\%d,25)"
  183. ec \\fverify(ABCM,\\%d,26) = "\fverify(ABCM,\%d,26)"
  184. ec \\fverify(ABCM,\\%d,27) = "\fverify(ABCM,\%d,27)"
  185. ec \\fverify(ABCM,ABABABXABAB) = "\fverify(ABCM,ABABABXABAB)"
  186. ec \\fverify(ABCM,ABABABXABAB,6) = "\fverify(ABCM,ABABABXABAB,6)"
  187. ec \\fverify(ABCM,ABABABXABAB,7) = "\fverify(ABCM,ABABABXABAB,7)"
  188. ec \\fverify(ABCM,ABABABXABAB,8) = "\fverify(ABCM,ABABABXABAB,8)"
  189. ec \\fverify(ABCM,ABABABXABAB,0) = "\fverify(ABCM,ABABABXABAB,0)"
  190. ec \\fverify(ABCM,ABABABXABAB,1) = "\fverify(ABCM,ABABABXABAB,1)"
  191. ec \\fverify(ABCM,ABABABXABAB,-8) = "\fverify(ABCM,ABABABXABAB,-8)"
  192. ec \\fverify(ABCM,ABCM) = "\fverify(ABCM,ABCM)"
  193. ec \\fverify(ABCM,WXYZ) = "\fverify(ABCM,WXYZ)"
  194. ec \\fverify(ABCD,XABCD,0) = "\fverify(ABCD,XABCD,0)"
  195. ec \\fverify(ABCD,XABCD,1) = "\fverify(ABCD,XABCD,1)"
  196. ec \\fverify(ABCD,XABCD,2) = "\fverify(ABCD,XABCD,2)"
  197. ec \\fverify(ABCD,XXABCD,1) = "\fverify(ABCD,XXABCD,1)"
  198. ec \\fverify(ABCD,XXABCD,2) = "\fverify(ABCD,XXABCD,2)"
  199. ec
  200. ec \\fcapitalize() = "\fcapitalize()"
  201. ec \\fcapitalize(,) = "\fcapitalize(,)"
  202. ec \\fcapitalize(,,,,,,) = "\fcapitalize(,,,,,,)"
  203. ec WITH CASE ON
  204. set case on
  205. ec \\fcapitalize(AAAA) = "\fcapitalize(AAAA)"
  206. ec \\fcapitalize(aaaa) = "\fcapitalize(aaaa)"
  207. ec WITH CASE OFF
  208. set case off
  209. ec \\fcapitalize(AAAA) = "\fcapitalize(AAAA)"
  210. ec \\fcapitalize(aaaa) = "\fcapitalize(aaaa)"
  211. ec \\fcapitalize(999aaaa) = "\fcapitalize(999aaaa)"
  212. ec \\fcapitalize({ aaaa }) = "\fcapitalize({ aaaa })"
  213. ec
  214. ec \\fhexify() = "\fhexify()"
  215. ec \\fhexify(,) = "\fhexify(,)"
  216. ec \\fhexify(,,,,,,) = "\fhexify(,,,,,,)"
  217. ec WITH CASE ON
  218. set case on
  219. ec \\fhexify(AAAA) = "\fhexify(AAAA)"
  220. ec \\fhexify(aaaa) = "\fhexify(aaaa)"
  221. ec WITH CASE OFF
  222. set case off
  223. ec \\fhexify(AAAA) = "\fhexify(AAAA)"
  224. ec \\fhexify(aaaa) = "\fhexify(aaaa)"
  225. ec \\fhexify(999aaaa) = "\fhexify(999aaaa)"
  226. ec \\fhexify({ aaaa }) = "\fhexify({ aaaa })"
  227. ec \\fhexify(\\%a) = "\fhexify(\%a)"
  228. ; ec \\fhexify(\\%l) = "\fhexify(\%l)"
  229. ec
  230. ec \\funhex(\\fhexify(\\%a)) = "\funhex(\fhexify(\%a))"
  231. ec \\funhex() = "\funhex()"
  232. ec \\funhex(,) = "\funhex(,)"
  233. ec \\funhex(,,,,,,,,,,,,,,,,,,,,,,,,,) = "\funhex(,,,,,,,,,,,,,,,,,,,,,,,,,)"
  234. ec \\funhex(4141414141) = "\funhex(4141414141)"
  235. ec \\funhex(414141414) = "\funhex(414141414)"
  236. ec \\funhex(0000) = "\funhex(0000)"
  237. ec \\funhex(4141004141) = "\funhex(4141004141)"
  238. ec \\funhex(lkjlkjlkjlkjlkj) = "\funhex(lkjlkjlkjlkjlkj)"
  239. ec
  240.  
  241. :FOO
  242.  
  243. ec \\findex() = "\findex()"
  244. ec \\findex(,) = "\findex(,)"
  245. ec \\findex(,,) = "\findex(,,)"
  246. ec \\findex(,,,) = "\findex(,,,)"
  247. ec \\findex(ss,Mississippi) = "\findex(ss,Mississippi)"
  248. def \%m Mississippi
  249. asg miss \%m
  250. ec \\findex(ss,\\%m) = "\findex(ss,\%m)"
  251. ec \\findex(ss,\\m(miss)) = "\findex(ss,\m(miss))"
  252. ec \\findex(ss,Mississippi,) = "\findex(ss,Mississippi,)"
  253. ec \\findex(ss,Mississippi,0) = "\findex(ss,Mississippi,0)"
  254. ec \\findex(ss,Mississippi,1) = "\findex(ss,Mississippi,1)"
  255. ec \\findex(ss,Mississippi,2) = "\findex(ss,Mississippi,2)"
  256. ec \\findex(ss,Mississippi,3) = "\findex(ss,Mississippi,3)"
  257. ec \\findex(ss,Mississippi,4) = "\findex(ss,Mississippi,4)"
  258. ec \\findex(ss,Mississippi,5) = "\findex(ss,Mississippi,5)"
  259. ec \\findex(ss,Mississippi,6) = "\findex(ss,Mississippi,6)"
  260. ec \\findex(ss,Mississippi,999999) = "\findex(ss,Mississippi,999999)"
  261. ec \\findex(ss,Mississippi,xxx) = "\findex(ss,Mississippi,xxx)"
  262. ec \\findex(ss,Mississippi,0,xxx) = "\findex(ss,Mississippi,0,xxx)"
  263. ec \\findex(,Mississippi,) = "\findex(,Mississippi,)"
  264. ec \\findex(,Mississippi,1) = "\findex(,Mississippi,1)"
  265. ec \\findex(,Mississippi,-1) = "\findex(,Mississippi,-1)"
  266. ec \\findex(,Mississippi,999999) = "\findex(,Mississippi,999999)"
  267. ec
  268.  
  269. ec \\frindex() = "\frindex()"
  270. ec \\frindex(,) = "\frindex(,)"
  271. ec \\frindex(,,) = "\frindex(,,)"
  272. ec \\frindex(,,,) = "\frindex(,,,)"
  273.  
  274. set case on
  275. ec WITH CASE ON
  276. ec \\frindex(SS,Mississippi) = "\frindex(SS,Mississippi)"
  277. ec \\frindex(ss,MISSISSIPPI) = "\frindex(ss,MISSISSIPPI)"
  278. ec \\frindex(ss,Mississippi) = "\frindex(ss,Mississippi)"
  279. set case off
  280. ec WITH CASE OFF
  281. ec \\frindex(SS,Mississippi) = "\frindex(SS,Mississippi)"
  282. ec \\frindex(ss,MISSISSIPPI) = "\frindex(ss,MISSISSIPPI)"
  283. ec \\frindex(SS,MISSISSIPPI) = "\frindex(SS,MISSISSIPPI)"
  284. ec
  285. ec \\frindex(ss,Mississippi) = "\frindex(ss,Mississippi)"
  286. ec \\frindex(ss,Mississippi,) = "\frindex(ss,Mississippi,)"
  287. ec \\frindex(ss,Mississippi,0) = "\frindex(ss,Mississippi,0)"
  288. ec \\frindex(ss,Mississippi,1) = "\frindex(ss,Mississippi,1)"
  289. ec \\frindex(ss,Mississippi,2) = "\frindex(ss,Mississippi,2)"
  290. ec \\frindex(ss,Mississippi,3) = "\frindex(ss,Mississippi,3)"
  291. ec \\frindex(ss,Mississippi,4) = "\frindex(ss,Mississippi,4)"
  292. ec \\frindex(ss,Mississippi,5) = "\frindex(ss,Mississippi,5)"
  293. ec \\frindex(ss,Mississippi,6) = "\frindex(ss,Mississippi,6)"
  294. ec \\frindex(ss,Mississippi,7) = "\frindex(ss,Mississippi,7)"
  295. ec \\frindex(ss,Mississippi,8) = "\frindex(ss,Mississippi,8)"
  296. ec \\frindex(ss,Mississippi,9) = "\frindex(ss,Mississippi,9)"
  297. ec \\frindex(ss,Mississippi,10) = "\frindex(ss,Mississippi,10)"
  298. ec \\frindex(ss,Mississippi,11) = "\frindex(ss,Mississippi,11)"
  299. ec \\frindex(ss,Mississippi,12) = "\frindex(ss,Mississippi,12)"
  300. ec \\frindex(ss,Mississippi,13) = "\frindex(ss,Mississippi,13)"
  301. ec \\frindex(ss,Mississippi,999999) = "\frindex(ss,Mississippi,999999)"
  302. ec \\frindex(ss,Mississippi,xxx) = "\frindex(ss,Mississippi,xxx)"
  303. ec \\frindex(ss,Mississippi,0,xxx) = "\frindex(ss,Mississippi,0,xxx)"
  304. ec \\frindex(,Mississippi,) = "\frindex(,Mississippi,)"
  305. ec \\frindex(,Mississippi,1) = "\frindex(,Mississippi,1)"
  306. ec \\frindex(,Mississippi,-1) = "\frindex(,Mississippi,-1)"
  307. ec \\frindex(,Mississippi,999999) = "\frindex(,Mississippi,999999)"
  308. ec
  309.  
  310. ec \\flength() = "\flength()"
  311. ec \\flength(,) = "\flength(,)"
  312. ec \\flength(,,) = "\flength(,,)"
  313. ec \\flength(,,,,,,,,,,,,) = "\flength(,,,,,,,,,,,,)"
  314. ec \\flength(\\%m) = "\flength(\%m)"
  315. ec \\flength( \\%m ) = "\flength( \%m )"
  316. ec \\flength({ \\%m }) = "\flength({ \%m })"
  317. ec \\flength(\\m(miss)) = "\flength(\m(miss))"
  318. ec \\flength( \\m(miss) ) = "\flength( \m(miss) )"
  319. ec \\flength({ \\m(miss) }) = "\flength({ \m(miss) })"
  320. ec \\flength(\\%m,) = "\flength(\%m,)"
  321. ec \\flength(,\\%m) = "\flength(,\%m)"
  322. ec \\flength(\\%m,) = "\flength(\%m,)"
  323. ec \\flength(,\\%m,) = "\flength(,\%m,)"
  324. ec \\flength(\\%l) = "\flength(\%l)"
  325. ec \\flength(\\%x) = "\flength(\%x)"
  326. ec
  327. ec \\flower() = "\flower()"
  328. ec \\flower( ) = "\flower( )"
  329. ec \\flower({ }) = "\flower({ })"
  330. ec \\flower(\\%c) = "\flower(\%c)"
  331. ec \\flower(\\%c,) = "\flower(\%c,)"
  332. ec \\flower(,\\%c) = "\flower(,\%c)"
  333. ec \\flower({ \\%c }) = "\flower({ \%c })"
  334. ec
  335. ec \\fupper() = "\fupper()"
  336. ec \\fupper( ) = "\fupper( )"
  337. ec \\fupper({ }) = "\fupper({ })"
  338. ec \\fupper(\\%c) = "\fupper(\%c)"
  339. ec \\fupper(\\%c,) = "\fupper(\%c,)"
  340. ec \\fupper(,\\%c) = "\fupper(,\%c)"
  341. ec \\fupper({ \\%c }) = "\fupper({ \%c })"
  342. ec
  343. ec \\flpad() = "\flpad()"
  344. ec \\flpad(,) = "\flpad(,)"
  345. ec \\flpad(,,) = "\flpad(,,)"
  346. ec \\flpad(,,,) = "\flpad(,,,)"
  347. ec \\flpad(,,,,) = "\flpad(,,,,)"
  348. ec \\flpad( ) = "\flpad( )"
  349. ec \\flpad({ }) = "\flpad({ })"
  350. ec \\flpad(\\%c) = "\flpad(\%c)"
  351. ec \\flpad(\\%c,) = "\flpad(\%c,)"
  352. ec \\flpad(,\\%c) = "\flpad(,\%c)"
  353. ec \\flpad({ \\%c }) = "\flpad({ \%c })"
  354. ec \\flpad(,0) = "\flpad(,0)"
  355. ec \\flpad(,-1) = "\flpad(,-1)"
  356. ec \\flpad(,5) = "\flpad(,5)"
  357. ec \\flpad(,5,) = "\flpad(,5,)"
  358. ec \\flpad({ a },5+2) = "\flpad({ a }, 5+2)"
  359. ec \\flpad(\\%c,5) = "\flpad(\%c,5)"
  360. ec \\flpad(,0,X) = "\flpad(,0,X)"
  361. ec \\flpad(,-1,X) = "\flpad(,-1,X)"
  362. ec \\flpad(,5,X) = "\flpad(,5,X)"
  363. ec \\flpad(,5,,X) = "\flpad(,5,,X)"
  364. ec \\flpad({ a },5,X) = "\flpad({ a }, 5,X)"
  365. ec \\flpad(aa,8,XY) = "\flpad(aa,8,XY)"
  366. ec \\flpad(\\%c,999999,XY) = "\flpad(\%c,999999,XY)"
  367. ec
  368. ec \\frpad() = "\frpad()"
  369. ec \\frpad(,) = "\frpad(,)"
  370. ec \\frpad(,,) = "\frpad(,,)"
  371. ec \\frpad(,,,) = "\frpad(,,,)"
  372. ec \\frpad(,,,,) = "\frpad(,,,,)"
  373. ec \\frpad( ) = "\frpad( )"
  374. ec \\frpad({ }) = "\frpad({ })"
  375. ec \\frpad(\\%c) = "\frpad(\%c)"
  376. ec \\frpad(\\%c,) = "\frpad(\%c,)"
  377. ec \\frpad(,\\%c) = "\frpad(,\%c)"
  378. ec \\frpad({ \\%c }) = "\frpad({ \%c })"
  379. ec \\frpad(,0) = "\frpad(,0)"
  380. ec \\frpad(,-1) = "\frpad(,-1)"
  381. ec \\frpad(,5) = "\frpad(,5)"
  382. ec \\frpad(,5,) = "\frpad(,5,)"
  383. ec \\frpad({ a },5) = "\frpad({ a }, 5)"
  384. ec \\frpad(\\%c,5) = "\frpad(\%c,5)"
  385. ec \\frpad(,0,X) = "\frpad(,0,X)"
  386. ec \\frpad(,-1,X) = "\frpad(,-1,X)"
  387. ec \\frpad(,5,X) = "\frpad(,5,X)"
  388. ec \\frpad(,5,,X) = "\frpad(,5,,X)"
  389. ec \\frpad({ a },5,X) = "\frpad({ a }, 5,X)"
  390. ec \\frpad(aa,8,XY) = "\frpad(aa,8,XY)"
  391. ec \\frpad(\\%c,999999,XY) = "\frpad(\%c,999999,XY)"
  392. ec
  393. ec \\fltrim() = "\fltrim()"
  394. ec \\fltrim(,) = "\fltrim(,)"
  395. ec \\fltrim(,,) = "\fltrim(,,)"
  396. ec \\fltrim(,,,) = "\fltrim(,,,)"
  397. ec \\fltrim(,,,,) = "\fltrim(,,,,)"
  398. ec \\fltrim( ) = "\fltrim( )"
  399. ec \\fltrim({ }) = "\fltrim({ })"
  400. ec \\fltrim(\\%c) = "\fltrim(\%c)"
  401. ec \\fltrim(\\%c,) = "\fltrim(\%c,)"
  402. ec \\fltrim(,\\%c) = "\fltrim(,\%c)"
  403. ec \\fltrim({ \\%c }) = "\fltrim({ \%c })"
  404. ec \\fltrim(,0) = "\fltrim(,0)"
  405. ec \\fltrim(,-1) = "\fltrim(,-1)"
  406. ec \\fltrim(,5) = "\fltrim(,5)"
  407. ec \\fltrim(,5,) = "\fltrim(,5,)"
  408. ec \\fltrim({ a }) = "\fltrim({ a })"
  409. set case on
  410. ec WITH CASE ON
  411. ec \\fltrim(\\%c,abc) = "\fltrim(\%c,abc)"
  412. ec \\fltrim(\\%c,ABC) = "\fltrim(\%c,ABC)"
  413. set case off
  414. ec WITH CASE OFF
  415. ec \\fltrim(\\%c,abc) = "\fltrim(\%c,abc)"
  416. ec \\fltrim(\\%c,ABC) = "\fltrim(\%c,ABC)"
  417. ec \\fltrim(\\%x,z) = "\fltrim(\%x,z)"
  418. ec
  419. ec \\ftrim() = "\ftrim()"
  420. ec \\ftrim(,) = "\ftrim(,)"
  421. ec \\ftrim(,,) = "\ftrim(,,)"
  422. ec \\ftrim(,,,) = "\ftrim(,,,)"
  423. ec \\ftrim(,,,,) = "\ftrim(,,,,)"
  424. ec \\ftrim( ) = "\ftrim( )"
  425. ec \\ftrim({ }) = "\ftrim({ })"
  426. ec \\ftrim(\\%c) = "\ftrim(\%c)"
  427. ec \\ftrim(\\%c,) = "\ftrim(\%c,)"
  428. ec \\ftrim(,\\%c) = "\ftrim(,\%c)"
  429. ec \\ftrim({ \\%c }) = "\ftrim({ \%c })"
  430. ec \\ftrim(,0) = "\ftrim(,0)"
  431. ec \\ftrim(,-1) = "\ftrim(,-1)"
  432. ec \\ftrim(,5) = "\ftrim(,5)"
  433. ec \\ftrim(,5,) = "\ftrim(,5,)"
  434. ec \\ftrim({ a }) = "\ftrim({ a })"
  435. set case on
  436. ec WITH CASE ON
  437. ec \\ftrim(\\%c,xyz) = "\ftrim(\%c,xyz)"
  438. ec \\ftrim(\\%c,XYZ) = "\ftrim(\%c,XYZ)"
  439. ec \\ftrim(\\%c,ABC) = "\ftrim(\%c,ABC)"
  440. set case off
  441. ec WITH CASE OFF
  442. ec \\ftrim(\\%c,xyz) = "\ftrim(\%c,xyz)"
  443. ec \\ftrim(\\%c,XYZ) = "\ftrim(\%c,XYZ)"
  444. ec \\ftrim(\\%c,ABC) = "\ftrim(\%c,ABC)"
  445. ec \\ftrim(\\%x,z) = "\ftrim(\%x,z)"
  446. ec
  447. ec \\frepeat() = "\frepeat()"
  448. ec \\frepeat(,) = "\frepeat(,)"
  449. ec \\frepeat(,,) = "\frepeat(,,)"
  450. ec \\frepeat(A) = "\frepeat(A)"
  451. ec \\frepeat(A,) = "\frepeat(A,)"
  452. ec \\frepeat(,8) = "\frepeat(,8)"
  453. ec \\frepeat(A,-1) = "\frepeat(A,-1)"
  454. ec \\frepeat(A,0) = "\frepeat(A,0)"
  455. ec \\frepeat(A,1) = "\frepeat(A,1)"
  456. ec \\frepeat(A,2) = "\frepeat(A,2)"
  457. ec \\frepeat(A,3) = "\frepeat(A,3)"
  458. ec \\frepeat(A,(3)) = "\frepeat(A,(3))"
  459. ec \\frepeat(A,(((3)))) = "\frepeat(A,(((3))))"
  460. ec \\frepeat(A,{3}) = "\frepeat(A,{3})"
  461. ec \\frepeat(A,3+3) = "\frepeat(A,3+3)"
  462. ec \\frepeat(A,(3+3)/2) = "\frepeat(A,(3+3)/2)"
  463. ec \\frepeat(A,x) = "\frepeat(A,x)"
  464. def \%a A
  465. def \%b 4
  466. ec \\%b = \%b
  467. ec \\frepeat(\\%a,\\%b) = "\frepeat(\%a,\%b)"
  468. ec \\frepeat(\\%a,\\%b+2) = "\frepeat(\%a,\%b+2)"
  469. def \%b (4+4)
  470. ec \\%b = \%b
  471. ec \\frepeat(\\%a,\\%b) = "\frepeat(\%a,\%b)"
  472. ec \\frepeat({ },\\%b) = "\frepeat({ },\%b)"
  473.  
  474. :REPLACE
  475. ec
  476. ec \\freplace() = "\freplace()"
  477. ec \\freplace(,) = "\freplace(,)"
  478. ec \\freplace(,,) = "\freplace(,,)"
  479. ec \\freplace(,,,,,,,,,,) = "\freplace(,,,,,,,,,,)"
  480. ec \\freplace(A) = "\freplace(A)"
  481. ec \\freplace(A,) = "\freplace(A,)"
  482. ec \\freplace(,A) = "\freplace(,A)"
  483. ec \\freplace(A,B) = "\freplace(A,B)"
  484. ec \\freplace(A,B,) = "\freplace(A,B,)"
  485. ec \\freplace(,A,B) = "\freplace(,A,B)"
  486. ec \\freplace(A,A) = "\freplace(A,A)"
  487. ec \\freplace(A,A,) = "\freplace(A,A,)"
  488. ec \\freplace(,A,A) = "\freplace(,A,A)"
  489. ec \\freplace(,A,B,) = "\freplace(,A,B,)"
  490. set case on
  491. ec WITH CASE ON
  492. ec \\freplace(Aa,A,B) = "\freplace(Aa,A,B)"
  493. ec \\freplace(Aa,a,B) = "\freplace(Aa,a,B)"
  494. ec \\freplace(Oofa,o,oo) = "\freplace(Oofa,o,oo)"
  495. ec \\freplace(Oofa,oo,o) = "\freplace(Oofa,oo,o)"
  496. set case off
  497. ec WITH CASE OFF
  498. ec \\freplace(Aa,A,B) = "\freplace(Aa,A,B)"
  499. ec \\freplace(Aa,a,B) = "\freplace(Aa,a,B)"
  500. ec \\freplace(Oofa,o,oo) = "\freplace(Oofa,o,oo)"
  501. ec \\freplace(Oofa,oo,o) = "\freplace(Oofa,oo,o)"
  502. ec \\freplace(Oofa,oo,{  }) = "\freplace(Oofa,oo,{  })"
  503. ec
  504. ec \\freverse() = "\freverse()"
  505. ec \\freverse(,) = "\freverse(,)"
  506. ec \\freverse(,,) = "\freverse(,,)"
  507. ec \\freverse(,,,,,,,,,,) = "\freverse(,,,,,,,,,,)"
  508. ec \\freverse(A) = "\freverse(A)"
  509. ec \\freverse(A,) = "\freverse(A,)"
  510. ec \\freverse(,A) = "\freverse(,A)"
  511. ec \\freverse(A,B) = "\freverse(A,B)"
  512. ec \\freverse(A,B,) = "\freverse(A,B,)"
  513. ec \\freverse(,A,B) = "\freverse(,A,B)"
  514. ec \\freverse(A,A) = "\freverse(A,A)"
  515. ec \\freverse(A,A,) = "\freverse(A,A,)"
  516. ec \\freverse(,A,A) = "\freverse(,A,A)"
  517. ec \\freverse(,A,B,) = "\freverse(,A,B,)"
  518. def \%c abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ
  519. ec \\%c = "\%c"
  520. ec \\freverse(\\%c) = "\freverse(\%c)"
  521. ec \\freverse(\\%c,) = "\freverse(\%c,)"
  522. ec \\freverse({ \\%c }) = "\freverse({ \%c })"
  523. ec \\freverse(\\freverse(\\%c)) = "\freverse(\freverse(\%c))"
  524. ec
  525. ec \\fright() = "\fright()"
  526. ec \\fright(,) = "\fright(,)"
  527. ec \\fright(,,) = "\fright(,,)"
  528. ec \\fright(,,,,,,,,,,) = "\fright(,,,,,,,,,,)"
  529. ec \\fright(A) = "\fright(A)"
  530. ec \\fright(A,) = "\fright(A,)"
  531. ec \\fright(,A,) = "\fright(,A,)"
  532. ec \\fright(,3,) = "\fright(,3,)"
  533. ec \\fright({A}) = "\fright({A})"
  534. ec \\fright({ A }) = "\fright({ A })"
  535. def \%a ABCDEFGHIJKLMNOP
  536. ec \\%a = "\%a"
  537. ec \\fright(\\%a) = "\fright(\%a)"
  538. ec \\fright({\\%a}) = "\fright({\%a})"
  539. ec \\fright({ \\%a }) = "\fright({ \%a })"
  540. ec \\fright(\\%a) = "\fright(\%a)"
  541. ec \\fright(\\%a,-1) = "\fright(\%a,-1)"
  542. ec \\fright(\\%a,0) = "\fright(\%a,0)"
  543. ec \\fright(\\%a,1) = "\fright(\%a,1)"
  544. ec \\fright(\\%a,2) = "\fright(\%a,2)"
  545. ec \\fright(\\%a,3) = "\fright(\%a,3)"
  546. ec \\fright(\\%a,4) = "\fright(\%a,4)"
  547. ec \\fright(\\%a,5) = "\fright(\%a,5)"
  548. ec \\fright(\\%a,8) = "\fright(\%a,8)"
  549. ec \\fright(\\%a,999999) = "\fright(\%a,999999)"
  550. ec \\fright(\\%a,99999999999) = "\fright(\%a,99999999999)"
  551. ec \\fright(,999999) = "\fright(,999999)"
  552. def \%n 2
  553. def \%b (4+4+4)/\%n
  554. ec \\%b = "\%b"
  555. ec \\fright(\\%a,\\%b) = "\fright(\%a,\%b)"
  556. ec
  557. ec \\fsubstring() = "\fsubstring()"
  558. ec \\fsubstring(,) = "\fsubstring(,)"
  559. ec \\fsubstring(,,) = "\fsubstring(,,)"
  560. ec \\fsubstring(,,,,,,,,,,) = "\fsubstring(,,,,,,,,,,)"
  561. ec \\fsubstring(A) = "\fsubstring(A)"
  562. ec \\fsubstring(A,) = "\fsubstring(A,)"
  563. ec \\fsubstring(,A,) = "\fsubstring(,A,)"
  564. ec \\fsubstring(,3,) = "\fsubstring(,3,)"
  565. def \%a ABCDEFGHIJKLMNOP
  566. ec \\%a = "\%a"
  567. ec \\fsubstring(,\\%a,) = "\fsubstring(,\%a,)"
  568. ec \\fsubstring(\\%a) = "\fsubstring(\%a)"
  569. ec \\fsubstring(\\%a,) = "\fsubstring(\%a,)"
  570. ec \\fsubstring(\\%a,-1) = "\fsubstring(\%a,-1)"
  571. ec \\fsubstring(\\%a,0) = "\fsubstring(\%a,0)"
  572. ec \\fsubstring(\\%a,1) = "\fsubstring(\%a,1)"
  573. ec \\fsubstring(\\%a,2) = "\fsubstring(\%a,2)"
  574. ec \\fsubstring(\\%a,3) = "\fsubstring(\%a,3)"
  575. ec \\fsubstring(\\%a,4) = "\fsubstring(\%a,4)"
  576. ec \\fsubstring(\\%a,5) = "\fsubstring(\%a,5)"
  577. ec \\fsubstring(\\%a,8) = "\fsubstring(\%a,8)"
  578. ec \\fsubstring(\\%a,22) = "\fsubstring(\%a,22)"
  579. ec \\fsubstring(\\%a,99999999) = "\fsubstring(\%a,999999999)"
  580. ec \\fsubstring(\\%a,xxx) = "\fsubstring(\%a,xxx)"
  581. ec \\fsubstring(\\%a,3,-1) = "\fsubstring(\%a,3,-1)"
  582. ec \\fsubstring(\\%a,3,0) = "\fsubstring(\%a,3,0)"
  583. ec \\fsubstring(\\%a,3,1) = "\fsubstring(\%a,3,1)"
  584. ec \\fsubstring(\\%a,3,2) = "\fsubstring(\%a,3,2)"
  585. ec \\fsubstring(\\%a,3,3) = "\fsubstring(\%a,3,3)"
  586. ec \\fsubstring(\\%a,3,4) = "\fsubstring(\%a,3,4)"
  587. ec \\fsubstring(\\%a,3,5) = "\fsubstring(\%a,3,5)"
  588. ec \\fsubstring(\\%a,3,8) = "\fsubstring(\%a,3,8)"
  589. ec \\fsubstring(\\%a,3,22) = "\fsubstring(\%a,3,22)"
  590. ec \\fsubstring(\\%a,3,99999999) = "\fsubstring(\%a,3,99999999)"
  591. ec \\fsubstring(\\%a,3,x) = "\fsubstring(\%a,3,x)"
  592. ec \\fsubstring({\\%a},3,4) = "\fsubstring({\%a},3,4)"
  593. ec \\fsubstring({ \\%a },3,4) = "\fsubstring({ \%a },3,4)"
  594. ec \\fsubstring({  \\%a  },3,4) = "\fsubstring({  \%a  },3,4)"
  595. ec \\fsubstring({{  \\%a  }},3,4) = "\fsubstring({{ \%a }},3,4)"
  596. ec \\fsubstring({ \\%a },{3},{4}) = "\fsubstring({ \%a },{3},{4})"
  597. ec \\fsubstring({ \\%a },(3),(4)) = "\fsubstring({ \%a },(3),(4))"
  598. ec \\fsubstring({ \\%a },(3),(2+1+1)) = "\fsubstring({ \%a },(3),(2+1+1))"
  599. ec \\fsubstring(,(3),(2+1+1)) = "\fsubstring(,(3),(2+1+1))"
  600. ec \\fsubstring(\\%a,,8) = "\fsubstring(\%a,,8)"
  601. :ARITH
  602. ec
  603. ec \\fmax() = "\fmax()"
  604. ec \\fmax(,) = "\fmax(,)"
  605. ec \\fmax(,,) = "\fmax(,,)"
  606. ec \\fmax(,,,,,,,,,,) = "\fmax(,,,,,,,,,,)"
  607. ec \\fmax(A) = "\fmax(A)"
  608. ec \\fmax(A,) = "\fmax(A,)"
  609. ec \\fmax(,A,) = "\fmax(,A,)"
  610. ec \\fmax(,3,) = "\fmax(,3,)"
  611. ec \\fmax({A}) = "\fmax({A})"
  612. ec \\fmax(0,0) = "\fmax(0,0)"
  613. ec \\fmax(1,0) = "\fmax(1,0)"
  614. ec \\fmax(0,1) = "\fmax(0,1)"
  615. ec \\fmax(1,1) = "\fmax(1,1)"
  616. ec \\fmax(0,1,2) = "\fmax(0,1,2)"
  617. ec \\fmax(,1) = "\fmax(,1)"
  618. ec \\fmax(99999999,1) = "\fmax(99999999,1)"
  619. ec \\fmax(x,1) = "\fmax(x,1)"
  620. ec \\fmax(7-6,16/8) = "\fmax(7-6,16/8)"
  621. def \%a 4+4+4+4
  622. ec \\fmax(\\%a,-(\\%a)) = "\fmax(\%a,-(\%a))"
  623. ec \\fmax(((((((\\%a)))))),-(\\%a)) = "\fmax(((((((\%a)))))),-(\%a))"
  624. ec
  625. ec \\fmin() = "\fmin()"
  626. ec \\fmin(,) = "\fmin(,)"
  627. ec \\fmin(,,) = "\fmin(,,)"
  628. ec \\fmin(,,,,,,,,,,) = "\fmin(,,,,,,,,,,)"
  629. ec \\fmin(A) = "\fmin(A)"
  630. ec \\fmin(A,) = "\fmin(A,)"
  631. ec \\fmin(,A,) = "\fmin(,A,)"
  632. ec \\fmin(,3,) = "\fmin(,3,)"
  633. ec \\fmin({A}) = "\fmin({A})"
  634. ec \\fmin(0,0) = "\fmin(0,0)"
  635. ec \\fmin(1,0) = "\fmin(1,0)"
  636. ec \\fmin(0,1) = "\fmin(0,1)"
  637. ec \\fmin(1,1) = "\fmin(1,1)"
  638. ec \\fmin(0,1,2) = "\fmin(0,1,2)"
  639. ec \\fmin(,1) = "\fmin(,1)"
  640. ec \\fmin(99999999,1) = "\fmin(99999999,1)"
  641. ec \\fmin(x,1) = "\fmin(x,1)"
  642. ec \\fmin(7-6,16/8) = "\fmin(7-6,16/8)"
  643. def \%a 4+4+4+4
  644. ec \\fmin(\\%a,-(\\%a)) = "\fmin(\%a,-(\%a))"
  645. ec \\fmin(((((((\\%a)))))),-(\\%a)) = "\fmin(((((((\%a)))))),-(\%a))"
  646. ec
  647. ec \\fmod() = "\fmod()"
  648. ec \\fmod(,) = "\fmod(,)"
  649. ec \\fmod(,,) = "\fmod(,,)"
  650. ec \\fmod(,,,,,,,,,,) = "\fmod(,,,,,,,,,,)"
  651. ec \\fmod(A) = "\fmod(A)"
  652. ec \\fmod(A,) = "\fmod(A,)"
  653. ec \\fmod(,A,) = "\fmod(,A,)"
  654. ec \\fmod(,3,) = "\fmod(,3,)"
  655. ec \\fmod({A}) = "\fmod({A})"
  656. ec \\fmod(0,0) = "\fmod(0,0)"
  657. ec \\fmod(1,0) = "\fmod(1,0)"
  658. ec \\fmod(0,1) = "\fmod(0,1)"
  659. ec \\fmod(1,1) = "\fmod(1,1)"
  660. ec \\fmod(0,1,2) = "\fmod(0,1,2)"
  661. ec \\fmod(,1) = "\fmod(,1)"
  662. ec \\fmod(99999999,1) = "\fmod(99999999,1)"
  663. ec \\fmod(x,1) = "\fmod(x,1)"
  664. ec \\fmod(7-6,16/8) = "\fmod(7-6,16/8)"
  665. def \%a 4+4+4+4
  666. ec \\fmod(\\%a,-(\\%a)) = "\fmod(\%a,-(\%a))"
  667. ec \\fmod(\\%a+1,-(\\%a)) = "\fmod(\%a+1,-(\%a))"
  668. ec \\fmod(((((((\\%a)))))),-(\\%a)) = "\fmod(((((((\%a)))))),-(\%a))"
  669. ec
  670. ec \\feval() = "\feval()"
  671. ec \\feval(,) = "\feval(,)"
  672. ec \\feval(,,) = "\feval(,,)"
  673. ec \\feval(,,,,,,,,,,) = "\feval(,,,,,,,,,,)"
  674. ec \\feval(A) = "\feval(A)"
  675. ec \\feval(A,) = "\feval(A,)"
  676. ec \\feval(,A,) = "\feval(,A,)"
  677. ec \\feval(,3,) = "\feval(,3,)"
  678. ec \\feval({A}) = "\feval({A})"
  679. ec \\feval(0,0) = "\feval(0,0)"
  680. def \%a 4+4+4+4
  681. ec \\feval(\\%a,-(\\%a)) = "\feval(\%a,-(\%a))"
  682. ec \\feval(\\%a+1,-(\\%a)) = "\feval(\%a+1,-(\%a))"
  683. ec \\feval(((((((\\%a)))))),-(\\%a)) = "\feval(((((((\%a)))))),-(\%a))"
  684. ec \\feval((\\%a)/0) = "\feval((\%a)/0)"
  685. ec \\feval((\\%a)%0) = "\feval((\%a)%0)"
  686. ec \\feval((\\%a)@0) = "\feval((\%a)@0)"
  687. ec \\feval((\\%a)#0) = "\feval((\%a)#0)"
  688. :FILES
  689. ec
  690. ec \\ffiles() = "\ffiles()"
  691. ec \\ffiles(,) = "\ffiles(,)"
  692. ec \\ffiles(,,) = "\ffiles(,,)"
  693. ec \\ffiles(,,,,,,,,,,) = "\ffiles(,,,,,,,,,,)"
  694. ec \\ffiles(A) = "\ffiles(A)"
  695. ec \\ffiles(A,) = "\ffiles(A,)"
  696. ec \\ffiles(wermit) = "\ffiles(wermit)"
  697. set wild shell
  698. echo WITH SET WILD SHELL
  699. ec \\ffiles(w*) = "\ffiles(w*)"
  700. ec \\ffiles([a-b]*) = "\ffiles([a-b]*)"
  701. ec \\ffiles(*) = "\ffiles(*)"
  702. set wild kermit
  703. echo WITH SET WILD KERMIT
  704. ec \\ffiles(w*) = "\ffiles(w*)"
  705. ec \\ffiles([a-b]*) = "\ffiles([a-b]*)"
  706. ec \\ffiles(*) = "\ffiles(*)"
  707. ec \\ffiles(\\%x) = "\ffiles(\%x)"
  708. ec
  709. ec \\fnextfile() = "\fnextfile()"
  710. ec \\fnextfile(,) = "\fnextfile(,)"
  711. ec \\fnextfile(,,) = "\fnextfile(,,)"
  712. ec \\fnextfile(,,,,,,,,,,) = "\fnextfile(,,,,,,,,,,)"
  713. ec \\fnextfile(A) = "\fnextfile(A)"
  714. ec \\fnextfile(A,) = "\fnextfile(A,)"
  715. ec \\fnextfile(wermit) = "\fnextfile(wermit)"
  716. ec
  717. ec \\fpathname() = "\fpathname()"
  718. ec \\fpathname(,) = "\fpathname(,)"
  719. ec \\fpathname(,,) = "\fpathname(,,)"
  720. ec \\fpathname(,,,,,,,,,,) = "\fpathname(,,,,,,,,,,)"
  721. ec \\fpathname(w*) = "\fpathname(w*)"
  722. ec \\fpathname([a-b]*) = "\fpathname([a-b]*)"
  723. ec \\fpathname(*) = "\fpathname(*)"
  724. ec \\fpathname(/tmp/) = "\fpathname(/tmp/)"
  725. ec \\fpathname(/tmp/foo/) = "\fpathname(/tmp/foo/)"
  726. ec \\fpathname(/tmp/*) = "\fpathname(/tmp/*)"
  727. ec \\fpathname(~/tmp/*) = "\fpathname(~/tmp/*)"
  728. ec \\fpathname(~olga/tmp/*) = "\fpathname(~olga/tmp/*)"
  729. ec
  730. ec \\fbasename() = "\fbasename()"
  731. ec \\fbasename(,) = "\fbasename(,)"
  732. ec \\fbasename(,,) = "\fbasename(,,)"
  733. ec \\fbasename(,,,,,,,,,,) = "\fbasename(,,,,,,,,,,)"
  734. ec \\fbasename(w*) = "\fbasename(w*)"
  735. ec \\fbasename(wermit) = "\fbasename(wermit)"
  736. ec \\fbasename(notexists) = "\fbasename(notexists)"
  737. ec \\fbasename(/tmp/*) = "\fbasename(/tmp/*)"
  738. ec \\fbasename(~/tmp/*) = "\fbasename(~/tmp/*)"
  739. ec \\fbasename(~olga/tmp/*) = "\fbasename(~olga/tmp/*)"
  740. def \%f ~olga/tmp/*
  741. ec \\fbasename(\\%f) = "\fbasename(\%f)"
  742.  
  743. ec
  744. ec \\fsize() = "\fsize()"
  745. ec \\fsize(,) = "\fsize(,)"
  746. ec \\fsize(,,) = "\fsize(,,)"
  747. ec \\fsize(,,,,,,,,,,) = "\fsize(,,,,,,,,,,)"
  748. ec \\fsize(w*) = "\fsize(w*)"
  749. ec \\fsize(wermit) = "\fsize(wermit)"
  750. ec \\fsize(~olga/.env) = "\fsize(~olga/.env)"
  751.  
  752. ec
  753. ec \\fdate() = "\fdate()"
  754. ec \\fdate(,) = "\fdate(,)"
  755. ec \\fdate(,,) = "\fdate(,,)"
  756. ec \\fdate(,,,,,,,,,,) = "\fdate(,,,,,,,,,,)"
  757. ec \\fdate(w*) = "\fdate(w*)"
  758. ec \\fdate(wermit) = "\fdate(wermit)"
  759. ec \\fdate(~olga/.env) = "\fdate(~olga/.env)"
  760. ec
  761. :ipaddr
  762. ec \\fipaddr() = "\fipaddr()"
  763. ec \\fipaddr(,) = "\fipaddr(,)"
  764. ec \\fipaddr(,,) = "\fipaddr(,,)"
  765. ec \\fipaddr(,,,,,,,,,,) = "\fipaddr(,,,,,,,,,,)"
  766. ec \\fipaddr(a.b.c.d) = "\fipaddr(a.b.c.d)"
  767. ec \\fipaddr(1.2.3.4) = "\fipaddr(1.2.3.4)"
  768. ec \\fipaddr(999.999.999.999) = "\fipaddr(999.999.999.999)"
  769. ec \\fipaddr(9999.9999.9999.9999) = "\fipaddr(9999.9999.9999.9999)"
  770. ec \\fipaddr(128.59.39.2) = "\fipaddr(128.59.39.2)"
  771. ec \\fipaddr(My address is 128.59.39.2) = "\fipaddr(My address is 128.59.39.2)"
  772. ec \\fipaddr(Address: <<128.59.39.2>>) = "\fipaddr(Address: <<128.59.39.2>>)"
  773. ec
  774. :EXEC
  775. ec
  776. ec \\fexec() = "\fexec()"
  777. ec \\fexec(,) = "\fexec(,)"
  778. ec \\fexec(,,) = "\fexec(,,)"
  779. ec \\fexec(,,,,,,,,,,) = "\fexec(,,,,,,,,,,)"
  780. ec \\fexec(blah) = "\fexec(blah)"
  781. def paste return \%1\%2\%3\%4
  782. ec \\fexec(paste) = "\fexec(paste)"
  783. ec \\fexec(paste AAA) = "\fexec(paste AAA)"
  784. ec \\fexec(paste AAA BBB) = "\fexec(paste AAA BBB)"
  785. ec \\fexec(paste AAA BBB CCC) = "\fexec(paste AAA BBB CCC)"
  786. ec \\fexec(paste AAA BBB CCC DDD) = "\fexec(paste AAA BBB CCC DDD)"
  787. ec \\fexec(paste AAA BBB CCC DDD EEE) = "\fexec(paste AAA BBB CCC DDD EEE)"
  788. ec \\fexec(paste,AAA) = "\fexec(paste,AAA)"
  789. ec \\fexec(paste,AAA,BBB) = "\fexec(paste,AAA,BBB)"
  790. ec \\fexec(paste,AAA,BBB CCC) = "\fexec(paste,AAA,BBB,CCC)"
  791. ec \\fexec(paste,AAA,BBB CCC DDD) = "\fexec(paste,AAA,BBB,CCC,DDD)"
  792. ec \\fexec(paste,AAA,BBB CCC DDD EEE) = "\fexec(paste,AAA,BBB,CCC,DDD,EEE)"
  793. ec \\fexec(paste { AAA } -
  794. { BBB } { CCC }) = "\fexec(paste { AAA } { BBB } { CCC })"
  795. ec \\fexec({ paste } { AAA } -
  796. { BBB } { CCC }) = "\fexec({ paste } { AAA } { BBB } { CCC })"
  797. ec
  798. ec \\ftod2sec() = "\ftod2sec()"
  799. ec \\ftod2sec(,) = "\ftod2sec(,)"
  800. ec \\ftod2sec(,,) = "\ftod2sec(,,)"
  801. ec \\ftod2sec(,,,,,,,,,,) = "\ftod2sec(,,,,,,,,,,)"
  802. ec \\ftod2sec(A) = "\ftod2sec(A)"
  803. ec \\ftod2sec(23:59:59) = "\ftod2sec(23:59:59)"
  804. ec \\ftod2sec(23:59:) = "\ftod2sec(23:59:)"
  805. ec \\ftod2sec(23:59) = "\ftod2sec(23:59)"
  806. ec \\ftod2sec(23:) = "\ftod2sec(23:)"
  807. ec \\ftod2sec(23) = "\ftod2sec(23)"
  808. ec \\ftod2sec(-23) = "\ftod2sec(-23)"
  809. ec \\ftod2sec(32:77:95) = "\ftod2sec(32:77:95)"
  810. ec \\ftod2sec(00:77:01) = "\ftod2sec(00:77:01)"
  811. ec \\ftod2sec(00:00:01) = "\ftod2sec(00:00:01)"
  812. ec \\ftod2sec(00:00:61) = "\ftod2sec(00:00:61)"
  813. ec \\ftod2sec(23:-59:59) = "\ftod2sec(23:-59:59)"
  814. ec \\ftod2sec(23:59:-59) = "\ftod2sec(23:59:-59)"
  815. ec \\ftod2sec(23:59:59xxx) = "\ftod2sec(23:59:59xxx)"
  816. ec \\ftod2sec(xxx23:59:59) = "\ftod2sec(xxx23:59:59)"
  817. ec \\ftod2sec(23:59:59 xxx) = "\ftod2sec(23:59:59 xxx)"
  818.  
  819. echo \\fstripn(abcdefghijklmnop) = "\fstripn(abcdefghijklmnop)"
  820. echo \\fstripn(abcdefghijklmnop,1) = "\fstripn(abcdefghijklmnop,1)"
  821. echo \\fstripn(abcdefghijklmnop,2) = "\fstripn(abcdefghijklmnop,2)"
  822. echo \\fstripn(abcdefghijklmnop,3) = "\fstripn(abcdefghijklmnop,3)"
  823. echo \\fstripn(abcdefghijklmnop,10) = "\fstripn(abcdefghijklmnop,10)"
  824. echo \\fstripn(abcdefghijklmnop,15) = "\fstripn(abcdefghijklmnop,15)"
  825. echo \\fstripn(abcdefghijklmnop,16) = "\fstripn(abcdefghijklmnop,16)"
  826. echo \\fstripn(abcdefghijklmnop,17) = "\fstripn(abcdefghijklmnop,17)"
  827. echo \\fstripn(abcdefghijklmnop,1000) = "\fstripn(abcdefghijklmnop,1000)"
  828. echo \\fstripn(abcdefghijklmnop,0) = "\fstripn(abcdefghijklmnop,0)"
  829. echo \\fstripn(abcdefghijklmnop,-1) = "\fstripn(abcdefghijklmnop,-1)"
  830. echo \\fstripn(abcdefghijklmnop,-2) = "\fstripn(abcdefghijklmnop,-2)"
  831. echo \\fstripn(abcdefghijklmnop,xxx) = "\fstripn(abcdefghijklmnop,xxx)"
  832. echo \\fstripn(abcdefghijklmnop,-xxx) = "\fstripn(abcdefghijklmnop,-xxx)"
  833. echo \\fstripn(abcdefghijklmnop,2xxx) = "\fstripn(abcdefghijklmnop,2xxx)"
  834. echo \\fstripn() = "\fstripn()"
  835. echo
  836. echo \\fstripx(abcdefghijklmnop) = "\fstripx(abcdefghijklmnop)"
  837. echo \\fstripx(.abcdefghijklmnop) = "\fstripx(.abcdefghijklmnop)"
  838. echo \\fstripx(a.bcdefghijklmnop) = "\fstripx(a.bcdefghijklmnop)"
  839. echo \\fstripx(abcdefghijklmnop.) = "\fstripx(abcdefghijklmnop.)"
  840. echo \\fstripx(abcdefghijklmno.p) = "\fstripx(abcdefghijklmno.p)"
  841. echo \\fstripx(abcdefghijklmn.op) = "\fstripx(abcdefghijklmn.op)"
  842. echo \\fstripx(a.c.e.g.i.k.m.o.p) = "\fstripx(a.c.e.g.i.k.m.o.p)"
  843. echo \\fstripx(a................) = "\fstripx(a................)"
  844. echo \\fstripx(.................) = "\fstripx(.................)"
  845. echo \\fstripx() = "\fstripx()"
  846. echo
  847. echo \\fstripx(abcdefghijklmnop,h) = "\fstripx(abcdefghijklmnop,h)"
  848. echo \\fstripx(.abcdefghijklmnop,h) = "\fstripx(.abcdefghijklmnop,h)"
  849. echo \\fstripx(a.bcdefghijklmnop,h) = "\fstripx(a.bcdefghijklmnop,h)"
  850. echo \\fstripx(abcdefghijklmnop.,h) = "\fstripx(abcdefghijklmnop.,h)"
  851. echo \\fstripx(abcdefghijklmno.p,h) = "\fstripx(abcdefghijklmno.p,h)"
  852. echo \\fstripx(abcdefghijklmn.op,h) = "\fstripx(abcdefghijklmn.op,h)"
  853. echo \\fstripx(a.c.e.g.i.k.m.o.p,h) = "\fstripx(a.c.e.g.i.k.m.o.p,h)"
  854. echo \\fstripx(a................,h) = "\fstripx(a................,h)"
  855. echo \\fstripx(.................,h) = "\fstripx(.................,h)"
  856. echo \\fstripx(,h) = "\fstripx(,h)"
  857. echo
  858. echo \\flop(oofa.txt) = "\flop(oofa.txt)"
  859. echo \\flop(oofa_txt) = "\flop(oofa_txt)"
  860. echo \\flop(oofa_txt,o) = "\flop(oofa_txt,o)"
  861. echo \\flop(oofa_txt,f) = "\flop(oofa_txt,f)"
  862. echo \\flop(oofa_txt,a) = "\flop(oofa_txt,a)"
  863. echo \\flop(oofa_txt,_) = "\flop(oofa_txt,_)"
  864. echo \\flop(oofa_txt,t) = "\flop(oofa_txt,t)"
  865. echo \\flop(oofa_txt,x) = "\flop(oofa_txt,x)"
  866. echo \\flop() = "\flop()"
  867. echo \\flop(,x) = "\flop(,x)"
  868. exit
  869.