=================================================================== RCS file: /home/cvs/OpenXM_contrib2/asir2000/plot/ox_plot_xevent.c,v retrieving revision 1.1 retrieving revision 1.7 diff -u -p -r1.1 -r1.7 --- OpenXM_contrib2/asir2000/plot/ox_plot_xevent.c 1999/12/03 07:39:13 1.1 +++ OpenXM_contrib2/asir2000/plot/ox_plot_xevent.c 2000/10/15 10:58:11 1.7 @@ -1,4 +1,52 @@ -/* $OpenXM: OpenXM/src/asir99/plot/ox_plot_xevent.c,v 1.1.1.1 1999/11/10 08:12:34 noro Exp $ */ +/* + * Copyright (c) 1994-2000 FUJITSU LABORATORIES LIMITED + * All rights reserved. + * + * FUJITSU LABORATORIES LIMITED ("FLL") hereby grants you a limited, + * non-exclusive and royalty-free license to use, copy, modify and + * redistribute, solely for non-commercial and non-profit purposes, the + * computer program, "Risa/Asir" ("SOFTWARE"), subject to the terms and + * conditions of this Agreement. For the avoidance of doubt, you acquire + * only a limited right to use the SOFTWARE hereunder, and FLL or any + * third party developer retains all rights, including but not limited to + * copyrights, in and to the SOFTWARE. + * + * (1) FLL does not grant you a license in any way for commercial + * purposes. You may use the SOFTWARE only for non-commercial and + * non-profit purposes only, such as academic, research and internal + * business use. + * (2) The SOFTWARE is protected by the Copyright Law of Japan and + * international copyright treaties. If you make copies of the SOFTWARE, + * with or without modification, as permitted hereunder, you shall affix + * to all such copies of the SOFTWARE the above copyright notice. + * (3) An explicit reference to this SOFTWARE and its copyright owner + * 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@sec.flab.fujitsu.co.jp of the detailed specification + * for such modification or the source code of the modified part of the + * SOFTWARE. + * + * THE SOFTWARE IS PROVIDED AS IS WITHOUT ANY WARRANTY OF ANY KIND. FLL + * MAKES ABSOLUTELY NO WARRANTIES, EXPRESSED, IMPLIED OR STATUTORY, AND + * EXPRESSLY DISCLAIMS ANY IMPLIED WARRANTY OF MERCHANTABILITY, FITNESS + * FOR A PARTICULAR PURPOSE OR NONINFRINGEMENT OF THIRD PARTIES' + * RIGHTS. NO FLL DEALER, AGENT, EMPLOYEES IS AUTHORIZED TO MAKE ANY + * MODIFICATIONS, EXTENSIONS, OR ADDITIONS TO THIS WARRANTY. + * UNDER NO CIRCUMSTANCES AND UNDER NO LEGAL THEORY, TORT, CONTRACT, + * OR OTHERWISE, SHALL FLL BE LIABLE TO YOU OR ANY OTHER PERSON FOR ANY + * DIRECT, INDIRECT, SPECIAL, INCIDENTAL, PUNITIVE OR CONSEQUENTIAL + * DAMAGES OF ANY CHARACTER, INCLUDING, WITHOUT LIMITATION, DAMAGES + * ARISING OUT OF OR RELATING TO THE SOFTWARE OR THIS AGREEMENT, DAMAGES + * FOR LOSS OF GOODWILL, WORK STOPPAGE, OR LOSS OF DATA, OR FOR ANY + * DAMAGES, EVEN IF FLL SHALL HAVE BEEN INFORMED OF THE POSSIBILITY OF + * SUCH DAMAGES, OR FOR ANY CLAIM BY ANY OTHER PARTY. EVEN IF A PART + * OF THE SOFTWARE HAS BEEN DEVELOPED BY A THIRD PARTY, THE THIRD PARTY + * 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.6 2000/10/15 06:56:52 takayama Exp $ +*/ #include "ca.h" #include "parse.h" #include "ox.h" @@ -287,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; @@ -446,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; @@ -474,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);