home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / x / volume8 / gnuplot.patch / part01 next >
Text File  |  1990-08-21  |  16KB  |  651 lines
  1. Path: uunet!lll-winken!sun-barr!newstop!sun!hpmtlx.HP.COM
  2. From: thompson_r@hpmtlx.HP.COM ($Robert_Thompson)
  3. Newsgroups: comp.sources.x
  4. Subject: v08i090: Gnuplot 2.0 X11 drivers, Part01/01
  5. Message-ID: <141101@sun.Eng.Sun.COM>
  6. Date: 22 Aug 90 01:55:04 GMT
  7. Sender: news@sun.Eng.Sun.COM
  8. Lines: 640
  9. Approved: argv@sun.com
  10.  
  11. Submitted-by: thompson_r@hpmtlx.HP.COM ($Robert_Thompson)
  12. Posting-number: Volume 8, Issue 90
  13. Archive-name: gnuplot.patch/part01
  14.  
  15.  
  16. This is a set of diffs and terminal drivers for X11.  With this addition to
  17. the gnuplot terminal family, you can display a graph on your X11 screen.
  18. The plot is scaled according to the window size (without affecting the
  19. 'size' parameter).  You can also view more than one plot at a time by
  20. simply specifying the terminal type after you have a plot.  For example:
  21.  
  22.     gnuplot> set term x11
  23.     gnuplot> plot sin(x)
  24.     gnuplot> set term x11
  25.     gnuplot> plot cos(x)
  26.  
  27. This will create two windows having the sin and cosine plots, respectively.
  28. You cannot, at this time, remove the first plot from the screen without
  29. closing the window (from mwm for example).  
  30.  
  31.     The terminal drivers have been written for color and monochrome
  32. displays.  You can install one or the other as is (installing both could be
  33. done as well, with some mods).
  34.  
  35.     
  36. <--------------------------- CUT HERE --------------------------------->
  37. # This is a shell archive.  Remove anything before this line,
  38. # then unpack it by saving it in a file and typing "sh file".
  39. #
  40. # Wrapped by  <thompson_r@hpmtlrt> on Fri Jul 13 13:43:20 1990
  41. #
  42. # This archive contains:
  43. #    makefile.diff    term.c.diff    X11.trm.color    X11.trm.mono    
  44. #
  45.  
  46. LANG=""; export LANG
  47. PATH=/bin:/usr/bin:$PATH; export PATH
  48.  
  49. echo x - makefile.diff
  50. cat >makefile.diff <<'@EOF'
  51. *** makefile.old    Fri Jul 13 13:27:48 1990
  52. --- makefile    Fri Jul 13 13:27:39 1990
  53. ***************
  54. *** 10,14
  55.   
  56.   # directory where to install executables on 'make install'
  57. ! DEST=
  58.   # directory for installing man page on 'make man_install'
  59.   MANDEST=
  60.  
  61. --- 10,14 -----
  62.   
  63.   # directory where to install executables on 'make install'
  64. ! DEST=/usr/contrib/bin
  65.   # directory for installing man page on 'make man_install'
  66.   MANDEST=.
  67. ***************
  68. *** 12,16
  69.   DEST=
  70.   # directory for installing man page on 'make man_install'
  71. ! MANDEST=
  72.   # where to install help file gnuplot.gih
  73.   HELPDEST= 
  74.  
  75. --- 12,16 -----
  76.   DEST=/usr/contrib/bin
  77.   # directory for installing man page on 'make man_install'
  78. ! MANDEST=.
  79.   # where to install help file gnuplot.gih
  80.   HELPDEST= /usr/contrib/lib/gnuplot.gih
  81. ***************
  82. *** 14,18
  83.   MANDEST=
  84.   # where to install help file gnuplot.gih
  85. ! HELPDEST= 
  86.   
  87.   # -DVFORK if you have vfork()
  88.  
  89. --- 14,18 -----
  90.   MANDEST=.
  91.   # where to install help file gnuplot.gih
  92. ! HELPDEST= /usr/contrib/lib/gnuplot.gih
  93.   
  94.   # -DVFORK if you have vfork()
  95. ***************
  96. *** 38,41
  97.   # -DHP75        HP7580, and probably other HPs
  98.   # -DHPGL                HP7475 and (hopefully) lots of others
  99.   # -DHPLJET              HP Laserjet
  100.   # -DIMAGEN      Imagen laser printers (300dpi) (requires -Iterm also)
  101.  
  102. --- 38,42 -----
  103.   # -DHP75        HP7580, and probably other HPs
  104.   # -DHPGL                HP7475 and (hopefully) lots of others
  105. + # -DX11        X11 support
  106.   # -DHPLJET              HP Laserjet
  107.   # -DIMAGEN      Imagen laser printers (300dpi) (requires -Iterm also)
  108. ***************
  109. *** 59,62
  110.       -DUNIXPLOT -DV384
  111.   
  112.   OBJS = command.o eval.o graphics.o help.o internal.o misc.o parse.o\
  113.       plot.o scanner.o setshow.o standard.o term.o util.o
  114.  
  115. --- 60,66 -----
  116.       -DUNIXPLOT -DV384
  117.   
  118. + TERMFLAGS =  -Iterm -DHPGL -DHPLJET -DPOSTSCRIPT -DTEK -DHP2648 \
  119. +     -DHP26 -DX11
  120. + 
  121.   OBJS = command.o eval.o graphics.o help.o internal.o misc.o parse.o\
  122.       plot.o scanner.o setshow.o standard.o term.o util.o
  123. ***************
  124. *** 72,76
  125.   CSOURCE6 = term/post.trm term/pc.trm term/qms.trm term/regis.trm \
  126.       term/tek.trm term/unixpc.trm term/unixplot.trm term/v384.trm \
  127. !     term/imPcodes.h term/imagen.trm term/object.h term/fig.trm
  128.   # not C code, but still needed
  129.   ETC = README README.gnutex makefile.unx makefile.vms linkopt.vms \
  130.  
  131. --- 76,81 -----
  132.   CSOURCE6 = term/post.trm term/pc.trm term/qms.trm term/regis.trm \
  133.       term/tek.trm term/unixpc.trm term/unixplot.trm term/v384.trm \
  134. !     term/imPcodes.h term/imagen.trm term/object.h term/fig.trm \
  135. !     term/X11.trm
  136.   # not C code, but still needed
  137.   ETC = README README.gnutex makefile.unx makefile.vms linkopt.vms \
  138. ***************
  139. *** 101,104
  140.   
  141.   # -lplot iff you have -DUNIXPLOT
  142.   # -lsuntool -lsunwindow -lpixrect  iff you have -DSUN
  143.   # -lgl_s if IRIS4D
  144.  
  145. --- 106,110 -----
  146.   
  147.   # -lplot iff you have -DUNIXPLOT
  148. + # -lX11 if you have -DX11
  149.   # -lsuntool -lsunwindow -lpixrect  iff you have -DSUN
  150.   # -lgl_s if IRIS4D
  151. ***************
  152. *** 103,107
  153.   # -lsuntool -lsunwindow -lpixrect  iff you have -DSUN
  154.   # -lgl_s if IRIS4D
  155. ! LIBS = -lm 
  156.   
  157.   gnuplot: $(OBJS) version.o
  158.  
  159. --- 109,113 -----
  160.   # -lsuntool -lsunwindow -lpixrect  iff you have -DSUN
  161.   # -lgl_s if IRIS4D
  162. ! LIBS = -lm -lX11 
  163.   
  164.   gnuplot: $(OBJS) version.o
  165. @EOF
  166.  
  167. chmod 666 makefile.diff
  168.  
  169. echo x - term.c.diff
  170. cat >term.c.diff <<'@EOF'
  171. *** term.c.old    Fri Jul 13 13:28:38 1990
  172. --- term.c    Fri Jul 13 13:27:57 1990
  173. ***************
  174. *** 376,379
  175.   #endif /* UNIXPLOT */
  176.   
  177.   /* Dummy functions for unavailable features */
  178.   
  179.  
  180. --- 376,383 -----
  181.   #endif /* UNIXPLOT */
  182.   
  183. + #ifdef X11
  184. + #include "term/X11.trm"
  185. + #endif /* X11 */
  186. + 
  187.   /* Dummy functions for unavailable features */
  188.   
  189. ***************
  190. *** 610,613
  191.          HPGL_text, null_scale, HPGL_graphics, HPGL_move, HPGL_vector,
  192.          HPGL_linetype, HPGL_put_text, HPGL_text_angle, 
  193.          null_justify_text, do_point, do_arrow}
  194.   #endif
  195.  
  196. --- 614,626 -----
  197.          HPGL_text, null_scale, HPGL_graphics, HPGL_move, HPGL_vector,
  198.          HPGL_linetype, HPGL_put_text, HPGL_text_angle, 
  199. +        null_justify_text, do_point, do_arrow}
  200. + #endif
  201. + 
  202. + #ifdef X11
  203. +     ,{"x11", "X Windows Support (V11R3)",
  204. +        X11_XMAX, X11_YMAX, X11_VCHAR, X11_HCHAR,
  205. +        X11_VTIC, X11_HTIC, X11_init, X11_reset,
  206. +        X11_text, null_scale, X11_graphics, X11_move, X11_vector,
  207. +        X11_linetype, X11_put_text, X11_text_angle, 
  208.          null_justify_text, do_point, do_arrow}
  209.   #endif
  210. @EOF
  211.  
  212. chmod 666 term.c.diff
  213.  
  214. echo x - X11.trm.color
  215. cat >X11.trm.color <<'@EOF'
  216. /* GNUPLOT - X11.trm */
  217. /*
  218.  * Copyright (C) 1990   
  219.  *
  220.  * Permission to use, copy, and distribute this software and its
  221.  * documentation for any purpose with or without fee is hereby granted, 
  222.  * provided that the above copyright notice appear in all copies and 
  223.  * that both that copyright notice and this permission notice appear 
  224.  * in supporting documentation.
  225.  *
  226.  * Permission to modify the software is granted, but not the right to
  227.  * distribute the modified code.  Modifications are to be distributed 
  228.  * as patches to released version.
  229.  *  
  230.  * This software  is provided "as is" without express or implied warranty.
  231.  * 
  232.  * This file is included by ../term.c.
  233.  *
  234.  * This terminal driver supports:
  235.  *  X Windows Version 11, revision 3
  236.  *
  237.  * AUTHOR
  238.  *  Robert Thompson
  239.  *  Hewlett Packard - Manufacturing Test Division, Loveland Colorado
  240.  * 
  241.  * send your comments or suggestions to (pixar!info-gnuplot@sun.com).
  242.  * 
  243.  */
  244.  
  245. /********************************************************************
  246.  *
  247.  *  THIS IS FOR COLOR WORKSTATIONS ONLY.  
  248.  *
  249.  ********************************************************************/
  250.  
  251. #include <X11/Xlib.h>
  252. #include <X11/X.h>
  253. #include <X11/cursorfont.h>
  254.  
  255. #define X11_FONT     "vtsingle"    /* Font Name to use        */
  256. #define X11_CURSOR    XC_hand2
  257.  
  258. #define X11_XMAX 900
  259. #define X11_YMAX 850
  260.  
  261. #define X11_XLAST (1)
  262. #define X11_YLAST (1)
  263.  
  264. #define X11_VCHAR    13        /* Don't forget to change this     */
  265. #define X11_HCHAR    8        /* with the font        */
  266. #define X11_VTIC    (X11_YMAX/85)        
  267. #define X11_HTIC    (X11_XMAX/90)        
  268.  
  269. int X11_ang = 0;
  270.  
  271. extern float    xsize, ysize;
  272. int        changed_by_X11trm;
  273.  
  274. static char    X11_FOREGROUND[][20] = {
  275.         "green",        /* pen 1    */
  276.         "cyan",            /* pen 2    */
  277.         "blue",            /* pen 3    */
  278.         "magenta",        /* pen 4    */
  279.         "yellow",        /* pen 5    */
  280.         "red",            /* pen 6    */
  281.         "white",        /* pen 7    */
  282.         "orchid",        /* pen 8    */
  283.         "orange",        /* pen 9    */
  284.         "pink",            /* pen 10    */
  285.         "SkyBlue",        /* pen 11    */
  286.         "LimeGreen",        /* pen 12    */
  287.         "LightSteelBlue",    /* pen 13    */
  288.         "aquamarine"        /* pen 14    */
  289.         };
  290.  
  291. #define NUMCOLORS    14
  292. #define X11_BACKGROUND    "DarkSlateGray"    /* choose a neutral bg    */
  293.  
  294. Window        win;    /* The window that we will be using    */
  295. Display        *dis;    /* And the display            */
  296. GC        gc;    /* The graphics context            */
  297. XFontStruct    *font;    /* The font structure to use        */
  298. Colormap    cmap;    /* The colormap                */
  299. XColor         fgc[NUMCOLORS],        /* An array of colors    */
  300.         bgc,    /* And the background color        */
  301.         dummy;    /* Duh                    */
  302.  
  303. int        lastx, lasty, lastw, lasth;
  304. unsigned int    width, height;
  305.  
  306. X11_init()
  307. {
  308.     char            *getenv();
  309.     register int        cn;
  310.     XSetWindowAttributes    attr;
  311.     unsigned int        x, y, bw, d;
  312.     Window            root;
  313.  
  314.     dis         = XOpenDisplay(getenv("DISPLAY"));
  315.     font        = XLoadQueryFont(dis,X11_FONT);
  316.     attr.cursor     = XCreateFontCursor(dis,X11_CURSOR);
  317.     attr.backing_store = Always;
  318.     attr.backing_planes = AllPlanes;
  319.  
  320.     win         = XCreateSimpleWindow(dis,
  321.                 RootWindow(dis,DefaultScreen(dis)),
  322.                 0,
  323.                 0,
  324.                 X11_XMAX+10,
  325.                 X11_YMAX+10,
  326.                 2,
  327.                 WhitePixel(dis,DefaultScreen(dis)),
  328.                 BlackPixel(dis,DefaultScreen(dis)));
  329.                 
  330.     gc        = DefaultGC(dis,DefaultScreen(dis));
  331.     cmap        = DefaultColormap(dis,DefaultScreen(dis));
  332.  
  333.     if (XAllocNamedColor(dis,cmap,X11_BACKGROUND,&bgc,&dummy)
  334.     ==BadColor)
  335.         {
  336.         printf ("Could not allocate color %s\n",X11_BACKGROUND);
  337.         exit(0);
  338.         }
  339.  
  340.     for (cn = 0;cn < NUMCOLORS;cn++)
  341.         {
  342.         if (XAllocNamedColor(dis,cmap,X11_FOREGROUND[cn],
  343.         &fgc[cn],&dummy)==BadColor) {
  344.         printf ("Could not allocate color %s\n",X11_FOREGROUND[cn]);
  345.         }
  346.     }
  347.  
  348.     XChangeWindowAttributes(dis,win,
  349.             CWCursor|CWBackingStore|CWBackingPlanes,&attr);
  350.     XSetWindowBackground(dis,win,bgc);
  351.  
  352.     XSetFont(dis,gc,font->fid);
  353.     XSetForeground(dis,gc,fgc[1].pixel);
  354.  
  355.     XSetIconName(dis,win,"Gnuplot");
  356.     XStoreName(dis,win,"Gnuplot Plotting Surface");
  357.  
  358.     XMapWindow(dis,win);
  359.     XFlush(dis);
  360.  
  361.     XGetGeometry(dis,win,&root,&x,&y,&width,&height,&bw,&d);
  362.  
  363.     lastw = width;
  364.     lasth = height;
  365. }
  366.  
  367. X11_graphics()
  368. {
  369.         register struct termentry *t = &term_tbl[term];
  370.     unsigned int            x, y, bw, d;
  371.     Window                root;
  372.  
  373.     XGetGeometry(dis,win,&root,&x,&y,&width,&height,&bw,&d);
  374.  
  375.     if (lastw != width || lasth != height)
  376.         {
  377.         register struct termentry *t = &term_tbl[term];
  378.  
  379.         t->xmax = (unsigned int)(width);
  380.         t->ymax = (unsigned int)(height);
  381.         }
  382.  
  383.     XClearWindow(dis,win);
  384.     XSetForeground(dis,gc,BlackPixel(dis,DefaultScreen(dis)));
  385.     XDrawImageString(dis,win,gc,
  386.         width-X11_HCHAR*14,X11_VCHAR+2," Plotting ",10);
  387.     XFlush(dis);
  388.     X11_ang = 0;
  389. }
  390.  
  391. X11_text()
  392. {
  393.     XClearArea(dis,win, 
  394.         width-X11_HCHAR*14,2,
  395.         X11_HCHAR*10,X11_VCHAR+4,True);
  396.     XFlush(dis);
  397. }
  398.  
  399.  
  400. X11_linetype(linetype)
  401. int linetype;
  402. {
  403.     if (linetype < 0)
  404.         XSetForeground(dis,gc,WhitePixel(dis,DefaultScreen(dis)));
  405.     else
  406.         XSetForeground(dis,gc,fgc[linetype%NUMCOLORS].pixel);
  407. }
  408.  
  409. X11_move(x,y)
  410. int x,y;
  411. {
  412.     lastx = x;
  413.     lasty = height-y;
  414. }
  415.  
  416.  
  417. X11_vector(x,y)
  418. int x,y;
  419. {
  420.     XDrawLine(dis,win,gc, lastx, lasty, x, height -y );
  421.     XFlush(dis);
  422.  
  423.     lastx = x;
  424.     lasty = height-y;
  425. }
  426.  
  427.  
  428. X11_put_text(x,y,str)
  429. int x, y;
  430. char *str;
  431. {
  432.     XDrawString(dis,win,gc,x,height-y,str,strlen(str));
  433.     XFlush(dis);
  434. }
  435.  
  436. int X11_text_angle(ang)
  437. int ang;
  438. {
  439.     return FALSE;
  440. }
  441.  
  442. X11_reset()
  443. {
  444.     XDestroyWindow(dis,win);
  445.     XFreeColormap(dis,cmap);
  446. }
  447.  
  448. @EOF
  449.  
  450. chmod 666 X11.trm.color
  451.  
  452. echo x - X11.trm.mono
  453. cat >X11.trm.mono <<'@EOF'
  454. /* GNUPLOT - X11.trm */
  455. /*
  456.  * Copyright (C) 1990   
  457.  *
  458.  * Permission to use, copy, and distribute this software and its
  459.  * documentation for any purpose with or without fee is hereby granted, 
  460.  * provided that the above copyright notice appear in all copies and 
  461.  * that both that copyright notice and this permission notice appear 
  462.  * in supporting documentation.
  463.  *
  464.  * Permission to modify the software is granted, but not the right to
  465.  * distribute the modified code.  Modifications are to be distributed 
  466.  * as patches to released version.
  467.  *  
  468.  * This software  is provided "as is" without express or implied warranty.
  469.  * 
  470.  * This file is included by ../term.c.
  471.  *
  472.  * This terminal driver supports:
  473.  *  X Windows Version 11, revision 3
  474.  *
  475.  * AUTHOR
  476.  *  Robert Thompson
  477.  *  Hewlett Packard - Manufacturing Test Division, Loveland Colorado
  478.  * 
  479.  * send your comments or suggestions to (pixar!info-gnuplot@sun.com).
  480.  * 
  481.  */
  482.  
  483. /********************************************************************
  484.  *
  485.  *  THIS IS FOR MONOCHROME WORKSTATIONS ONLY.  
  486.  *
  487.  ********************************************************************/
  488.  
  489. #include <X11/Xlib.h>
  490. #include <X11/X.h>
  491. #include <X11/cursorfont.h>
  492.  
  493. #define X11_FONT     "vtsingle"    /* Font Name to use        */
  494. #define X11_CURSOR    XC_hand2
  495.  
  496. #define X11_XMAX 900
  497. #define X11_YMAX 850
  498.  
  499. #define X11_XLAST (1)
  500. #define X11_YLAST (1)
  501.  
  502. #define X11_VCHAR    13        /* Don't forget to change this     */
  503. #define X11_HCHAR    8        /* with the font        */
  504. #define X11_VTIC    (X11_YMAX/85)        
  505. #define X11_HTIC    (X11_XMAX/90)        
  506.  
  507. int X11_ang = 0;
  508.  
  509. extern float    xsize, ysize;
  510. int        changed_by_X11trm;
  511.  
  512. Window        win;    /* The window that we will be using    */
  513. Display        *dis;    /* And the display            */
  514. GC        gc;    /* The graphics context            */
  515. XFontStruct    *font;    /* The font structure to use        */
  516.  
  517. int        lastx, lasty, lastw, lasth;
  518. unsigned int    width, height;
  519.  
  520. X11_init()
  521. {
  522.     char            *getenv();
  523.     register int        cn;
  524.     XSetWindowAttributes    attr;
  525.     unsigned int        x, y, bw, d;
  526.     Window            root;
  527.  
  528.     dis         = XOpenDisplay(getenv("DISPLAY"));
  529.     font        = XLoadQueryFont(dis,X11_FONT);
  530.     attr.cursor     = XCreateFontCursor(dis,X11_CURSOR);
  531.     attr.backing_store = Always;
  532.     attr.backing_planes = AllPlanes;
  533.  
  534.     win         = XCreateSimpleWindow(dis,
  535.                 RootWindow(dis,DefaultScreen(dis)),
  536.                 0,
  537.                 0,
  538.                 X11_XMAX+10,
  539.                 X11_YMAX+10,
  540.                 2,
  541.                 WhitePixel(dis,DefaultScreen(dis)),
  542.                 BlackPixel(dis,DefaultScreen(dis)));
  543.                 
  544.     gc        = DefaultGC(dis,DefaultScreen(dis));
  545.  
  546.     XChangeWindowAttributes(dis,win,
  547.             CWCursor|CWBackingStore|CWBackingPlanes,&attr);
  548.  
  549.     XSetFont(dis,gc,font->fid);
  550.     XSetForeground(dis,gc,WhitePixel(dis,DefaultScreen(dis));
  551.  
  552.     XSetIconName(dis,win,"Gnuplot");
  553.     XStoreName(dis,win,"Gnuplot Plotting Surface");
  554.  
  555.     XMapWindow(dis,win);
  556.     XFlush(dis);
  557.  
  558.     XGetGeometry(dis,win,&root,&x,&y,&width,&height,&bw,&d);
  559.  
  560.     lastw = width;
  561.     lasth = height;
  562. }
  563.  
  564. X11_graphics()
  565. {
  566.         register struct termentry *t = &term_tbl[term];
  567.     unsigned int            x, y, bw, d;
  568.     Window                root;
  569.  
  570.     XGetGeometry(dis,win,&root,&x,&y,&width,&height,&bw,&d);
  571.  
  572.     if (lastw != width || lasth != height)
  573.         {
  574.         register struct termentry *t = &term_tbl[term];
  575.  
  576.         t->xmax = (unsigned int)(width);
  577.         t->ymax = (unsigned int)(height);
  578.         }
  579.  
  580.     XClearWindow(dis,win);
  581.     XSetForeground(dis,gc,BlackPixel(dis,DefaultScreen(dis)));
  582.     XDrawImageString(dis,win,gc,
  583.         width-X11_HCHAR*14,X11_VCHAR+2," Plotting ",10);
  584.     XFlush(dis);
  585.     X11_ang = 0;
  586. }
  587.  
  588. X11_text()
  589. {
  590.     XClearArea(dis,win, 
  591.         width-X11_HCHAR*14,2,
  592.         X11_HCHAR*10,X11_VCHAR+4,True);
  593.     XFlush(dis);
  594. }
  595.  
  596.  
  597. X11_linetype(linetype)
  598. int linetype;
  599. {
  600.         XSetForeground(dis,gc,WhitePixel(dis,DefaultScreen(dis)));
  601. }
  602.  
  603. X11_move(x,y)
  604. int x,y;
  605. {
  606.     lastx = x;
  607.     lasty = height-y;
  608. }
  609.  
  610.  
  611. X11_vector(x,y)
  612. int x,y;
  613. {
  614.     XDrawLine(dis,win,gc, lastx, lasty, x, height -y );
  615.     XFlush(dis);
  616.  
  617.     lastx = x;
  618.     lasty = height-y;
  619. }
  620.  
  621.  
  622. X11_put_text(x,y,str)
  623. int x, y;
  624. char *str;
  625. {
  626.     XDrawString(dis,win,gc,x,height-y,str,strlen(str));
  627.     XFlush(dis);
  628. }
  629.  
  630. int X11_text_angle(ang)
  631. int ang;
  632. {
  633.     return FALSE;
  634. }
  635.  
  636. X11_reset()
  637. {
  638.     XDestroyWindow(dis,win);
  639. }
  640.  
  641. @EOF
  642.  
  643. chmod 666 X11.trm.mono
  644.  
  645. exit 0
  646.  
  647. dan
  648. ----------------------------------------------------
  649. O'Reilly && Associates   argv@sun.com / argv@ora.com
  650. Opinions expressed reflect those of the author only.
  651.