[BACK]Return to xdeb.c CVS log [TXT][DIR] Up to [local] / OpenXM_contrib2 / asir2000 / parse

Diff for /OpenXM_contrib2/asir2000/parse/xdeb.c between version 1.4 and 1.13

version 1.4, 2000/08/22 05:04:28 version 1.13, 2004/03/01 05:48:24
Line 45 
Line 45 
  * 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.3 2000/08/21 08:31:48 noro Exp $   * $OpenXM: OpenXM_contrib2/asir2000/parse/xdeb.c,v 1.12 2004/02/29 08:30:31 noro Exp $
 */  */
 #if defined(VISUAL)  #if defined(VISUAL)
 #if defined(VISUAL_LIB)  #if defined(VISUAL_LIB)
Line 90  void show_debug_window(int on)
Line 90  void show_debug_window(int on)
 {}  {}
 #endif  #endif
 #else /* VISUAL */  #else /* VISUAL */
 #if DO_PLOT  #if defined(DO_PLOT)
 /*  /*
  *      xdeb.c --- Asir Debug interface.   *      xdeb.c --- Asir Debug interface.
  *   *
Line 114  static String fallback[] = {
Line 114  static String fallback[] = {
 };  };
   
 static void Done();  static void Done();
   static void Quit();
 static void SetSelected();  static void SetSelected();
   static void SetDismiss();
   
 static XtActionsRec actions_table[] = {  static XtActionsRec actions_table[] = {
         {"done",Done},          {"done",Done},
           {"quit",Quit},
 };  };
   
 char debug_cmd[BUFSIZ];  char debug_cmd[BUFSIZ];
Line 129  static Display *display;
Line 132  static Display *display;
   
 void get_cmd();  void get_cmd();
   
 static void Done(w,e,p,n)  static void Done(Widget w,XEvent *e,String *p,Cardinal *n)
 Widget w;  
 XEvent *e;  
 String *p;  
 Cardinal *n;  
 {  {
         SetSelected(w,0,0);          SetSelected(w,0,0);
 }  }
   
 static void SetSelected(w,cld,cad)  static void SetSelected(Widget w,XtPointer cld,XtPointer cad)
 Widget w;  
 XtPointer cld,cad;  
 {  {
         Arg             arg[5];          Arg             arg[5];
         char *cmd;          char *cmd;
Line 152  XtPointer cld,cad;
Line 149  XtPointer cld,cad;
         XtSetValues(cmdwin, arg, 1);          XtSetValues(cmdwin, arg, 1);
 }  }
   
 init_cmdwin()  static void SetDismiss(Widget w,XtPointer cld,XtPointer cad)
 {  {
         Arg             arg[5];          Arg             arg[5];
           char *cmd;
   
           done = 1;
           cmd = XawDialogGetValueString(cmdwin);
           strcpy(debug_cmd,"quit");
           XtSetArg(arg[0], XtNvalue, "");
           XtSetValues(cmdwin, arg, 1);
   }
   
   static Atom wm_delete_window;
   static void Quit(Widget w, XEvent *ev, String *params,Cardinal *nparams)
   {
           XBell(XtDisplay(w),0);
   }
   
   void init_cmdwin()
   {
           Arg             arg[5];
         int argc=0;          int argc=0;
         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;
           static int is_init = 0;
   
           if ( is_init )
                   return;
         if ( !displayname[0] ) {          if ( !displayname[0] ) {
                 d = (char *)getenv("DISPLAY");                  d = (char *)getenv("DISPLAY");
                 if ( d )                  if ( d )
Line 169  init_cmdwin()
Line 188  init_cmdwin()
                 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;
                   wm_delete_window = XInternAtom(XtDisplay(toplevel), "WM_DELETE_WINDOW",
                           False);
   
                   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);
                   XtOverrideTranslations(mainwin,
                                           XtParseTranslationTable("<Message>WM_PROTOCOLS: quit()"));
         /*          /*
          *      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++;
                 XtSetValues(cmdwin, arg, n);                  XtSetValues(cmdwin, arg, n);
                 XtRealizeWidget(mainwin);                  XtRealizeWidget(mainwin);
                   XSetWMProtocols(XtDisplay(mainwin),XtWindow(mainwin),
                           &wm_delete_window,1);
         }          }
           is_init = 1;
 }  }
   
 show_debug_window(on)  void show_debug_window(int on)
 int on;  
 {  {
         XEvent ev;          XEvent ev;
   
           init_cmdwin();
         if ( mainwin ) {          if ( mainwin ) {
                 if ( on )                  if ( on )
                         XtPopup(mainwin,XtGrabNone);                          XtPopup(mainwin,XtGrabNone);
Line 214  int on;
Line 246  int on;
         }          }
 }  }
   
 get_line(buf)  void get_line(char *buf)
 char *buf;  
 {  {
         XEvent ev;          XEvent ev;
   
Line 227  char *buf;
Line 258  char *buf;
         strcpy(buf,debug_cmd);          strcpy(buf,debug_cmd);
 }  }
 #else /* DO_PLOT */  #else /* DO_PLOT */
 init_cmdwin() {}  void init_cmdwin() {}
   
 show_debug_window(on)  void show_debug_window(int on)
 int on;  
 {}  {}
   
 get_line(buf)  void get_line(buf)
 char *buf;  char *buf;
 {}  {}
 #endif /* DO_PLOT */  #endif /* DO_PLOT */
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.13
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>