home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1994 March / Source_Code_CD-ROM_Walnut_Creek_March_1994.iso / compsrcs / misc / volume40 / remind / patch10c < prev    next >
Encoding:
Text File  |  1993-10-25  |  49.7 KB  |  1,725 lines
  1. Newsgroups: comp.sources.misc
  2. From: dfs@doe.carleton.ca (David F. Skoll)
  3. Subject: v40i050:  remind - A replacement for calendar, Patch10c/3
  4. Message-ID: <1993Oct25.224755.7559@sparky.sterling.com>
  5. X-Md4-Signature: b6bed1db68b6d65ea757750a8cf686fb
  6. Sender: kent@sparky.sterling.com (Kent Landfield)
  7. Organization: Dept. of Electronics, Carleton University
  8. Date: Mon, 25 Oct 1993 22:47:55 GMT
  9. Approved: kent@sparky.sterling.com
  10.  
  11. Submitted-by: dfs@doe.carleton.ca (David F. Skoll)
  12. Posting-number: Volume 40, Issue 50
  13. Archive-name: remind/patch10c
  14. Environment: UNIX, MS-DOS, OS/2
  15. Patch-To: remind: Volume 33, Issue 58-69
  16.  
  17. #! /bin/sh
  18. # This is a shell archive.  Remove anything before this line, then feed it
  19. # into a shell via "sh file" or similar.  To overwrite existing files,
  20. # type "sh file -c".
  21. # Contents:  test1.cmp test2.cmp
  22. # Wrapped by kent@sparky on Mon Oct 25 17:25:44 1993
  23. PATH=/bin:/usr/bin:/usr/ucb:/usr/local/bin:/usr/lbin ; export PATH
  24. echo If this archive is complete, you will see the following message:
  25. echo '          "shar: End of archive 3 (of 3)."'
  26. if test -f 'test1.cmp' -a "${1}" != "-c" ; then 
  27.   echo shar: Will not clobber existing file \"'test1.cmp'\"
  28. else
  29.   echo shar: Extracting \"'test1.cmp'\" \(23534 characters\)
  30.   sed "s/^X//" >'test1.cmp' <<'END_OF_FILE'
  31. X# Test file for REMIND
  32. X#
  33. X# Use this file to test the date calculation routines
  34. X# of the REMIND program by typing:
  35. X#
  36. X#     ./test-rem  # From WITHIN Remind source directory!
  37. X
  38. XREM MSG Today is [hebday(today())] [hebmon(today())] [hebyear(today())]
  39. X./test.rem(8): Trig = Saturday, 16 February, 1991
  40. XReminders for Saturday, 16th February, 1991:
  41. X
  42. Xtoday() => 1991/02/16
  43. Xhebday(1991/02/16) => 2
  44. Xtoday() => 1991/02/16
  45. Xhebmon(1991/02/16) => "Adar"
  46. Xtoday() => 1991/02/16
  47. Xhebyear(1991/02/16) => 5751
  48. XToday is 2 Adar 5751
  49. X
  50. Xfset _h(x, y) trigger(hebdate(x,y))
  51. X
  52. X[_h(1,  "Tishrey")] MSG Rosh Hashana 1
  53. XEntering UserFN _h(1, "Tishrey")
  54. Xx => 1
  55. Xy => "Tishrey"
  56. Xhebdate(1, "Tishrey") => 1991/09/09
  57. Xtrigger(1991/09/09) => "9 September 1991"
  58. XLeaving UserFN _h() => "9 September 1991"
  59. X./test.rem(11): Trig = Monday, 9 September, 1991
  60. X[_h(2,  "Tishrey")] MSG Rosh Hashana 2
  61. XEntering UserFN _h(2, "Tishrey")
  62. Xx => 2
  63. Xy => "Tishrey"
  64. Xhebdate(2, "Tishrey") => 1991/09/10
  65. Xtrigger(1991/09/10) => "10 September 1991"
  66. XLeaving UserFN _h() => "10 September 1991"
  67. X./test.rem(12): Trig = Tuesday, 10 September, 1991
  68. X[_h(3,  "Tishrey")] MSG Tzom Gedalia
  69. XEntering UserFN _h(3, "Tishrey")
  70. Xx => 3
  71. Xy => "Tishrey"
  72. Xhebdate(3, "Tishrey") => 1991/09/11
  73. Xtrigger(1991/09/11) => "11 September 1991"
  74. XLeaving UserFN _h() => "11 September 1991"
  75. X./test.rem(13): Trig = Wednesday, 11 September, 1991
  76. X[_h(10, "Tishrey")] MSG Yom Kippur
  77. XEntering UserFN _h(10, "Tishrey")
  78. Xx => 10
  79. Xy => "Tishrey"
  80. Xhebdate(10, "Tishrey") => 1991/09/18
  81. Xtrigger(1991/09/18) => "18 September 1991"
  82. XLeaving UserFN _h() => "18 September 1991"
  83. X./test.rem(14): Trig = Wednesday, 18 September, 1991
  84. X[_h(15, "Tishrey")] MSG Sukkot 1
  85. XEntering UserFN _h(15, "Tishrey")
  86. Xx => 15
  87. Xy => "Tishrey"
  88. Xhebdate(15, "Tishrey") => 1991/09/23
  89. Xtrigger(1991/09/23) => "23 September 1991"
  90. XLeaving UserFN _h() => "23 September 1991"
  91. X./test.rem(15): Trig = Monday, 23 September, 1991
  92. X[_h(25, "Kislev")]  MSG Channuka
  93. XEntering UserFN _h(25, "Kislev")
  94. Xx => 25
  95. Xy => "Kislev"
  96. Xhebdate(25, "Kislev") => 1991/12/02
  97. Xtrigger(1991/12/02) => "2 December 1991"
  98. XLeaving UserFN _h() => "2 December 1991"
  99. X./test.rem(16): Trig = Monday, 2 December, 1991
  100. X[_h(10, "Tevet")]   MSG Asara B'Tevet
  101. XEntering UserFN _h(10, "Tevet")
  102. Xx => 10
  103. Xy => "Tevet"
  104. Xhebdate(10, "Tevet") => 1991/12/17
  105. Xtrigger(1991/12/17) => "17 December 1991"
  106. XLeaving UserFN _h() => "17 December 1991"
  107. X./test.rem(17): Trig = Tuesday, 17 December, 1991
  108. X[_h(15, "Shvat")]   MSG Tu B'Shvat
  109. XEntering UserFN _h(15, "Shvat")
  110. Xx => 15
  111. Xy => "Shvat"
  112. Xhebdate(15, "Shvat") => 1992/01/20
  113. Xtrigger(1992/01/20) => "20 January 1992"
  114. XLeaving UserFN _h() => "20 January 1992"
  115. X./test.rem(18): Trig = Monday, 20 January, 1992
  116. X[_h(15, "Adar A")]  MSG Purim Katan
  117. XEntering UserFN _h(15, "Adar A")
  118. Xx => 15
  119. Xy => "Adar A"
  120. Xhebdate(15, "Adar A") => 1992/02/19
  121. Xtrigger(1992/02/19) => "19 February 1992"
  122. XLeaving UserFN _h() => "19 February 1992"
  123. X./test.rem(19): Trig = Wednesday, 19 February, 1992
  124. X[_h(14, "Adar")]    MSG Purim
  125. XEntering UserFN _h(14, "Adar")
  126. Xx => 14
  127. Xy => "Adar"
  128. Xhebdate(14, "Adar") => 1991/02/28
  129. Xtrigger(1991/02/28) => "28 February 1991"
  130. XLeaving UserFN _h() => "28 February 1991"
  131. X./test.rem(20): Trig = Thursday, 28 February, 1991
  132. X[_h(15, "Nisan")]   MSG Pesach
  133. XEntering UserFN _h(15, "Nisan")
  134. Xx => 15
  135. Xy => "Nisan"
  136. Xhebdate(15, "Nisan") => 1991/03/30
  137. Xtrigger(1991/03/30) => "30 March 1991"
  138. XLeaving UserFN _h() => "30 March 1991"
  139. X./test.rem(21): Trig = Saturday, 30 March, 1991
  140. X[_h(27, "Nisan")]   MSG Yom HaShoah
  141. XEntering UserFN _h(27, "Nisan")
  142. Xx => 27
  143. Xy => "Nisan"
  144. Xhebdate(27, "Nisan") => 1991/04/11
  145. Xtrigger(1991/04/11) => "11 April 1991"
  146. XLeaving UserFN _h() => "11 April 1991"
  147. X./test.rem(22): Trig = Thursday, 11 April, 1991
  148. X[_h(4,  "Iyar")]    MSG Yom HaZikaron
  149. XEntering UserFN _h(4, "Iyar")
  150. Xx => 4
  151. Xy => "Iyar"
  152. Xhebdate(4, "Iyar") => 1991/04/18
  153. Xtrigger(1991/04/18) => "18 April 1991"
  154. XLeaving UserFN _h() => "18 April 1991"
  155. X./test.rem(23): Trig = Thursday, 18 April, 1991
  156. X[_h(5,  "Iyar")]    MSG Yom Ha'atzmaut
  157. XEntering UserFN _h(5, "Iyar")
  158. Xx => 5
  159. Xy => "Iyar"
  160. Xhebdate(5, "Iyar") => 1991/04/19
  161. Xtrigger(1991/04/19) => "19 April 1991"
  162. XLeaving UserFN _h() => "19 April 1991"
  163. X./test.rem(24): Trig = Friday, 19 April, 1991
  164. X[_h(28, "Iyar")]    MSG Yom Yerushalayim
  165. XEntering UserFN _h(28, "Iyar")
  166. Xx => 28
  167. Xy => "Iyar"
  168. Xhebdate(28, "Iyar") => 1991/05/12
  169. Xtrigger(1991/05/12) => "12 May 1991"
  170. XLeaving UserFN _h() => "12 May 1991"
  171. X./test.rem(25): Trig = Sunday, 12 May, 1991
  172. X[_h(6,  "Sivan")]   MSG Shavuot
  173. XEntering UserFN _h(6, "Sivan")
  174. Xx => 6
  175. Xy => "Sivan"
  176. Xhebdate(6, "Sivan") => 1991/05/19
  177. Xtrigger(1991/05/19) => "19 May 1991"
  178. XLeaving UserFN _h() => "19 May 1991"
  179. X./test.rem(26): Trig = Sunday, 19 May, 1991
  180. X[_h(9,  "Av")]      MSG Tish'a B'Av
  181. XEntering UserFN _h(9, "Av")
  182. Xx => 9
  183. Xy => "Av"
  184. Xhebdate(9, "Av") => 1991/07/20
  185. Xtrigger(1991/07/20) => "20 July 1991"
  186. XLeaving UserFN _h() => "20 July 1991"
  187. X./test.rem(27): Trig = Saturday, 20 July, 1991
  188. X
  189. X# Test some jahrzeit cases
  190. Xfset _i(x,y,z,a) trigger(hebdate(x,y,z,a))
  191. X[_i(30, "Heshvan", today(), 5759)] MSG Complete-Complete
  192. Xtoday() => 1991/02/16
  193. XEntering UserFN _i(30, "Heshvan", 1991/02/16, 5759)
  194. Xx => 30
  195. Xy => "Heshvan"
  196. Xz => 1991/02/16
  197. Xa => 5759
  198. Xhebdate(30, "Heshvan", 1991/02/16, 5759) => 1991/11/07
  199. Xtrigger(1991/11/07) => "7 November 1991"
  200. XLeaving UserFN _i() => "7 November 1991"
  201. X./test.rem(31): Trig = Thursday, 7 November, 1991
  202. X[_i(30, "Heshvan", today(), 5760)] MSG Complete-Defective
  203. Xtoday() => 1991/02/16
  204. XEntering UserFN _i(30, "Heshvan", 1991/02/16, 5760)
  205. Xx => 30
  206. Xy => "Heshvan"
  207. Xz => 1991/02/16
  208. Xa => 5760
  209. Xhebdate(30, "Heshvan", 1991/02/16, 5760) => 1991/11/07
  210. Xtrigger(1991/11/07) => "7 November 1991"
  211. XLeaving UserFN _i() => "7 November 1991"
  212. X./test.rem(32): Trig = Thursday, 7 November, 1991
  213. X[_i(30, "Heshvan", today(), 5761)] MSG Illegal
  214. Xtoday() => 1991/02/16
  215. XEntering UserFN _i(30, "Heshvan", 1991/02/16, 5761)
  216. Xx => 30
  217. Xy => "Heshvan"
  218. Xz => 1991/02/16
  219. Xa => 5761
  220. Xhebdate(30, "Heshvan", 1991/02/16, 5761) => ./test.rem(33): 30 Heshvan 5761: Invalid Hebrew date
  221. XInvalid Hebrew date
  222. XLeaving UserFN _i() => Invalid Hebrew date
  223. X
  224. X[_i(30, "Kislev", today(), 5759)] MSG Complete-Complete
  225. Xtoday() => 1991/02/16
  226. XEntering UserFN _i(30, "Kislev", 1991/02/16, 5759)
  227. Xx => 30
  228. Xy => "Kislev"
  229. Xz => 1991/02/16
  230. Xa => 5759
  231. Xhebdate(30, "Kislev", 1991/02/16, 5759) => 1991/12/07
  232. Xtrigger(1991/12/07) => "7 December 1991"
  233. XLeaving UserFN _i() => "7 December 1991"
  234. X./test.rem(35): Trig = Saturday, 7 December, 1991
  235. X[_i(30, "Kislev", today(), 5760)] MSG Complete-Defective
  236. Xtoday() => 1991/02/16
  237. XEntering UserFN _i(30, "Kislev", 1991/02/16, 5760)
  238. Xx => 30
  239. Xy => "Kislev"
  240. Xz => 1991/02/16
  241. Xa => 5760
  242. Xhebdate(30, "Kislev", 1991/02/16, 5760) => 1991/12/07
  243. Xtrigger(1991/12/07) => "7 December 1991"
  244. XLeaving UserFN _i() => "7 December 1991"
  245. X./test.rem(36): Trig = Saturday, 7 December, 1991
  246. X[_i(30, "Kislev", today(), 5761)] MSG Illegal
  247. Xtoday() => 1991/02/16
  248. XEntering UserFN _i(30, "Kislev", 1991/02/16, 5761)
  249. Xx => 30
  250. Xy => "Kislev"
  251. Xz => 1991/02/16
  252. Xa => 5761
  253. Xhebdate(30, "Kislev", 1991/02/16, 5761) => ./test.rem(37): 30 Kislev 5761: Invalid Hebrew date
  254. XInvalid Hebrew date
  255. XLeaving UserFN _i() => Invalid Hebrew date
  256. X
  257. X[_i(30, "Adar A", today(), 5755)] MSG Leap
  258. Xtoday() => 1991/02/16
  259. XEntering UserFN _i(30, "Adar A", 1991/02/16, 5755)
  260. Xx => 30
  261. Xy => "Adar A"
  262. Xz => 1991/02/16
  263. Xa => 5755
  264. Xhebdate(30, "Adar A", 1991/02/16, 5755) => 1992/03/05
  265. Xtrigger(1992/03/05) => "5 March 1992"
  266. XLeaving UserFN _i() => "5 March 1992"
  267. X./test.rem(39): Trig = Thursday, 5 March, 1992
  268. X[_i(30, "Adar A", today(), 5756)] MSG Illegal
  269. Xtoday() => 1991/02/16
  270. XEntering UserFN _i(30, "Adar A", 1991/02/16, 5756)
  271. Xx => 30
  272. Xy => "Adar A"
  273. Xz => 1991/02/16
  274. Xa => 5756
  275. Xhebdate(30, "Adar A", 1991/02/16, 5756) => ./test.rem(40): No Adar A in 5756
  276. XInvalid Hebrew date
  277. XLeaving UserFN _i() => Invalid Hebrew date
  278. X[_i(29, "Adar A", today(), 5755)] MSG Leap
  279. Xtoday() => 1991/02/16
  280. XEntering UserFN _i(29, "Adar A", 1991/02/16, 5755)
  281. Xx => 29
  282. Xy => "Adar A"
  283. Xz => 1991/02/16
  284. Xa => 5755
  285. Xhebdate(29, "Adar A", 1991/02/16, 5755) => 1991/03/15
  286. Xtrigger(1991/03/15) => "15 March 1991"
  287. XLeaving UserFN _i() => "15 March 1991"
  288. X./test.rem(41): Trig = Friday, 15 March, 1991
  289. X[_i(29, "Adar A", today(), 5756)] MSG Illegal
  290. Xtoday() => 1991/02/16
  291. XEntering UserFN _i(29, "Adar A", 1991/02/16, 5756)
  292. Xx => 29
  293. Xy => "Adar A"
  294. Xz => 1991/02/16
  295. Xa => 5756
  296. Xhebdate(29, "Adar A", 1991/02/16, 5756) => ./test.rem(42): No Adar A in 5756
  297. XInvalid Hebrew date
  298. XLeaving UserFN _i() => Invalid Hebrew date
  299. X
  300. X# Test each possible case of the basic reminders.
  301. X
  302. XREM MSG Every Day
  303. X./test.rem(46): Trig = Saturday, 16 February, 1991
  304. XEvery Day
  305. X
  306. X
  307. XREM 18 MSG Every 18th 
  308. X./test.rem(48): Trig = Monday, 18 February, 1991
  309. XREM 15 MSG Every 15th
  310. X./test.rem(49): Trig = Friday, 15 March, 1991
  311. X
  312. XREM Feb MSG February
  313. X./test.rem(51): Trig = Saturday, 16 February, 1991
  314. XFebruary
  315. X
  316. XREM Jan MSG January
  317. X./test.rem(52): Trig = Wednesday, 1 January, 1992
  318. XREM March MSG March
  319. X./test.rem(53): Trig = Friday, 1 March, 1991
  320. X
  321. XREM 13 Jan MSG 13 Jan
  322. X./test.rem(55): Trig = Monday, 13 January, 1992
  323. XREM 15 Feb MSG 15 Feb
  324. X./test.rem(56): Trig = Saturday, 15 February, 1992
  325. XREM 28 Feb MSG 28 Feb
  326. X./test.rem(57): Trig = Thursday, 28 February, 1991
  327. XREM 29 Feb MSG 29 Feb
  328. X./test.rem(58): Trig = Saturday, 29 February, 1992
  329. XREM 5 Mar MSG 5 Mar
  330. X./test.rem(59): Trig = Tuesday, 5 March, 1991
  331. X
  332. XREM 1990 MSG 1990
  333. X./test.rem(61): Expired
  334. XREM 1991 MSG 1991
  335. X./test.rem(62): Trig = Saturday, 16 February, 1991
  336. X1991
  337. X
  338. XREM 1992 MSG 1991
  339. X./test.rem(63): Trig = Wednesday, 1 January, 1992
  340. X
  341. XREM 1 1990 MSG 1 1990
  342. X./test.rem(65): Expired
  343. XREM 29 1991 MSG 29 1991
  344. X./test.rem(66): Trig = Friday, 29 March, 1991
  345. XREM 29 1992 MSG 29 1992
  346. X./test.rem(67): Trig = Wednesday, 29 January, 1992
  347. XREM 16 1991 MSG 16 1991
  348. X./test.rem(68): Trig = Saturday, 16 February, 1991
  349. X16 1991
  350. X
  351. X
  352. XREM Jan 1990 MSG Jan 1990
  353. X./test.rem(70): Expired
  354. XREM Feb 1991 MSG Feb 1991
  355. X./test.rem(71): Trig = Saturday, 16 February, 1991
  356. XFeb 1991
  357. X
  358. XREM Dec 1991 MSG Dec 1991
  359. X./test.rem(72): Trig = Sunday, 1 December, 1991
  360. XREM May 1992 MSG May 1992
  361. X./test.rem(73): Trig = Friday, 1 May, 1992
  362. X
  363. XREM 1 Jan 1991 MSG 1 Jan 1991
  364. X./test.rem(75): Expired
  365. XREM 16 Feb 1991 MSG 16 Feb 1991
  366. X./test.rem(76): Trig = Saturday, 16 February, 1991
  367. X16 Feb 1991
  368. X
  369. XREM 29 Dec 1992 MSG 29 Dec 1992
  370. X./test.rem(77): Trig = Tuesday, 29 December, 1992
  371. X
  372. XREM Sun MSG Sun
  373. X./test.rem(79): Trig = Sunday, 17 February, 1991
  374. XREM Fri Sat Tue MSG Fri Sat Tue
  375. X./test.rem(80): Trig = Saturday, 16 February, 1991
  376. XFri Sat Tue
  377. X
  378. X
  379. XREM Sun 16 MSG Sun 16
  380. X./test.rem(82): Trig = Sunday, 17 February, 1991
  381. XREM Mon Tue Wed Thu Fri 1 MSG Mon Tue Wed Thu Fri 1
  382. X./test.rem(83): Trig = Friday, 1 March, 1991
  383. X
  384. XREM Sun Feb MSG Sun Feb
  385. X./test.rem(85): Trig = Sunday, 17 February, 1991
  386. XREM Mon Tue March MSG Mon Tue March
  387. X./test.rem(86): Trig = Monday, 4 March, 1991
  388. X
  389. XREM Sun 16 Feb MSG Sun 16 Feb
  390. X./test.rem(88): Trig = Sunday, 17 February, 1991
  391. XREM Mon Tue 10 March MSG Mon Tue 10 March
  392. X./test.rem(89): Trig = Monday, 11 March, 1991
  393. X
  394. XREM Sat Sun 1991 MSG Sat Sun 1991
  395. X./test.rem(91): Trig = Saturday, 16 February, 1991
  396. XSat Sun 1991
  397. X
  398. XREM Mon Tue 1992 MSG Mon Tue 1992
  399. X./test.rem(92): Trig = Monday, 6 January, 1992
  400. X
  401. XREM Sun 16 1991 MSG Sun 16 1991
  402. X./test.rem(94): Trig = Sunday, 17 February, 1991
  403. XREM Mon Tue Wed Thu Fri 1 1992 MSG Mon Tue Wed Thu Fri 1 1992
  404. X./test.rem(95): Trig = Wednesday, 1 January, 1992
  405. X
  406. XREM Mon Feb 1991 MSG Mon Feb 1991
  407. X./test.rem(97): Trig = Monday, 18 February, 1991
  408. XREM Tue Jan 1992 MSG Tue Jan 1992
  409. X./test.rem(98): Trig = Tuesday, 7 January, 1992
  410. X
  411. XREM Sun Mon 16 Feb 1991 MSG Sun Mon 16 Feb 1991
  412. X./test.rem(100): Trig = Sunday, 17 February, 1991
  413. XREM Tue 28 Jan 1992 MSG Tue 28 Jan 1992
  414. X./test.rem(101): Trig = Tuesday, 28 January, 1992
  415. X
  416. X# Try some Backs
  417. XCLEAR-OMIT-CONTEXT
  418. XREM 1 -1 OMIT sat sun MSG 1 -1 OMIT Sat Sun
  419. X./test.rem(105): Trig = Thursday, 28 February, 1991
  420. XREM 1 --1 OMIT sat sun MSG 1 --1 OMIT Sat Sun
  421. X./test.rem(106): Trig = Thursday, 28 February, 1991
  422. X
  423. XOMIT 28 Feb
  424. XREM 1 -1 OMIT sat sun MSG 1 -1 OMIT Sat Sun (28 Feb omitted)
  425. X./test.rem(109): Trig = Wednesday, 27 February, 1991
  426. XREM 1 --1 OMIT sat sun MSG 1 --1 OMIT Sat Sun (28 Feb omitted)
  427. X./test.rem(110): Trig = Thursday, 28 February, 1991
  428. X
  429. XCLEAR-OMIT-CONTEXT
  430. X
  431. X# Try out UNTIL
  432. XREM Wed UNTIL 21 Feb 1991 MSG Wed UNTIL 21 Feb 1991
  433. X./test.rem(115): Trig = Wednesday, 20 February, 1991
  434. X
  435. X# Try playing with the OMIT context
  436. X
  437. XOMIT 28 Feb 1991
  438. XREM 1 Mar -1 MSG 1 mar -1 (28feb91 omitted)
  439. X./test.rem(120): Trig = Wednesday, 27 February, 1991
  440. XREM 1 Mar --1 MSG 1 mar --1 (28Feb91 omitted)
  441. X./test.rem(121): Trig = Thursday, 28 February, 1991
  442. XREM 28 Feb BEFORE MSG 28 Feb BEFORE (28Feb91 omitted)
  443. X./test.rem(122): Trig = Wednesday, 27 February, 1991
  444. XREM 28 Feb SKIP MSG 28 Feb SKIP (28Feb91 omitted)
  445. X./test.rem(123): Trig = Friday, 28 February, 1992
  446. XREM 28 Feb AFTER MSG 28 Feb AFTER (28Feb91 omitted)
  447. X./test.rem(124): Trig = Friday, 1 March, 1991
  448. X
  449. XPUSH-OMIT-CONTEXT
  450. XCLEAR-OMIT-CONTEXT
  451. XREM 1 Mar -1 MSG 1 mar -1
  452. X./test.rem(128): Trig = Thursday, 28 February, 1991
  453. XREM 1 Mar --1 MSG 1 mar --1
  454. X./test.rem(129): Trig = Thursday, 28 February, 1991
  455. XREM 28 Feb BEFORE MSG 28 Feb BEFORE
  456. X./test.rem(130): Trig = Thursday, 28 February, 1991
  457. XREM 28 Feb SKIP MSG 28 Feb SKIP 
  458. X./test.rem(131): Trig = Thursday, 28 February, 1991
  459. XREM 28 Feb AFTER MSG 28 Feb AFTER
  460. X./test.rem(132): Trig = Thursday, 28 February, 1991
  461. X
  462. XPOP-OMIT-CONTEXT
  463. XREM 1 Mar -1 MSG 1 mar -1 (28feb91 omitted)
  464. X./test.rem(135): Trig = Wednesday, 27 February, 1991
  465. XREM 1 Mar --1 MSG 1 mar --1 (28Feb91 omitted)
  466. X./test.rem(136): Trig = Thursday, 28 February, 1991
  467. XREM 28 Feb BEFORE MSG 28 Feb BEFORE (28Feb91 omitted)
  468. X./test.rem(137): Trig = Wednesday, 27 February, 1991
  469. XREM 28 Feb SKIP MSG 28 Feb SKIP (28Feb91 omitted)
  470. X./test.rem(138): Trig = Friday, 28 February, 1992
  471. XREM 28 Feb AFTER MSG 28 Feb AFTER (28Feb91 omitted)
  472. X./test.rem(139): Trig = Friday, 1 March, 1991
  473. X
  474. X
  475. XREM 13 March 1991 *1 UNTIL 19 March 1991 MSG 13-19 Mar 91
  476. X./test.rem(142): Trig = Wednesday, 13 March, 1991
  477. X 
  478. X# Test BACK
  479. XCLEAR-OMIT-CONTEXT
  480. XREM 18 Feb 1991 +1 MSG 18 Feb 1991 +1
  481. X./test.rem(146): Trig = Monday, 18 February, 1991
  482. X
  483. XOMIT 17 Feb 1991
  484. XREM 18 Feb 1991 +1 MSG 18 Feb 1991 +1 (17Feb91 omitted)
  485. X./test.rem(149): Trig = Monday, 18 February, 1991
  486. X18 Feb 1991 +1 (17Feb91 omitted)
  487. X
  488. XREM 18 Feb 1991 ++1 MSG 18 Feb 1991 ++1 (17Feb91 omitted)
  489. X./test.rem(150): Trig = Monday, 18 February, 1991
  490. X
  491. XCLEAR-OMIT-CONTEXT
  492. X# Test the scanfrom clause
  493. XREM Fri SATISFY 1
  494. X./test.rem(154): Trig = Friday, 22 February, 1991
  495. XOMIT [trigger(trigdate())]
  496. Xtrigdate() => 1991/02/22
  497. Xtrigger(1991/02/22) => "22 February 1991"
  498. XREM Fri after MSG 23 Feb 1991
  499. X./test.rem(156): Trig = Saturday, 23 February, 1991
  500. XCLEAR-OMIT-CONTEXT
  501. XREM Fri SCANFROM [trigger(today()-7)] SATISFY 1
  502. Xtoday() => 1991/02/16
  503. X1991/02/16 - 7 => 1991/02/09
  504. Xtrigger(1991/02/09) => "9 February 1991"
  505. X./test.rem(158): Trig = Friday, 15 February, 1991
  506. XOMIT [trigger(trigdate())]
  507. Xtrigdate() => 1991/02/15
  508. Xtrigger(1991/02/15) => "15 February 1991"
  509. XREM Fri after MSG 16 Feb 1991
  510. X./test.rem(160): Trig = Saturday, 16 February, 1991
  511. X16 Feb 1991
  512. X
  513. XCLEAR-OMIT-CONTEXT
  514. Xset a000 abs(1)
  515. Xabs(1) => 1
  516. Xset a001 abs(-1)
  517. X- 1 => -1
  518. Xabs(-1) => 1
  519. Xset a002 asc("foo")
  520. Xasc("foo") => 102
  521. Xset a003 baseyr()
  522. Xbaseyr() => 1990
  523. Xset a004 char(66,55,66,77,66)
  524. Xchar(66, 55, 66, 77, 66) => "B7BMB"
  525. Xset a005 choose(3, "foo", "bar", "baz", "blech")
  526. Xchoose(3, "foo", "bar", "baz", "blech") => "baz"
  527. Xset a006 coerce("string", 1)
  528. Xcoerce("string", 1) => "1"
  529. Xset a007 coerce("string", today())
  530. Xtoday() => 1991/02/16
  531. Xcoerce("string", 1991/02/16) => "1991/02/16"
  532. Xset a008 coerce("string", 11:44)
  533. Xcoerce("string", 11:44) => "11:44"
  534. Xset a009 coerce("int", "badnews")
  535. Xcoerce("int", "badnews") => Can't coerce
  536. X./test.rem(171): Can't coerce
  537. Xset a010 coerce("int", "12")
  538. Xcoerce("int", "12") => 12
  539. Xset a011 coerce("int", 11:44)
  540. Xcoerce("int", 11:44) => 704
  541. Xset a012 coerce("int", today())
  542. Xtoday() => 1991/02/16
  543. Xcoerce("int", 1991/02/16) => 411
  544. Xset a013 date(1992, 2, 2)
  545. Xdate(1992, 2, 2) => 1992/02/02
  546. Xset a014 date(1993, 2, 29)
  547. Xdate(1993, 2, 29) => Bad date specification
  548. X./test.rem(176): Bad date specification
  549. Xset a015 day(today())
  550. Xtoday() => 1991/02/16
  551. Xday(1991/02/16) => 16
  552. Xset a016 daysinmon(2, 1991)
  553. Xdaysinmon(2, 1991) => 28
  554. Xset a017 daysinmon(2, 1992)
  555. Xdaysinmon(2, 1992) => 29
  556. Xset a018 defined("a017")
  557. Xdefined("a017") => 1
  558. Xset a019 defined("a019")
  559. Xdefined("a019") => 0
  560. Xset a020 filename()
  561. Xfilename() => "./test.rem"
  562. Xset a021 getenv("TEST_GETENV")
  563. Xgetenv("TEST_GETENV") => "foo bar baz"
  564. Xset a022 hour(11:22)
  565. Xhour(11:22) => 11
  566. Xset a023 iif(1, 1, 0)
  567. Xiif(1, 1, 0) => 1
  568. Xset a024 iif(0, 1, 0)
  569. Xiif(0, 1, 0) => 0
  570. Xset a025 index("barfoobar", "foo")
  571. Xindex("barfoobar", "foo") => 4
  572. Xset a026 index("barfoobar", "bar", 2)
  573. Xindex("barfoobar", "bar", 2) => 7
  574. Xset a027 isleap(today())
  575. Xtoday() => 1991/02/16
  576. Xisleap(1991/02/16) => 0
  577. Xset a028 isleap(1992)
  578. Xisleap(1992) => 1
  579. Xomit [trigger(today())]
  580. Xtoday() => 1991/02/16
  581. Xtrigger(1991/02/16) => "16 February 1991"
  582. Xset a030 isomitted(today())
  583. Xtoday() => 1991/02/16
  584. Xisomitted(1991/02/16) => 1
  585. Xclear
  586. Xset a029 isomitted(today())
  587. Xtoday() => 1991/02/16
  588. Xisomitted(1991/02/16) => 0
  589. Xset a031 lower("FOOBARBAZ")
  590. Xlower("FOOBARBAZ") => "foobarbaz"
  591. Xset a032 max(1, 2, 34, 1, 3)
  592. Xmax(1, 2, 34, 1, 3) => 34
  593. Xset a033 max("foo", "bar", "baz")
  594. Xmax("foo", "bar", "baz") => "foo"
  595. Xset a034 max(today(), today()+1, today()-1)
  596. Xtoday() => 1991/02/16
  597. Xtoday() => 1991/02/16
  598. X1991/02/16 + 1 => 1991/02/17
  599. Xtoday() => 1991/02/16
  600. X1991/02/16 - 1 => 1991/02/15
  601. Xmax(1991/02/16, 1991/02/17, 1991/02/15) => 1991/02/17
  602. Xset a035 min(1, 2, 34, 1, 3)
  603. Xmin(1, 2, 34, 1, 3) => 1
  604. Xset a036 min("foo", "bar", "baz")
  605. Xmin("foo", "bar", "baz") => "bar"
  606. Xset a037 min(today(), today()+1, today()-1)
  607. Xtoday() => 1991/02/16
  608. Xtoday() => 1991/02/16
  609. X1991/02/16 + 1 => 1991/02/17
  610. Xtoday() => 1991/02/16
  611. X1991/02/16 - 1 => 1991/02/15
  612. Xmin(1991/02/16, 1991/02/17, 1991/02/15) => 1991/02/15
  613. Xset a038 minute(11:33)
  614. Xminute(11:33) => 33
  615. Xset a039 mon(today())
  616. Xtoday() => 1991/02/16
  617. Xmon(1991/02/16) => "February"
  618. Xset a040 monnum(today())
  619. Xtoday() => 1991/02/16
  620. Xmonnum(1991/02/16) => 2
  621. Xset a041 ord(3)
  622. Xord(3) => "3rd"
  623. Xset a042 ord(4)
  624. Xord(4) => "4th"
  625. Xset a043 ostype()
  626. Xostype() => "MSDOS"
  627. Xset a044 plural(2)
  628. Xplural(2) => "s"
  629. Xset a045 plural(2, "ies")
  630. Xplural(2, "ies") => "iess"
  631. Xset a046 plural(2, "y", "ies")
  632. Xplural(2, "y", "ies") => "ies"
  633. Xset a047 sgn(-2)
  634. X- 2 => -2
  635. Xsgn(-2) => -1
  636. Xset a048 shell("echo foo")
  637. Xshell("echo foo") => "foo"
  638. Xset a049 strlen("sadjflkhsldkfhsdlfjhk")
  639. Xstrlen("sadjflkhsldkfhsdlfjhk") => 21
  640. Xset a050 substr(a049, 2)
  641. Xa049 => 21
  642. Xsubstr(21, 2) => Type mismatch
  643. X./test.rem(214): Type mismatch
  644. Xset a051 substr(a050, 2, 6)
  645. Xa050 => ./test.rem(215): Undefined variable: a050
  646. Xset a052 time(1+2, 3+4)
  647. X1 + 2 => 3
  648. X3 + 4 => 7
  649. Xtime(3, 7) => 03:07
  650. Xrem 10 jan 1992 AT 11:22 CAL
  651. X./test.rem(217): Trig = Friday, 10 January, 1992
  652. Xset a053 trigdate()
  653. Xtrigdate() => 1992/01/10
  654. Xset a054 trigtime()
  655. Xtrigtime() => 11:22
  656. Xset a055 trigvalid()
  657. Xtrigvalid() => 1
  658. Xset a056 upper("sdfjhsdf ksjdfh kjsdfh ksjdfh")
  659. Xupper("sdfjhsdf ksjdfh kjsdfh ksjdfh") => "SDFJHSDF KSJDFH KJSDFH KSJDFH"
  660. Xset a057 value("a05"+"6")
  661. X"a05" + "6" => "a056"
  662. Xvalue("a056") => "SDFJHSDF KSJDFH KJSDFH KSJDFH"
  663. Xset a058 version()
  664. Xversion() => "03.00.10"
  665. Xset a059 wkday(today())
  666. Xtoday() => 1991/02/16
  667. Xwkday(1991/02/16) => "Saturday"
  668. Xset a060 wkdaynum(today())
  669. Xtoday() => 1991/02/16
  670. Xwkdaynum(1991/02/16) => 6
  671. Xset a061 year(today())
  672. Xtoday() => 1991/02/16
  673. Xyear(1991/02/16) => 1991
  674. Xset a062 1+2*(3+4-(5*7/2))
  675. X3 + 4 => 7
  676. X5 * 7 => 35
  677. X35 / 2 => 17
  678. X7 - 17 => -10
  679. X2 * -10 => -20
  680. X1 + -20 => -19
  681. Xset a063 1>=2
  682. X1 >= 2 => 0
  683. Xset a064 1<2 || 3 > 4
  684. X1 < 2 => 1
  685. X3 > 4 => 0
  686. X1 || 0 => 1
  687. Xset a065 1 && 1
  688. X1 && 1 => 1
  689. Xset a066 !a065
  690. Xa065 => 1
  691. X! 1 => 0
  692. Xset a067 typeof(2)
  693. Xtypeof(2) => "INT"
  694. Xset a068 typeof("foo")
  695. Xtypeof("foo") => "STRING"
  696. Xset a069 typeof(11:33)
  697. Xtypeof(11:33) => "TIME"
  698. Xset a070 typeof(today())
  699. Xtoday() => 1991/02/16
  700. Xtypeof(1991/02/16) => "DATE"
  701. Xfset g(x,y) max(x,y)
  702. Xfset h(x,y) min(g(x+y, x*y), g(x-y, x/y))
  703. Xset a071 g(1, 2)
  704. XEntering UserFN g(1, 2)
  705. Xx => 1
  706. Xy => 2
  707. Xmax(1, 2) => 2
  708. XLeaving UserFN g() => 2
  709. Xset a072 h(2, 3)
  710. XEntering UserFN h(2, 3)
  711. Xx => 2
  712. Xy => 3
  713. X2 + 3 => 5
  714. Xx => 2
  715. Xy => 3
  716. X2 * 3 => 6
  717. XEntering UserFN g(5, 6)
  718. Xx => 5
  719. Xy => 6
  720. Xmax(5, 6) => 6
  721. XLeaving UserFN g() => 6
  722. Xx => 2
  723. Xy => 3
  724. X2 - 3 => -1
  725. Xx => 2
  726. Xy => 3
  727. X2 / 3 => 0
  728. XEntering UserFN g(-1, 0)
  729. Xx => -1
  730. Xy => 0
  731. Xmax(-1, 0) => 0
  732. XLeaving UserFN g() => 0
  733. Xmin(6, 0) => 0
  734. XLeaving UserFN h() => 0
  735. Xset a073 h("foo", 11:33)
  736. XEntering UserFN h("foo", 11:33)
  737. Xx => "foo"
  738. Xy => 11:33
  739. X"foo" + 11:33 => "foo11:33"
  740. Xx => "foo"
  741. Xy => 11:33
  742. X"foo" * 11:33 => Type mismatch
  743. X./test.rem(240): '*': Type mismatch
  744. XLeaving UserFN h() => Type mismatch
  745. Xset a074 dosubst("%a %b %c %d %e %f %g %h", '1992/5/5')
  746. Xdosubst("%a %b %c %d %e %f %g %h", 1992/05/05) => "on Tuesday, 5 May, 1992 in 444 days' tim"...
  747. Xmsg [a074]%
  748. X./test.rem(242): Trig = Saturday, 16 February, 1991
  749. Xa074 => "on Tuesday, 5 May, 1992 in 444 days' tim"...
  750. Xon Tuesday, 5 May, 1992 in 444 days' time on Tuesday 5 on 05/05/1992 on 05/05/1992 on Tuesday, 5 May on 05/05
  751. Xset a075 dosubst("%i %j %k %l %m %n %o %p", '1992/5/5')
  752. Xdosubst("%i %j %k %l %m %n %o %p", 1992/05/05) => "on 05/05 on Tuesday, May 5th, 1992 on Tu"...
  753. Xmsg [a075]%
  754. X./test.rem(244): Trig = Saturday, 16 February, 1991
  755. Xa075 => "on 05/05 on Tuesday, May 5th, 1992 on Tu"...
  756. Xon 05/05 on Tuesday, May 5th, 1992 on Tuesday, May 5th on 1992/05/05 May 5  s
  757. Xset a076 dosubst("%q %r %s %t %u %v %w %x", '1992/5/5')
  758. Xdosubst("%q %r %s %t %u %v %w %x", 1992/05/05) => "s' 05 th 05 on Tuesday, 5th May, 1992 on"...
  759. Xmsg [a076]%
  760. X./test.rem(246): Trig = Saturday, 16 February, 1991
  761. Xa076 => "s' 05 th 05 on Tuesday, 5th May, 1992 on"...
  762. Xs' 05 th 05 on Tuesday, 5th May, 1992 on Tuesday, 5th May Tuesday 444
  763. Xset a077 dosubst("%y %z", '1992/5/5')
  764. Xdosubst("%y %z", 1992/05/05) => "1992 92
  765. X"
  766. Xmsg [a077]%
  767. X./test.rem(248): Trig = Saturday, 16 February, 1991
  768. Xa077 => "1992 92
  769. X"
  770. X1992 92
  771. Xset a078 easterdate(today())
  772. Xtoday() => 1991/02/16
  773. Xeasterdate(1991/02/16) => 1991/03/31
  774. Xset a079 easterdate(1992)
  775. Xeasterdate(1992) => 1992/04/19
  776. Xset a080 easterdate(1995)
  777. Xeasterdate(1995) => 1995/04/16
  778. Xset a081 ""
  779. Xdump
  780. X    Variable  Value
  781. X
  782. X        a017  29
  783. X        a036  "bar"
  784. X        a055  1
  785. X        a074  "on Tuesday, 5 May, 1992 in 444 days' tim"...
  786. X        a008  "11:44"
  787. X        a027  0
  788. X        a046  "ies"
  789. X        a065  1
  790. X        a018  1
  791. X        a037  1991/02/15
  792. X        a056  "SDFJHSDF KSJDFH KJSDFH KSJDFH"
  793. X        a075  "on 05/05 on Tuesday, May 5th, 1992 on Tu"...
  794. X        a028  1
  795. X        a047  -1
  796. X        a066  0
  797. X        a019  0
  798. X        a038  33
  799. X        a057  "SDFJHSDF KSJDFH KJSDFH KSJDFH"
  800. X        a076  "s' 05 th 05 on Tuesday, 5th May, 1992 on"...
  801. X        a029  0
  802. X        a048  "foo"
  803. X        a067  "INT"
  804. X        a039  "February"
  805. X        a058  "03.00.10"
  806. X        a077  "1992 92
  807. X"
  808. X        a049  21
  809. X        a068  "STRING"
  810. X        a059  "Saturday"
  811. X        a078  1991/03/31
  812. X        a069  "TIME"
  813. X        a079  1992/04/19
  814. X        a000  1
  815. X        a010  12
  816. X        a001  1
  817. X        a020  "./test.rem"
  818. X        a011  704
  819. X        a030  1
  820. X        a002  102
  821. X        a021  "foo bar baz"
  822. X        a040  2
  823. X        a012  411
  824. X        a031  "foobarbaz"
  825. X        a003  1990
  826. X        a022  11
  827. X        a041  "3rd"
  828. X        a060  6
  829. X        a013  1992/02/02
  830. X        a032  34
  831. X        a070  "DATE"
  832. X        a004  "B7BMB"
  833. X        a023  1
  834. X        a042  "4th"
  835. X        a061  1991
  836. X        a080  1995/04/16
  837. X        a033  "foo"
  838. X        a052  03:07
  839. X        a071  2
  840. X        a005  "baz"
  841. X        a024  0
  842. X        a043  "MSDOS"
  843. X        a062  -19
  844. X        a081  ""
  845. X        a015  16
  846. X        a034  1991/02/17
  847. X        a053  1992/01/10
  848. X        a072  0
  849. X        a006  "1"
  850. X        a025  4
  851. X        a044  "s"
  852. X        a063  0
  853. X        a016  28
  854. X        a035  1
  855. X        a054  11:22
  856. X        a007  "1991/02/16"
  857. X        a026  7
  858. X        a045  "iess"
  859. X        a064  1
  860. X
  861. END_OF_FILE
  862.   if test 23534 -ne `wc -c <'test1.cmp'`; then
  863.     echo shar: \"'test1.cmp'\" unpacked with wrong size!
  864.   fi
  865.   # end of 'test1.cmp'
  866. fi
  867. if test -f 'test2.cmp' -a "${1}" != "-c" ; then 
  868.   echo shar: Will not clobber existing file \"'test2.cmp'\"
  869. else
  870.   echo shar: Extracting \"'test2.cmp'\" \(23532 characters\)
  871.   sed "s/^X//" >'test2.cmp' <<'END_OF_FILE'
  872. X# Test file for REMIND
  873. X#
  874. X# Use this file to test the date calculation routines
  875. X# of the REMIND program by typing:
  876. X#
  877. X#     ./test-rem  # From WITHIN Remind source directory!
  878. X
  879. XREM MSG Today is [hebday(today())] [hebmon(today())] [hebyear(today())]
  880. X./test.rem(8): Trig = Saturday, 16 February, 1991
  881. XReminders for Saturday, 16th February, 1991:
  882. X
  883. Xtoday() => 1991/02/16
  884. Xhebday(1991/02/16) => 2
  885. Xtoday() => 1991/02/16
  886. Xhebmon(1991/02/16) => "Adar"
  887. Xtoday() => 1991/02/16
  888. Xhebyear(1991/02/16) => 5751
  889. XToday is 2 Adar 5751
  890. X
  891. Xfset _h(x, y) trigger(hebdate(x,y))
  892. X
  893. X[_h(1,  "Tishrey")] MSG Rosh Hashana 1
  894. XEntering UserFN _h(1, "Tishrey")
  895. Xx => 1
  896. Xy => "Tishrey"
  897. Xhebdate(1, "Tishrey") => 1991/09/09
  898. Xtrigger(1991/09/09) => "9 September 1991"
  899. XLeaving UserFN _h() => "9 September 1991"
  900. X./test.rem(11): Trig = Monday, 9 September, 1991
  901. X[_h(2,  "Tishrey")] MSG Rosh Hashana 2
  902. XEntering UserFN _h(2, "Tishrey")
  903. Xx => 2
  904. Xy => "Tishrey"
  905. Xhebdate(2, "Tishrey") => 1991/09/10
  906. Xtrigger(1991/09/10) => "10 September 1991"
  907. XLeaving UserFN _h() => "10 September 1991"
  908. X./test.rem(12): Trig = Tuesday, 10 September, 1991
  909. X[_h(3,  "Tishrey")] MSG Tzom Gedalia
  910. XEntering UserFN _h(3, "Tishrey")
  911. Xx => 3
  912. Xy => "Tishrey"
  913. Xhebdate(3, "Tishrey") => 1991/09/11
  914. Xtrigger(1991/09/11) => "11 September 1991"
  915. XLeaving UserFN _h() => "11 September 1991"
  916. X./test.rem(13): Trig = Wednesday, 11 September, 1991
  917. X[_h(10, "Tishrey")] MSG Yom Kippur
  918. XEntering UserFN _h(10, "Tishrey")
  919. Xx => 10
  920. Xy => "Tishrey"
  921. Xhebdate(10, "Tishrey") => 1991/09/18
  922. Xtrigger(1991/09/18) => "18 September 1991"
  923. XLeaving UserFN _h() => "18 September 1991"
  924. X./test.rem(14): Trig = Wednesday, 18 September, 1991
  925. X[_h(15, "Tishrey")] MSG Sukkot 1
  926. XEntering UserFN _h(15, "Tishrey")
  927. Xx => 15
  928. Xy => "Tishrey"
  929. Xhebdate(15, "Tishrey") => 1991/09/23
  930. Xtrigger(1991/09/23) => "23 September 1991"
  931. XLeaving UserFN _h() => "23 September 1991"
  932. X./test.rem(15): Trig = Monday, 23 September, 1991
  933. X[_h(25, "Kislev")]  MSG Channuka
  934. XEntering UserFN _h(25, "Kislev")
  935. Xx => 25
  936. Xy => "Kislev"
  937. Xhebdate(25, "Kislev") => 1991/12/02
  938. Xtrigger(1991/12/02) => "2 December 1991"
  939. XLeaving UserFN _h() => "2 December 1991"
  940. X./test.rem(16): Trig = Monday, 2 December, 1991
  941. X[_h(10, "Tevet")]   MSG Asara B'Tevet
  942. XEntering UserFN _h(10, "Tevet")
  943. Xx => 10
  944. Xy => "Tevet"
  945. Xhebdate(10, "Tevet") => 1991/12/17
  946. Xtrigger(1991/12/17) => "17 December 1991"
  947. XLeaving UserFN _h() => "17 December 1991"
  948. X./test.rem(17): Trig = Tuesday, 17 December, 1991
  949. X[_h(15, "Shvat")]   MSG Tu B'Shvat
  950. XEntering UserFN _h(15, "Shvat")
  951. Xx => 15
  952. Xy => "Shvat"
  953. Xhebdate(15, "Shvat") => 1992/01/20
  954. Xtrigger(1992/01/20) => "20 January 1992"
  955. XLeaving UserFN _h() => "20 January 1992"
  956. X./test.rem(18): Trig = Monday, 20 January, 1992
  957. X[_h(15, "Adar A")]  MSG Purim Katan
  958. XEntering UserFN _h(15, "Adar A")
  959. Xx => 15
  960. Xy => "Adar A"
  961. Xhebdate(15, "Adar A") => 1992/02/19
  962. Xtrigger(1992/02/19) => "19 February 1992"
  963. XLeaving UserFN _h() => "19 February 1992"
  964. X./test.rem(19): Trig = Wednesday, 19 February, 1992
  965. X[_h(14, "Adar")]    MSG Purim
  966. XEntering UserFN _h(14, "Adar")
  967. Xx => 14
  968. Xy => "Adar"
  969. Xhebdate(14, "Adar") => 1991/02/28
  970. Xtrigger(1991/02/28) => "28 February 1991"
  971. XLeaving UserFN _h() => "28 February 1991"
  972. X./test.rem(20): Trig = Thursday, 28 February, 1991
  973. X[_h(15, "Nisan")]   MSG Pesach
  974. XEntering UserFN _h(15, "Nisan")
  975. Xx => 15
  976. Xy => "Nisan"
  977. Xhebdate(15, "Nisan") => 1991/03/30
  978. Xtrigger(1991/03/30) => "30 March 1991"
  979. XLeaving UserFN _h() => "30 March 1991"
  980. X./test.rem(21): Trig = Saturday, 30 March, 1991
  981. X[_h(27, "Nisan")]   MSG Yom HaShoah
  982. XEntering UserFN _h(27, "Nisan")
  983. Xx => 27
  984. Xy => "Nisan"
  985. Xhebdate(27, "Nisan") => 1991/04/11
  986. Xtrigger(1991/04/11) => "11 April 1991"
  987. XLeaving UserFN _h() => "11 April 1991"
  988. X./test.rem(22): Trig = Thursday, 11 April, 1991
  989. X[_h(4,  "Iyar")]    MSG Yom HaZikaron
  990. XEntering UserFN _h(4, "Iyar")
  991. Xx => 4
  992. Xy => "Iyar"
  993. Xhebdate(4, "Iyar") => 1991/04/18
  994. Xtrigger(1991/04/18) => "18 April 1991"
  995. XLeaving UserFN _h() => "18 April 1991"
  996. X./test.rem(23): Trig = Thursday, 18 April, 1991
  997. X[_h(5,  "Iyar")]    MSG Yom Ha'atzmaut
  998. XEntering UserFN _h(5, "Iyar")
  999. Xx => 5
  1000. Xy => "Iyar"
  1001. Xhebdate(5, "Iyar") => 1991/04/19
  1002. Xtrigger(1991/04/19) => "19 April 1991"
  1003. XLeaving UserFN _h() => "19 April 1991"
  1004. X./test.rem(24): Trig = Friday, 19 April, 1991
  1005. X[_h(28, "Iyar")]    MSG Yom Yerushalayim
  1006. XEntering UserFN _h(28, "Iyar")
  1007. Xx => 28
  1008. Xy => "Iyar"
  1009. Xhebdate(28, "Iyar") => 1991/05/12
  1010. Xtrigger(1991/05/12) => "12 May 1991"
  1011. XLeaving UserFN _h() => "12 May 1991"
  1012. X./test.rem(25): Trig = Sunday, 12 May, 1991
  1013. X[_h(6,  "Sivan")]   MSG Shavuot
  1014. XEntering UserFN _h(6, "Sivan")
  1015. Xx => 6
  1016. Xy => "Sivan"
  1017. Xhebdate(6, "Sivan") => 1991/05/19
  1018. Xtrigger(1991/05/19) => "19 May 1991"
  1019. XLeaving UserFN _h() => "19 May 1991"
  1020. X./test.rem(26): Trig = Sunday, 19 May, 1991
  1021. X[_h(9,  "Av")]      MSG Tish'a B'Av
  1022. XEntering UserFN _h(9, "Av")
  1023. Xx => 9
  1024. Xy => "Av"
  1025. Xhebdate(9, "Av") => 1991/07/20
  1026. Xtrigger(1991/07/20) => "20 July 1991"
  1027. XLeaving UserFN _h() => "20 July 1991"
  1028. X./test.rem(27): Trig = Saturday, 20 July, 1991
  1029. X
  1030. X# Test some jahrzeit cases
  1031. Xfset _i(x,y,z,a) trigger(hebdate(x,y,z,a))
  1032. X[_i(30, "Heshvan", today(), 5759)] MSG Complete-Complete
  1033. Xtoday() => 1991/02/16
  1034. XEntering UserFN _i(30, "Heshvan", 1991/02/16, 5759)
  1035. Xx => 30
  1036. Xy => "Heshvan"
  1037. Xz => 1991/02/16
  1038. Xa => 5759
  1039. Xhebdate(30, "Heshvan", 1991/02/16, 5759) => 1991/11/07
  1040. Xtrigger(1991/11/07) => "7 November 1991"
  1041. XLeaving UserFN _i() => "7 November 1991"
  1042. X./test.rem(31): Trig = Thursday, 7 November, 1991
  1043. X[_i(30, "Heshvan", today(), 5760)] MSG Complete-Defective
  1044. Xtoday() => 1991/02/16
  1045. XEntering UserFN _i(30, "Heshvan", 1991/02/16, 5760)
  1046. Xx => 30
  1047. Xy => "Heshvan"
  1048. Xz => 1991/02/16
  1049. Xa => 5760
  1050. Xhebdate(30, "Heshvan", 1991/02/16, 5760) => 1991/11/07
  1051. Xtrigger(1991/11/07) => "7 November 1991"
  1052. XLeaving UserFN _i() => "7 November 1991"
  1053. X./test.rem(32): Trig = Thursday, 7 November, 1991
  1054. X[_i(30, "Heshvan", today(), 5761)] MSG Illegal
  1055. Xtoday() => 1991/02/16
  1056. XEntering UserFN _i(30, "Heshvan", 1991/02/16, 5761)
  1057. Xx => 30
  1058. Xy => "Heshvan"
  1059. Xz => 1991/02/16
  1060. Xa => 5761
  1061. Xhebdate(30, "Heshvan", 1991/02/16, 5761) => ./test.rem(33): 30 Heshvan 5761: Invalid Hebrew date
  1062. XInvalid Hebrew date
  1063. XLeaving UserFN _i() => Invalid Hebrew date
  1064. X
  1065. X[_i(30, "Kislev", today(), 5759)] MSG Complete-Complete
  1066. Xtoday() => 1991/02/16
  1067. XEntering UserFN _i(30, "Kislev", 1991/02/16, 5759)
  1068. Xx => 30
  1069. Xy => "Kislev"
  1070. Xz => 1991/02/16
  1071. Xa => 5759
  1072. Xhebdate(30, "Kislev", 1991/02/16, 5759) => 1991/12/07
  1073. Xtrigger(1991/12/07) => "7 December 1991"
  1074. XLeaving UserFN _i() => "7 December 1991"
  1075. X./test.rem(35): Trig = Saturday, 7 December, 1991
  1076. X[_i(30, "Kislev", today(), 5760)] MSG Complete-Defective
  1077. Xtoday() => 1991/02/16
  1078. XEntering UserFN _i(30, "Kislev", 1991/02/16, 5760)
  1079. Xx => 30
  1080. Xy => "Kislev"
  1081. Xz => 1991/02/16
  1082. Xa => 5760
  1083. Xhebdate(30, "Kislev", 1991/02/16, 5760) => 1991/12/07
  1084. Xtrigger(1991/12/07) => "7 December 1991"
  1085. XLeaving UserFN _i() => "7 December 1991"
  1086. X./test.rem(36): Trig = Saturday, 7 December, 1991
  1087. X[_i(30, "Kislev", today(), 5761)] MSG Illegal
  1088. Xtoday() => 1991/02/16
  1089. XEntering UserFN _i(30, "Kislev", 1991/02/16, 5761)
  1090. Xx => 30
  1091. Xy => "Kislev"
  1092. Xz => 1991/02/16
  1093. Xa => 5761
  1094. Xhebdate(30, "Kislev", 1991/02/16, 5761) => ./test.rem(37): 30 Kislev 5761: Invalid Hebrew date
  1095. XInvalid Hebrew date
  1096. XLeaving UserFN _i() => Invalid Hebrew date
  1097. X
  1098. X[_i(30, "Adar A", today(), 5755)] MSG Leap
  1099. Xtoday() => 1991/02/16
  1100. XEntering UserFN _i(30, "Adar A", 1991/02/16, 5755)
  1101. Xx => 30
  1102. Xy => "Adar A"
  1103. Xz => 1991/02/16
  1104. Xa => 5755
  1105. Xhebdate(30, "Adar A", 1991/02/16, 5755) => 1992/03/05
  1106. Xtrigger(1992/03/05) => "5 March 1992"
  1107. XLeaving UserFN _i() => "5 March 1992"
  1108. X./test.rem(39): Trig = Thursday, 5 March, 1992
  1109. X[_i(30, "Adar A", today(), 5756)] MSG Illegal
  1110. Xtoday() => 1991/02/16
  1111. XEntering UserFN _i(30, "Adar A", 1991/02/16, 5756)
  1112. Xx => 30
  1113. Xy => "Adar A"
  1114. Xz => 1991/02/16
  1115. Xa => 5756
  1116. Xhebdate(30, "Adar A", 1991/02/16, 5756) => ./test.rem(40): No Adar A in 5756
  1117. XInvalid Hebrew date
  1118. XLeaving UserFN _i() => Invalid Hebrew date
  1119. X[_i(29, "Adar A", today(), 5755)] MSG Leap
  1120. Xtoday() => 1991/02/16
  1121. XEntering UserFN _i(29, "Adar A", 1991/02/16, 5755)
  1122. Xx => 29
  1123. Xy => "Adar A"
  1124. Xz => 1991/02/16
  1125. Xa => 5755
  1126. Xhebdate(29, "Adar A", 1991/02/16, 5755) => 1991/03/15
  1127. Xtrigger(1991/03/15) => "15 March 1991"
  1128. XLeaving UserFN _i() => "15 March 1991"
  1129. X./test.rem(41): Trig = Friday, 15 March, 1991
  1130. X[_i(29, "Adar A", today(), 5756)] MSG Illegal
  1131. Xtoday() => 1991/02/16
  1132. XEntering UserFN _i(29, "Adar A", 1991/02/16, 5756)
  1133. Xx => 29
  1134. Xy => "Adar A"
  1135. Xz => 1991/02/16
  1136. Xa => 5756
  1137. Xhebdate(29, "Adar A", 1991/02/16, 5756) => ./test.rem(42): No Adar A in 5756
  1138. XInvalid Hebrew date
  1139. XLeaving UserFN _i() => Invalid Hebrew date
  1140. X
  1141. X# Test each possible case of the basic reminders.
  1142. X
  1143. XREM MSG Every Day
  1144. X./test.rem(46): Trig = Saturday, 16 February, 1991
  1145. XEvery Day
  1146. X
  1147. X
  1148. XREM 18 MSG Every 18th 
  1149. X./test.rem(48): Trig = Monday, 18 February, 1991
  1150. XREM 15 MSG Every 15th
  1151. X./test.rem(49): Trig = Friday, 15 March, 1991
  1152. X
  1153. XREM Feb MSG February
  1154. X./test.rem(51): Trig = Saturday, 16 February, 1991
  1155. XFebruary
  1156. X
  1157. XREM Jan MSG January
  1158. X./test.rem(52): Trig = Wednesday, 1 January, 1992
  1159. XREM March MSG March
  1160. X./test.rem(53): Trig = Friday, 1 March, 1991
  1161. X
  1162. XREM 13 Jan MSG 13 Jan
  1163. X./test.rem(55): Trig = Monday, 13 January, 1992
  1164. XREM 15 Feb MSG 15 Feb
  1165. X./test.rem(56): Trig = Saturday, 15 February, 1992
  1166. XREM 28 Feb MSG 28 Feb
  1167. X./test.rem(57): Trig = Thursday, 28 February, 1991
  1168. XREM 29 Feb MSG 29 Feb
  1169. X./test.rem(58): Trig = Saturday, 29 February, 1992
  1170. XREM 5 Mar MSG 5 Mar
  1171. X./test.rem(59): Trig = Tuesday, 5 March, 1991
  1172. X
  1173. XREM 1990 MSG 1990
  1174. X./test.rem(61): Expired
  1175. XREM 1991 MSG 1991
  1176. X./test.rem(62): Trig = Saturday, 16 February, 1991
  1177. X1991
  1178. X
  1179. XREM 1992 MSG 1991
  1180. X./test.rem(63): Trig = Wednesday, 1 January, 1992
  1181. X
  1182. XREM 1 1990 MSG 1 1990
  1183. X./test.rem(65): Expired
  1184. XREM 29 1991 MSG 29 1991
  1185. X./test.rem(66): Trig = Friday, 29 March, 1991
  1186. XREM 29 1992 MSG 29 1992
  1187. X./test.rem(67): Trig = Wednesday, 29 January, 1992
  1188. XREM 16 1991 MSG 16 1991
  1189. X./test.rem(68): Trig = Saturday, 16 February, 1991
  1190. X16 1991
  1191. X
  1192. X
  1193. XREM Jan 1990 MSG Jan 1990
  1194. X./test.rem(70): Expired
  1195. XREM Feb 1991 MSG Feb 1991
  1196. X./test.rem(71): Trig = Saturday, 16 February, 1991
  1197. XFeb 1991
  1198. X
  1199. XREM Dec 1991 MSG Dec 1991
  1200. X./test.rem(72): Trig = Sunday, 1 December, 1991
  1201. XREM May 1992 MSG May 1992
  1202. X./test.rem(73): Trig = Friday, 1 May, 1992
  1203. X
  1204. XREM 1 Jan 1991 MSG 1 Jan 1991
  1205. X./test.rem(75): Expired
  1206. XREM 16 Feb 1991 MSG 16 Feb 1991
  1207. X./test.rem(76): Trig = Saturday, 16 February, 1991
  1208. X16 Feb 1991
  1209. X
  1210. XREM 29 Dec 1992 MSG 29 Dec 1992
  1211. X./test.rem(77): Trig = Tuesday, 29 December, 1992
  1212. X
  1213. XREM Sun MSG Sun
  1214. X./test.rem(79): Trig = Sunday, 17 February, 1991
  1215. XREM Fri Sat Tue MSG Fri Sat Tue
  1216. X./test.rem(80): Trig = Saturday, 16 February, 1991
  1217. XFri Sat Tue
  1218. X
  1219. X
  1220. XREM Sun 16 MSG Sun 16
  1221. X./test.rem(82): Trig = Sunday, 17 February, 1991
  1222. XREM Mon Tue Wed Thu Fri 1 MSG Mon Tue Wed Thu Fri 1
  1223. X./test.rem(83): Trig = Friday, 1 March, 1991
  1224. X
  1225. XREM Sun Feb MSG Sun Feb
  1226. X./test.rem(85): Trig = Sunday, 17 February, 1991
  1227. XREM Mon Tue March MSG Mon Tue March
  1228. X./test.rem(86): Trig = Monday, 4 March, 1991
  1229. X
  1230. XREM Sun 16 Feb MSG Sun 16 Feb
  1231. X./test.rem(88): Trig = Sunday, 17 February, 1991
  1232. XREM Mon Tue 10 March MSG Mon Tue 10 March
  1233. X./test.rem(89): Trig = Monday, 11 March, 1991
  1234. X
  1235. XREM Sat Sun 1991 MSG Sat Sun 1991
  1236. X./test.rem(91): Trig = Saturday, 16 February, 1991
  1237. XSat Sun 1991
  1238. X
  1239. XREM Mon Tue 1992 MSG Mon Tue 1992
  1240. X./test.rem(92): Trig = Monday, 6 January, 1992
  1241. X
  1242. XREM Sun 16 1991 MSG Sun 16 1991
  1243. X./test.rem(94): Trig = Sunday, 17 February, 1991
  1244. XREM Mon Tue Wed Thu Fri 1 1992 MSG Mon Tue Wed Thu Fri 1 1992
  1245. X./test.rem(95): Trig = Wednesday, 1 January, 1992
  1246. X
  1247. XREM Mon Feb 1991 MSG Mon Feb 1991
  1248. X./test.rem(97): Trig = Monday, 18 February, 1991
  1249. XREM Tue Jan 1992 MSG Tue Jan 1992
  1250. X./test.rem(98): Trig = Tuesday, 7 January, 1992
  1251. X
  1252. XREM Sun Mon 16 Feb 1991 MSG Sun Mon 16 Feb 1991
  1253. X./test.rem(100): Trig = Sunday, 17 February, 1991
  1254. XREM Tue 28 Jan 1992 MSG Tue 28 Jan 1992
  1255. X./test.rem(101): Trig = Tuesday, 28 January, 1992
  1256. X
  1257. X# Try some Backs
  1258. XCLEAR-OMIT-CONTEXT
  1259. XREM 1 -1 OMIT sat sun MSG 1 -1 OMIT Sat Sun
  1260. X./test.rem(105): Trig = Thursday, 28 February, 1991
  1261. XREM 1 --1 OMIT sat sun MSG 1 --1 OMIT Sat Sun
  1262. X./test.rem(106): Trig = Thursday, 28 February, 1991
  1263. X
  1264. XOMIT 28 Feb
  1265. XREM 1 -1 OMIT sat sun MSG 1 -1 OMIT Sat Sun (28 Feb omitted)
  1266. X./test.rem(109): Trig = Wednesday, 27 February, 1991
  1267. XREM 1 --1 OMIT sat sun MSG 1 --1 OMIT Sat Sun (28 Feb omitted)
  1268. X./test.rem(110): Trig = Thursday, 28 February, 1991
  1269. X
  1270. XCLEAR-OMIT-CONTEXT
  1271. X
  1272. X# Try out UNTIL
  1273. XREM Wed UNTIL 21 Feb 1991 MSG Wed UNTIL 21 Feb 1991
  1274. X./test.rem(115): Trig = Wednesday, 20 February, 1991
  1275. X
  1276. X# Try playing with the OMIT context
  1277. X
  1278. XOMIT 28 Feb 1991
  1279. XREM 1 Mar -1 MSG 1 mar -1 (28feb91 omitted)
  1280. X./test.rem(120): Trig = Wednesday, 27 February, 1991
  1281. XREM 1 Mar --1 MSG 1 mar --1 (28Feb91 omitted)
  1282. X./test.rem(121): Trig = Thursday, 28 February, 1991
  1283. XREM 28 Feb BEFORE MSG 28 Feb BEFORE (28Feb91 omitted)
  1284. X./test.rem(122): Trig = Wednesday, 27 February, 1991
  1285. XREM 28 Feb SKIP MSG 28 Feb SKIP (28Feb91 omitted)
  1286. X./test.rem(123): Trig = Friday, 28 February, 1992
  1287. XREM 28 Feb AFTER MSG 28 Feb AFTER (28Feb91 omitted)
  1288. X./test.rem(124): Trig = Friday, 1 March, 1991
  1289. X
  1290. XPUSH-OMIT-CONTEXT
  1291. XCLEAR-OMIT-CONTEXT
  1292. XREM 1 Mar -1 MSG 1 mar -1
  1293. X./test.rem(128): Trig = Thursday, 28 February, 1991
  1294. XREM 1 Mar --1 MSG 1 mar --1
  1295. X./test.rem(129): Trig = Thursday, 28 February, 1991
  1296. XREM 28 Feb BEFORE MSG 28 Feb BEFORE
  1297. X./test.rem(130): Trig = Thursday, 28 February, 1991
  1298. XREM 28 Feb SKIP MSG 28 Feb SKIP 
  1299. X./test.rem(131): Trig = Thursday, 28 February, 1991
  1300. XREM 28 Feb AFTER MSG 28 Feb AFTER
  1301. X./test.rem(132): Trig = Thursday, 28 February, 1991
  1302. X
  1303. XPOP-OMIT-CONTEXT
  1304. XREM 1 Mar -1 MSG 1 mar -1 (28feb91 omitted)
  1305. X./test.rem(135): Trig = Wednesday, 27 February, 1991
  1306. XREM 1 Mar --1 MSG 1 mar --1 (28Feb91 omitted)
  1307. X./test.rem(136): Trig = Thursday, 28 February, 1991
  1308. XREM 28 Feb BEFORE MSG 28 Feb BEFORE (28Feb91 omitted)
  1309. X./test.rem(137): Trig = Wednesday, 27 February, 1991
  1310. XREM 28 Feb SKIP MSG 28 Feb SKIP (28Feb91 omitted)
  1311. X./test.rem(138): Trig = Friday, 28 February, 1992
  1312. XREM 28 Feb AFTER MSG 28 Feb AFTER (28Feb91 omitted)
  1313. X./test.rem(139): Trig = Friday, 1 March, 1991
  1314. X
  1315. X
  1316. XREM 13 March 1991 *1 UNTIL 19 March 1991 MSG 13-19 Mar 91
  1317. X./test.rem(142): Trig = Wednesday, 13 March, 1991
  1318. X 
  1319. X# Test BACK
  1320. XCLEAR-OMIT-CONTEXT
  1321. XREM 18 Feb 1991 +1 MSG 18 Feb 1991 +1
  1322. X./test.rem(146): Trig = Monday, 18 February, 1991
  1323. X
  1324. XOMIT 17 Feb 1991
  1325. XREM 18 Feb 1991 +1 MSG 18 Feb 1991 +1 (17Feb91 omitted)
  1326. X./test.rem(149): Trig = Monday, 18 February, 1991
  1327. X18 Feb 1991 +1 (17Feb91 omitted)
  1328. X
  1329. XREM 18 Feb 1991 ++1 MSG 18 Feb 1991 ++1 (17Feb91 omitted)
  1330. X./test.rem(150): Trig = Monday, 18 February, 1991
  1331. X
  1332. XCLEAR-OMIT-CONTEXT
  1333. X# Test the scanfrom clause
  1334. XREM Fri SATISFY 1
  1335. X./test.rem(154): Trig = Friday, 22 February, 1991
  1336. XOMIT [trigger(trigdate())]
  1337. Xtrigdate() => 1991/02/22
  1338. Xtrigger(1991/02/22) => "22 February 1991"
  1339. XREM Fri after MSG 23 Feb 1991
  1340. X./test.rem(156): Trig = Saturday, 23 February, 1991
  1341. XCLEAR-OMIT-CONTEXT
  1342. XREM Fri SCANFROM [trigger(today()-7)] SATISFY 1
  1343. Xtoday() => 1991/02/16
  1344. X1991/02/16 - 7 => 1991/02/09
  1345. Xtrigger(1991/02/09) => "9 February 1991"
  1346. X./test.rem(158): Trig = Friday, 15 February, 1991
  1347. XOMIT [trigger(trigdate())]
  1348. Xtrigdate() => 1991/02/15
  1349. Xtrigger(1991/02/15) => "15 February 1991"
  1350. XREM Fri after MSG 16 Feb 1991
  1351. X./test.rem(160): Trig = Saturday, 16 February, 1991
  1352. X16 Feb 1991
  1353. X
  1354. XCLEAR-OMIT-CONTEXT
  1355. Xset a000 abs(1)
  1356. Xabs(1) => 1
  1357. Xset a001 abs(-1)
  1358. X- 1 => -1
  1359. Xabs(-1) => 1
  1360. Xset a002 asc("foo")
  1361. Xasc("foo") => 102
  1362. Xset a003 baseyr()
  1363. Xbaseyr() => 1990
  1364. Xset a004 char(66,55,66,77,66)
  1365. Xchar(66, 55, 66, 77, 66) => "B7BMB"
  1366. Xset a005 choose(3, "foo", "bar", "baz", "blech")
  1367. Xchoose(3, "foo", "bar", "baz", "blech") => "baz"
  1368. Xset a006 coerce("string", 1)
  1369. Xcoerce("string", 1) => "1"
  1370. Xset a007 coerce("string", today())
  1371. Xtoday() => 1991/02/16
  1372. Xcoerce("string", 1991/02/16) => "1991/02/16"
  1373. Xset a008 coerce("string", 11:44)
  1374. Xcoerce("string", 11:44) => "11:44"
  1375. Xset a009 coerce("int", "badnews")
  1376. Xcoerce("int", "badnews") => Can't coerce
  1377. X./test.rem(171): Can't coerce
  1378. Xset a010 coerce("int", "12")
  1379. Xcoerce("int", "12") => 12
  1380. Xset a011 coerce("int", 11:44)
  1381. Xcoerce("int", 11:44) => 704
  1382. Xset a012 coerce("int", today())
  1383. Xtoday() => 1991/02/16
  1384. Xcoerce("int", 1991/02/16) => 411
  1385. Xset a013 date(1992, 2, 2)
  1386. Xdate(1992, 2, 2) => 1992/02/02
  1387. Xset a014 date(1993, 2, 29)
  1388. Xdate(1993, 2, 29) => Bad date specification
  1389. X./test.rem(176): Bad date specification
  1390. Xset a015 day(today())
  1391. Xtoday() => 1991/02/16
  1392. Xday(1991/02/16) => 16
  1393. Xset a016 daysinmon(2, 1991)
  1394. Xdaysinmon(2, 1991) => 28
  1395. Xset a017 daysinmon(2, 1992)
  1396. Xdaysinmon(2, 1992) => 29
  1397. Xset a018 defined("a017")
  1398. Xdefined("a017") => 1
  1399. Xset a019 defined("a019")
  1400. Xdefined("a019") => 0
  1401. Xset a020 filename()
  1402. Xfilename() => "./test.rem"
  1403. Xset a021 getenv("TEST_GETENV")
  1404. Xgetenv("TEST_GETENV") => "foo bar baz"
  1405. Xset a022 hour(11:22)
  1406. Xhour(11:22) => 11
  1407. Xset a023 iif(1, 1, 0)
  1408. Xiif(1, 1, 0) => 1
  1409. Xset a024 iif(0, 1, 0)
  1410. Xiif(0, 1, 0) => 0
  1411. Xset a025 index("barfoobar", "foo")
  1412. Xindex("barfoobar", "foo") => 4
  1413. Xset a026 index("barfoobar", "bar", 2)
  1414. Xindex("barfoobar", "bar", 2) => 7
  1415. Xset a027 isleap(today())
  1416. Xtoday() => 1991/02/16
  1417. Xisleap(1991/02/16) => 0
  1418. Xset a028 isleap(1992)
  1419. Xisleap(1992) => 1
  1420. Xomit [trigger(today())]
  1421. Xtoday() => 1991/02/16
  1422. Xtrigger(1991/02/16) => "16 February 1991"
  1423. Xset a030 isomitted(today())
  1424. Xtoday() => 1991/02/16
  1425. Xisomitted(1991/02/16) => 1
  1426. Xclear
  1427. Xset a029 isomitted(today())
  1428. Xtoday() => 1991/02/16
  1429. Xisomitted(1991/02/16) => 0
  1430. Xset a031 lower("FOOBARBAZ")
  1431. Xlower("FOOBARBAZ") => "foobarbaz"
  1432. Xset a032 max(1, 2, 34, 1, 3)
  1433. Xmax(1, 2, 34, 1, 3) => 34
  1434. Xset a033 max("foo", "bar", "baz")
  1435. Xmax("foo", "bar", "baz") => "foo"
  1436. Xset a034 max(today(), today()+1, today()-1)
  1437. Xtoday() => 1991/02/16
  1438. Xtoday() => 1991/02/16
  1439. X1991/02/16 + 1 => 1991/02/17
  1440. Xtoday() => 1991/02/16
  1441. X1991/02/16 - 1 => 1991/02/15
  1442. Xmax(1991/02/16, 1991/02/17, 1991/02/15) => 1991/02/17
  1443. Xset a035 min(1, 2, 34, 1, 3)
  1444. Xmin(1, 2, 34, 1, 3) => 1
  1445. Xset a036 min("foo", "bar", "baz")
  1446. Xmin("foo", "bar", "baz") => "bar"
  1447. Xset a037 min(today(), today()+1, today()-1)
  1448. Xtoday() => 1991/02/16
  1449. Xtoday() => 1991/02/16
  1450. X1991/02/16 + 1 => 1991/02/17
  1451. Xtoday() => 1991/02/16
  1452. X1991/02/16 - 1 => 1991/02/15
  1453. Xmin(1991/02/16, 1991/02/17, 1991/02/15) => 1991/02/15
  1454. Xset a038 minute(11:33)
  1455. Xminute(11:33) => 33
  1456. Xset a039 mon(today())
  1457. Xtoday() => 1991/02/16
  1458. Xmon(1991/02/16) => "February"
  1459. Xset a040 monnum(today())
  1460. Xtoday() => 1991/02/16
  1461. Xmonnum(1991/02/16) => 2
  1462. Xset a041 ord(3)
  1463. Xord(3) => "3rd"
  1464. Xset a042 ord(4)
  1465. Xord(4) => "4th"
  1466. Xset a043 ostype()
  1467. Xostype() => "OS/2"
  1468. Xset a044 plural(2)
  1469. Xplural(2) => "s"
  1470. Xset a045 plural(2, "ies")
  1471. Xplural(2, "ies") => "iess"
  1472. Xset a046 plural(2, "y", "ies")
  1473. Xplural(2, "y", "ies") => "ies"
  1474. Xset a047 sgn(-2)
  1475. X- 2 => -2
  1476. Xsgn(-2) => -1
  1477. Xset a048 shell("echo foo")
  1478. Xshell("echo foo") => "foo"
  1479. Xset a049 strlen("sadjflkhsldkfhsdlfjhk")
  1480. Xstrlen("sadjflkhsldkfhsdlfjhk") => 21
  1481. Xset a050 substr(a049, 2)
  1482. Xa049 => 21
  1483. Xsubstr(21, 2) => Type mismatch
  1484. X./test.rem(214): Type mismatch
  1485. Xset a051 substr(a050, 2, 6)
  1486. Xa050 => ./test.rem(215): Undefined variable: a050
  1487. Xset a052 time(1+2, 3+4)
  1488. X1 + 2 => 3
  1489. X3 + 4 => 7
  1490. Xtime(3, 7) => 03:07
  1491. Xrem 10 jan 1992 AT 11:22 CAL
  1492. X./test.rem(217): Trig = Friday, 10 January, 1992
  1493. Xset a053 trigdate()
  1494. Xtrigdate() => 1992/01/10
  1495. Xset a054 trigtime()
  1496. Xtrigtime() => 11:22
  1497. Xset a055 trigvalid()
  1498. Xtrigvalid() => 1
  1499. Xset a056 upper("sdfjhsdf ksjdfh kjsdfh ksjdfh")
  1500. Xupper("sdfjhsdf ksjdfh kjsdfh ksjdfh") => "SDFJHSDF KSJDFH KJSDFH KSJDFH"
  1501. Xset a057 value("a05"+"6")
  1502. X"a05" + "6" => "a056"
  1503. Xvalue("a056") => "SDFJHSDF KSJDFH KJSDFH KSJDFH"
  1504. Xset a058 version()
  1505. Xversion() => "03.00.10"
  1506. Xset a059 wkday(today())
  1507. Xtoday() => 1991/02/16
  1508. Xwkday(1991/02/16) => "Saturday"
  1509. Xset a060 wkdaynum(today())
  1510. Xtoday() => 1991/02/16
  1511. Xwkdaynum(1991/02/16) => 6
  1512. Xset a061 year(today())
  1513. Xtoday() => 1991/02/16
  1514. Xyear(1991/02/16) => 1991
  1515. Xset a062 1+2*(3+4-(5*7/2))
  1516. X3 + 4 => 7
  1517. X5 * 7 => 35
  1518. X35 / 2 => 17
  1519. X7 - 17 => -10
  1520. X2 * -10 => -20
  1521. X1 + -20 => -19
  1522. Xset a063 1>=2
  1523. X1 >= 2 => 0
  1524. Xset a064 1<2 || 3 > 4
  1525. X1 < 2 => 1
  1526. X3 > 4 => 0
  1527. X1 || 0 => 1
  1528. Xset a065 1 && 1
  1529. X1 && 1 => 1
  1530. Xset a066 !a065
  1531. Xa065 => 1
  1532. X! 1 => 0
  1533. Xset a067 typeof(2)
  1534. Xtypeof(2) => "INT"
  1535. Xset a068 typeof("foo")
  1536. Xtypeof("foo") => "STRING"
  1537. Xset a069 typeof(11:33)
  1538. Xtypeof(11:33) => "TIME"
  1539. Xset a070 typeof(today())
  1540. Xtoday() => 1991/02/16
  1541. Xtypeof(1991/02/16) => "DATE"
  1542. Xfset g(x,y) max(x,y)
  1543. Xfset h(x,y) min(g(x+y, x*y), g(x-y, x/y))
  1544. Xset a071 g(1, 2)
  1545. XEntering UserFN g(1, 2)
  1546. Xx => 1
  1547. Xy => 2
  1548. Xmax(1, 2) => 2
  1549. XLeaving UserFN g() => 2
  1550. Xset a072 h(2, 3)
  1551. XEntering UserFN h(2, 3)
  1552. Xx => 2
  1553. Xy => 3
  1554. X2 + 3 => 5
  1555. Xx => 2
  1556. Xy => 3
  1557. X2 * 3 => 6
  1558. XEntering UserFN g(5, 6)
  1559. Xx => 5
  1560. Xy => 6
  1561. Xmax(5, 6) => 6
  1562. XLeaving UserFN g() => 6
  1563. Xx => 2
  1564. Xy => 3
  1565. X2 - 3 => -1
  1566. Xx => 2
  1567. Xy => 3
  1568. X2 / 3 => 0
  1569. XEntering UserFN g(-1, 0)
  1570. Xx => -1
  1571. Xy => 0
  1572. Xmax(-1, 0) => 0
  1573. XLeaving UserFN g() => 0
  1574. Xmin(6, 0) => 0
  1575. XLeaving UserFN h() => 0
  1576. Xset a073 h("foo", 11:33)
  1577. XEntering UserFN h("foo", 11:33)
  1578. Xx => "foo"
  1579. Xy => 11:33
  1580. X"foo" + 11:33 => "foo11:33"
  1581. Xx => "foo"
  1582. Xy => 11:33
  1583. X"foo" * 11:33 => Type mismatch
  1584. X./test.rem(240): '*': Type mismatch
  1585. XLeaving UserFN h() => Type mismatch
  1586. Xset a074 dosubst("%a %b %c %d %e %f %g %h", '1992/5/5')
  1587. Xdosubst("%a %b %c %d %e %f %g %h", 1992/05/05) => "on Tuesday, 5 May, 1992 in 444 days' tim"...
  1588. Xmsg [a074]%
  1589. X./test.rem(242): Trig = Saturday, 16 February, 1991
  1590. Xa074 => "on Tuesday, 5 May, 1992 in 444 days' tim"...
  1591. Xon Tuesday, 5 May, 1992 in 444 days' time on Tuesday 5 on 05/05/1992 on 05/05/1992 on Tuesday, 5 May on 05/05
  1592. Xset a075 dosubst("%i %j %k %l %m %n %o %p", '1992/5/5')
  1593. Xdosubst("%i %j %k %l %m %n %o %p", 1992/05/05) => "on 05/05 on Tuesday, May 5th, 1992 on Tu"...
  1594. Xmsg [a075]%
  1595. X./test.rem(244): Trig = Saturday, 16 February, 1991
  1596. Xa075 => "on 05/05 on Tuesday, May 5th, 1992 on Tu"...
  1597. Xon 05/05 on Tuesday, May 5th, 1992 on Tuesday, May 5th on 1992/05/05 May 5  s
  1598. Xset a076 dosubst("%q %r %s %t %u %v %w %x", '1992/5/5')
  1599. Xdosubst("%q %r %s %t %u %v %w %x", 1992/05/05) => "s' 05 th 05 on Tuesday, 5th May, 1992 on"...
  1600. Xmsg [a076]%
  1601. X./test.rem(246): Trig = Saturday, 16 February, 1991
  1602. Xa076 => "s' 05 th 05 on Tuesday, 5th May, 1992 on"...
  1603. Xs' 05 th 05 on Tuesday, 5th May, 1992 on Tuesday, 5th May Tuesday 444
  1604. Xset a077 dosubst("%y %z", '1992/5/5')
  1605. Xdosubst("%y %z", 1992/05/05) => "1992 92
  1606. X"
  1607. Xmsg [a077]%
  1608. X./test.rem(248): Trig = Saturday, 16 February, 1991
  1609. Xa077 => "1992 92
  1610. X"
  1611. X1992 92
  1612. Xset a078 easterdate(today())
  1613. Xtoday() => 1991/02/16
  1614. Xeasterdate(1991/02/16) => 1991/03/31
  1615. Xset a079 easterdate(1992)
  1616. Xeasterdate(1992) => 1992/04/19
  1617. Xset a080 easterdate(1995)
  1618. Xeasterdate(1995) => 1995/04/16
  1619. Xset a081 ""
  1620. Xdump
  1621. X    Variable  Value
  1622. X
  1623. X        a017  29
  1624. X        a036  "bar"
  1625. X        a055  1
  1626. X        a074  "on Tuesday, 5 May, 1992 in 444 days' tim"...
  1627. X        a008  "11:44"
  1628. X        a027  0
  1629. X        a046  "ies"
  1630. X        a065  1
  1631. X        a018  1
  1632. X        a037  1991/02/15
  1633. X        a056  "SDFJHSDF KSJDFH KJSDFH KSJDFH"
  1634. X        a075  "on 05/05 on Tuesday, May 5th, 1992 on Tu"...
  1635. X        a028  1
  1636. X        a047  -1
  1637. X        a066  0
  1638. X        a019  0
  1639. X        a038  33
  1640. X        a057  "SDFJHSDF KSJDFH KJSDFH KSJDFH"
  1641. X        a076  "s' 05 th 05 on Tuesday, 5th May, 1992 on"...
  1642. X        a029  0
  1643. X        a048  "foo"
  1644. X        a067  "INT"
  1645. X        a039  "February"
  1646. X        a058  "03.00.10"
  1647. X        a077  "1992 92
  1648. X"
  1649. X        a049  21
  1650. X        a068  "STRING"
  1651. X        a059  "Saturday"
  1652. X        a078  1991/03/31
  1653. X        a069  "TIME"
  1654. X        a079  1992/04/19
  1655. X        a000  1
  1656. X        a010  12
  1657. X        a001  1
  1658. X        a020  "./test.rem"
  1659. X        a011  704
  1660. X        a030  1
  1661. X        a002  102
  1662. X        a021  "foo bar baz"
  1663. X        a040  2
  1664. X        a012  411
  1665. X        a031  "foobarbaz"
  1666. X        a003  1990
  1667. X        a022  11
  1668. X        a041  "3rd"
  1669. X        a060  6
  1670. X        a013  1992/02/02
  1671. X        a032  34
  1672. X        a070  "DATE"
  1673. X        a004  "B7BMB"
  1674. X        a023  1
  1675. X        a042  "4th"
  1676. X        a061  1991
  1677. X        a080  1995/04/16
  1678. X        a033  "foo"
  1679. X        a052  03:07
  1680. X        a071  2
  1681. X        a005  "baz"
  1682. X        a024  0
  1683. X        a043  "OS/2"
  1684. X        a062  -19
  1685. X        a081  ""
  1686. X        a015  16
  1687. X        a034  1991/02/17
  1688. X        a053  1992/01/10
  1689. X        a072  0
  1690. X        a006  "1"
  1691. X        a025  4
  1692. X        a044  "s"
  1693. X        a063  0
  1694. X        a016  28
  1695. X        a035  1
  1696. X        a054  11:22
  1697. X        a007  "1991/02/16"
  1698. X        a026  7
  1699. X        a045  "iess"
  1700. X        a064  1
  1701. X
  1702. END_OF_FILE
  1703.   if test 23532 -ne `wc -c <'test2.cmp'`; then
  1704.     echo shar: \"'test2.cmp'\" unpacked with wrong size!
  1705.   fi
  1706.   # end of 'test2.cmp'
  1707. fi
  1708. echo shar: End of archive 3 \(of 3\).
  1709. cp /dev/null ark3isdone
  1710. MISSING=""
  1711. for I in 1 2 3 ; do
  1712.     if test ! -f ark${I}isdone ; then
  1713.     MISSING="${MISSING} ${I}"
  1714.     fi
  1715. done
  1716. if test "${MISSING}" = "" ; then
  1717.     echo You have unpacked all 3 archives.
  1718.     rm -f ark[1-9]isdone
  1719. else
  1720.     echo You still must unpack the following archives:
  1721.     echo "        " ${MISSING}
  1722. fi
  1723. exit 0
  1724. exit 0 # Just in case...
  1725.