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