| version 1.3, 2000/08/21 08:31:48 | version 1.6, 2000/09/25 04:33:38 | 
|  |  | 
| * shall be made on your publication or presentation in any form of the | * shall be made on your publication or presentation in any form of the | 
| * results obtained by use of the SOFTWARE. | * results obtained by use of the SOFTWARE. | 
| * (4) In the event that you modify the SOFTWARE, you shall notify FLL by | * (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 | * for such modification or the source code of the modified part of the | 
| * SOFTWARE. | * SOFTWARE. | 
| * | * | 
|  |  | 
| * DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE, | * DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE, | 
| * PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE. | * PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE. | 
| * | * | 
| * $OpenXM: OpenXM_contrib2/asir2000/parse/xdeb.c,v 1.2 2000/02/08 04:47:12 noro Exp $ | * $OpenXM: OpenXM_contrib2/asir2000/parse/xdeb.c,v 1.5 2000/09/23 05:45:49 noro Exp $ | 
| */ | */ | 
| #if defined(VISUAL) | #if defined(VISUAL) | 
| #if defined(VISUAL_LIB) | #if defined(VISUAL_LIB) | 
| 
| Line 115  static String fallback[] = { |  | 
| Line 115  static String fallback[] = { |  | 
|  |  | 
| static void Done(); | static void Done(); | 
| static void SetSelected(); | static void SetSelected(); | 
|  | static void SetDismiss(); | 
|  |  | 
| static XtActionsRec actions_table[] = { | static XtActionsRec actions_table[] = { | 
| {"done",Done}, | {"done",Done}, | 
| 
| Line 152  XtPointer cld,cad; |  | 
| Line 153  XtPointer cld,cad; |  | 
| XtSetValues(cmdwin, arg, 1); | XtSetValues(cmdwin, arg, 1); | 
| } | } | 
|  |  | 
|  | static void SetDismiss(w,cld,cad) | 
|  | Widget w; | 
|  | XtPointer cld,cad; | 
|  | { | 
|  | Arg             arg[5]; | 
|  | char *cmd; | 
|  |  | 
|  | done = 1; | 
|  | cmd = XawDialogGetValueString(cmdwin); | 
|  | strcpy(debug_cmd,"quit"); | 
|  | XtSetArg(arg[0], XtNvalue, ""); | 
|  | XtSetValues(cmdwin, arg, 1); | 
|  | } | 
|  |  | 
| init_cmdwin() | init_cmdwin() | 
| { | { | 
| Arg             arg[5]; | Arg             arg[5]; | 
|  |  | 
| char *argv[1]; | char *argv[1]; | 
| int n; | int n; | 
| char *d; | char *d; | 
|  | char hostname[BUFSIZ],title[BUFSIZ]; | 
| extern char displayname[]; | extern char displayname[]; | 
| extern int do_server_in_X11; | extern int do_server_in_X11; | 
|  |  | 
|  |  | 
| else | else | 
| do_server_in_X11 = 0; | do_server_in_X11 = 0; | 
| } | } | 
|  | gethostname(hostname, BUFSIZ); | 
|  | sprintf(title,"Asir debugger:%s",hostname); | 
| if ( displayname[0] ) { | if ( displayname[0] ) { | 
| argv[0] = 0; | argv[0] = 0; | 
| XtToolkitInitialize(); | XtToolkitInitialize(); | 
| app_con = XtCreateApplicationContext(); | app_con = XtCreateApplicationContext(); | 
| XtAppAddActions(app_con,actions_table, XtNumber(actions_table)); | XtAppAddActions(app_con,actions_table, XtNumber(actions_table)); | 
| XtAppSetFallbackResources(app_con,fallback); | XtAppSetFallbackResources(app_con,fallback); | 
| display = XtOpenDisplay(app_con,displayname,"ox_asir_debug_window","ox_asir_debug_window", | display = XtOpenDisplay(app_con,displayname,title,title, | 
| options,XtNumber(options),&argc,argv); | options,XtNumber(options),&argc,argv); | 
| toplevel = XtAppCreateShell(0,"ox_asir_debug_window",applicationShellWidgetClass, | toplevel = XtAppCreateShell(0,title,applicationShellWidgetClass, | 
| display,0,0); | display,0,0); | 
| XtSetArg(arg[0],XtNiconName,"ox_asir_debug_window"); | n = 0; | 
|  | XtSetArg(arg[n],XtNiconName,title); n++; | 
|  | XtSetArg(arg[n], XtNwidth, 360); n++; | 
| mainwin = XtCreatePopupShell("shell",topLevelShellWidgetClass, | mainwin = XtCreatePopupShell("shell",topLevelShellWidgetClass, | 
| toplevel,arg,1); | toplevel,arg,n); | 
| /* | /* | 
| *      Command line | *      Command line | 
| */ | */ | 
| cmdwin = XtCreateManagedWidget("cmdwin", dialogWidgetClass, | cmdwin = XtCreateManagedWidget("cmdwin", dialogWidgetClass, | 
| mainwin, NULL, 0); | mainwin, NULL, 0); | 
| XawDialogAddButton(cmdwin,"OK",SetSelected,"OK"); | XawDialogAddButton(cmdwin,"Execute",SetSelected,"Execute"); | 
|  | XawDialogAddButton(cmdwin,"Dismiss",SetDismiss,"Dismiss"); | 
| n = 0; | n = 0; | 
| XtSetArg(arg[n], XtNlabel, "Command : "); n++; | XtSetArg(arg[n], XtNlabel, "Command : "); n++; | 
| XtSetArg(arg[n], XtNvalue, ""); n++; | XtSetArg(arg[n], XtNvalue, ""); n++; |