home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / misc / volume13 / faces-1.4.5 / part06 < prev    next >
Text File  |  1990-07-02  |  37KB  |  1,503 lines
  1. Newsgroups: comp.sources.misc
  2. subject: v13i075: Faces v1.4.5: a visual list monitor for mail etc.. (Part 6 of 7).
  3. from: rburridge@Sun.COM (Rich Burridge)
  4. Sender: allbery@uunet.UU.NET (Brandon S. Allbery - comp.sources.misc)
  5.  
  6. Posting-number: Volume 13, Issue 75
  7. Submitted-by: rburridge@Sun.COM (Rich Burridge)
  8. Archive-name: faces-1.4.5/part06
  9.  
  10. ------CUT HERE------faces.part6------CUT HERE------
  11. #! /bin/sh
  12. # this is a shell archive, meaning:
  13. # 1. Remove everything above the #! /bin/sh line
  14. # 2. Save the resulting text in a file.
  15. # 3. Execute the file with /bin/sh to create the files:
  16. #    facedir (directory)
  17. #    filters (directory)
  18. # This archive created: Fri Jun 29 11:24:21 EST 1990
  19. #
  20. #
  21. export PATH; PATH=/bin:$PATH
  22. #
  23. if [ -f facedir ]
  24. then
  25. echo shar: can not write a directory over file facedir
  26. else
  27. if [ ! -d facedir ]
  28. then
  29. echo shar: creating directory facedir
  30. mkdir facedir
  31. fi
  32. echo shar: entering directory facedir
  33. cd facedir
  34. if [ -f facedir ]
  35. then
  36. echo shar: can not write a directory over file facedir
  37. else
  38. if [ ! -d facedir ]
  39. then
  40. echo shar: creating directory facedir
  41. mkdir facedir
  42. fi
  43. echo shar: entering directory facedir
  44. cd facedir
  45. if [ -f machine.tab ]
  46. then
  47. echo shar: will not over-write existing file machine.tab
  48. else
  49. echo shar: extracting 'machine.tab',      398 characters
  50. cat > machine.tab <<'Funky_Stuff'
  51. stard=sunaus
  52. extra=sunaus
  53. sunchat=sunaus
  54. garfield=sunaus
  55. tom=sunaus
  56. felix=sunaus
  57. sunk=sunaus
  58. sunsa=sunaus
  59. misaus=sunaus
  60. maverick=sunaus
  61. misaus1=sunaus
  62. nimbin=sunaus
  63. redgum=sunaus
  64. palette=sunaus
  65. sunwa=sunaus
  66. sunact=sunaus
  67. demo386=sunaus
  68. basset=basser
  69. castor.cs.su.oz=basser
  70. cluster.cs.su.oz=basser
  71. orwell=basser
  72. sarad=basser
  73. sasha=basser
  74. sunrise=basser
  75. gris=softway
  76. softway.sw.oz=softway
  77. arakis=sun
  78. Funky_Stuff
  79. len=`wc -c < machine.tab`
  80. if [ $len !=      398 ] ; then
  81. echo error: machine.tab was $len bytes long, should have been      398
  82. fi
  83. fi # end of overwriting check
  84. if [ -f misc. ]
  85. then
  86. echo shar: can not write a directory over file misc.
  87. else
  88. if [ ! -d misc. ]
  89. then
  90. echo shar: creating directory misc.
  91. mkdir misc.
  92. fi
  93. echo shar: entering directory misc.
  94. cd misc.
  95. if [ -f acsnet ]
  96. then
  97. echo shar: can not write a directory over file acsnet
  98. else
  99. if [ ! -d acsnet ]
  100. then
  101. echo shar: creating directory acsnet
  102. mkdir acsnet
  103. fi
  104. echo shar: entering directory acsnet
  105. cd acsnet
  106. if [ -f 48x48x1 ]
  107. then
  108. echo shar: will not over-write existing file 48x48x1
  109. else
  110. echo shar: extracting '48x48x1',     1056 characters
  111. cat > 48x48x1 <<'Funky_Stuff'
  112. 0x0008,0x6000,0x0000,
  113. 0x000C,0x5000,0x0000,
  114. 0x000A,0x4800,0x0000,
  115. 0x000D,0x5400,0x0000,
  116. 0x000A,0xDA00,0x0000,
  117. 0x0005,0x5A00,0x0000,
  118. 0x0002,0xAA00,0x0000,
  119. 0x0001,0x7400,0x0000,
  120. 0x0003,0xE400,0x0000,
  121. 0x0006,0x2600,0x0000,
  122. 0x00FC,0x0A00,0x0000,
  123. 0x0301,0x0600,0x0000,
  124. 0x0700,0x0A00,0x0000,
  125. 0x06C0,0x1600,0x0000,
  126. 0x0300,0x0C00,0x0000,
  127. 0x01FF,0x9400,0x0000,
  128. 0x0001,0xA800,0x0000,
  129. 0x0003,0x1800,0x0000,
  130. 0x0002,0x3000,0x0000,
  131. 0x0006,0x6000,0x0000,
  132. 0x000C,0xA000,0x0000,
  133. 0x0008,0x6000,0x0000,
  134. 0x0018,0xA000,0x0000,
  135. 0x0010,0x6000,0x0000,
  136. 0x03F0,0x2000,0x0000,
  137. 0x0607,0x5000,0x0000,
  138. 0x043C,0x5000,0x0000,
  139. 0x0561,0xD800,0x0000,
  140. 0x076A,0x0800,0x0000,
  141. 0x03EA,0x1400,0x0000,
  142. 0x003E,0x0C00,0x0000,
  143. 0x0010,0x1600,0x0000,
  144. 0x0070,0x0B00,0x0000,
  145. 0x01F0,0x0580,0x0000,
  146. 0x01FF,0x02C0,0x0000,
  147. 0x01F8,0x7160,0x0000,
  148. 0x0080,0xFAB0,0x0000,
  149. 0x00C1,0x8158,0x0000,
  150. 0x0063,0x00AC,0x0000,
  151. 0x003B,0x0056,0x0000,
  152. 0x003E,0x002B,0x0000,
  153. 0x002B,0x0015,0x8000,
  154. 0x0035,0x0002,0xC007,
  155. 0x001B,0x8001,0x600D,
  156. 0x7FF5,0x80C0,0xBFF9,
  157. 0xAFFF,0x80E0,0x5543,
  158. 0xFA00,0x00F8,0x001E,
  159. 0x1FFF,0xFFCF,0xFFF0,
  160. Funky_Stuff
  161. len=`wc -c < 48x48x1`
  162. if [ $len !=     1056 ] ; then
  163. echo error: 48x48x1 was $len bytes long, should have been     1056
  164. fi
  165. fi # end of overwriting check
  166. cd ..
  167. echo shar: done with directory acsnet
  168. fi
  169. if [ -f adm ]
  170. then
  171. echo shar: can not write a directory over file adm
  172. else
  173. if [ ! -d adm ]
  174. then
  175. echo shar: creating directory adm
  176. mkdir adm
  177. fi
  178. echo shar: entering directory adm
  179. cd adm
  180. if [ -f 48x48x1 ]
  181. then
  182. echo shar: will not over-write existing file 48x48x1
  183. else
  184. echo shar: extracting '48x48x1',     1056 characters
  185. cat > 48x48x1 <<'Funky_Stuff'
  186. 0x01FF,0xF801,0xFFF0,
  187. 0x0200,0x17E2,0x0020,
  188. 0x0400,0x2844,0x0050,
  189. 0x0800,0x50BF,0xFFA0,
  190. 0x1000,0xA940,0x0250,
  191. 0x2001,0x5280,0x05A0,
  192. 0x7FFE,0xAD00,0x0A50,
  193. 0x0001,0x5200,0x15F8,
  194. 0x7FFE,0xAC00,0x2A10,
  195. 0x0001,0x57FF,0xD528,
  196. 0x7FFE,0xA801,0x2A50,
  197. 0x0001,0x5002,0xD5A8,
  198. 0x7FFE,0xA805,0x2A50,
  199. 0x0001,0x500A,0xD5A8,
  200. 0x7FFE,0xA815,0x2A50,
  201. 0x0001,0x57EA,0xD5A8,
  202. 0x7FFE,0xA815,0x2A50,
  203. 0x0001,0x57EA,0xD5A8,
  204. 0x7FFE,0xA815,0x2A50,
  205. 0x0001,0x57EA,0xD5A8,
  206. 0x7FFE,0xA815,0x2A50,
  207. 0x0001,0x57EA,0xD5A8,
  208. 0x7FFE,0xA815,0x2A50,
  209. 0x0001,0x57EA,0xD5A8,
  210. 0x7FFE,0xA815,0x2A50,
  211. 0x0001,0x57EA,0xD5A0,
  212. 0x7FFE,0xA815,0x2A40,
  213. 0x0001,0x57EA,0xD580,
  214. 0x7FFE,0xA815,0x2A00,
  215. 0x0001,0x57EA,0xD400,
  216. 0x7FFE,0xA815,0xFFF8,
  217. 0x0001,0x57EA,0x0010,
  218. 0x7FFE,0xA814,0x0028,
  219. 0x0001,0x57E8,0x0057,
  220. 0x7FFE,0xAB10,0x00AB,
  221. 0x0001,0x55E0,0x0155,
  222. 0x7FFE,0xA97F,0xFEA9,
  223. 0x0001,0x5180,0x0151,
  224. 0x7FFE,0xA17F,0xFEA1,
  225. 0x0001,0x4200,0x0142,
  226. 0xFFFF,0x84FF,0xFF84,
  227. 0x8000,0x8880,0x0088,
  228. 0x8520,0x9099,0x2E90,
  229. 0x85A0,0xA0A5,0x24A0,
  230. 0x8560,0xC0A5,0x24C0,
  231. 0x8520,0x8098,0xC480,
  232. 0x4001,0x0040,0x0100,
  233. 0x3FFE,0x003F,0xFE00,
  234. Funky_Stuff
  235. len=`wc -c < 48x48x1`
  236. if [ $len !=     1056 ] ; then
  237. echo error: 48x48x1 was $len bytes long, should have been     1056
  238. fi
  239. fi # end of overwriting check
  240. cd ..
  241. echo shar: done with directory adm
  242. fi
  243. if [ -f bin ]
  244. then
  245. echo shar: can not write a directory over file bin
  246. else
  247. if [ ! -d bin ]
  248. then
  249. echo shar: creating directory bin
  250. mkdir bin
  251. fi
  252. echo shar: entering directory bin
  253. cd bin
  254. if [ -f 48x48x1 ]
  255. then
  256. echo shar: will not over-write existing file 48x48x1
  257. else
  258. echo shar: extracting '48x48x1',     1056 characters
  259. cat > 48x48x1 <<'Funky_Stuff'
  260. 0x0000,0x0000,0x0000,
  261. 0x0000,0x0000,0x0000,
  262. 0x0000,0x0000,0x0000,
  263. 0x0000,0x0000,0x0000,
  264. 0x0000,0x0000,0x0000,
  265. 0x0000,0x0000,0x0000,
  266. 0x0000,0x0000,0x0000,
  267. 0x0000,0x0000,0x0000,
  268. 0x0000,0x0000,0x0000,
  269. 0x0046,0x230C,0x4600,
  270. 0x0049,0x2492,0x4900,
  271. 0x0049,0x2492,0x4900,
  272. 0x0049,0x2492,0x4900,
  273. 0x0046,0x230C,0x4600,
  274. 0x0000,0x0000,0x0000,
  275. 0x0031,0x1862,0x3100,
  276. 0x0049,0x2492,0x4900,
  277. 0x0049,0x2492,0x4900,
  278. 0x0049,0x2492,0x4900,
  279. 0x0031,0x1862,0x3100,
  280. 0x0000,0x0000,0x0000,
  281. 0x0048,0xC48C,0x3100,
  282. 0x0049,0x2492,0x4900,
  283. 0x0049,0x2492,0x4900,
  284. 0x0049,0x2492,0x4900,
  285. 0x0048,0xC48C,0x3100,
  286. 0x0000,0x0000,0x0000,
  287. 0x0031,0x230C,0x4600,
  288. 0x0049,0x2492,0x4900,
  289. 0x0049,0x2492,0x4900,
  290. 0x0049,0x2492,0x4900,
  291. 0x0031,0x230C,0x4600,
  292. 0x0000,0x0000,0x0000,
  293. 0x0046,0x2462,0x3100,
  294. 0x0049,0x2492,0x4900,
  295. 0x0049,0x2492,0x4900,
  296. 0x0049,0x2492,0x4900,
  297. 0x0046,0x2462,0x3100,
  298. 0x0000,0x0000,0x0000,
  299. 0x0000,0x0000,0x0000,
  300. 0x0000,0x0000,0x0000,
  301. 0x0000,0x0000,0x0000,
  302. 0x0000,0x0000,0x0000,
  303. 0x0000,0x0000,0x0000,
  304. 0x0000,0x0000,0x0000,
  305. 0x0000,0x0000,0x0000,
  306. 0x0000,0x0000,0x0000,
  307. 0x0000,0x0000,0x0000,
  308. Funky_Stuff
  309. len=`wc -c < 48x48x1`
  310. if [ $len !=     1056 ] ; then
  311. echo error: 48x48x1 was $len bytes long, should have been     1056
  312. fi
  313. fi # end of overwriting check
  314. cd ..
  315. echo shar: done with directory bin
  316. fi
  317. if [ -f daemon ]
  318. then
  319. echo shar: can not write a directory over file daemon
  320. else
  321. if [ ! -d daemon ]
  322. then
  323. echo shar: creating directory daemon
  324. mkdir daemon
  325. fi
  326. echo shar: entering directory daemon
  327. cd daemon
  328. if [ -f 48x48x1 ]
  329. then
  330. echo shar: will not over-write existing file 48x48x1
  331. else
  332. echo shar: extracting '48x48x1',     1056 characters
  333. cat > 48x48x1 <<'Funky_Stuff'
  334. 0x0000,0x0000,0x0000,
  335. 0x0000,0x0000,0x0000,
  336. 0x0000,0x0000,0x0000,
  337. 0x0000,0x0000,0x0000,
  338. 0x0000,0x0000,0x0000,
  339. 0x0000,0x0000,0x0000,
  340. 0x0000,0x0000,0x0000,
  341. 0x0000,0x0000,0x0000,
  342. 0x0000,0x0000,0x0000,
  343. 0x0000,0x0000,0x0000,
  344. 0x0000,0x0440,0x0000,
  345. 0x0000,0x0820,0x0000,
  346. 0x0000,0x0820,0x0000,
  347. 0x0000,0x0C60,0x1000,
  348. 0x0000,0x0FE0,0x3800,
  349. 0x0000,0x07C0,0x3800,
  350. 0x0004,0x0540,0x7C00,
  351. 0x0014,0x07C0,0x1000,
  352. 0x0054,0x0380,0x1000,
  353. 0x0054,0x03C0,0x1000,
  354. 0x0058,0x07E0,0x1000,
  355. 0x0068,0x0FE1,0xA000,
  356. 0x0008,0x1FF2,0x6000,
  357. 0x000F,0xFFF2,0x2000,
  358. 0x000F,0xF7FA,0x6000,
  359. 0x0004,0x07D9,0xE000,
  360. 0x0002,0x07D8,0x2000,
  361. 0x0002,0x07D8,0x2000,
  362. 0x0002,0x07D8,0x4000,
  363. 0x0001,0x07F8,0x4000,
  364. 0x0001,0x07F0,0x8000,
  365. 0x0001,0x0FEF,0x0000,
  366. 0x0000,0x8FE0,0x0000,
  367. 0x0000,0x9EC0,0x0000,
  368. 0x0000,0x9CC0,0x0000,
  369. 0x0000,0x58E0,0x0000,
  370. 0x0000,0x4C60,0x0000,
  371. 0x0000,0x4420,0x0000,
  372. 0x0000,0x0C60,0x0000,
  373. 0x0000,0x1CE0,0x0000,
  374. 0x0000,0x0000,0x0000,
  375. 0x0000,0x0000,0x0000,
  376. 0x0000,0x0000,0x0000,
  377. 0x0000,0x0000,0x0000,
  378. 0x0000,0x0000,0x0000,
  379. 0x0000,0x0000,0x0000,
  380. 0x0000,0x0000,0x0000,
  381. 0x0000,0x0000,0x0000,
  382. Funky_Stuff
  383. len=`wc -c < 48x48x1`
  384. if [ $len !=     1056 ] ; then
  385. echo error: 48x48x1 was $len bytes long, should have been     1056
  386. fi
  387. fi # end of overwriting check
  388. cd ..
  389. echo shar: done with directory daemon
  390. fi
  391. if [ -f mailer-daemon ]
  392. then
  393. echo shar: can not write a directory over file mailer-daemon
  394. else
  395. if [ ! -d mailer-daemon ]
  396. then
  397. echo shar: creating directory mailer-daemon
  398. mkdir mailer-daemon
  399. fi
  400. echo shar: entering directory mailer-daemon
  401. cd mailer-daemon
  402. if [ -f 48x48x1 ]
  403. then
  404. echo shar: will not over-write existing file 48x48x1
  405. else
  406. echo shar: extracting '48x48x1',     1056 characters
  407. cat > 48x48x1 <<'Funky_Stuff'
  408. 0x0001,0xFFFF,0xFFC0,
  409. 0x0002,0xB000,0x0030,
  410. 0x0003,0x5800,0x0008,
  411. 0x0006,0xADFF,0xFFC8,
  412. 0x0005,0x54FF,0xFFE4,
  413. 0x000A,0xAAF7,0xFDF2,
  414. 0x020D,0x5673,0xF9F2,
  415. 0x060A,0xAA61,0xF0FA,
  416. 0x0E0D,0x5568,0xE8F9,
  417. 0x1E0A,0xAB71,0xF1F9,
  418. 0x0E0D,0x557F,0xFFF9,
  419. 0x0A0A,0xAB3F,0xFFF1,
  420. 0x080D,0x5500,0x0001,
  421. 0x080A,0xAB00,0x0001,
  422. 0x080D,0x5500,0x9E01,
  423. 0x0DEA,0xAB03,0x9F81,
  424. 0x073D,0x5507,0x83C1,
  425. 0x001A,0xAB0F,0x81E1,
  426. 0x001D,0x551F,0x80F1,
  427. 0x000A,0xAB1F,0x80F1,
  428. 0x000D,0x553F,0x80F9,
  429. 0x000A,0xAB3F,0x80F9,
  430. 0x000D,0x553F,0x80F9,
  431. 0x000A,0xAB3F,0x80F9,
  432. 0x0FFD,0x553F,0x81F9,
  433. 0x3FFA,0xAB3F,0x83F9,
  434. 0x7FFD,0x553F,0x9FF9,
  435. 0xFFFA,0xAB3F,0x9FF9,
  436. 0xFFFD,0x551F,0x9FF1,
  437. 0xFFFA,0xAB1F,0x9FF1,
  438. 0xFFFD,0x550F,0x9FE1,
  439. 0xFFFA,0xAB07,0x9FC1,
  440. 0xFFFD,0xD503,0x9F81,
  441. 0x7FFB,0xEB00,0x9E01,
  442. 0x3FFD,0xF500,0x0001,
  443. 0x1FFB,0xFB00,0x0001,
  444. 0x0FFD,0xFD0F,0xFFE1,
  445. 0x07FB,0xFB1F,0xFFD1,
  446. 0x01FD,0xFD3F,0xF7C9,
  447. 0x00FF,0xFF7F,0xF8C5,
  448. 0x003F,0xFD7F,0xFC45,
  449. 0x001F,0xFF7F,0xFE05,
  450. 0x0007,0xF540,0x3F85,
  451. 0x0003,0xF740,0x0FC5,
  452. 0x0000,0xFD40,0x01F5,
  453. 0x0000,0x3F40,0x007D,
  454. 0x0000,0x0740,0x003D,
  455. 0x0000,0x01C0,0x000F,
  456. Funky_Stuff
  457. len=`wc -c < 48x48x1`
  458. if [ $len !=     1056 ] ; then
  459. echo error: 48x48x1 was $len bytes long, should have been     1056
  460. fi
  461. fi # end of overwriting check
  462. cd ..
  463. echo shar: done with directory mailer-daemon
  464. fi
  465. if [ -f net ]
  466. then
  467. echo shar: can not write a directory over file net
  468. else
  469. if [ ! -d net ]
  470. then
  471. echo shar: creating directory net
  472. mkdir net
  473. fi
  474. echo shar: entering directory net
  475. cd net
  476. if [ -f 48x48x1 ]
  477. then
  478. echo shar: will not over-write existing file 48x48x1
  479. else
  480. echo shar: extracting '48x48x1',     1056 characters
  481. cat > 48x48x1 <<'Funky_Stuff'
  482. 0x0000,0x0000,0x0000,
  483. 0x0000,0x0000,0x0000,
  484. 0x0000,0x0000,0x0000,
  485. 0x0000,0x0000,0x0000,
  486. 0x0000,0x0000,0x0000,
  487. 0x0000,0x0000,0x0000,
  488. 0x0000,0x0000,0x0000,
  489. 0x0000,0x0000,0x0000,
  490. 0x0020,0x0000,0x0000,
  491. 0x0070,0x0100,0x0000,
  492. 0x00F8,0x0300,0x0000,
  493. 0x0020,0x7FFC,0x0000,
  494. 0x0010,0x8303,0xE200,
  495. 0x000F,0x0101,0x2600,
  496. 0x0009,0x0001,0x3F00,
  497. 0x0009,0x0001,0xE600,
  498. 0x000F,0x0002,0x0200,
  499. 0x0010,0x8014,0x0000,
  500. 0x00A0,0x5018,0x0000,
  501. 0x00C0,0x301C,0x0000,
  502. 0x00E0,0x7020,0x0000,
  503. 0x0000,0x0840,0x4000,
  504. 0x0000,0x05E0,0xC000,
  505. 0x0000,0x033F,0xFF00,
  506. 0x0000,0x1120,0xC000,
  507. 0x00E0,0x31E0,0x4000,
  508. 0x00C0,0xFF20,0x0000,
  509. 0x00A1,0x3010,0x0000,
  510. 0x001E,0x100E,0x0000,
  511. 0x0012,0x000C,0x0700,
  512. 0x0012,0x000A,0x0300,
  513. 0x001E,0x0001,0x0500,
  514. 0x00A1,0x0000,0x8800,
  515. 0x00C0,0x8000,0x9000,
  516. 0x00E0,0x4101,0xE000,
  517. 0x0000,0x2181,0x2000,
  518. 0x0000,0x1FFF,0x2000,
  519. 0x0000,0x0181,0xE000,
  520. 0x0000,0x0101,0x0000,
  521. 0x0000,0x0002,0x0000,
  522. 0x0000,0x0000,0x0000,
  523. 0x0000,0x0000,0x0000,
  524. 0x0000,0x0000,0x0000,
  525. 0x0000,0x0000,0x0000,
  526. 0x0000,0x0000,0x0000,
  527. 0x0000,0x0000,0x0000,
  528. 0x0000,0x0000,0x0000,
  529. 0x0000,0x0000,0x0000,
  530. Funky_Stuff
  531. len=`wc -c < 48x48x1`
  532. if [ $len !=     1056 ] ; then
  533. echo error: 48x48x1 was $len bytes long, should have been     1056
  534. fi
  535. fi # end of overwriting check
  536. cd ..
  537. echo shar: done with directory net
  538. fi
  539. if [ -f root ]
  540. then
  541. echo shar: can not write a directory over file root
  542. else
  543. if [ ! -d root ]
  544. then
  545. echo shar: creating directory root
  546. mkdir root
  547. fi
  548. echo shar: entering directory root
  549. cd root
  550. if [ -f 48x48x1 ]
  551. then
  552. echo shar: will not over-write existing file 48x48x1
  553. else
  554. echo shar: extracting '48x48x1',     1056 characters
  555. cat > 48x48x1 <<'Funky_Stuff'
  556. 0x0000,0x0000,0x0000,
  557. 0x0000,0x0000,0x0000,
  558. 0x0000,0x0000,0x0000,
  559. 0x0000,0x0000,0x0000,
  560. 0x0000,0x0000,0x0000,
  561. 0x0000,0x0000,0x0000,
  562. 0x0000,0x0000,0x0000,
  563. 0x0000,0x0000,0x0000,
  564. 0x0000,0x1EE4,0x0000,
  565. 0x0000,0x1B04,0x0000,
  566. 0x0000,0x1F74,0x0000,
  567. 0x0000,0x1F64,0x0000,
  568. 0x0000,0x1FA4,0x0000,
  569. 0x0000,0x1704,0x0000,
  570. 0x0000,0x1FE4,0x0000,
  571. 0x0000,0x1EE4,0x0000,
  572. 0x0000,0x1FE4,0x0000,
  573. 0x0000,0x1FE4,0x0000,
  574. 0x0000,0x1EC4,0x0000,
  575. 0x0000,0x17F4,0x0000,
  576. 0x0000,0x37F6,0x0000,
  577. 0x0000,0x3FEB,0x0000,
  578. 0x0000,0xFF7F,0x0000,
  579. 0x0000,0xFF7F,0xE000,
  580. 0x0001,0xFFE7,0xF000,
  581. 0x000F,0xE7F1,0x9800,
  582. 0x001F,0x0631,0xC800,
  583. 0x0036,0x0C30,0x6400,
  584. 0x0024,0x1830,0x6600,
  585. 0x0064,0x3C10,0x2200,
  586. 0x0064,0x3410,0x2200,
  587. 0x004C,0x2438,0x7200,
  588. 0x004E,0x242C,0xDA00,
  589. 0x004A,0x6424,0x8A00,
  590. 0x0012,0x4426,0x8800,
  591. 0x0012,0x4460,0x0000,
  592. 0x0000,0x0000,0x0000,
  593. 0x0000,0x0000,0x0000,
  594. 0x0000,0x0000,0x0000,
  595. 0x0000,0x0000,0x0000,
  596. 0x0000,0x0000,0x0000,
  597. 0x0000,0x0000,0x0000,
  598. 0x0000,0x0000,0x0000,
  599. 0x0000,0x0000,0x0000,
  600. 0x0000,0x0000,0x0000,
  601. 0x0000,0x0000,0x0000,
  602. 0x0000,0x0000,0x0000,
  603. 0x0000,0x0000,0x0000,
  604. Funky_Stuff
  605. len=`wc -c < 48x48x1`
  606. if [ $len !=     1056 ] ; then
  607. echo error: 48x48x1 was $len bytes long, should have been     1056
  608. fi
  609. fi # end of overwriting check
  610. cd ..
  611. echo shar: done with directory root
  612. fi
  613. if [ -f sys ]
  614. then
  615. echo shar: can not write a directory over file sys
  616. else
  617. if [ ! -d sys ]
  618. then
  619. echo shar: creating directory sys
  620. mkdir sys
  621. fi
  622. echo shar: entering directory sys
  623. cd sys
  624. if [ -f 48x48x1 ]
  625. then
  626. echo shar: will not over-write existing file 48x48x1
  627. else
  628. echo shar: extracting '48x48x1',     1056 characters
  629. cat > 48x48x1 <<'Funky_Stuff'
  630. 0x0000,0x0200,0x0000,
  631. 0x0000,0x0004,0x0000,
  632. 0x0000,0x080A,0x0000,
  633. 0x0000,0x008A,0x2000,
  634. 0x0000,0x016A,0xD000,
  635. 0x0002,0x0091,0x2000,
  636. 0x0000,0x0080,0x2000,
  637. 0x0020,0x004E,0x4000,
  638. 0x0000,0x439F,0x3800,
  639. 0x0000,0xA41F,0x0400,
  640. 0x0088,0xA39F,0x3800,
  641. 0x0016,0xAD4E,0x4000,
  642. 0x0009,0x1280,0x2000,
  643. 0x0008,0x0291,0x2000,
  644. 0x0004,0xE56A,0xD100,
  645. 0x0039,0xF38A,0x2000,
  646. 0x0241,0xF04A,0x0000,
  647. 0x0039,0xF384,0x0400,
  648. 0x0004,0xE400,0x0000,
  649. 0x0008,0x0200,0x2000,
  650. 0x0009,0x1240,0x0000,
  651. 0x0016,0xADA0,0x0000,
  652. 0x0008,0xAAA2,0x0000,
  653. 0x0000,0xB6AD,0x0000,
  654. 0x0000,0x4912,0x1000,
  655. 0x0000,0x0802,0x0000,
  656. 0x0020,0x04E4,0x0000,
  657. 0x0200,0x39F3,0x8800,
  658. 0x0008,0x41F0,0x4000,
  659. 0x0814,0x39F3,0x8000,
  660. 0x0114,0x44E4,0x0000,
  661. 0x12D5,0xA802,0x0800,
  662. 0x0122,0x4912,0x0000,
  663. 0x0100,0x56AD,0x0000,
  664. 0x209C,0x88A2,0x0000,
  665. 0x073E,0x70A0,0x2000,
  666. 0x083E,0x0840,0x0000,
  667. 0x073E,0x7000,0x0000,
  668. 0x009C,0x8000,0x0000,
  669. 0x0100,0x4000,0x0000,
  670. 0x0122,0x4200,0x0000,
  671. 0x02D5,0xA000,0x0000,
  672. 0x0114,0x4000,0x0000,
  673. 0x0014,0x0800,0x0000,
  674. 0x0008,0x0000,0x0000,
  675. 0x0000,0x4000,0x0000,
  676. 0x0000,0x0000,0x0000,
  677. 0x0000,0x0000,0x0000,
  678. Funky_Stuff
  679. len=`wc -c < 48x48x1`
  680. if [ $len !=     1056 ] ; then
  681. echo error: 48x48x1 was $len bytes long, should have been     1056
  682. fi
  683. fi # end of overwriting check
  684. cd ..
  685. echo shar: done with directory sys
  686. fi
  687. if [ -f unknown ]
  688. then
  689. echo shar: can not write a directory over file unknown
  690. else
  691. if [ ! -d unknown ]
  692. then
  693. echo shar: creating directory unknown
  694. mkdir unknown
  695. fi
  696. echo shar: entering directory unknown
  697. cd unknown
  698. if [ -f 48x48x1 ]
  699. then
  700. echo shar: will not over-write existing file 48x48x1
  701. else
  702. echo shar: extracting '48x48x1',     1056 characters
  703. cat > 48x48x1 <<'Funky_Stuff'
  704. 0x0000,0x01FF,0xC000,
  705. 0x7C00,0x1FFF,0xE000,
  706. 0x8200,0xFFFF,0xE000,
  707. 0x8207,0xFFFF,0xF000,
  708. 0x620F,0xFFFF,0xFF80,
  709. 0x040F,0xFFFF,0xFFE0,
  710. 0x080F,0xFFFF,0xFFF0,
  711. 0x100F,0xFFFF,0xF7F0,
  712. 0x2007,0xFFFF,0xF7F0,
  713. 0x0007,0xFFFF,0x8FE0,
  714. 0x2007,0xFFFE,0x7F80,
  715. 0x2007,0xFFF9,0xFE00,
  716. 0x000D,0xFFE7,0xFE00,
  717. 0x103E,0x7F9F,0xFE00,
  718. 0x007F,0x807F,0xFE00,
  719. 0x20FF,0xFFFF,0xFE00,
  720. 0x81FF,0xFFFF,0xFE00,
  721. 0x01FF,0xFFFB,0x8E00,
  722. 0x81FF,0xFFE1,0xF600,
  723. 0x21FF,0xFFE7,0xF600,
  724. 0x09FF,0xFFFF,0x0600,
  725. 0x00FF,0xFFFC,0x7F80,
  726. 0x0877,0xF7F0,0x3FC0,
  727. 0x2007,0xF7E0,0x1FC0,
  728. 0x0003,0xE7E0,0x7FC0,
  729. 0x4001,0xC3C3,0xFFC0,
  730. 0x1000,0x800F,0xFF80,
  731. 0x0407,0x803F,0xFF80,
  732. 0x0007,0x83FF,0xFF80,
  733. 0x00BF,0xFBFF,0xFF80,
  734. 0x00A0,0x1FFF,0xFF80,
  735. 0x00BF,0xFFFF,0xFF80,
  736. 0x0001,0xFFFF,0xFF80,
  737. 0x0001,0xF7FF,0xF180,
  738. 0x001F,0xFFFF,0xCFC0,
  739. 0x007E,0xFFFC,0x3FE0,
  740. 0x01FF,0x3FC3,0xFFF8,
  741. 0x07FF,0xDF3F,0xFFFE,
  742. 0x0FFF,0xF0FF,0xFFFF,
  743. 0x1FFF,0xCFFF,0xFFFF,
  744. 0x3FFF,0xDFFF,0xFFFF,
  745. 0x3FFF,0xD9FF,0xFFFF,
  746. 0x7FFF,0xD9FF,0xFFFF,
  747. 0x7FFF,0xDFFF,0xFFFF,
  748. 0xFFFF,0xBFC0,0x07FF,
  749. 0xFFFF,0xBFDF,0xF7FF,
  750. 0xFFFF,0xBFDF,0xF7FF,
  751. 0xFFFF,0xBFDF,0xF7FF,
  752. Funky_Stuff
  753. len=`wc -c < 48x48x1`
  754. if [ $len !=     1056 ] ; then
  755. echo error: 48x48x1 was $len bytes long, should have been     1056
  756. fi
  757. fi # end of overwriting check
  758. cd ..
  759. echo shar: done with directory unknown
  760. fi
  761. if [ -f uucp ]
  762. then
  763. echo shar: can not write a directory over file uucp
  764. else
  765. if [ ! -d uucp ]
  766. then
  767. echo shar: creating directory uucp
  768. mkdir uucp
  769. fi
  770. echo shar: entering directory uucp
  771. cd uucp
  772. if [ -f 48x48x1 ]
  773. then
  774. echo shar: will not over-write existing file 48x48x1
  775. else
  776. echo shar: extracting '48x48x1',     1056 characters
  777. cat > 48x48x1 <<'Funky_Stuff'
  778. 0x0000,0x0000,0x0000,
  779. 0x0000,0x0000,0x3FE0,
  780. 0x0000,0x0000,0xE000,
  781. 0x0000,0x0001,0x8000,
  782. 0x0000,0x0003,0x0000,
  783. 0x0200,0x0007,0xE000,
  784. 0x0008,0x001E,0x1800,
  785. 0x1000,0x0074,0x0800,
  786. 0x0040,0x00C4,0x0800,
  787. 0x0001,0x0184,0x0800,
  788. 0x4200,0x0106,0x1800,
  789. 0x0010,0x0201,0xE000,
  790. 0x0000,0x0000,0x0000,
  791. 0x4000,0x0000,0x0000,
  792. 0x0400,0x0000,0x0000,
  793. 0x0020,0x3F00,0x0000,
  794. 0x4400,0xF5C0,0x0000,
  795. 0x0023,0xAAF0,0x0000,
  796. 0x020F,0x5558,0x0000,
  797. 0x003A,0xAAAE,0x0000,
  798. 0x20F5,0x5557,0x8000,
  799. 0x03AA,0xAAAA,0xC000,
  800. 0x0F55,0x5555,0x7000,
  801. 0x3EAA,0xA0AA,0xBC00,
  802. 0x7755,0x1F15,0x5600,
  803. 0xEBAA,0x71CA,0xAB80,
  804. 0xD5D1,0xC071,0x55E0,
  805. 0xAAE7,0x001C,0xABB0,
  806. 0xD57C,0x0007,0x177C,
  807. 0x6070,0x0011,0xCEEE,
  808. 0x3FC0,0x0020,0x7DD7,
  809. 0x0000,0x1140,0x1DAB,
  810. 0x0000,0x0001,0x0795,
  811. 0x0000,0x0000,0x01C3,
  812. 0x0000,0x0004,0x007E,
  813. 0x0001,0x0020,0x0800,
  814. 0x0000,0x1100,0x0020,
  815. 0x0000,0x0000,0x1000,
  816. 0x0000,0x0000,0x4040,
  817. 0x0010,0x0000,0x0080,
  818. 0x0000,0x2004,0x0100,
  819. 0x0000,0x0110,0x0200,
  820. 0x0000,0x0000,0x0000,
  821. 0x0000,0x0000,0x2000,
  822. 0x0020,0x0002,0x0000,
  823. 0x0000,0x0020,0x0000,
  824. 0x0001,0x0400,0x0000,
  825. 0x0000,0x0000,0x0000,
  826. Funky_Stuff
  827. len=`wc -c < 48x48x1`
  828. if [ $len !=     1056 ] ; then
  829. echo error: 48x48x1 was $len bytes long, should have been     1056
  830. fi
  831. fi # end of overwriting check
  832. cd ..
  833. echo shar: done with directory uucp
  834. fi
  835. cd ..
  836. echo shar: done with directory misc.
  837. fi
  838. if [ -f people.tab ]
  839. then
  840. echo shar: will not over-write existing file people.tab
  841. else
  842. echo shar: extracting 'people.tab',     1663 characters
  843. cat > people.tab <<'Funky_Stuff'
  844. sunaus/rallen=bob
  845. sunaus/ballen=bob
  846. sunaus/bbaker=bruceb
  847. sunaus/mbosch=mike
  848. sunaus/eddy=eddie
  849. sunaus/eevans=eddie
  850. sunaus/ggrell=grell
  851. sunaus/gene=grell
  852. sunaus/jingall=johni
  853. sunaus/ijeffery=ian
  854. sunaus/glynne=gjl
  855. sunaus/tmcentee=tim
  856. sunaus/jnoonan=johnn
  857. sunaus/apappas=arie
  858. sunaus/jennie=jenny
  859. sunaus/jrendell=jenny
  860. sunaus/gsearle=gjs
  861. sunaus/gsitters=greg
  862. sunaus/bscott=brad
  863. sunaus/rstewart=ruth
  864. sunaus/jteasdale=jim
  865. sunaus/loraine=lori
  866. sunaus/lorraine=lori
  867. sunaus/lunicomb=lori
  868. sunaus/pvrbancich=paula
  869. sunaus/swoodhead=simon
  870. sunaus/jy=yo
  871. sunaus/jyoung=yo
  872. sunaus/rboden=richard
  873. sunaus/rbodin=richard
  874. sunaus/rburridge=richb
  875. sunaus/rich=richb
  876. sunaus/mcunningham=mary
  877. sunaus/sduchesne=sue
  878. sunaus/mfredericks=max
  879. sunaus/mfredricks=max
  880. sunaus/bgeneralis=bill
  881. sunaus/shulbert=susanh
  882. sunaus/susan=susanh
  883. sunaus/gmason=gregm
  884. sunaus/vmickan=val
  885. sunaus/trogge=tony
  886. sunaus/andy=aspiers
  887. sunaus/bwiggins=bruce
  888. sunaus/ryeap=ron
  889. sunaus/cbreen=colinb
  890. sunaus/rdesalis=roger
  891. sunaus/mfort=markf
  892. sunaus/mark=markg
  893. sunaus/mgurvis=markg
  894. sunaus/mnegri=manuel
  895. sunaus/npettitt=noel
  896. sunaus/jraine=john
  897. sunaus/paul=paulr
  898. sunaus/prosham=paulr
  899. sunaus/gsweigert=geo
  900. sunaus/rbowman=robb
  901. sunaus/bbowman=robb
  902. sunaus/krees=kim
  903. sunaus/mikes=mslee
  904. sunaus/gshepherd=george
  905. sunaus/aweller=andrew
  906. sunaus/kbeavan=kevin
  907. sunaus/rbradford=rhonda
  908. sunaus/ckeith=colin
  909. sunaus/mmccann=mmc
  910. sunaus/ksterry=kaylene
  911. sunaus/rwilliams=rex
  912. sunaus/gdonin=gary
  913. sunaus/dshea=dennis
  914. sunaus/doshea=dennis
  915. sunaus/hprotoolis=harry
  916. sunaus/rschrader=robert
  917. sunaus/bschrader=robert
  918. sunaus/bobs=robert
  919. sunaus/jvermeulen=jeff
  920. sunaus/MAILER-DAEMON=mailer-daemon
  921. sunaus/Mailer-Daemon=mailer-daemon
  922. sunaus/mailer-daemon=mailer-daemon
  923. Funky_Stuff
  924. len=`wc -c < people.tab`
  925. if [ $len !=     1663 ] ; then
  926. echo error: people.tab was $len bytes long, should have been     1663
  927. fi
  928. fi # end of overwriting check
  929. if [ -f sunaus ]
  930. then
  931. echo shar: can not write a directory over file sunaus
  932. else
  933. if [ ! -d sunaus ]
  934. then
  935. echo shar: creating directory sunaus
  936. mkdir sunaus
  937. fi
  938. echo shar: entering directory sunaus
  939. cd sunaus
  940. if [ -f richb ]
  941. then
  942. echo shar: can not write a directory over file richb
  943. else
  944. if [ ! -d richb ]
  945. then
  946. echo shar: creating directory richb
  947. mkdir richb
  948. fi
  949. echo shar: entering directory richb
  950. cd richb
  951. if [ -f face.ps ]
  952. then
  953. echo shar: will not over-write existing file face.ps
  954. else
  955. echo shar: extracting 'face.ps',      782 characters
  956. cat > face.ps <<'Funky_Stuff'
  957. /Icon findfont 1 scalefont setfont
  958. .1 .25 .9 .75 rectpath 1 setgray fill
  959.  
  960. 0 setgray
  961. .1 .25 moveto (\056) show .002 sleep
  962. 1 setgray
  963. .1 .25 moveto (\056) show
  964.  
  965. 0 setgray
  966. .1 .25 moveto (\057) show .002 sleep
  967. 1 setgray
  968. .1 .25 moveto (\057) show
  969.  
  970. 0 setgray
  971. .1 .25 moveto (\060) show .002 sleep
  972. 1 setgray
  973. .1 .25 moveto (\060) show
  974.  
  975. 0 setgray
  976. .1 .25 moveto (\061) show .002 sleep
  977. 1 setgray
  978. .1 .25 moveto (\061) show
  979.  
  980. 0 setgray
  981. .1 .25 moveto (\062) show .002 sleep
  982. 1 setgray
  983. .1 .25 moveto (\062) show
  984.  
  985. 0 setgray
  986. .1 .25 moveto (\061) show .002 sleep
  987. 1 setgray
  988. .1 .25 moveto (\061) show
  989.  
  990. 0 setgray
  991. .1 .25 moveto (\060) show .002 sleep
  992. 1 setgray
  993. .1 .25 moveto (\060) show
  994.  
  995. 0 setgray
  996. .1 .25 moveto (\057) show .002 sleep
  997. 1 setgray
  998. .1 .25 moveto (\057) show
  999.  
  1000. 0 setgray
  1001. .1 .25 moveto (\056) show
  1002. Funky_Stuff
  1003. len=`wc -c < face.ps`
  1004. if [ $len !=      782 ] ; then
  1005. echo error: face.ps was $len bytes long, should have been      782
  1006. fi
  1007. fi # end of overwriting check
  1008. cd ..
  1009. echo shar: done with directory richb
  1010. fi
  1011. cd ..
  1012. echo shar: done with directory sunaus
  1013. fi
  1014. cd ..
  1015. echo shar: done with directory facedir
  1016. fi
  1017. cd ..
  1018. echo shar: done with directory facedir
  1019. fi
  1020. if [ -f filters ]
  1021. then
  1022. echo shar: can not write a directory over file filters
  1023. else
  1024. if [ ! -d filters ]
  1025. then
  1026. echo shar: creating directory filters
  1027. mkdir filters
  1028. fi
  1029. echo shar: entering directory filters
  1030. cd filters
  1031. if [ -f Makefile ]
  1032. then
  1033. echo shar: will not over-write existing file Makefile
  1034. else
  1035. echo shar: extracting 'Makefile',     1037 characters
  1036. cat > Makefile <<'Funky_Stuff'
  1037. #
  1038. #  Makefile for the various face format filters.
  1039. #
  1040. #  @(#)Makefile 1.4 90/06/26
  1041. #
  1042. #  Copyright (c) Rich Burridge - Sun Microsystems, Australia.
  1043. #
  1044. #  Permission is given to distribute these sources, as long as the
  1045. #  copyright messages are not removed, and no monies are exchanged. 
  1046. #
  1047. #  No responsibility is taken for any errors inherent either
  1048. #  to the comments or the code of this program, but if reported
  1049. #  to me then an attempt will be made to fix them.
  1050.  
  1051. # BINDIR is expected to be overridden by the calling Makefile
  1052.  
  1053. BINDIR        = /usr/local/bin
  1054.  
  1055. BINARIES    = icon2ikon ikon2icon rs2icon 
  1056.  
  1057. CC        = cc
  1058. CFLAGS        = -g
  1059.  
  1060. all:        $(BINARIES)
  1061.  
  1062. icon2ikon:    icon2ikon.o
  1063.         $(CC) -o icon2ikon $(CFLAGS) icon2ikon.o
  1064.  
  1065. ikon2icon:    ikon2icon.o
  1066.         $(CC) -o ikon2icon $(CFLAGS) ikon2icon.o
  1067.  
  1068. rs2icon:    rs2icon.o
  1069.         $(CC) -o rs2icon $(CFLAGS) rs2icon.o
  1070.  
  1071. clean:
  1072.         rm -f *.o $(BINARIES)
  1073.  
  1074. install:    $(BINARIES)
  1075.         install -s -m 751 icon2ikon $(BINDIR)
  1076.         install -s -m 751 ikon2icon $(BINDIR)
  1077.         install -s -m 751 rs2icon $(BINDIR)
  1078.         install -c -m 755 fs2ikon $(BINDIR)
  1079. Funky_Stuff
  1080. len=`wc -c < Makefile`
  1081. if [ $len !=     1037 ] ; then
  1082. echo error: Makefile was $len bytes long, should have been     1037
  1083. fi
  1084. fi # end of overwriting check
  1085. if [ -f fs2ikon ]
  1086. then
  1087. echo shar: will not over-write existing file fs2ikon
  1088. else
  1089. echo shar: extracting 'fs2ikon',     1309 characters
  1090. cat > fs2ikon <<'Funky_Stuff'
  1091. #!/bin/sh
  1092. #
  1093. #  @(#)fs2ikon 1.2 90/06/19
  1094. #
  1095. #  Usage: fstoicon file.fs ...
  1096. #
  1097. #  converts Usenix FaceSaver image into 48x48x1 ikons
  1098. #
  1099. #  Uses the pbm bitmap toolkit.
  1100. #
  1101. #  Copyright (c) Chris Maltby - Softway Pty Ltd - June 1990.
  1102. #
  1103. #  Permission is given to distribute these sources, as long as the
  1104. #  copyright messages are not removed, and no monies are exchanged. 
  1105. #
  1106. #  No responsibility is taken for any errors on inaccuracies inherent
  1107. #  either to the comments or the code of this program, but if reported
  1108. #  to me, then an attempt will be made to fix them.
  1109.  
  1110. for f
  1111. do
  1112.     file=`basename $f ".fs"`
  1113.     fstopgm $file.fs > $file.pgm
  1114.     set `sed -n -e 2p -e 2q $file.pgm`
  1115.     x=$1
  1116.     y=$2
  1117.     if [ $x -ge $y ]
  1118.     then
  1119.     ppmscale -width 48 $file.pgm | ppmtopgm | pgmtopbm > $file.pbm
  1120.     set `sed -n -e 2p -e 2q $file.pbm`
  1121.     yo=`expr '(' 48 - $2 ')' / 2`
  1122.     pbmmake 48 48 |
  1123.         pbmpaste -replace $file.pbm 0 $yo |
  1124.         pbmtoicon 
  1125.     else
  1126.     ppmscale -height 48 $file.pgm | ppmtopgm | pgmtopbm > $file.pbm
  1127.     set `sed -n -e 2p -e 2q $file.pbm`
  1128.     xo=`expr '(' 48 - $1 ')' / 2`
  1129.     pbmmake 48 48 |
  1130.         pbmpaste -replace $file.pbm $xo 0 |
  1131.         pbmtoicon
  1132.     fi |
  1133.     sed -e 1,2d -e '20s/$/,/' |
  1134.     tr -d '\011\012' |
  1135.     tr ',' '\012' |
  1136.     sed -e 's/^/0x/' |
  1137.     pr -l1 -t -w22 -3 -s, |
  1138.     sed -e 's/$/,/' > $file.face
  1139.     rm $file.pbm
  1140. done
  1141. Funky_Stuff
  1142. len=`wc -c < fs2ikon`
  1143. if [ $len !=     1309 ] ; then
  1144. echo error: fs2ikon was $len bytes long, should have been     1309
  1145. fi
  1146. fi # end of overwriting check
  1147. if [ -f icon2ikon.c ]
  1148. then
  1149. echo shar: will not over-write existing file icon2ikon.c
  1150. else
  1151. echo shar: extracting 'icon2ikon.c',     4379 characters
  1152. cat > icon2ikon.c <<'Funky_Stuff'
  1153.  
  1154. /*  @(#)icon2ikon.c 1.2 90/06/20
  1155.  *
  1156.  *  Small program to take a Sun icon on standard input and convert
  1157.  *  the top-leftmost 48x48 pixels to a blit ikon on standard output.
  1158.  *
  1159.  *  Copyright (c) Rich Burridge - Sun Microsystems Australia.
  1160.  * 
  1161.  *  NOTE: Currently only supports 64x64x1 Sun icons.
  1162.  *
  1163.  *  Permission is given to distribute these sources, as long as the
  1164.  *  copyright messages are not removed, and no monies are exchanged. 
  1165.  *
  1166.  *  No responsibility is taken for any errors on inaccuracies inherent
  1167.  *  either to the comments or the code of this program, but if reported
  1168.  *  to me, then an attempt will be made to fix them.
  1169.  */
  1170.  
  1171. #include <stdio.h>
  1172. #include <string.h>
  1173.  
  1174. #define  PATCHLEVEL  0
  1175.  
  1176. #define  FPRINTF     (void) fprintf     /* To make lint happy. */
  1177. #define  PRINTF      (void) printf
  1178. #define  SSCANF      (void) sscanf
  1179. #define  STRCPY      (void) strcpy
  1180.  
  1181. #define  BLITHEIGHT  48     /* Maximum number of lines in a blit icon. */
  1182. #define  MAXLINE     80     /* Maximum length for character strings. */
  1183.  
  1184. char progname[MAXLINE] ;    /* The name of this program. */
  1185. unsigned short buf[256] ;   /* Buffer for Sun icon info. */
  1186.  
  1187.  
  1188. /*ARGSUSED*/
  1189. main(argc, argv)
  1190. int argc ;
  1191. char *argv[] ;
  1192. {
  1193.   STRCPY(progname, argv[0]) ;   /* Save for later use. */
  1194.   if (!get_sun_icon(buf))       /* Read Sun icon into internal buffer. */
  1195.     make_blit_ikon() ;          /* Turn into Blit ikon format. */
  1196. }
  1197.  
  1198.  
  1199. get_sun_icon(buf)     /* Load Sun icon file. */
  1200. unsigned short buf[256] ;
  1201. {
  1202.   char htype[MAXLINE] ;     /* Current header comment parameter. */
  1203.   int c ;                   /* Count of items found from fscanf call. */
  1204.   int comment ;             /* Set if more initial comment to read. */
  1205.   int count ;               /* Number of items to read from icon file. */
  1206.   int idepth ;              /* Depth of this icon. */
  1207.   int iheight ;             /* Height of this icon. */
  1208.   int iwidth ;              /* Width of this icon. */
  1209.   int ivbpi ;               /* Number of valid bits per item. */
  1210.   int temp ;                /* Temporary location for latest 16 bits. */
  1211.  
  1212.   comment = 1 ;
  1213.   while (comment)
  1214.     {
  1215.       if (scanf("%*[^WHDV*]%s", htype) == EOF) break ;
  1216.       switch (htype[0])
  1217.         {
  1218.           case 'W' : SSCANF(htype, "Width=%d", &iwidth) ;
  1219.                      if (iwidth != 64)
  1220.                        {
  1221.                          FPRINTF(stderr, "%s: icon has width %d\n",
  1222.                                           progname, iwidth) ;
  1223.                          FPRINTF(stderr, "This is currently not supported.\n") ;                         return -1 ;
  1224.                        }
  1225.                      break ;
  1226.           case 'H' : SSCANF(htype, "Height=%d", &iheight) ;
  1227.                      if (iheight != 64)
  1228.                        {
  1229.                          FPRINTF(stderr, "%s: icon has height %d\n",
  1230.                                           progname, iheight) ;
  1231.                          FPRINTF(stderr, "This is currently not supported.\n") ;                         return -1 ;
  1232.                        }
  1233.                      break ;
  1234.           case 'D' : SSCANF(htype, "Depth=%d", &idepth) ;
  1235.                      if (idepth != 1)
  1236.                        {
  1237.                          FPRINTF(stderr, "%s: icon has depth %d\n",
  1238.                                           progname, idepth) ;
  1239.                          FPRINTF(stderr, "This is currently not supported.\n") ;                         return -1 ;
  1240.                        }
  1241.                      break ;
  1242.           case 'V' : SSCANF(htype, "Valid_bits_per_item=%d", &ivbpi) ;
  1243.                      if (ivbpi != 16)
  1244.                        {
  1245.                          FPRINTF(stderr, "%s: icon has %d bits per item\n",
  1246.                                           progname, ivbpi) ;
  1247.                          FPRINTF(stderr, "This is currently not supported.\n") ;                         return -1 ;
  1248.                        }
  1249.                      break ;
  1250.           case '*' : if (htype[1] == '/') comment = 0 ;
  1251.         }
  1252.     }    
  1253.  
  1254.   count = 0 ;
  1255.   while (count < ((iheight * iwidth) / 16))
  1256.     {
  1257.       c = scanf(" 0x%X,", &temp) ;
  1258.       if (c == 0 || c == EOF) break ;
  1259.       buf[count++] = (short) temp ;
  1260.     }
  1261.   return(0) ;
  1262. }
  1263.  
  1264.  
  1265. make_blit_ikon()        /* Create Blit ikon on standard output. */
  1266. {
  1267.   int i ;
  1268.  
  1269.   for (i = 0; i < BLITHEIGHT; i++)
  1270.     PRINTF("0x%04x,0x%04x,0x%04x,\n", buf[i*4], buf[i*4+1], buf[i*4+2]) ;
  1271. }
  1272. Funky_Stuff
  1273. len=`wc -c < icon2ikon.c`
  1274. if [ $len !=     4379 ] ; then
  1275. echo error: icon2ikon.c was $len bytes long, should have been     4379
  1276. fi
  1277. fi # end of overwriting check
  1278. if [ -f ikon2icon.c ]
  1279. then
  1280. echo shar: will not over-write existing file ikon2icon.c
  1281. else
  1282. echo shar: extracting 'ikon2icon.c',     2175 characters
  1283. cat > ikon2icon.c <<'Funky_Stuff'
  1284.  
  1285. /*  @(#)ikon2icon.c 1.4 90/06/20
  1286.  *
  1287.  *  Small program to take a blit icon on standard input and convert
  1288.  *  it to Sun icon format on standard output.
  1289.  *
  1290.  *  Copyright (c) Rich Burridge - Sun Microsystems Australia.
  1291.  * 
  1292.  *  Permission is given to distribute these sources, as long as the
  1293.  *  copyright messages are not removed, and no monies are exchanged. 
  1294.  *
  1295.  *  No responsibility is taken for any errors on inaccuracies inherent
  1296.  *  either to the comments or the code of this program, but if reported
  1297.  *  to me, then an attempt will be made to fix them.
  1298.  */
  1299.  
  1300. #include <stdio.h>
  1301.  
  1302. #define  PATCHLEVEL  0
  1303.  
  1304. #define  GETS        (void) gets     /* To make lint happy. */
  1305. #define  PRINTF      (void) printf
  1306. #define  SPRINTF     (void) sprintf
  1307. #define  SSCANF      (void) sscanf
  1308.  
  1309. #define  BLITHEIGHT  48       /* Maximum number of lines in a blit icon. */
  1310. #define  MAXLINE     80       /* Maximum length for character strings. */
  1311.  
  1312. char *index() ;
  1313. unsigned char buf[6][48] ;    /* Buffer for blit icon info. */
  1314.  
  1315. main()
  1316. {
  1317.   read_blit() ;      /* Read blit info to internal buffer. */
  1318.   make_icon() ;      /* Turn into Sun icon format. */
  1319. }
  1320.  
  1321.  
  1322. make_icon()        /* Create Sun icon on standard output. */
  1323. {
  1324.   int i, j ;
  1325.  
  1326.   PRINTF("/* Format_version=1, Width=64, Height=64, Depth=1, ") ;
  1327.   PRINTF("Valid_bits_per_item=16\n */\n") ;
  1328.   for (i = 0; i < BLITHEIGHT; i++)
  1329.     {
  1330.       if (!(i % 2)) PRINTF("\t") ;
  1331.       for (j = 0; j < 6; j += 2)
  1332.         PRINTF("0x%02x%02x,", buf[j][i], buf[j+1][i]) ;
  1333.       PRINTF("0x0000,") ;
  1334.       if (i % 2) PRINTF("\n") ;
  1335.     }
  1336.   for (i = 0; i < 8; i++)
  1337.     PRINTF("\t0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,\n") ;
  1338. }
  1339.  
  1340. read_blit()                         /* Read rasterfile into internal buffer. */
  1341. {
  1342.   char nextline[MAXLINE], *ptr ;    /* Next line from blit icon file. */
  1343.   int i, j, v0, v1 ;
  1344.  
  1345.   for (i = 0; i < BLITHEIGHT; i++)
  1346.     {
  1347.       GETS(nextline) ;
  1348.       ptr = nextline ;
  1349.       for (j = 0; j < 3; j++)
  1350.         {
  1351.           while (*ptr == ' ') ptr++ ;
  1352.           SSCANF(ptr,"0x%02x%02x",&v0,&v1) ;
  1353.           buf[j*2][i] = v0 ;
  1354.           buf[j*2+1][i] = v1 ;
  1355.           ptr = index(ptr, ',') ;
  1356.           ptr++ ;
  1357.         }
  1358.     }
  1359. }
  1360. Funky_Stuff
  1361. len=`wc -c < ikon2icon.c`
  1362. if [ $len !=     2175 ] ; then
  1363. echo error: ikon2icon.c was $len bytes long, should have been     2175
  1364. fi
  1365. fi # end of overwriting check
  1366. if [ -f rs2icon.c ]
  1367. then
  1368. echo shar: will not over-write existing file rs2icon.c
  1369. else
  1370. echo shar: extracting 'rs2icon.c',     3915 characters
  1371. cat > rs2icon.c <<'Funky_Stuff'
  1372.  
  1373. /*  @(#)rs2icon.c 1.3 90/06/19
  1374.  *
  1375.  *  Small program to take a rasterfile on standard input and generate
  1376.  *  an icon on standard output. There are two options:
  1377.  *
  1378.  *  -x nnn - Displacement in the x direction before starting to extract
  1379.  *           the icon information.
  1380.  *
  1381.  *  -y nnn - Displacement in the y direction before starting to extract
  1382.  *           the icon information.
  1383.  *
  1384.  *  Copyright (c) Rich Burridge - Sun Microsystems Australia.
  1385.  * 
  1386.  *  Permission is given to distribute these sources, as long as the
  1387.  *  copyright messages are not removed, and no monies are exchanged. 
  1388.  *
  1389.  *  No responsibility is taken for any errors on inaccuracies inherent
  1390.  *  either to the comments or the code of this program, but if reported
  1391.  *  to me, then an attempt will be made to fix them.
  1392.  */
  1393.  
  1394. #include <stdio.h>
  1395. #include <rasterfile.h>
  1396. #include <strings.h>
  1397.  
  1398. #define  PATCHLEVEL  0
  1399.  
  1400. #define  FPRINTF     (void) fprintf  /* To make lint happy. */
  1401. #define  FREAD       (void) fread
  1402. #define  PRINTF      (void) printf
  1403. #define  STRCPY      (void) strcpy
  1404.  
  1405. #define  MAXLINE     80           /* Maximum length for character strings. */
  1406.  
  1407. unsigned char pic[1152/8][900] ;  /* Buffer for rasterfile. */
  1408. char progname[MAXLINE] ;          /* The name of this program. */
  1409. int x ;                           /* X displacement for start of extraction. */
  1410. int y ;                           /* Y displacement for start of extraction. */
  1411.  
  1412. main(argc, argv)
  1413. int argc ;
  1414. char *argv[] ;
  1415. {
  1416.   STRCPY(progname, argv[0]) ;    /* Save program name for later use. */
  1417.   get_options(argc, argv) ;      /* Extract command line options. */
  1418.   read_raster() ;                /* Read rasterfile to internal buffer. */
  1419.   make_icon() ;                  /* Turn rasterfile portion into an icon. */
  1420. }
  1421.  
  1422.  
  1423. get_options(argc, argv)          /* Extract command line options. */
  1424. int argc ;
  1425. char *argv[] ;
  1426. {
  1427.   x = 0 ;                        /* Default is no x displacement. */
  1428.   y = 0 ;                        /* Default is no y displacement. */
  1429.   argv++ ;
  1430.   argc-- ;
  1431.   while (argc > 0)
  1432.     {
  1433.       switch (argv[0][1])
  1434.         {
  1435.           case 'x' : argv++ ;    /* X displacement value given. */
  1436.                      argc-- ;
  1437.                      x = atoi(*argv) ;
  1438.                      break ;
  1439.           case 'y' : argv++ ;    /* Y displacement value given. */
  1440.                      argc-- ;
  1441.                      y = atoi(*argv) ;
  1442.                      break ;
  1443.           case 'v' : FPRINTF(stderr, "%s version 1.2.%1d\n",
  1444.                                      progname, PATCHLEVEL) ;
  1445.                      break ;
  1446.           case '?' : FPRINTF(stderr, "Usage: %s [-x] [-y] [-v] [-?]\n",
  1447.                                      progname) ;
  1448.                      exit(1) ;
  1449.         }
  1450.       argc-- ;
  1451.       argv++ ;
  1452.     }
  1453. }
  1454.  
  1455.  
  1456. make_icon()        /* Create icon from rasterfile on standard output. */
  1457. {
  1458.   unsigned char line[8] ;   /* 64 bits of the current line of the rasterfile. */
  1459.   int i, j, k, n, val ;
  1460.  
  1461.   PRINTF("/* Format_version=1, Width=64, Height=64, Depth=1, ") ;
  1462.   PRINTF("Valid_bits_per_item=16\n */\n") ;
  1463.   n = 0 ;
  1464.   for (i = y; i < (y+64); i++)
  1465.     {
  1466.       for (j = x; j < (x+64); j += 8)
  1467.         {
  1468.           val = 0 ;
  1469.           for (k = 0; k < 8; k++)
  1470.             val = (val << 1) + ((pic[(j+k)/8][i] >> (7 - ((j+k) % 8))) & 1) ;
  1471.           line[(j - x) / 8] = val ;
  1472.         }
  1473.       if (!(n % 2)) PRINTF("\t") ;
  1474.       for (j = 0; j < 8; j += 2) PRINTF("0x%02x%02x,", line[j], line[j+1]) ;
  1475.       if (n % 2) PRINTF("\n") ;
  1476.       n++ ;
  1477.     }
  1478. }
  1479.  
  1480. read_raster()                    /* Read rasterfile into internal buffer. */
  1481. {
  1482.   int i, j ;
  1483.   int height, len ;
  1484.   struct rasterfile header ;
  1485.  
  1486.   FREAD((char *) &header,sizeof(struct rasterfile),1,stdin) ;
  1487.   for (i = 0; i < header.ras_maplength; i++) j = getchar() ;
  1488.   len = ((header.ras_width+15) >> 4) * 2 ;
  1489.   height = header.ras_height ;
  1490.   for (i = 0; i < height; i++)
  1491.     for (j = 0; j < len; j++) pic[j][i] = getchar() ;
  1492. }
  1493. Funky_Stuff
  1494. len=`wc -c < rs2icon.c`
  1495. if [ $len !=     3915 ] ; then
  1496. echo error: rs2icon.c was $len bytes long, should have been     3915
  1497. fi
  1498. fi # end of overwriting check
  1499. cd ..
  1500. echo shar: done with directory filters
  1501. fi
  1502.  
  1503.