home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1994 March / Source_Code_CD-ROM_Walnut_Creek_March_1994.iso / compsrcs / misc / volume33 / remind / part12 < prev    next >
Encoding:
Text File  |  1992-11-10  |  37.0 KB  |  1,444 lines
  1. Newsgroups: comp.sources.misc
  2. From: dfs@doe.carleton.ca (David F. Skoll)
  3. Subject:  v33i069:  remind - A replacement for calendar, Part12/12
  4. Message-ID: <1992Nov10.042050.1507@sparky.imd.sterling.com>
  5. X-Md4-Signature: 02558b1ed9a51b888cef239a1d465844
  6. Date: Tue, 10 Nov 1992 04:20:50 GMT
  7. Approved: kent@sparky.imd.sterling.com
  8.  
  9. Submitted-by: dfs@doe.carleton.ca (David F. Skoll)
  10. Posting-number: Volume 33, Issue 69
  11. Archive-name: remind/part12
  12. Environment: UNIX, MS-DOS
  13. Supersedes: remind: Volume 17, Issue 3-6
  14.  
  15. #!/bin/sh
  16. # This is part 12 of Remind 03.00.00
  17. if touch 2>&1 | fgrep 'amc' > /dev/null
  18.  then TOUCH=touch
  19.  else TOUCH=true
  20. fi
  21. # ============= remind-all.csh ==============
  22. if test X"$1" != X"-c" -a -f 'remind-all.csh'; then
  23.     echo "File already exists: skipping 'remind-all.csh'"
  24. else
  25. echo "x - extracting remind-all.csh (Text)"
  26. sed 's/^X//' << 'SHAR_EOF' > remind-all.csh &&
  27. X#!/bin/csh -f
  28. X
  29. X# Shell script to mail all users reminders.
  30. X
  31. X# Run it AFTER MIDNIGHT so that date is correct!
  32. X# On our system, we have the following in our crontab:
  33. X# 05 5 * * * /usr/share/lib/remind/remind-all > /dev/null 2>&1
  34. X
  35. X# Also, you MUST use the -r and -q options on REMIND, otherwise SEVERE
  36. X# security hole could develop.  I recommend making this script
  37. X# readable and executable only by root to minimize security problems.
  38. X# DO NOT make the script setuid!
  39. X
  40. X# The following line gets a list of users for systems using SUN's
  41. X# NIS service:
  42. Xset USERS  = `ypcat passwd | awk -F: '{print $1}'`
  43. X
  44. X# The following line gets a list of users by examining /etc/passwd:
  45. X# set USERS = `awk -F: '{print $1}' /etc/passwd`
  46. X
  47. X# If neither of the above methods works, you must come up with some
  48. X# way of getting a list of users on the system
  49. X
  50. X# Set the following variables as appropriate for your system
  51. Xset REMIND = /usr/local/bin/remind
  52. Xset MAIL   = /usr/ucb/mail
  53. Xset RM     = "/usr/bin/rm -f"
  54. X
  55. Xset REMFILE   = /tmp/RemFile.$$
  56. X
  57. X# Scan each user's directory for a .reminders file
  58. Xforeach i ($USERS)
  59. X   if (-r ~$i/.reminders) then
  60. X
  61. X#     echo "$i has a .reminders file."     DEBUGGING PURPOSES ONLY
  62. X
  63. X      su - $i -c "$REMIND -rqh ~$i/.reminders" < /dev/null > $REMFILE
  64. X      if (! -z $REMFILE) then
  65. X#        echo "Sending mail to $i"         DEBUGGING PURPOSES ONLY
  66. X
  67. X         $MAIL -s "Reminders" $i < $REMFILE
  68. X      endif
  69. X      $RM $REMFILE
  70. X   endif
  71. Xend
  72. SHAR_EOF
  73. $TOUCH -am 1109141292 remind-all.csh &&
  74. chmod 0600 remind-all.csh ||
  75. echo "restore of remind-all.csh failed"
  76. set `wc -c remind-all.csh`;Wc_c=$1
  77. if test "$Wc_c" != "1446"; then
  78.     echo original size 1446, current size $Wc_c
  79. fi
  80. fi
  81. # ============= remind-all.sh ==============
  82. if test X"$1" != X"-c" -a -f 'remind-all.sh'; then
  83.     echo "File already exists: skipping 'remind-all.sh'"
  84. else
  85. echo "x - extracting remind-all.sh (Text)"
  86. sed 's/^X//' << 'SHAR_EOF' > remind-all.sh &&
  87. X# Shell script to mail all users reminders.
  88. X
  89. X# Thanks to Bill Aten for this script.
  90. X
  91. X# Run it AFTER MIDNIGHT so that date is correct!
  92. X# On our system, we have the following in our crontab:
  93. X# 02 00 * * * /usr/local/adm/remind-all >/dev/null 2>&1
  94. X
  95. X# Also, you MUST use the -r and -q options on REMIND, otherwise a SEVERE
  96. X# security hole could develop.  I recommend making this script
  97. X# readable and executable only by root to minimize security problems.
  98. X# DO NOT make the script setuid!
  99. X
  100. X# The following line gets a list of users for systems using SUN's
  101. X# NIS service:
  102. X# USERS=`ypcat passwd | awk -F: '{print $1}'`
  103. X
  104. X# The following line gets a list of users by examining /etc/passwd:
  105. XUSERS=`awk -F: '{print $1}' /etc/passwd`
  106. X
  107. X# If neither of the above methods works, you must come up with some
  108. X# way of getting a list of users on the system
  109. X
  110. X# Set the following variables as appropriate for your system
  111. XREMIND=/usr/local/bin/remind
  112. XMAIL=/usr/bin/mail
  113. XRM="/bin/rm -f"
  114. X
  115. XREMFILE=/tmp/RemFile.$$
  116. X
  117. X# Scan each user's directory for a .reminders file
  118. Xfor i in $USERS
  119. Xdo
  120. XHOME=`grep \^$i: /etc/passwd | awk -F: '{print $6}'`
  121. X   if [ -r $HOME/.reminders ]; then
  122. X
  123. X#     echo "$i has a .reminders file."     DEBUGGING PURPOSES ONLY
  124. X
  125. X      su - $i -c "$REMIND -rqh $HOME/.reminders" < /dev/null > $REMFILE
  126. X      if [ -s $REMFILE ]; then
  127. X#        echo "Sending mail to $i"         DEBUGGING PURPOSES ONLY
  128. X         $MAIL -s "Reminders" $i < $REMFILE
  129. X      fi
  130. X      $RM $REMFILE
  131. X   fi
  132. Xdone
  133. SHAR_EOF
  134. $TOUCH -am 1109141292 remind-all.sh &&
  135. chmod 0600 remind-all.sh ||
  136. echo "restore of remind-all.sh failed"
  137. set `wc -c remind-all.sh`;Wc_c=$1
  138. if test "$Wc_c" != "1472"; then
  139.     echo original size 1472, current size $Wc_c
  140. fi
  141. fi
  142. # ============= test.rem ==============
  143. if test X"$1" != X"-c" -a -f 'test.rem'; then
  144.     echo "File already exists: skipping 'test.rem'"
  145. else
  146. echo "x - extracting test.rem (Text)"
  147. sed 's/^X//' << 'SHAR_EOF' > test.rem &&
  148. X# Test file for REMIND
  149. X#
  150. X# Use this file to test the date calculation routines
  151. X# of the REMIND program by typing:
  152. X#
  153. X#     ./test-rem  # From WITHIN Remind source directory!
  154. X
  155. X# Test each possible case of the basic reminders.
  156. X
  157. XREM MSG Every Day
  158. X
  159. XREM 18 MSG Every 18th 
  160. XREM 15 MSG Every 15th
  161. X
  162. XREM Feb MSG February
  163. XREM Jan MSG January
  164. XREM March MSG March
  165. X
  166. XREM 13 Jan MSG 13 Jan
  167. XREM 15 Feb MSG 15 Feb
  168. XREM 28 Feb MSG 28 Feb
  169. XREM 29 Feb MSG 29 Feb
  170. XREM 5 Mar MSG 5 Mar
  171. X
  172. XREM 1990 MSG 1990
  173. XREM 1991 MSG 1991
  174. XREM 1992 MSG 1991
  175. X
  176. XREM 1 1990 MSG 1 1990
  177. XREM 29 1991 MSG 29 1991
  178. XREM 29 1992 MSG 29 1992
  179. XREM 16 1991 MSG 16 1991
  180. X
  181. XREM Jan 1990 MSG Jan 1990
  182. XREM Feb 1991 MSG Feb 1991
  183. XREM Dec 1991 MSG Dec 1991
  184. XREM May 1992 MSG May 1992
  185. X
  186. XREM 1 Jan 1991 MSG 1 Jan 1991
  187. XREM 16 Feb 1991 MSG 16 Feb 1991
  188. XREM 29 Dec 1992 MSG 29 Dec 1992
  189. X
  190. XREM Sun MSG Sun
  191. XREM Fri Sat Tue MSG Fri Sat Tue
  192. X
  193. XREM Sun 16 MSG Sun 16
  194. XREM Mon Tue Wed Thu Fri 1 MSG Mon Tue Wed Thu Fri 1
  195. X
  196. XREM Sun Feb MSG Sun Feb
  197. XREM Mon Tue March MSG Mon Tue March
  198. X
  199. XREM Sun 16 Feb MSG Sun 16 Feb
  200. XREM Mon Tue 10 March MSG Mon Tue 10 March
  201. X
  202. XREM Sat Sun 1991 MSG Sat Sun 1991
  203. XREM Mon Tue 1992 MSG Mon Tue 1992
  204. X
  205. XREM Sun 16 1991 MSG Sun 16 1991
  206. XREM Mon Tue Wed Thu Fri 1 1992 MSG Mon Tue Wed Thu Fri 1 1992
  207. X
  208. XREM Mon Feb 1991 MSG Mon Feb 1991
  209. XREM Tue Jan 1992 MSG Tue Jan 1992
  210. X
  211. XREM Sun Mon 16 Feb 1991 MSG Sun Mon 16 Feb 1991
  212. XREM Tue 28 Jan 1992 MSG Tue 28 Jan 1992
  213. X
  214. X# Try some Backs
  215. XCLEAR-OMIT-CONTEXT
  216. XREM 1 -1 OMIT sat sun MSG 1 -1 OMIT Sat Sun
  217. XREM 1 --1 OMIT sat sun MSG 1 --1 OMIT Sat Sun
  218. X
  219. XOMIT 28 Feb
  220. XREM 1 -1 OMIT sat sun MSG 1 -1 OMIT Sat Sun (28 Feb omitted)
  221. XREM 1 --1 OMIT sat sun MSG 1 --1 OMIT Sat Sun (28 Feb omitted)
  222. X
  223. XCLEAR-OMIT-CONTEXT
  224. X
  225. X# Try out UNTIL
  226. XREM Wed UNTIL 21 Feb 1991 MSG Wed UNTIL 21 Feb 1991
  227. X
  228. X# Try playing with the OMIT context
  229. X
  230. XOMIT 28 Feb 1991
  231. XREM 1 Mar -1 MSG 1 mar -1 (28feb91 omitted)
  232. XREM 1 Mar --1 MSG 1 mar --1 (28Feb91 omitted)
  233. XREM 28 Feb BEFORE MSG 28 Feb BEFORE (28Feb91 omitted)
  234. XREM 28 Feb SKIP MSG 28 Feb SKIP (28Feb91 omitted)
  235. XREM 28 Feb AFTER MSG 28 Feb AFTER (28Feb91 omitted)
  236. X
  237. XPUSH-OMIT-CONTEXT
  238. XCLEAR-OMIT-CONTEXT
  239. XREM 1 Mar -1 MSG 1 mar -1
  240. XREM 1 Mar --1 MSG 1 mar --1
  241. XREM 28 Feb BEFORE MSG 28 Feb BEFORE
  242. XREM 28 Feb SKIP MSG 28 Feb SKIP 
  243. XREM 28 Feb AFTER MSG 28 Feb AFTER
  244. X
  245. XPOP-OMIT-CONTEXT
  246. XREM 1 Mar -1 MSG 1 mar -1 (28feb91 omitted)
  247. XREM 1 Mar --1 MSG 1 mar --1 (28Feb91 omitted)
  248. XREM 28 Feb BEFORE MSG 28 Feb BEFORE (28Feb91 omitted)
  249. XREM 28 Feb SKIP MSG 28 Feb SKIP (28Feb91 omitted)
  250. XREM 28 Feb AFTER MSG 28 Feb AFTER (28Feb91 omitted)
  251. X
  252. X
  253. XREM 13 March 1991 *1 UNTIL 19 March 1991 MSG 13-19 Mar 91
  254. X 
  255. X# Test BACK
  256. XCLEAR-OMIT-CONTEXT
  257. XREM 18 Feb 1991 +1 MSG 18 Feb 1991 +1
  258. X
  259. XOMIT 17 Feb 1991
  260. XREM 18 Feb 1991 +1 MSG 18 Feb 1991 +1 (17Feb91 omitted)
  261. XREM 18 Feb 1991 ++1 MSG 18 Feb 1991 ++1 (17Feb91 omitted)
  262. X
  263. XCLEAR-OMIT-CONTEXT
  264. Xset a000 abs(1)
  265. Xset a001 abs(-1)
  266. Xset a002 asc("foo")
  267. Xset a003 baseyr()
  268. Xset a004 char(66,55,66,77,66)
  269. Xset a005 choose(3, "foo", "bar", "baz", "blech")
  270. Xset a006 coerce("string", 1)
  271. Xset a007 coerce("string", today())
  272. Xset a008 coerce("string", 11:44)
  273. Xset a009 coerce("int", "badnews")
  274. Xset a010 coerce("int", "12")
  275. Xset a011 coerce("int", 11:44)
  276. Xset a012 coerce("int", today())
  277. Xset a013 date(1992, 2, 2)
  278. Xset a014 date(1993, 2, 29)
  279. Xset a015 day(today())
  280. Xset a016 daysinmon(2, 1991)
  281. Xset a017 daysinmon(2, 1992)
  282. Xset a018 defined("a017")
  283. Xset a019 defined("a019")
  284. Xset a020 filename()
  285. Xset a021 getenv("TEST_GETENV")
  286. Xset a022 hour(11:22)
  287. Xset a023 iif(1, 1, 0)
  288. Xset a024 iif(0, 1, 0)
  289. Xset a025 index("barfoobar", "foo")
  290. Xset a026 index("barfoobar", "bar", 2)
  291. Xset a027 isleap(today())
  292. Xset a028 isleap(1992)
  293. Xomit [trigger(today())]
  294. Xset a030 isomitted(today())
  295. Xclear
  296. Xset a029 isomitted(today())
  297. Xset a031 lower("FOOBARBAZ")
  298. Xset a032 max(1, 2, 34, 1, 3)
  299. Xset a033 max("foo", "bar", "baz")
  300. Xset a034 max(today(), today()+1, today()-1)
  301. Xset a035 min(1, 2, 34, 1, 3)
  302. Xset a036 min("foo", "bar", "baz")
  303. Xset a037 min(today(), today()+1, today()-1)
  304. Xset a038 minute(11:33)
  305. Xset a039 mon(today())
  306. Xset a040 monnum(today())
  307. Xset a041 ord(3)
  308. Xset a042 ord(4)
  309. Xset a043 ostype()
  310. Xset a044 plural(2)
  311. Xset a045 plural(2, "ies")
  312. Xset a046 plural(2, "y", "ies")
  313. Xset a047 sgn(-2)
  314. Xset a048 shell("echo foo")
  315. Xset a049 strlen("sadjflkhsldkfhsdlfjhk")
  316. Xset a050 substr(a049, 2)
  317. Xset a051 substr(a050, 2, 6)
  318. Xset a052 time(1+2, 3+4)
  319. Xrem 10 jan 1992 AT 11:22 CAL
  320. Xset a053 trigdate()
  321. Xset a054 trigtime()
  322. Xset a055 trigvalid()
  323. Xset a056 upper("sdfjhsdf ksjdfh kjsdfh ksjdfh")
  324. Xset a057 value("a05"+"6")
  325. Xset a058 version()
  326. Xset a059 wkday(today())
  327. Xset a060 wkdaynum(today())
  328. Xset a061 year(today())
  329. Xset a062 1+2*(3+4-(5*7/2))
  330. Xset a063 1>=2
  331. Xset a064 1<2 || 3 > 4
  332. Xset a065 1 && 1
  333. Xset a066 !a065
  334. Xset a067 typeof(2)
  335. Xset a068 typeof("foo")
  336. Xset a069 typeof(11:33)
  337. Xset a070 typeof(today())
  338. Xfset g(x,y) max(x,y)
  339. Xfset h(x,y) min(g(x+y, x*y), g(x-y, x/y))
  340. Xset a071 g(1, 2)
  341. Xset a072 h(2, 3)
  342. Xset a073 h("foo", 11:33)
  343. SHAR_EOF
  344. $TOUCH -am 1109141292 test.rem &&
  345. chmod 0600 test.rem ||
  346. echo "restore of test.rem failed"
  347. set `wc -c test.rem`;Wc_c=$1
  348. if test "$Wc_c" != "4821"; then
  349.     echo original size 4821, current size $Wc_c
  350. fi
  351. fi
  352. # ============= test-rem ==============
  353. if test X"$1" != X"-c" -a -f 'test-rem'; then
  354.     echo "File already exists: skipping 'test-rem'"
  355. else
  356. echo "x - extracting test-rem (Text)"
  357. sed 's/^X//' << 'SHAR_EOF' > test-rem &&
  358. X#!/bin/csh -f
  359. Xsetenv TEST_GETENV "foo bar baz"
  360. X./remind -e -dxtev ./test.rem 16 feb 1991 > ./test.out
  361. Xcmp -s ./test.out ./test.cmp
  362. Xif ($status == 0) then
  363. X   echo "Remind:  Acceptance test PASSED"
  364. X   exit 0
  365. Xelse
  366. X   echo "Remind:  Acceptance test FAILED"
  367. X   echo ""
  368. X   echo "Examine the file test.out to see where it differs from the"
  369. X   echo "reference file test.cmp."
  370. X   exit 1
  371. Xendif
  372. SHAR_EOF
  373. $TOUCH -am 1109141292 test-rem &&
  374. chmod 0700 test-rem ||
  375. echo "restore of test-rem failed"
  376. set `wc -c test-rem`;Wc_c=$1
  377. if test "$Wc_c" != "384"; then
  378.     echo original size 384, current size $Wc_c
  379. fi
  380. fi
  381. # ============= test.cmp ==============
  382. if test X"$1" != X"-c" -a -f 'test.cmp'; then
  383.     echo "File already exists: skipping 'test.cmp'"
  384. else
  385. echo "x - extracting test.cmp (Text)"
  386. sed 's/^X//' << 'SHAR_EOF' > test.cmp &&
  387. X# Test file for REMIND
  388. X#
  389. X# Use this file to test the date calculation routines
  390. X# of the REMIND program by typing:
  391. X#
  392. X#     ./test-rem  # From WITHIN Remind source directory!
  393. X
  394. X# Test each possible case of the basic reminders.
  395. X
  396. XREM MSG Every Day
  397. X./test.rem(10): Trig = Saturday, 16 February, 1991
  398. XReminders for Saturday, 16th February, 1991:
  399. X
  400. XEvery Day
  401. X
  402. X
  403. XREM 18 MSG Every 18th 
  404. X./test.rem(12): Trig = Monday, 18 February, 1991
  405. XREM 15 MSG Every 15th
  406. X./test.rem(13): Trig = Friday, 15 March, 1991
  407. X
  408. XREM Feb MSG February
  409. X./test.rem(15): Trig = Saturday, 16 February, 1991
  410. XFebruary
  411. X
  412. XREM Jan MSG January
  413. X./test.rem(16): Trig = Wednesday, 1 January, 1992
  414. XREM March MSG March
  415. X./test.rem(17): Trig = Friday, 1 March, 1991
  416. X
  417. XREM 13 Jan MSG 13 Jan
  418. X./test.rem(19): Trig = Monday, 13 January, 1992
  419. XREM 15 Feb MSG 15 Feb
  420. X./test.rem(20): Trig = Saturday, 15 February, 1992
  421. XREM 28 Feb MSG 28 Feb
  422. X./test.rem(21): Trig = Thursday, 28 February, 1991
  423. XREM 29 Feb MSG 29 Feb
  424. X./test.rem(22): Trig = Saturday, 29 February, 1992
  425. XREM 5 Mar MSG 5 Mar
  426. X./test.rem(23): Trig = Tuesday, 5 March, 1991
  427. X
  428. XREM 1990 MSG 1990
  429. X./test.rem(25): Expired
  430. XREM 1991 MSG 1991
  431. X./test.rem(26): Trig = Saturday, 16 February, 1991
  432. X1991
  433. X
  434. XREM 1992 MSG 1991
  435. X./test.rem(27): Trig = Wednesday, 1 January, 1992
  436. X
  437. XREM 1 1990 MSG 1 1990
  438. X./test.rem(29): Expired
  439. XREM 29 1991 MSG 29 1991
  440. X./test.rem(30): Trig = Friday, 29 March, 1991
  441. XREM 29 1992 MSG 29 1992
  442. X./test.rem(31): Trig = Wednesday, 29 January, 1992
  443. XREM 16 1991 MSG 16 1991
  444. X./test.rem(32): Trig = Saturday, 16 February, 1991
  445. X16 1991
  446. X
  447. X
  448. XREM Jan 1990 MSG Jan 1990
  449. X./test.rem(34): Expired
  450. XREM Feb 1991 MSG Feb 1991
  451. X./test.rem(35): Trig = Saturday, 16 February, 1991
  452. XFeb 1991
  453. X
  454. XREM Dec 1991 MSG Dec 1991
  455. X./test.rem(36): Trig = Sunday, 1 December, 1991
  456. XREM May 1992 MSG May 1992
  457. X./test.rem(37): Trig = Friday, 1 May, 1992
  458. X
  459. XREM 1 Jan 1991 MSG 1 Jan 1991
  460. X./test.rem(39): Expired
  461. XREM 16 Feb 1991 MSG 16 Feb 1991
  462. X./test.rem(40): Trig = Saturday, 16 February, 1991
  463. X16 Feb 1991
  464. X
  465. XREM 29 Dec 1992 MSG 29 Dec 1992
  466. X./test.rem(41): Trig = Tuesday, 29 December, 1992
  467. X
  468. XREM Sun MSG Sun
  469. X./test.rem(43): Trig = Sunday, 17 February, 1991
  470. XREM Fri Sat Tue MSG Fri Sat Tue
  471. X./test.rem(44): Trig = Saturday, 16 February, 1991
  472. XFri Sat Tue
  473. X
  474. X
  475. XREM Sun 16 MSG Sun 16
  476. X./test.rem(46): Trig = Sunday, 17 February, 1991
  477. XREM Mon Tue Wed Thu Fri 1 MSG Mon Tue Wed Thu Fri 1
  478. X./test.rem(47): Trig = Friday, 1 March, 1991
  479. X
  480. XREM Sun Feb MSG Sun Feb
  481. X./test.rem(49): Trig = Sunday, 17 February, 1991
  482. XREM Mon Tue March MSG Mon Tue March
  483. X./test.rem(50): Trig = Monday, 4 March, 1991
  484. X
  485. XREM Sun 16 Feb MSG Sun 16 Feb
  486. X./test.rem(52): Trig = Sunday, 17 February, 1991
  487. XREM Mon Tue 10 March MSG Mon Tue 10 March
  488. X./test.rem(53): Trig = Monday, 11 March, 1991
  489. X
  490. XREM Sat Sun 1991 MSG Sat Sun 1991
  491. X./test.rem(55): Trig = Saturday, 16 February, 1991
  492. XSat Sun 1991
  493. X
  494. XREM Mon Tue 1992 MSG Mon Tue 1992
  495. X./test.rem(56): Trig = Monday, 6 January, 1992
  496. X
  497. XREM Sun 16 1991 MSG Sun 16 1991
  498. X./test.rem(58): Trig = Sunday, 17 February, 1991
  499. XREM Mon Tue Wed Thu Fri 1 1992 MSG Mon Tue Wed Thu Fri 1 1992
  500. X./test.rem(59): Trig = Wednesday, 1 January, 1992
  501. X
  502. XREM Mon Feb 1991 MSG Mon Feb 1991
  503. X./test.rem(61): Trig = Monday, 18 February, 1991
  504. XREM Tue Jan 1992 MSG Tue Jan 1992
  505. X./test.rem(62): Trig = Tuesday, 7 January, 1992
  506. X
  507. XREM Sun Mon 16 Feb 1991 MSG Sun Mon 16 Feb 1991
  508. X./test.rem(64): Trig = Sunday, 17 February, 1991
  509. XREM Tue 28 Jan 1992 MSG Tue 28 Jan 1992
  510. X./test.rem(65): Trig = Tuesday, 28 January, 1992
  511. X
  512. X# Try some Backs
  513. XCLEAR-OMIT-CONTEXT
  514. XREM 1 -1 OMIT sat sun MSG 1 -1 OMIT Sat Sun
  515. X./test.rem(69): Trig = Thursday, 28 February, 1991
  516. XREM 1 --1 OMIT sat sun MSG 1 --1 OMIT Sat Sun
  517. X./test.rem(70): Trig = Thursday, 28 February, 1991
  518. X
  519. XOMIT 28 Feb
  520. XREM 1 -1 OMIT sat sun MSG 1 -1 OMIT Sat Sun (28 Feb omitted)
  521. X./test.rem(73): Trig = Wednesday, 27 February, 1991
  522. XREM 1 --1 OMIT sat sun MSG 1 --1 OMIT Sat Sun (28 Feb omitted)
  523. X./test.rem(74): Trig = Thursday, 28 February, 1991
  524. X
  525. XCLEAR-OMIT-CONTEXT
  526. X
  527. X# Try out UNTIL
  528. XREM Wed UNTIL 21 Feb 1991 MSG Wed UNTIL 21 Feb 1991
  529. X./test.rem(79): Trig = Wednesday, 20 February, 1991
  530. X
  531. X# Try playing with the OMIT context
  532. X
  533. XOMIT 28 Feb 1991
  534. XREM 1 Mar -1 MSG 1 mar -1 (28feb91 omitted)
  535. X./test.rem(84): Trig = Wednesday, 27 February, 1991
  536. XREM 1 Mar --1 MSG 1 mar --1 (28Feb91 omitted)
  537. X./test.rem(85): Trig = Thursday, 28 February, 1991
  538. XREM 28 Feb BEFORE MSG 28 Feb BEFORE (28Feb91 omitted)
  539. X./test.rem(86): Trig = Wednesday, 27 February, 1991
  540. XREM 28 Feb SKIP MSG 28 Feb SKIP (28Feb91 omitted)
  541. X./test.rem(87): Trig = Friday, 28 February, 1992
  542. XREM 28 Feb AFTER MSG 28 Feb AFTER (28Feb91 omitted)
  543. X./test.rem(88): Trig = Friday, 1 March, 1991
  544. X
  545. XPUSH-OMIT-CONTEXT
  546. XCLEAR-OMIT-CONTEXT
  547. XREM 1 Mar -1 MSG 1 mar -1
  548. X./test.rem(92): Trig = Thursday, 28 February, 1991
  549. XREM 1 Mar --1 MSG 1 mar --1
  550. X./test.rem(93): Trig = Thursday, 28 February, 1991
  551. XREM 28 Feb BEFORE MSG 28 Feb BEFORE
  552. X./test.rem(94): Trig = Thursday, 28 February, 1991
  553. XREM 28 Feb SKIP MSG 28 Feb SKIP 
  554. X./test.rem(95): Trig = Thursday, 28 February, 1991
  555. XREM 28 Feb AFTER MSG 28 Feb AFTER
  556. X./test.rem(96): Trig = Thursday, 28 February, 1991
  557. X
  558. XPOP-OMIT-CONTEXT
  559. XREM 1 Mar -1 MSG 1 mar -1 (28feb91 omitted)
  560. X./test.rem(99): Trig = Wednesday, 27 February, 1991
  561. XREM 1 Mar --1 MSG 1 mar --1 (28Feb91 omitted)
  562. X./test.rem(100): Trig = Thursday, 28 February, 1991
  563. XREM 28 Feb BEFORE MSG 28 Feb BEFORE (28Feb91 omitted)
  564. X./test.rem(101): Trig = Wednesday, 27 February, 1991
  565. XREM 28 Feb SKIP MSG 28 Feb SKIP (28Feb91 omitted)
  566. X./test.rem(102): Trig = Friday, 28 February, 1992
  567. XREM 28 Feb AFTER MSG 28 Feb AFTER (28Feb91 omitted)
  568. X./test.rem(103): Trig = Friday, 1 March, 1991
  569. X
  570. X
  571. XREM 13 March 1991 *1 UNTIL 19 March 1991 MSG 13-19 Mar 91
  572. X./test.rem(106): Trig = Wednesday, 13 March, 1991
  573. X 
  574. X# Test BACK
  575. XCLEAR-OMIT-CONTEXT
  576. XREM 18 Feb 1991 +1 MSG 18 Feb 1991 +1
  577. X./test.rem(110): Trig = Monday, 18 February, 1991
  578. X
  579. XOMIT 17 Feb 1991
  580. XREM 18 Feb 1991 +1 MSG 18 Feb 1991 +1 (17Feb91 omitted)
  581. X./test.rem(113): Trig = Monday, 18 February, 1991
  582. X18 Feb 1991 +1 (17Feb91 omitted)
  583. X
  584. XREM 18 Feb 1991 ++1 MSG 18 Feb 1991 ++1 (17Feb91 omitted)
  585. X./test.rem(114): Trig = Monday, 18 February, 1991
  586. X
  587. XCLEAR-OMIT-CONTEXT
  588. Xset a000 abs(1)
  589. Xabs(1) => 1
  590. Xset a001 abs(-1)
  591. X- 1 => -1
  592. Xabs(-1) => 1
  593. Xset a002 asc("foo")
  594. Xasc("foo") => 102
  595. Xset a003 baseyr()
  596. Xbaseyr() => 1990
  597. Xset a004 char(66,55,66,77,66)
  598. Xchar(66, 55, 66, 77, 66) => "B7BMB"
  599. Xset a005 choose(3, "foo", "bar", "baz", "blech")
  600. Xchoose(3, "foo", "bar", "baz", "blech") => "baz"
  601. Xset a006 coerce("string", 1)
  602. Xcoerce("string", 1) => "1"
  603. Xset a007 coerce("string", today())
  604. Xtoday() => 1991/02/16
  605. Xcoerce("string", 1991/02/16) => "1991/02/16"
  606. Xset a008 coerce("string", 11:44)
  607. Xcoerce("string", 11:44) => "11:44"
  608. Xset a009 coerce("int", "badnews")
  609. Xcoerce("int", "badnews") => Can't coerce
  610. X./test.rem(126): Can't coerce
  611. Xset a010 coerce("int", "12")
  612. Xcoerce("int", "12") => 12
  613. Xset a011 coerce("int", 11:44)
  614. Xcoerce("int", 11:44) => 704
  615. Xset a012 coerce("int", today())
  616. Xtoday() => 1991/02/16
  617. Xcoerce("int", 1991/02/16) => 411
  618. Xset a013 date(1992, 2, 2)
  619. Xdate(1992, 2, 2) => 1992/02/02
  620. Xset a014 date(1993, 2, 29)
  621. Xdate(1993, 2, 29) => Bad date specification
  622. X./test.rem(131): Bad date specification
  623. Xset a015 day(today())
  624. Xtoday() => 1991/02/16
  625. Xday(1991/02/16) => 16
  626. Xset a016 daysinmon(2, 1991)
  627. Xdaysinmon(2, 1991) => 28
  628. Xset a017 daysinmon(2, 1992)
  629. Xdaysinmon(2, 1992) => 29
  630. Xset a018 defined("a017")
  631. Xdefined("a017") => 1
  632. Xset a019 defined("a019")
  633. Xdefined("a019") => 0
  634. Xset a020 filename()
  635. Xfilename() => "./test.rem"
  636. Xset a021 getenv("TEST_GETENV")
  637. Xgetenv("TEST_GETENV") => "foo bar baz"
  638. Xset a022 hour(11:22)
  639. Xhour(11:22) => 11
  640. Xset a023 iif(1, 1, 0)
  641. Xiif(1, 1, 0) => 1
  642. Xset a024 iif(0, 1, 0)
  643. Xiif(0, 1, 0) => 0
  644. Xset a025 index("barfoobar", "foo")
  645. Xindex("barfoobar", "foo") => 4
  646. Xset a026 index("barfoobar", "bar", 2)
  647. Xindex("barfoobar", "bar", 2) => 7
  648. Xset a027 isleap(today())
  649. Xtoday() => 1991/02/16
  650. Xisleap(1991/02/16) => 0
  651. Xset a028 isleap(1992)
  652. Xisleap(1992) => 1
  653. Xomit [trigger(today())]
  654. Xtoday() => 1991/02/16
  655. Xtrigger(1991/02/16) => "16 February 1991"
  656. Xset a030 isomitted(today())
  657. Xtoday() => 1991/02/16
  658. Xisomitted(1991/02/16) => 1
  659. Xclear
  660. Xset a029 isomitted(today())
  661. Xtoday() => 1991/02/16
  662. Xisomitted(1991/02/16) => 0
  663. Xset a031 lower("FOOBARBAZ")
  664. Xlower("FOOBARBAZ") => "foobarbaz"
  665. Xset a032 max(1, 2, 34, 1, 3)
  666. Xmax(1, 2, 34, 1, 3) => 34
  667. Xset a033 max("foo", "bar", "baz")
  668. Xmax("foo", "bar", "baz") => "foo"
  669. Xset a034 max(today(), today()+1, today()-1)
  670. Xtoday() => 1991/02/16
  671. Xtoday() => 1991/02/16
  672. X1991/02/16 + 1 => 1991/02/17
  673. Xtoday() => 1991/02/16
  674. X1991/02/16 - 1 => 1991/02/15
  675. Xmax(1991/02/16, 1991/02/17, 1991/02/15) => 1991/02/17
  676. Xset a035 min(1, 2, 34, 1, 3)
  677. Xmin(1, 2, 34, 1, 3) => 1
  678. Xset a036 min("foo", "bar", "baz")
  679. Xmin("foo", "bar", "baz") => "bar"
  680. Xset a037 min(today(), today()+1, today()-1)
  681. Xtoday() => 1991/02/16
  682. Xtoday() => 1991/02/16
  683. X1991/02/16 + 1 => 1991/02/17
  684. Xtoday() => 1991/02/16
  685. X1991/02/16 - 1 => 1991/02/15
  686. Xmin(1991/02/16, 1991/02/17, 1991/02/15) => 1991/02/15
  687. Xset a038 minute(11:33)
  688. Xminute(11:33) => 33
  689. Xset a039 mon(today())
  690. Xtoday() => 1991/02/16
  691. Xmon(1991/02/16) => "February"
  692. Xset a040 monnum(today())
  693. Xtoday() => 1991/02/16
  694. Xmonnum(1991/02/16) => 2
  695. Xset a041 ord(3)
  696. Xord(3) => "3rd"
  697. Xset a042 ord(4)
  698. Xord(4) => "4th"
  699. Xset a043 ostype()
  700. Xostype() => "UNIX"
  701. Xset a044 plural(2)
  702. Xplural(2) => "s"
  703. Xset a045 plural(2, "ies")
  704. Xplural(2, "ies") => "iess"
  705. Xset a046 plural(2, "y", "ies")
  706. Xplural(2, "y", "ies") => "ies"
  707. Xset a047 sgn(-2)
  708. X- 2 => -2
  709. Xsgn(-2) => -1
  710. Xset a048 shell("echo foo")
  711. Xshell("echo foo") => "foo"
  712. Xset a049 strlen("sadjflkhsldkfhsdlfjhk")
  713. Xstrlen("sadjflkhsldkfhsdlfjhk") => 21
  714. Xset a050 substr(a049, 2)
  715. Xa049 => 21
  716. Xsubstr(21, 2) => Type mismatch
  717. X./test.rem(169): Type mismatch
  718. Xset a051 substr(a050, 2, 6)
  719. Xa050 => ./test.rem(170): Undefined variable: a050
  720. Xset a052 time(1+2, 3+4)
  721. X1 + 2 => 3
  722. X3 + 4 => 7
  723. Xtime(3, 7) => 03:07
  724. Xrem 10 jan 1992 AT 11:22 CAL
  725. X./test.rem(172): Trig = Friday, 10 January, 1992
  726. Xset a053 trigdate()
  727. Xtrigdate() => 1992/01/10
  728. Xset a054 trigtime()
  729. Xtrigtime() => 11:22
  730. Xset a055 trigvalid()
  731. Xtrigvalid() => 1
  732. Xset a056 upper("sdfjhsdf ksjdfh kjsdfh ksjdfh")
  733. Xupper("sdfjhsdf ksjdfh kjsdfh ksjdfh") => "SDFJHSDF KSJDFH KJSDFH KSJDFH"
  734. Xset a057 value("a05"+"6")
  735. X"a05" + "6" => "a056"
  736. Xvalue("a056") => "SDFJHSDF KSJDFH KJSDFH KSJDFH"
  737. Xset a058 version()
  738. Xversion() => "03.00.00"
  739. Xset a059 wkday(today())
  740. Xtoday() => 1991/02/16
  741. Xwkday(1991/02/16) => "Saturday"
  742. Xset a060 wkdaynum(today())
  743. Xtoday() => 1991/02/16
  744. Xwkdaynum(1991/02/16) => 6
  745. Xset a061 year(today())
  746. Xtoday() => 1991/02/16
  747. Xyear(1991/02/16) => 1991
  748. Xset a062 1+2*(3+4-(5*7/2))
  749. X3 + 4 => 7
  750. X5 * 7 => 35
  751. X35 / 2 => 17
  752. X7 - 17 => -10
  753. X2 * -10 => -20
  754. X1 + -20 => -19
  755. Xset a063 1>=2
  756. X1 >= 2 => 0
  757. Xset a064 1<2 || 3 > 4
  758. X1 < 2 => 1
  759. X3 > 4 => 0
  760. X1 || 0 => 1
  761. Xset a065 1 && 1
  762. X1 && 1 => 1
  763. Xset a066 !a065
  764. Xa065 => 1
  765. X! 1 => 0
  766. Xset a067 typeof(2)
  767. Xtypeof(2) => "INT"
  768. Xset a068 typeof("foo")
  769. Xtypeof("foo") => "STRING"
  770. Xset a069 typeof(11:33)
  771. Xtypeof(11:33) => "TIME"
  772. Xset a070 typeof(today())
  773. Xtoday() => 1991/02/16
  774. Xtypeof(1991/02/16) => "DATE"
  775. Xfset g(x,y) max(x,y)
  776. Xfset h(x,y) min(g(x+y, x*y), g(x-y, x/y))
  777. Xset a071 g(1, 2)
  778. XUserFN g(1, 2)
  779. Xx => 1
  780. Xy => 2
  781. Xmax(1, 2) => 2
  782. XLeaving UserFN g() => 2
  783. Xset a072 h(2, 3)
  784. XUserFN h(2, 3)
  785. Xx => 2
  786. Xy => 3
  787. X2 + 3 => 5
  788. Xx => 2
  789. Xy => 3
  790. X2 * 3 => 6
  791. XUserFN g(5, 6)
  792. Xx => 5
  793. Xy => 6
  794. Xmax(5, 6) => 6
  795. XLeaving UserFN g() => 6
  796. Xx => 2
  797. Xy => 3
  798. X2 - 3 => -1
  799. Xx => 2
  800. Xy => 3
  801. X2 / 3 => 0
  802. XUserFN g(-1, 0)
  803. Xx => -1
  804. Xy => 0
  805. Xmax(-1, 0) => 0
  806. XLeaving UserFN g() => 0
  807. Xmin(6, 0) => 0
  808. XLeaving UserFN h() => 0
  809. Xset a073 h("foo", 11:33)
  810. XUserFN h("foo", 11:33)
  811. Xx => "foo"
  812. Xy => 11:33
  813. X"foo" + 11:33 => "foo11:33"
  814. Xx => "foo"
  815. Xy => 11:33
  816. X"foo" * 11:33 => Type mismatch
  817. X./test.rem(195): Operator '*' Type mismatch
  818. XLeaving UserFN h() => Type mismatch
  819. X
  820. X    Variable  Value
  821. X
  822. X        a017  29
  823. X        a036  "bar"
  824. X        a055  1
  825. X        a008  "11:44"
  826. X        a027  0
  827. X        a046  "ies"
  828. X        a065  1
  829. X        a018  1
  830. X        a037  1991/02/15
  831. X        a056  "SDFJHSDF KSJDFH KJSDFH KSJDFH"
  832. X        a028  1
  833. X        a047  -1
  834. X        a066  0
  835. X        a019  0
  836. X        a038  33
  837. X        a057  "SDFJHSDF KSJDFH KJSDFH KSJDFH"
  838. X        a029  0
  839. X        a048  "foo"
  840. X        a067  "INT"
  841. X        a039  "February"
  842. X        a058  "03.00.00"
  843. X        a049  21
  844. X        a068  "STRING"
  845. X        a059  "Saturday"
  846. X        a069  "TIME"
  847. X        a000  1
  848. X        a010  12
  849. X        a001  1
  850. X        a020  "./test.rem"
  851. X        a011  704
  852. X        a030  1
  853. X        a002  102
  854. X        a021  "foo bar baz"
  855. X        a040  2
  856. X        a012  411
  857. X        a031  "foobarbaz"
  858. X        a003  1990
  859. X        a022  11
  860. X        a041  "3rd"
  861. X        a060  6
  862. X        a013  1992/02/02
  863. X        a032  34
  864. X        a070  "DATE"
  865. X        a004  "B7BMB"
  866. X        a023  1
  867. X        a042  "4th"
  868. X        a061  1991
  869. X        a033  "foo"
  870. X        a052  03:07
  871. X        a071  2
  872. X        a005  "baz"
  873. X        a024  0
  874. X        a043  "UNIX"
  875. X        a062  -19
  876. X        a015  16
  877. X        a034  1991/02/17
  878. X        a053  1992/01/10
  879. X        a072  0
  880. X        a006  "1"
  881. X        a025  4
  882. X        a044  "s"
  883. X        a063  0
  884. X        a016  28
  885. X        a035  1
  886. X        a054  11:22
  887. X        a007  "1991/02/16"
  888. X        a026  7
  889. X        a045  "iess"
  890. X        a064  1
  891. SHAR_EOF
  892. $TOUCH -am 1109141292 test.cmp &&
  893. chmod 0600 test.cmp ||
  894. echo "restore of test.cmp failed"
  895. set `wc -c test.cmp`;Wc_c=$1
  896. if test "$Wc_c" != "12909"; then
  897.     echo original size 12909, current size $Wc_c
  898. fi
  899. fi
  900. # ============= makefile.tc ==============
  901. if test X"$1" != X"-c" -a -f 'makefile.tc'; then
  902.     echo "File already exists: skipping 'makefile.tc'"
  903. else
  904. echo "x - extracting makefile.tc (Text)"
  905. sed 's/^X//' << 'SHAR_EOF' > makefile.tc &&
  906. X# Makefile for REMIND for Turbo C for MSDOS
  907. X
  908. XVERSION= 03.00.00
  909. X
  910. XHDRS= config.h err.h expr.h globals.h protos.h types.h version.h
  911. X
  912. XSTDHDRS= config.h types.h protos.h globals.h err.h
  913. X
  914. XSRCS= calendar.c dorem.c dosubst.c expr.c files.c funcs.c globals.c init.c \
  915. Xmain.c omit.c token.c trigger.c userfns.c utils.c var.c
  916. X
  917. XOBJS=calendar.obj dorem.obj dosubst.obj expr.obj files.obj funcs.obj \
  918. Xglobals.obj init.obj main.obj omit.obj token.obj trigger.obj \
  919. Xutils.obj userfns.obj var.obj
  920. X
  921. XMANIFEST= readme.uni readme.dos copyrigh $(HDRS) $(SRCS) makefile rem rem.1 \
  922. Xremind.1 remind-a.csh remind-a.sh test.rem test-rem test.cmp makefile.tc \
  923. Xmakefile.msc lnk.msc lnk.tc manifest.dos manifest.unx whatsnew.30 kall kall.1
  924. X
  925. Xremind.exe: $(OBJS)
  926. X    tcc @lnk.tc
  927. X
  928. X.c.obj:
  929. X    tcc -A -w-pia -c -O -ms {$< }
  930. X
  931. Xcalendar.obj: calendar.c $(STDHDRS) expr.h
  932. X
  933. Xdorem.obj: dorem.c $(STDHDRS) expr.h
  934. X
  935. Xdosubst.obj: dosubst.c $(STDHDRS)
  936. X
  937. Xexpr.obj: expr.c $(STDHDRS) expr.h
  938. X
  939. Xfiles.obj: files.c $(STDHDRS)
  940. X
  941. Xfuncs.obj: funcs.c $(STDHDRS) expr.h version.h
  942. X
  943. Xglobals.obj: globals.c config.h types.h globals.h err.h
  944. X
  945. Xinit.obj: init.c $(STDHDRS) expr.h version.h
  946. X
  947. Xmain.obj: main.c $(STDHDRS) expr.h
  948. X
  949. Xomit.obj: omit.c $(STDHDRS)
  950. X
  951. Xtoken.obj: token.c $(STDHDRS)
  952. X
  953. Xtrigger.obj: trigger.c $(STDHDRS) expr.h
  954. X
  955. Xuserfns.obj: userfns.c $(STDHDRS) expr.h
  956. X
  957. Xutils.obj: utils.c $(STDHDRS)
  958. X
  959. Xvar.obj: var.c $(STDHDRS) expr.h
  960. X
  961. Xremind.zoo: $(MANIFEST)
  962. X    zoo aI remind.zoo < manifest.dos
  963. X
  964. SHAR_EOF
  965. $TOUCH -am 1109141292 makefile.tc &&
  966. chmod 0600 makefile.tc ||
  967. echo "restore of makefile.tc failed"
  968. set `wc -c makefile.tc`;Wc_c=$1
  969. if test "$Wc_c" != "1426"; then
  970.     echo original size 1426, current size $Wc_c
  971. fi
  972. fi
  973. # ============= makefile.msc ==============
  974. if test X"$1" != X"-c" -a -f 'makefile.msc'; then
  975.     echo "File already exists: skipping 'makefile.msc'"
  976. else
  977. echo "x - extracting makefile.msc (Text)"
  978. sed 's/^X//' << 'SHAR_EOF' > makefile.msc &&
  979. X# Makefile for REMIND for Microsoft C for MSDOS
  980. X
  981. XOBJS= calendar.obj dorem.obj dosubst.obj expr.obj files.obj funcs.obj \
  982. Xglobals.obj init.obj main.obj omit.obj token.obj trigger.obj userfns.obj \
  983. Xutils.obj var.obj
  984. X
  985. XDEFINES= /D__MSDOS__ /D__MSC__
  986. X
  987. XMODEL= /AS
  988. X
  989. Xcalendar.obj: calendar.c
  990. X    cl /c $(DEFINES) $(MODEL) /Focalendar.obj calendar.c
  991. X
  992. Xdorem.obj: dorem.c
  993. X    cl /c $(DEFINES) $(MODEL) /Fodorem.obj dorem.c
  994. X
  995. Xdosubst.obj: dosubst.c
  996. X    cl /c $(DEFINES) $(MODEL) /Fodosubst.obj dosubst.c
  997. X
  998. Xexpr.obj: expr.c
  999. X    cl /c $(DEFINES) $(MODEL) /Foexpr.obj expr.c
  1000. X
  1001. Xfiles.obj: files.c
  1002. X    cl /c $(DEFINES) $(MODEL) /Fofiles.obj files.c
  1003. X
  1004. Xfuncs.obj: funcs.c
  1005. X    cl /c $(DEFINES) $(MODEL) /Fofuncs.obj funcs.c
  1006. X
  1007. Xglobals.obj: globals.c
  1008. X    cl /c $(DEFINES) $(MODEL) /Foglobals.obj globals.c
  1009. X
  1010. Xinit.obj: init.c
  1011. X    cl /c $(DEFINES) $(MODEL) /Foinit.obj init.c
  1012. X
  1013. Xmain.obj: main.c
  1014. X    cl /c $(DEFINES) $(MODEL) /Fomain.obj main.c
  1015. X
  1016. Xomit.obj: omit.c
  1017. X    cl /c $(DEFINES) $(MODEL) /Foomit.obj omit.c
  1018. X
  1019. Xtoken.obj: token.c
  1020. X    cl /c $(DEFINES) $(MODEL) /Fotoken.obj token.c
  1021. X
  1022. Xtrigger.obj: trigger.c
  1023. X    cl /c $(DEFINES) $(MODEL) /Fotrigger.obj trigger.c
  1024. X
  1025. Xuserfns.obj: userfns.c
  1026. X    cl /c $(DEFINES) $(MODEL) /Fouserfns.obj userfns.c
  1027. X
  1028. Xutils.obj: utils.c
  1029. X    cl /c $(DEFINES) $(MODEL) /Foutils.obj utils.c
  1030. X
  1031. Xvar.obj: var.c
  1032. X    cl /c $(DEFINES) $(MODEL) /Fovar.obj var.c
  1033. X
  1034. Xremind.exe: $(OBJS)
  1035. X    link /NOI @lnk.msc
  1036. SHAR_EOF
  1037. $TOUCH -am 1109141292 makefile.msc &&
  1038. chmod 0600 makefile.msc ||
  1039. echo "restore of makefile.msc failed"
  1040. set `wc -c makefile.msc`;Wc_c=$1
  1041. if test "$Wc_c" != "1339"; then
  1042.     echo original size 1339, current size $Wc_c
  1043. fi
  1044. fi
  1045. # ============= lnk.msc ==============
  1046. if test X"$1" != X"-c" -a -f 'lnk.msc'; then
  1047.     echo "File already exists: skipping 'lnk.msc'"
  1048. else
  1049. echo "x - extracting lnk.msc (Text)"
  1050. sed 's/^X//' << 'SHAR_EOF' > lnk.msc &&
  1051. Xcalendar.obj +
  1052. Xdorem.obj +
  1053. Xdosubst.obj +
  1054. Xexpr.obj +
  1055. Xfiles.obj +
  1056. Xfuncs.obj +
  1057. Xglobals.obj +
  1058. Xinit.obj +
  1059. Xmain.obj +
  1060. Xomit.obj +
  1061. Xtoken.obj +
  1062. Xtrigger.obj +
  1063. Xuserfns.obj +
  1064. Xutils.obj +
  1065. Xvar.obj
  1066. Xremind.exe
  1067. Xnul
  1068. X
  1069. X
  1070. X
  1071. SHAR_EOF
  1072. $TOUCH -am 1109141292 lnk.msc &&
  1073. chmod 0600 lnk.msc ||
  1074. echo "restore of lnk.msc failed"
  1075. set `wc -c lnk.msc`;Wc_c=$1
  1076. if test "$Wc_c" != "201"; then
  1077.     echo original size 201, current size $Wc_c
  1078. fi
  1079. fi
  1080. # ============= lnk.tc ==============
  1081. if test X"$1" != X"-c" -a -f 'lnk.tc'; then
  1082.     echo "File already exists: skipping 'lnk.tc'"
  1083. else
  1084. echo "x - extracting lnk.tc (Text)"
  1085. sed 's/^X//' << 'SHAR_EOF' > lnk.tc &&
  1086. X-eremind.exe
  1087. Xcalendar.obj
  1088. Xdorem.obj
  1089. Xdosubst.obj
  1090. Xexpr.obj
  1091. Xfiles.obj
  1092. Xfuncs.obj
  1093. Xglobals.obj
  1094. Xinit.obj
  1095. Xmain.obj
  1096. Xomit.obj
  1097. Xtoken.obj
  1098. Xtrigger.obj
  1099. Xuserfns.obj
  1100. Xutils.obj
  1101. Xvar.obj
  1102. SHAR_EOF
  1103. $TOUCH -am 1109141292 lnk.tc &&
  1104. chmod 0600 lnk.tc ||
  1105. echo "restore of lnk.tc failed"
  1106. set `wc -c lnk.tc`;Wc_c=$1
  1107. if test "$Wc_c" != "168"; then
  1108.     echo original size 168, current size $Wc_c
  1109. fi
  1110. fi
  1111. # ============= MANIFEST.UNX ==============
  1112. if test X"$1" != X"-c" -a -f 'MANIFEST.UNX'; then
  1113.     echo "File already exists: skipping 'MANIFEST.UNX'"
  1114. else
  1115. echo "x - extracting MANIFEST.UNX (Text)"
  1116. sed 's/^X//' << 'SHAR_EOF' > MANIFEST.UNX &&
  1117. Xcalendar.c
  1118. Xconfig.h
  1119. XCOPYRIGHT
  1120. Xdorem.c
  1121. Xdosubst.c
  1122. Xerr.h
  1123. Xexpr.c
  1124. Xexpr.h
  1125. Xfiles.c
  1126. Xfuncs.c
  1127. Xglobals.c
  1128. Xglobals.h
  1129. Xinit.c
  1130. Xkall
  1131. Xkall.1
  1132. Xlnk.msc
  1133. Xlnk.tc
  1134. Xmain.c
  1135. XMakefile
  1136. Xmakefile.msc
  1137. Xmakefile.tc
  1138. XMANIFEST.DOS
  1139. XMANIFEST.UNX
  1140. Xomit.c
  1141. Xprotos.h
  1142. Xqueue.c
  1143. XREADME.DOS
  1144. XREADME.UNIX
  1145. Xrem
  1146. Xrem.1
  1147. Xremind-all.csh
  1148. Xremind-all.sh
  1149. Xremind.1
  1150. Xtest-rem
  1151. Xtest.cmp
  1152. Xtest.rem
  1153. Xtoken.c
  1154. Xtrigger.c
  1155. Xtypes.h
  1156. Xuserfns.c
  1157. Xutils.c
  1158. Xvar.c
  1159. Xversion.h
  1160. XWHATSNEW.30
  1161. SHAR_EOF
  1162. $TOUCH -am 1109141292 MANIFEST.UNX &&
  1163. chmod 0600 MANIFEST.UNX ||
  1164. echo "restore of MANIFEST.UNX failed"
  1165. set `wc -c MANIFEST.UNX`;Wc_c=$1
  1166. if test "$Wc_c" != "399"; then
  1167.     echo original size 399, current size $Wc_c
  1168. fi
  1169. fi
  1170. # ============= MANIFEST.DOS ==============
  1171. if test X"$1" != X"-c" -a -f 'MANIFEST.DOS'; then
  1172.     echo "File already exists: skipping 'MANIFEST.DOS'"
  1173. else
  1174. echo "x - extracting MANIFEST.DOS (Text)"
  1175. sed 's/^X//' << 'SHAR_EOF' > MANIFEST.DOS &&
  1176. Xcalendar.c
  1177. Xconfig.h
  1178. Xcopyrigh
  1179. Xdorem.c
  1180. Xdosubst.c
  1181. Xerr.h
  1182. Xexpr.c
  1183. Xexpr.h
  1184. Xfiles.c
  1185. Xfuncs.c
  1186. Xglobals.c
  1187. Xglobals.h
  1188. Xinit.c
  1189. Xkall
  1190. Xkall.1
  1191. Xlnk.msc
  1192. Xlnk.tc
  1193. Xmain.c
  1194. Xmakefile
  1195. Xmakefile.msc
  1196. Xmakefile.tc
  1197. Xmanifest.dos
  1198. Xmanifest.unx
  1199. Xomit.c
  1200. Xprotos.h
  1201. Xqueue.c
  1202. Xreadme.dos
  1203. Xreadme.uni
  1204. Xrem
  1205. Xrem.1
  1206. Xremind-a.csh
  1207. Xremind-a.sh
  1208. Xremind.1
  1209. Xtest-rem
  1210. Xtest.cmp
  1211. Xtest.rem
  1212. Xtoken.c
  1213. Xtrigger.c
  1214. Xtypes.h
  1215. Xuserfns.c
  1216. Xutils.c
  1217. Xvar.c
  1218. Xversion.h
  1219. Xwhatsnew.30
  1220. SHAR_EOF
  1221. $TOUCH -am 1109141292 MANIFEST.DOS &&
  1222. chmod 0600 MANIFEST.DOS ||
  1223. echo "restore of MANIFEST.DOS failed"
  1224. set `wc -c MANIFEST.DOS`;Wc_c=$1
  1225. if test "$Wc_c" != "393"; then
  1226.     echo original size 393, current size $Wc_c
  1227. fi
  1228. fi
  1229. # ============= WHATSNEW.30 ==============
  1230. if test X"$1" != X"-c" -a -f 'WHATSNEW.30'; then
  1231.     echo "File already exists: skipping 'WHATSNEW.30'"
  1232. else
  1233. echo "x - extracting WHATSNEW.30 (Text)"
  1234. sed 's/^X//' << 'SHAR_EOF' > WHATSNEW.30 &&
  1235. XCHANGES TO REMIND
  1236. X
  1237. X* Version 3.0
  1238. X
  1239. X- Total rewrite from previous versions
  1240. X
  1241. X- Added variables, expressions, flow-control statements, daemon mode
  1242. X
  1243. X- Added "expression pasting"
  1244. X
  1245. X- Added CAL-type reminders
  1246. X
  1247. X- Added the SATISFY clause
  1248. X
  1249. X- Improved debugging of reminder scripts
  1250. X
  1251. X- Took out the "purge" option - it is in general too dificult to tell when
  1252. X  a reminder has expired for good, so now it's up to you to do this
  1253. X  by hand.
  1254. X
  1255. X- Fixed a lurking bug in trigger date calculation which, amazingly, had not
  1256. X  been caught in the couple of years that Remind has been out!
  1257. X
  1258. X* Version 2.4 Patch 5 - Added the "c+n" option for printing a calendar by
  1259. Xweeks instead of months, courtesy Dennis Cottel (dennis@peanuts.nosc.mil).
  1260. X
  1261. X* Version 2.3 Patch 4 - Made the init.c file nicer.  Made the Makefile
  1262. Xprettier.  Added "make test", "make tar" and "make shar" Makefile targets.
  1263. X
  1264. X* Version 2.3 Patch 3 - Added a command-line option for Remind to process
  1265. Xqueued reminders in the foreground.  This makes automatic termination
  1266. Xof Remind processes from within X-Windows and Sunview easier.
  1267. X
  1268. X* Version 2.3 Patch 2 - Fixed up a problem with timed reminders which resulted
  1269. Xin cursor not starting from left side of screen on some systems.
  1270. X
  1271. XFixed the SIGINT handler for SYSV systems - this was interrupting the
  1272. Xsleep(2) system call.
  1273. X
  1274. XClosed stdin and stdout if remind was part of a pipe - this prevents other
  1275. Xsections of the pipe from hanging as remind puts itself in the background.
  1276. X
  1277. XAdded the "-h" (Hush mode) option
  1278. X
  1279. XAdded the "%#" and "%@" modifiers for the current time.
  1280. X
  1281. XMade the Makefile more portable
  1282. X
  1283. X* Version 2.3 Patch 1 - Added the "-t" command-line option to get Remind
  1284. Xto trigger all non-expired reminders.
  1285. X
  1286. XAdded Turbo C support courtesy of Rhys Weatherly
  1287. X
  1288. XAdded the "RUN ON" and "RUN OFF" commands for a secure interface with
  1289. Xthe Elm mail system.
  1290. X
  1291. XAdded the "rem" shell script for running Remind with a default script.
  1292. X
  1293. XAdded manual pages for "kall" and "rem".
  1294. X
  1295. X* Version 2.3 - Added the UNTIL keyword for forcing reminders to expire.
  1296. X
  1297. XAdded the "++" form of 'back' and the "--" form of 'delta' for
  1298. Xignoring OMIT information.
  1299. X
  1300. XAdded the CLEAR-OMIT-CONTEXT, PUSH-OMIT-CONTEXT and POP-OMIT-CONTEXT
  1301. Xkeywords for isolating personal or peculiar reminders from the global
  1302. XOMIT context.
  1303. X
  1304. XSpeeded up the parsing of tokens.
  1305. X
  1306. XChanged the source to recognize and exploit ANSI-C compilers which
  1307. Xaccept function prototypes.
  1308. X
  1309. XAdded the "-n" option to output the next occurrence of each reminder
  1310. Xin SimpleCalendar format
  1311. X
  1312. XModified the calendar and SimpleCalendar formats so that the % escape
  1313. Xsubstitutions ARE performed.
  1314. X
  1315. X* Version 2.2 - Patch 5 - Added the BEFORE, AFTER and SKIP tokens to make the
  1316. Xhandling of holidays more sensible.  Also corrected a few more bugs.
  1317. X
  1318. X* Version 2.2 - Patch 3  - Added the MSG or RUN tokens in an OMIT command; also
  1319. Xallowed RUN-type reminders to be explicitly included in the calendar by
  1320. Xusing the %" escape sequence.
  1321. X
  1322. X* Version 2.2 - Added the AT keyword, the timed reminders daemon, and the
  1323. Xcalendar facility.
  1324. X
  1325. X* Version 2.1 - Added the "repeat" token for repeating reminders with a period
  1326. Xother than 7 days.  Also fixed some bugs from version 2.0
  1327. X
  1328. X* Version 2.0 - first public release.  Included advanced date specifications,
  1329. Xcharacter substitution, and the RUN keyword.
  1330. X
  1331. X* Version 1.0 - never publicly released.
  1332. X
  1333. X
  1334. X
  1335. SHAR_EOF
  1336. $TOUCH -am 1109141292 WHATSNEW.30 &&
  1337. chmod 0600 WHATSNEW.30 ||
  1338. echo "restore of WHATSNEW.30 failed"
  1339. set `wc -c WHATSNEW.30`;Wc_c=$1
  1340. if test "$Wc_c" != "3329"; then
  1341.     echo original size 3329, current size $Wc_c
  1342. fi
  1343. fi
  1344. # ============= kall ==============
  1345. if test X"$1" != X"-c" -a -f 'kall'; then
  1346.     echo "File already exists: skipping 'kall'"
  1347. else
  1348. echo "x - extracting kall (Text)"
  1349. sed 's/^X//' << 'SHAR_EOF' > kall &&
  1350. X#!/bin/sh
  1351. X#
  1352. X# kall - kill all processes belonging to this user that match
  1353. X#           specified string.
  1354. X
  1355. Xsignal=`echo $1 | grep '^\-.*'`
  1356. Xme=`basename $0`
  1357. X
  1358. Xif [ "$signal" != "" ]; then
  1359. X    shift
  1360. Xelse
  1361. X    signal="-TERM"
  1362. Xfi
  1363. X
  1364. Xif [ "$1" = "" ]; then
  1365. X    echo "usage: $me [-signal] string [string...]"
  1366. X    echo "       kills all of your processes where command name matches"
  1367. X    echo "       any of the given strings."
  1368. X    exit
  1369. Xfi
  1370. X
  1371. Xmsg="0"
  1372. X
  1373. Xwhile [ "$1" != "" ]; do
  1374. X
  1375. X# NOTE:  You may have to modify the next line, since PS is non-portable.
  1376. X# The 'awk' command picks out the process IDs to pass them on to kill.
  1377. X    rprocs=`ps cx | awk '{if(prog == $NF) print $1}' prog=$1 -`
  1378. X    if [ "$rprocs" != "" ]; then
  1379. X        msg="1"
  1380. X        echo -n "${me}: Sending $signal signal to $1 process(es)"
  1381. X        echo '...'
  1382. X        kill $signal $rprocs
  1383. X    fi
  1384. X    shift
  1385. Xdone
  1386. X
  1387. Xif [ $msg = "1" ]; then
  1388. X    echo "${me}: Done."
  1389. Xfi
  1390. SHAR_EOF
  1391. $TOUCH -am 1109141292 kall &&
  1392. chmod 0700 kall ||
  1393. echo "restore of kall failed"
  1394. set `wc -c kall`;Wc_c=$1
  1395. if test "$Wc_c" != "852"; then
  1396.     echo original size 852, current size $Wc_c
  1397. fi
  1398. fi
  1399. # ============= kall.1 ==============
  1400. if test X"$1" != X"-c" -a -f 'kall.1'; then
  1401.     echo "File already exists: skipping 'kall.1'"
  1402. else
  1403. echo "x - extracting kall.1 (Text)"
  1404. sed 's/^X//' << 'SHAR_EOF' > kall.1 &&
  1405. X.TH KALL 1 "26 February 1991"
  1406. X.UC 4
  1407. X.SH NAME
  1408. Xkall \- kill processes by command name
  1409. X.SH SYNOPSIS
  1410. X.B kall
  1411. X[\-\fIsignal\fR] prog1 [prog2...]
  1412. X.SH DESCRIPTION
  1413. X.B Kall
  1414. Xsends the specified \fIsignal\fR (defaults to \fB-TERM\fR) to all processes
  1415. Xwhose command name is specified on the command line.  For example:
  1416. X.PP
  1417. X.nf
  1418. X    kall -HUP remind foobar
  1419. X.fi
  1420. X.PP
  1421. Xsends a \fBHUP\fR signal to all \fIremind\fR and \fIfoobar\fR programs.
  1422. XNote that \fBkall\fR sends signals only to those processes owned by the
  1423. Xuser invoking \fBkall\fR.
  1424. X.SH AUTHOR
  1425. XDavid F. Skoll
  1426. X.SH BUGS
  1427. X.B Kall
  1428. Xis a sh(1) script and depends on the behaviour of ps(1); thus, it is
  1429. Xnot especially portable.
  1430. X.SH SEE ALSO
  1431. Xremind, rem
  1432. SHAR_EOF
  1433. $TOUCH -am 1109141292 kall.1 &&
  1434. chmod 0600 kall.1 ||
  1435. echo "restore of kall.1 failed"
  1436. set `wc -c kall.1`;Wc_c=$1
  1437. if test "$Wc_c" != "679"; then
  1438.     echo original size 679, current size $Wc_c
  1439. fi
  1440. fi
  1441. exit 0
  1442.  
  1443. exit 0 # Just in case...
  1444.