home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / usenet / altsrcs / 3 / 3640 < prev    next >
Text File  |  1991-07-16  |  41KB  |  1,170 lines
  1. Newsgroups: alt.sources
  2. From: jtsillas@sprite.ma30.bull.com (James Tsillas)
  3. Subject: mxgdb Part 2/9
  4. Date: 16 Jul 91 13:02:24
  5. Message-ID: <JTSILLAS.91Jul16130224@sprite.ma30.bull.com>
  6.  
  7.  
  8.  
  9. ---- Cut Here and feed the following to sh ----
  10. #!/bin/sh
  11. # this is mxgdb.02 (part 2 of a multipart archive)
  12. # do not concatenate these parts, unpack them in order with /bin/sh
  13. # file mxgdb/calldbx.c continued
  14. #
  15. if test ! -r _shar_seq_.tmp; then
  16.     echo 'Please unpack part 1 first!'
  17.     exit 1
  18. fi
  19. (read Scheck
  20.  if test "$Scheck" != 2; then
  21.     echo Please unpack part "$Scheck" next!
  22.     exit 1
  23.  else
  24.     exit 0
  25.  fi
  26. ) < _shar_seq_.tmp || exit 1
  27. if test ! -f _shar_wnt_.tmp; then
  28.     echo 'x - still skipping mxgdb/calldbx.c'
  29. else
  30. echo 'x - continuing file mxgdb/calldbx.c'
  31. sed 's/^X//' << 'SHAR_EOF' >> 'mxgdb/calldbx.c' &&
  32. X *    call dbx.
  33. X *
  34. X *    open_master():    Open the master side of pty.
  35. X *    open_slave():     Open the slave side of pty.
  36. X *    calldbx():     Invoke dbx.
  37. X */
  38. X
  39. #include    <termio.h>
  40. #include    "global.h"
  41. X
  42. #ifdef SYSV 
  43. #ifdef SCO
  44. #  include        <sys/fcntl.h>
  45. #endif
  46. #endif
  47. X
  48. FILE               *dbxfp = NULL;        /* file pointer to dbx */
  49. int                dbxpid = 0;        /* dbx process id */
  50. #ifdef SYSV 
  51. char            dbxfbuf[BUFSIZ];        
  52. #endif
  53. static int    dbxInputId;        /* dbx input id */
  54. static char     pty[11] = "/dev/pty??";    /* master side of pseudo-terminal */
  55. static char     tty[11] = "/dev/tty??";    /* slave side of pseudo-terminal */
  56. extern char    *dbxprompt;
  57. X
  58. /*
  59. X *  Xdbx talks to dbx through a pseudo terminal which is a pair of master
  60. X *  and slave devices: /dev/pty?? and /dev/tty??, where ?? goes from p0 to
  61. X *  sf (system dependent).  The pty is opened for both read and write.
  62. X */
  63. static int open_master()
  64. {
  65. X    int  i, master; 
  66. X    char c;
  67. X    
  68. #ifndef SCO
  69. X    for (c='p'; c<'t'; c++) {
  70. X    for (i=0; i<16; i++) {
  71. #else
  72. X    c = 'p';
  73. X    for (i=0; i<8; i++) {
  74. #endif
  75. X        pty[8] = c;
  76. X        pty[9] = "0123456789abcdef"[i];
  77. X        if ((master = open(pty, O_RDWR)) >= 0) 
  78. X        return (master); 
  79. X    }
  80. #ifndef SCO
  81. X    }
  82. #endif
  83. X
  84. #ifdef GDB
  85. X    fprintf(stderr, "xxgdb: all ptys in use\n");
  86. #else
  87. X    fprintf(stderr, "xdbx: all ptys in use\n");
  88. #endif
  89. X    exit(1);
  90. }
  91. X
  92. static int open_slave()
  93. {
  94. X    int slave;
  95. X
  96. X    tty[8] = pty[8];
  97. X    tty[9] = pty[9];
  98. X    if ((slave = open(tty, O_RDWR)) >= 0)
  99. X    return (slave);
  100. X    fprintf(stderr, "open: cannot open slave pty %s", tty);
  101. X    exit(1);
  102. }
  103. X
  104. /* ARGSUSED */
  105. void calldbx(argc, argv)
  106. int argc;
  107. char *argv[];
  108. {
  109. X    struct termio Termio;
  110. X    int        master;        /* file descriptor of master pty */
  111. X    int        slave;         /* file descriptor of slave pty */
  112. X    int          fd;             /* file descriptor of controlling tty */
  113. X    int          pid;            /* process id */
  114. X    int          pgrp;            /* process group id */
  115. X    char       *debugger;         /* name of executable debugger */
  116. X    char      errmsg[LINESIZ];
  117. X
  118. #ifdef GDB    /* for GDB, we use XXGDB_DEBUGGER instead */
  119. X    debugger = (char *) getenv("XXGDB_DEBUGGER");    /* first looks up env var */
  120. #else
  121. X    debugger = (char *) getenv("DEBUGGER");    /* first looks up env var */
  122. #endif
  123. X    if (debugger == NULL)
  124. X    debugger = XtNewString(DEBUGGER);
  125. X  
  126. X    /* construct dbx prompt string based on the name of debugger invoked */
  127. X    if (dbxprompt == NULL) {
  128. X    dbxprompt = XtMalloc((4+strlen(debugger)) * sizeof(char));
  129. X    sprintf(dbxprompt, "(%s) ", debugger);
  130. X    }
  131. X  
  132. X    /*
  133. X     * Clear controlling tty.  Do this now, so that open_slave and
  134. X     * open_master will cause the selected pty to become the
  135. X     * controlling tty.
  136. X     */
  137. X    if ((fd = open("/dev/tty", O_RDWR)) > 0) {
  138. #ifndef SYSV 
  139. X    ioctl(fd, TIOCNOTTY, 0);
  140. #endif /* SYSV */
  141. X    close(fd);
  142. X    }
  143. X
  144. X    master = open_master();
  145. X
  146. #ifndef SYSV 
  147. X    slave = open_slave();
  148. #endif
  149. X
  150. X    dbxpid = fork();
  151. X    if (dbxpid == -1) {
  152. #ifdef GDB
  153. X    perror("xxgdb error: cannot fork process");
  154. #else
  155. X    perror("xdbx error: cannot fork process");
  156. #endif
  157. X    exit(1);
  158. X    }
  159. X    else if (dbxpid) { 
  160. X    /* 
  161. X     * Parent : close the slave side of pty
  162. X     *        close stdin and stdout
  163. X     *        set the dbx file descriptor to nonblocking mode
  164. X     *        open file pointer with read/write access to dbx
  165. X     *        set line buffered mode
  166. X     *        register dbx input with X
  167. X     */
  168. X    close(slave);
  169. X    close(0);
  170. X    close(1);
  171. X    fcntl(master, F_SETFL, FNDELAY);
  172. X        dbxfp = (FILE *)fdopen(master, "r+");
  173. X    setvbuf(dbxfp, dbxfbuf, _IONBF, BUFSIZ);
  174. X    dbxInputId = XtAppAddInput(app_context, master, XtInputReadMask, 
  175. X                   read_dbx, NULL);
  176. X    }
  177. X    else { 
  178. X    /* 
  179. X     * Child : close master side of pty
  180. X     *        redirect stdin, stdout, stderr of dbx to pty
  181. X     *       unbuffer output data from dbx
  182. X     *       exec dbx with arguments
  183. X     */
  184. X      
  185. #ifdef SYSV 
  186. X        setpgrp();
  187. X        slave = open_slave();
  188. #endif
  189. X    close(master);
  190. X
  191. X    /*
  192. X     * Modify local and output mode of slave pty
  193. X     */
  194. X
  195. X    ioctl(slave, TCGETA, &Termio);
  196. X    Termio.c_lflag &= ~ECHO;    /* No echo */
  197. X    Termio.c_oflag &= ~ONLCR;    /* Do not map NL to CR-NL on output */
  198. X    ioctl(slave, TCSETA, &Termio);
  199. X
  200. X    dup2(slave, 0);
  201. X    dup2(slave, 1);
  202. X    dup2(slave, 2);
  203. X    if (slave > 2)
  204. X        close(slave);
  205. X
  206. X    fcntl(1, F_SETFL, FAPPEND);
  207. X    setbuf(stdout, NULL);
  208. X
  209. X    /*
  210. X     * Set our process group to that of the terminal,
  211. X     * so we can change the group of the terminal.
  212. X     */
  213. X
  214. X    
  215. X
  216. #ifndef SYSV
  217. X    setpgrp(0, pgrp);
  218. X    /*
  219. X     * Now set the process group of the terminal and of us
  220. X     * to our process id.  This clears us from the control
  221. X     * of the other process group.
  222. X     */
  223. X    pid = getpid();
  224. X    ioctl(0, TIOCSPGRP, &pid);
  225. X    setpgrp(0, pid);
  226. #endif
  227. X
  228. X    argv[0] = debugger;
  229. X    execvp(debugger, argv);
  230. #ifdef GDB
  231. X    sprintf(errmsg, "xxgdb error: cannot exec %s", debugger);
  232. #else
  233. X    sprintf(errmsg, "xdbx error: cannot exec %s", debugger);
  234. #endif
  235. X    perror(errmsg);
  236. X    exit(1);
  237. X    }
  238. }
  239. SHAR_EOF
  240. echo 'File mxgdb/calldbx.c is complete' &&
  241. chmod 0664 mxgdb/calldbx.c ||
  242. echo 'restore of mxgdb/calldbx.c failed'
  243. Wc_c="`wc -c < 'mxgdb/calldbx.c'`"
  244. test 8040 -eq "$Wc_c" ||
  245.     echo 'mxgdb/calldbx.c: original size 8040, current size' "$Wc_c"
  246. rm -f _shar_wnt_.tmp
  247. fi
  248. # ============= mxgdb/bitmaps.h ==============
  249. if test -f 'mxgdb/bitmaps.h' -a X"$1" != X"-c"; then
  250.     echo 'x - skipping mxgdb/bitmaps.h (File already exists)'
  251.     rm -f _shar_wnt_.tmp
  252. else
  253. > _shar_wnt_.tmp
  254. echo 'x - extracting mxgdb/bitmaps.h (Text)'
  255. sed 's/^X//' << 'SHAR_EOF' > 'mxgdb/bitmaps.h' &&
  256. /* $Id: bitmaps.h,v 1.2 1991/06/26 18:42:06 jtsillas Exp $ */
  257. X
  258. /*****************************************************************************
  259. X *
  260. X *  xdbx - X Window System interface to the dbx debugger
  261. X *
  262. X *  Copyright 1989 The University of Texas at Austin
  263. X *  Copyright 1990 Microelectronics and Computer Technology Corporation
  264. X *
  265. X *  Permission to use, copy, modify, and distribute this software and its
  266. X *  documentation for any purpose and without fee is hereby granted,
  267. X *  provided that the above copyright notice appear in all copies and that
  268. X *  both that copyright notice and this permission notice appear in
  269. X *  supporting documentation, and that the name of The University of Texas
  270. X *  and Microelectronics and Computer Technology Corporation (MCC) not be 
  271. X *  used in advertising or publicity pertaining to distribution of
  272. X *  the software without specific, written prior permission.  The
  273. X *  University of Texas and MCC makes no representations about the 
  274. X *  suitability of this software for any purpose.  It is provided "as is" 
  275. X *  without express or implied warranty.
  276. X *
  277. X *  THE UNIVERSITY OF TEXAS AND MCC DISCLAIMS ALL WARRANTIES WITH REGARD TO
  278. X *  THIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND
  279. X *  FITNESS, IN NO EVENT SHALL THE UNIVERSITY OF TEXAS OR MCC BE LIABLE FOR
  280. X *  ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER
  281. X *  RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF
  282. X *  CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN
  283. X *  CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
  284. X *
  285. X *  Author:      Po Cheung
  286. X *  Created:       April 9, 1990
  287. X *
  288. X *****************************************************************************/
  289. X
  290. /*  bitmaps.h
  291. X *
  292. X *    Contain bitmap data for a 48x48 and a 64x64 xdbx icon, and the 
  293. X *    stop sign, execution arrow, up-down arrow, and bomb sign used 
  294. X *    in the source window.
  295. X */
  296. X
  297. /* bitmap data for 48x48 xdbx icon */
  298. X
  299. #define xdbx48_width 48
  300. #define xdbx48_height 48
  301. static char xdbx48_bits[] = {
  302. X   0xff, 0x0f, 0x00, 0x00, 0x00, 0xf0, 0xfe, 0x1f, 0x00, 0x00, 0x00, 0xf0,
  303. X   0xfc, 0x3f, 0x00, 0x00, 0x00, 0x78, 0xfc, 0x3f, 0x00, 0x00, 0x00, 0x3c,
  304. X   0xf8, 0x7f, 0x00, 0x02, 0x00, 0x3c, 0xf0, 0xff, 0x00, 0x02, 0x00, 0x1e,
  305. X   0xe0, 0xff, 0x01, 0x04, 0x00, 0x0f, 0xe0, 0xff, 0x01, 0x04, 0x80, 0x07,
  306. X   0xc0, 0xff, 0xe3, 0xff, 0xc0, 0x03, 0x80, 0xff, 0x1f, 0x01, 0xc7, 0x03,
  307. X   0x00, 0xff, 0x27, 0x01, 0xf8, 0x01, 0x00, 0xff, 0xcf, 0x60, 0xf0, 0x10,
  308. X   0x00, 0xfe, 0x1f, 0x90, 0xf8, 0x10, 0x00, 0xfc, 0x3f, 0x90, 0xbc, 0x08,
  309. X   0x00, 0xfc, 0x7f, 0x60, 0x3c, 0x07, 0x00, 0xfe, 0xff, 0x03, 0x1e, 0x02,
  310. X   0x00, 0xfe, 0xff, 0x04, 0x0f, 0x02, 0x00, 0xff, 0xff, 0x85, 0x07, 0x04,
  311. X   0x80, 0xff, 0xff, 0xc3, 0xc3, 0x04, 0x80, 0xdf, 0xff, 0xe7, 0x23, 0x05,
  312. X   0x84, 0x9f, 0xff, 0xef, 0x25, 0x09, 0xc8, 0x19, 0xff, 0xf7, 0xc4, 0x08,
  313. X   0xf0, 0x18, 0xfe, 0x7b, 0x03, 0x08, 0xc0, 0x1f, 0xfc, 0x3d, 0x00, 0x08,
  314. X   0xc0, 0xff, 0xff, 0xff, 0xff, 0x0f, 0xc0, 0x1f, 0x78, 0x7f, 0x00, 0x08,
  315. X   0xf0, 0x98, 0xbd, 0xff, 0x00, 0x08, 0xc8, 0x59, 0xde, 0xff, 0x61, 0x08,
  316. X   0x84, 0x5f, 0xef, 0xff, 0x91, 0x04, 0x80, 0x9f, 0xc7, 0xff, 0x93, 0x04,
  317. X   0x80, 0x9f, 0x87, 0xff, 0x67, 0x04, 0x00, 0xdf, 0x03, 0xff, 0x0f, 0x02,
  318. X   0x00, 0xfe, 0x19, 0xfe, 0x1f, 0x02, 0x00, 0xfe, 0x24, 0xfe, 0x1f, 0x07,
  319. X   0x00, 0x7c, 0x24, 0xfc, 0xff, 0x08, 0x00, 0x78, 0x18, 0xfa, 0x7f, 0x10,
  320. X   0x00, 0x3c, 0x00, 0xf2, 0xff, 0x10, 0x00, 0xde, 0x00, 0xfc, 0xff, 0x00,
  321. X   0x00, 0x8f, 0x0f, 0xe0, 0xff, 0x01, 0x80, 0x87, 0xf0, 0xff, 0xff, 0x03,
  322. X   0x80, 0x87, 0x00, 0x84, 0xff, 0x07, 0xc0, 0x43, 0x00, 0x84, 0xff, 0x07,
  323. X   0xe0, 0x21, 0x00, 0x02, 0xff, 0x0f, 0xf0, 0x00, 0x00, 0x02, 0xfe, 0x1f,
  324. X   0x78, 0x00, 0x00, 0x00, 0xfc, 0x3f, 0x78, 0x00, 0x00, 0x00, 0xfc, 0x3f,
  325. X   0x3c, 0x00, 0x00, 0x00, 0xf8, 0x7f, 0x1e, 0x00, 0x00, 0x00, 0xf0, 0xff};
  326. X
  327. X
  328. /* bitmap data for 64x64 xdbx icon */
  329. X
  330. #define xdbx64_width 64
  331. #define xdbx64_height 64
  332. static char xdbx64_bits[] = {
  333. X   0xff, 0xff, 0x00, 0x00, 0x00, 0x00, 0x00, 0xf8, 0xfe, 0xff, 0x01, 0x00,
  334. X   0x00, 0x00, 0x00, 0xf8, 0xfc, 0xff, 0x03, 0x00, 0x00, 0x00, 0x00, 0x7c,
  335. X   0xf8, 0xff, 0x07, 0x00, 0x00, 0x00, 0x00, 0x3e, 0xf8, 0xff, 0x07, 0x00,
  336. X   0x00, 0x00, 0x00, 0x1f, 0xf0, 0xff, 0x0f, 0x00, 0x00, 0x00, 0x80, 0x0f,
  337. X   0xe0, 0xff, 0x1f, 0x00, 0x00, 0x00, 0x80, 0x0f, 0xc0, 0xff, 0x3f, 0x00,
  338. X   0x00, 0x00, 0xc0, 0x07, 0xc0, 0xff, 0x3f, 0x00, 0x01, 0x00, 0xe0, 0x03,
  339. X   0x80, 0xff, 0x7f, 0x00, 0x02, 0x00, 0xf0, 0x01, 0x00, 0xff, 0xff, 0x00,
  340. X   0x04, 0x00, 0xf8, 0x00, 0x00, 0xfe, 0xff, 0x01, 0x04, 0x00, 0xf8, 0x00,
  341. X   0x00, 0xfe, 0xff, 0x01, 0x04, 0x00, 0x7c, 0x00, 0x00, 0xfc, 0xff, 0xff,
  342. X   0xff, 0x01, 0x3e, 0x04, 0x00, 0xf8, 0xff, 0x07, 0x00, 0x1e, 0x1f, 0x04,
  343. X   0x00, 0xf0, 0xff, 0x0f, 0x00, 0xe0, 0x0f, 0x04, 0x00, 0xf0, 0xff, 0x0f,
  344. X   0x80, 0x81, 0x07, 0x02, 0x00, 0xe0, 0xff, 0x1f, 0x40, 0xc2, 0x07, 0x01,
  345. X   0x00, 0xc0, 0xff, 0xbf, 0x41, 0xe2, 0x8b, 0x01, 0x00, 0xc0, 0xff, 0x7f,
  346. X   0x82, 0xf1, 0xd1, 0x00, 0x00, 0xe0, 0xff, 0xff, 0x02, 0xf8, 0x60, 0x00,
  347. X   0x00, 0xf0, 0xff, 0xff, 0x01, 0x7c, 0x40, 0x00, 0x00, 0xf8, 0xfe, 0xff,
  348. X   0x01, 0x7c, 0x80, 0x00, 0x00, 0xfc, 0xfc, 0xff, 0x03, 0x3e, 0x80, 0x00,
  349. X   0x00, 0xfc, 0xfc, 0xff, 0x03, 0x1f, 0x00, 0x01, 0x00, 0xfe, 0xf8, 0xff,
  350. X   0x87, 0x0f, 0x03, 0x01, 0x00, 0xff, 0xf0, 0xff, 0xcf, 0x87, 0x04, 0x02,
  351. X   0x08, 0xff, 0xe0, 0xff, 0xcf, 0x87, 0x04, 0x02, 0x10, 0xe7, 0xe0, 0xff,
  352. X   0xe7, 0x03, 0x03, 0x02, 0xe0, 0xe3, 0xc0, 0xff, 0xf3, 0x01, 0x00, 0x04,
  353. X   0x80, 0xff, 0x80, 0xff, 0xf9, 0x00, 0x00, 0x04, 0x80, 0xff, 0x00, 0xff,
  354. X   0xfc, 0x00, 0x00, 0x04, 0x80, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0x07,
  355. X   0x80, 0xff, 0x00, 0x7e, 0xfe, 0x01, 0x00, 0x04, 0x80, 0xff, 0x00, 0x3e,
  356. X   0xff, 0x1b, 0x00, 0x04, 0xe0, 0xe3, 0x00, 0x9f, 0xff, 0x27, 0x00, 0x04,
  357. X   0x10, 0xe7, 0xb0, 0xcf, 0xff, 0x2f, 0x30, 0x02, 0x08, 0xff, 0xc8, 0xe7,
  358. X   0xff, 0x1f, 0x48, 0x02, 0x00, 0xff, 0xe8, 0xe7, 0xff, 0x1f, 0x48, 0x02,
  359. X   0x00, 0xfe, 0xf0, 0xc3, 0xff, 0x3f, 0x30, 0x01, 0x00, 0xfc, 0xf0, 0xc1,
  360. X   0xff, 0x3f, 0x00, 0x01, 0x00, 0xfc, 0xf8, 0x80, 0xff, 0x7f, 0x80, 0x00,
  361. X   0x00, 0xf8, 0x7c, 0x00, 0xff, 0xff, 0x80, 0x00, 0x00, 0xf0, 0x7c, 0x18,
  362. X   0xfe, 0xff, 0xc1, 0x00, 0x00, 0xe0, 0x3e, 0x24, 0xfe, 0xff, 0x61, 0x00,
  363. X   0x00, 0xc0, 0x1f, 0x24, 0xfc, 0xff, 0xd3, 0x00, 0x00, 0x80, 0x0f, 0x18,
  364. X   0xf8, 0xff, 0x8f, 0x01, 0x00, 0xc0, 0x07, 0x00, 0xf4, 0xff, 0x0f, 0x01,
  365. X   0x00, 0xe0, 0x0f, 0x00, 0xe4, 0xff, 0x1f, 0x02, 0x00, 0xf0, 0x39, 0x00,
  366. X   0xf8, 0xff, 0x1f, 0x04, 0x00, 0xf0, 0xc9, 0x03, 0xc0, 0xff, 0x3f, 0x04,
  367. X   0x00, 0xf8, 0x08, 0xfc, 0xff, 0xff, 0x7f, 0x04, 0x00, 0x7c, 0x04, 0x00,
  368. X   0x01, 0xff, 0x7f, 0x00, 0x00, 0x3e, 0x02, 0x00, 0x01, 0xff, 0xff, 0x00,
  369. X   0x00, 0x3e, 0x00, 0x00, 0x01, 0xfe, 0xff, 0x01, 0x00, 0x1f, 0x00, 0x80,
  370. X   0x00, 0xfc, 0xff, 0x03, 0x80, 0x0f, 0x00, 0x00, 0x00, 0xf8, 0xff, 0x03,
  371. X   0xc0, 0x07, 0x00, 0x00, 0x00, 0xf8, 0xff, 0x07, 0xe0, 0x03, 0x00, 0x00,
  372. X   0x00, 0xf0, 0xff, 0x0f, 0xe0, 0x03, 0x00, 0x00, 0x00, 0xe0, 0xff, 0x1f,
  373. X   0xf0, 0x01, 0x00, 0x00, 0x00, 0xc0, 0xff, 0x1f, 0xf8, 0x00, 0x00, 0x00,
  374. X   0x00, 0xc0, 0xff, 0x3f, 0x7c, 0x00, 0x00, 0x00, 0x00, 0x80, 0xff, 0x7f,
  375. X   0x3e, 0x00, 0x00, 0x00, 0x00, 0x00, 0xff, 0xff};
  376. X
  377. X
  378. /* bitmap data for stop sign */
  379. X
  380. #define stop_width 16
  381. #define stop_height 16
  382. #define stop_x_hot -1
  383. #define stop_y_hot -1
  384. static char stop_bits[] = {
  385. X   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xe0, 0x00, 0xa0, 0x03, 0xb8, 0x0e,
  386. X   0xa8, 0x0a, 0xa8, 0x0a, 0xa8, 0x0a, 0x18, 0x08, 0x10, 0x08, 0x30, 0x0c,
  387. X   0xe0, 0x07, 0xe0, 0x07, 0x00, 0x00, 0x00, 0x00};
  388. X
  389. /* bitmap data for arrow sign */
  390. X
  391. #define arrow_width 16
  392. #define arrow_height 16
  393. #define arrow_x_hot -1
  394. #define arrow_y_hot -1
  395. static char arrow_bits[] = {
  396. X   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x80, 0x00, 0x80, 0x01, 0x80, 0x03,
  397. X   0xff, 0x07, 0xff, 0x0f, 0xff, 0x0f, 0xff, 0x07, 0x80, 0x03, 0x80, 0x01,
  398. X   0x80, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00};
  399. X
  400. X
  401. /* bitmap data for up-down (outlined arrow) sign */
  402. X
  403. #define updown_width 16
  404. #define updown_height 16
  405. #define updown_x_hot -1
  406. #define updown_y_hot -1
  407. static char updown_bits[] = {
  408. X   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x80, 0x00, 0x80, 0x01, 0x80, 0x03,
  409. X   0xff, 0x06, 0x01, 0x0c, 0x01, 0x0c, 0xff, 0x06, 0x80, 0x03, 0x80, 0x01,
  410. X   0x80, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00};
  411. X
  412. X
  413. /* bitmap data for bomb sign */
  414. X
  415. #define bomb_width 16
  416. #define bomb_height 16
  417. static char bomb_bits[] = {
  418. X   0x00, 0x00, 0x69, 0x00, 0x94, 0x00, 0x8a, 0x00, 0xc0, 0x01, 0xc5, 0x01,
  419. X   0xf0, 0x07, 0xf0, 0x07, 0xf8, 0x0f, 0xf8, 0x0d, 0xf8, 0x0d, 0xf8, 0x0d,
  420. X   0xf0, 0x06, 0xf0, 0x07, 0xc0, 0x01, 0x00, 0x00};
  421. SHAR_EOF
  422. chmod 0664 mxgdb/bitmaps.h ||
  423. echo 'restore of mxgdb/bitmaps.h failed'
  424. Wc_c="`wc -c < 'mxgdb/bitmaps.h'`"
  425. test 8571 -eq "$Wc_c" ||
  426.     echo 'mxgdb/bitmaps.h: original size 8571, current size' "$Wc_c"
  427. rm -f _shar_wnt_.tmp
  428. fi
  429. # ============= mxgdb/dbx.c ==============
  430. if test -f 'mxgdb/dbx.c' -a X"$1" != X"-c"; then
  431.     echo 'x - skipping mxgdb/dbx.c (File already exists)'
  432.     rm -f _shar_wnt_.tmp
  433. else
  434. > _shar_wnt_.tmp
  435. echo 'x - extracting mxgdb/dbx.c (Text)'
  436. sed 's/^X//' << 'SHAR_EOF' > 'mxgdb/dbx.c' &&
  437. static char rcsid[] = "$Id: dbx.c,v 1.1.1.1 1991/05/16 21:41:50 jtsillas Exp $";
  438. X
  439. /*****************************************************************************
  440. X *
  441. X *  xdbx - X Window System interface to the dbx debugger
  442. X *
  443. X *  Copyright 1989 The University of Texas at Austin
  444. X *  Copyright 1990 Microelectronics and Computer Technology Corporation
  445. X *
  446. X *  Permission to use, copy, modify, and distribute this software and its
  447. X *  documentation for any purpose and without fee is hereby granted,
  448. X *  provided that the above copyright notice appear in all copies and that
  449. X *  both that copyright notice and this permission notice appear in
  450. X *  supporting documentation, and that the name of The University of Texas
  451. X *  and Microelectronics and Computer Technology Corporation (MCC) not be 
  452. X *  used in advertising or publicity pertaining to distribution of
  453. X *  the software without specific, written prior permission.  The
  454. X *  University of Texas and MCC makes no representations about the 
  455. X *  suitability of this software for any purpose.  It is provided "as is" 
  456. X *  without express or implied warranty.
  457. X *
  458. X *  THE UNIVERSITY OF TEXAS AND MCC DISCLAIMS ALL WARRANTIES WITH REGARD TO
  459. X *  THIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND
  460. X *  FITNESS, IN NO EVENT SHALL THE UNIVERSITY OF TEXAS OR MCC BE LIABLE FOR
  461. X *  ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER
  462. X *  RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF
  463. X *  CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN
  464. X *  CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
  465. X *
  466. X *  Author:      Po Cheung
  467. X *  Created:       March 10, 1989
  468. X * 
  469. X *****************************************************************************
  470. X * 
  471. X *  xxgdb - X Window System interface to the gdb debugger
  472. X *  
  473. X *     Copyright 1990 Thomson Consumer Electronics, Inc.
  474. X *  
  475. X *  Permission to use, copy, modify, and distribute this software and its
  476. X *  documentation for any purpose and without fee is hereby granted,
  477. X *  provided that the above copyright notice appear in all copies and that
  478. X *  both that copyright notice and this permission notice appear in
  479. X *  supporting documentation, and that the name of Thomson Consumer
  480. X *  Electronics (TCE) not be used in advertising or publicity pertaining
  481. X *  to distribution of the software without specific, written prior
  482. X *  permission.  TCE makes no representations about the suitability of
  483. X *  this software for any purpose.  It is provided "as is" without express
  484. X *  or implied warranty.
  485. X *
  486. X *  TCE DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING
  487. X *  ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT
  488. X *  SHALL TCE BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES
  489. X *  OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS,
  490. X *  WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION,
  491. X *  ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS
  492. X *  SOFTWARE.
  493. X *
  494. X *  Adaptation to GDB:  Pierre Willard
  495. X *  XXGDB Created:       December, 1990
  496. X *
  497. X *****************************************************************************/
  498. X
  499. /*
  500. X *  dbx.c
  501. X *
  502. X *    Handle dbx command initialization file (.dbxinit) and communication 
  503. X *    between dbx and xdbx.
  504. X *
  505. X *    dbx_init():    Handle .dbxinit
  506. X *    debug_init():    
  507. X *    read_dbx():    Read dbx output, parse and filter it before displaying
  508. X *            onto the dialog window.
  509. X *    write_dbx():    Send a command to dbx.
  510. X *    query_dbx():    Send a command to dbx and process it.
  511. X */
  512. X
  513. #include "global.h"
  514. X
  515. Boolean    Prompt;            /* True when dbx prompt arrives */
  516. char     *concat();
  517. char    *dbxprompt; 
  518. char    *xdbxprompt;
  519. X
  520. /*  Given a dbx command initialization file, this routine executes each dbx 
  521. X *  command in the file.  It sends the command to dbx, and calls read_dbx() 
  522. X *  directly to process output returned from dbx.
  523. X */
  524. X 
  525. static void dbx_init(xdbxinit)
  526. char *xdbxinit;
  527. {
  528. X    FILE *fp;
  529. X    char s[LINESIZ];
  530. X
  531. X    if (!strcmp(xdbxinit, ""))
  532. X    return;
  533. X    if (fp = fopen(xdbxinit, "r")) {
  534. X    while (fgets(s, LINESIZ, fp)) {
  535. #ifdef GDB
  536. X        /* if GDB:
  537. X            Check for comment line,
  538. X            DO NOT SEND '\n',
  539. X            Take care of source command.
  540. X        */
  541. X        if ((*s != '#') && strcmp(s,"\n"))
  542. X          {
  543. X            if ((!gdb_source_command(s,TRUE)) && 
  544. X            (!gdb_define_command(s,fp))) 
  545. X              {
  546. X            write_dbx(s);
  547. X            insert_command(s);
  548. X            AppendDialogText(s);
  549. X              }
  550. #else /* GDB */
  551. X        send_command(s);
  552. X        AppendDialogText(s);
  553. #endif
  554. X        Prompt = False;
  555. X        while (!Prompt)
  556. X        read_dbx();
  557. #ifdef GDB
  558. X        }
  559. #endif /* GDB */
  560. X    }
  561. X    close((int)fp);
  562. X    }
  563. }
  564. X
  565. /*
  566. X *  This routine is called after getting the first dbx prompt.  
  567. X *  > check the use list to create a list of directories for searching
  568. X *    source files.
  569. X *  > ask dbx for the source file and display it if it exists.
  570. X *  > open the command initialization file and executed the commands;
  571. X *    if Tstartup is true, remove the initialization file.
  572. X */
  573. void debug_init()
  574. {
  575. X    static visited = False;
  576. X
  577. X    if (!visited) {
  578. X    visited = True;
  579. X    dbx_init(xdbxinit);
  580. X    if (Tstartup)
  581. X        unlink(xdbxinit);
  582. X    strcpy(xdbxinit, "");
  583. X    }
  584. }
  585. X
  586. /*
  587. X *  This is a callback procedure invoked everytime when input is pending
  588. X *  on the file descriptor to dbx.
  589. X *  o reads all the data available on the file descriptor line by line
  590. X *    into local variable 'string' and global variable 'output'.
  591. X *    'output' records the entire dbx output whereas 'string' records
  592. X *    only the data read in this invocation of read_dbx().
  593. X *  o in Echo mode, the contents in 'string' is edited by filter()
  594. X *    before it gets displayed on the dialog window.
  595. X *  o once the dbx prompt is read, calls parse() to analyse the dbx output
  596. X *    and take appropriate action.
  597. X */
  598. /* ARGSUSED */
  599. void read_dbx(master, source, id)
  600. XXtPointer master;
  601. int       *source;
  602. XXtInputId *id;
  603. {
  604. X    static char *output = NULL;     /* buffer for dbx output */
  605. X    static char *next_string = NULL;
  606. X    static char *command;
  607. X    char     *string = NULL;
  608. X    char     s[LINESIZ];
  609. X    Boolean     more;
  610. X    
  611. X    more = True;
  612. X    while (more) {
  613. X    Prompt = False;
  614. X    /* keep reading until no more or until prompt arrives */
  615. X    while (more = fgets(s, LINESIZ, dbxfp) && !Prompt) {
  616. X        if (debug)
  617. X        fprintf(stderr, "=>%s", s);
  618. X        /* receive prompt? */
  619. X        if (!strncmp(s, dbxprompt, strlen(dbxprompt))) {
  620. X        Prompt = True;
  621. X        /* more stuff behind prompt? */
  622. X        if (s[strlen(dbxprompt)])
  623. X            /* remember it */
  624. X            next_string = XtNewString(s+strlen(dbxprompt));
  625. X        /* destroy contents */
  626. X        strcpy(s, "");
  627. X        }
  628. X        string = concat(string, s);
  629. X        strcpy(s, "");
  630. X    }
  631. X    output = concat(output, string);
  632. X    command = get_command();
  633. X        
  634. X    if (Echo) {
  635. X        filter(string, output, command);
  636. X        if (Prompt) AppendDialogText(xdbxprompt);
  637. X    }
  638. X    if (string) {
  639. X        XtFree(string);
  640. X        string = NULL;
  641. X    }
  642. X    if (next_string) {
  643. X        string = concat(string, next_string);
  644. X        XtFree(next_string);
  645. X        next_string = NULL;
  646. X    }
  647. X    if (Prompt) {
  648. X        parse(output, command);
  649. X        delete_command();
  650. X        XtFree(output);
  651. X        output = NULL;
  652. X    }
  653. X    }
  654. }
  655. X
  656. /*  Write string s to dbx, and flush the output.  */
  657. X
  658. void write_dbx(s)
  659. char *s;
  660. {
  661. X    if (debug)
  662. X        fprintf(stderr, ">>%s", s);        /* (PW) see what is sent to GDB */
  663. X        
  664. X    fputs(s, dbxfp);
  665. X    fflush(dbxfp);
  666. }
  667. X
  668. /*  Sends a command to dbx and read the corresponding output, directly
  669. X *  invoking the Xt input procedure, read_dbx().
  670. X */
  671. void query_dbx(command)
  672. char *command;
  673. {
  674. X    write_dbx(command);
  675. X    insert_command(command);
  676. X
  677. X    Echo = False;
  678. X    Prompt = False;
  679. X    while (!Prompt)
  680. X        read_dbx();
  681. X
  682. X    Parse = True;    /* Always reset Parse and Echo to True */
  683. X    Echo = True;
  684. }
  685. SHAR_EOF
  686. chmod 0664 mxgdb/dbx.c ||
  687. echo 'restore of mxgdb/dbx.c failed'
  688. Wc_c="`wc -c < 'mxgdb/dbx.c'`"
  689. test 7618 -eq "$Wc_c" ||
  690.     echo 'mxgdb/dbx.c: original size 7618, current size' "$Wc_c"
  691. rm -f _shar_wnt_.tmp
  692. fi
  693. # ============= mxgdb/datadpy.h ==============
  694. if test -f 'mxgdb/datadpy.h' -a X"$1" != X"-c"; then
  695.     echo 'x - skipping mxgdb/datadpy.h (File already exists)'
  696.     rm -f _shar_wnt_.tmp
  697. else
  698. > _shar_wnt_.tmp
  699. echo 'x - extracting mxgdb/datadpy.h (Text)'
  700. sed 's/^X//' << 'SHAR_EOF' > 'mxgdb/datadpy.h' &&
  701. /* $Id: datadpy.h,v 1.1.1.1 1991/05/16 21:41:47 jtsillas Exp $ */
  702. X
  703. /*****************************************************************************
  704. X *
  705. X *  xdbx - X Window System interface to the dbx debugger
  706. X *
  707. X *  Copyright 1989 The University of Texas at Austin
  708. X *  Copyright 1990 Microelectronics and Computer Technology Corporation
  709. X *
  710. X *  Permission to use, copy, modify, and distribute this software and its
  711. X *  documentation for any purpose and without fee is hereby granted,
  712. X *  provided that the above copyright notice appear in all copies and that
  713. X *  both that copyright notice and this permission notice appear in
  714. X *  supporting documentation, and that the name of The University of Texas
  715. X *  and Microelectronics and Computer Technology Corporation (MCC) not be 
  716. X *  used in advertising or publicity pertaining to distribution of
  717. X *  the software without specific, written prior permission.  The
  718. X *  University of Texas and MCC makes no representations about the 
  719. X *  suitability of this software for any purpose.  It is provided "as is" 
  720. X *  without express or implied warranty.
  721. X *
  722. X *  THE UNIVERSITY OF TEXAS AND MCC DISCLAIMS ALL WARRANTIES WITH REGARD TO
  723. X *  THIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND
  724. X *  FITNESS, IN NO EVENT SHALL THE UNIVERSITY OF TEXAS OR MCC BE LIABLE FOR
  725. X *  ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER
  726. X *  RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF
  727. X *  CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN
  728. X *  CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
  729. X *
  730. X *  Author:      Po Cheung
  731. X *  Created:       March 10, 1989
  732. X * 
  733. X *****************************************************************************
  734. X * 
  735. X *  xxgdb - X Window System interface to the gdb debugger
  736. X *  
  737. X *     Copyright 1990 Thomson Consumer Electronics, Inc.
  738. X *  
  739. X *  Permission to use, copy, modify, and distribute this software and its
  740. X *  documentation for any purpose and without fee is hereby granted,
  741. X *  provided that the above copyright notice appear in all copies and that
  742. X *  both that copyright notice and this permission notice appear in
  743. X *  supporting documentation, and that the name of Thomson Consumer
  744. X *  Electronics (TCE) not be used in advertising or publicity pertaining
  745. X *  to distribution of the software without specific, written prior
  746. X *  permission.  TCE makes no representations about the suitability of
  747. X *  this software for any purpose.  It is provided "as is" without express
  748. X *  or implied warranty.
  749. X *
  750. X *  TCE DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING
  751. X *  ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT
  752. X *  SHALL TCE BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES
  753. X *  OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS,
  754. X *  WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION,
  755. X *  ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS
  756. X *  SOFTWARE.
  757. X *
  758. X *  Adaptation to GDB:  Pierre Willard
  759. X *  XXGDB Created:       December, 1990
  760. X *
  761. X *****************************************************************************/
  762. X
  763. /*  datadpy.h:
  764. X *
  765. X *  Regular expression pattern matching for C structures
  766. X *
  767. X *  The reg_token array indicates the register no. for each token type.
  768. X *      reg_token[0] : level of indentation
  769. X *      reg_token[2] : field name
  770. X *      reg_token[4] : pointer string
  771. X */
  772. X
  773. #define TK_INDENT       0
  774. #define TK_FIELD        2
  775. #define TK_POINTER      4
  776. X
  777. #define D_POINTER    0
  778. #define D_FIELD        1
  779. #define D_STRUCT    2
  780. X
  781. /*
  782. X    Note : for GDB the 'set prettyprint on' must be ON.
  783. X    
  784. X    Exaamples "
  785. X    
  786. X        $3 = (struct toto *) 0x40c0
  787. X        
  788. X        $2 = {
  789. X          pt = 0x40b4,
  790. X          u = 5,
  791. X          v = 6
  792. X        }
  793. */
  794. X
  795. PatternRec dataPattern[] = {
  796. X    {"0x[0-9a-f]+",                   
  797. X     NULL, {-1, -1, -1, -1, -1, -1}
  798. X    },
  799. X    {"\\([ ]*\\)\\(.*[^ ]+\\)[ ]* = \\((.*) \\)?\\(0x[0-9a-f]+\\)[,]?[ ]*\n", 
  800. X     NULL, { 1, -1,  2, -1,  4, -1}
  801. X    },
  802. X    {"\\([ ]*\\)\\(.*[^ ]*\\)[ ]* = {\n",           
  803. X     NULL, { 1, -1,  2, -1, -1, -1}
  804. X    },
  805. X    NULL
  806. };
  807. X
  808. X
  809. SHAR_EOF
  810. chmod 0664 mxgdb/datadpy.h ||
  811. echo 'restore of mxgdb/datadpy.h failed'
  812. Wc_c="`wc -c < 'mxgdb/datadpy.h'`"
  813. test 4052 -eq "$Wc_c" ||
  814.     echo 'mxgdb/datadpy.h: original size 4052, current size' "$Wc_c"
  815. rm -f _shar_wnt_.tmp
  816. fi
  817. # ============= mxgdb/dialog.c ==============
  818. if test -f 'mxgdb/dialog.c' -a X"$1" != X"-c"; then
  819.     echo 'x - skipping mxgdb/dialog.c (File already exists)'
  820.     rm -f _shar_wnt_.tmp
  821. else
  822. > _shar_wnt_.tmp
  823. echo 'x - extracting mxgdb/dialog.c (Text)'
  824. sed 's/^X//' << 'SHAR_EOF' > 'mxgdb/dialog.c' &&
  825. static char rcsid[] = "$Id: dialog.c,v 1.2 1991/05/20 14:04:09 jtsillas Exp $";
  826. X
  827. /*****************************************************************************
  828. X *
  829. X *  xdbx - X Window System interface to the dbx debugger
  830. X *
  831. X *  Copyright 1989 The University of Texas at Austin
  832. X *  Copyright 1990 Microelectronics and Computer Technology Corporation
  833. X *
  834. X *  Permission to use, copy, modify, and distribute this software and its
  835. X *  documentation for any purpose and without fee is hereby granted,
  836. X *  provided that the above copyright notice appear in all copies and that
  837. X *  both that copyright notice and this permission notice appear in
  838. X *  supporting documentation, and that the name of The University of Texas
  839. X *  and Microelectronics and Computer Technology Corporation (MCC) not be 
  840. X *  used in advertising or publicity pertaining to distribution of
  841. X *  the software without specific, written prior permission.  The
  842. X *  University of Texas and MCC makes no representations about the 
  843. X *  suitability of this software for any purpose.  It is provided "as is" 
  844. X *  without express or implied warranty.
  845. X *
  846. X *  THE UNIVERSITY OF TEXAS AND MCC DISCLAIMS ALL WARRANTIES WITH REGARD TO
  847. X *  THIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND
  848. X *  FITNESS, IN NO EVENT SHALL THE UNIVERSITY OF TEXAS OR MCC BE LIABLE FOR
  849. X *  ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER
  850. X *  RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF
  851. X *  CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN
  852. X *  CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
  853. X *
  854. X *  Author:      Po Cheung
  855. X *  Created:       March 10, 1989
  856. X * 
  857. X *****************************************************************************
  858. X * 
  859. X *  xxgdb - X Window System interface to the gdb debugger
  860. X *  
  861. X *     Copyright 1990 Thomson Consumer Electronics, Inc.
  862. X *  
  863. X *  Permission to use, copy, modify, and distribute this software and its
  864. X *  documentation for any purpose and without fee is hereby granted,
  865. X *  provided that the above copyright notice appear in all copies and that
  866. X *  both that copyright notice and this permission notice appear in
  867. X *  supporting documentation, and that the name of Thomson Consumer
  868. X *  Electronics (TCE) not be used in advertising or publicity pertaining
  869. X *  to distribution of the software without specific, written prior
  870. X *  permission.  TCE makes no representations about the suitability of
  871. X *  this software for any purpose.  It is provided "as is" without express
  872. X *  or implied warranty.
  873. X *
  874. X *  TCE DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING
  875. X *  ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT
  876. X *  SHALL TCE BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES
  877. X *  OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS,
  878. X *  WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION,
  879. X *  ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS
  880. X *  SOFTWARE.
  881. X *
  882. X *  Adaptation to GDB:  Pierre Willard
  883. X *  XXGDB Created:       December, 1990
  884. X *
  885. X *****************************************************************************/
  886. X
  887. /*  dialog.c
  888. X *
  889. X *    Create the dialogue window where the user enter dbx commands, and
  890. X *    provide action procs to make a text widget behave like a terminal.
  891. X *
  892. X *    InsertSpace():    Prevent user from deleting past the prompt (action proc
  893. X *            for DELETE or BACKSPACE).
  894. X *    Dispatch():    Send an input command line to dbx. (action proc for CR).
  895. X *    SigInt():        Send SIGINT to dbx (action proc for Ctrl-C).
  896. X *    SigEof():        Send an EOF signal to dbx (action proc for Ctrl-D).
  897. X *    SigQuit():    Send SIGQUIT to dbx (action proc for Ctrl-\).
  898. X *    CreateDialogWindow(): Create dialog window and install action table.
  899. X *    AppendDialogText():       Append string to dialog window.
  900. X */
  901. X
  902. #include <signal.h>
  903. #include "global.h"
  904. #include <Xm/Xm.h>
  905. #include <Xm/Text.h>
  906. X
  907. Widget    dialogWindow;            /* text window as a dbx terminal */
  908. Boolean FalseSignal = FALSE;        /* set to TRUE before self-generated
  909. X                       interrupt/quit signals */
  910. static XmTextPosition  StartPos;          /* starting position of input text */
  911. X
  912. X
  913. /*  This procedure prevents the user from deleting past the prompt, or
  914. X *  any text appended by AppendDialogText() to the dialog window.
  915. X *  It checks the last position of text, if it matches StartPos, set
  916. X *  by AppendDialogText(), it inserts a space so that delete-previous-
  917. X *  character() can only delete the space character.
  918. X */
  919. /* ARGSUSED */
  920. static void InsertSpace(w, event, params, num_params)
  921. X    Widget w;
  922. X    XEvent *event;
  923. X    String *params;
  924. X    Cardinal *num_params;
  925. {
  926. X  XmTextPosition lastPos;
  927. X
  928. X  if (XmTextGetInsertionPosition(w) <= StartPos) {
  929. X    lastPos = TextGetLastPos(w);
  930. X    if (lastPos == StartPos) 
  931. X      XmTextInsert(w, lastPos, " ");
  932. X    }
  933. }
  934. X
  935. static void InsertSelection(w, event, params, num_params)
  936. X    Widget w;
  937. X    XEvent *event;
  938. X    String *params;
  939. X    Cardinal *num_params;
  940. {
  941. X  XmTextSetInsertionPosition(w, XmTextGetLastPosition(w));
  942. }
  943. X
  944. X
  945. /*  Dispatch() is invoked on every <CR>.
  946. X *  It collects text from the dialog window and sends it to dbx.
  947. X *  If the string is a command to dbx (Prompt would be TRUE),
  948. X *  it is stored in the global variable, Command.
  949. X */
  950. /* ARGSUSED */
  951. static void Dispatch(w, event, params, num_params)
  952. X    Widget w;
  953. X    XEvent *event;
  954. X    String *params;
  955. X    Cardinal *num_params; 
  956. {
  957. X  char *DialogText;
  958. X    /* 
  959. X    For GDB, '\n' means exec previous command again.
  960. X    default command is space+CR, so that we never send
  961. X    CR to gdb (the repeat is managed here)
  962. X    */
  963. X    static char gdb_command[LINESIZ] = " \n";
  964. X    char s[LINESIZ];
  965. X
  966. X  DialogText = XmTextGetString(dialogWindow);
  967. X  strcpy(s, DialogText + StartPos);
  968. X    /* (PW)18DEC90 : bug xdbx : without the following line,
  969. X    xdbx sends several times the same lines when Prompt is false */
  970. X    StartPos = TextGetLastPos(dialogWindow);
  971. X
  972. X    if (Prompt) {
  973. X    if (gdb_source_command(s,FALSE))    /* filter source command (& do not display source command) */
  974. X        {
  975. X        strcpy(gdb_command," \n");    /* do not execute anything if next command is '\n' */
  976. X        return;
  977. X        }
  978. X    /* When we send \n to gdb, it executes the last command,
  979. X    so better tell xxgdb what gdb is doing */
  980. X    if (strcmp(s, "\n"))
  981. X        strcpy(gdb_command,s);
  982. X    else
  983. X        strcpy(s,gdb_command);
  984. X    send_command(s);
  985. X    }
  986. X    else {
  987. X        write_dbx(s);
  988. X    }
  989. X  XtFree(DialogText);
  990. }
  991. X
  992. X
  993. /*  Sends an interrupt signal, SIGINT, to dbx.
  994. X *  Simulates the action of the INTR character (ctrl-C).
  995. X */
  996. /* ARGSUSED */
  997. static void SigInt(w, event, params, num_params)
  998. X    Widget w;
  999. X    XEvent *event;
  1000. X    String *params;
  1001. X    Cardinal *num_params;
  1002. {
  1003. X    FalseSignal = TRUE;
  1004. X    killpg(dbxpid, SIGINT);
  1005. }
  1006. X
  1007. X
  1008. /*  Sends an EOF signal to dbx. (ctrl-D) */
  1009. /* ARGSUSED */
  1010. static void SigEof(w, event, params, num_params)
  1011. X    Widget w;
  1012. X    XEvent *event;
  1013. X    String *params;
  1014. X    Cardinal *num_params;
  1015. {
  1016. X    write_dbx("\04");
  1017. }
  1018. X
  1019. X
  1020. /*  Sends a QUIT signal, SIGQUIT, to dbx. 
  1021. X *  Simulates the action of the QUIT character (ctrl-\) 
  1022. X */
  1023. /* ARGSUSED */
  1024. static void SigQuit(w, event, params, num_params)
  1025. X    Widget w;
  1026. X    XEvent *event;
  1027. X    String *params;
  1028. X    Cardinal *num_params;
  1029. {
  1030. X    FalseSignal = TRUE;
  1031. X    killpg(dbxpid, SIGQUIT);
  1032. }
  1033. X
  1034. X
  1035. /* 
  1036. X *  Dialog window has its own set of translations for editing.
  1037. X *  Special action procedures for keys Delete/Backspace, Carriage Return,
  1038. X *  Ctrl-U, Ctrl-C, Ctrl-D, Ctrl-\, and word selection.
  1039. X */
  1040. void CreateDialogWindow(parent)
  1041. Widget parent;
  1042. {
  1043. X    Arg     args[MAXARGS];
  1044. X    Cardinal     n;
  1045. X
  1046. X    static XtActionsRec dialog_actions[] = {
  1047. X    {"SigInt",     (XtActionProc) SigInt},
  1048. X    {"SigEof",     (XtActionProc) SigEof},
  1049. X    {"SigQuit",     (XtActionProc) SigQuit},
  1050. X    {"InsertSpace", (XtActionProc) InsertSpace},
  1051. X    {"InsertSelection", (XtActionProc) InsertSelection},
  1052. X    {"Dispatch",     (XtActionProc) Dispatch},
  1053. X        {NULL, NULL}
  1054. X    };
  1055. X
  1056. X    XtSetArg(args[0], XmNeditMode, XmMULTI_LINE_EDIT);
  1057. X    XtSetArg(args[1], XmNautoShowCursorPosition, True);
  1058. X    XtSetArg(args[2], XmNscrollingPolicy, XmAUTOMATIC);
  1059. X    XtSetArg(args[3], XmNscrollLeftSide, True);
  1060. X    XtSetArg(args[4], XmNwordWrap, True);
  1061. X    dialogWindow = XmCreateScrolledText(parent, "dialogWindow",
  1062. X                                          args, 5);
  1063. X    XtManageChild(dialogWindow);
  1064. X
  1065. X    XtAppAddActions(app_context, dialog_actions, XtNumber(dialog_actions));
  1066. }
  1067. X
  1068. static void TextSetLastPos(w, lastPos)
  1069. Widget w;
  1070. XXmTextPosition lastPos;
  1071. {
  1072. X    Arg         args[MAXARGS];
  1073. X    XtSetArg(args[0], XmNcursorPosition, lastPos);
  1074. X    XtSetValues(w, args, 1);
  1075. }
  1076. X 
  1077. void AppendDialogText(s)
  1078. X    char   *s;
  1079. {
  1080. X    XmTextPosition     i, lastPos;
  1081. X    XmTextBlockRec        textblock, nullblock;
  1082. X    Arg         args[MAXARGS];
  1083. X    Cardinal         n;
  1084. X
  1085. X    if (!s || !strcmp(s, "")) return;
  1086. X
  1087. X    textblock.length   = strlen(s);
  1088. X    textblock.ptr      = s;
  1089. X
  1090. X    lastPos = XmTextGetLastPosition(dialogWindow);
  1091. X
  1092. X    XmTextInsert(dialogWindow, lastPos,
  1093. X          textblock.ptr);
  1094. X    StartPos = TextGetLastPos(dialogWindow);
  1095. X    XmTextSetInsertionPosition(dialogWindow, 
  1096. X                   XmTextGetLastPosition(dialogWindow));
  1097. }
  1098. SHAR_EOF
  1099. chmod 0664 mxgdb/dialog.c ||
  1100. echo 'restore of mxgdb/dialog.c failed'
  1101. Wc_c="`wc -c < 'mxgdb/dialog.c'`"
  1102. test 9041 -eq "$Wc_c" ||
  1103.     echo 'mxgdb/dialog.c: original size 9041, current size' "$Wc_c"
  1104. rm -f _shar_wnt_.tmp
  1105. fi
  1106. # ============= mxgdb/regex.c ==============
  1107. if test -f 'mxgdb/regex.c' -a X"$1" != X"-c"; then
  1108.     echo 'x - skipping mxgdb/regex.c (File already exists)'
  1109.     rm -f _shar_wnt_.tmp
  1110. else
  1111. > _shar_wnt_.tmp
  1112. echo 'x - extracting mxgdb/regex.c (Text)'
  1113. sed 's/^X//' << 'SHAR_EOF' > 'mxgdb/regex.c' &&
  1114. static char rcsid[] = "$Id: regex.c,v 1.1.1.1 1991/05/16 21:42:37 jtsillas Exp $";
  1115. X
  1116. /* Extended regular expression matching and search.
  1117. X   Copyright (C) 1985 Free Software Foundation, Inc.
  1118. X
  1119. X               NO WARRANTY
  1120. X
  1121. X  BECAUSE THIS PROGRAM IS LICENSED FREE OF CHARGE, WE PROVIDE ABSOLUTELY
  1122. NO WARRANTY, TO THE EXTENT PERMITTED BY APPLICABLE STATE LAW.  EXCEPT
  1123. WHEN OTHERWISE STATED IN WRITING, FREE SOFTWARE FOUNDATION, INC,
  1124. RICHARD M. STALLMAN AND/OR OTHER PARTIES PROVIDE THIS PROGRAM "AS IS"
  1125. WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING,
  1126. BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND
  1127. FITNESS FOR A PARTICULAR PURPOSE.  THE ENTIRE RISK AS TO THE QUALITY
  1128. AND PERFORMANCE OF THE PROGRAM IS WITH YOU.  SHOULD THE PROGRAM PROVE
  1129. DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING, REPAIR OR
  1130. CORRECTION.
  1131. X
  1132. X IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW WILL RICHARD M.
  1133. STALLMAN, THE FREE SOFTWARE FOUNDATION, INC., AND/OR ANY OTHER PARTY
  1134. WHO MAY MODIFY AND REDISTRIBUTE THIS PROGRAM AS PERMITTED BELOW, BE
  1135. LIABLE TO YOU FOR DAMAGES, INCLUDING ANY LOST PROFITS, LOST MONIES, OR
  1136. OTHER SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE
  1137. USE OR INABILITY TO USE (INCLUDING BUT NOT LIMITED TO LOSS OF DATA OR
  1138. DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY THIRD PARTIES OR
  1139. A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER PROGRAMS) THIS
  1140. PROGRAM, EVEN IF YOU HAVE BEEN ADVISED OF THE POSSIBILITY OF SUCH
  1141. DAMAGES, OR FOR ANY CLAIM BY ANY OTHER PARTY.
  1142. X
  1143. X        GENERAL PUBLIC LICENSE TO COPY
  1144. X
  1145. X  1. You may copy and distribute verbatim copies of this source file
  1146. as you receive it, in any medium, provided that you conspicuously and
  1147. appropriately publish on each copy a valid copyright notice "Copyright
  1148. (C) 1985 Free Software Foundation, Inc."; and include following the
  1149. copyright notice a verbatim copy of the above disclaimer of warranty
  1150. and of this License.  You may charge a distribution fee for the
  1151. physical act of transferring a copy.
  1152. X
  1153. X  2. You may modify your copy or copies of this source file or
  1154. any portion of it, and copy and distribute such modifications under
  1155. SHAR_EOF
  1156. true || echo 'restore of mxgdb/regex.c failed'
  1157. fi
  1158. echo 'End of  part 2'
  1159. echo 'File mxgdb/regex.c is continued in part 3'
  1160. echo 3 > _shar_seq_.tmp
  1161. exit 0
  1162. --
  1163.  == James Tsillas                    Bull HN Information Systems Inc. ==
  1164.  == (508) 294-2937                   300 Concord Road   826A          ==
  1165.  == jtsillas@bubba.ma30.bull.com     Billerica, MA 01821              ==
  1166.  ==                                                                   ==
  1167.  == The opinions expressed above are solely my own and do not reflect ==
  1168.  == those of my employer.                                             ==
  1169.             -== no solicitations please ==-
  1170.