home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / misc / volume36 / hodge-c / part02 < prev    next >
Encoding:
Text File  |  1993-03-23  |  60.1 KB  |  1,939 lines
  1. Newsgroups: comp.sources.misc
  2. From: heitkoet@lusty.informatik.uni-dortmund.de (Joerg Heitkoetter)
  3. Subject: v36i036:  hodge-c - An implementation of Gerhard & Schuster's hodge-podge machine, Part02/33
  4. Message-ID: <1993Mar23.060827.2716@sparky.imd.sterling.com>
  5. X-Md4-Signature: f0c142824826a70445c35c168c481aa4
  6. Date: Tue, 23 Mar 1993 06:08:27 GMT
  7. Approved: kent@sparky.imd.sterling.com
  8.  
  9. Submitted-by: heitkoet@lusty.informatik.uni-dortmund.de (Joerg Heitkoetter)
  10. Posting-number: Volume 36, Issue 36
  11. Archive-name: hodge-c/part02
  12. Environment: ImageMagick, KHOROS
  13.  
  14. #!/bin/sh
  15. # this is Part.02 (part 2 of a multipart archive)
  16. # do not concatenate these parts, unpack them in order with /bin/sh
  17. # file hodge-c-0.98j/config/dos.cf continued
  18. #
  19. if test ! -r _shar_seq_.tmp; then
  20.     echo 'Please unpack part 1 first!'
  21.     exit 1
  22. fi
  23. (read Scheck
  24.  if test "$Scheck" != 2; then
  25.     echo Please unpack part "$Scheck" next!
  26.     exit 1
  27.  else
  28.     exit 0
  29.  fi
  30. ) < _shar_seq_.tmp || exit 1
  31. if test ! -f _shar_wnt_.tmp; then
  32.     echo 'x - still skipping hodge-c-0.98j/config/dos.cf'
  33. else
  34. echo 'x - continuing file hodge-c-0.98j/config/dos.cf'
  35. sed 's/^X//' << 'SHAR_EOF' >> 'hodge-c-0.98j/config/dos.cf' &&
  36. X
  37. X   #include <os-specials.h>
  38. X     ...
  39. X   #ifdef __COMPILER_TYPE__
  40. X     #include <compiler-specials.h>
  41. X     ...
  42. X   #endif __COMPILER_TYPE__
  43. X
  44. X   #define RSC_FILE    "<rsc-file-name>"
  45. X   #define RSC_PATH    "<rsc_path>" */
  46. X
  47. #include <stdio.h>
  48. #include <ctype.h>
  49. #include <math.h>
  50. #include <string.h>
  51. X
  52. #ifdef __TURBOC__
  53. #include <stdlib.h>
  54. #include <conio.h>
  55. #include <dos.h>
  56. #define KEYPRESSED    (bioskey(1))
  57. #define GETKEY        (bioskey(0)&0x00ff)
  58. #endif /* __TURBOC__ */
  59. X
  60. #define RSC_FILE    "hodge.ini"
  61. #define RSC_PATH    "c:\\;c:\\lib;."
  62. #endif /* __CONFIG_H__ */
  63. SHAR_EOF
  64. echo 'File hodge-c-0.98j/config/dos.cf is complete' &&
  65. chmod 0640 hodge-c-0.98j/config/dos.cf ||
  66. echo 'restore of hodge-c-0.98j/config/dos.cf failed'
  67. Wc_c="`wc -c < 'hodge-c-0.98j/config/dos.cf'`"
  68. test 1475 -eq "$Wc_c" ||
  69.     echo 'hodge-c-0.98j/config/dos.cf: original size 1475, current size' "$Wc_c"
  70. rm -f _shar_wnt_.tmp
  71. fi
  72. # ============= hodge-c-0.98j/config/sunos.cf ==============
  73. if test -f 'hodge-c-0.98j/config/sunos.cf' -a X"$1" != X"-c"; then
  74.     echo 'x - skipping hodge-c-0.98j/config/sunos.cf (File already exists)'
  75.     rm -f _shar_wnt_.tmp
  76. else
  77. > _shar_wnt_.tmp
  78. echo 'x - extracting hodge-c-0.98j/config/sunos.cf (Text)'
  79. sed 's/^X//' << 'SHAR_EOF' > 'hodge-c-0.98j/config/sunos.cf' &&
  80. X
  81. /* sunos.cf -- generic SunOS/Solaris configurations
  82. X
  83. X   Copyright (C) 1993 Joerg Heitkoetter
  84. X
  85. X   This program is free software; you can redistribute it and/or modify
  86. X   it under the terms of the GNU General Public License as published by
  87. X   the Free Software Foundation; either version 2, or (at your option)
  88. X   any later version.
  89. X
  90. X   This program is distributed in the hope that it will be useful,
  91. X   but WITHOUT ANY WARRANTY; without even the implied warranty of
  92. X   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  93. X   GNU General Public License for more details.
  94. X
  95. X   You should have received a copy of the GNU General Public License
  96. X   along with this program; if not, write to the Free Software
  97. X   Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */
  98. X
  99. /* $Id: sunos.cf,v 1.1 1993/03/16 10:35:58 joke Exp $ */
  100. X
  101. #ifndef __CONFIG_H__
  102. #define __CONFIG_H__
  103. X
  104. #define V_OSTYPE    "SunOS/Solaris 1.1"
  105. X
  106. /*
  107. X   #define V_OSTYPE    "OSTYPE"
  108. X
  109. X   #include <os-specials.h>
  110. X     ...
  111. X   #ifdef __COMPILER_TYPE__
  112. X     #include <compiler-specials.h>
  113. X     ...
  114. X   #endif __COMPILER_TYPE__
  115. X
  116. X   #define RSC_FILE    "<rsc-file-name>"
  117. X   #define RSC_PATH    "<rsc_path>" */
  118. X
  119. #include <stdio.h>
  120. #include <ctype.h>
  121. #include <math.h>
  122. #include <memory.h>
  123. #include <string.h>
  124. X
  125. #ifdef __STDC__
  126. #include <stdlib.h>
  127. #include <unistd.h>
  128. #endif /* __STDC__ */
  129. X
  130. #define KEYPRESSED    (0)
  131. #define GETKEY        (0)    
  132. X
  133. #define RSC_FILE    ".scsrc"
  134. #define RSC_PATH    "/usr/local/lib:~:."
  135. #endif /* __CONFIG_H__ */
  136. SHAR_EOF
  137. chmod 0640 hodge-c-0.98j/config/sunos.cf ||
  138. echo 'restore of hodge-c-0.98j/config/sunos.cf failed'
  139. Wc_c="`wc -c < 'hodge-c-0.98j/config/sunos.cf'`"
  140. test 1474 -eq "$Wc_c" ||
  141.     echo 'hodge-c-0.98j/config/sunos.cf: original size 1474, current size' "$Wc_c"
  142. rm -f _shar_wnt_.tmp
  143. fi
  144. # ============= hodge-c-0.98j/config/sys5.cf ==============
  145. if test -f 'hodge-c-0.98j/config/sys5.cf' -a X"$1" != X"-c"; then
  146.     echo 'x - skipping hodge-c-0.98j/config/sys5.cf (File already exists)'
  147.     rm -f _shar_wnt_.tmp
  148. else
  149. > _shar_wnt_.tmp
  150. echo 'x - extracting hodge-c-0.98j/config/sys5.cf (Text)'
  151. sed 's/^X//' << 'SHAR_EOF' > 'hodge-c-0.98j/config/sys5.cf' &&
  152. X
  153. /* sys5.cf -- generic UN*X System V configurations
  154. X
  155. X   Copyright (C) 1993 Joerg Heitkoetter
  156. X
  157. X   This program is free software; you can redistribute it and/or modify
  158. X   it under the terms of the GNU General Public License as published by
  159. X   the Free Software Foundation; either version 2, or (at your option)
  160. X   any later version.
  161. X
  162. X   This program is distributed in the hope that it will be useful,
  163. X   but WITHOUT ANY WARRANTY; without even the implied warranty of
  164. X   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  165. X   GNU General Public License for more details.
  166. X
  167. X   You should have received a copy of the GNU General Public License
  168. X   along with this program; if not, write to the Free Software
  169. X   Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */
  170. X
  171. /* $Id: sys5.cf,v 1.1 1993/03/16 10:35:58 joke Exp $ */
  172. X
  173. #ifndef __CONFIG_H__
  174. #define __CONFIG_H__
  175. X
  176. #define V_OSTYPE    "generic un*x system V"
  177. X
  178. /*
  179. X   #define V_OSTYPE    "OSTYPE"
  180. X
  181. X   #include <os-specials.h>
  182. X     ...
  183. X   #ifdef __COMPILER_TYPE__
  184. X     #include <compiler-specials.h>
  185. X     ...
  186. X   #endif __COMPILER_TYPE__
  187. X
  188. X   #define RSC_FILE    "<rsc-file-name>"
  189. X   #define RSC_PATH    "<rsc_path>" */
  190. X
  191. #include <stdio.h>
  192. #include <ctype.h>
  193. #include <math.h>
  194. #include <string.h>
  195. X
  196. #ifdef __STDC__
  197. #include <stdlib.h>
  198. #include <unistd.h>
  199. #endif /* __STDC__ */
  200. X
  201. #define KEYPRESSED    (0)
  202. #define GETKEY        (0)    
  203. X
  204. #define RSC_FILE    ".hodge"
  205. #define RSC_PATH    "/usr/local/lib:~:."
  206. #endif /* __CONFIG_H__ */
  207. SHAR_EOF
  208. chmod 0640 hodge-c-0.98j/config/sys5.cf ||
  209. echo 'restore of hodge-c-0.98j/config/sys5.cf failed'
  210. Wc_c="`wc -c < 'hodge-c-0.98j/config/sys5.cf'`"
  211. test 1456 -eq "$Wc_c" ||
  212.     echo 'hodge-c-0.98j/config/sys5.cf: original size 1456, current size' "$Wc_c"
  213. rm -f _shar_wnt_.tmp
  214. fi
  215. # ============= hodge-c-0.98j/config/tos.cf ==============
  216. if test -f 'hodge-c-0.98j/config/tos.cf' -a X"$1" != X"-c"; then
  217.     echo 'x - skipping hodge-c-0.98j/config/tos.cf (File already exists)'
  218.     rm -f _shar_wnt_.tmp
  219. else
  220. > _shar_wnt_.tmp
  221. echo 'x - extracting hodge-c-0.98j/config/tos.cf (Text)'
  222. sed 's/^X//' << 'SHAR_EOF' > 'hodge-c-0.98j/config/tos.cf' &&
  223. X
  224. /* tos.cf -- generic ATARI TOS configurations
  225. X
  226. X   Copyright (C) 1993 Joerg Heitkoetter
  227. X
  228. X   This program is free software; you can redistribute it and/or modify
  229. X   it under the terms of the GNU General Public License as published by
  230. X   the Free Software Foundation; either version 2, or (at your option)
  231. X   any later version.
  232. X
  233. X   This program is distributed in the hope that it will be useful,
  234. X   but WITHOUT ANY WARRANTY; without even the implied warranty of
  235. X   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  236. X   GNU General Public License for more details.
  237. X
  238. X   You should have received a copy of the GNU General Public License
  239. X   along with this program; if not, write to the Free Software
  240. X   Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */
  241. X
  242. /* $Id: tos.cf,v 1.1 1993/03/16 10:35:58 joke Exp $ */
  243. X
  244. #ifndef __CONFIG_H__
  245. #define __CONFIG_H__
  246. X
  247. #define V_OSTYPE    "TOS 2.6"
  248. X
  249. /*
  250. X   #define V_OSTYPE    "OSTYPE"
  251. X
  252. X   #include <os-specials.h>
  253. X     ...
  254. X   #ifdef __COMPILER_TYPE__
  255. X     #include <compiler-specials.h>
  256. X     ...
  257. X   #endif __COMPILER_TYPE__
  258. X
  259. X   #define RSC_FILE    "<rsc-file-name>"
  260. X   #define RSC_PATH    "<rsc_path>" */
  261. X
  262. #include <stdio.h>
  263. #include <ctype.h>
  264. #include <math.h>
  265. #include <string.h>
  266. X
  267. #ifdef __TURBOC__
  268. #include <stdlib.h>
  269. #include <tos.h>
  270. #define KEYPRESSED    (Cconis()&0xff)
  271. #define GETKEY        Cnecin()
  272. #endif /* __TURBOC__ */
  273. X
  274. #define RSC_FILE    "hodge.ini"
  275. #define RSC_PATH    "c:\\;c:\\lib;."
  276. #endif /* __CONFIG_H__ */
  277. SHAR_EOF
  278. chmod 0640 hodge-c-0.98j/config/tos.cf ||
  279. echo 'restore of hodge-c-0.98j/config/tos.cf failed'
  280. Wc_c="`wc -c < 'hodge-c-0.98j/config/tos.cf'`"
  281. test 1451 -eq "$Wc_c" ||
  282.     echo 'hodge-c-0.98j/config/tos.cf: original size 1451, current size' "$Wc_c"
  283. rm -f _shar_wnt_.tmp
  284. fi
  285. # ============= hodge-c-0.98j/configure ==============
  286. if test -f 'hodge-c-0.98j/configure' -a X"$1" != X"-c"; then
  287.     echo 'x - skipping hodge-c-0.98j/configure (File already exists)'
  288.     rm -f _shar_wnt_.tmp
  289. else
  290. > _shar_wnt_.tmp
  291. echo 'x - extracting hodge-c-0.98j/configure (Text)'
  292. sed 's/^X//' << 'SHAR_EOF' > 'hodge-c-0.98j/configure' &&
  293. #! /bin/csh -f
  294. # Script to `configure' HODGE-C
  295. # $Id: configure,v 1.1 1993/03/16 10:35:58 joke Exp $
  296. #
  297. set default=sunos
  298. set ostype=$default
  299. set configdir=./config
  300. set srcdir=.
  301. set package=HODGE-C
  302. #
  303. top:
  304. if ($#argv > 0) then
  305. X    switch ($1:q)
  306. X
  307. X    case --*:
  308. X    set ostype = "$1:q"
  309. X    shift
  310. X    goto top
  311. X
  312. X    default:
  313. X    goto usage
  314. X    endsw
  315. endif
  316. X
  317. rm -f $srcdir/config.h
  318. if ("$ostype" == "--sunos") then
  319. X    ln -s $configdir/sunos.cf $srcdir/config.h
  320. X    echo "$package configured for SunOS."
  321. X    goto done
  322. endif
  323. X
  324. if ("$ostype" == "--solaris") then
  325. X    ln -s $configdir/sunos.cf $srcdir/config.h
  326. X    echo "$package configured for SunOS/Solaris."
  327. X    goto done
  328. endif
  329. X
  330. if ("$ostype" == "--unix") then
  331. X    echo "try either: configure --bsd, or: configure --sys5"
  332. X    goto done
  333. endif
  334. X
  335. if ("$ostype" == "--sys5") then
  336. X    ln -s $configdir/sys5.cf $srcdir/config.h
  337. X    echo "$package configured for generic unix system V."
  338. X    goto done
  339. endif
  340. X
  341. if ("$ostype" == "--bsd") then
  342. X    ln -s $configdir/bsd.cf $srcdir/config.h
  343. X    echo "$package configured for generic BSD unix."
  344. X    goto done
  345. endif
  346. X
  347. usage:
  348. X    echo "usage: configure --<os-type>    (eg. configure --sunos)"
  349. X
  350. done:
  351. SHAR_EOF
  352. chmod 0750 hodge-c-0.98j/configure ||
  353. echo 'restore of hodge-c-0.98j/configure failed'
  354. Wc_c="`wc -c < 'hodge-c-0.98j/configure'`"
  355. test 1157 -eq "$Wc_c" ||
  356.     echo 'hodge-c-0.98j/configure: original size 1157, current size' "$Wc_c"
  357. rm -f _shar_wnt_.tmp
  358. fi
  359. # ============= hodge-c-0.98j/contrib/infekt2.c ==============
  360. if test ! -d 'hodge-c-0.98j/contrib'; then
  361.     echo 'x - creating directory hodge-c-0.98j/contrib'
  362.     mkdir 'hodge-c-0.98j/contrib'
  363. fi
  364. if test -f 'hodge-c-0.98j/contrib/infekt2.c' -a X"$1" != X"-c"; then
  365.     echo 'x - skipping hodge-c-0.98j/contrib/infekt2.c (File already exists)'
  366.     rm -f _shar_wnt_.tmp
  367. else
  368. > _shar_wnt_.tmp
  369. echo 'x - extracting hodge-c-0.98j/contrib/infekt2.c (Text)'
  370. sed 's/^X//' << 'SHAR_EOF' > 'hodge-c-0.98j/contrib/infekt2.c' &&
  371. /****************************************************************/
  372. /*                                                              */
  373. /*             C-Textfile zum  INFEKTIONSMODELL                 */
  374. /*                   von Martin Gerhardt                        */
  375. /*                                                              */
  376. /*  Version 2.0                                   31. 8. 1986   */
  377. /*                                                              */
  378. /*                                                              */
  379. /*  Bemerkungen zur Art der Simulation:                         */
  380. /*                                                              */
  381. /*  - Rand des Feldes nicht geschlossen                         */
  382. /*  - Moore-Nachbarschaft                                       */
  383. /*  - einzulesende Feldgroesse sollte nicht groesser als 179 sein   */
  384. /*  - als Auswertung ist das Spielfeld dargestellt:             */
  385. /*        - Tastaturbelegungen:                                 */
  386. /*             'm' : Darstellung des Spielfeldes                */
  387. /*             'B' : Beendigung der Simulation                  */
  388. /*             'w' : Halt bis neuer Tastendruck erfolgt         */
  389. /*             'E' : Neues Einlesen der Konstanten              */
  390. /*                                                              */
  391. /****************************************************************/
  392. X
  393. /*
  394. X *  $Id: infekt2.c,v 1.1 1993/03/11 12:10:52 joke Exp $
  395. X */
  396. X 
  397. #ifdef __STDC__            /* ATARI ST Turbo-C */
  398. #include <aes.h>
  399. #include <vdi.h>
  400. #include <tos.h>
  401. #include <stdio.h>
  402. #else /* Megamax-C */
  403. #include <osbind.h>
  404. #endif
  405. X
  406. int contrl[12], intin[128], ptsin[128], intout[128], ptsout[128];
  407. X
  408. int handle;
  409. X
  410. int work_out[57], work_in[12];
  411. X
  412. int set_mode, set_perimeter, set_color, set_interior, set_style, set_effect;
  413. X
  414. int Feldgr, Umschlagsgrenze, Infgeschw, k1, k2, Bgrad;
  415. X
  416. X
  417. long Zufallszahl, Zeitpunkt, Umschlaege;
  418. X
  419. int *Feld, *Hfeld, *Krank, *Inf;
  420. X
  421. /*************************************************/
  422. /*    open_work                                  */
  423. /*************************************************/
  424. X
  425. open_work ()
  426. {
  427. X    int i;
  428. X
  429. X    appl_init ();
  430. X    for (i = 0; i < 10; work_in[i++] = 1);
  431. X    work_in[10] = 2;
  432. X    v_opnvwk (work_in, &handle, work_out);
  433. }
  434. X
  435. /*************************************************/
  436. /*    close_work                                 */
  437. /*************************************************/
  438. X
  439. close_work ()
  440. {
  441. X    gemdos (0x1);
  442. X    v_clsvwk (handle);
  443. X    appl_exit ();
  444. }
  445. X
  446. /*************************************************/
  447. /*   hide_mouse                                  */
  448. /*************************************************/
  449. static int hidden;
  450. X
  451. hide_mouse ()
  452. {
  453. X    if (!hidden) {
  454. X    graf_mouse (256, 0x0L);
  455. X    hidden = 1;
  456. X    }
  457. }
  458. X
  459. /**************************************************/
  460. /*   show_mouse                                   */
  461. /**************************************************/
  462. show_mouse ()
  463. {
  464. X    if (hidden) {
  465. X    graf_mouse (257, 0x0L);
  466. X    hidden = 0;
  467. X    }
  468. }
  469. X
  470. /*************************************************/
  471. /*    Speicherplatzreservierung                  */
  472. /*************************************************/
  473. Speicherplatz ()
  474. {
  475. X    if ((Feld = (int *) Malloc (2l * (long) Feldgr * (long) Feldgr)) == 0) {
  476. X    form_alert (1, "[3][Speicherplatzmangel][Abbruch]");
  477. X    return (1);
  478. X    }
  479. X    if ((Hfeld = (int *) Malloc (2l * (long) Feldgr * (long) Feldgr)) == 0) {
  480. X    form_alert (1, "[3][Speicherplatzmangel][Abbruch]");
  481. X    return (1);
  482. X    }
  483. X    if ((Inf = (int *) Malloc (2l * (long) Feldgr * (long) Feldgr)) == 0) {
  484. X    form_alert (1, "[3][Speicherplatzmangel][Abbruch]");
  485. X    return (1);
  486. X    }
  487. X    if ((Krank = (int *) Malloc (2l * (long) Feldgr * (long) Feldgr)) == 0) {
  488. X    form_alert (1, "[3][Speicherplatzmangel][Abbruch]");
  489. X    return (1);
  490. X    }
  491. X    return (0);
  492. }
  493. X
  494. /*************************************************/
  495. /*    Speicherplatzfreigabe                      */
  496. /*************************************************/
  497. Spfrei ()
  498. {
  499. X    Mfree (Feld);
  500. X    Mfree (Hfeld);
  501. X    Mfree (Krank);
  502. X    Mfree (Inf);
  503. }
  504. X
  505. /*************************************************/
  506. /*    Zufallszahl                                */
  507. /*************************************************/
  508. X
  509. #define M 100000000
  510. #define m1  10000L
  511. #define b 31415821
  512. X
  513. long
  514. Multiply (p, q)
  515. X    long p, q;
  516. X
  517. {
  518. X    long p0, p1, q0, q1;
  519. X
  520. X    p1 = p / m1;
  521. X    p0 = p % m1;
  522. X    q1 = q / m1;
  523. X    q0 = q % m1;
  524. X
  525. X    return ((((p0 * q1 + p1 * q0) % m1) * m1 + p0 * q0) % M);
  526. }
  527. X
  528. X
  529. rnd (maxvalue)
  530. X    long maxvalue;
  531. X
  532. {
  533. X    long Multiply ();
  534. X
  535. X    Zufallszahl = (Multiply (Zufallszahl, b) + 1L) % M;
  536. X    return ((((Zufallszahl / m1) * maxvalue) / m1) % 65536);
  537. }
  538. X
  539. X
  540. /*************************************************/
  541. /*  Einlesen                                     */
  542. /*************************************************/
  543. X
  544. Einlesen ()
  545. {
  546. X    do {
  547. X
  548. X    v_clrwk (handle);
  549. X    printf ("\033H\033e");
  550. X    printf ("Feldgroesse = ");
  551. X    scanf ("%d", &Feldgr);
  552. X    Feldgr = Feldgr + 2;
  553. X    printf ("Umschlagsgrenze = ");
  554. X    scanf ("%d", &Umschlagsgrenze);
  555. X    printf ("Infektionsgeschw. = ");
  556. X    scanf ("%d", &Infgeschw);
  557. X    printf ("k1 = ");
  558. X    scanf ("%d", &k1);
  559. X    printf ("k2 = ");
  560. X    scanf ("%d", &k2);
  561. X    printf ("Bedeckungsgrad = ");
  562. X    scanf ("%d", &Bgrad);
  563. X    printf ("Zufallszahl = ");
  564. X    scanf ("%ld", &Zufallszahl);
  565. X    printf ("\033f");
  566. X
  567. X    printf ("\n\n\n    continue   (y/n)\n");
  568. X    }
  569. X    while ((char) evnt_keybd () != 'y');
  570. }
  571. X
  572. /********************************************/
  573. /*   Anfangsbelegung                        */
  574. /********************************************/
  575. X
  576. Anfangsbelegung ()
  577. {
  578. X    register int i, j;
  579. X
  580. X    for (i = 1; i <= Feldgr - 2; i++)
  581. X    for (j = 1; j <= Feldgr - 2; j++) {
  582. X
  583. X        if (rnd (100L) >= Bgrad)
  584. X        *(Feld + i * Feldgr + j) = 0;
  585. X        else
  586. X        *(Feld + i * Feldgr + j) = rnd ((long) Umschlagsgrenze);
  587. X        *(Hfeld + i * Feldgr + j) = 0;
  588. X    }
  589. X
  590. X    for (i = 0; i <= Feldgr - 1; i++) {
  591. X    *(Feld + i) = -1;
  592. X    *(Feld + i * Feldgr) = -1;
  593. X    *(Feld + (i + 1) * Feldgr - 1) = -1;
  594. X    *(Feld + Feldgr * (Feldgr - 1) + i) = -1;
  595. X
  596. X    *(Hfeld + i) = -1;
  597. X    *(Hfeld + i * Feldgr) = -1;
  598. X    *(Hfeld + (i + 1) * Feldgr - 1) = -1;
  599. X    *(Hfeld + Feldgr * (Feldgr - 1) + i) = -1;
  600. X    }
  601. }
  602. X
  603. /*****************************/
  604. /* Hilfsfeldneu              */
  605. /*****************************/
  606. Hfeldneu ()
  607. {
  608. X    register int i, j;
  609. X
  610. X    for (i = 1; i <= Feldgr - 2; i++)
  611. X    for (j = 1; j <= Feldgr - 2; j++)
  612. X        *(Hfeld + i * Feldgr + j) = 0;
  613. }
  614. X
  615. /********************************************/
  616. /*   grafische Auswertung                   */
  617. /********************************************/
  618. X
  619. /*****************************/
  620. /* Grafiktext                */
  621. /*****************************/
  622. Text ()
  623. {
  624. X    char string[50];
  625. X
  626. X    v_gtext (handle, 410, 20, "************************");
  627. X    v_gtext (handle, 410, 40, "*   Infektionsmodell   *");
  628. X    v_gtext (handle, 410, 60, "************************");
  629. X    v_gtext (handle, 410, 80, " - Moore Nachbarschaft ");
  630. X    v_gtext (handle, 410, 100, " - Feld mit Rand        ");
  631. X    set_effect = vst_effects (handle, 8);
  632. X    v_gtext (handle, 410, 130, "Konstanten :");
  633. X    v_gtext (handle, 410, 300, "Berechnung :");
  634. X    set_effect = vst_effects (handle, 0);
  635. X    sprintf (string, "  Feldgroesse       : %d", Feldgr - 2);
  636. X    v_gtext (handle, 410, 150, string);
  637. X    sprintf (string, "  Umschlagsgrenze   : %d", Umschlagsgrenze);
  638. X    v_gtext (handle, 410, 170, string);
  639. X    sprintf (string, "  Infektionsgeschw. : %d", Infgeschw);
  640. X    v_gtext (handle, 410, 190, string);
  641. X    sprintf (string, "  k1 (krank)        : %d", k1);
  642. X    v_gtext (handle, 410, 210, string);
  643. X    sprintf (string, "  k2 (infiziert)    : %d", k2);
  644. X    v_gtext (handle, 410, 230, string);
  645. X    sprintf (string, "  Bedeckungsgrad    : %d", Bgrad);
  646. X    v_gtext (handle, 410, 250, string);
  647. X    sprintf (string, "  Zufallszahl       : %ld", Zufallszahl);
  648. X    v_gtext (handle, 410, 270, string);
  649. X    v_gtext (handle, 410, 320, "  Zeitpunkt  : ");
  650. X    v_gtext (handle, 410, 340, "  Umschlaege : ");
  651. }
  652. X
  653. /*****************************/
  654. /* Setze Attribute           */
  655. /*****************************/
  656. X
  657. Setze_Attribute ()
  658. {
  659. X    set_mode = vswr_mode (handle, 1);
  660. X    set_perimeter = vsf_perimeter (handle, 0);
  661. X    set_color = vsf_color (handle, 1);
  662. }
  663. X
  664. /*****************************/
  665. /* Hintergrund : schwarz     */
  666. /*****************************/
  667. X
  668. Hintergrund ()
  669. {
  670. X    int pxyarray[4];
  671. X
  672. X    pxyarray[0] = 0;
  673. X    pxyarray[1] = 0;
  674. X    pxyarray[2] = (400 / (Feldgr - 2)) * (Feldgr - 2);
  675. X    pxyarray[3] = (400 / (Feldgr - 2)) * (Feldgr - 2);
  676. X
  677. X    set_interior = vsf_interior (handle, 1);
  678. X
  679. X    vr_recfl (handle, pxyarray);
  680. }
  681. X
  682. /*****************************/
  683. /* welcher Farbwert ?        */
  684. /*****************************/
  685. X
  686. Farbe (z)
  687. X    int z;
  688. X
  689. {
  690. X    switch (z) {
  691. X
  692. X     case -1:
  693. X     case 0:
  694. X     return (8);
  695. X     break;
  696. X     default:
  697. X     if (z >= Umschlagsgrenze)
  698. X         return (0);
  699. X     else
  700. X         return (7 - ((7 * z) / Umschlagsgrenze));
  701. X     break;
  702. X    }
  703. }
  704. X
  705. /*****************************/
  706. /* Zeichne Rechteck          */
  707. /*****************************/
  708. X
  709. Fill_Rectangle (x, y, Schritt, style)
  710. X    int x, y, Schritt, style;
  711. X
  712. {
  713. X    int pxyarray[4];
  714. X
  715. X    pxyarray[0] = (y - 1) * Schritt;
  716. X    pxyarray[1] = (x - 1) * Schritt;
  717. X    pxyarray[2] = y * Schritt;
  718. X    pxyarray[3] = x * Schritt;
  719. X
  720. X    switch (style) {
  721. X
  722. X     case 0:
  723. X     set_interior = vsf_interior (handle, 0);
  724. X     vr_recfl (handle, pxyarray);
  725. X     break;
  726. X     default:
  727. X     set_interior = vsf_interior (handle, 2);
  728. X     set_style = vsf_style (handle, style);
  729. X     vr_recfl (handle, pxyarray);
  730. X     break;
  731. X    }
  732. }
  733. X
  734. /************************/
  735. /* Auswertfunktion      */
  736. /************************/
  737. X
  738. Auswertung ()
  739. {
  740. X    register int i, j;
  741. X    int style, Schritt;
  742. X
  743. X    Schritt = 400 / (Feldgr - 2);
  744. X
  745. X    for (i = 1; i <= Feldgr - 2; i++)
  746. X    for (j = 1; j <= Feldgr - 2; j++)
  747. X        if ((style = Farbe (*(Feld + i * Feldgr + j))) != Farbe (*(Hfeld + i * Feldgr + j)))
  748. X        Fill_Rectangle (i, j, Schritt, style);
  749. }
  750. X
  751. /********************************************/
  752. /*    Rekursionsgleichung                   */
  753. /********************************************/
  754. X
  755. Hilfsfelder ()
  756. {
  757. X    register int i, j;
  758. X
  759. X    for (i = 0; i < Feldgr; i++)
  760. X    for (j = 0; j < Feldgr; j++) {
  761. X
  762. X        *(Krank + i * Feldgr + j) = 0;
  763. X        *(Inf + i * Feldgr + j) = 0;
  764. X
  765. X        if (*(Feld + i * Feldgr + j) >= Umschlagsgrenze)
  766. X        *(Krank + i * Feldgr + j) = 1;
  767. X        else if (*(Feld + i * Feldgr + j) > 0)
  768. X        *(Inf + i * Feldgr + j) = 1;
  769. X    }
  770. }
  771. X
  772. Rekursion ()
  773. {
  774. X    register int i, j, ni, nj;
  775. X    int krank, infiziert, infsumme;
  776. X    int *ptr;
  777. X    char string[50];
  778. X
  779. X    Zeitpunkt = Zeitpunkt + 1l;
  780. X    Umschlaege = 0;
  781. X
  782. X    Hilfsfelder ();
  783. X
  784. X    for (i = 1; i <= Feldgr - 2; i++)
  785. X    for (j = 1; j <= Feldgr - 2; j++) {
  786. X
  787. X        switch (*(Feld + i * Feldgr + j)) {
  788. X
  789. X         case 0:
  790. X         krank = 0;
  791. X         infiziert = 0;
  792. X
  793. X         for (ni = -1; ni <= 1; ni++)
  794. X             for (nj = -1; nj <= 1; nj++) {
  795. X             krank = krank + *(Krank + (i + ni) * Feldgr + j + nj);
  796. X             infiziert = infiziert + *(Inf + (i + ni) * Feldgr + j + nj);
  797. X             }
  798. X         *(Hfeld + i * Feldgr + j) = krank / k1 + infiziert / k2;
  799. X         break;
  800. X
  801. X         default:
  802. X         if (*(Feld + i * Feldgr + j) >= Umschlagsgrenze) {
  803. X             *(Hfeld + i * Feldgr + j) = 0;
  804. X             Umschlaege = Umschlaege + 1;
  805. X         } else {
  806. X             infsumme = 0;
  807. X             infiziert = 0;
  808. X
  809. X             for (ni = -1; ni <= 1; ni++)
  810. X             for (nj = -1; nj <= 1; nj++) {
  811. X                 infsumme = infsumme + (*(Inf + (i + ni) * Feldgr + j + nj)
  812. X                            * *(Feld + (i + ni) * Feldgr + j + nj));
  813. X
  814. X                 infiziert = infiziert + *(Inf + (i + ni) * Feldgr + j + nj);
  815. X             }
  816. X             *(Hfeld + i * Feldgr + j) = infsumme / infiziert + Infgeschw;
  817. X         }
  818. X         break;
  819. X        }
  820. X    }                /* rekursive Schleife */
  821. X
  822. X   /* Kopie */
  823. X    ptr = Hfeld;
  824. X    Hfeld = Feld;
  825. X    Feld = ptr;
  826. X
  827. }                    /* Ende */
  828. X
  829. /*******************************************************/
  830. main ()
  831. {
  832. X    char ch;
  833. X    char string[50];
  834. X
  835. X    open_work ();
  836. X    hide_mouse ();
  837. X    Einlesen ();
  838. X    if (Speicherplatz () == 1)
  839. X    goto ENDE;
  840. X    Setze_Attribute ();
  841. X    v_clrwk (handle);
  842. X    Hintergrund ();
  843. X    Text ();
  844. X    Anfangsbelegung ();
  845. X    Auswertung ();
  846. X    ch = (char) evnt_keybd ();
  847. X    Zeitpunkt = 0l;
  848. X
  849. X    while (ch != 'B') {
  850. X    Rekursion ();
  851. X    if (Cconis () != 0) {
  852. X        ch = Crawcin ();
  853. X        if (ch == 'm') {
  854. X        Hintergrund ();
  855. X        Hfeldneu ();
  856. X        }
  857. X    }
  858. X
  859. X    if (ch == 'w')
  860. X        ch = (char) evnt_keybd ();
  861. X
  862. X    sprintf (string, "%ld", Zeitpunkt);
  863. X    v_gtext (handle, 530, 320, string);
  864. X    sprintf (string, "%ld    ", Umschlaege);
  865. X    v_gtext (handle, 530, 340, string);
  866. X
  867. X    if (ch == 'm')
  868. X        Auswertung ();
  869. X
  870. X    if (ch == 'E') {
  871. X        v_clrwk (handle);
  872. X        Einlesen ();
  873. X        Hintergrund ();
  874. X        Text ();
  875. X        Hfeldneu ();
  876. X        ch = 'm';
  877. X        Zeitpunkt = 0;
  878. X    }
  879. X    }
  880. X
  881. X    v_clrwk (handle);
  882. X    Spfrei ();
  883. X    show_mouse ();
  884. X
  885. X  ENDE:
  886. X    close_work ();
  887. X    return 0;
  888. }
  889. SHAR_EOF
  890. chmod 0640 hodge-c-0.98j/contrib/infekt2.c ||
  891. echo 'restore of hodge-c-0.98j/contrib/infekt2.c failed'
  892. Wc_c="`wc -c < 'hodge-c-0.98j/contrib/infekt2.c'`"
  893. test 12637 -eq "$Wc_c" ||
  894.     echo 'hodge-c-0.98j/contrib/infekt2.c: original size 12637, current size' "$Wc_c"
  895. rm -f _shar_wnt_.tmp
  896. fi
  897. # ============= hodge-c-0.98j/contrib/pixmon.1 ==============
  898. if test -f 'hodge-c-0.98j/contrib/pixmon.1' -a X"$1" != X"-c"; then
  899.     echo 'x - skipping hodge-c-0.98j/contrib/pixmon.1 (File already exists)'
  900.     rm -f _shar_wnt_.tmp
  901. else
  902. > _shar_wnt_.tmp
  903. echo 'x - extracting hodge-c-0.98j/contrib/pixmon.1 (Text)'
  904. sed 's/^X//' << 'SHAR_EOF' > 'hodge-c-0.98j/contrib/pixmon.1' &&
  905. .\" $Id$
  906. .TH PIXMON 1 "16 March 1993" "Version 0.3"
  907. .ta 0.5i +0.5i +0.5i +0.5i +0.5i +0.5i +0.5i +0.5i +0.5i +0.5i +0.5i +0.5i +0.5i +0.5i +0.5i
  908. X
  909. \" this noise gets my name right!
  910. .nr 99 \n(.s
  911. .nr 98 \n(.f
  912. .ds 11 "\fRo
  913. .nr 11 \w'\s10\*(11'
  914. .nr 10 0u
  915. .if \n(ct>1 .nr 10 \n(10+\s10.25m\s0
  916. .nr 13 \s10.1m\s0
  917. .if \n(ct>1 .nr 13 \s10.15m\s0
  918. .ds 12 \s10\v'-.67m'..\v'.67m\s0'
  919. .nr 12 \w'\s10\*(12'
  920. .as 11 \h'-\n(11u-\n(12u/2u+\n(13u'\v'0-\n(10u'\*(12\v'\n(10u'\h'-\n(12u+\n(11u/2u-\n(13u'
  921. .ds o \x'0'\f1\s10\*(11\s\n(99\f\n(98
  922. X
  923. .SH NAME
  924. .B pixmon
  925. \- a simple pixel monitor for X11
  926. X
  927. .SH SYNOPSIS
  928. .LP
  929. .B pixmon
  930. [
  931. .I -Xt-options ...
  932. ]
  933. [
  934. .I -options ...
  935. ]
  936. .TP
  937. X        [\fB-dx \fI<pixel-data-size>\fR]
  938. .TP
  939. X        [\fB-dy \fI<pixel-data-size>\fR]
  940. .TP
  941. X        [\fB-width \fI<window-size>\fR]
  942. .TP
  943. X        [\fB-height \fI<window-size>\fR]
  944. .TP
  945. X        [\fB-scale \fI<float-value>\fR]
  946. .TP
  947. X        [\fB-cmap \fI<filename>[.cmap]\fR]
  948. .TP
  949. X        [\fB-dither\fR]
  950. X
  951. .SH DESCRIPTION
  952. .B pixmon
  953. implements a simple 
  954. .I pixel data monitor
  955. for use with the
  956. .I X11
  957. window system. It comes with the following features:
  958. .TP \w'\(bu'u+2n
  959. \(bu
  960. Auto-rescale when changing the window size
  961. .TP
  962. \(bu
  963. Loadable colormaps, you can display the same data with
  964. different colors
  965. .TP
  966. \(bu
  967. Autodetect mono servers, using dithering
  968. .I (ordered dither)
  969. instead of colors
  970. .TP
  971. \(bu
  972. Run length encoding support.
  973. X
  974. .SH OPTIONS
  975. .TP
  976. .B \-dx \fIpixel-data-size\fR
  977. Set the horizontal size of expected
  978. .I pixel data image.
  979. (Defaults to \fI100\fR.)
  980. .TP
  981. .B \-dy \fIpixel-data-size\fR
  982. Set the vertical size of expected
  983. .I pixel data image.
  984. (Defaults to \fI100\fR.)
  985. .TP
  986. .B \-width \fIwindow-size\fR
  987. Set the horizontal size of
  988. .I pixmon
  989. window in screen coordinates
  990. (Defaults to \fIdx * scale\fR.)
  991. .TP
  992. .B \-height \fIwindow-size\fR
  993. Set the vertical size of
  994. .I pixmon
  995. window in screen coordinates
  996. (Defaults to \fIdy * scale\fR.)
  997. .TP
  998. .B \-scale \fIfloat-value\fR
  999. Scale the window's size to
  1000. .I width = dx * float-value
  1001. and
  1002. .I height = dy * float-value
  1003. (Defaults to \fI2\fR.)
  1004. .TP
  1005. .B \-cmap \fIfilename[.cmap]\fR
  1006. Read in \fIfilename[.cmap]\fR on program start, and use the
  1007. colors when generating the pixmaps. The use of the
  1008. suffix `.cmap' is encouraged, but not enforced.
  1009. .TP
  1010. .B \-dither
  1011. Use an
  1012. .I ordered dither
  1013. for pseudo color representation on low bitplane devices,
  1014. eg.
  1015. .I monochrome
  1016. XX servers.
  1017. when used on a color device, a two color dithering generates
  1018. some interesting effects.
  1019. .PP
  1020. The following standard X Toolkit command line arguments are commonly used 
  1021. with
  1022. .BR pixmon :
  1023. .TP
  1024. .B \-bg \fIcolor\fP
  1025. This option specifies the color to use for the background of the window.  
  1026. The default is ``white.''
  1027. .TP
  1028. .B \-bd \fIcolor\fP
  1029. This option specifies the color to use for the border of the window.
  1030. The default is ``black.''
  1031. .TP
  1032. .B \-bw \fInumber\fP
  1033. This option specifies the width in pixels of the border surrounding the window.
  1034. .TP
  1035. .B \-fg \fIcolor\fP
  1036. This option specifies the color to use for displaying pixels.  The default is 
  1037. ``black.''
  1038. .TP
  1039. .B \-name \fIname\fP
  1040. This option specifies the application name under which resources are to be
  1041. obtained, rather than the default executable file name.
  1042. \fIName\fP should not contain ``.'' or ``*'' characters. (Defaults to
  1043. .B ``PixMon.'')
  1044. .TP
  1045. .B \-title \fIstring\fP
  1046. This option specifies the window title string, which may be displayed by
  1047. window managers if the user so chooses.  The default title is `pixmon'.
  1048. .TP
  1049. .B \-rv
  1050. This option indicates that reverse video should be simulated by swapping
  1051. the foreground and background colors.
  1052. .TP
  1053. .B \-geometry \fIgeometry\fP
  1054. This option specifies the preferred size and position of the
  1055. .B pixmon window;
  1056. see \fIX(1)\fP.
  1057. .TP
  1058. .B \-display \fIdisplay\fP
  1059. This option specifies the X server to contact; see \fIX(1)\fP.
  1060. .TP
  1061. .B \-xrm \fIresourcestring\fP
  1062. This option specifies a resource string to be used.  This is especially
  1063. useful for setting resources that do not have separate command line options.
  1064. .TP
  1065. .B \-iconic
  1066. This option indicates that
  1067. .B pixmon
  1068. should ask the window manager to 
  1069. start it as an icon rather than as the normal window.
  1070. X
  1071. .SH OPTION SUMMARY
  1072. To give no option at all is the same as to give the following options:
  1073. .TP
  1074. -dx 100 -dy 100 -scale 2 -cmap default.cmap
  1075. X
  1076. .SH FORMATS
  1077. .TP \w'\(bu'u+2n
  1078. \(bu
  1079. .I Color map file(s), recognised by
  1080. .B pixmon
  1081. have the following
  1082. .SM ASCII
  1083. layout:
  1084. .LP
  1085. .nf
  1086. .DT
  1087. .ft B
  1088. X    #     File:        demo.map
  1089. X    #    Creator:    Joachim Sprave (sprave@gonzo)
  1090. X    # <- this is a comment line: '#' in the 1st column
  1091. X    <red intensity 0>    <green intensity 0>    <blue intensity 0>
  1092. X    <red intensity 1>    <green intensity 1>    <blue intensity 1>
  1093. X    <red intensity 2>    <green intensity 2>    <blue intensity 2>
  1094. X                \&.\&.\&.
  1095. X    <red intensity 255>    <green intensity 255>    <blue intensity 255>
  1096. .ft R
  1097. .fi
  1098. X
  1099. Thus a color map file consist of 256 lines each one containing such a
  1100. color description. Eg. to get a greyscale `color' map, simply
  1101. use the same intensities for all colors (see
  1102. .SM EXAMPLES
  1103. below).
  1104. .TP \w'\(bu'u+2n
  1105. \(bu
  1106. A package header is defined as:
  1107. .LP
  1108. .nf
  1109. .DT
  1110. .ft B
  1111. X    typedef struct {
  1112. X        unsigned short    magic;
  1113. X        unsigned short    type;
  1114. X        short        x;
  1115. X        short        y;
  1116. X        unsigned short    dx;
  1117. X        unsigned short    dy;
  1118. X        unsigned short    sizelo;
  1119. X        unsigned short    sizehi;
  1120. X    } ImgHdr;
  1121. .ft R
  1122. .fi
  1123. X
  1124. With the following semantics:
  1125. .TP
  1126. .I magic
  1127. used to determine byte sex, must
  1128. be initialized to PIX_MAGIC
  1129. .TP
  1130. .I type
  1131. one of:
  1132. .RS
  1133. .TP
  1134. .SM PIX_DATA
  1135. Include the pixel data following 
  1136. the header into the picture 
  1137. (without displaying instantly).
  1138. .TP
  1139. .SM PIX_FLUSH
  1140. Display the internal pixmap.
  1141. .TP
  1142. .SM PIX_DATA | PIX_FLUSH
  1143. Include the pixel data following 
  1144. the header into the picture 
  1145. and display it instantly.
  1146. .TP
  1147. .SM PIX_KILL
  1148. Tells
  1149. .B pixmon
  1150. to exit, when button 1 is pressed.
  1151. .RE
  1152. .TP
  1153. .I x, y
  1154. Position of this package relative to
  1155. the upper-left corner of the window.
  1156. .TP
  1157. .I dx, dy
  1158. Width and height (in dots, not in pixels)
  1159. of this package.
  1160. .TP
  1161. .I sizelo, sizehi            
  1162. Size of the following pixel data. If
  1163. .I sizehi * 0x10000 + sizelo
  1164. .I < dx * dy,
  1165. .B pixmon
  1166. expects run length encoded data.
  1167. X
  1168. .SH ENCODING
  1169. If
  1170. .SM RUN LENGTH ENCODING (RLE)
  1171. is detected (see above), the value
  1172. .BR PIX_RLE (0xFF)
  1173. is treated as an escape value,
  1174. so the number of colors is reduced by one.
  1175. To encode your data, use the function
  1176. .B rle_encode
  1177. from
  1178. .I rle.c.
  1179. X
  1180. .SH EXAMPLES
  1181. .TP \w'\(bu'u+2n
  1182. \(bu
  1183. A
  1184. .I greyscale
  1185. color map looks like:
  1186. .LP
  1187. .nf
  1188. .DT
  1189. .ft R
  1190. X    0    0    0
  1191. X    1    1    1
  1192. X    2    2    2
  1193. X    3    3    3
  1194. X        \&.\&.\&.
  1195. X    255    255    255
  1196. .fi
  1197. .TP \w'\(bu'u+2n
  1198. \(bu
  1199. To use run length encoding of your pixel data, write:
  1200. .LP
  1201. .nf
  1202. .DT
  1203. .ft B
  1204. X    my_encode ()
  1205. X    {
  1206. X        char mybuffer[MBSIZE];
  1207. X        \&.\&.\&.
  1208. X        rle_encode (mybuffer, MBSIZE, PIX_RLE);
  1209. X        \&.\&.\&.
  1210. X    }
  1211. .ft R
  1212. .fi
  1213. X
  1214. .SH FILES
  1215. .LP
  1216. .nf
  1217. .DT
  1218. .ft R
  1219. pixmon/default.cmap        \fIdefault color map\fR
  1220. pixmon/cmaps/*.cmap        \fIexample color maps\fR
  1221. X
  1222. pixmon/examples/README    \fIguiding instructions\fR
  1223. pixmon/examples/mbx        \fIshell script that runs mbs\fR
  1224. pixmon/examples/mbs.c        \fIgenerates a mandelbrot set\fR
  1225. pixmon/examples/showpal.c    \fIgenerates a color palette\fR
  1226. .ft R
  1227. .fi
  1228. X
  1229. .SH ANIMATION
  1230. An animation companion to
  1231. .B pixmon
  1232. called
  1233. .BR playmate (1)
  1234. is also in the making, and will be distributed in near future
  1235. (refer to the
  1236. .SM AVAILABILITY
  1237. section below).
  1238. Its application is rather simple: all there is to do is to
  1239. include a ``tee-log'' in the `pixel generating pipe' eg.:
  1240. .PP
  1241. .RS
  1242. .I example%
  1243. .B mbs ... | tee >pmdata.pix
  1244. .B | pixmon ...
  1245. .RE
  1246. .PP
  1247. to collect
  1248. .B pixmon
  1249. data, that is later turned into animated pixmaps by
  1250. .BR playmate (1).
  1251. (See the
  1252. .B pixmon/examples
  1253. folder for more.)
  1254. X
  1255. .SH BUGS
  1256. The known `bugs' of
  1257. .B pixmon
  1258. are:
  1259. .TP \w'\(bu'u+2n
  1260. \(bu
  1261. `No' interaction
  1262. .TP
  1263. \(bu
  1264. Could be faster
  1265. .TP
  1266. \(bu
  1267. No private color maps
  1268. .TP
  1269. \(bu
  1270. My first
  1271. .I X11
  1272. program, ugly code :-(
  1273. X
  1274. .SH SEE ALSO
  1275. .BR X (1),
  1276. .BR hodge (1),
  1277. .BR imagemagick (1),
  1278. .BR playmate (1)
  1279. X
  1280. .SH AUTHOR
  1281. Copyright 
  1282. .if t \(co 
  1283. .if n (C)
  1284. 1992, 1993 by
  1285. .if n Joachim Sprave
  1286. .if t Joachim Sprave
  1287. .nf
  1288. Systems Analysis Group, University of Dortmund, Germany.
  1289. .nf
  1290. Send bugs, comments, etc., to (sprave@ls11.informatik.uni-dortmund.de).
  1291. .fi
  1292. X
  1293. .SH CREDITS
  1294. .if n Joerg Heitkoetter
  1295. .if t J\*org Heitk\*otter
  1296. (joke@ls11.informatik.uni-dortmund.de) wrote the manual page.
  1297. .fi
  1298. X
  1299. .SH AVAILABILITY
  1300. .LP
  1301. This work is protected by the terms of the
  1302. .SM GNU
  1303. General Public License. Please refer to the
  1304. .SM COPYING
  1305. file accompanying the sources of this software package for a lengthy, boring,
  1306. but absolute complete description.
  1307. X
  1308. .SM PIXMON
  1309. is available via anonymous ftp from the group's server
  1310. .B lumpi.informatik.uni-dortmunde.de
  1311. (129.217.36.140)
  1312. as file `pixmon-0.3.tar.Z' in /pub/CA/src.
  1313. X
  1314. .SH WARRANTY
  1315. .LP
  1316. This program is free software; you can redistribute it and/or modify
  1317. it under the terms of the
  1318. .SM GNU
  1319. General Public License as published by
  1320. the Free Software Foundation; either version 2 of the License, or
  1321. (at your option) any later version.
  1322. X
  1323. This program is distributed in the hope that it will be useful,
  1324. but
  1325. .SM WITHOUT ANY WARRANTY;
  1326. without even the implied warranty of
  1327. .SM MERCHANTABILITY
  1328. or
  1329. .SM FITNESS FOR A PARTICULAR PURPOSE.
  1330. See the
  1331. .SM GNU
  1332. General Public License for more details.
  1333. X
  1334. You should have received a copy of the
  1335. .SM GNU
  1336. General Public License
  1337. along with this program; if not, write to the Free Software
  1338. Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  1339. SHAR_EOF
  1340. chmod 0640 hodge-c-0.98j/contrib/pixmon.1 ||
  1341. echo 'restore of hodge-c-0.98j/contrib/pixmon.1 failed'
  1342. Wc_c="`wc -c < 'hodge-c-0.98j/contrib/pixmon.1'`"
  1343. test 9181 -eq "$Wc_c" ||
  1344.     echo 'hodge-c-0.98j/contrib/pixmon.1: original size 9181, current size' "$Wc_c"
  1345. rm -f _shar_wnt_.tmp
  1346. fi
  1347. # ============= hodge-c-0.98j/contrib/pixmon.man ==============
  1348. if test -f 'hodge-c-0.98j/contrib/pixmon.man' -a X"$1" != X"-c"; then
  1349.     echo 'x - skipping hodge-c-0.98j/contrib/pixmon.man (File already exists)'
  1350.     rm -f _shar_wnt_.tmp
  1351. else
  1352. > _shar_wnt_.tmp
  1353. echo 'x - extracting hodge-c-0.98j/contrib/pixmon.man (Binary)'
  1354. sed 's/^X//' << 'SHAR_EOF' > _shar_tmp_.tmp &&
  1355. begin 600 hodge-c-0.98j/contrib/pixmon.man
  1356. M"@H*4$E834].*#$I("`@("`@("`@("`@("`@(%5315(@0T]-34%.1%,@("`@
  1357. M("`@("`@("`@("`@("!025A-3TXH,2D*"@H*3D%-10H@("`@('!I>&UO;B`M
  1358. M(&$@<VEM<&QE('!I>&5L(&UO;FET;W(@9F]R(%@Q,0H*"E-93D]04TE3"B`@
  1359. M("`@<&EX;6]N(%L@+5\(6%\(="U?"&]?"'!?"'1?"&E?"&]?"&Y?"',@+BXN
  1360. M(%T@6R`M7PAO7PAP7PAT7PAI7PAO7PAN7PAS("XN+B!="@H@("`@("`@("`@
  1361. M("`@6RUD>"`\7PAP7PAI7PAX7PAE7PAL+5\(9%\(85\(=%\(82U?"'-?"&E?
  1362. M"'I?"&4^70H*("`@("`@("`@("`@(%LM9'D@/%\(<%\(:5\(>%\(95\(;"U?
  1363. M"&1?"&%?"'1?"&$M7PAS7PAI7PAZ7PAE/ET*"B`@("`@("`@("`@("!;+7=I
  1364. M9'1H(#Q?"'=?"&E?"&Y?"&1?"&]?"'<M7PAS7PAI7PAZ7PAE/ET*"B`@("`@
  1365. M("`@("`@("!;+6AE:6=H="`\7PAW7PAI7PAN7PAD7PAO7PAW+5\(<U\(:5\(
  1366. M>E\(93Y="@H@("`@("`@("`@("`@6RUS8V%L92`\7PAF7PAL7PAO7PAA7PAT
  1367. M+5\(=E\(85\(;%\(=5\(93Y="@H@("`@("`@("`@("`@6RUC;6%P(#Q?"&9?
  1368. M"&E?"&Q?"&5?"&Y?"&%?"&U?"&4^6RY?"&-?"&U?"&%?"'!=70H*("`@("`@
  1369. M("`@("`@(%LM9&ET:&5R70H*"D1%4T-225!424]."B`@("`@<&EX;6]N(&EM
  1370. M<&QE;65N=',@82!S:6UP;&4@7PAP7PAI7PAX7PAE7PAL(%\(9%\(85\(=%\(
  1371. M82!?"&U?"&]?"&Y?"&E?"'1?"&]?"'(@9F]R("!U<V4@('=I=&@*("`@("!T
  1372. M:&4@7PA87P@Q7P@Q('=I;F1O=R!S>7-T96TN($ET(&-O;65S('=I=&@@=&AE
  1373. M(&9O;&QO=VEN9R!F96%T=7)E<SH*"B`@("`@;P@K("!!=71O+7)E<V-A;&4@
  1374. M=VAE;B!C:&%N9VEN9R!T:&4@=VEN9&]W('-I>F4*"B`@("`@;P@K("!,;V%D
  1375. M86)L92!C;VQO<FUA<',L('EO=2!C86X@9&ES<&QA>2!T:&4@('-A;64@(&1A
  1376. M=&$@('=I=&@*("`@("`@("!D:69F97)E;G0@8V]L;W)S"@H@("`@(&\(*R`@
  1377. M075T;V1E=&5C="!M;VYO('-E<G9E<G,L('5S:6YG(&1I=&AE<FEN9R`H7PAO
  1378. M7PAR7PAD7PAE7PAR7PAE7PAD(%\(9%\(:5\(=%\(:%\(95\(<BD*("`@("`@
  1379. M("!I;G-T96%D(&]F(&-O;&]R<PH*("`@("!O""L@(%)U;B!L96YG=&@@96YC
  1380. M;V1I;F<@<W5P<&]R="X*"@I/4%1)3TY3"B`@("`@+61X(%\(<%\(:5\(>%\(
  1381. M95\(;"U?"&1?"&%?"'1?"&$M7PAS7PAI7PAZ7PAE"B`@("`@("`@("!3970@
  1382. M=&AE(&AO<FEZ;VYT86P@<VEZ92!O9B!E>'!E8W1E9"!?"'!?"&E?"'A?"&5?
  1383. M"&P@(%\(9%\(85\(=%\(82`@7PAI7PAM7PAA7PAG7PAE+@H@("`@("`@("`@
  1384. M*$1E9F%U;'1S('1O(%\(,5\(,%\(,"XI"@H@("`@("UD>2!?"'!?"&E?"'A?
  1385. M"&5?"&PM7PAD7PAA7PAT7PAA+5\(<U\(:5\(>E\(90H@("`@("`@("`@4V5T
  1386. M('1H92!V97)T:6-A;"!S:7IE(&]F("!E>'!E8W1E9"`@7PAP7PAI7PAX7PAE
  1387. M7PAL("!?"&1?"&%?"'1?"&$@(%\(:5\(;5\(85\(9U\(92X*("`@("`@("`@
  1388. M("A$969A=6QT<R!T;R!?"#%?"#!?"#`N*0H*("`@("`M=VED=&@@7PAW7PAI
  1389. M7PAN7PAD7PAO7PAW+5\(<U\(:5\(>E\(90H@("`@("`@("`@4V5T('1H92!H
  1390. M;W)I>F]N=&%L('-I>F4@(&]F("!?"'!?"&E?"'A?"&U?"&]?"&X@('=I;F1O
  1391. M=R`@:6X@('-C<F5E;@H@("`@("`@("`@8V]O<F1I;F%T97,@*$1E9F%U;'1S
  1392. M('1O(%\(9%\(>"`J(%\(<U\(8U\(85\(;%\(92XI"@H@("`@("UH96EG:'0@
  1393. M7PAW7PAI7PAN7PAD7PAO7PAW+5\(<U\(:5\(>E\(90H@("`@("`@("`@4V5T
  1394. M('1H92`@=F5R=&EC86P@('-I>F4@(&]F("!?"'!?"&E?"'A?"&U?"&]?"&X@
  1395. M('=I;F1O=R`@:6X@('-C<F5E;@H*"@I697)S:6]N(#`N,R`@("`@("`@3&%S
  1396. M="!C:&%N9V4Z(#$V($UA<F-H(#$Y.3,@("`@("`@("`@("`@("`@("`@,0H*
  1397. M"@H*"@I025A-3TXH,2D@("`@("`@("`@("`@("`@55-%4B!#3TU-04Y$4R`@
  1398. M("`@("`@("`@("`@("`@(%!)6$U/3B@Q*0H*"@H@("`@("`@("`@8V]O<F1I
  1399. M;F%T97,@*$1E9F%U;'1S('1O(%\(9%\(>2`J(%\(<U\(8U\(85\(;%\(92XI
  1400. M"@H@("`@("US8V%L92!?"&9?"&Q?"&]?"&%?"'0M7PAV7PAA7PAL7PAU7PAE
  1401. M"B`@("`@("`@("!38V%L92!T:&4@=VEN9&]W)W,@<VEZ92!T;R!?"'=?"&E?
  1402. M"&1?"'1?"&@@/2!?"&1?"'@@*B!?"&9?"&Q?"&]?"&%?"'0M7PAV7PAA7PAL
  1403. M7PAU7PAE(&%N9`H@("`@("`@("`@7PAH7PAE7PAI7PAG7PAH7PAT(#T@7PAD
  1404. M7PAY("H@7PAF7PAL7PAO7PAA7PAT+5\(=E\(85\(;%\(=5\(92`H1&5F875L
  1405. M=',@=&\@7P@R+BD*"B`@("`@+6-M87`@7PAF7PAI7PAL7PAE7PAN7PAA7PAM
  1406. M7PAE6RY?"&-?"&U?"&%?"'!="B`@("`@("`@("!296%D(&EN(%\(9E\(:5\(
  1407. M;%\(95\(;E\(85\(;5\(95LN7PAC7PAM7PAA7PAP72!O;B!P<F]G<F%M('-T
  1408. M87)T+"!A;F0@('5S92`@=&AE"B`@("`@("`@("!C;VQO<G,@=VAE;B!G96YE
  1409. M<F%T:6YG('1H92!P:7AM87!S+B!4:&4@=7-E(&]F('1H92!S=68M"B`@("`@
  1410. M("`@("!F:7@@8"YC;6%P)R!I<R!E;F-O=7)A9V5D+"!B=70@;F]T(&5N9F]R
  1411. M8V5D+@H*("`@("`M9&ET:&5R"B`@("`@("`@("!5<V4@86X@7PAO7PAR7PAD
  1412. M7PAE7PAR7PAE7PAD(%\(9%\(:5\(=%\(:%\(95\(<B!F;W(@<'-E=61O("!C
  1413. M;VQO<B`@<F5P<F5S96YT871I;VX*("`@("`@("`@(&]N("!L;W<@(&)I='!L
  1414. M86YE("!D979I8V5S+"`@96<N("!?"&U?"&]?"&Y?"&]?"&-?"&A?"')?"&]?
  1415. M"&U?"&4@6"!S97)V97)S+@H@("`@("`@("`@=VAE;B!U<V5D(&]N(&$@8V]L
  1416. M;W(@9&5V:6-E+"!A('1W;R!C;VQO<B!D:71H97)I;F<@9V5N+0H@("`@("`@
  1417. M("`@97)A=&5S('-O;64@:6YT97)E<W1I;F<@969F96-T<RX*"B`@("`@5&AE
  1418. M(&9O;&QO=VEN9R!S=&%N9&%R9"!8(%1O;VQK:70@8V]M;6%N9"!L:6YE(&%R
  1419. M9W5M96YT<R`@87)E"B`@("`@8V]M;6]N;'D@=7-E9"!W:71H('!I>&UO;CH*
  1420. M"B`@("`@+6)G(%\(8U\(;U\(;%\(;U\(<@H@("`@("`@("`@5&AI<R!O<'1I
  1421. M;VX@<W!E8VEF:65S('1H92!C;VQO<B!T;R!U<V4@(&9O<B`@=&AE("!B86-K
  1422. M+0H@("`@("`@("`@9W)O=6YD(&]F('1H92!W:6YD;W<N(%1H92!D969A=6QT
  1423. M(&ES(&!@=VAI=&4N)R<*"B`@("`@+6)D(%\(8U\(;U\(;%\(;U\(<@H@("`@
  1424. M("`@("`@5&AI<R!O<'1I;VX@<W!E8VEF:65S('1H92!C;VQO<B!T;R!U<V4@
  1425. M9F]R("!T:&4@(&)O<F1E<@H@("`@("`@("`@;V8@=&AE('=I;F1O=RX@(%1H
  1426. M92!D969A=6QT(&ES(&!@8FQA8VLN)R<*"B`@("`@+6)W(%\(;E\(=5\(;5\(
  1427. M8E\(95\(<@H@("`@("`@("`@5&AI<R!O<'1I;VX@<W!E8VEF:65S('1H92!W
  1428. M:61T:"!I;B!P:7AE;',@;V8@=&AE(&)O<F1E<@H@("`@("`@("`@<W5R<F]U
  1429. M;F1I;F<@=&AE('=I;F1O=RX*"B`@("`@+69G(%\(8U\(;U\(;%\(;U\(<@H@
  1430. M("`@("`@("`@5&AI<R!O<'1I;VX@<W!E8VEF:65S('1H92!C;VQO<B!T;R!U
  1431. M<V4@(&9O<B`@9&ES<&QA>6EN9PH@("`@("`@("`@<&EX96QS+B`@5&AE(&1E
  1432. M9F%U;'0@:7,@8&!B;&%C:RXG)PH*("`@("`M;F%M92!?"&Y?"&%?"&U?"&4*
  1433. M("`@("`@("`@(%1H:7,@;W!T:6]N('-P96-I9FEE<R!T:&4@87!P;&EC871I
  1434. M;VX@;F%M92!U;F1E<B`@=VAI8V@*("`@("`@("`@(')E<V]U<F-E<R`@87)E
  1435. M("!T;R!B92!O8G1A:6YE9"P@<F%T:&5R('1H86X@=&AE(&1E9F%U;'0*("`@
  1436. M("`@("`@(&5X96-U=&%B;&4@9FEL92!N86UE+B`@7PA.7PAA7PAM7PAE('-H
  1437. M;W5L9"!N;W0@8V]N=&%I;B!@8"XG)R!O<@H@("`@("`@("`@8&`J)R<@8VAA
  1438. M<F%C=&5R<RX@*$1E9F%U;'1S('1O(&!@4&EX36]N+B<G*0H*("`@("`M=&ET
  1439. M;&4@7PAS7PAT7PAR7PAI7PAN7PAG"B`@("`@("`@("!4:&ES(&]P=&EO;B!S
  1440. M<&5C:69I97,@=&AE('=I;F1O=R`@=&ET;&4@('-T<FEN9RP@('=H:6-H"B`@
  1441. M("`@("`@("!M87D@(&)E("!D:7-P;&%Y960@(&)Y("!W:6YD;W<@(&UA;F%G
  1442. M97)S(&EF('1H92!U<V5R('-O"B`@("`@("`@("!C:&]O<V5S+B`@5&AE(&1E
  1443. M9F%U;'0@=&ET;&4@:7,@8'!I>&UO;B<N"@H@("`@("UR=B`@5&AI<R!O<'1I
  1444. M;VX@:6YD:6-A=&5S("!T:&%T("!R979E<G-E("!V:61E;R`@<VAO=6QD("!B
  1445. M90H@("`@("`@("`@<VEM=6QA=&5D("!B>2`@<W=A<'!I;F<@('1H92`@9F]R
  1446. M96=R;W5N9"!A;F0@8F%C:V=R;W5N9`H@("`@("`@("`@8V]L;W)S+@H*("`@
  1447. M("`M9V5O;65T<GD@7PAG7PAE7PAO7PAM7PAE7PAT7PAR7PAY"@H*"E9E<G-I
  1448. M;VX@,"XS("`@("`@("!,87-T(&-H86YG93H@,38@36%R8V@@,3DY,R`@("`@
  1449. M("`@("`@("`@("`@("`R"@H*"@H*"E!)6$U/3B@Q*2`@("`@("`@("`@("`@
  1450. M("!54T52($-/34U!3D13("`@("`@("`@("`@("`@("`@4$E834].*#$I"@H*
  1451. M"B`@("`@("`@("!4:&ES(&]P=&EO;B!S<&5C:69I97,@=&AE('!R969E<G)E
  1452. M9"!S:7IE("!A;F0@('!O<VET:6]N"B`@("`@("`@("!O9B!T:&4@<&EX;6]N
  1453. M('=I;F1O=SL@<V5E(%\(6"A?"#$I+@H*("`@("`M9&ES<&QA>2!?"&1?"&E?
  1454. M"'-?"'!?"&Q?"&%?"'D*("`@("`@("`@(%1H:7,@;W!T:6]N('-P96-I9FEE
  1455. M<R!T:&4@(%@@('-E<G9E<B`@=&\@(&-O;G1A8W0[("!S964*("`@("`@("`@
  1456. M(%\(6"A?"#$I+@H*("`@("`M>')M(%\(<E\(95\(<U\(;U\(=5\(<E\(8U\(
  1457. M95\(<U\(=%\(<E\(:5\(;E\(9PH@("`@("`@("`@5&AI<R!O<'1I;VX@<W!E
  1458. M8VEF:65S(&$@<F5S;W5R8V4@('-T<FEN9R`@=&\@(&)E("!U<V5D+@H@("`@
  1459. M("`@("`@5&AI<R!I<R!E<W!E8VEA;&QY('5S969U;"!F;W(@<V5T=&EN9R!R
  1460. M97-O=7)C97,@=&AA="!D;PH@("`@("`@("`@;F]T(&AA=F4@<V5P87)A=&4@
  1461. M8V]M;6%N9"!L:6YE(&]P=&EO;G,N"@H@("`@("UI8V]N:6,*("`@("`@("`@
  1462. M(%1H:7,@;W!T:6]N(&EN9&EC871E<R!T:&%T('!I>&UO;B!S:&]U;&0@87-K
  1463. M('1H92!W:6YD;W<*("`@("`@("`@(&UA;F%G97(@('1O('-T87)T(&ET(&%S
  1464. M(&%N(&EC;VX@<F%T:&5R('1H86X@87,@=&AE(&YO<BT*("`@("`@("`@(&UA
  1465. M;"!W:6YD;W<N"@H*3U!424].(%-534U!4ED*("`@("!4;R!G:79E(&YO(&]P
  1466. M=&EO;B!A="!A;&P@:7,@=&AE('-A;64@87,@=&\@9VEV92!T:&4@(&9O;&QO
  1467. M=RT*("`@("!I;F<@;W!T:6]N<SH*"B`@("`@+61X(#$P,"`M9'D@,3`P("US
  1468. M8V%L92`R("UC;6%P(&1E9F%U;'0N8VUA<`H*"D9/4DU!5%,*("`@("!O""L@
  1469. M(%\(0U\(;U\(;%\(;U\(<B!?"&U?"&%?"'`@7PAF7PAI7PAL7PAE*%\(<RDL
  1470. M(%\(<E\(95\(8U\(;U\(9U\(;E\(:5\(<U\(95\(9"!?"&)?"'D@<&EX;6]N
  1471. M(&AA=F4@=&AE("!F;VQL;W<M"B`@("`@("`@:6YG($%30TE)(&QA>6]U=#H*
  1472. M"B`@("`@("`@("`C("`@($9I;&4Z("`@("`@("`@(&1E;6\N;6%P"B`@("`@
  1473. M("`@("`C("`@($-R96%T;W(Z("!*;V%C:&EM(%-P<F%V92`H<W!R879E0&=O
  1474. M;GIO*0H@("`@("`@("`@(R`\+2!T:&ES(&ES(&$@8V]M;65N="!L:6YE.B`G
  1475. M(R<@:6X@=&AE(#%S="!C;VQU;6X*("`@("`@("`@(#QR960@:6YT96YS:71Y
  1476. M(#`^("`@/&=R965N(&EN=&5N<VET>2`P/B`\8FQU92!I;G1E;G-I='D@,#X*
  1477. M("`@("`@("`@(#QR960@:6YT96YS:71Y(#$^("`@/&=R965N(&EN=&5N<VET
  1478. M>2`Q/B`\8FQU92!I;G1E;G-I='D@,3X*("`@("`@("`@(#QR960@:6YT96YS
  1479. M:71Y(#(^("`@/&=R965N(&EN=&5N<VET>2`R/B`\8FQU92!I;G1E;G-I='D@
  1480. M,CX*("`@("`@("`@("`@("`@("`@("`@("`@("XN+@H@("`@("`@("`@/')E
  1481. M9"!I;G1E;G-I='D@,C4U/B`\9W)E96X@:6YT96YS:71Y(#(U-3X@("`@/&)L
  1482. M=64@:6YT96YS:71Y(#(U-3X*"B`@("`@5&AU<R!A(&-O;&]R(&UA<"!F:6QE
  1483. M(&-O;G-I<W0@;V8@,C4V(&QI;F5S(&5A8V@@;VYE(&-O;G1A:6XM"B`@("`@
  1484. M:6YG('-U8V@@82!C;VQO<B!D97-C<FEP=&EO;BX@16<N('1O(&=E="!A(&=R
  1485. M97ES8V%L92!@8V]L;W(G"B`@("`@;6%P+"!S:6UP;'D@=7-E('1H92!S86UE
  1486. M(&EN=&5N<VET:65S("!F;W(@(&%L;"`@8V]L;W)S("`H<V5E"B`@("`@15A!
  1487. M35!,15,@8F5L;W<I+@H*("`@("!O""L@($$@<&%C:V%G92!H96%D97(@:7,@
  1488. M9&5F:6YE9"!A<SH*"B`@("`@("`@("!T>7!E9&5F('-T<G5C="!["B`@("`@
  1489. M("`@("`@("`@('5N<VEG;F5D('-H;W)T(&UA9VEC.PH@("`@("`@("`@("`@
  1490. M("!U;G-I9VYE9"!S:&]R="!T>7!E.PH@("`@("`@("`@("`@("!S:&]R="`@
  1491. M("`@("`@("!X.PH@("`@("`@("`@("`@("!S:&]R="`@("`@("`@("!Y.PH@
  1492. M("`@("`@("`@("`@("!U;G-I9VYE9"!S:&]R="!D>#L*("`@("`@("`@("`@
  1493. M("`@=6YS:6=N960@<VAO<G0@9'D["@H*"E9E<G-I;VX@,"XS("`@("`@("!,
  1494. M87-T(&-H86YG93H@,38@36%R8V@@,3DY,R`@("`@("`@("`@("`@("`@("`S
  1495. M"@H*"@H*"E!)6$U/3B@Q*2`@("`@("`@("`@("`@("!54T52($-/34U!3D13
  1496. M("`@("`@("`@("`@("`@("`@4$E834].*#$I"@H*"B`@("`@("`@("`@("`@
  1497. M('5N<VEG;F5D('-H;W)T('-I>F5L;SL*("`@("`@("`@("`@("`@=6YS:6=N
  1498. M960@<VAO<G0@<VEZ96AI.PH@("`@("`@("`@?2!);6=(9'(["@H@("`@(%=I
  1499. M=&@@=&AE(&9O;&QO=VEN9R!S96UA;G1I8W,Z"@H@("`@(%\(;5\(85\(9U\(
  1500. M:5\(8PH@("`@("`@("`@=7-E9"!T;R!D971E<FUI;F4@8GET92`@<V5X+"`@
  1501. M;75S="`@8F4@(&EN:71I86QI>F5D("!T;PH@("`@("`@("`@4$E87TU!1TE#
  1502. M"@H@("`@(%\(=%\(>5\(<%\(92!O;F4@;V8Z"@H@("`@("`@("`@4$E87T1!
  1503. M5$$*("`@("`@("`@("`@("`@26YC;'5D92!T:&4@<&EX96P@9&%T82!F;VQL
  1504. M;W=I;F<@=&AE("!H96%D97(@(&EN=&\*("`@("`@("`@("`@("`@=&AE('!I
  1505. M8W1U<F4@*'=I=&AO=70@9&ES<&QA>6EN9R!I;G-T86YT;'DI+@H*("`@("`@
  1506. M("`@(%!)6%]&3%532`H@("`@("`@("`@("`@("!$:7-P;&%Y('1H92!I;G1E
  1507. M<FYA;"!P:7AM87`N"@H@("`@("`@("`@4$E87T1!5$$@?"!025A?1DQ54T@*
  1508. M("`@("`@("`@("`@("`@26YC;'5D92!T:&4@<&EX96P@9&%T82!F;VQL;W=I
  1509. M;F<@=&AE("!H96%D97(@(&EN=&\*("`@("`@("`@("`@("`@=&AE('!I8W1U
  1510. M<F4@86YD(&1I<W!L87D@:70@:6YS=&%N=&QY+@H*("`@("`@("`@(%!)6%]+
  1511. M24Q,"B`@("`@("`@("`@("`@(%1E;&QS('!I>&UO;B!T;R!E>&ET+"!W:&5N
  1512. M(&)U='1O;B`Q(&ES('!R97-S960N"@H@("`@(%\(>"P@7PAY(%!O<VET:6]N
  1513. M(&]F('1H:7,@<&%C:V%G92`@<F5L871I=F4@('1O("!T:&4@('5P<&5R+6QE
  1514. M9G0*("`@("`@("`@(&-O<FYE<B!O9B!T:&4@=VEN9&]W+@H*("`@("!?"&1?
  1515. M"'@L(%\(9%\(>0H@("`@("`@("`@5VED=&@@86YD(&AE:6=H="`H:6X@9&]T
  1516. M<RP@;F]T(&EN('!I>&5L<RD@;V8@=&AI<R!P86-K+0H@("`@("`@("`@86=E
  1517. M+@H*("`@("!?"'-?"&E?"'I?"&5?"&Q?"&\L(%\(<U\(:5\(>E\(95\(:%\(
  1518. M:0H@("`@("`@("`@4VEZ92!O9B!T:&4@9F]L;&]W:6YG('!I>&5L(&1A=&$N
  1519. M($EF(%\(<U\(:5\(>E\(95\(:%\(:2`J(%\(,%\(>%\(,5\(,%\(,%\(,%\(
  1520. M,"`K"B`@("`@("`@("!?"'-?"&E?"'I?"&5?"&Q?"&\@(#P@(%\(9%\(>"`@
  1521. M*B`@7PAD7PAY+"!P:7AM;VX@97AP96-T<R!R=6X@;&5N9W1H(&5N8V]D960*
  1522. M("`@("`@("`@(&1A=&$N"@H*14Y#3T1)3D<*("`@("!)9B!254X@3$5.1U1(
  1523. M($5.0T]$24Y'("A23$4I(&ES(&1E=&5C=&5D("`H<V5E("!A8F]V92DL("!T
  1524. M:&4*("`@("!V86QU92`@4$E87U),12@P>$9&*2`@:7,@('1R96%T960@87,@
  1525. M86X@97-C87!E('9A;'5E+"!S;R!T:&4*("`@("!N=6UB97(@;V8@8V]L;W)S
  1526. M(&ES(')E9'5C960@8GD@;VYE+B`@5&\@(&5N8V]D92`@>6]U<B`@9&%T82P*
  1527. M("`@("!U<V4@=&AE(&9U;F-T:6]N(')L95]E;F-O9&4@9G)O;2!?"')?"&Q?
  1528. M"&4N7PAC+@H*"D5804U03$53"B`@("`@;P@K("!!(%\(9U\(<E\(95\(>5\(
  1529. M<U\(8U\(85\(;%\(92!C;VQO<B!M87`@;&]O:W,@;&EK93H*"B`@("`@("`@
  1530. M("`P("`@(#`@("`@,`H@("`@("`@("`@,2`@("`Q("`@(#$*("`@("`@("`@
  1531. M(#(@("`@,B`@("`R"@H*"E9E<G-I;VX@,"XS("`@("`@("!,87-T(&-H86YG
  1532. M93H@,38@36%R8V@@,3DY,R`@("`@("`@("`@("`@("`@("`T"@H*"@H*"E!)
  1533. M6$U/3B@Q*2`@("`@("`@("`@("`@("!54T52($-/34U!3D13("`@("`@("`@
  1534. M("`@("`@("`@4$E834].*#$I"@H*"B`@("`@("`@("`S("`@(#,@("`@,PH@
  1535. M("`@("`@("`@("`@("`N+BX*("`@("`@("`@(#(U-2`@,C4U("`R-34*"B`@
  1536. M("`@;P@K("!4;R!U<V4@<G5N(&QE;F=T:"!E;F-O9&EN9R!O9B!Y;W5R('!I
  1537. M>&5L(&1A=&$L('=R:71E.@H*("`@("`@("`@(&UY7V5N8V]D92`H*0H@("`@
  1538. M("`@("`@>PH@("`@("`@("`@("`@("!C:&%R(&UY8G5F9F5R6TU"4TE:15T[
  1539. M"B`@("`@("`@("`@("`@("XN+@H@("`@("`@("`@("`@("!R;&5?96YC;V1E
  1540. M("AM>6)U9F9E<BP@34)325I%+"!025A?4DQ%*3L*("`@("`@("`@("`@("`@
  1541. M+BXN"B`@("`@("`@("!]"@H*1DE,15,*("`@("!P:7AM;VXO9&5F875L="YC
  1542. M;6%P("`@("`@7PAD7PAE7PAF7PAA7PAU7PAL7PAT(%\(8U\(;U\(;%\(;U\(
  1543. M<B!?"&U?"&%?"'`*("`@("!P:7AM;VXO8VUA<',O*BYC;6%P("`@("`@7PAE
  1544. M7PAX7PAA7PAM7PAP7PAL7PAE(%\(8U\(;U\(;%\(;U\(<B!?"&U?"&%?"'!?
  1545. M"',*"B`@("`@<&EX;6]N+V5X86UP;&5S+U)%041-12`@(%\(9U\(=5\(:5\(
  1546. M9%\(:5\(;E\(9R!?"&E?"&Y?"'-?"'1?"')?"'5?"&-?"'1?"&E?"&]?"&Y?
  1547. M"',*("`@("!P:7AM;VXO97AA;7!L97,O;6)X("`@("`@7PAS7PAH7PAE7PAL
  1548. M7PAL(%\(<U\(8U\(<E\(:5\(<%\(="!?"'1?"&A?"&%?"'0@7PAR7PAU7PAN
  1549. M7PAS(%\(;5\(8E\(<PH@("`@('!I>&UO;B]E>&%M<&QE<R]M8G,N8R`@("`@
  1550. M("`@(%\(9U\(95\(;E\(95\(<E\(85\(=%\(95\(<R!?"&$@7PAM7PAA7PAN
  1551. M7PAD7PAE7PAL7PAB7PAR7PAO7PAT(%\(<U\(95\(=`H@("`@('!I>&UO;B]E
  1552. M>&%M<&QE<R]S:&]W<&%L+F,@("`@(%\(9U\(95\(;E\(95\(<E\(85\(=%\(
  1553. M95\(<R!?"&$@7PAC7PAO7PAL7PAO7PAR(%\(<%\(85\(;%\(95\(=%\(=%\(
  1554. M90H*"D%.24U!5$E/3@H@("`@($%N(&%N:6UA=&EO;B!C;VUP86YI;VX@=&\@
  1555. M<&EX;6]N(&-A;&QE9"!P;&%Y;6%T92@Q*2!I<R`@86QS;PH@("`@(&EN('1H
  1556. M92!M86MI;F<L(&%N9"!W:6QL(&)E(&1I<W1R:6)U=&5D(&EN(&YE87(@9G5T
  1557. M=7)E("AR969E<@H@("`@('1O('1H92!!5D%)3$%"24Q)5%D@('-E8W1I;VX@
  1558. M(&)E;&]W*2X@("!)=',@(&%P<&QI8V%T:6]N("!I<PH@("`@(')A=&AE<B`@
  1559. M<VEM<&QE.B`@86QL("!T:&5R92`@:7,@=&\@9&\@:7,@=&\@:6YC;'5D92!A
  1560. M(&!@=&5E+0H@("`@(&QO9R<G(&EN('1H92!@<&EX96P@9V5N97)A=&EN9R!P
  1561. M:7!E)R!E9RXZ"@H@("`@("`@("`@7PAE7PAX7PAA7PAM7PAP7PAL7PAE)2!M
  1562. M8G,@+BXN('P@=&5E(#YP;61A=&$N<&EX('P@<&EX;6]N("XN+@H*("`@("!T
  1563. M;R!C;VQL96-T('!I>&UO;B!D871A+"!T:&%T(&ES(&QA=&5R('1U<FYE9"`@
  1564. M:6YT;R`@86YI;6%T960*("`@("!P:7AM87!S(&)Y('!L87EM871E*#$I+B`@
  1565. M*%-E92!T:&4@<&EX;6]N+V5X86UP;&5S(&9O;&1E<B!F;W(*("`@("!M;W)E
  1566. M+BD*"@I"54=3"B`@("`@5&AE(&MN;W=N(&!B=6=S)R!O9B!P:7AM;VX@87)E
  1567. M.@H*("`@("!O""L@(&!.;R<@:6YT97)A8W1I;VX*"B`@("`@;P@K("!#;W5L
  1568. M9"!B92!F87-T97(*"B`@("`@;P@K("!.;R!P<FEV871E(&-O;&]R(&UA<',*
  1569. M"B`@("`@;P@K("!->2!F:7)S="!?"%A?"#%?"#$@<')O9W)A;2P@=6=L>2!C
  1570. M;V1E(#HM*`H*"@H*"@I697)S:6]N(#`N,R`@("`@("`@3&%S="!C:&%N9V4Z
  1571. M(#$V($UA<F-H(#$Y.3,@("`@("`@("`@("`@("`@("`@-0H*"@H*"@I025A-
  1572. M3TXH,2D@("`@("`@("`@("`@("`@55-%4B!#3TU-04Y$4R`@("`@("`@("`@
  1573. M("`@("`@(%!)6$U/3B@Q*0H*"@I3144@04Q33PH@("`@(%@H,2DL(&AO9&=E
  1574. M*#$I+"!I;6%G96UA9VEC:R@Q*2P@<&QA>6UA=&4H,2D*"@I!551(3U(*("`@
  1575. M("!#;W!Y<FEG:'0@*$,I(#$Y.3(L(#$Y.3,@8GD@2F]A8VAI;2!3<')A=F4*
  1576. M("`@("!3>7-T96US($%N86QY<VES($=R;W5P+"!5;FEV97)S:71Y(&]F($1O
  1577. M<G1M=6YD+"!'97)M86YY+@H@("`@(%-E;F0@8G5G<RP@8V]M;65N=',L(&5T
  1578. M8RXL('1O("AS<')A=F5`;',Q,2YI;F9O<FUA=&EK+G5N:2UD;W)T;75N9"YD
  1579. M92DN"@H*0U)%1$E44PH@("`@($IO97)G("`@2&5I=&MO971T97(@("`H:F]K
  1580. M94!L<S$Q+FEN9F]R;6%T:6LN=6YI+61O<G1M=6YD+F1E*0H@("`@('=R;W1E
  1581. M('1H92!M86YU86P@<&%G92X*"@I!5D%)3$%"24Q)5%D*("`@("!4:&ES('=O
  1582. M<FL@:7,@<')O=&5C=&5D(&)Y('1H92!T97)M<R!O9B!T:&4@1TY5($=E;F5R
  1583. M86P@(%!U8BT*("`@("!L:6,@($QI8V5N<V4N("!0;&5A<V4@<F5F97(@=&\@
  1584. M=&AE($-/4%E)3D<@9FEL92!A8V-O;7!A;GEI;F<*("`@("!T:&4@<V]U<F-E
  1585. M<R!O9B!T:&ES('-O9G1W87)E('!A8VMA9V4@9F]R(&$@;&5N9W1H>2P@(&)O
  1586. M<FEN9RP*("`@("!B=70@86)S;VQU=&4@8V]M<&QE=&4@9&5S8W)I<'1I;VXN
  1587. M"@H@("`@(%!)6$U/3B!I<R!A=F%I;&%B;&4@('9I82`@86YO;GEM;W5S("!F
  1588. M='`@(&9R;VT@('1H92`@9W)O=7`G<PH@("`@('-E<G9E<B!L=6UP:2YI;F9O
  1589. M<FUA=&EK+G5N:2UD;W)T;75N9&4N9&4@*#$R.2XR,3<N,S8N,30P*2!A<PH@
  1590. M("`@(&9I;&4@8'!I>&UO;BTP+C,N=&%R+EHG(&EN("]P=6(O0T$O<W)C+@H*
  1591. M"E=!4E)!3E19"B`@("`@5&AI<R!P<F]G<F%M(&ES("!F<F5E("!S;V9T=V%R
  1592. M93L@('EO=2`@8V%N("!R961I<W1R:6)U=&4@(&ET"B`@("`@86YD+V]R("!M
  1593. M;V1I9GD@(&ET('5N9&5R('1H92!T97)M<R!O9B!T:&4@1TY5($=E;F5R86P@
  1594. M4'5B;&EC"B`@("`@3&EC96YS92!A<R!P=6)L:7-H960@8GD@=&AE($9R964@
  1595. M4V]F='=A<F4@1F]U;F1A=&EO;CL@96ET:&5R"B`@("`@=F5R<VEO;B`R(&]F
  1596. M('1H92!,:6-E;G-E+"!O<B`H870@>6]U<B!O<'1I;VXI(&%N>2!L871E<B!V
  1597. M97(M"B`@("`@<VEO;BX*"B`@("`@5&AI<R!P<F]G<F%M(&ES(&1I<W1R:6)U
  1598. M=&5D(&EN('1H92!H;W!E('1H870@:70@=VEL;"!B92!U<V4M"B`@("`@9G5L
  1599. M+"!B=70@5TE42$]55"!!3ED@5T%24D%.5%D[('=I=&AO=70@979E;B!T:&4@
  1600. M:6UP;&EE9"!W87(M"B`@("`@<F%N='D@;V8@34520TA!3E1!0DE,2519(&]R
  1601. M($9)5$Y%4U,@1D]2("!!("!005)424-53$%2("!055(M"B`@("`@4$]312X@
  1602. M4V5E('1H92!'3E4@1V5N97)A;"!0=6)L:6,@3&EC96YS92!F;W(@;6]R92!D
  1603. M971A:6QS+@H*("`@("!9;W4@<VAO=6QD(&AA=F4@<F5C96EV960@82!C;W!Y
  1604. M(&]F('1H92`@1TY5("!'96YE<F%L("!0=6)L:6,*("`@("!,:6-E;G-E("!A
  1605. M;&]N9R`@=VET:"!T:&ES('!R;V=R86T[(&EF(&YO="P@=W)I=&4@=&\@=&AE
  1606. M($9R964*("`@("!3;V9T=V%R92!&;W5N9&%T:6]N+"`@26YC+BP@(#8W-2`@
  1607. M36%S<R`@079E+"`@0V%M8G)I9&=E+"`@34$*("`@("`P,C$S.2P@55-!+@H*
  1608. M"@H*"@H*"@H*"@H*5F5R<VEO;B`P+C,@("`@("`@($QA<W0@8VAA;F=E.B`Q
  1609. D-B!-87)C:"`Q.3DS("`@("`@("`@("`@("`@("`@(#8*"@H*
  1610. `
  1611. end
  1612. SHAR_EOF
  1613. echo 'uudecoding file hodge-c-0.98j/contrib/pixmon.man' &&
  1614. uudecode < _shar_tmp_.tmp && rm -f _shar_tmp_.tmp &&
  1615. chmod 0640 hodge-c-0.98j/contrib/pixmon.man ||
  1616. echo 'restore of hodge-c-0.98j/contrib/pixmon.man failed'
  1617. Wc_c="`wc -c < 'hodge-c-0.98j/contrib/pixmon.man'`"
  1618. test 11421 -eq "$Wc_c" ||
  1619.     echo 'hodge-c-0.98j/contrib/pixmon.man: original size 11421, current size' "$Wc_c"
  1620. rm -f _shar_wnt_.tmp
  1621. fi
  1622. # ============= hodge-c-0.98j/getopt.c ==============
  1623. if test -f 'hodge-c-0.98j/getopt.c' -a X"$1" != X"-c"; then
  1624.     echo 'x - skipping hodge-c-0.98j/getopt.c (File already exists)'
  1625.     rm -f _shar_wnt_.tmp
  1626. else
  1627. > _shar_wnt_.tmp
  1628. echo 'x - extracting hodge-c-0.98j/getopt.c (Text)'
  1629. sed 's/^X//' << 'SHAR_EOF' > 'hodge-c-0.98j/getopt.c' &&
  1630. X
  1631. /* Getopt for GNU.
  1632. X   NOTE: getopt is now part of the C library, so if you don't know what
  1633. X   "Keep this file name-space clean" means, talk to roland@gnu.ai.mit.edu
  1634. X   before changing it!
  1635. X
  1636. X   Copyright (C) 1987, 88, 89, 90, 91, 1992 Free Software Foundation, Inc.
  1637. X
  1638. X   This program is free software; you can redistribute it and/or modify
  1639. X   it under the terms of the GNU General Public License as published by
  1640. X   the Free Software Foundation; either version 2, or (at your option)
  1641. X   any later version.
  1642. X
  1643. X   This program is distributed in the hope that it will be useful,
  1644. X   but WITHOUT ANY WARRANTY; without even the implied warranty of
  1645. X   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  1646. X   GNU General Public License for more details.
  1647. X
  1648. X   You should have received a copy of the GNU General Public License
  1649. X   along with this program; if not, write to the Free Software
  1650. X   Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.  */
  1651. X
  1652. /* AIX requires this to be the first thing in the file. */
  1653. X
  1654. #ifdef __GNUC__
  1655. #define alloca __builtin_alloca
  1656. #else /* not __GNUC__ */
  1657. X
  1658. #if defined(sparc) && !defined(USG) && !defined(SVR4) && !defined(__svr4__)
  1659. #include <alloca.h>
  1660. #else
  1661. X
  1662. #ifdef _AIX
  1663. #pragma alloca
  1664. #else
  1665. char *alloca ();
  1666. #endif
  1667. X
  1668. #endif /* sparc */
  1669. X
  1670. #endif /* not __GNUC__ */
  1671. X
  1672. #ifdef    LIBC
  1673. /* For when compiled as part of the GNU C library.  */
  1674. #include <ansidecl.h>
  1675. #endif
  1676. X
  1677. #include <stdio.h>
  1678. X
  1679. /* This needs to come after some library #include
  1680. X   to get __GNU_LIBRARY__ defined.  */
  1681. X
  1682. #ifdef    __GNU_LIBRARY__
  1683. #undef    alloca
  1684. #include <stdlib.h>
  1685. #include <string.h>
  1686. #else /* Not GNU C library.  */
  1687. #define    __alloca    alloca
  1688. #endif /* GNU C library.  */
  1689. X
  1690. X
  1691. #ifndef __STDC__
  1692. #define const
  1693. #endif
  1694. X
  1695. /* If GETOPT_COMPAT is defined, `+' as well as `--' can introduce a
  1696. X   long-named option.  Because this is not POSIX.2 compliant, it is
  1697. X   being phased out. */
  1698. /*
  1699. #define GETOPT_COMPAT
  1700. */
  1701. X
  1702. /* This version of `getopt' appears to the caller like standard Unix `getopt'
  1703. X   but it behaves differently for the user, since it allows the user
  1704. X   to intersperse the options with the other arguments.
  1705. X
  1706. X   As `getopt' works, it permutes the elements of ARGV so that,
  1707. X   when it is done, all the options precede everything else.  Thus
  1708. X   all application programs are extended to handle flexible argument order.
  1709. X
  1710. X   Setting the environment variable POSIXLY_CORRECT disables permutation.
  1711. X   Then the behavior is completely standard.
  1712. X
  1713. X   GNU application programs can use a third alternative mode in which
  1714. X   they can distinguish the relative order of options and other arguments.  */
  1715. X
  1716. #include "getopt.h"
  1717. X
  1718. /* For communication from `getopt' to the caller.
  1719. X   When `getopt' finds an option that takes an argument,
  1720. X   the argument value is returned here.
  1721. X   Also, when `ordering' is RETURN_IN_ORDER,
  1722. X   each non-option ARGV-element is returned here.  */
  1723. X
  1724. char *optarg = 0;
  1725. X
  1726. /* Index in ARGV of the next element to be scanned.
  1727. X   This is used for communication to and from the caller
  1728. X   and for communication between successive calls to `getopt'.
  1729. X
  1730. X   On entry to `getopt', zero means this is the first call; initialize.
  1731. X
  1732. X   When `getopt' returns EOF, this is the index of the first of the
  1733. X   non-option elements that the caller should itself scan.
  1734. X
  1735. X   Otherwise, `optind' communicates from one call to the next
  1736. X   how much of ARGV has been scanned so far.  */
  1737. X
  1738. int optind = 0;
  1739. X
  1740. /* The next char to be scanned in the option-element
  1741. X   in which the last option character we returned was found.
  1742. X   This allows us to pick up the scan where we left off.
  1743. X
  1744. X   If this is zero, or a null string, it means resume the scan
  1745. X   by advancing to the next ARGV-element.  */
  1746. X
  1747. static char *nextchar;
  1748. X
  1749. /* Callers store zero here to inhibit the error message
  1750. X   for unrecognized options.  */
  1751. X
  1752. int opterr = 1;
  1753. X
  1754. /* Describe how to deal with options that follow non-option ARGV-elements.
  1755. X
  1756. X   If the caller did not specify anything,
  1757. X   the default is REQUIRE_ORDER if the environment variable
  1758. X   POSIXLY_CORRECT is defined, PERMUTE otherwise.
  1759. X
  1760. X   REQUIRE_ORDER means don't recognize them as options;
  1761. X   stop option processing when the first non-option is seen.
  1762. X   This is what Unix does.
  1763. X   This mode of operation is selected by either setting the environment
  1764. X   variable POSIXLY_CORRECT, or using `+' as the first character
  1765. X   of the list of option characters.
  1766. X
  1767. X   PERMUTE is the default.  We permute the contents of ARGV as we scan,
  1768. X   so that eventually all the non-options are at the end.  This allows options
  1769. X   to be given in any order, even with programs that were not written to
  1770. X   expect this.
  1771. X
  1772. X   RETURN_IN_ORDER is an option available to programs that were written
  1773. X   to expect options and other ARGV-elements in any order and that care about
  1774. X   the ordering of the two.  We describe each non-option ARGV-element
  1775. X   as if it were the argument of an option with character code 1.
  1776. X   Using `-' as the first character of the list of option characters
  1777. X   selects this mode of operation.
  1778. X
  1779. X   The special argument `--' forces an end of option-scanning regardless
  1780. X   of the value of `ordering'.  In the case of RETURN_IN_ORDER, only
  1781. X   `--' can cause `getopt' to return EOF with `optind' != ARGC.  */
  1782. X
  1783. static enum {
  1784. X    REQUIRE_ORDER, PERMUTE, RETURN_IN_ORDER
  1785. } ordering;
  1786. X
  1787. #ifdef    __GNU_LIBRARY__
  1788. #include <string.h>
  1789. #define    my_index    strchr
  1790. #define    my_bcopy(src, dst, n)    memcpy ((dst), (src), (n))
  1791. #else
  1792. X
  1793. /* Avoid depending on library functions or files
  1794. X   whose names are inconsistent.  */
  1795. X
  1796. char *getenv ();
  1797. X
  1798. static char *
  1799. my_index (string, chr)
  1800. X    char *string;
  1801. X    int chr;
  1802. {
  1803. X    while (*string) {
  1804. X    if (*string == chr)
  1805. X        return string;
  1806. X    string++;
  1807. X    }
  1808. X    return 0;
  1809. }
  1810. X
  1811. static void
  1812. my_bcopy (from, to, size)
  1813. X    char *from, *to;
  1814. X    int size;
  1815. {
  1816. X    int i;
  1817. X    for (i = 0; i < size; i++)
  1818. X    to[i] = from[i];
  1819. }
  1820. X
  1821. #endif /* GNU C library.  */
  1822. X
  1823. /* Handle permutation of arguments.  */
  1824. X
  1825. /* Describe the part of ARGV that contains non-options that have
  1826. X   been skipped.  `first_nonopt' is the index in ARGV of the first of them;
  1827. X   `last_nonopt' is the index after the last of them.  */
  1828. X
  1829. static int first_nonopt;
  1830. static int last_nonopt;
  1831. X
  1832. /* Exchange two adjacent subsequences of ARGV.
  1833. X   One subsequence is elements [first_nonopt,last_nonopt)
  1834. X   which contains all the non-options that have been skipped so far.
  1835. X   The other is elements [last_nonopt,optind), which contains all
  1836. X   the options processed since those non-options were skipped.
  1837. X
  1838. X   `first_nonopt' and `last_nonopt' are relocated so that they describe
  1839. X   the new indices of the non-options in ARGV after they are moved.  */
  1840. X
  1841. static void
  1842. exchange (argv)
  1843. X    char **argv;
  1844. {
  1845. X    int nonopts_size = (last_nonopt - first_nonopt) * sizeof (char *);
  1846. X    char **temp = (char **) __alloca (nonopts_size);
  1847. X
  1848. X   /* Interchange the two blocks of data in ARGV.  */
  1849. X
  1850. X    my_bcopy (&argv[first_nonopt], temp, nonopts_size);
  1851. X    my_bcopy (&argv[last_nonopt], &argv[first_nonopt],
  1852. X          (optind - last_nonopt) * sizeof (char *));
  1853. X    my_bcopy (temp, &argv[first_nonopt + optind - last_nonopt], nonopts_size);
  1854. X
  1855. X   /* Update records for the slots the non-options now occupy.  */
  1856. X
  1857. X    first_nonopt += (optind - last_nonopt);
  1858. X    last_nonopt = optind;
  1859. }
  1860. X
  1861. /* Scan elements of ARGV (whose length is ARGC) for option characters
  1862. X   given in OPTSTRING.
  1863. X
  1864. X   If an element of ARGV starts with '-', and is not exactly "-" or "--",
  1865. X   then it is an option element.  The characters of this element
  1866. X   (aside from the initial '-') are option characters.  If `getopt'
  1867. X   is called repeatedly, it returns successively each of the option characters
  1868. X   from each of the option elements.
  1869. X
  1870. X   If `getopt' finds another option character, it returns that character,
  1871. X   updating `optind' and `nextchar' so that the next call to `getopt' can
  1872. X   resume the scan with the following option character or ARGV-element.
  1873. X
  1874. X   If there are no more option characters, `getopt' returns `EOF'.
  1875. X   Then `optind' is the index in ARGV of the first ARGV-element
  1876. X   that is not an option.  (The ARGV-elements have been permuted
  1877. X   so that those that are not options now come last.)
  1878. X
  1879. X   OPTSTRING is a string containing the legitimate option characters.
  1880. X   If an option character is seen that is not listed in OPTSTRING,
  1881. X   return '?' after printing an error message.  If you set `opterr' to
  1882. X   zero, the error message is suppressed but we still return '?'.
  1883. X
  1884. X   If a char in OPTSTRING is followed by a colon, that means it wants an arg,
  1885. X   so the following text in the same ARGV-element, or the text of the following
  1886. X   ARGV-element, is returned in `optarg'.  Two colons mean an option that
  1887. X   wants an optional arg; if there is text in the current ARGV-element,
  1888. X   it is returned in `optarg', otherwise `optarg' is set to zero.
  1889. X
  1890. X   If OPTSTRING starts with `-' or `+', it requests different methods of
  1891. X   handling the non-option ARGV-elements.
  1892. X   See the comments about RETURN_IN_ORDER and REQUIRE_ORDER, above.
  1893. X
  1894. X   Long-named options begin with `--' instead of `-'.
  1895. X   Their names may be abbreviated as long as the abbreviation is unique
  1896. X   or is an exact match for some defined option.  If they have an
  1897. X   argument, it follows the option name in the same ARGV-element, separated
  1898. X   from the option name by a `=', or else the in next ARGV-element.
  1899. X   When `getopt' finds a long-named option, it returns 0 if that option's
  1900. X   `flag' field is nonzero, the value of the option's `val' field
  1901. X   if the `flag' field is zero.
  1902. X
  1903. X   The elements of ARGV aren't really const, because we permute them.
  1904. X   But we pretend they're const in the prototype to be compatible
  1905. X   with other systems.
  1906. X
  1907. X   LONGOPTS is a vector of `struct option' terminated by an
  1908. X   element containing a name which is zero.
  1909. X
  1910. X   LONGIND returns the index in LONGOPT of the long-named option found.
  1911. X   It is only valid when a long-named option has been found by the most
  1912. X   recent call.
  1913. X
  1914. X   If LONG_ONLY is nonzero, '-' as well as '--' can introduce
  1915. X   long-named options.  */
  1916. X
  1917. int
  1918. _getopt_internal (argc, argv, optstring, longopts, longind, long_only)
  1919. X    int argc;
  1920. X    char *const *argv;
  1921. X    const char *optstring;
  1922. X    const struct option *longopts;
  1923. X    int *longind;
  1924. X    int long_only;
  1925. {
  1926. X    int option_index;
  1927. X
  1928. X    optarg = 0;
  1929. X
  1930. X   /* Initialize the internal data when the first call is made.
  1931. SHAR_EOF
  1932. true || echo 'restore of hodge-c-0.98j/getopt.c failed'
  1933. fi
  1934. echo 'End of  part 2'
  1935. echo 'File hodge-c-0.98j/getopt.c is continued in part 3'
  1936. echo 3 > _shar_seq_.tmp
  1937. exit 0
  1938. exit 0 # Just in case...
  1939.