home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / misc / volume10 / calctool24 / part03 < prev    next >
Encoding:
Text File  |  1990-01-15  |  44.5 KB  |  1,275 lines
  1. Newsgroups: comp.sources.misc
  2. subject: v10i008: Calctool V2.4 - a simple calculator (Part 3 of 6).
  3. from: richb@Aus.Sun.COM (Rich Burridge)
  4. Sender: allbery@uunet.UU.NET (Brandon S. Allbery - comp.sources.misc)
  5.  
  6. Posting-number: Volume 10, Issue 8
  7. Submitted-by: richb@Aus.Sun.COM (Rich Burridge)
  8. Archive-name: calctool24/part03
  9.  
  10. ---- Cut Here and unpack ----
  11. #!/bin/sh
  12. # this is part 3 of a multipart archive
  13. # do not concatenate these parts, unpack them in order with /bin/sh
  14. # file functions.c continued
  15. #
  16. CurArch=3
  17. if test ! -r s2_seq_.tmp
  18. then echo "Please unpack part 1 first!"
  19.      exit 1; fi
  20. ( read Scheck
  21.   if test "$Scheck" != $CurArch
  22.   then echo "Please unpack part $Scheck next!"
  23.        exit 1;
  24.   else exit 0; fi
  25. ) < s2_seq_.tmp || exit 1
  26. echo "x - Continuing file functions.c"
  27. sed 's/^X//' << 'SHAR_EOF' >> functions.c
  28. X                              break ;
  29. X            case CCTRL('t') : disp_val = atan(disp_val) ;     /* atan */
  30. X          }
  31. X      else
  32. X        switch (current)
  33. X          {
  34. X            case CCTRL('c') : disp_val = acosh(disp_val) ;    /* acosh */
  35. X                              break ;
  36. X            case CCTRL('s') : disp_val = asinh(disp_val) ;    /* asinh */
  37. X                              break ;
  38. X            case CCTRL('t') : disp_val = atanh(disp_val) ;    /* atanh */
  39. X          }
  40. X
  41. X      tresults[(int) DEG]  = disp_val * 180.0 / M_PI ;
  42. X      tresults[(int) GRAD] = disp_val * 200.0 / M_PI ;
  43. X      tresults[(int) RAD]  = disp_val ;
  44. X    }
  45. X
  46. X  cur_op = current ;
  47. X  show_display(tresults[(int) ttype]) ;
  48. X  disp_val = tresults[(int) ttype] ;
  49. X}
  50. X
  51. X
  52. Xdo_trigtype()          /* Change the current trigonometric type. */
  53. X{
  54. X  switch (current)
  55. X    {
  56. X      case CCTRL('d') : ttype = DEG ;
  57. X                        break ;
  58. X      case CCTRL('g') : ttype = GRAD ;
  59. X                        break ;
  60. X      case CCTRL('r') : ttype = RAD ;
  61. X    }
  62. X  if (cur_op == CCTRL('c') || cur_op == CCTRL('s') || cur_op == CCTRL('t'))
  63. X    {
  64. X      disp_val = tresults[(int) ttype] ;
  65. X      show_display(tresults[(int) ttype]) ;
  66. X    }
  67. X  set_item(TTYPEITEM, ttype_str[(int) ttype]) ;
  68. X}
  69. X
  70. X
  71. XBOOLEAN
  72. Xibool(x)
  73. Xdouble x ;
  74. X{
  75. X  BOOLEAN p ;
  76. X 
  77. X  if (x > 68719476736.00) return(0) ;
  78. X  else if (x < -68719476736.00) return(0) ;
  79. X       else
  80. X         {
  81. X           while(x < 0.0) x += 4294967296.00 ;
  82. X           while(x > 4294967296.00) x -= 4294967296.00 ;
  83. X           p = x ;
  84. X           return (p) ;
  85. X         }
  86. X}
  87. X
  88. X
  89. Xdouble
  90. Xsetbool(p)
  91. XBOOLEAN p ;
  92. X{
  93. X  BOOLEAN q ;
  94. X  double val ;
  95. X
  96. X  q = p & 0x80000000 ;
  97. X  p &= 0x7fffffff ;
  98. X  val = p ;
  99. X  if (q) val += 2147483648.0 ;
  100. X  return(val) ;
  101. X}
  102. SHAR_EOF
  103. echo "File functions.c is complete"
  104. chmod 0444 functions.c || echo "restore of functions.c fails"
  105. set `wc -c functions.c`;Sum=$1
  106. if test "$Sum" != "18212"
  107. then echo original size 18212, current size $Sum;fi
  108. echo "x - extracting get.c (Text)"
  109. sed 's/^X//' << 'SHAR_EOF' > get.c &&
  110. X
  111. X/*  @(#)get.c 1.8 89/12/13
  112. X *
  113. X *  Command line and help file routines.
  114. X *
  115. X *  Copyright (c) Rich Burridge.
  116. X *                Sun Microsystems, Australia - All rights reserved.
  117. X *
  118. X *  Permission is given to distribute these sources, as long as the
  119. X *  copyright messages are not removed, and no monies are exchanged.
  120. X *
  121. X *  No responsibility is taken for any errors or inaccuracies inherent
  122. X *  either to the comments or the code of this program, but if
  123. X *  reported to me then an attempt will be made to fix them.
  124. X */
  125. X
  126. X#include "patchlevel.h"
  127. X#include "calctool.h"
  128. X#include "color.h"
  129. X#include "extern.h"
  130. X
  131. X
  132. Xchar *
  133. Xconvert(line)              /* Convert .calctoolrc line to ascii values. */
  134. Xchar *line ;               /* Input line to be converted. */
  135. X{
  136. X  char output[MAXLINE] ;   /* Converted output record. */
  137. X  int ctrl = 0       ;     /* Set if we are processing a control character. */
  138. X  int i ;                  /* Position within input line. */
  139. X  int n = 0 ;              /* Position within output line. */
  140. X
  141. X  for (i = 0; i < strlen(line)-1; i++)
  142. X    {
  143. X           if (line[i] == ' ') continue ;
  144. X      else if (line[i] == '\\') ctrl = 1 ;
  145. X      else if (ctrl)
  146. X        {
  147. X          output[n++] = CCTRL(line[i]) ;
  148. X          ctrl = 0 ;
  149. X        }
  150. X      else output[n++] = line[i] ;
  151. X    }
  152. X  output[n] = '\0' ;
  153. X  return(output) ;
  154. X}
  155. X
  156. X
  157. Xget_options(argc, argv)           /* Extract command line options. */
  158. Xint argc ;
  159. Xchar *argv[] ;
  160. X{
  161. X  char next[MAXLINE] ;    /* The next command line parameter. */
  162. X
  163. X  STRCPY(helpname, HELPNAME) ;    /* Default help filename. */
  164. X  STRCPY(x11_display, "") ;       /* Initially no X11 display value. */
  165. X  STRCPY(geometry, "") ;          /* Initialy no X11 geometry value. */
  166. X  accuracy = 2 ;                  /* Initial accuracy. */
  167. X  inv_video = 0 ;                 /* Default is normal video. */
  168. X  INC ;
  169. X  while (argc > 0)
  170. X    {
  171. X      if (argv[0][0] == '-')
  172. X        switch (argv[0][1])
  173. X          {
  174. X            case 'a' : INC ;
  175. X                       getparam(next, argv, "-a needs accuracy value") ;
  176. X                       accuracy = atoi(next) ;
  177. X                       if (accuracy < 0 || accuracy > 9)
  178. X                         {
  179. X                           FPRINTF(stderr,
  180. X                                   "%s: accuracy should be in the range 0-9\n",
  181. X                                   progname) ;
  182. X                           accuracy = 2 ;
  183. X                         }
  184. X                       break ;
  185. X            case 'd' : INC ;                 /* X11 display information. */
  186. X                       getparam(x11_display, argv, "-d needs display information") ;                       break ;
  187. X            case 'g' : INC ;                 /* X11 geometry information. */
  188. X                       getparam(geometry, argv, "-g needs geometry information") ;
  189. X                       break ;
  190. X            case 'h' : INC ;
  191. X                       getparam(helpname, argv, "-h needs helpfile name") ;
  192. X                       break ;
  193. X            case 'i' : inv_video = 1 ;
  194. X                       break ;
  195. X            case 'v' : FPRINTF(stderr, "%s version 2.4.%1d\n", progname, PATCHLEVEL) ;
  196. X                       break ;
  197. X/*  SunView windowing arguments. -Wp, -WP and -Wi are used in the NeWS
  198. X *  implementation to initially position the window and icon.
  199. X */
  200. X
  201. X            case 'W' : switch (argv[0][2])
  202. X                         {
  203. X                           case 'H' : break ;   /* -WH, no sub-args follow */
  204. X                           case 'i' : iconic = 1 ;
  205. X                                      break ;   /* -Wi, start as an icon. */
  206. X                           case 'g' :           /* -Wg, set default color. */
  207. X                           case 'n' : break ;   /* -Wn, no label at all */
  208. X                           case 'h' :           /* -Wh, height */
  209. X                           case 'I' :           /* -WI "icon filename" */
  210. X                           case 'l' :           /* -Wl "some window label" */
  211. X                           case 'L' :           /* -Wl "some icon label" */
  212. X                           case 't' :           /* Font filename */
  213. X                           case 'T' :           /* Icon font filename */
  214. X                           case 'w' : INC ;     /* Width, in columns. */
  215. X                                      break ;
  216. X                           case 'p' : INC ;     /* -Wp xnum ynum */
  217. X                                      getparam(next, argv,
  218. X                                               "-Wp needs x coordinate") ;
  219. X                                      wx = atoi(next) ;
  220. X                                      INC ;
  221. X                                      getparam(next, argv,
  222. X                                               "-Wp needs y coordinate") ;
  223. X                                      wy = atoi(next) ;
  224. X                                      posspec = 1 ;
  225. X                                      break ;
  226. X                           case 'P' : INC ;      /* -WP xnum ynum */
  227. X                                      getparam(next, argv,
  228. X                                               "-WP needs x coordinate") ;
  229. X                                      ix = atoi(next) ;
  230. X                                      INC ;
  231. X                                      getparam(next, argv,
  232. X                                               "-WP needs y coordinate") ;
  233. X                                      iy = atoi(next) ;
  234. X                                      break ;
  235. X                           case 's' : INC ; INC ;  /* -Ws xnum ynum */
  236. X                                      break ;
  237. X                           case 'b' :              /* -Wb r g b (bg color spec)
  238. X*/
  239. X                           case 'f' : INC ; INC ; INC ;  /* Same, fg color */
  240. X                                      break ;
  241. X                           default :  FPRINTF(stderr,"%s: -W%c unknown argument\n",
  242. X                                                      progname, argv[0][2]) ;
  243. X                                      break ;
  244. X                         }
  245. X                       break ;
  246. X            default  : usage() ;
  247. X          }
  248. X      INC ;
  249. X    }
  250. X}
  251. X
  252. X
  253. Xgetparam(s, argv, errmes)
  254. Xchar *s, *argv[], *errmes ;
  255. X{
  256. X  if (*argv != NULL && argv[0][0] != '-') STRCPY(s, *argv) ;
  257. X  else
  258. X    { 
  259. X      FPRINTF(stderr,"%s: %s as next argument.\n", progname, errmes) ;
  260. X      exit(1) ;                        
  261. X    }                                  
  262. X}
  263. X
  264. X
  265. Xget_helpfile(helpname)     /* Open helpfile if present. */
  266. Xchar *helpname ;
  267. X{
  268. X  char *getenv(), name[MAXLINE], *paths, *ptr ;
  269. X  int i ;
  270. X
  271. X  i = 0 ;
  272. X  ishelp = 1 ;
  273. X  if ((hfd = fopen(helpname,"r")) == NULL)
  274. X    {
  275. X      paths = getenv("PATH") ;
  276. X      if ((ptr = paths) && helpname[0] != '/')
  277. X        for (;;)
  278. X          if (*ptr == ':' || *ptr == 0)
  279. X            {
  280. X              if (*ptr == 0) break ;
  281. X              name[i++] = '/' ;
  282. X              name[i] = 0 ;
  283. X              STRCAT(name, helpname) ;
  284. X              if ((hfd = fopen(name, "r")) != NULL) return ;
  285. X              *ptr++ ;
  286. X              i = 0 ;
  287. X            }
  288. X          else name[i++] = *ptr++ ;
  289. X      FPRINTF(stderr, "%s: Help file: %s not found\r\n", progname, helpname) ;
  290. X      ishelp = 0 ;
  291. X    }
  292. X}
  293. X
  294. X
  295. Xget_rcfile(name)          /* Read .calctoolrc file. */
  296. Xchar *name ;
  297. X{
  298. X  char line[MAXLINE] ;    /* Current line from the .calctoolrc file. */
  299. X  char tmp[MAXLINE] ;     /* Used to extract function definitions. */
  300. X  double const ;          /* Current constant value being conveted. */
  301. X  int i ;                 /* Index to constant or function array. */
  302. X  int isval ;             /* Set to 'c' or 'f' for convertable line. */
  303. X  int n ;
  304. X  FILE *rcfd ;            /* File descriptor for calctool rc file. */
  305. X
  306. X  if ((rcfd = fopen(name, "r")) == NULL) return ;
  307. X
  308. X/*  Process the .calctoolrc file. There are currently four types of
  309. X *  records to look for:
  310. X *
  311. X *  1) Those starting with a hash in the first column are comments.
  312. X *
  313. X *  2) Lines starting with 'c' or 'C' in the first column are
  314. X *     definitions for constants. The cC is followed by a digit in
  315. X *     the range 0-9, then a space. This is followed by a number
  316. X *     in fixed or scientific notation. Following this is an optional
  317. X *     comment, which if found, will be used in the popup menu for
  318. X *     the constants. If the comment is present, there must be at
  319. X *     least one space between this and the preceding number.
  320. X *
  321. X *  3) Those starting with a 'f' or a 'F' in the first column are
  322. X *     definitions for functions. The fF is followed by a digit in
  323. X *     the range 0-9, then a space. This is followed by a function
  324. X *     definition. Following this is an optional comment, which if
  325. X *     found, will be used in the popup menu for the functions.
  326. X *     If the comment is present, there must be at least one space
  327. X *     between this and the preceding function definition.
  328. X *
  329. X *  4) Lines starting with a 'r' or a 'R' in the first column are
  330. X *     definitions for the initial contents of the calculators
  331. X *     memory registers. The rR is followed by a digit in the
  332. X *     range 0-9, then a space. This is followed by a number in
  333. X *     fixed or scientific notation. The rest of the line is ignored.
  334. X *
  335. X *  All other lines are ignored.
  336. X *
  337. X *  Two other things to note. There should be no embedded spaces in
  338. X *  the function definitions, and whenever a backslash is found, that
  339. X *  and the following character signify a control character, for
  340. X *  example \g would be ascii 7.
  341. X */
  342. X
  343. X  while (fgets(line, MAXLINE, rcfd) != NULL)
  344. X    {
  345. X      isval = 0 ;
  346. X           if (line[0] == 'c' || line[0] == 'C') isval = 'c' ;
  347. X      else if (line[0] == 'f' || line[0] == 'F') isval = 'f' ;
  348. X      else if (line[0] == 'r' || line[0] == 'R') isval = 'r' ;
  349. X      if (isval)
  350. X        if (line[1] >= '0' && line[1] <= '9' && line[2] == ' ')
  351. X          {
  352. X            i = char_val(line[1]) ;
  353. X            if (isval == 'c')
  354. X              {
  355. X                n = sscanf(&line[3], "%lf", &const) ;
  356. X                if (n == 1) con_vals[i] = const ;
  357. X              }
  358. X            else if (isval == 'f')
  359. X              {
  360. X                SSCANF(&line[3], "%s", tmp) ;      
  361. X                STRCPY(fun_vals[i], convert(tmp)) ;
  362. X              }
  363. X            else if (isval == 'r')
  364. X              {
  365. X                n = sscanf(&line[3], "%lf", &const) ;
  366. X                if (n == 1) mem_vals[i] = const ;
  367. X                continue ;
  368. X              }
  369. X            for (n = 3; n < strlen(line); n++)
  370. X              if (line[n] == ' ')
  371. X                {
  372. X                  while (line[n] == ' ') n++ ;
  373. X                  line[strlen(line)-1] = '\0' ;
  374. X                  if (isval == 'c')
  375. X                    SPRINTF(con_names[i], "%1d: %g [%s]",
  376. X                            i, con_vals[i], &line[n]) ;
  377. X                  else
  378. X                    SPRINTF(fun_names[i], "%1d: %s [%s]",
  379. X                            i, fun_vals[i], &line[n]) ;
  380. X                  break ;
  381. X                }
  382. X          }
  383. X    }
  384. X  FCLOSE(rcfd) ;
  385. X}
  386. X
  387. X
  388. Xread_rcfiles()   /* Read .calctoolrc's from home and current directories. */
  389. X{
  390. X  char *home ;            /* Pathname for users home directory. */
  391. X  char name[MAXLINE] ;    /* Full name of users .calctoolrc file. */
  392. X  int n ;
  393. X  struct passwd *entry ;
  394. X
  395. X  for (n = 0; n < MAXREGS; n++)
  396. X    {
  397. X      SPRINTF(name, "%1d: %g [%s]", n, con_vals[n], con_names[n]) ;
  398. X      STRCPY(con_names[n], name) ;
  399. X      STRCPY(fun_vals[n], "") ;       /* Initially empty function strings. */
  400. X    }
  401. X
  402. X  if ((home = getenv("HOME")) == NULL)
  403. X    {
  404. X      if ((entry = getpwuid(getuid())) == NULL) return ;
  405. X      home = entry->pw_dir ;
  406. X    }
  407. X  SPRINTF(name, "%s/%s", home, RCNAME) ;
  408. X  get_rcfile(name) ;      /* Read .calctoolrc from users home directory. */
  409. X
  410. X  SPRINTF(name, "%s/%s", getcwd((char *) NULL, MAXLINE), RCNAME) ;
  411. X  get_rcfile(name) ;      /* Read .calctoolrc file from current directory. */
  412. X}
  413. X
  414. X
  415. Xusage()
  416. X{
  417. X  FPRINTF(stderr, "Usage: %s: [-d display] [-g geometry] ", progname) ;
  418. X  FPRINTF(stderr, "[-h helpfile] [-i] [-v] [-Wi] [-Wp x y] [-WP x y]\n") ;
  419. X  exit(0) ;
  420. X}
  421. SHAR_EOF
  422. chmod 0444 get.c || echo "restore of get.c fails"
  423. set `wc -c get.c`;Sum=$1
  424. if test "$Sum" != "11877"
  425. then echo original size 11877, current size $Sum;fi
  426. echo "x - extracting calctool.c (Text)"
  427. sed 's/^X//' << 'SHAR_EOF' > calctool.c &&
  428. X
  429. X/*  @(#)calctool.c 1.12 89/12/07
  430. X *
  431. X *  A simple calculator program.
  432. X *
  433. X *  Copyright (c) Rich Burridge.
  434. X *                Sun Microsystems, Australia - All rights reserved.
  435. X *
  436. X *  Basic algorithms, copyright (c) Ed Falk.
  437. X *                Sun Microsystems, Mountain View.
  438. X *
  439. X *  Permission is given to distribute these sources, as long as the
  440. X *  copyright messages are not removed, and no monies are exchanged.
  441. X *
  442. X *  No responsibility is taken for any errors or inaccuracies inherent
  443. X *  either to the comments or the code of this program, but if
  444. X *  reported to me then an attempt will be made to fix them.
  445. X */
  446. X
  447. X#include "patchlevel.h"
  448. X#include "color.h"
  449. X#include "calctool.h"
  450. X
  451. Xdouble powers[11][4] = {
  452. X         {    1.0,          1.0,           1.0,             1.0 },
  453. X         {    2.0,          8.0,          10.0,            16.0 },
  454. X         {    4.0,         64.0,         100.0,           256.0 },
  455. X         {    8.0,        512.0,        1000.0,          4096.0 },
  456. X         {   16.0,       4096.0,       10000.0,         65536.0 },
  457. X         {   32.0,      32768.0,      100000.0,       1048576.0 },
  458. X         {   64.0,     262144.0,     1000000.0,      16777216.0 },
  459. X         {  128.0,    2097152.0,    10000000.0,     268435456.0 },
  460. X         {  256.0,   16777216.0,   100000000.0,    4294967296.0 },
  461. X         {  512.0,  134217728.0,  1000000000.0,   68719476736.0 },
  462. X         { 1024.0, 1073741824.0, 10000000000.0, 1099511627776.0 }
  463. X} ;
  464. X
  465. Xdouble exp_p1[10][4] = {
  466. X        { 1.0,          1.0,             1.0,    1.0             },
  467. X        { 1.0,          1.0,             1.0,    1.0             },
  468. X        { 0.5,          0.125,           0.1,    0.0625          },
  469. X        { 0.25,         0.015625,        0.01,   3.90625e-03     },
  470. X        { 0.125,        1.953125e-03,    0.001,  2.44140625e-04  },
  471. X        { 0.0625,       2.44140625e-04,  1.0e-4, 1.525878906e-05 },
  472. X        { 0.03125,      3.051757813e-05, 1.0e-5, 9.536743164e-07 },
  473. X        { 0.015625,     3.814697266e-06, 1.0e-6, 5.960464478e-08 },
  474. X        { 0.0078125,    4.768371582e-07, 1.0e-7, 3.725290298e-09 },
  475. X        { 3.90625e-03,  5.960464478e-08, 1.0e-8, 2.328306437e-10 }
  476. X} ;
  477. X
  478. Xdouble max_fix[4] = {
  479. X          6.871947674e+10, 3.245185537e+32,
  480. X          1.000000000e+36, 2.230074520e+43
  481. X} ;
  482. X
  483. X/* Selectable constants - these are the default selections. */
  484. X
  485. Xdouble con_vals[MAXREGS] = {
  486. X         0.621,                   /* kilometres per hour <=> miles per hour. */
  487. X         1.41421356237309504880,  /* square root of 2. */
  488. X         2.7182818284590452354,   /* e */
  489. X         3.14159265358979323846,  /* pi */
  490. X         2.54,                    /* centimetres <=> inch. */
  491. X         57.29577951308232,       /* degrees in a radian. */
  492. X         1048576.0,               /* 2 ^ 20. */
  493. X         0.0353,                  /* grams <=> ounce. */
  494. X         0.948,                   /* kilojoules <=> British thermal units. */
  495. X         0.0610,                  /* cubic cms <=> cubic inches. */
  496. X} ;
  497. X
  498. Xchar con_names[MAXREGS][MAXLINE] = {
  499. X       "kilometres per hour <=> miles per hour.",
  500. X       "square root of 2.",
  501. X       "e.",
  502. X       "pi.",
  503. X       "centimetres <=> inch.",
  504. X       "degrees in a radian.",
  505. X       "2 ^ 20.",
  506. X       "grams <=> ounce.",
  507. X       "kilojoules <=> British thermal units.",
  508. X       "cubic cms <=> cubic inches.",
  509. X} ;
  510. X
  511. Xchar num_names[MAXREGS][2] = {    /* Used by the popup menus. */
  512. X       "0", "1", "2", "3", "4", "5", "6", "7", "8", "9",
  513. X} ;
  514. X
  515. Xchar base_str[4][4]  = { "BIN", "OCT", "DEC", "HEX" } ;
  516. Xchar dtype_str[2][4] = { "FIX", "SCI" } ;
  517. Xchar ttype_str[3][5] = { "DEG", "GRAD", "RAD" } ;
  518. X
  519. Xchar digits[] = "0123456789abcdef" ;
  520. Xint basevals[4] = {2, 8, 10, 16} ;
  521. X
  522. X/* Length of display in characters for each base. */
  523. Xint disp_length[4] = {32, 15, 12, 12} ;
  524. X
  525. X/* X offset in pixels for various length button strings. */
  526. Xint chxoff[5] = { 5, 9, 14, 16, 5 } ;
  527. X
  528. X/* Valid keys when an error condition has occured. */
  529. X/*                            MEM  KEYS HELP   clr   QUIT OFF  REDRAW */
  530. Xchar validkeys[MAXVKEYS]  = { 'M', 'K', '?', '\177', 'q', 'o', '\f' } ;
  531. X
  532. X/* Valid keys for which the right mouse button will get a popup menu. */
  533. Xchar validmenu[MAXMENUS]  = {
  534. X/*   ACC  CON    EXCH        FUN        <    >   RCL  STO  */
  535. X     'A', '#', CCTRL('e'), CCTRL('f'), '<', '>', 'r', 's'
  536. X} ;
  537. X
  538. Xdouble disp_val ;             /* Value of the current display. */
  539. Xdouble last_input ;           /* Previous number input by user. */
  540. Xdouble mem_vals[MAXREGS] ;    /* Memory register values. */
  541. Xdouble result ;               /* Current calculator total value. */
  542. Xdouble tresults[3] ;          /* Current trigonometric results. */
  543. X
  544. Xenum base_type base ;         /* Current base: BIN, OCT, DEC or HEX. */
  545. Xenum gr_type gtype ;          /* What graphics system is being used. */
  546. Xenum num_type dtype ;         /* Number display mode. */
  547. Xenum trig_type ttype ;        /* Trigonometric type (deg, grad or rad). */
  548. X
  549. XFILE *hfd ;         /* File descriptor for help information. */
  550. X
  551. Xint accuracy ;      /* Number of digits precision (Max 9). */
  552. Xint color ;         /* Color being used for current raster operation. */
  553. Xint column ;        /* Column number of current key/mouse press. */
  554. Xint cur_ch ;        /* Current character if keyboard event. */
  555. Xint curx ;          /* Current mouse X position. */
  556. Xint cury ;          /* Current mouse Y position. */
  557. Xint down ;          /* Indicates is a mouse button is down. */
  558. Xint error ;         /* Indicates some kind of display error. */
  559. Xint hyperbolic ;    /* If set, trig functions will be hyperbolic. */
  560. Xint iconic ;        /* Set if window is currently iconic. */
  561. Xint inv_video ;     /* Set if user wants inverse video mode. */
  562. Xint inverse ;       /* If set, trig and log functions will be inversed. */
  563. Xint iscolor ;       /* Set if this is a color screen. */
  564. Xint ishelp ;        /* Set if there is a help file. */
  565. Xint issel ;         /* Set if valid [Get] selection. */
  566. Xint ix ;            /* Initial X position of the icon. */
  567. Xint iy ;            /* Initial Y position of the icon. */
  568. Xint key_exp ;       /* Set if entering exponent number. */
  569. Xint new_input ;     /* New number input since last op. */
  570. Xint nextc ;         /* Current event identifier. */
  571. Xint nfont_width ;   /* Width of the normal font characters. */
  572. Xint pending ;       /* Indicates command depending on multiple presses. */
  573. Xint pending_op ;    /* Arithmetic operation for pending command. */
  574. Xint pointed ;       /* Whether a decimal point has been given. */
  575. Xint portion ;       /* Portion of button on current key/mouse press. */
  576. Xint posspec ;       /* Set if -Wp or -g option is present (for X11) */
  577. Xint row ;           /* Row number of current key/mouse press. */
  578. Xint rstate ;        /* Indicates if memory register frame is displayed. */
  579. Xint spaces ;        /* Number of spaces in current button string. */
  580. Xint toclear ;       /* Indicates if display should be cleared. */
  581. Xint tstate ;        /* Indicates current button set being displayed. */
  582. Xint wx ;            /* Initial X position of the window. */
  583. Xint wy ;            /* Initial Y position of the window. */
  584. Xint x ;             /* X offset for text for button. */
  585. Xint y ;             /* Y offset for text for button. */
  586. X
  587. X/* Routines obeyed by mouse button or character presses. */
  588. Xint close_frame(),    destroy_frame(),  do_base() ;
  589. Xint do_calculation(), do_clear(),       do_constant(),  do_delete() ;
  590. Xint do_expno(),       do_immediate(),   do_keys(),      do_number() ;
  591. Xint do_pending(),     do_point(),       do_portion(),   do_repaint() ;
  592. Xint do_set_mode(),    do_trig(),        do_trigtype(),  toggle_reg_canvas() ;
  593. X
  594. Xchar cur_op ;                     /* Current arithmetic operation. */
  595. Xchar current ;                    /* Current button or character pressed. */
  596. Xchar *exp_posn ;                  /* Position of the exponent sign. */
  597. Xchar fnum[MAX_DIGITS+1] ;         /* Scratch area for fixed point numbers. */
  598. Xchar fun_names[MAXREGS][MAXLINE] ;  /* Function defs from .calctoolrc. */
  599. Xchar fun_vals[MAXREGS][MAXLINE] ;   /* Function names from .calctoolrc. */
  600. Xchar geometry[MAXLINE] ;          /* X11 geometry information. */
  601. Xchar old_cal_value ;              /* Previous calculation operator. */
  602. Xchar pstr[5] ;                    /* Current button text string. */
  603. Xchar *selection ;                 /* Current [Get] selection. */
  604. Xchar *shelf ;                     /* PUT selection shelf contents. */
  605. Xchar snum[MAX_DIGITS+1] ;         /* Scratch are for scientific numbers. */
  606. Xchar x11_display[MAXLINE] ;       /* X11 display information. */
  607. X
  608. Xstruct iteminfo items[MAXITEMS] = {                    /* Panel items. */
  609. X  { SFONT, BBORDER,                 DISPLAY-3,  "" },  /* BASEITEM. */
  610. X  { NFONT, 0,                       DISPLAY-15, "" },  /* DISPLAYITEM. */
  611. X  { SFONT, BBORDER+1*(BWIDTH+BGAP), DISPLAY-3,  "" },  /* TTYPEITEM. */
  612. X  { SFONT, BBORDER+2*(BWIDTH+BGAP), DISPLAY-3,  "" },  /* NUMITEM. */
  613. X  { SFONT, BBORDER+3*(BWIDTH+BGAP), DISPLAY-3,  "" },  /* HYPITEM. */
  614. X  { SFONT, BBORDER+4*(BWIDTH+BGAP), DISPLAY-3,  "" },  /* INVITEM. */
  615. X  { SFONT, BBORDER+5*(BWIDTH+BGAP), DISPLAY-3,  "" },  /* OPITEM. */
  616. X} ;
  617. X
  618. X/* Calculator button values. */
  619. X
  620. Xstruct button buttons[TITEMS] = {
  621. X  { "EXCH", CCTRL('e'), OP_SET,   MAUVE,    do_pending },       /* Row 1. */
  622. X  { "CON ", '#',        OP_SET,   BLUE,     do_pending },
  623. X  { "BIN ", 'B',        OP_CLEAR, YELLOW,   do_base },
  624. X  { "MEM ", 'M',        OP_CLEAR, BLUE,     toggle_reg_canvas },
  625. X  { "OCT ", 'O',        OP_CLEAR, YELLOW,   do_base },
  626. X  { "D   ", 'd',        OP_NOP,   PINK,     do_number },
  627. X  { "DEC ", 'D',        OP_CLEAR, YELLOW,   do_base },
  628. X  { "E   ", 'e',        OP_NOP,   PINK,     do_number }, 
  629. X  { "HEX ", 'H',        OP_CLEAR, YELLOW,   do_base },
  630. X  { "F   ", 'f',        OP_NOP,   PINK,     do_number },  
  631. X  { "SCI ", CCTRL('n'), OP_CLEAR, BLUE,     do_set_mode },
  632. X  { "FUN ", CCTRL('f'), OP_SET,   BLUE,     do_pending },
  633. X
  634. X  { "&32 ", '[',        OP_CLEAR, LGREY,    do_immediate },      /* Row 2. */
  635. X  { "STO ", 's',        OP_SET,   MAUVE,    do_pending },
  636. X  { "&16 ", ']',        OP_CLEAR, LGREY,    do_immediate },
  637. X  { "RCL ", 'r',        OP_SET,   MAUVE,    do_pending }, 
  638. X  { "<   ", '<',        OP_SET,   LGREY,    do_pending },
  639. X  { "A   ", 'a',        OP_NOP,   PINK,     do_number }, 
  640. X  { ">   ", '>',        OP_SET,   LGREY,    do_pending },
  641. X  { "B   ", 'b',        OP_NOP,   PINK,     do_number },
  642. X  { "%   ", '%',        OP_SET,   LPURPLE,  do_calculation },
  643. X  { "C   ", 'c',        OP_NOP,   PINK,     do_number },
  644. X  { "clr ", '\177',     OP_CLEAR, BLUE,     do_clear },
  645. X  { "bsp ", CCTRL('h'), OP_NOP,   BLUE,     do_delete },
  646. X
  647. X  { "OR  ", '|',        OP_SET,   GREEN,    do_calculation },   /* Row 3. */
  648. X  { "AND ", '&',        OP_SET,   GREEN,    do_calculation },
  649. X  { "HYP ", 'h',        OP_CLEAR, BLUE,     do_set_mode },
  650. X  { "SIN ", CCTRL('s'), OP_CLEAR, LGREEN,   do_trig },
  651. X  { "e^x ", '{',        OP_CLEAR, ORANGE,   do_immediate },
  652. X  { "7   ", '7',        OP_NOP,   LBLUE,    do_number },
  653. X  { "10^x", '}',        OP_CLEAR, ORANGE,   do_immediate },
  654. X  { "8   ", '8',        OP_NOP,   LBLUE,    do_number },
  655. X  { "y^x ", 'Y',        OP_SET,   ORANGE,   do_calculation },
  656. X  { "9   ", '9',        OP_NOP,   LBLUE,    do_number }, 
  657. X  { "INT ", 'I',        OP_CLEAR, LGREY,    do_portion },
  658. X  { "X   ", 'x',        OP_SET,   LPURPLE,  do_calculation },
  659. X
  660. X  { "XNOR", 'n',        OP_SET,   GREEN,    do_calculation },   /* Row 4. */
  661. X  { "XOR ", '^',        OP_SET,   GREEN,    do_calculation },
  662. X  { "INV ", 'i',        OP_CLEAR, BLUE,     do_set_mode },
  663. X  { "COS ", CCTRL('c'), OP_CLEAR, LGREEN,   do_trig },
  664. X  { "ln  ", 'N',        OP_CLEAR, ORANGE,   do_immediate },
  665. X  { "4   ", '4',        OP_NOP,   LBLUE,    do_number },
  666. X  { "log ", 'G',        OP_CLEAR, ORANGE,   do_immediate },
  667. X  { "5   ", '5',        OP_NOP,   LBLUE,    do_number },
  668. X  { "SQRT", 'S',        OP_CLEAR, ORANGE,   do_immediate },
  669. X  { "6   ", '6',        OP_NOP,   LBLUE,    do_number },
  670. X  { "FRAC", 'F',        OP_CLEAR, LGREY,    do_portion },
  671. X  { "/   ", '/',        OP_SET,   LPURPLE,  do_calculation },
  672. X
  673. X  { "NOT ", '~',        OP_CLEAR, GREEN,    do_immediate },     /* Row 5. */
  674. X  { "ACC ", 'A',        OP_SET,   BLUE,     do_pending },
  675. X  { "EXP ", 'E',        OP_SET,   BLUE,     do_expno },
  676. X  { "TAN ", CCTRL('t'), OP_CLEAR, LGREEN,   do_trig },
  677. X  { "1/x ", 'R',        OP_CLEAR, ORANGE,   do_immediate },
  678. X  { "1   ", '1',        OP_NOP,   LBLUE,    do_number },
  679. X  { "x!  ", '!',        OP_CLEAR, ORANGE,   do_immediate },
  680. X  { "2   ", '2',        OP_NOP,   LBLUE,    do_number },
  681. X  { "x^2 ", '@',        OP_CLEAR, ORANGE,   do_immediate },
  682. X  { "3   ", '3',        OP_NOP,   LBLUE,    do_number },
  683. X  { "CHS ", 'C',        OP_CLEAR, LGREY,    do_immediate },
  684. X  { "-   ", '-',        OP_SET,   LPURPLE,  do_calculation },
  685. X
  686. X  { "QUIT", 'q',        OP_CLEAR, BLUE,     destroy_frame },    /* Row 6. */
  687. X  { "OFF ", 'o',        OP_CLEAR, BLUE,     close_frame },
  688. X  { "KEYS", 'K',        OP_CLEAR, BLUE,     do_keys },
  689. X  { "?   ", '?',        OP_SET,   BLUE,     do_pending },
  690. X  { "DEG ", CCTRL('d'), OP_CLEAR, RED,      do_trigtype },
  691. X  { "0   ", '0',        OP_NOP,   LBLUE,    do_number },
  692. X  { "RAD ", CCTRL('r'), OP_CLEAR, RED,      do_trigtype },
  693. X  { ".   ", '.',        OP_NOP,   LPURPLE,  do_point },
  694. X  { "GRAD", CCTRL('g'), OP_CLEAR, RED,      do_trigtype },
  695. X  { "=   ", '=',        OP_CLEAR, LPURPLE,  do_calculation },
  696. X  { "ABS ", 'U',        OP_CLEAR, LGREY,    do_portion },
  697. X  { "+   ", '+',        OP_SET,   LPURPLE,  do_calculation },
  698. X
  699. X/* Extra definitions. */
  700. X
  701. X  { "X   ", 'X',        OP_SET,   WHITE,    do_calculation },
  702. X  { "X   ", '*',        OP_SET,   WHITE,    do_calculation },
  703. X  { "    ", CCTRL('m'), OP_CLEAR, WHITE,    do_calculation },
  704. X  { "QUIT", 'Q',        OP_CLEAR, WHITE,    destroy_frame },
  705. X  { "    ", '\f',       OP_NOP,   WHITE,    do_repaint },
  706. X} ;
  707. X
  708. X/*  256-byte table for quickly reversing the bits in an unsigned 8-bit char,
  709. X *  used to convert between MSBFirst and LSBFirst image formats.
  710. X */
  711. X
  712. Xchar revtable[256] = {
  713. X        0, -128,   64,  -64,   32,  -96,   96,  -32,
  714. X       16, -112,   80,  -48,   48,  -80,  112,  -16,
  715. X        8, -120,   72,  -56,   40,  -88,  104,  -24,
  716. X       24, -104,   88,  -40,   56,  -72,  120,   -8,
  717. X        4, -124,   68,  -60,   36,  -92,  100,  -28,
  718. X       20, -108,   84,  -44,   52,  -76,  116,  -12,
  719. X       12, -116,   76,  -52,   44,  -84,  108,  -20,
  720. X       28, -100,   92,  -36,   60,  -68,  124,   -4,
  721. X        2, -126,   66,  -62,   34,  -94,   98,  -30,
  722. X       18, -110,   82,  -46,   50,  -78,  114,  -14,
  723. X       10, -118,   74,  -54,   42,  -86,  106,  -22,
  724. X       26, -102,   90,  -38,   58,  -70,  122,   -6,
  725. X        6, -122,   70,  -58,   38,  -90,  102,  -26,
  726. X       22, -106,   86,  -42,   54,  -74,  118,  -10,
  727. X       14, -114,   78,  -50,   46,  -82,  110,  -18,
  728. X       30,  -98,   94,  -34,   62,  -66,  126,   -2,
  729. X        1, -127,   65,  -63,   33,  -95,   97,  -31,
  730. X       17, -111,   81,  -47,   49,  -79,  113,  -15,
  731. X        9, -119,   73,  -55,   41,  -87,  105,  -23,
  732. X       25, -103,   89,  -39,   57,  -71,  121,   -7,
  733. X        5, -123,   69,  -59,   37,  -91,  101,  -27,
  734. X       21, -107,   85,  -43,   53,  -75,  117,  -11,
  735. X       13, -115,   77,  -51,   45,  -83,  109,  -19,
  736. X       29,  -99,   93,  -35,   61,  -67,  125,   -3,
  737. X        3, -125,   67,  -61,   35,  -93,   99,  -29,
  738. X       19, -109,   83,  -45,   51,  -77,  115,  -13,
  739. X       11, -117,   75,  -53,   43,  -85,  107,  -21,
  740. X       27, -101,   91,  -37,   59,  -69,  123,   -5,
  741. X        7, -121,   71,  -57,   39,  -89,  103,  -25,
  742. X       23, -105,   87,  -41,   55,  -73,  119,   -9,
  743. X       15, -113,   79,  -49,   47,  -81,  111,  -17,
  744. X       31,  -97,   95,  -33,   63,  -65,  127,   -1,
  745. X} ;
  746. X
  747. Xchar display[MAXLINE] ;     /* Current calculator display. */
  748. Xchar helpname[MAXLINE] ;    /* Filename for help file. */
  749. Xchar progname[MAXLINE] ;    /* Name of this program. */
  750. X
  751. X
  752. Xmain(argc,argv)
  753. Xint argc ;
  754. Xchar *argv[] ;
  755. X{
  756. X  STRCPY(progname, argv[0]) ; /* Save this programs name. */
  757. X  get_options(argc, argv) ;   /* Get command line arguments. */
  758. X  get_helpfile(helpname) ;    /* Open helpfile if present. */
  759. X  read_rcfiles() ;            /* Read .calctoolrc's files. */
  760. X  if (init_ws_type())         /* Determine window system type. */
  761. X    {
  762. X      FPRINTF(stderr,"Error initialising window system.\n") ;
  763. X      exit(1) ;
  764. X    }
  765. X  init_fonts() ;              /* Open required fonts. */
  766. X  make_icon() ;               /* Set up the calctool window icon. */
  767. X  make_frames(argc, argv) ;   /* Create calctool window frames. */
  768. X  make_subframes() ;          /* Create panels and canvases. */
  769. X  make_menus() ;              /* Create menus for graphics versions. */
  770. X  if (gtype != X11) load_colors() ;  /* Load the initial calctool colormap. */
  771. X
  772. X  shelf = NULL ;              /* No selection for shelf initially. */
  773. X  pending = 0 ;               /* No initial pending command. */
  774. X  rstate = 0 ;                /* No memory register frame display initially. */
  775. X  tstate = 0 ;                /* Button values displayed first. */
  776. X  hyperbolic = 0 ;            /* Normal trig functions initially. */
  777. X  inverse = 0 ;               /* No inverse functions initially. */
  778. X  base = DEC ;                /* Initial base. */
  779. X  ttype = DEG ;               /* Initial trigonometric type. */
  780. X  dtype = FIX ;               /* Initial number display mode. */
  781. X  down = 0 ;                  /* No mouse presses initially. */
  782. X
  783. X  make_items() ;              /* Create panel items and cursors. */
  784. X  do_clear() ;                /* Initialise and clear display. */
  785. X  set_cursor(MAINCURSOR) ;    /* Initially display the arrow cursor. */
  786. X  start_tool() ;              /* Display the calculator. */
  787. X  exit(0) ;
  788. X}
  789. X
  790. X
  791. Xmatherr(x)      /* Calctools' math library error-handling routine. */
  792. Xstruct exception *x ;
  793. X{
  794. X  SPRINTF(display, "Error in %s", x->name) ;
  795. X  set_item(DISPLAYITEM, display) ;
  796. X  error = 1 ;
  797. X  set_item(OPITEM, "CLR") ;
  798. X  return(1) ;
  799. X}
  800. SHAR_EOF
  801. chmod 0444 calctool.c || echo "restore of calctool.c fails"
  802. set `wc -c calctool.c`;Sum=$1
  803. if test "$Sum" != "17879"
  804. then echo original size 17879, current size $Sum;fi
  805. echo "x - extracting mgr.c (Text)"
  806. sed 's/^X//' << 'SHAR_EOF' > mgr.c &&
  807. X
  808. X/*  @(#)mgr.c 1.11 89/12/21
  809. X *
  810. X *  These are the MGR dependent graphics routines used by calctool.
  811. X *
  812. X *  Copyright (c) Rich Burridge.
  813. X *                Sun Microsystems, Australia - All rights reserved.
  814. X *
  815. X *  Permission is given to distribute these sources, as long as the
  816. X *  copyright messages are not removed, and no monies are exchanged.
  817. X *
  818. X *  No responsibility is taken for any errors or inaccuracies inherent
  819. X *  either to the comments or the code of this program, but if
  820. X *  reported to me then an attempt will be made to fix them.
  821. X */
  822. X
  823. X#include "dump.h"
  824. X#include "term.h"
  825. X#include "calctool.h"
  826. X#include "color.h"
  827. X#include "extern.h"
  828. X
  829. X#define  S_FONT      1     /* Font descriptors. */
  830. X#define  N_FONT      2
  831. X#define  B_FONT      3
  832. X
  833. X#define  ICONIC      0     /* States that the calctool display can be in. */
  834. X#define  JUST_KEYS   1
  835. X#define  SHOW_ALL    2
  836. X
  837. X#define  PR_ICON     1     /* Descriptor for closed icon image. */
  838. X
  839. X#define  SMALLFONT   "sail6x8r"
  840. X#define  NORMALFONT  "cour7x14b"
  841. X#define  BIGFONT     "gal12x20r"
  842. X
  843. X#define  MENU_COUNT  (sizeof(menus) / (sizeof(struct menu_entry) * MAXMENUS))
  844. X
  845. Xstruct menu_entry menus[MAXMENUS][MAXREGS] ;
  846. X
  847. Xchar fontname[MAXLINE] ;      /* Full pathname of the small font. */
  848. X
  849. Xint local_mode ;         /* Used by load_icon for correct line mode. */
  850. Xint mgr_infd ;           /* MGR input connection file descriptor. */
  851. Xint mgr_outfd ;          /* MGR output connection file descriptor. */
  852. X
  853. Xshort icon_image[] = {
  854. X#include "calctool.icon"
  855. X} ;
  856. X
  857. X#ifdef NO_4_3SELECT
  858. Xint fullmask ;               /* Full mask of file descriptors to check on. */ 
  859. Xint readmask ;               /* Readmask used in select call. */ 
  860. X#else 
  861. Xfd_set fullmask ;            /* Full mask of file descriptors to check on. */
  862. Xfd_set readmask ;            /* Readmask used in select call. */
  863. X#endif /*NO_4_3SELECT */
  864. X 
  865. X
  866. XSIGRET
  867. Xclean(code)
  868. Xint code ;
  869. X{
  870. X  m_bitdestroy(1) ;
  871. X  m_pop() ;
  872. X  m_ttyreset() ;
  873. X  m_clear() ;
  874. X  exit(code) ;
  875. X}
  876. X
  877. X
  878. X/*ARGSUSED*/
  879. Xclear_canvas(canvas, color)
  880. Xenum can_type canvas ;
  881. Xint color ;
  882. X{
  883. X  m_func(B_CLEAR) ;
  884. X  if (canvas == KEYCANVAS)
  885. X    m_bitwrite(0, 0, TWIDTH+10, THEIGHT+DISPLAY+10) ;
  886. X  else if (canvas == REGCANVAS)
  887. X    m_bitwrite(TWIDTH+15, 0, TWIDTH+10, THEIGHT+DISPLAY+10) ;
  888. X}
  889. X
  890. X
  891. Xclose_frame()
  892. X{
  893. X  reshape(ICONIC) ;
  894. X  m_clearmode(M_ACTIVATE) ;
  895. X}
  896. X
  897. X
  898. Xcolor_area(x, y, width, height, color)
  899. Xint x, y, width, height, color ;
  900. X{
  901. X  if (color == BLACK)
  902. X    {
  903. X      m_func(B_COPY) ;
  904. X      m_bitwrite(x, y, width, height) ;
  905. X    }
  906. X}
  907. X
  908. X
  909. Xcreate_menu(mtype)     /* Create popup menu for right button press. */
  910. Xenum menu_type mtype ;
  911. X{
  912. X  int i ;
  913. X  char istr[3] ;       /* String representation for action value. */
  914. X
  915. X  for (i = 0; i < MAXREGS; i++)
  916. X    {
  917. X      SPRINTF(istr, "%1d\r", i) ;
  918. X      switch (mtype)
  919. X        {
  920. X          case M_ACC    :                              /* Accuracies. */
  921. X          case M_EXCH   :                              /* Register exchange. */
  922. X          case M_LSHIFT :                              /* Left shift. */
  923. X          case M_RCL    :                              /* Register recall. */
  924. X          case M_RSHIFT :                              /* Right shift. */
  925. X          case M_STO    :                              /* Register store. */
  926. X                          menus[(int) mtype][i].value = num_names[i] ;
  927. X                          break ;
  928. X          case M_CON    :                              /* Constants. */
  929. X                          menus[(int) mtype][i].value = con_names[i] ;
  930. X                          break ;
  931. X          case M_FUN    :                              /* Functions. */
  932. X                          menus[(int) mtype][i].value = fun_names[i] ;
  933. X        }
  934. X      menus[(int) mtype][i].action = num_names[i] ;
  935. X    }
  936. X  menu_load((int) mtype, MENU_COUNT, menus[(int) mtype]) ;
  937. X}
  938. X
  939. X
  940. Xdestroy_frame()
  941. X{
  942. X  clean(0) ;
  943. X}
  944. X
  945. X
  946. Xdo_menu(mtype)      /* Popup appropriate menu and get value. */
  947. Xenum menu_type mtype ;
  948. X{
  949. X  m_selectmenu2((int) mtype) ;
  950. X}
  951. X
  952. X
  953. Xdrawline(x1, y1, x2, y2)
  954. Xint x1, y1, x2, y2 ;
  955. X{
  956. X  m_func(B_COPY) ;
  957. X  m_line(x1, y1, x2, y2) ;
  958. X}
  959. X
  960. X
  961. Xdraw_regs()
  962. X{
  963. X  reshape(SHOW_ALL) ;
  964. X  clear_canvas(REGCANVAS, WHITE) ;
  965. X  drawline(TWIDTH, 0, TWIDTH, THEIGHT+DISPLAY+10) ;
  966. X  make_registers() ;
  967. X}
  968. X
  969. X
  970. X/*ARGSUSED*/
  971. Xdrawtext(x, y, window, fontno, color, str)
  972. Xenum font_type fontno ;
  973. Xenum can_type window ;
  974. Xint x, y, color ;
  975. Xchar *str ;
  976. X{
  977. X  int i ;
  978. X
  979. X       if (fontno == SFONT) m_font(S_FONT) ;
  980. X  else if (fontno == NFONT) m_font(N_FONT) ;
  981. X  else if (fontno == BFONT) m_font(B_FONT) ;
  982. X       if (window == REGCANVAS) x += TWIDTH + 15 ;
  983. X  m_func(B_XOR) ;
  984. X  i = strlen(str)-1 ;
  985. X  while (str[i] == ' ' && i) str[i--] = '\0' ;
  986. X  m_stringto(0, x, y+4, str) ;
  987. X  m_movecursor(2500, 2500) ;
  988. X}
  989. X
  990. X
  991. Xget_display()
  992. X{
  993. X}
  994. X
  995. X
  996. Xget_next_event()
  997. X{
  998. X  int c ;
  999. X  static struct timeval tval = { 0, 0 } ;
  1000. X
  1001. X  m_flush() ;
  1002. X  for (;;)
  1003. X    {
  1004. X      readmask = fullmask ;
  1005. X#ifdef NO_4_3SELECT
  1006. X      SELECT(32, &readmask, 0, 0, &tval) ;
  1007. X      if (readmask && (1 << mgr_infd))
  1008. X#else
  1009. X      SELECT(FD_SETSIZE, &readmask, (fd_set *) 0, (fd_set *) 0, &tval) ;
  1010. X      if (FD_ISSET(mgr_infd, &readmask))
  1011. X#endif /*NO_4_3SELECT*/
  1012. X        {
  1013. X          if ((c = m_getchar()) == EOF)
  1014. X            {
  1015. X              clearerr(m_termin) ;
  1016. X              continue ;
  1017. X            }
  1018. X          get_mouse(&curx, &cury) ;
  1019. X          switch (c)
  1020. X            {
  1021. X              case '\030' : return(MIDDLE_DOWN) ;
  1022. X              case '\031' : return(MIDDLE_UP) ;
  1023. X              case '\032' : return(LEFT_DOWN) ;
  1024. X              case '\033' : return(LEFT_UP) ;
  1025. X              case '\034' : return(DIED) ;           /* Window destroyed. */
  1026. X              case '\035' : if (iconic) iconic = 0 ;
  1027. X              case '\036' : if (rstate) reshape(SHOW_ALL) ;
  1028. X                            else reshape(JUST_KEYS) ;
  1029. X              case '\037' : return(CFRAME_REPAINT) ; /* Window redrawn. */
  1030. X              default     : cur_ch = c ;
  1031. X                            return(KEYBOARD) ;
  1032. X            }
  1033. X        }
  1034. X    }    
  1035. X}
  1036. X
  1037. X
  1038. Xhandle_selection()
  1039. X{
  1040. X}
  1041. X
  1042. X
  1043. Xinit_fonts()
  1044. X{
  1045. X  char path[MAXLINE] ;     /* Directory path for font files. */
  1046. X
  1047. X#ifdef MGRHOME
  1048. X  STRCPY(path, MGRHOME) ;
  1049. X#else
  1050. X  STRCPY(path, "/usr/mgr") ;
  1051. X#endif /*MGRHOME*/
  1052. X
  1053. X  SPRINTF(fontname, "%s/font/%s", path, SMALLFONT) ;
  1054. X  m_loadfont(SFONT, fontname) ;
  1055. X
  1056. X  SPRINTF(fontname, "%s/font/%s", path, NORMALFONT) ; 
  1057. X  m_loadfont(NFONT, fontname) ;
  1058. X  nfont_width = 9 ;
  1059. X
  1060. X  SPRINTF(fontname, "%s/font/%s", path, BIGFONT) ; 
  1061. X  m_loadfont(BFONT, fontname) ;
  1062. X
  1063. X}
  1064. X
  1065. X
  1066. Xinit_ws_type()
  1067. X{
  1068. X  m_setup(M_FLUSH) ;     /* Setup I/O; turn on flushing. */
  1069. X  m_push(P_BITMAP | P_MENU | P_EVENT | P_FONT | P_FLAGS | P_POSITION) ;
  1070. X  mgr_infd = fileno(m_termin) ;
  1071. X  mgr_outfd = fileno(m_termout) ;
  1072. X
  1073. X  SIGNAL(SIGHUP, clean) ;
  1074. X  SIGNAL(SIGINT, clean) ;
  1075. X  SIGNAL(SIGTERM, clean) ;
  1076. X  m_ttyset() ;
  1077. X  m_setraw() ;
  1078. X  m_setmode(M_NOWRAP) ;
  1079. X  m_setmode(M_ABS) ;
  1080. X  m_setmode(ACTIVATE) ;
  1081. X  m_clearmode(M_NOINPUT) ;
  1082. X  m_func(B_COPY) ;
  1083. X
  1084. X  gtype = MGR ;
  1085. X  return 0 ;
  1086. X}
  1087. X
  1088. X
  1089. Xload_colors()      /* Hardwired to a monochrome version. */
  1090. X{
  1091. X  iscolor = 0 ;
  1092. X}
  1093. X
  1094. X
  1095. Xload_icon(pixrect, ibuf)
  1096. Xint pixrect ;
  1097. Xshort ibuf[256] ;
  1098. X{
  1099. X  int size ;
  1100. X
  1101. X  IOCTL(mgr_outfd, TIOCLGET, &local_mode) ;
  1102. X  local_mode |= LLITOUT ;
  1103. X  IOCTL(mgr_outfd, TIOCLSET, &local_mode) ;
  1104. X
  1105. X  size = ICONHEIGHT * (((64 + 15) &~ 15) >> 3) ;
  1106. X  m_bitldto(ICONWIDTH, ICONHEIGHT, 0, 0, pixrect, size) ;
  1107. X  m_flush() ;
  1108. X  WRITE(mgr_outfd, (char *) ibuf, size) ;
  1109. X
  1110. X  local_mode &= ~LLITOUT ;
  1111. X  IOCTL(mgr_outfd, TIOCLSET, &local_mode) ;
  1112. X}
  1113. X
  1114. X
  1115. X/*ARGSUSED*/
  1116. Xmake_frames(argc, argv)
  1117. Xint argc ;
  1118. Xchar *argv[] ;
  1119. X{
  1120. X#ifdef NO_4_3SELECT
  1121. X  fullmask = 1 << mgr_infd ;
  1122. X#else
  1123. X  FD_ZERO(&fullmask) ;
  1124. X  FD_SET(mgr_infd, &fullmask) ;
  1125. X#endif /*NO_4_3SELECT*/
  1126. X
  1127. X  m_setevent(BUTTON_1, "\030") ;    /* Right mouse button depressed. */
  1128. X  m_setevent(BUTTON_1U, "\031") ;   /* Right mouse button released. */
  1129. X
  1130. X  m_setevent(BUTTON_2, "\032") ;    /* Middle mouse button depressed. */
  1131. X  m_setevent(BUTTON_2U, "\033") ;   /* Middle mouse button released. */
  1132. X
  1133. X  m_setevent(ACTIVATE, "\034") ;    /* Window has been activated. */
  1134. X  m_setevent(DESTROY, "\035") ;     /* Check for window being destroyed. */
  1135. X  m_setevent(RESHAPE, "\036") ;     /* Check for window being reshaped. */
  1136. X  m_setevent(REDRAW, "\037") ;      /* Check for window being redrawn. */
  1137. X}
  1138. X
  1139. X
  1140. Xmake_icon()
  1141. X{
  1142. X  load_icon(PR_ICON, icon_image) ;
  1143. X}
  1144. X
  1145. X
  1146. Xmake_items()
  1147. X{
  1148. X  do_repaint() ;               /* Redraw the calctool canvas[es]. */
  1149. X  m_movecursor(2500, 2500) ;   /* Move character cursor offscreen. */
  1150. X}
  1151. X
  1152. X
  1153. Xmake_subframes()
  1154. X{
  1155. X  m_font(N_FONT) ;          /* Use the default font. */
  1156. X  reshape(JUST_KEYS) ;
  1157. X  m_clear() ;               /* Clear calctool window. */
  1158. X}
  1159. X
  1160. X
  1161. Xreshape(type)
  1162. Xint type ;
  1163. X{
  1164. X  int x, y, w, h ;      /* Position and size of calctool window. */
  1165. X
  1166. X  get_size(&x, &y, &w, &h) ;
  1167. X  switch (type)
  1168. X    {
  1169. X      case ICONIC    : m_shapewindow(x, y, ICONWIDTH+10, ICONHEIGHT+10) ;
  1170. X                       m_clear() ;
  1171. X                       m_bitcopyto(0, 0, ICONWIDTH, ICONHEIGHT,
  1172. X                                   0, 0, 0, PR_ICON) ;
  1173. X                       break ;
  1174. X      case JUST_KEYS : m_shapewindow(x, y, TWIDTH+10, THEIGHT+DISPLAY+10) ;
  1175. X                       break ;
  1176. X      case SHOW_ALL  : m_shapewindow(x, y, 2*TWIDTH+25, THEIGHT+DISPLAY+10) ;
  1177. X    }
  1178. X  m_movecursor(2500, 2500) ;
  1179. X}
  1180. X
  1181. X
  1182. X/*ARGSUSED*/
  1183. Xset_cursor(type)   /* Doesn't appear to be any way to set the cursor. */
  1184. Xint type ;
  1185. X{
  1186. X}
  1187. X
  1188. X
  1189. Xstart_tool()
  1190. X{
  1191. X  while (1)
  1192. X    process_event(get_next_event()) ;
  1193. X}
  1194. X
  1195. X
  1196. Xtoggle_reg_canvas()      /* Show or clear memory register area. */
  1197. X{
  1198. X  rstate = !rstate ;
  1199. X  if (rstate) draw_regs() ;
  1200. X  else reshape (JUST_KEYS) ;
  1201. X}
  1202. SHAR_EOF
  1203. chmod 0444 mgr.c || echo "restore of mgr.c fails"
  1204. set `wc -c mgr.c`;Sum=$1
  1205. if test "$Sum" != "9469"
  1206. then echo original size 9469, current size $Sum;fi
  1207. echo "x - extracting news.c (Text)"
  1208. sed 's/^X//' << 'SHAR_EOF' > news.c &&
  1209. X
  1210. X/*  @(#)news.c 1.9 89/12/21
  1211. X *
  1212. X *  These are the NeWS dependent graphics routines used by calctool.
  1213. X *
  1214. X *  Copyright (c) Rich Burridge.
  1215. X *                Sun Microsystems, Australia - All rights reserved.
  1216. X *
  1217. X *  Permission is given to distribute these sources, as long as the
  1218. X *  copyright messages are not removed, and no monies are exchanged.
  1219. X *
  1220. X *  No responsibility is taken for any errors or inaccuracies inherent
  1221. X *  either to the comments or the code of this program, but if
  1222. X *  reported to me then an attempt will be made to fix them.
  1223. X */
  1224. X
  1225. X#include "calctool.h"
  1226. X#include "color.h"
  1227. X#include "extern.h"
  1228. X#include <sys/types.h>
  1229. X
  1230. Xextern FILE *PostScript ;
  1231. Xextern FILE *PostScriptInput ;
  1232. X
  1233. X
  1234. Xclear_canvas(canvas, color)
  1235. Xenum can_type canvas ;
  1236. Xint color ;
  1237. X{
  1238. X  char cantype ;
  1239. X
  1240. X       if (canvas == KEYCANVAS) cantype = 'K' ;
  1241. X  else if (canvas == REGCANVAS) cantype = 'R' ;
  1242. X  FPRINTF(PostScript,"%d %cC PSClearCanvas\n", color, cantype) ;
  1243. X  FFLUSH(PostScript) ;
  1244. X}
  1245. X
  1246. X
  1247. Xclose_frame()
  1248. X{
  1249. X  FPRINTF(PostScript, "PSCloseFrame\n") ;
  1250. X  FFLUSH(PostScript) ;
  1251. X}
  1252. X
  1253. X
  1254. Xcolor_area(x, y, width, height, color)
  1255. Xint x, y, width, height, color ;
  1256. X{
  1257. X  FPRINTF(PostScript, "%d %d %d %d %d PSColorArea\n",
  1258. X          color, x, width, height, y) ;
  1259. X  FFLUSH(PostScript) ;
  1260. X}
  1261. X
  1262. X
  1263. Xcreate_menu(mtype)     /* Create popup menu for right button press. */
  1264. Xenum menu_type mtype ;
  1265. X{
  1266. X  int i ;
  1267. X
  1268. X  FPRINTF(PostScript, "/Menu%1d [\n", (int) mtype) ;
  1269. SHAR_EOF
  1270. echo "End of part 3"
  1271. echo "File news.c is continued in part 4"
  1272. echo "4" > s2_seq_.tmp
  1273. exit 0
  1274.  
  1275.