===================================================================
RCS file: /home/cvs/OpenXM_contrib2/asir2000/plot/ox_plot_xevent.c,v
retrieving revision 1.2
retrieving revision 1.7
diff -u -p -r1.2 -r1.7
--- OpenXM_contrib2/asir2000/plot/ox_plot_xevent.c	2000/08/21 08:31:51	1.2
+++ OpenXM_contrib2/asir2000/plot/ox_plot_xevent.c	2000/10/15 10:58:11	1.7
@@ -23,7 +23,7 @@
  * shall be made on your publication or presentation in any form of the
  * results obtained by use of the SOFTWARE.
  * (4) In the event that you modify the SOFTWARE, you shall notify FLL by
- * e-mail at risa-admin@flab.fujitsu.co.jp of the detailed specification
+ * e-mail at risa-admin@sec.flab.fujitsu.co.jp of the detailed specification
  * for such modification or the source code of the modified part of the
  * SOFTWARE.
  * 
@@ -45,7 +45,7 @@
  * DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE,
  * PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE.
  *
- * $OpenXM: OpenXM_contrib2/asir2000/plot/ox_plot_xevent.c,v 1.1.1.1 1999/12/03 07:39:13 noro Exp $ 
+ * $OpenXM: OpenXM_contrib2/asir2000/plot/ox_plot_xevent.c,v 1.6 2000/10/15 06:56:52 takayama Exp $ 
 */
 #include "ca.h"
 #include "parse.h"
@@ -335,6 +335,192 @@ search_active_canvas()
 	return -1;
 }
 
+	 
+static struct canvas *Can;
+/* void print_canvas(Widget w,struct canvas *can, XtPointer calldata); */
+static void output_to_file(Widget , XtPointer, XtPointer );
+static void output_to_ps_printer(Widget , XtPointer, XtPointer );
+static void cancel_output_to_file(Widget , XtPointer,XtPointer);
+static void generate_psfile(struct canvas *can, FILE *fp);
+static Widget PrintDialog;
+static Widget PrintDialog_lp;
+static Widget W;
+static char *Fname = NULL;
+static char *PrinterName = NULL;
+
+static void print_canvas(w,can,calldata)
+	 Widget w;
+	 struct canvas *can;
+	 XtPointer calldata;
+{
+  Widget fshell,fdialog;
+  extern struct canvas *Can;
+  extern Widget W;
+  static void output_to_printer();
+  static void print_canvas_to_file();
+
+  W = w;
+  Can = can;
+  create_popup(can->shell,"Print/Output PS file","",&fshell,&fdialog);
+  XawDialogAddButton(fdialog,"print",output_to_printer,w);
+  XawDialogAddButton(fdialog,"Output PS file",print_canvas_to_file,w);
+  XawDialogAddButton(fdialog,"dismiss",cancel_output_to_file,w);
+  XtSetSensitive(w,False); XtPopup(fshell,XtGrabNone); 
+}
+static void print_canvas_to_file(w,can,calldata)
+	 Widget w;
+	 struct canvas *can;
+	 XtPointer calldata;
+{
+  FILE *fp;
+  Arg arg[10];
+  int n;
+  static char *psfile = NULL;
+  Widget fshell,fdialog;
+  extern struct canvas *Can;
+  extern Widget PrintDialog;
+  extern char *Fname;
+
+  w = W;
+  can = Can;
+  if (psfile == NULL || Fname == NULL) psfile = "ox_plot.eps"; 
+  else psfile = Fname;  /* BUG */
+  create_popup(can->shell,"Output as PS file",psfile,&fshell,&fdialog);
+  n = 0;
+  XtSetArg(arg[n], XtNlabel, "File : "); n++;
+  XtSetArg(arg[n], XtNvalue, psfile); n++;
+  XtSetValues(fdialog,arg,n); 
+  XawDialogAddButton(fdialog,"output to file",output_to_file,w);
+  XawDialogAddButton(fdialog,"cancel",cancel_output_to_file,w);
+  PrintDialog = fdialog;
+  XtSetSensitive(w,False); XtPopup(fshell,XtGrabNone);
+}
+static void output_to_printer(w,can,calldata)
+	 Widget w;
+	 struct canvas *can;
+	 XtPointer calldata;
+{
+  FILE *fp;
+  Arg arg[10];
+  int n;
+  static char *psfile = NULL;
+  Widget fshell,fdialog;
+  extern struct canvas *Can;
+  extern Widget PrintDialog_lp;
+  extern char *PrinterName;
+
+  w = W;
+  can = Can;
+  if (psfile  == NULL || PrinterName == NULL) psfile = "lp";
+  else psfile = PrinterName;  /* BUG */
+  create_popup(can->shell,"Output PS file to printer",psfile,&fshell,&fdialog);
+  n = 0;
+  XtSetArg(arg[n], XtNlabel, "PS Printer Name : "); n++;
+  XtSetArg(arg[n], XtNvalue, psfile); n++;
+  XtSetValues(fdialog,arg,n); 
+  XawDialogAddButton(fdialog,"output to PS printer",output_to_ps_printer,w);
+  XawDialogAddButton(fdialog,"cancel",cancel_output_to_file,w);
+  PrintDialog_lp = fdialog;
+  XtSetSensitive(w,False); XtPopup(fshell,XtGrabNone);
+}
+
+static void cancel_output_to_file(w,fbutton,call) 
+	 Widget w;
+	 XtPointer fbutton, call;
+{
+  Widget shell = XtParent(XtParent(w));
+  XtPopdown(shell); XtDestroyWidget(shell);
+  XtSetSensitive(fbutton,True);
+}
+
+static void output_to_file(w,fbutton,call) 
+	 Widget w;
+	 XtPointer fbutton, call;
+{
+  char *fname;
+  FILE *fp;
+  extern struct canvas *Can;
+  extern Widget PrintDialog;
+  Widget shell = XtParent(XtParent(w));
+
+  fname = XawDialogGetValueString(PrintDialog);
+  Fname = fname;
+  fprintf(stderr,"fname=%s\n",fname); fflush(NULL);
+  fp = fopen(fname,"w");
+  if (fp == NULL) {
+	warning(Can,"Could not open the output file.");
+  }else{
+	generate_psfile(Can,fp);
+	fclose(fp);
+  }
+
+  XtPopdown(shell); XtDestroyWidget(shell);
+  XtSetSensitive(fbutton,True);
+}
+
+static void output_to_ps_printer(w,fbutton,call) 
+	 Widget w;
+	 XtPointer fbutton, call;
+{
+  char *printerName;
+  FILE *fp;
+  extern struct canvas *Can;
+  extern Widget PrintDialog_lp;
+  char fname[256];
+  char cmd[512];
+  static int id = 0;
+  Widget shell = XtParent(XtParent(w));
+
+  sprintf(fname,"/tmp/ox_plot_%d.eps",(int) getpid(),id++);
+
+  printerName = XawDialogGetValueString(PrintDialog_lp);
+  PrinterName = printerName;
+  fprintf(stderr,"printerName=%s\n",printerName); fflush(NULL);
+  fp = fopen(fname,"w");
+  if (fp == NULL) {
+	warning(Can,"Could not open the output file.");
+  }else{
+	generate_psfile(Can,fp);
+	fclose(fp);
+  }
+
+  sprintf(cmd,"lpr -P%s %s",printerName,fname);
+  if (system(cmd)) {
+	warning(Can,"Unknown printer?");
+  }
+  sprintf(cmd,"rm -f %s",fname);
+  system(cmd);
+  XtPopdown(shell); XtDestroyWidget(shell);
+  XtSetSensitive(fbutton,True);
+}
+
+
+/* test sequence
+   ox_launch(0,"ox_plot");
+   ifplot(x^2-y^3);
+   drawcircle(0,0,100,0,0);
+   */
+static void generate_psfile(can,fp)
+	 struct canvas *can;
+	 FILE *fp;
+{
+  int x,y;
+  XImage *image;
+  int color[1];
+  int colorSize = 1;
+  fprintf(stderr,"generate_psfile\n"); 
+  if ( display ) {
+	fprintf(stderr,"generate_psfile: output to a file.\n"); 
+	image = XGetImage(display,can->pix,
+					  0,0,can->width,can->height,-1,ZPixmap);
+	color[0] = 0; /* balck line */
+	generatePS_from_image(fp,image,can->width,can->height,color,colorSize,can);
+  }else{
+	fprintf(stderr,"Cannot print on this system\n");
+  }
+  fflush(NULL);
+}
+
 void destroy_canvas(w,can,calldata)
 Widget w;
 struct canvas *can;
@@ -494,7 +680,7 @@ struct canvas *can;
 {
 	XEvent event;
 	Widget box,frame,commands,
-		coords,quit,wide,precise,canvas,formula;
+		coords,quit,print,wide,precise,canvas,formula;
 	Window window;
 	Pixmap pix;
 	int i,width,height;
@@ -522,6 +708,8 @@ struct canvas *can;
 
 	quit = XtCreateManagedWidget("quit",commandWidgetClass,commands,NULL,0);
 	XtAddCallback(quit,XtNcallback,destroy_canvas,can);
+	print = XtCreateManagedWidget("print",commandWidgetClass,commands,NULL,0);
+	XtAddCallback(print,XtNcallback,print_canvas,can);
 	can->wideb = wide = 
 		XtCreateManagedWidget("wide",toggleWidgetClass,commands,NULL,0);
 	XtAddCallback(wide,XtNcallback,wide_canvas,can);