| 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++; |