home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / misc / volume24 / gnuplot3 / part22 < prev    next >
Encoding:
Text File  |  1991-10-28  |  48.3 KB  |  1,704 lines
  1. Newsgroups: comp.sources.misc
  2. From: gershon%gr@cs.utah.edu (Elber Gershon)
  3. Subject:  v24i044:  gnuplot3 - interactive function plotting utility, Part22/26
  4. Message-ID: <1991Oct29.031012.4118@sparky.imd.sterling.com>
  5. X-Md4-Signature: 7dfa54c568be48e0424cea0c0248a55d
  6. Date: Tue, 29 Oct 1991 03:10:12 GMT
  7. Approved: kent@sparky.imd.sterling.com
  8.  
  9. Submitted-by: gershon%gr@cs.utah.edu (Elber Gershon)
  10. Posting-number: Volume 24, Issue 44
  11. Archive-name: gnuplot3/part22
  12. Environment: UNIX, MS-DOS, VMS
  13. Supersedes: gnuplot2: Volume 11, Issue 65-79
  14.  
  15. #!/bin/sh
  16. # this is Part.22 (part 22 of a multipart archive)
  17. # do not concatenate these parts, unpack them in order with /bin/sh
  18. # file gnuplot/util.c continued
  19. #
  20. if test ! -r _shar_seq_.tmp; then
  21.     echo 'Please unpack part 1 first!'
  22.     exit 1
  23. fi
  24. (read Scheck
  25.  if test "$Scheck" != 22; then
  26.     echo Please unpack part "$Scheck" next!
  27.     exit 1
  28.  else
  29.     exit 0
  30.  fi
  31. ) < _shar_seq_.tmp || exit 1
  32. if test ! -f _shar_wnt_.tmp; then
  33.     echo 'x - still skipping gnuplot/util.c'
  34. else
  35. echo 'x - continuing file gnuplot/util.c'
  36. sed 's/^X//' << 'SHAR_EOF' >> 'gnuplot/util.c' &&
  37. X            else {
  38. X                after = 1;
  39. X                start--;    /* back up token ptr */
  40. X                }
  41. X            }
  42. X        }
  43. X
  44. X    /* i now beyond end of token string */
  45. X
  46. X    return(after || str[i] == '$' || str[i] == '\0');
  47. }
  48. X
  49. X
  50. X
  51. isstring(t_num)
  52. int t_num;
  53. {
  54. X    
  55. X    return(token[t_num].is_token &&
  56. X           (input_line[token[t_num].start_index] == '\'' ||
  57. X           input_line[token[t_num].start_index] == '\"'));
  58. }
  59. X
  60. X
  61. isnumber(t_num)
  62. int t_num;
  63. {
  64. X    return(!token[t_num].is_token);
  65. }
  66. X
  67. X
  68. isletter(t_num)
  69. int t_num;
  70. {
  71. X    return(token[t_num].is_token &&
  72. X            (isalpha(input_line[token[t_num].start_index])));
  73. }
  74. X
  75. X
  76. /*
  77. X * is_definition() returns TRUE if the next tokens are of the form
  78. X *   identifier =
  79. X *        -or-
  80. X *   identifier ( identifer ) =
  81. X */
  82. is_definition(t_num)
  83. int t_num;
  84. {
  85. X    return (isletter(t_num) &&
  86. X            (equals(t_num+1,"=") ||            /* variable */
  87. X            (equals(t_num+1,"(") &&        /* function */
  88. X             isletter(t_num+2)   &&
  89. X             equals(t_num+3,")") &&
  90. X             equals(t_num+4,"=") ) ||
  91. X            (equals(t_num+1,"(") &&        /* function with */
  92. X             isletter(t_num+2)   &&        /* two variables */
  93. X             equals(t_num+3,",") &&
  94. X             isletter(t_num+4)   &&
  95. X             equals(t_num+5,")") &&
  96. X             equals(t_num+6,"=") )
  97. X        ));
  98. }
  99. X
  100. X
  101. X
  102. /*
  103. X * copy_str() copies the string in token number t_num into str, appending
  104. X *   a null.  No more than MAX_ID_LEN chars are copied.
  105. X */
  106. copy_str(str, t_num)
  107. char str[];
  108. int t_num;
  109. {
  110. register int i = 0;
  111. register int start = token[t_num].start_index;
  112. register int count;
  113. X
  114. X    if ((count = token[t_num].length) > MAX_ID_LEN)
  115. X        count = MAX_ID_LEN;
  116. X    do {
  117. X        str[i++] = input_line[start++];
  118. X        } while (i != count);
  119. X    str[i] = '\0';
  120. }
  121. X
  122. X
  123. /*
  124. X * quote_str() does the same thing as copy_str, except it ignores the
  125. X *   quotes at both ends.  This seems redundant, but is done for
  126. X *   efficency.
  127. X */
  128. quote_str(str, t_num)
  129. char str[];
  130. int t_num;
  131. {
  132. register int i = 0;
  133. register int start = token[t_num].start_index + 1;
  134. register int count;
  135. X
  136. X    if ((count = token[t_num].length - 2) > MAX_ID_LEN)
  137. X        count = MAX_ID_LEN;
  138. X    if (count>0) {
  139. X        do {
  140. X            str[i++] = input_line[start++];
  141. X            } while (i != count);
  142. X    }
  143. X    str[i] = '\0';
  144. }
  145. X
  146. X
  147. /*
  148. X * quotel_str() does the same thing as quote_str, except it uses
  149. X * MAX_LINE_LEN instead of MAX_ID_LEN. 
  150. X */ 
  151. quotel_str(str, t_num) 
  152. char str[]; 
  153. int t_num; 
  154. {
  155. register int i = 0;
  156. register int start = token[t_num].start_index + 1;
  157. register int count;
  158. X
  159. X    if ((count = token[t_num].length - 2) > MAX_LINE_LEN)
  160. X        count = MAX_LINE_LEN;
  161. X    if (count>0) {
  162. X        do {
  163. X            str[i++] = input_line[start++];
  164. X            } while (i != count);
  165. X    }
  166. X    str[i] = '\0';
  167. }
  168. X
  169. X
  170. /*
  171. X *    capture() copies into str[] the part of input_line[] which lies between
  172. X *    the begining of token[start] and end of token[end].
  173. X */
  174. capture(str,start,end)
  175. char str[];
  176. int start,end;
  177. {
  178. register int i,e;
  179. X
  180. X    e = token[end].start_index + token[end].length;
  181. X    for (i = token[start].start_index; i < e && input_line[i] != '\0'; i++)
  182. X        *str++ = input_line[i];
  183. X    *str = '\0';
  184. }
  185. X
  186. X
  187. /*
  188. X *    m_capture() is similar to capture(), but it mallocs storage for the
  189. X *  string.
  190. X */
  191. m_capture(str,start,end)
  192. char **str;
  193. int start,end;
  194. {
  195. register int i,e;
  196. register char *s;
  197. X
  198. X    if (*str)        /* previous pointer to malloc'd memory there */
  199. X        free(*str);
  200. X    e = token[end].start_index + token[end].length;
  201. X    *str = alloc((unsigned int)(e - token[start].start_index + 1), "string");
  202. X     s = *str;
  203. X     for (i = token[start].start_index; i < e && input_line[i] != '\0'; i++)
  204. X      *s++ = input_line[i];
  205. X     *s = '\0';
  206. }
  207. X
  208. X
  209. /*
  210. X *    m_quote_capture() is similar to m_capture(), but it removes
  211. X    quotes from either end if the string.
  212. X */
  213. m_quote_capture(str,start,end)
  214. char **str;
  215. int start,end;
  216. {
  217. register int i,e;
  218. register char *s;
  219. X
  220. X    if (*str)        /* previous pointer to malloc'd memory there */
  221. X        free(*str);
  222. X    e = token[end].start_index + token[end].length-1;
  223. X    *str = alloc((unsigned int)(e - token[start].start_index + 1), "string");
  224. X     s = *str;
  225. X    for (i = token[start].start_index + 1; i < e && input_line[i] != '\0'; i++)
  226. X     *s++ = input_line[i];
  227. X    *s = '\0';
  228. }
  229. X
  230. X
  231. convert(val_ptr, t_num)
  232. struct value *val_ptr;
  233. int t_num;
  234. {
  235. X    *val_ptr = token[t_num].l_val;
  236. }
  237. X
  238. static char *num_to_str(r)
  239. double r;
  240. {
  241. X    static i = 0;
  242. X    static char s[4][20];
  243. X    int j = i++;
  244. X
  245. X    if ( i > 3 ) i = 0;
  246. X
  247. X    sprintf( s[j], "%g", r );
  248. X    if ( strchr( s[j], '.' ) == NULL &&
  249. X         strchr( s[j], 'e' ) == NULL &&
  250. X         strchr( s[j], 'E' ) == NULL )
  251. X        strcat( s[j], ".0" );
  252. X
  253. X    return s[j];
  254. } 
  255. X
  256. disp_value(fp,val)
  257. FILE *fp;
  258. struct value *val;
  259. {
  260. X    switch(val->type) {
  261. X        case INT:
  262. X            fprintf(fp,"%d",val->v.int_val);
  263. X            break;
  264. X        case CMPLX:
  265. X            if (val->v.cmplx_val.imag != 0.0 )
  266. X                fprintf(fp,"{%s, %s}",
  267. X                    num_to_str(val->v.cmplx_val.real),
  268. X                    num_to_str(val->v.cmplx_val.imag));
  269. X            else
  270. X                fprintf(fp,"%s",
  271. X                    num_to_str(val->v.cmplx_val.real));
  272. X            break;
  273. X        default:
  274. X            int_error("unknown type in disp_value()",NO_CARET);
  275. X    }
  276. }
  277. X
  278. X
  279. double
  280. real(val)        /* returns the real part of val */
  281. struct value *val;
  282. {
  283. X    switch(val->type) {
  284. X        case INT:
  285. X            return((double) val->v.int_val);
  286. X        case CMPLX:
  287. X            return(val->v.cmplx_val.real);
  288. X    }
  289. X    int_error("unknown type in real()",NO_CARET);
  290. X    /* NOTREACHED */
  291. X    return((double)0.0);
  292. }
  293. X
  294. X
  295. double
  296. imag(val)        /* returns the imag part of val */
  297. struct value *val;
  298. {
  299. X    switch(val->type) {
  300. X        case INT:
  301. X            return(0.0);
  302. X        case CMPLX:
  303. X            return(val->v.cmplx_val.imag);
  304. X    }
  305. X    int_error("unknown type in imag()",NO_CARET);
  306. X    /* NOTREACHED */
  307. X    return((double)0.0);
  308. }
  309. X
  310. X
  311. X
  312. double
  313. magnitude(val)        /* returns the magnitude of val */
  314. struct value *val;
  315. {
  316. X    switch(val->type) {
  317. X        case INT:
  318. X            return((double) abs(val->v.int_val));
  319. X        case CMPLX:
  320. X            return(sqrt(val->v.cmplx_val.real*
  321. X                    val->v.cmplx_val.real +
  322. X                    val->v.cmplx_val.imag*
  323. X                    val->v.cmplx_val.imag));
  324. X    }
  325. X    int_error("unknown type in magnitude()",NO_CARET);
  326. X    /* NOTREACHED */
  327. X    return((double)0.0);
  328. }
  329. X
  330. X
  331. X
  332. double
  333. angle(val)        /* returns the angle of val */
  334. struct value *val;
  335. {
  336. X    switch(val->type) {
  337. X        case INT:
  338. X            return((val->v.int_val > 0) ? 0.0 : Pi);
  339. X        case CMPLX:
  340. X            if (val->v.cmplx_val.imag == 0.0) {
  341. X                if (val->v.cmplx_val.real >= 0.0)
  342. X                    return(0.0);
  343. X                else
  344. X                    return(Pi);
  345. X            }
  346. X            return(atan2(val->v.cmplx_val.imag,
  347. X                     val->v.cmplx_val.real));
  348. X    }
  349. X    int_error("unknown type in angle()",NO_CARET);
  350. X    /* NOTREACHED */
  351. X    return((double)0.0);
  352. }
  353. X
  354. X
  355. struct value *
  356. complex(a,realpart,imagpart)
  357. struct value *a;
  358. double realpart, imagpart;
  359. {
  360. X    a->type = CMPLX;
  361. X    a->v.cmplx_val.real = realpart;
  362. X    a->v.cmplx_val.imag = imagpart;
  363. X    return(a);
  364. }
  365. X
  366. X
  367. struct value *
  368. integer(a,i)
  369. struct value *a;
  370. int i;
  371. {
  372. X    a->type = INT;
  373. X    a->v.int_val = i;
  374. X    return(a);
  375. }
  376. X
  377. X
  378. X
  379. os_error(str,t_num)
  380. char str[];
  381. int t_num;
  382. {
  383. #ifdef vms
  384. static status[2] = {1, 0};        /* 1 is count of error msgs */
  385. #endif
  386. X
  387. register int i;
  388. X
  389. X    /* reprint line if screen has been written to */
  390. X
  391. X    if (t_num != NO_CARET) {        /* put caret under error */
  392. X        if (!screen_ok)
  393. X            fprintf(stderr,"\n%s%s\n", PROMPT, input_line);
  394. X
  395. X        for (i = 0; i < sizeof(PROMPT) - 1; i++)
  396. X            (void) putc(' ',stderr);
  397. X        for (i = 0; i < token[t_num].start_index; i++) {
  398. X            (void) putc((input_line[i] == '\t') ? '\t' : ' ',stderr);
  399. X            }
  400. X        (void) putc('^',stderr);
  401. X        (void) putc('\n',stderr);
  402. X    }
  403. X
  404. X    for (i = 0; i < sizeof(PROMPT) - 1; i++)
  405. X        (void) putc(' ',stderr);
  406. X    fprintf(stderr,"%s\n",str);
  407. X
  408. X    for (i = 0; i < sizeof(PROMPT) - 1; i++)
  409. X        (void) putc(' ',stderr);
  410. X     if (!interactive)
  411. X      if (infile_name != NULL)
  412. X        fprintf(stderr,"\"%s\", line %d: ", infile_name, inline_num);
  413. X      else
  414. X        fprintf(stderr,"line %d: ", inline_num);
  415. X
  416. X
  417. #ifdef vms
  418. X    status[1] = vaxc$errno;
  419. X    sys$putmsg(status);
  420. X    (void) putc('\n',stderr);
  421. #else
  422. #ifdef __ZTC__
  423. X    fprintf(stderr,"error number %d\n\n",errno);
  424. #else
  425. X    if (errno >= sys_nerr)
  426. X        fprintf(stderr, "unknown errno %d\n\n", errno);
  427. X    else
  428. X        fprintf(stderr,"(%s)\n\n",sys_errlist[errno]);
  429. #endif
  430. #endif
  431. X
  432. X    longjmp(env, TRUE);    /* bail out to command line */
  433. }
  434. X
  435. X
  436. int_error(str,t_num)
  437. char str[];
  438. int t_num;
  439. {
  440. register int i;
  441. X
  442. X    /* reprint line if screen has been written to */
  443. X
  444. X    if (t_num != NO_CARET) {        /* put caret under error */
  445. X        if (!screen_ok)
  446. X            fprintf(stderr,"\n%s%s\n", PROMPT, input_line);
  447. X
  448. X        for (i = 0; i < sizeof(PROMPT) - 1; i++)
  449. X            (void) putc(' ',stderr);
  450. X        for (i = 0; i < token[t_num].start_index; i++) {
  451. X            (void) putc((input_line[i] == '\t') ? '\t' : ' ',stderr);
  452. X            }
  453. X        (void) putc('^',stderr);
  454. X        (void) putc('\n',stderr);
  455. X    }
  456. X
  457. X    for (i = 0; i < sizeof(PROMPT) - 1; i++)
  458. X        (void) putc(' ',stderr);
  459. X     if (!interactive)
  460. X      if (infile_name != NULL)
  461. X        fprintf(stderr,"\"%s\", line %d: ", infile_name, inline_num);
  462. X      else
  463. X        fprintf(stderr,"line %d: ", inline_num);
  464. X     fprintf(stderr,"%s\n\n", str);
  465. X
  466. X    longjmp(env, TRUE);    /* bail out to command line */
  467. }
  468. X
  469. /* Lower-case the given string (DFK) */
  470. /* Done in place. */
  471. void
  472. lower_case(s)
  473. X     char *s;
  474. {
  475. X  register char *p = s;
  476. X
  477. X  while (*p != '\0') {
  478. X    if (isupper(*p))
  479. X     *p = tolower(*p);
  480. X    p++;
  481. X  }
  482. }
  483. X
  484. /* Squash spaces in the given string (DFK) */
  485. /* That is, reduce all multiple white-space chars to single spaces */
  486. /* Done in place. */
  487. void
  488. squash_spaces(s)
  489. X     char *s;
  490. {
  491. X  register char *r = s;        /* reading point */
  492. X  register char *w = s;        /* writing point */
  493. X  BOOLEAN space = FALSE;        /* TRUE if we've already copied a space */
  494. X
  495. X  for (w = r = s; *r != '\0'; r++) {
  496. X     if (isspace(*r)) {
  497. X        /* white space; only copy if we haven't just copied a space */
  498. X        if (!space) {
  499. X            space = TRUE;
  500. X            *w++ = ' ';
  501. X        }                /* else ignore multiple spaces */
  502. X     } else {
  503. X        /* non-space character; copy it and clear flag */
  504. X        *w++ = *r;
  505. X        space = FALSE;
  506. X     }
  507. X  }
  508. X  *w = '\0';                /* null terminate string */
  509. }
  510. X
  511. SHAR_EOF
  512. echo 'File gnuplot/util.c is complete' &&
  513. chmod 0644 gnuplot/util.c ||
  514. echo 'restore of gnuplot/util.c failed'
  515. Wc_c="`wc -c < 'gnuplot/util.c'`"
  516. test 12714 -eq "$Wc_c" ||
  517.     echo 'gnuplot/util.c: original size 12714, current size' "$Wc_c"
  518. rm -f _shar_wnt_.tmp
  519. fi
  520. # ============= gnuplot/makefile.unx ==============
  521. if test -f 'gnuplot/makefile.unx' -a X"$1" != X"-c"; then
  522.     echo 'x - skipping gnuplot/makefile.unx (File already exists)'
  523.     rm -f _shar_wnt_.tmp
  524. else
  525. > _shar_wnt_.tmp
  526. echo 'x - extracting gnuplot/makefile.unx (Text)'
  527. sed 's/^X//' << 'SHAR_EOF' > 'gnuplot/makefile.unx' &&
  528. ############################################################
  529. #
  530. # GNUPLOT 3.0 Makefile (Unix X11 Motif/Athena support) for
  531. #  Apollo/Sun/Dec5000/IBMrs6000/HP9000/SGI/3B1/386IX
  532. #
  533. # Original version by:
  534. #   oliveria@caen.engin.umich.edu (ROQUE DONIZETE DE OLIVEIRA)
  535. #   Wed, 3 Jul 91 14:31:37 -0400
  536. #
  537. #>>> Customizing: You must customize part of this makefile for your site.
  538. #>>> Then type 'make' for further instructions.
  539. #>>> Customization instructions look like these lines do (#>>>).
  540. #
  541. X
  542. TARGET = All # What to make by default
  543. X
  544. ############################################################
  545. #>>> Decide where the binaries and manuals will go. 
  546. # directory where to install executables on 'make install'
  547. DEST=/usr/local/bin
  548. # directory for installing man page on 'make man_install'.
  549. MANDEST=/usr/man/manl
  550. # where to install help file gnuplot.gih
  551. HELPDEST=/usr/local/lib/gnuplot.gih
  552. #HELPDEST=docs/gnuplot.gih
  553. # Where to send email about bugs and comments (locally)
  554. EMAIL=bug-gnuplot%pixar.uucp@sun.com
  555. X
  556. ############################################################
  557. #>>> Choose your C compiler and basic compiler flags.
  558. CC     = cc # the C compiler
  559. COPTS  = -O # -O if you trust your compiler's optimizer
  560. LD     =$(CC) $(CFLAGS)        # default loading command
  561. X
  562. ############################################################
  563. #>>> Choose some optional features. 
  564. #>>> At this point there are only two optional features:
  565. # READLINE:
  566. #   If READLINE is defined, then command-line editing is supported.
  567. #   Otherwise, your normal terminal editing is all you get.
  568. #   Some machines will not support this, and they will turn this
  569. #   option off (for example, apollos running SR10.2 or SR10.3 and
  570. #   loaded with BSD4.3 instead of SYS5). 
  571. # NOCWDRC:
  572. #   If NOCWDRC is defined, then any .gnuplot in the current directory
  573. #   is not read on startup. This is a security consideration
  574. #   especially for root users ( we recommend you define -DNOCWDRC ).
  575. OPTIONS = -DREADLINE -DNOCWDRC
  576. X
  577. #>>> Optionally install the lasergnu script.
  578. # Lasergnu is a handy shell script for creating a plot from the
  579. # command line and sending it directly to the printer. It currently
  580. # supports postscript and imagen printers, and probably would need
  581. # tailoring to your site.
  582. # Use lasergnu_install to install lasergnu.
  583. # Use lasergnu_noinstall to not install lasergnu (default).
  584. LASERGNU = lasergnu_noinstall
  585. X
  586. ############################################################
  587. # X11 support
  588. #
  589. X
  590. #>>> List your X11 libraries#
  591. # standard MIT X11 R4:                      -lXaw -lXmu -lXt -lXext -lX11
  592. # Apollo DomainOS 10.3 (R3/Athena):         -L/usr/lib/X11 -lXaw -lXmu -lXt -lX11
  593. # Apollo DomainOS 10.3 (R3/Motif):          -L/usr/lib/X11 -lXm -lXtm -lX11
  594. # IBM RS/6000 AIX 3.1 (R3/Athena):          -L/usr/lpp/X11/Xamples/lib/Xmu \
  595. #                                           -L/usr/lpp/X11/Xamples/lib/Xaw \
  596. #                                           -lXaw -lXmu -lXt -lXext -lX11
  597. # IBM RS/6000 AIX 3.1 (R3/Motif):           -lXm -lXt -lX11
  598. # HP 9000/375 HP-UX 6.5 and 7.0 (R3/Motif): -lXm -lXt -lX11
  599. # Interactive 386/ix with T.Roell X386 and network support:
  600. #                                           -lXaw -lXm -lXt -lXext -lX11 -linet -lpt
  601. XX11LIBS = -lXaw -lXmu -lXt -lXext -lX11
  602. X
  603. #>>> List your X11 include directories
  604. # standard MIT X11 R4: -I/usr/include/X11   -I/usr/include/X11/Xaw 
  605. # Apollo DomainOS 10.3 (R3/Athena):         -I/usr/include/X11
  606. # Apollo DomainOS 10.3 (R3/Motif):          -I/usr/include/Xm
  607. # IBM RS/6000 AIX 3.1 (R3/Athena):          -I/usr/include/X11 \
  608. #                                           -I/usr/lpp/X11/Xamples/lib/Xaw \
  609. #                                           -I/usr/lpp/X11/Xamples/lib/Xaw/X11
  610. # IBM RS/6000 AIX 3.1 (R3/Motif):           -I/usr/include/Xm
  611. # HP 9000/375 HP-UX 6.5 and 7.0 (R3/Motif): -I/usr/include/Xm
  612. # HP 9000/700 HP-UX 8.0 (R4):               -I/usr/include/X11R4 \
  613. #                                           -I/usr/include/X11R4/X11/Xaw
  614. XX11INCLUDES = -I/usr/include/X11 -I/usr/include/X11/Xaw
  615. X
  616. #>>> You shouldn't have to change these, since they are controlled by
  617. #>>> Machine dependent definitions below.
  618. #       Compile option for plot.c and TERMFLAGS, to include X11 support
  619. PLOTXFLAG = -DX11
  620. #          this can add to CFLAGS for X11 compilations. Probably needs no change.
  621. XX11FLAGS = 
  622. #       make gnuplot_x11 by default
  623. GNUPLOT_X11 = gnuplot_x11
  624. #       install gnuplot_x11 by default
  625. XX11INSTALL = x11_install
  626. X
  627. ############################################################
  628. #>>> Okay, you've changed enough. Now type 'make'.
  629. X
  630. ############################################################
  631. # This is used to pass many of the above definitions to make
  632. # subprocesses. Don't change this.
  633. MY_FLAGS  = CC="$(CC)"     COPTS="$(COPTS)" DEST="$(DEST)" \
  634. X        MANDEST="$(MANDEST)" HELPDEST="$(HELPDEST)" \
  635. X        EMAIL="$(EMAIL)" LASERGNU="$(LASERGNU)"
  636. X
  637. ############################################################
  638. # Explanations of CFLAGS definitions.
  639. #  These should not need to be changed by you.
  640. # They are set correctly for each machine below. If your machine
  641. # doesn't fit the one of the patterns, override on the make command
  642. # line or make a new target for it and a new _FLAGS definition. 
  643. #  -DNOVFORK if you're unix and you have don't have vfork()
  644. #  -DMEMSET if you need to use memset() instead of bzero() 
  645. #  -DMEMCPY if your bcopy() is called memcpy()
  646. #  -DNOCOPY if you don't have a memcpy() by any name
  647. #  -DGAMMA=foo if your gamma function is called foo(). Apollos have
  648. #    lgamma(3m). If you don't have gamma(), use -DNOGAMMA.
  649. #    The default is -DGAMMA=gamma.
  650. #  -DGETCWD if your unix uses getcwd() instead of getcd()
  651. #    this is needed by HP-UX and Cray Unicos systems.
  652. #  -DULTRIX_KLUDGE if you run X windows on Ultrix and experience the
  653. #    "every other plot" problem.
  654. #  -Dunix is required to explicitly define "unix" for SCO and IBM
  655. #          RS/6000 running AIX 3.1 
  656. #  -fswitch if you are compiling on a Sun3 (or even -f68881)
  657. #    (but -fswitch is buggy on some systems, so watch out)
  658. X
  659. # Defaults in case the user types 'make All' directly
  660. # Should match X11R4_FLAGS's CFLAGS definition
  661. CFLAGS = $(COPTS) $(OPTIONS)
  662. X
  663. ############################################################
  664. # Terminal (device) support
  665. #
  666. # All devices available to a given machine are compiled in by default.
  667. # This documents the flags available in TERMFLAGS, although TERMFLAGS
  668. # is usually controlled by the machine-dependent definitions below.
  669. # See other terminal defines in term.h.
  670. # Define ULTRIX_KLUDGE if you have the every-other plot problem in Ultrix X11.
  671. #
  672. # -DAPOLLO      Apollo Graphics Primitive Resource (window resize after replot)
  673. # -DGPR         Apollo Graphics Primitive Resource (fixed-size window)
  674. # -DCGI         SCO CGI
  675. # -DIRIS4D      IRIS4D series computer
  676. # -DSUN         Sun Microsystems Workstation
  677. # -DUNIXPC      unixpc (ATT 3b1 or ATT 7300)
  678. # -DUNIXPLOT    unixplot
  679. # -DX11         X11 Window System (This is $(PLOTXFLAG))
  680. TERMFLAGS = -Iterm -DUNIXPLOT $(PLOTXFLAG)
  681. X
  682. ############################################################
  683. # Library explanations. 
  684. #  You shouldn't need to adjust this; again, it is handled by the
  685. # machine-dependent definitions below.
  686. #
  687. #  -lplot if you have -DUNIXPLOT in TERMFLAGS
  688. #  -lsuntool -lsunwindow -lpixrect  if you have -DSUN in TERMFLAGS
  689. #  -lgl_s if -DIRIS4D in TERMFLAGS
  690. #  -lccgi if -DCGI in TERMFLAGS
  691. LIBS = -lm -lplot
  692. X
  693. ############################################################
  694. # Machine-dependent settings.
  695. #
  696. XX11R4_FLAGS = \
  697. X           CFLAGS="$(COPTS) $(OPTIONS)" \
  698. X           LIBS="$(LIBS)" X11FLAGS="$(X11FLAGS)" X11INCLUDES="$(X11INCLUDES)" \
  699. X           X11LIBS="$(X11LIBS)" \
  700. X           PLOTXFLAG="$(PLOTXFLAG)" GNUPLOT_X11=$(GNUPLOT_X11) \
  701. X           X11INSTALL="$(X11INSTALL)" \
  702. X           TERMFLAGS="$(TERMFLAGS)"
  703. X
  704. XX11R4_M_FLAGS = \
  705. X           CFLAGS="$(COPTS) $(OPTIONS)" \
  706. X           LIBS="$(LIBS)" X11FLAGS="-DMOTIF -D_NO_PROTO" \
  707. X           X11INCLUDES="-I/usr/include/Xm" \
  708. X           X11LIBS="-lXm -lXt -lX11" \
  709. X           PLOTXFLAG="$(PLOTXFLAG)" GNUPLOT_X11=$(GNUPLOT_X11) \
  710. X           X11INSTALL="$(X11INSTALL)" \
  711. X           TERMFLAGS="$(TERMFLAGS)"
  712. X
  713. DEC_FLAGS = \
  714. X           CFLAGS="$(COPTS) $(OPTIONS) " \
  715. X           LIBS="$(LIBS)" X11FLAGS="$(X11FLAGS)" X11INCLUDES="$(X11INCLUDES)" \
  716. X           X11LIBS="$(X11LIBS)" \
  717. X           PLOTXFLAG="$(PLOTXFLAG)" GNUPLOT_X11=$(GNUPLOT_X11) \
  718. X           X11INSTALL="$(X11INSTALL)" \
  719. X           TERMFLAGS="$(TERMFLAGS) -DULTRIX_KLUDGE"
  720. X
  721. DEC_M_FLAGS = \
  722. X           CFLAGS="$(COPTS) $(OPTIONS)" \
  723. X           LIBS="$(LIBS)" X11FLAGS="-DMOTIF -D_NO_PROTO" \
  724. X           X11INCLUDES="-I/usr/include/Xm" \
  725. X           X11LIBS="-lXm -lXt -lX11" \
  726. X           PLOTXFLAG="$(PLOTXFLAG)" GNUPLOT_X11=$(GNUPLOT_X11) \
  727. X           X11INSTALL="$(X11INSTALL)" \
  728. X           TERMFLAGS="$(TERMFLAGS)  -DULTRIX_KLUDGE"
  729. X
  730. APOLLO_FLAGS = \
  731. X           CFLAGS="$(COPTS) $(OPTIONS)  -DGAMMA=lgamma" \
  732. X           LIBS="$(LIBS)" X11FLAGS="$(X11FLAGS)" \
  733. X           X11INCLUDES="-I/usr/include/X11" \
  734. X           X11LIBS="-L/usr/lib/X11 -lXaw -lXmu -lXt -lX11" \
  735. X           PLOTXFLAG="$(PLOTXFLAG)" GNUPLOT_X11=$(GNUPLOT_X11) \
  736. X           X11INSTALL="$(X11INSTALL)" \
  737. X           TERMFLAGS="$(TERMFLAGS) -DAPOLLO -DGPR"
  738. X
  739. APOLLO_M_FLAGS = \
  740. X           CFLAGS="$(COPTS) $(OPTIONS)  -DGAMMA=lgamma" \
  741. X           LIBS="$(LIBS)" X11FLAGS="-DMOTIF" X11INCLUDES="-I/usr/include/Xm" \
  742. X           X11LIBS="-L/usr/lib/X11 -lXm -lXt -lX11" \
  743. X           PLOTXFLAG="$(PLOTXFLAG)" GNUPLOT_X11=$(GNUPLOT_X11) \
  744. X           TERMFLAGS="$(TERMFLAGS) -DAPOLLO -DGPR"
  745. X
  746. HP_FLAGS = \
  747. X           CFLAGS="$(COPTS) $(OPTIONS) -DMEMSET -DMEMCPY  -DGETCWD" \
  748. X           LIBS="-lm" X11FLAGS="$(X11FLAGS)" \
  749. X           X11INCLUDES="-I/usr/include/X11R4 -I/usr/include/X11R4/X11/Xaw" \
  750. X           X11LIBS="-L/usr/lib/X11R4 -lXaw -lXmu -lXt -lXext -lX11" \
  751. X           PLOTXFLAG="$(PLOTXFLAG)" GNUPLOT_X11=$(GNUPLOT_X11) \
  752. X           X11INSTALL="$(X11INSTALL)" \
  753. X           TERMFLAGS="-Iterm -DX11"
  754. X
  755. SUN_FLAGS = \
  756. X           CFLAGS="$(COPTS) $(OPTIONS)" \
  757. X           LIBS="-lsuntool -lsunwindow -lpixrect $(LIBS)" \
  758. X           X11FLAGS=" " X11INCLUDES=" " \
  759. X           X11LIBS=" " \
  760. X           PLOTXFLAG=" " GNUPLOT_X11=" " X11INSTALL=x11_noinstall \
  761. X           TERMFLAGS="-Iterm -DUNIXPLOT -DSUN"
  762. X
  763. SUN_X11_FLAGS = \
  764. X           CFLAGS="$(COPTS) $(OPTIONS)" \
  765. X           LIBS="-lsuntool -lsunwindow -lpixrect $(LIBS)" \
  766. X           X11FLAGS="$(X11FLAGS)" X11INCLUDES="$(X11INCLUDES)" \
  767. X           X11LIBS="$(X11LIBS)" \
  768. X           PLOTXFLAG="$(PLOTXFLAG)" GNUPLOT_X11=$(GNUPLOT_X11) \
  769. X           X11INSTALL="$(X11INSTALL)" \
  770. X           TERMFLAGS="$(TERMFLAGS) -DSUN"
  771. X
  772. SGI_FLAGS = \
  773. X           CFLAGS="$(COPTS) $(OPTIONS)" \
  774. X           LIBS="-lgl_s -lm" X11FLAGS=" " X11INCLUDES=" " \
  775. X           X11LIBS=" " \
  776. X           PLOTXFLAG=" " GNUPLOT_X11=" " X11INSTALL=x11_noinstall \
  777. X           TERMFLAGS="-Iterm -DIRIS4D"
  778. X
  779. SGIX11_FLAGS = \
  780. X           CFLAGS="$(COPTS) $(OPTIONS)" \
  781. X           LIBS="-lm" X11FLAGS="$(X11FLAGS)" \
  782. X           X11INCLUDES="-I/usr/include/X11 -I/usr/include/X11/Xaw" \
  783. X           X11LIBS="-L/usr/lib/X11 -lXaw -lXmu -lXt -lXext -lX11" \
  784. X            PLOTXFLAG="$(PLOTXFLAG)" GNUPLOT_X11=$(GNUPLOT_X11) \
  785. X            X11INSTALL="$(X11INSTALL)" \
  786. X           TERMFLAGS="-Iterm -DX11"
  787. X
  788. CGI_FLAGS = \
  789. X           CFLAGS="$(COPTS) $(OPTIONS) -Dunix" \
  790. X           LIBS="-lccgi $(LIBS)" X11FLAGS=" " X11INCLUDES=" " \
  791. X           X11LIBS=" " PLOTXFLAG=" " GNUPLOT_X11=" " X11INSTALL=x11_noinstall \
  792. X           TERMFLAGS="-Iterm -DUNIXPLOT -DCGI"
  793. X
  794. 3B1_FLAGS = \
  795. X           CFLAGS="$(COPTS) $(OPTIONS) -DGETCWD -DMEMSET -DMEMCPY -DNOVFORK" \
  796. X           LIBS="$(LIBS)" X11FLAGS=" " X11INCLUDES=" " \
  797. X           X11LIBS=" " \
  798. X           PLOTXFLAG=" " GNUPLOT_X11=" " X11INSTALL=x11_noinstall \
  799. X           LD="ld /lib/crt0s.o /lib/shlib.ifile" \
  800. X           TERMFLAGS="-Iterm -DUNIXPC"
  801. X
  802. 386IX_FLAGS = \
  803. X           CFLAGS="$(COPTS) $(OPTIONS) -DGETCWD -DMEMSET -DMEMCPY -DNOVFORK -DTCSETSW -DTCGETS" \
  804. X           LIBS="$(LIBS) -lcposix" X11FLAGS=" " X11INCLUDES=" " \
  805. X           X11LIBS=" " PLOTXFLAG=" " GNUPLOT_X11=" " \
  806. X           X11INSTALL=x11_noinstall \
  807. X           TERMFLAGS="-Iterm -DUNIXPLOT"
  808. 386IX_X11_FLAGS = \
  809. X           CFLAGS="$(COPTS) $(OPTIONS) -DGETCWD -DMEMSET -DMEMCPY -DNOVFORK -DTCSETSW -DTCGETS" \
  810. X           LIBS="$(LIBS) -lcposix" X11FLAGS="$(X11FLAGS)" X11INCLUDES="$(X11INCLUDES)" \
  811. X           X11LIBS="$(X11LIBS)" PLOTXFLAG="$(PLOTXFLAG)" GNUPLOT_X11="$(GNUPLOT_X11)" \
  812. X           X11INSTALL= "$(X11INSTALL)" \
  813. X           TERMFLAGS="-Iterm -DUNIXPLOT -DX11"
  814. X     
  815. AIX_FLAGS = \
  816. X           CFLAGS="$(COPTS) $(OPTIONS) -Dunix -DNOVFORK" \
  817. X           LIBS="$(LIBS)" X11FLAGS="$(X11FLAGS)" \
  818. X           X11INCLUDES="-I/usr/include/X11 -I/usr/lpp/X11/Xamples/lib/Xaw -I/usr/lpp/X11/Xamples/lib/Xaw/X11" \
  819. X           X11LIBS="-L/usr/lpp/X11/Xamples/lib/Xmu -L/usr/lpp/X11/Xamples/lib/Xaw -lXaw -lXmu -lXt -lXext -lX11" \
  820. X           PLOTXFLAG="$(PLOTXFLAG)" GNUPLOT_X11=$(GNUPLOT_X11) \
  821. X           X11INSTALL="$(X11INSTALL)" \
  822. X           TERMFLAGS="$(TERMFLAGS)"
  823. X
  824. AIX_M_FLAGS = \
  825. X           CFLAGS="$(COPTS) $(OPTIONS) -Dunix -DNOVFORK" \
  826. X           LIBS="$(LIBS)" X11FLAGS="-DMOTIF" X11INCLUDES="-I/usr/include/Xm" \
  827. X           X11LIBS="-lXm -lXt -lX11" \
  828. X           PLOTXFLAG="$(PLOTXFLAG)" GNUPLOT_X11=$(GNUPLOT_X11) \
  829. X           X11INSTALL="$(X11INSTALL)" \
  830. X           TERMFLAGS="$(TERMFLAGS)"
  831. X
  832. NEXT_FLAGS = \
  833. X           CFLAGS="$(COPTS) -DNOCWDRC -DGAMMA=lgamma -DNEXT" \
  834. X           LIBS="-lm" X11FLAGS="$(X11FLAGS)" \
  835. X           X11INCLUDES=" " X11LIBS=" " PLOTXFLAG=" " \
  836. X           GNUPLOT_X11=" " X11INSTALL=x11_noinstall \
  837. X           TERMFLAGS="-Iterm"
  838. X
  839. ####################################################################
  840. # List of object files except version.o
  841. OBJS = bitmap.o command.o contour.o eval.o graphics.o graph3d.o help.o \
  842. X       internal.o misc.o parse.o plot.o readline.o scanner.o \
  843. X       setshow.o standard.o term.o util.o  
  844. ####################################################################
  845. # List of source files
  846. # Used for makeing shar files, lint, and some dependencies.
  847. DIRS = term demo docs docs/latextut
  848. X
  849. CSOURCE1 = command.c setshow.c 
  850. CSOURCE2 = help.c graphics.c graph3d.c internal.c 
  851. CSOURCE3 = misc.c eval.c parse.c plot.c readline.c scanner.c standard.c 
  852. CSOURCE4 = bitmap.c term.c util.c version.c
  853. CSOURCE5 = term/amiga.trm term/aed.trm term/cgi.trm term/dumb.trm term/dxf.trm \
  854. X    term/dxy.trm term/eepic.trm term/epson.trm term/fig.trm \
  855. X    term/hp26.trm term/hp2648.trm term/hpgl.trm term/hpljii.trm \
  856. X    term/apollo.trm term/gpr.trm
  857. CSOURCE6 = term/impcodes.h term/imagen.trm term/object.h \
  858. X    term/iris4d.trm term/kyo.trm term/latex.trm term/pc.trm 
  859. CSOURCE7 = term/post.trm term/qms.trm term/regis.trm term/sun.trm \
  860. X    term/t410x.trm term/tek.trm term/unixpc.trm term/unixplot.trm \
  861. X    term/v384.trm term/x11.trm term/bigfig.trm term/vws.trm gnuplot_x11.c
  862. CSOURCE8 = contour.c
  863. # not C code, but still needed
  864. X
  865. DEMOS = demo/1.dat demo/2.dat demo/3.dat demo/contours.demo demo/controls.demo \
  866. X    demo/electron.demo demo/glass.dat demo/param.demo demo/polar.demo \
  867. X    demo/simple.demo demo/surface1.demo demo/surface2.demo demo/using.dat \
  868. X    demo/using.demo demo/world.cor demo/world.dat demo/world.demo \
  869. X    demo/err.dat demo/poldat.demo demo/polar.dat demo/errorbar.demo \
  870. X    demo/antenna.dat demo/all.demo demo/bivariat.demo
  871. X
  872. ETC = Copyright README README.gnutex README.amiga makefile.unx makefile.vms  \
  873. X    linkopt.amg makefile.amg makefile.ami linkopt.vms buildvms.com \
  874. X    plot.h help.h setshow.h bitmap.h term.h lasergnu \
  875. X    term/README History gnuplot.el Intergraph.x11 README.Install
  876. X
  877. #BETA files (not standard distribution files)
  878. BETA = BETA10
  879. # PC-specific files
  880. PC = corgraph.asm corplot.c header.mac hrcgraph.asm lineproc.mac \
  881. X    linkopt.msc linkopt.tc linkopt.tco makefile.msc makefile.tc \
  882. X    pcgraph.asm 
  883. X
  884. # Documentation and help files
  885. DOCS1 = docs/Makefile docs/README docs/checkdoc.c docs/doc2gih.c \
  886. X    docs/doc2hlp.c docs/doc2hlp.com docs/doc2ms.c docs/doc2tex.c \
  887. X    docs/gnuplot.1 docs/lasergnu.1 docs/toc_entry.sty \
  888. X    docs/titlepage.ms docs/titlepage.tex docs/Makefile.ami
  889. DOCS2 = docs/gnuplot.doc
  890. DOCS3 = docs/latextut/Makefile docs/latextut/eg1.plt \
  891. X    docs/latextut/eg2.plt docs/latextut/eg3.dat docs/latextut/eg3.plt \
  892. X    docs/latextut/eg4.plt docs/latextut/eg5.plt docs/latextut/eg6.plt \
  893. X    docs/latextut/header.tex docs/latextut/tutorial.tex \
  894. X    docs/latextut/linepoint.plt
  895. X
  896. #########################################################################
  897. # Default target (informational)
  898. info:
  899. X    @echo "Please do a 'make <MACHINE>' where <MACHINE> is one of the following:"
  900. X    @echo 
  901. X    @echo "apollo, apollo_motif       for Apollo running SR10.3 with Apollo's X11R3"
  902. X    @echo "dec, dec_motif             for Dec3100/5000 running Ultrix 3.1d with MIT's X11R4"
  903. X    @echo "hp                         for HP/9000 700 series running HP/UX 8.0 with MIT's X11R4"
  904. X    @echo "sun                        for Sun sparcstation running SunOS 4.1 with suntools (no X11R4) "
  905. X    @echo "sun_x11                    for Sun sparcstation running SunOS 4.1 with suntools and X11R4 "
  906. X    @echo "sgi                        for Silicon Graphics IRIS4D machines (no X11R4) "
  907. X    @echo "sgix11                     for Silicon Graphics IRIS4D machines (X11R4) "
  908. X    @echo "next                       for NeXT Cube and Slab running NeXTOS 2.0+ (no X11R4) "
  909. X    @echo "3b1                        for ATT 3b1 machines (no X11R4) "
  910. X    @echo "386ix                      for 386 machines running 386/ix (no X11)"
  911. X    @echo "386ix_x11                  for 386 machines running 386/ix with T.Roell X386"
  912. X    @echo "ibmrs6000, ibmrs6000_motif for IBM RS/6000 running Aix 3.1 with IBM's X11R3"
  913. X    @echo "x11r4, x11r4_motif         for a generic machine (like a sun or dec) with MIT's X11R4"
  914. X    @echo 
  915. X    @echo "Examples:"
  916. X    @echo
  917. X    @echo "         make x11r4"
  918. X    @echo "         make x11r4_motif"
  919. X    @echo "         make apollo"
  920. X    @echo "         make apollo       OPTIONS='-DNOCWDRC' "
  921. X    @echo "         make apollo_motif DEST='/usr/um/misc/bin' "
  922. X    @echo "         make dec"
  923. X    @echo "         make hp"
  924. X    @echo "         make next"
  925. X    @echo "         make sun          HELPDEST='/usr/um/misc/lib/gnuplot.gih' "
  926. X    @echo "         make sun          X11INCLUDES='-I/usr/local/include -I/usr/local/include/X11 -I/usr/local/include/X11/Xaw' "
  927. X    @echo "         make sun_x11"
  928. X    @echo "         make sgi"
  929. X    @echo "         make 3b1"
  930. X    @echo "         make 386ix"
  931. X    @echo "         make ibmrs6000    MANDEST='/usr/usr/misc/man/man1' COPTS='-O' "
  932. X    @echo 
  933. X    @echo "If you just type 'make All' , it will build gnuplot for Unix X11R4/Athena"
  934. X    @echo "and the following variables will be used as default:"
  935. X    @echo 
  936. X    @echo " DEST                     " $(DEST)
  937. X    @echo " MANDEST                  " $(MANDEST)
  938. X    @echo " HELPDEST                 " $(HELPDEST)
  939. X    @echo " EMAIL                    " $(EMAIL)
  940. X    @echo " CC                       " $(CC)
  941. X    @echo " COPTS                    " $(COPTS)
  942. X    @echo " OPTIONS                  " $(OPTIONS)
  943. X    @echo " CFLAGS                   " $(CFLAGS)
  944. X    @echo " LIBS                     " $(LIBS)
  945. X    @echo " X11FLAGS                 " $(X11FLAGS)
  946. X    @echo " X11LIBS                  " $(X11LIBS)
  947. X    @echo " X11INCLUDES              " $(X11INCLUDES)
  948. X    @echo " TERMFLAGS                " $(TERMFLAGS)
  949. X    @echo " LASERGNU                 " $(LASERGNU)
  950. X    @echo 
  951. X    @echo "If you are not familiar with makefiles or just want to know what"
  952. X    @echo " 'make <MACHINE>' would  do without actually doing anything, then type"
  953. X    @echo " 'make <MACHINE> -n' "
  954. X    @echo 
  955. X
  956. ###############################################################
  957. # Targets for each machine
  958. X
  959. x11r4:
  960. X    $(MAKE) $(MFLAGS) $(MY_FLAGS) $(X11R4_FLAGS)    $(TARGET)
  961. X
  962. x11r4_motif:
  963. X    $(MAKE) $(MFLAGS) $(MY_FLAGS) $(X11R4_M_FLAGS)  $(TARGET)
  964. X
  965. dec:
  966. X    $(MAKE) $(MFLAGS) $(MY_FLAGS) $(DEC_FLAGS)      $(TARGET)
  967. X
  968. dec_motif:
  969. X    $(MAKE) $(MFLAGS) $(MY_FLAGS) $(DEC_M_FLAGS)    $(TARGET)
  970. X
  971. apollo:
  972. X    $(MAKE) $(MFLAGS) $(MY_FLAGS) $(APOLLO_FLAGS)   $(TARGET)
  973. X
  974. apollo_motif:
  975. X    $(MAKE) $(MFLAGS) $(MY_FLAGS) $(APOLLO_M_FLAGS) $(TARGET)
  976. X
  977. hp:
  978. X    $(MAKE) $(MFLAGS) $(MY_FLAGS) $(HP_FLAGS)       $(TARGET)
  979. X
  980. next:
  981. X    $(MAKE) $(MFLAGS) $(MY_FLAGS) $(NEXT_FLAGS)     $(TARGET)
  982. X
  983. sun:
  984. X    $(MAKE) $(MFLAGS) $(MY_FLAGS) $(SUN_FLAGS)      $(TARGET)
  985. X
  986. sun_x11:
  987. X    $(MAKE) $(MFLAGS) $(MY_FLAGS) $(SUN_X11_FLAGS)  $(TARGET)
  988. X
  989. sgi:
  990. X    $(MAKE) $(MFLAGS) $(MY_FLAGS) $(SGI_FLAGS)      $(TARGET)
  991. X
  992. sgix11:
  993. X    $(MAKE) $(MFLAGS) $(MY_FLAGS) $(SGIX11_FLAGS)   $(TARGET)
  994. X
  995. cgi:
  996. X    $(MAKE) $(MFLAGS) $(MY_FLAGS) $(CGI_FLAGS)      $(TARGET)
  997. X
  998. 3b1:
  999. X    $(MAKE) $(MFLAGS) $(MY_FLAGS) $(3B1_FLAGS)      $(TARGET)
  1000. X
  1001. 386ix:
  1002. X    $(MAKE) $(MFLAGS) $(MY_FLAGS) $(386IX_FLAGS)    $(TARGET)
  1003. X
  1004. 386ix_x11: 
  1005. X    $(MAKE) $(MFLAGS) $(MY_FLAGS) $(386IX_X11_FLAGS) $(TARGET)
  1006. X
  1007. ibmrs6000:
  1008. X    $(MAKE) $(MFLAGS) $(MY_FLAGS) $(AIX_FLAGS)      $(TARGET)
  1009. X
  1010. ibmrs6000_motif:
  1011. X    $(MAKE) $(MFLAGS) $(MY_FLAGS) $(AIX_M_FLAGS)    $(TARGET)
  1012. X
  1013. #############################################################
  1014. # Targets that really do something
  1015. X
  1016. all:
  1017. X    @echo "Please just type  'make'  in order to get some information on "
  1018. X    @echo "how to build gnuplot under Unix and the X Window System."
  1019. X
  1020. All:    gnuplot $(GNUPLOT_X11) doc
  1021. X
  1022. gnuplot: $(OBJS) version.o
  1023. X    $(LD) $(OBJS) version.o $(LIBS) -o gnuplot
  1024. X
  1025. doc:
  1026. X    ( cd docs; make $(MFLAGS) gnuplot.gih )
  1027. X
  1028. gnuplot_x11: gnuplot_x11.c
  1029. X    $(CC) $(CFLAGS) $(X11FLAGS) $(X11INCLUDES) -o gnuplot_x11 gnuplot_x11.c $(X11LIBS)
  1030. X
  1031. ################################################################
  1032. # Installation instructions
  1033. X
  1034. install:
  1035. X    @echo 
  1036. X    @echo "Please do a 'make <MACHINE> TARGET=Install' where <MACHINE> is one of the following:"
  1037. X    @echo 
  1038. X    @echo "apollo, apollo_motif, dec, dec_motif, hp, sun, sun_x11, sgi, sgix11"
  1039. X    @echo "next, 3b1, 386ix, ibmrs6000, ibmrs6000_motif, x11r4, x11r4_motif"
  1040. X    @echo 
  1041. X    @echo "Examples:"
  1042. X    @echo
  1043. X    @echo "         make x11r4        TARGET=Install "
  1044. X    @echo "         make apollo       TARGET=Install "
  1045. X    @echo "         make apollo_motif TARGET=Install DEST='/usr/um/misc/bin' "
  1046. X    @echo "         make dec          TARGET=Install "
  1047. X    @echo "         make hp           TARGET=Install "
  1048. X    @echo "         make sun          TARGET=Install HELPDEST='/usr/um/misc/lib/gnuplot.gih' "
  1049. X    @echo "         make ibmrs6000    TARGET=Install MANDEST='/usr/um/misc/man/man1' COPTS='-O' "
  1050. X    @echo 
  1051. ################################################################
  1052. # Installation targets
  1053. X
  1054. Install: All man_install $(X11INSTALL) $(LASERGNU)
  1055. X    cp gnuplot     $(DEST)
  1056. X    strip $(DEST)/gnuplot
  1057. X    (cd docs; make $(MFLAGS) install-unix HELPDEST=$(HELPDEST))
  1058. X
  1059. x11_install: gnuplot_x11
  1060. X    cp gnuplot_x11 $(DEST)
  1061. X    strip $(DEST)/gnuplot_x11
  1062. X
  1063. x11_noinstall: 
  1064. X    @echo "X11 not requested, so gnuplot_x11 program not installed"
  1065. X
  1066. man_install: docs/gnuplot.1
  1067. X    cp docs/gnuplot.1 $(MANDEST)
  1068. X
  1069. lasergnu_install: lasergnu docs/lasergnu.1
  1070. X    cp lasergnu $(DEST)
  1071. X    chmod 755 $(DEST)/lasergnu
  1072. X    cp docs/lasergnu.1 $(MANDEST)
  1073. X
  1074. lasergnu_noinstall:
  1075. X    @echo 
  1076. X    @echo "Lasergnu will not be installed by default."
  1077. X    @echo "If you think you need the lasergnu script to print"
  1078. X    @echo " files on the imagen or postscript printers, then"
  1079. X    @echo " type"
  1080. X    @echo "      'make <MACHINE> TARGET=Install LASERGNU='lasergnu_install' "
  1081. X    @echo
  1082. X    @echo "Lasergnu is really not needed since within gnuplot you can"
  1083. X    @echo " can create files (in impress or postscript language) and"
  1084. X    @echo " print them through your favorite print command (lpr, lp, prf, ipr)."
  1085. X    @echo 
  1086. X
  1087. ################################################################
  1088. # Dependencies
  1089. X
  1090. plot.o: plot.c
  1091. X    $(CC) $(CFLAGS) $(PLOTXFLAG) -c plot.c
  1092. X
  1093. term.o: term.h term.c $(CSOURCE5) $(CSOURCE6) $(CSOURCE7)
  1094. X    $(CC) $(CFLAGS) $(TERMFLAGS) -c term.c
  1095. X
  1096. version.o:
  1097. X    $(CC) $(CFLAGS) -DCONTACT=\"$(EMAIL)\" -c version.c
  1098. X
  1099. $(OBJS): plot.h
  1100. X
  1101. command.o:
  1102. X    $(CC) $(CFLAGS) -c command.c -DHELPFILE=\"$(HELPDEST)\"
  1103. X
  1104. command.o help.o misc.o: help.h
  1105. X
  1106. command.o graphics.o graph3d.o misc.o plot.o setshow.o term.o: setshow.h
  1107. X
  1108. bitmap.o term.o: bitmap.h
  1109. X
  1110. ################################################################
  1111. # Miscellaneous targets
  1112. X
  1113. SOURCES=plot.h help.h setshow.h bitmap.h term.h $(CSOURCE1) $(CSOURCE2) \
  1114. X    $(CSOURCE3) $(CSOURCE4) $(CSOURCE5) $(CSOURCE6) $(CSOURCE7) $(CSOURCE8)
  1115. X
  1116. lint:
  1117. X    lint -hx $(SOURCES)
  1118. X
  1119. clean:
  1120. X    rm -f *.o *~ *.bak term/*~ term/*.bak
  1121. X    (cd docs; make $(MFLAGS) clean)
  1122. X    (cd docs/latextut; make $(MFLAGS) clean)
  1123. X
  1124. spotless:
  1125. X    rm -f *.o *~ *.bak term/*~ term/*.bak TAGS gnuplot gnuplot_x11
  1126. X    (cd docs; make $(MFLAGS) clean)
  1127. X    (cd docs/latextut; make $(MFLAGS) spotless)
  1128. X
  1129. ################################################################
  1130. # Making shar files for mailing gnuplot
  1131. X
  1132. shar: gnuplot.sh00 gnuplot.sh01 gnuplot.sh02 gnuplot.sh03 gnuplot.sh04 \
  1133. X    gnuplot.sh05 gnuplot.sh06 gnuplot.sh07 gnuplot.sh08 \
  1134. X    gnuplot.sh09 gnuplot.sh10 gnuplot.sh11 gnuplot.sh12 \
  1135. X    gnuplot.sh13 gnuplot.sh14 gnuplot.sh15 
  1136. X
  1137. gnuplot.sh00:
  1138. X    echo '#!/bin/sh' > gnuplot.sh00
  1139. X    echo '# This is a shell file to make directories' >> gnuplot.sh00
  1140. X    echo mkdir $(DIRS) >> gnuplot.sh00
  1141. X
  1142. gnuplot.sh01: $(ETC)
  1143. X    shar $(ETC) > gnuplot.sh01
  1144. X
  1145. gnuplot.sh02: $(DOCS1)
  1146. X    shar $(DOCS1) > gnuplot.sh02
  1147. X
  1148. gnuplot.sh03: $(DOCS2)
  1149. X    shar $(DOCS2) > gnuplot.sh03
  1150. X
  1151. gnuplot.sh04: $(DOCS3)
  1152. X    shar $(DOCS3) > gnuplot.sh04
  1153. X
  1154. gnuplot.sh05: $(CSOURCE1)
  1155. X    shar $(CSOURCE1) > gnuplot.sh05
  1156. X
  1157. gnuplot.sh06: $(CSOURCE2)
  1158. X    shar $(CSOURCE2) > gnuplot.sh06
  1159. X
  1160. gnuplot.sh07: $(CSOURCE3)
  1161. X    shar $(CSOURCE3) > gnuplot.sh07
  1162. X
  1163. gnuplot.sh08: $(CSOURCE4)
  1164. X    shar $(CSOURCE4) > gnuplot.sh08
  1165. X
  1166. gnuplot.sh09: $(CSOURCE5)
  1167. X    shar $(CSOURCE5) > gnuplot.sh09
  1168. X
  1169. gnuplot.sh10: $(CSOURCE6)
  1170. X    shar $(CSOURCE6) > gnuplot.sh10
  1171. X
  1172. gnuplot.sh11: $(CSOURCE7)
  1173. X    shar $(CSOURCE7) > gnuplot.sh11
  1174. X
  1175. gnuplot.sh12: $(PC)
  1176. X    shar $(PC) > gnuplot.sh12
  1177. X
  1178. gnuplot.sh13: $(CSOURCE8)
  1179. X    shar $(CSOURCE8) > gnuplot.sh13
  1180. X
  1181. gnuplot.sh14: $(DEMOS)
  1182. X    shar $(DEMOS) > gnuplot.sh14
  1183. X
  1184. gnuplot.sh15: $(BETA)
  1185. X    shar $(BETA) > gnuplot.sh15
  1186. X
  1187. SHAR_EOF
  1188. chmod 0644 gnuplot/makefile.unx ||
  1189. echo 'restore of gnuplot/makefile.unx failed'
  1190. Wc_c="`wc -c < 'gnuplot/makefile.unx'`"
  1191. test 25357 -eq "$Wc_c" ||
  1192.     echo 'gnuplot/makefile.unx: original size 25357, current size' "$Wc_c"
  1193. rm -f _shar_wnt_.tmp
  1194. fi
  1195. # ============= gnuplot/pcgraph.asm ==============
  1196. if test -f 'gnuplot/pcgraph.asm' -a X"$1" != X"-c"; then
  1197.     echo 'x - skipping gnuplot/pcgraph.asm (File already exists)'
  1198.     rm -f _shar_wnt_.tmp
  1199. else
  1200. > _shar_wnt_.tmp
  1201. echo 'x - extracting gnuplot/pcgraph.asm (Text)'
  1202. sed 's/^X//' << 'SHAR_EOF' > 'gnuplot/pcgraph.asm' &&
  1203. TITLE    PC graphics module
  1204. ;    uses LINEPROC.MAC
  1205. X
  1206. ;    Michael Gordon - 8-Dec-86
  1207. ;
  1208. ; Certain routines were taken from the Hercules BIOS of    Dave Tutelman - 8/86
  1209. ; Others came from pcgraph.asm included in GNUPLOT by Colin Kelley
  1210. ;
  1211. ; modified slightly by Colin Kelley - 22-Dec-86
  1212. ;    added header.mac, parameterized declarations
  1213. ; added dgroup: in HVmodem to reach HCh_Parms and HGr_Parms - 30-Jan-87
  1214. ;
  1215. ; modified and added to for use in plot(3) routines back end.
  1216. ; Gil Webster.
  1217. ;
  1218. ; Assemble with masm ver. 4.  
  1219. X
  1220. include header.mac
  1221. X
  1222. if1
  1223. include lineproc.mac
  1224. endif
  1225. X
  1226. GPg1_Base equ 0B800h    ; Graphics page 1 base address
  1227. X
  1228. X    extrn _inter:far
  1229. X
  1230. _text    segment
  1231. X
  1232. X    public _PC_line, _PC_color, _PC_mask, _PC_curloc, _PC_puts, _Vmode
  1233. X    public _erase, _save_stack, _ss_interrupt
  1234. X
  1235. pcpixel proc near
  1236. X    ror word ptr linemask,1
  1237. X    jc cont
  1238. X    ret
  1239. cont:
  1240. X    push ax
  1241. X    push bx
  1242. X    push cx
  1243. X    push dx
  1244. X    push bp
  1245. X    mov cx,ax        ; x
  1246. X    mov dx,bx        ; y
  1247. X    mov ah,0ch        ; ah = write pixel
  1248. X    mov al,byte ptr color
  1249. X
  1250. X    mov bh, 0        ; page 0
  1251. X    int 10h
  1252. X    pop bp
  1253. X    pop dx
  1254. X    pop cx
  1255. X    pop bx
  1256. X    pop ax
  1257. X    ret
  1258. pcpixel endp
  1259. X
  1260. lineproc _PC_line, pcpixel
  1261. X
  1262. ;
  1263. ; erase - clear page 1 of the screen buffer to zero (effectively, blank
  1264. ;    the screen)
  1265. ;
  1266. beginproc _erase
  1267. X    push es
  1268. X    push ax
  1269. X    push cx
  1270. X    push di
  1271. X    mov ax, GPg1_Base
  1272. X    mov es, ax
  1273. X    xor di, di
  1274. X    mov cx, 4000h
  1275. X    xor ax, ax
  1276. X    cld
  1277. X    rep stosw            ; zero out screen page
  1278. X    pop di
  1279. X    pop cx
  1280. X    pop ax
  1281. X    pop es
  1282. X    ret
  1283. _erase endp
  1284. X
  1285. beginproc _PC_color
  1286. X    push bp
  1287. X    mov bp,sp
  1288. X    mov al,[bp+X]            ; color
  1289. X    mov byte ptr color,al
  1290. X    pop bp
  1291. X    ret
  1292. _PC_color endp
  1293. X
  1294. beginproc _PC_mask
  1295. X    push bp
  1296. X    mov bp,sp
  1297. X    mov ax,[bp+X]            ; mask
  1298. X    mov word ptr linemask,ax
  1299. X    pop bp
  1300. X    ret
  1301. _PC_mask endp
  1302. X
  1303. beginproc _Vmode
  1304. X    push bp
  1305. X    mov bp,sp
  1306. X    push si
  1307. X    push di
  1308. X    mov ax,[bp+X]
  1309. X    int 10h
  1310. X    pop di
  1311. X    pop si
  1312. X    pop bp
  1313. X    ret
  1314. _Vmode    endp
  1315. X
  1316. beginproc _PC_curloc
  1317. X    push bp
  1318. X    mov bp,sp
  1319. X    mov dh, byte ptr [bp+X] ; row number
  1320. X    mov dl, byte ptr [bp+X+2] ; col number
  1321. X    mov bh, 0
  1322. X    mov ah, 2
  1323. X    int 10h
  1324. X    pop bp
  1325. X    ret
  1326. _PC_curloc endp
  1327. X
  1328. ;
  1329. ; thanks to watale!broehl for finding a bug here--I wasn't pushing BP
  1330. ;   and reloading AH before INT 10H, which is necessary on genuine IBM
  1331. ;   boards...
  1332. ;
  1333. beginproc _PC_puts
  1334. X    push bp
  1335. X    mov bp,sp
  1336. X    push si
  1337. X    mov bl,byte ptr color
  1338. X    mov si,[bp+X]        ; offset
  1339. X
  1340. ifdef LARGE_DATA
  1341. X    mov es,[bp+X+2]        ; segment if large or compact data model
  1342. endif
  1343. X
  1344. puts2:
  1345. X
  1346. ifdef LARGE_DATA
  1347. X    mov al,es:[si]
  1348. else
  1349. X    mov al,[si]
  1350. endif
  1351. X    or al,al
  1352. X    jz puts3
  1353. X    mov ah,0eh        ; write TTY char
  1354. X    int 10h
  1355. X    inc si
  1356. X    jmp short puts2
  1357. puts3:    pop si
  1358. X    pop bp
  1359. X    ret
  1360. _PC_puts endp
  1361. X
  1362. X
  1363. ; int kbhit();
  1364. ;   for those without MSC 4.0
  1365. ; Use BIOS interrupt 16h to determine if a key is waiting in the buffer.
  1366. ; Return nonzero if so.
  1367. ;
  1368. X
  1369. beginproc _kbhit
  1370. X    mov ah, 1        ; function code 1 is keyboard test
  1371. X    int 16h            ; keyboard functions
  1372. X    jnz kbfin        ; Exit if char available
  1373. X    xor ax, ax        ; No char:  return zero.
  1374. kbfin:    ret
  1375. _kbhit    endp
  1376. X
  1377. X
  1378. ; _save_stack and _ss_interrupt are needed due to a bug in the MSC 4.0
  1379. ; code when run under MS-DOS 3.x.  Starting with 3.0, MS-DOS automatically
  1380. ; switches to an internal stack during system calls.  This leaves SS:SP
  1381. ; pointing at MS-DOS's stack when the ^C interrupt (INT 23H) is triggered.
  1382. ; MSC should restore its own stack before calling the user signal() routine,
  1383. ; but it doesn't.
  1384. ;
  1385. ; Presumably this code will be unnecessary in later releases of the compiler.
  1386. ;
  1387. X
  1388. ; _save_stack saves the current SS:SP to be loaded later by _ss_interrupt.
  1389. ;
  1390. X
  1391. beginproc _save_stack
  1392. X    mov ax,ss
  1393. X    mov cs:save_ss,ax
  1394. X    mov ax,sp
  1395. X    mov cs:save_sp,ax
  1396. X    ret
  1397. _save_stack endp
  1398. X
  1399. X
  1400. ; _ss_interrupt is called on ^C (INT 23H).  It restores SS:SP as saved in
  1401. ; _save_stack and then jumps to the C routine interrupt().
  1402. ;
  1403. beginproc _ss_interrupt
  1404. X    cli            ; no interrupts while the stack is changed!
  1405. X    mov ax,-1        ; self-modifying code again
  1406. save_ss    equ this word - 2
  1407. X    mov ss,ax
  1408. X    mov sp,-1        ; here too
  1409. save_sp equ this word - 2
  1410. X    sti
  1411. X    jmp far ptr _inter; now it's safe to call the real routine
  1412. _ss_interrupt endp
  1413. X
  1414. X
  1415. _text    ends
  1416. X
  1417. X
  1418. const    segment
  1419. linemask dw -1
  1420. color     db 1
  1421. const    ends
  1422. X
  1423. X    end
  1424. SHAR_EOF
  1425. chmod 0666 gnuplot/pcgraph.asm ||
  1426. echo 'restore of gnuplot/pcgraph.asm failed'
  1427. Wc_c="`wc -c < 'gnuplot/pcgraph.asm'`"
  1428. test 3925 -eq "$Wc_c" ||
  1429.     echo 'gnuplot/pcgraph.asm: original size 3925, current size' "$Wc_c"
  1430. rm -f _shar_wnt_.tmp
  1431. fi
  1432. # ============= gnuplot/plot.c ==============
  1433. if test -f 'gnuplot/plot.c' -a X"$1" != X"-c"; then
  1434.     echo 'x - skipping gnuplot/plot.c (File already exists)'
  1435.     rm -f _shar_wnt_.tmp
  1436. else
  1437. > _shar_wnt_.tmp
  1438. echo 'x - extracting gnuplot/plot.c (Text)'
  1439. sed 's/^X//' << 'SHAR_EOF' > 'gnuplot/plot.c' &&
  1440. /* GNUPLOT - plot.c */
  1441. /*
  1442. X * Copyright (C) 1986, 1987, 1990, 1991   Thomas Williams, Colin Kelley
  1443. X *
  1444. X * Permission to use, copy, and distribute this software and its
  1445. X * documentation for any purpose with or without fee is hereby granted, 
  1446. X * provided that the above copyright notice appear in all copies and 
  1447. X * that both that copyright notice and this permission notice appear 
  1448. X * in supporting documentation.
  1449. X *
  1450. X * Permission to modify the software is granted, but not the right to
  1451. X * distribute the modified code.  Modifications are to be distributed 
  1452. X * as patches to released version.
  1453. X *  
  1454. X * This software is provided "as is" without express or implied warranty.
  1455. X * 
  1456. X *
  1457. X * AUTHORS
  1458. X * 
  1459. X *   Original Software:
  1460. X *     Thomas Williams,  Colin Kelley.
  1461. X * 
  1462. X *   Gnuplot 2.0 additions:
  1463. X *       Russell Lang, Dave Kotz, John Campbell.
  1464. X *
  1465. X *   Gnuplot 3.0 additions:
  1466. X *       Gershon Elber and many others.
  1467. X * 
  1468. X * Send your comments or suggestions to 
  1469. X *  pixar!info-gnuplot@sun.com.
  1470. X * This is a mailing list; to join it send a note to 
  1471. X *  pixar!info-gnuplot-request@sun.com.  
  1472. X * Send bug reports to
  1473. X *  pixar!bug-gnuplot@sun.com.
  1474. X */
  1475. X
  1476. #include <stdio.h>
  1477. #include <setjmp.h>
  1478. #include <signal.h>
  1479. #include "plot.h"
  1480. #include "setshow.h"
  1481. #ifdef MSDOS
  1482. #include <io.h>
  1483. #endif
  1484. #ifdef vms
  1485. #include <unixio.h>
  1486. #include <smgdef.h>
  1487. extern int vms_vkid;
  1488. extern smg$create_virtual_keyboard();
  1489. unsigned int status[2] = {1, 0};
  1490. #endif
  1491. #ifdef AMIGA_LC_5_1
  1492. #include <proto/dos.h>
  1493. #endif
  1494. X
  1495. #ifdef __TURBOC__
  1496. #include <graphics.h>
  1497. #endif
  1498. X
  1499. extern char *getenv(),*strcat(),*strcpy(),*strncpy();
  1500. X
  1501. extern char input_line[];
  1502. extern int c_token;
  1503. extern FILE *outfile;
  1504. extern int term;
  1505. X
  1506. BOOLEAN interactive = TRUE;    /* FALSE if stdin not a terminal */
  1507. char *infile_name = NULL;    /* name of command file; NULL if terminal */
  1508. X
  1509. #ifndef STDOUT
  1510. #define STDOUT 1
  1511. #endif
  1512. X
  1513. jmp_buf env;
  1514. X
  1515. struct value *integer(),*complex();
  1516. X
  1517. X
  1518. extern f_push(),f_pushc(),f_pushd1(),f_pushd2(),f_call(),f_call2(),f_lnot(),f_bnot(),f_uminus()
  1519. X    ,f_lor(),f_land(),f_bor(),f_xor(),f_band(),f_eq(),f_ne(),f_gt(),f_lt(),
  1520. X    f_ge(),f_le(),f_plus(),f_minus(),f_mult(),f_div(),f_mod(),f_power(),
  1521. X    f_factorial(),f_bool(),f_jump(),f_jumpz(),f_jumpnz(),f_jtern();
  1522. X
  1523. extern f_real(),f_imag(),f_arg(),f_conjg(),f_sin(),f_cos(),f_tan(),f_asin(),
  1524. X    f_acos(),f_atan(),f_sinh(),f_cosh(),f_tanh(),f_int(),f_abs(),f_sgn(),
  1525. X    f_sqrt(),f_exp(),f_log10(),f_log(),f_besj0(),f_besj1(),f_besy0(),f_besy1(),
  1526. #ifdef GAMMA
  1527. X    f_gamma(),
  1528. #endif
  1529. X    f_floor(),f_ceil();
  1530. X
  1531. X
  1532. struct ft_entry ft[] = {    /* built-in function table */
  1533. X
  1534. /* internal functions: */
  1535. X    {"push", f_push},    {"pushc", f_pushc},
  1536. X    {"pushd1", f_pushd1},    {"pushd2", f_pushd2},
  1537. X    {"call", f_call},    {"call2", f_call2},    {"lnot", f_lnot},
  1538. X    {"bnot", f_bnot},    {"uminus", f_uminus},    {"lor", f_lor},
  1539. X    {"land", f_land},    {"bor", f_bor},        {"xor", f_xor},
  1540. X    {"band", f_band},    {"eq", f_eq},        {"ne", f_ne},
  1541. X    {"gt", f_gt},        {"lt", f_lt},        {"ge", f_ge},
  1542. X    {"le", f_le},        {"plus", f_plus},    {"minus", f_minus},
  1543. X    {"mult", f_mult},    {"div", f_div},        {"mod", f_mod},
  1544. X    {"power", f_power}, {"factorial", f_factorial},
  1545. X    {"bool", f_bool},    {"jump", f_jump},    {"jumpz", f_jumpz},
  1546. X    {"jumpnz",f_jumpnz},{"jtern", f_jtern},
  1547. X
  1548. /* standard functions: */
  1549. X    {"real", f_real},    {"imag", f_imag},    {"arg", f_arg},
  1550. X    {"conjg", f_conjg}, {"sin", f_sin},        {"cos", f_cos},
  1551. X    {"tan", f_tan},        {"asin", f_asin},    {"acos", f_acos},
  1552. X    {"atan", f_atan},    {"sinh", f_sinh},    {"cosh", f_cosh},
  1553. X    {"tanh", f_tanh},    {"int", f_int},        {"abs", f_abs},
  1554. X    {"sgn", f_sgn},        {"sqrt", f_sqrt},    {"exp", f_exp},
  1555. X    {"log10", f_log10},    {"log", f_log},        {"besj0", f_besj0},
  1556. X    {"besj1", f_besj1},    {"besy0", f_besy0},    {"besy1", f_besy1},
  1557. #ifdef GAMMA
  1558. X     {"gamma", f_gamma},
  1559. #endif
  1560. X    {"floor", f_floor},    {"ceil", f_ceil},
  1561. X    {NULL, NULL}
  1562. };
  1563. X
  1564. static struct udvt_entry udv_pi = {NULL, "pi",FALSE};
  1565. X                                    /* first in linked list */
  1566. struct udvt_entry *first_udv = &udv_pi;
  1567. struct udft_entry *first_udf = NULL;
  1568. X
  1569. X
  1570. X
  1571. #ifdef vms
  1572. X
  1573. #define HOME "sys$login:"
  1574. X
  1575. #else /* vms */
  1576. #ifdef MSDOS
  1577. X
  1578. #define HOME "GNUPLOT"
  1579. X
  1580. #else /* MSDOS */
  1581. X
  1582. #if defined(AMIGA_AC_5) || defined(AMIGA_LC_5_1)
  1583. X
  1584. #define HOME "GNUPLOT"
  1585. #else /* AMIGA */
  1586. X
  1587. #define HOME "HOME"
  1588. X
  1589. #endif /* AMIGA */
  1590. #endif /* MSDOS */
  1591. #endif /* vms */
  1592. X
  1593. #ifdef unix
  1594. #define PLOTRC ".gnuplot"
  1595. #else /* unix */
  1596. #if defined(AMIGA_AC_5) || defined(AMIGA_LC_5_1)
  1597. #define PLOTRC ".gnuplot"
  1598. #else /* AMIGA */
  1599. #define PLOTRC "gnuplot.ini"
  1600. #endif /* AMIGA */
  1601. #endif /* unix */
  1602. X
  1603. #ifdef __TURBOC__
  1604. void tc_interrupt()
  1605. #else
  1606. #ifdef _CRAY
  1607. void inter(an_int)
  1608. int an_int;
  1609. #else
  1610. inter()
  1611. #endif
  1612. #endif
  1613. {
  1614. #ifdef MSDOS
  1615. #ifdef __TURBOC__
  1616. X    (void) signal(SIGINT, tc_interrupt);
  1617. #else
  1618. X    void ss_interrupt();
  1619. X    (void) signal(SIGINT, ss_interrupt);
  1620. #endif
  1621. #else  /* MSDOS */
  1622. X    (void) signal(SIGINT, inter);
  1623. #endif  /* MSDOS */
  1624. X    (void) signal(SIGFPE, SIG_DFL);    /* turn off FPE trapping */
  1625. X    if (term && term_init)
  1626. X        (*term_tbl[term].text)();    /* hopefully reset text mode */
  1627. X    (void) fflush(outfile);
  1628. X    (void) putc('\n',stderr);
  1629. X    longjmp(env, TRUE);        /* return to prompt */
  1630. }
  1631. X
  1632. X
  1633. main(argc, argv)
  1634. X    int argc;
  1635. X    char **argv;
  1636. {
  1637. /* Register the Borland Graphics Interface drivers. If they have been */
  1638. /* included by the linker.                                            */
  1639. X
  1640. #ifdef __TURBOC__
  1641. registerfarbgidriver(EGAVGA_driver_far);
  1642. registerfarbgidriver(CGA_driver_far);
  1643. registerfarbgidriver(Herc_driver_far);
  1644. registerfarbgidriver(ATT_driver_far);
  1645. #endif
  1646. #ifdef X11
  1647. X     { int n = X11_args(argc, argv); argv += n; argc -= n; }
  1648. #endif 
  1649. X
  1650. #ifdef apollo
  1651. X    apollo_pfm_catch();
  1652. #endif
  1653. X
  1654. X    setbuf(stderr,(char *)NULL);
  1655. X    outfile = stdout;
  1656. X    (void) complex(&udv_pi.udv_value, Pi, 0.0);
  1657. X
  1658. X     interactive = FALSE;
  1659. X     init_terminal();        /* can set term type if it likes */
  1660. X
  1661. #ifdef AMIGA_LC_5_1
  1662. X     if (IsInteractive(Input()) == DOSTRUE) interactive = TRUE;
  1663. X     else interactive = FALSE;
  1664. #else
  1665. X     interactive = isatty(fileno(stdin));
  1666. #endif
  1667. X     if (argc > 1)
  1668. X      interactive = FALSE;
  1669. X
  1670. X     if (interactive)
  1671. X      show_version();
  1672. #ifdef vms   /* initialise screen management routines for command recall */
  1673. X          if (status[1] = smg$create_virtual_keyboard(&vms_vkid) != SS$_NORMAL)
  1674. X               done(status[1]);
  1675. #endif
  1676. X
  1677. X    if (!setjmp(env)) {
  1678. X        /* first time */
  1679. X        interrupt_setup();
  1680. X        load_rcfile();
  1681. X
  1682. X        if (interactive && term != 0)    /* not unknown */
  1683. X         fprintf(stderr, "\nTerminal type set to '%s'\n", 
  1684. X                term_tbl[term].name);
  1685. X    } else {    
  1686. X        /* come back here from int_error() */
  1687. X        load_file_error();    /* if we were in load_file(), cleanup */
  1688. #ifdef vms
  1689. X        /* after catching interrupt */
  1690. SHAR_EOF
  1691. true || echo 'restore of gnuplot/plot.c failed'
  1692. fi
  1693. echo 'End of  part 22'
  1694. echo 'File gnuplot/plot.c is continued in part 23'
  1695. echo 23 > _shar_seq_.tmp
  1696. exit 0
  1697.  
  1698. exit 0 # Just in case...
  1699. -- 
  1700. Kent Landfield                   INTERNET: kent@sparky.IMD.Sterling.COM
  1701. Sterling Software, IMD           UUCP:     uunet!sparky!kent
  1702. Phone:    (402) 291-8300         FAX:      (402) 291-4362
  1703. Please send comp.sources.misc-related mail to kent@uunet.uu.net.
  1704.