gdb/mac-xdep.c

   1 /* OBSOLETE /* Top level support for Mac interface to GDB, the GNU debugger. */
   2 /* OBSOLETE    Copyright 1994, 1995, 1998, 2000, 2001 Free Software Foundation, Inc. */
   3 /* OBSOLETE    Contributed by Cygnus Support.  Written by Stan Shebs. */
   4 /* OBSOLETE  */
   5 /* OBSOLETE    This file is part of GDB. */
   6 /* OBSOLETE  */
   7 /* OBSOLETE    This program is free software; you can redistribute it and/or modify */
   8 /* OBSOLETE    it under the terms of the GNU General Public License as published by */
   9 /* OBSOLETE    the Free Software Foundation; either version 2 of the License, or */
  10 /* OBSOLETE    (at your option) any later version. */
  11 /* OBSOLETE  */
  12 /* OBSOLETE    This program is distributed in the hope that it will be useful, */
  13 /* OBSOLETE    but WITHOUT ANY WARRANTY; without even the implied warranty of */
  14 /* OBSOLETE    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the */
  15 /* OBSOLETE    GNU General Public License for more details. */
  16 /* OBSOLETE  */
  17 /* OBSOLETE    You should have received a copy of the GNU General Public License */
  18 /* OBSOLETE    along with this program; if not, write to the Free Software */
  19 /* OBSOLETE    Foundation, Inc., 59 Temple Place - Suite 330, */
  20 /* OBSOLETE    Boston, MA 02111-1307, USA.  */ */
  21 /* OBSOLETE  */
  22 /* OBSOLETE #include "defs.h" */
  23 /* OBSOLETE  */
  24 /* OBSOLETE #include <readline/readline.h> */
  25 /* OBSOLETE #include <readline/history.h> */
  26 /* OBSOLETE  */
  27 /* OBSOLETE #include <Types.h> */
  28 /* OBSOLETE #include <Resources.h> */
  29 /* OBSOLETE #include <QuickDraw.h> */
  30 /* OBSOLETE #include <Fonts.h> */
  31 /* OBSOLETE #include <Events.h> */
  32 /* OBSOLETE #include <Windows.h> */
  33 /* OBSOLETE #include <Menus.h> */
  34 /* OBSOLETE #include <TextEdit.h> */
  35 /* OBSOLETE #include <Dialogs.h> */
  36 /* OBSOLETE #include <Desk.h> */
  37 /* OBSOLETE #include <ToolUtils.h> */
  38 /* OBSOLETE #include <Memory.h> */
  39 /* OBSOLETE #include <SegLoad.h> */
  40 /* OBSOLETE #include <Files.h> */
  41 /* OBSOLETE #include <Folders.h> */
  42 /* OBSOLETE #include <OSUtils.h> */
  43 /* OBSOLETE #include <OSEvents.h> */
  44 /* OBSOLETE #include <DiskInit.h> */
  45 /* OBSOLETE #include <Packages.h> */
  46 /* OBSOLETE #include <Traps.h> */
  47 /* OBSOLETE #include <Lists.h> */
  48 /* OBSOLETE #include <Gestalt.h> */
  49 /* OBSOLETE #include <PPCToolbox.h> */
  50 /* OBSOLETE #include <AppleEvents.h> */
  51 /* OBSOLETE #include <StandardFile.h> */
  52 /* OBSOLETE #include <Sound.h> */
  53 /* OBSOLETE  */
  54 /* OBSOLETE #ifdef MPW */
  55 /* OBSOLETE #define QD(whatever) (qd.##whatever) */
  56 /* OBSOLETE #define QDPat(whatever) (&(qd.##whatever)) */
  57 /* OBSOLETE #endif /* MPW */ */
  58 /* OBSOLETE  */
  59 /* OBSOLETE #ifdef THINK_C */
  60 /* OBSOLETE #define QD(whatever) (whatever) */
  61 /* OBSOLETE #endif */
  62 /* OBSOLETE  */
  63 /* OBSOLETE #define p2c(pstr,cbuf)  \ */
  64 /* OBSOLETE   strncpy(cbuf, ((char *) (pstr) + 1), pstr[0]);  \ */
  65 /* OBSOLETE   cbuf[pstr[0]] = '\0'; */
  66 /* OBSOLETE  */
  67 /* OBSOLETE #define pascalify(STR) \ */
  68 /* OBSOLETE   sprintf(tmpbuf, " %s", STR);  \ */
  69 /* OBSOLETE   tmpbuf[0] = strlen(STR); */
  70 /* OBSOLETE  */
  71 /* OBSOLETE #include "gdbcmd.h" */
  72 /* OBSOLETE #include "call-cmds.h" */
  73 /* OBSOLETE #include "symtab.h" */
  74 /* OBSOLETE #include "inferior.h" */
  75 /* OBSOLETE #include <signal.h> */
  76 /* OBSOLETE #include "target.h" */
  77 /* OBSOLETE #include "breakpoint.h" */
  78 /* OBSOLETE #include "gdbtypes.h" */
  79 /* OBSOLETE #include "expression.h" */
  80 /* OBSOLETE #include "language.h" */
  81 /* OBSOLETE  */
  82 /* OBSOLETE #include "mac-defs.h" */
  83 /* OBSOLETE  */
  84 /* OBSOLETE int debug_openp = 0; */
  85 /* OBSOLETE  */
  86 /* OBSOLETE /* This is true if we are running as a standalone application.  */ */
  87 /* OBSOLETE  */
  88 /* OBSOLETE int mac_app; */
  89 /* OBSOLETE  */
  90 /* OBSOLETE /* This is true if we are using WaitNextEvent.  */ */
  91 /* OBSOLETE  */
  92 /* OBSOLETE int use_wne; */
  93 /* OBSOLETE  */
  94 /* OBSOLETE /* This is true if we have Color Quickdraw.  */ */
  95 /* OBSOLETE  */
  96 /* OBSOLETE int has_color_qd; */
  97 /* OBSOLETE  */
  98 /* OBSOLETE /* This is true if we are using Color Quickdraw. */ */
  99 /* OBSOLETE  */
 100 /* OBSOLETE int use_color_qd; */
 101 /* OBSOLETE  */
 102 /* OBSOLETE int inbackground; */
 103 /* OBSOLETE  */
 104 /* OBSOLETE Rect dragrect = */
 105 /* OBSOLETE {-32000, -32000, 32000, 32000}; */
 106 /* OBSOLETE Rect sizerect; */
 107 /* OBSOLETE  */
 108 /* OBSOLETE int sbarwid = 15; */
 109 /* OBSOLETE  */
 110 /* OBSOLETE /* Globals for the console window. */ */
 111 /* OBSOLETE  */
 112 /* OBSOLETE WindowPtr console_window; */
 113 /* OBSOLETE  */
 114 /* OBSOLETE ControlHandle console_v_scrollbar; */
 115 /* OBSOLETE  */
 116 /* OBSOLETE Rect console_v_scroll_rect; */
 117 /* OBSOLETE  */
 118 /* OBSOLETE TEHandle console_text; */
 119 /* OBSOLETE  */
 120 /* OBSOLETE Rect console_text_rect; */
 121 /* OBSOLETE  */
 122 /* OBSOLETE /* This will go away eventually. */ */
 123 /* OBSOLETE gdb_has_a_terminal (void) */
 124 /* OBSOLETE { */
 125 /* OBSOLETE   return 1; */
 126 /* OBSOLETE } */
 127 /* OBSOLETE  */
 128 /* OBSOLETE mac_init (void) */
 129 /* OBSOLETE { */
 130 /* OBSOLETE   SysEnvRec se; */
 131 /* OBSOLETE   int eventloopdone = 0; */
 132 /* OBSOLETE   char *str; */
 133 /* OBSOLETE   Boolean gotevent; */
 134 /* OBSOLETE   Point mouse; */
 135 /* OBSOLETE   EventRecord event; */
 136 /* OBSOLETE   WindowPtr win; */
 137 /* OBSOLETE   RgnHandle cursorRgn; */
 138 /* OBSOLETE   int i; */
 139 /* OBSOLETE   Handle menubar; */
 140 /* OBSOLETE   MenuHandle menu; */
 141 /* OBSOLETE   Handle siow_resource; */
 142 /* OBSOLETE  */
 143 /* OBSOLETE   mac_app = 0; */
 144 /* OBSOLETE  */
 145 /* OBSOLETE   str = getenv ("DEBUG_GDB"); */
 146 /* OBSOLETE   if (str != NULL && str[0] != '\0') */
 147 /* OBSOLETE     { */
 148 /* OBSOLETE       if (strcmp (str, "openp") == 0) */
 149 /* OBSOLETE     debug_openp = 1; */
 150 /* OBSOLETE     } */
 151 /* OBSOLETE  */
 152 /* OBSOLETE   /* Don't do anything if we`re running under MPW. */ */
 153 /* OBSOLETE   if (!StandAlone) */
 154 /* OBSOLETE     return; */
 155 /* OBSOLETE  */
 156 /* OBSOLETE   /* Don't do anything if we're using SIOW. */ */
 157 /* OBSOLETE   /* This test requires that the siow 0 resource, as defined in */
 158 /* OBSOLETE      {RIncludes}siow.r, not be messed with.  If it is, then the */
 159 /* OBSOLETE      standard Mac setup below will step on SIOW's Mac setup and */
 160 /* OBSOLETE      most likely crash the machine. */ */
 161 /* OBSOLETE   siow_resource = GetResource ('siow', 0); */
 162 /* OBSOLETE   if (siow_resource != nil) */
 163 /* OBSOLETE     return; */
 164 /* OBSOLETE  */
 165 /* OBSOLETE   mac_app = 1; */
 166 /* OBSOLETE  */
 167 /* OBSOLETE   /* Do the standard Mac environment setup. */ */
 168 /* OBSOLETE   InitGraf (&QD (thePort)); */
 169 /* OBSOLETE   InitFonts (); */
 170 /* OBSOLETE   FlushEvents (everyEvent, 0); */
 171 /* OBSOLETE   InitWindows (); */
 172 /* OBSOLETE   InitMenus (); */
 173 /* OBSOLETE   TEInit (); */
 174 /* OBSOLETE   InitDialogs (NULL); */
 175 /* OBSOLETE   InitCursor (); */
 176 /* OBSOLETE  */
 177 /* OBSOLETE   /* Color Quickdraw is different from Classic QD. */ */
 178 /* OBSOLETE   SysEnvirons (2, &se); */
 179 /* OBSOLETE   has_color_qd = se.hasColorQD; */
 180 /* OBSOLETE   /* Use it if we got it. */ */
 181 /* OBSOLETE   use_color_qd = has_color_qd; */
 182 /* OBSOLETE  */
 183 /* OBSOLETE   sizerect.top = 50; */
 184 /* OBSOLETE   sizerect.left = 50; */
 185 /* OBSOLETE   sizerect.bottom = 1000; */
 186 /* OBSOLETE   sizerect.right = 1000; */
 187 /* OBSOLETE #if 0 */
 188 /* OBSOLETE   sizerect.bottom = screenBits.bounds.bottom - screenBits.bounds.top; */
 189 /* OBSOLETE   sizerect.right = screenBits.bounds.right - screenBits.bounds.left; */
 190 /* OBSOLETE #endif */
 191 /* OBSOLETE  */
 192 /* OBSOLETE   /* Set up the menus. */ */
 193 /* OBSOLETE   menubar = GetNewMBar (mbMain); */
 194 /* OBSOLETE   SetMenuBar (menubar); */
 195 /* OBSOLETE   /* Add the DAs etc as usual. */ */
 196 /* OBSOLETE   menu = GetMHandle (mApple); */
 197 /* OBSOLETE   if (menu != nil) */
 198 /* OBSOLETE     { */
 199 /* OBSOLETE       AddResMenu (menu, 'DRVR'); */
 200 /* OBSOLETE     } */
 201 /* OBSOLETE   DrawMenuBar (); */
 202 /* OBSOLETE  */
 203 /* OBSOLETE   new_console_window (); */
 204 /* OBSOLETE } */
 205 /* OBSOLETE  */
 206 /* OBSOLETE new_console_window (void) */
 207 /* OBSOLETE { */
 208 /* OBSOLETE   /* Create the main window we're going to play in. */ */
 209 /* OBSOLETE   if (has_color_qd) */
 210 /* OBSOLETE     console_window = GetNewCWindow (wConsole, NULL, (WindowPtr) - 1L); */
 211 /* OBSOLETE   else */
 212 /* OBSOLETE     console_window = GetNewWindow (wConsole, NULL, (WindowPtr) - 1L); */
 213 /* OBSOLETE  */
 214 /* OBSOLETE   SetPort (console_window); */
 215 /* OBSOLETE   console_text_rect = console_window->portRect; */
 216 /* OBSOLETE   /* Leave 8 pixels of blank space, for aesthetic reasons and to */
 217 /* OBSOLETE      make it easier to select from the beginning of a line. */ */
 218 /* OBSOLETE   console_text_rect.left += 8; */
 219 /* OBSOLETE   console_text_rect.bottom -= sbarwid - 1; */
 220 /* OBSOLETE   console_text_rect.right -= sbarwid - 1; */
 221 /* OBSOLETE   console_text = TENew (&console_text_rect, &console_text_rect); */
 222 /* OBSOLETE   TESetSelect (0, 40000, console_text); */
 223 /* OBSOLETE   TEDelete (console_text); */
 224 /* OBSOLETE   TEAutoView (1, console_text); */
 225 /* OBSOLETE  */
 226 /* OBSOLETE   console_v_scroll_rect = console_window->portRect; */
 227 /* OBSOLETE   console_v_scroll_rect.bottom -= sbarwid - 1; */
 228 /* OBSOLETE   console_v_scroll_rect.left = console_v_scroll_rect.right - sbarwid; */
 229 /* OBSOLETE   console_v_scrollbar = */
 230 /* OBSOLETE     NewControl (console_window, &console_v_scroll_rect, */
 231 /* OBSOLETE             "\p", 1, 0, 0, 0, scrollBarProc, 0L); */
 232 /* OBSOLETE  */
 233 /* OBSOLETE   ShowWindow (console_window); */
 234 /* OBSOLETE   SelectWindow (console_window); */
 235 /* OBSOLETE } */
 236 /* OBSOLETE  */
 237 /* OBSOLETE mac_command_loop (void) */
 238 /* OBSOLETE { */
 239 /* OBSOLETE   SysEnvRec se; */
 240 /* OBSOLETE   int eventloopdone = 0; */
 241 /* OBSOLETE   Boolean gotevent; */
 242 /* OBSOLETE   Point mouse; */
 243 /* OBSOLETE   EventRecord event; */
 244 /* OBSOLETE   WindowPtr win; */
 245 /* OBSOLETE   RgnHandle cursorRgn; */
 246 /* OBSOLETE   int i, tm; */
 247 /* OBSOLETE   Handle menubar; */
 248 /* OBSOLETE   MenuHandle menu; */
 249 /* OBSOLETE  */
 250 /* OBSOLETE   /* Figure out if the WaitNextEvent Trap is available.  */ */
 251 /* OBSOLETE   use_wne = */
 252 /* OBSOLETE     (NGetTrapAddress (0x60, ToolTrap) != NGetTrapAddress (0x9f, ToolTrap)); */
 253 /* OBSOLETE   /* Pass WaitNextEvent an empty region the first time through.  */ */
 254 /* OBSOLETE   cursorRgn = NewRgn (); */
 255 /* OBSOLETE   /* Go into the main event-handling loop.  */ */
 256 /* OBSOLETE   while (!eventloopdone) */
 257 /* OBSOLETE     { */
 258 /* OBSOLETE       /* Use WaitNextEvent if it is available, otherwise GetNextEvent.  */ */
 259 /* OBSOLETE       if (use_wne) */
 260 /* OBSOLETE     { */
 261 /* OBSOLETE       get_global_mouse (&mouse); */
 262 /* OBSOLETE       adjust_cursor (mouse, cursorRgn); */
 263 /* OBSOLETE       tm = GetCaretTime (); */
 264 /* OBSOLETE       gotevent = WaitNextEvent (everyEvent, &event, tm, cursorRgn); */
 265 /* OBSOLETE     } */
 266 /* OBSOLETE       else */
 267 /* OBSOLETE     { */
 268 /* OBSOLETE       SystemTask (); */
 269 /* OBSOLETE       gotevent = GetNextEvent (everyEvent, &event); */
 270 /* OBSOLETE     } */
 271 /* OBSOLETE       /* First decide if the event is for a dialog or is just any old event. */ */
 272 /* OBSOLETE       if (FrontWindow () != nil && IsDialogEvent (&event)) */
 273 /* OBSOLETE     { */
 274 /* OBSOLETE       short itemhit; */
 275 /* OBSOLETE       DialogPtr dialog; */
 276 /* OBSOLETE  */
 277 /* OBSOLETE       /* Handle all the modeless dialogs here. */ */
 278 /* OBSOLETE       if (DialogSelect (&event, &dialog, &itemhit)) */
 279 /* OBSOLETE         { */
 280 /* OBSOLETE         } */
 281 /* OBSOLETE     } */
 282 /* OBSOLETE       else if (gotevent) */
 283 /* OBSOLETE     { */
 284 /* OBSOLETE       /* Make sure we have the right cursor before handling the event. */ */
 285 /* OBSOLETE       adjust_cursor (event.where, cursorRgn); */
 286 /* OBSOLETE       do_event (&event); */
 287 /* OBSOLETE     } */
 288 /* OBSOLETE       else */
 289 /* OBSOLETE     { */
 290 /* OBSOLETE       do_idle (); */
 291 /* OBSOLETE     } */
 292 /* OBSOLETE     } */
 293 /* OBSOLETE } */
 294 /* OBSOLETE  */
 295 /* OBSOLETE /* Collect the global coordinates of the mouse pointer.  */ */
 296 /* OBSOLETE  */
 297 /* OBSOLETE get_global_mouse (Point *mouse) */
 298 /* OBSOLETE { */
 299 /* OBSOLETE   EventRecord evt; */
 300 /* OBSOLETE  */
 301 /* OBSOLETE   OSEventAvail (0, &evt); */
 302 /* OBSOLETE   *mouse = evt.where; */
 303 /* OBSOLETE } */
 304 /* OBSOLETE  */
 305 /* OBSOLETE /* Change the cursor's appearance to be appropriate for the given mouse */
 306 /* OBSOLETE    location.  */ */
 307 /* OBSOLETE  */
 308 /* OBSOLETE adjust_cursor (Point mouse, RgnHandle region) */
 309 /* OBSOLETE { */
 310 /* OBSOLETE } */
 311 /* OBSOLETE  */
 312 /* OBSOLETE /* Decipher an event, maybe do something with it.  */ */
 313 /* OBSOLETE  */
 314 /* OBSOLETE do_event (EventRecord *evt) */
 315 /* OBSOLETE { */
 316 /* OBSOLETE   short part, err, rslt = 0; */
 317 /* OBSOLETE   WindowPtr win; */
 318 /* OBSOLETE   Boolean hit; */
 319 /* OBSOLETE   char key; */
 320 /* OBSOLETE   Point pnt; */
 321 /* OBSOLETE  */
 322 /* OBSOLETE   switch (evt->what) */
 323 /* OBSOLETE     { */
 324 /* OBSOLETE     case mouseDown: */
 325 /* OBSOLETE       /* See if the click happened in a special part of the screen. */ */
 326 /* OBSOLETE       part = FindWindow (evt->where, &win); */
 327 /* OBSOLETE       switch (part) */
 328 /* OBSOLETE     { */
 329 /* OBSOLETE     case inMenuBar: */
 330 /* OBSOLETE       adjust_menus (); */
 331 /* OBSOLETE       do_menu_command (MenuSelect (evt->where)); */
 332 /* OBSOLETE       break; */
 333 /* OBSOLETE     case inSysWindow: */
 334 /* OBSOLETE       SystemClick (evt, win); */
 335 /* OBSOLETE       break; */
 336 /* OBSOLETE     case inContent: */
 337 /* OBSOLETE       if (win != FrontWindow ()) */
 338 /* OBSOLETE         { */
 339 /* OBSOLETE           /* Bring the clicked-on window to the front. */ */
 340 /* OBSOLETE           SelectWindow (win); */
 341 /* OBSOLETE           /* Fix the menu to match the new front window. */ */
 342 /* OBSOLETE           adjust_menus (); */
 343 /* OBSOLETE           /* We always want to discard the event now, since clicks in a */
 344 /* OBSOLETE              windows are often irreversible actions. */ */
 345 /* OBSOLETE         } */
 346 /* OBSOLETE       else */
 347 /* OBSOLETE         /* Mouse clicks in the front window do something useful. */ */
 348 /* OBSOLETE         do_mouse_down (win, evt); */
 349 /* OBSOLETE       break; */
 350 /* OBSOLETE     case inDrag: */
 351 /* OBSOLETE       /* Standard drag behavior, no tricks necessary. */ */
 352 /* OBSOLETE       DragWindow (win, evt->where, &dragrect); */
 353 /* OBSOLETE       break; */
 354 /* OBSOLETE     case inGrow: */
 355 /* OBSOLETE       grow_window (win, evt->where); */
 356 /* OBSOLETE       break; */
 357 /* OBSOLETE     case inZoomIn: */
 358 /* OBSOLETE     case inZoomOut: */
 359 /* OBSOLETE       zoom_window (win, evt->where, part); */
 360 /* OBSOLETE       break; */
 361 /* OBSOLETE     case inGoAway: */
 362 /* OBSOLETE       close_window (win); */
 363 /* OBSOLETE       break; */
 364 /* OBSOLETE     } */
 365 /* OBSOLETE       break; */
 366 /* OBSOLETE     case keyDown: */
 367 /* OBSOLETE     case autoKey: */
 368 /* OBSOLETE       key = evt->message & charCodeMask; */
 369 /* OBSOLETE       /* Check for menukey equivalents. */ */
 370 /* OBSOLETE       if (evt->modifiers & cmdKey) */
 371 /* OBSOLETE     { */
 372 /* OBSOLETE       if (evt->what == keyDown) */
 373 /* OBSOLETE         { */
 374 /* OBSOLETE           adjust_menus (); */
 375 /* OBSOLETE           do_menu_command (MenuKey (key)); */
 376 /* OBSOLETE         } */
 377 /* OBSOLETE     } */
 378 /* OBSOLETE       else */
 379 /* OBSOLETE     { */
 380 /* OBSOLETE       if (evt->what == keyDown) */
 381 /* OBSOLETE         { */
 382 /* OBSOLETE           /* Random keypress, interpret it. */ */
 383 /* OBSOLETE           do_keyboard_command (key); */
 384 /* OBSOLETE         } */
 385 /* OBSOLETE     } */
 386 /* OBSOLETE       break; */
 387 /* OBSOLETE     case activateEvt: */
 388 /* OBSOLETE       activate_window ((WindowPtr) evt->message, evt->modifiers & activeFlag); */
 389 /* OBSOLETE       break; */
 390 /* OBSOLETE     case updateEvt: */
 391 /* OBSOLETE       update_window ((WindowPtr) evt->message); */
 392 /* OBSOLETE       break; */
 393 /* OBSOLETE     case diskEvt: */
 394 /* OBSOLETE       /* Call DIBadMount in response to a diskEvt, so that the user can format */
 395 /* OBSOLETE          a floppy. (from DTS Sample) */ */
 396 /* OBSOLETE       if (HiWord (evt->message) != noErr) */
 397 /* OBSOLETE     { */
 398 /* OBSOLETE       SetPt (&pnt, 50, 50); */
 399 /* OBSOLETE       err = DIBadMount (pnt, evt->message); */
 400 /* OBSOLETE     } */
 401 /* OBSOLETE       break; */
 402 /* OBSOLETE     case app4Evt: */
 403 /* OBSOLETE       /* Grab only a single byte. */ */
 404 /* OBSOLETE       switch ((evt->message >> 24) & 0xFF) */
 405 /* OBSOLETE     { */
 406 /* OBSOLETE     case 0xfa: */
 407 /* OBSOLETE       break; */
 408 /* OBSOLETE     case 1: */
 409 /* OBSOLETE       inbackground = !(evt->message & 1); */
 410 /* OBSOLETE       activate_window (FrontWindow (), !inbackground); */
 411 /* OBSOLETE       break; */
 412 /* OBSOLETE     } */
 413 /* OBSOLETE       break; */
 414 /* OBSOLETE     case kHighLevelEvent: */
 415 /* OBSOLETE       AEProcessAppleEvent (evt); */
 416 /* OBSOLETE       break; */
 417 /* OBSOLETE     case nullEvent: */
 418 /* OBSOLETE       do_idle (); */
 419 /* OBSOLETE       rslt = 1; */
 420 /* OBSOLETE       break; */
 421 /* OBSOLETE     default: */
 422 /* OBSOLETE       break; */
 423 /* OBSOLETE     } */
 424 /* OBSOLETE   return rslt; */
 425 /* OBSOLETE } */
 426 /* OBSOLETE  */
 427 /* OBSOLETE /* Do any idle-time activities. */ */
 428 /* OBSOLETE  */
 429 /* OBSOLETE do_idle (void) */
 430 /* OBSOLETE { */
 431 /* OBSOLETE   TEIdle (console_text); */
 432 /* OBSOLETE } */
 433 /* OBSOLETE  */
 434 /* OBSOLETE grow_window (WindowPtr win, Point where) */
 435 /* OBSOLETE { */
 436 /* OBSOLETE   long winsize; */
 437 /* OBSOLETE   int h, v; */
 438 /* OBSOLETE   GrafPtr oldport; */
 439 /* OBSOLETE  */
 440 /* OBSOLETE   winsize = GrowWindow (win, where, &sizerect); */
 441 /* OBSOLETE   /* Only do anything if it actually changed size. */ */
 442 /* OBSOLETE   if (winsize != 0) */
 443 /* OBSOLETE     { */
 444 /* OBSOLETE       GetPort (&oldport); */
 445 /* OBSOLETE       SetPort (win); */
 446 /* OBSOLETE       if (win == console_window) */
 447 /* OBSOLETE     { */
 448 /* OBSOLETE       EraseRect (&win->portRect); */
 449 /* OBSOLETE       h = LoWord (winsize); */
 450 /* OBSOLETE       v = HiWord (winsize); */
 451 /* OBSOLETE       SizeWindow (win, h, v, 1); */
 452 /* OBSOLETE       resize_console_window (); */
 453 /* OBSOLETE     } */
 454 /* OBSOLETE       SetPort (oldport); */
 455 /* OBSOLETE     } */
 456 /* OBSOLETE } */
 457 /* OBSOLETE  */
 458 /* OBSOLETE zoom_window (WindowPtr win, Point where, short part) */
 459 /* OBSOLETE { */
 460 /* OBSOLETE   ZoomWindow (win, part, (win == FrontWindow ())); */
 461 /* OBSOLETE   if (win == console_window) */
 462 /* OBSOLETE     { */
 463 /* OBSOLETE       resize_console_window (); */
 464 /* OBSOLETE     } */
 465 /* OBSOLETE } */
 466 /* OBSOLETE  */
 467 /* OBSOLETE resize_console_window (void) */
 468 /* OBSOLETE { */
 469 /* OBSOLETE   adjust_console_sizes (); */
 470 /* OBSOLETE   adjust_console_scrollbars (); */
 471 /* OBSOLETE   adjust_console_text (); */
 472 /* OBSOLETE   InvalRect (&console_window->portRect); */
 473 /* OBSOLETE } */
 474 /* OBSOLETE  */
 475 /* OBSOLETE close_window (WindowPtr win) */
 476 /* OBSOLETE { */
 477 /* OBSOLETE } */
 478 /* OBSOLETE  */
 479 /* OBSOLETE pascal void */
 480 /* OBSOLETE v_scroll_proc (ControlHandle control, short part) */
 481 /* OBSOLETE { */
 482 /* OBSOLETE   int oldval, amount = 0, newval; */
 483 /* OBSOLETE   int pagesize = ((*console_text)->viewRect.bottom - (*console_text)->viewRect.top) / (*console_text)->lineHeight; */
 484 /* OBSOLETE   if (part) */
 485 /* OBSOLETE     { */
 486 /* OBSOLETE       oldval = GetCtlValue (control); */
 487 /* OBSOLETE       switch (part) */
 488 /* OBSOLETE     { */
 489 /* OBSOLETE     case inUpButton: */
 490 /* OBSOLETE       amount = 1; */
 491 /* OBSOLETE       break; */
 492 /* OBSOLETE     case inDownButton: */
 493 /* OBSOLETE       amount = -1; */
 494 /* OBSOLETE       break; */
 495 /* OBSOLETE     case inPageUp: */
 496 /* OBSOLETE       amount = pagesize; */
 497 /* OBSOLETE       break; */
 498 /* OBSOLETE     case inPageDown: */
 499 /* OBSOLETE       amount = -pagesize; */
 500 /* OBSOLETE       break; */
 501 /* OBSOLETE     default: */
 502 /* OBSOLETE       /* (should freak out) */ */
 503 /* OBSOLETE       break; */
 504 /* OBSOLETE     } */
 505 /* OBSOLETE       SetCtlValue (control, oldval - amount); */
 506 /* OBSOLETE       newval = GetCtlValue (control); */
 507 /* OBSOLETE       amount = oldval - newval; */
 508 /* OBSOLETE       if (amount) */
 509 /* OBSOLETE     TEScroll (0, amount * (*console_text)->lineHeight, console_text); */
 510 /* OBSOLETE     } */
 511 /* OBSOLETE } */
 512 /* OBSOLETE  */
 513 /* OBSOLETE do_mouse_down (WindowPtr win, EventRecord * event) */
 514 /* OBSOLETE { */
 515 /* OBSOLETE   short part, value; */
 516 /* OBSOLETE   Point mouse; */
 517 /* OBSOLETE   ControlHandle control; */
 518 /* OBSOLETE  */
 519 /* OBSOLETE   if (1 /*is_app_window(win) */ ) */
 520 /* OBSOLETE     { */
 521 /* OBSOLETE       SetPort (win); */
 522 /* OBSOLETE       mouse = event->where; */
 523 /* OBSOLETE       GlobalToLocal (&mouse); */
 524 /* OBSOLETE       part = FindControl (mouse, win, &control); */
 525 /* OBSOLETE       if (control == console_v_scrollbar) */
 526 /* OBSOLETE     { */
 527 /* OBSOLETE       switch (part) */
 528 /* OBSOLETE         { */
 529 /* OBSOLETE         case inThumb: */
 530 /* OBSOLETE           value = GetCtlValue (control); */
 531 /* OBSOLETE           part = TrackControl (control, mouse, nil); */
 532 /* OBSOLETE           if (part) */
 533 /* OBSOLETE             { */
 534 /* OBSOLETE               value -= GetCtlValue (control); */
 535 /* OBSOLETE               if (value) */
 536 /* OBSOLETE                 TEScroll (0, value * (*console_text)->lineHeight, */
 537 /* OBSOLETE                           console_text); */
 538 /* OBSOLETE             } */
 539 /* OBSOLETE           break; */
 540 /* OBSOLETE         default: */
 541 /* OBSOLETE #if 0                               /* don't deal with right now */ */
 542 /* OBSOLETE #if 1                               /* universal headers */ */
 543 /* OBSOLETE           value = TrackControl (control, mouse, (ControlActionUPP) v_scroll_proc); */
 544 /* OBSOLETE #else */
 545 /* OBSOLETE           value = TrackControl (control, mouse, (ProcPtr) v_scroll_proc); */
 546 /* OBSOLETE #endif */
 547 /* OBSOLETE #endif */
 548 /* OBSOLETE           break; */
 549 /* OBSOLETE         } */
 550 /* OBSOLETE     } */
 551 /* OBSOLETE       else */
 552 /* OBSOLETE     { */
 553 /* OBSOLETE       TEClick (mouse, 0, console_text); */
 554 /* OBSOLETE     } */
 555 /* OBSOLETE     } */
 556 /* OBSOLETE } */
 557 /* OBSOLETE  */
 558 /* OBSOLETE scroll_text (int hlines, int vlines) */
 559 /* OBSOLETE { */
 560 /* OBSOLETE } */
 561 /* OBSOLETE  */
 562 /* OBSOLETE activate_window (WindowPtr win, int activate) */
 563 /* OBSOLETE { */
 564 /* OBSOLETE   Rect grow_rect; */
 565 /* OBSOLETE  */
 566 /* OBSOLETE   if (win == nil) */
 567 /* OBSOLETE     return; */
 568 /* OBSOLETE   /* It's convenient to make the activated window also be the */
 569 /* OBSOLETE      current GrafPort. */ */
 570 /* OBSOLETE   if (activate) */
 571 /* OBSOLETE     SetPort (win); */
 572 /* OBSOLETE   /* Activate the console window's scrollbar. */ */
 573 /* OBSOLETE   if (win == console_window) */
 574 /* OBSOLETE     { */
 575 /* OBSOLETE       if (activate) */
 576 /* OBSOLETE     { */
 577 /* OBSOLETE       TEActivate (console_text); */
 578 /* OBSOLETE       /* Cause the grow icon to be redrawn at the next update. */ */
 579 /* OBSOLETE       grow_rect = console_window->portRect; */
 580 /* OBSOLETE       grow_rect.top = grow_rect.bottom - sbarwid; */
 581 /* OBSOLETE       grow_rect.left = grow_rect.right - sbarwid; */
 582 /* OBSOLETE       InvalRect (&grow_rect); */
 583 /* OBSOLETE     } */
 584 /* OBSOLETE       else */
 585 /* OBSOLETE     { */
 586 /* OBSOLETE       TEDeactivate (console_text); */
 587 /* OBSOLETE       DrawGrowIcon (console_window); */
 588 /* OBSOLETE     } */
 589 /* OBSOLETE       HiliteControl (console_v_scrollbar, (activate ? 0 : 255)); */
 590 /* OBSOLETE     } */
 591 /* OBSOLETE } */
 592 /* OBSOLETE  */
 593 /* OBSOLETE update_window (WindowPtr win) */
 594 /* OBSOLETE { */
 595 /* OBSOLETE   int controls = 1, growbox = 0; */
 596 /* OBSOLETE   GrafPtr oldport; */
 597 /* OBSOLETE  */
 598 /* OBSOLETE   /* Set the updating window to be the current grafport. */ */
 599 /* OBSOLETE   GetPort (&oldport); */
 600 /* OBSOLETE   SetPort (win); */
 601 /* OBSOLETE /*  recalc_depths();  */ */
 602 /* OBSOLETE   BeginUpdate (win); */
 603 /* OBSOLETE   if (win == console_window) */
 604 /* OBSOLETE     { */
 605 /* OBSOLETE       draw_console (); */
 606 /* OBSOLETE       controls = 1; */
 607 /* OBSOLETE       growbox = 1; */
 608 /* OBSOLETE     } */
 609 /* OBSOLETE   if (controls) */
 610 /* OBSOLETE     UpdateControls (win, win->visRgn); */
 611 /* OBSOLETE   if (growbox) */
 612 /* OBSOLETE     DrawGrowIcon (win); */
 613 /* OBSOLETE   EndUpdate (win); */
 614 /* OBSOLETE   SetPort (oldport); */
 615 /* OBSOLETE } */
 616 /* OBSOLETE  */
 617 /* OBSOLETE adjust_menus (void) */
 618 /* OBSOLETE { */
 619 /* OBSOLETE } */
 620 /* OBSOLETE  */
 621 /* OBSOLETE do_menu_command (long which) */
 622 /* OBSOLETE { */
 623 /* OBSOLETE   short menuid, menuitem; */
 624 /* OBSOLETE   short itemHit; */
 625 /* OBSOLETE   Str255 daname; */
 626 /* OBSOLETE   short daRefNum; */
 627 /* OBSOLETE   Boolean handledbyda; */
 628 /* OBSOLETE   WindowPtr win; */
 629 /* OBSOLETE   short ditem; */
 630 /* OBSOLETE   int i; */
 631 /* OBSOLETE   char cmdbuf[300]; */
 632 /* OBSOLETE  */
 633 /* OBSOLETE   cmdbuf[0] = '\0'; */
 634 /* OBSOLETE   menuid = HiWord (which); */
 635 /* OBSOLETE   menuitem = LoWord (which); */
 636 /* OBSOLETE   switch (menuid) */
 637 /* OBSOLETE     { */
 638 /* OBSOLETE     case mApple: */
 639 /* OBSOLETE       switch (menuitem) */
 640 /* OBSOLETE     { */
 641 /* OBSOLETE     case miAbout: */
 642 /* OBSOLETE       Alert (128, nil); */
 643 /* OBSOLETE       break; */
 644 /* OBSOLETE #if 0 */
 645 /* OBSOLETE     case miHelp: */
 646 /* OBSOLETE       /* (should pop up help info) */ */
 647 /* OBSOLETE       break; */
 648 /* OBSOLETE #endif */
 649 /* OBSOLETE     default: */
 650 /* OBSOLETE       GetItem (GetMHandle (mApple), menuitem, daname); */
 651 /* OBSOLETE       daRefNum = OpenDeskAcc (daname); */
 652 /* OBSOLETE     } */
 653 /* OBSOLETE       break; */
 654 /* OBSOLETE     case mFile: */
 655 /* OBSOLETE       switch (menuitem) */
 656 /* OBSOLETE     { */
 657 /* OBSOLETE     case miFileNew: */
 658 /* OBSOLETE       if (console_window == FrontWindow ()) */
 659 /* OBSOLETE         { */
 660 /* OBSOLETE           close_window (console_window); */
 661 /* OBSOLETE         } */
 662 /* OBSOLETE       new_console_window (); */
 663 /* OBSOLETE       break; */
 664 /* OBSOLETE     case miFileOpen: */
 665 /* OBSOLETE       SysBeep (20); */
 666 /* OBSOLETE       break; */
 667 /* OBSOLETE     case miFileQuit: */
 668 /* OBSOLETE       ExitToShell (); */
 669 /* OBSOLETE       break; */
 670 /* OBSOLETE     } */
 671 /* OBSOLETE       break; */
 672 /* OBSOLETE     case mEdit: */
 673 /* OBSOLETE       /* handledbyda = SystemEdit(menuitem-1); */ */
 674 /* OBSOLETE       switch (menuitem) */
 675 /* OBSOLETE     { */
 676 /* OBSOLETE     case miEditCut: */
 677 /* OBSOLETE       TECut (console_text); */
 678 /* OBSOLETE       break; */
 679 /* OBSOLETE     case miEditCopy: */
 680 /* OBSOLETE       TECopy (console_text); */
 681 /* OBSOLETE       break; */
 682 /* OBSOLETE     case miEditPaste: */
 683 /* OBSOLETE       TEPaste (console_text); */
 684 /* OBSOLETE       break; */
 685 /* OBSOLETE     case miEditClear: */
 686 /* OBSOLETE       TEDelete (console_text); */
 687 /* OBSOLETE       break; */
 688 /* OBSOLETE     } */
 689 /* OBSOLETE       /* All of these operations need the same postprocessing. */ */
 690 /* OBSOLETE       adjust_console_sizes (); */
 691 /* OBSOLETE       adjust_console_scrollbars (); */
 692 /* OBSOLETE       adjust_console_text (); */
 693 /* OBSOLETE       break; */
 694 /* OBSOLETE     case mDebug: */
 695 /* OBSOLETE       switch (menuitem) */
 696 /* OBSOLETE     { */
 697 /* OBSOLETE     case miDebugTarget: */
 698 /* OBSOLETE       sprintf (cmdbuf, "target %s", "remote"); */
 699 /* OBSOLETE       break; */
 700 /* OBSOLETE     case miDebugRun: */
 701 /* OBSOLETE       sprintf (cmdbuf, "run"); */
 702 /* OBSOLETE       break; */
 703 /* OBSOLETE     case miDebugContinue: */
 704 /* OBSOLETE       sprintf (cmdbuf, "continue"); */
 705 /* OBSOLETE       break; */
 706 /* OBSOLETE     case miDebugStep: */
 707 /* OBSOLETE       sprintf (cmdbuf, "step"); */
 708 /* OBSOLETE       break; */
 709 /* OBSOLETE     case miDebugNext: */
 710 /* OBSOLETE       sprintf (cmdbuf, "next"); */
 711 /* OBSOLETE       break; */
 712 /* OBSOLETE     } */
 713 /* OBSOLETE       break; */
 714 /* OBSOLETE     } */
 715 /* OBSOLETE   HiliteMenu (0); */
 716 /* OBSOLETE   /* Execute a command if one had been given.  Do here because a command */
 717 /* OBSOLETE      may longjmp before we get a chance to unhilite the menu. */ */
 718 /* OBSOLETE   if (strlen (cmdbuf) > 0) */
 719 /* OBSOLETE     execute_command (cmdbuf, 0); */
 720 /* OBSOLETE } */
 721 /* OBSOLETE  */
 722 /* OBSOLETE char commandbuf[1000]; */
 723 /* OBSOLETE  */
 724 /* OBSOLETE do_keyboard_command (int key) */
 725 /* OBSOLETE { */
 726 /* OBSOLETE   int startpos, endpos, i, len; */
 727 /* OBSOLETE   char *last_newline; */
 728 /* OBSOLETE   char buf[10], *text_str, *command, *cmd_start; */
 729 /* OBSOLETE   CharsHandle text; */
 730 /* OBSOLETE  */
 731 /* OBSOLETE   if (key == '\015' || key == '\003') */
 732 /* OBSOLETE     { */
 733 /* OBSOLETE       text = TEGetText (console_text); */
 734 /* OBSOLETE       HLock ((Handle) text); */
 735 /* OBSOLETE       text_str = *text; */
 736 /* OBSOLETE       startpos = (*console_text)->selStart; */
 737 /* OBSOLETE       endpos = (*console_text)->selEnd; */
 738 /* OBSOLETE       if (startpos != endpos) */
 739 /* OBSOLETE     { */
 740 /* OBSOLETE       len = endpos - startpos; */
 741 /* OBSOLETE       cmd_start = text_str + startpos; */
 742 /* OBSOLETE     } */
 743 /* OBSOLETE       else */
 744 /* OBSOLETE     { */
 745 /* OBSOLETE       for (i = startpos - 1; i >= 0; --i) */
 746 /* OBSOLETE         if (text_str[i] == '\015') */
 747 /* OBSOLETE           break; */
 748 /* OBSOLETE       last_newline = text_str + i; */
 749 /* OBSOLETE       len = (text_str + startpos) - 1 - last_newline; */
 750 /* OBSOLETE       cmd_start = last_newline + 1; */
 751 /* OBSOLETE     } */
 752 /* OBSOLETE       if (len > 1000) */
 753 /* OBSOLETE     len = 999; */
 754 /* OBSOLETE       if (len < 0) */
 755 /* OBSOLETE     len = 0; */
 756 /* OBSOLETE       strncpy (commandbuf + 1, cmd_start, len); */
 757 /* OBSOLETE       commandbuf[1 + len] = 0; */
 758 /* OBSOLETE       command = commandbuf + 1; */
 759 /* OBSOLETE       HUnlock ((Handle) text); */
 760 /* OBSOLETE       commandbuf[0] = strlen (command); */
 761 /* OBSOLETE  */
 762 /* OBSOLETE       /* Insert a newline and recalculate before doing any command. */ */
 763 /* OBSOLETE       key = '\015'; */
 764 /* OBSOLETE       TEKey (key, console_text); */
 765 /* OBSOLETE       TEInsert (buf, 1, console_text); */
 766 /* OBSOLETE       adjust_console_sizes (); */
 767 /* OBSOLETE       adjust_console_scrollbars (); */
 768 /* OBSOLETE       adjust_console_text (); */
 769 /* OBSOLETE  */
 770 /* OBSOLETE       if (strlen (command) > 0) */
 771 /* OBSOLETE     { */
 772 /* OBSOLETE       execute_command (command, 0); */
 773 /* OBSOLETE       bpstat_do_actions (&stop_bpstat); */
 774 /* OBSOLETE     } */
 775 /* OBSOLETE     } */
 776 /* OBSOLETE   else */
 777 /* OBSOLETE     { */
 778 /* OBSOLETE       /* A self-inserting character.  This includes delete.  */ */
 779 /* OBSOLETE       TEKey (key, console_text); */
 780 /* OBSOLETE     } */
 781 /* OBSOLETE } */
 782 /* OBSOLETE  */
 783 /* OBSOLETE /* Draw all graphical stuff in the console window.  */ */
 784 /* OBSOLETE  */
 785 /* OBSOLETE draw_console (void) */
 786 /* OBSOLETE { */
 787 /* OBSOLETE   SetPort (console_window); */
 788 /* OBSOLETE   TEUpdate (&(console_window->portRect), console_text); */
 789 /* OBSOLETE } */
 790 /* OBSOLETE  */
 791 /* OBSOLETE /* Cause an update of a given window's entire contents.  */ */
 792 /* OBSOLETE  */
 793 /* OBSOLETE force_update (WindowPtr win) */
 794 /* OBSOLETE { */
 795 /* OBSOLETE   GrafPtr oldport; */
 796 /* OBSOLETE  */
 797 /* OBSOLETE   if (win == nil) */
 798 /* OBSOLETE     return; */
 799 /* OBSOLETE   GetPort (&oldport); */
 800 /* OBSOLETE   SetPort (win); */
 801 /* OBSOLETE   EraseRect (&win->portRect); */
 802 /* OBSOLETE   InvalRect (&win->portRect); */
 803 /* OBSOLETE   SetPort (oldport); */
 804 /* OBSOLETE } */
 805 /* OBSOLETE  */
 806 /* OBSOLETE adjust_console_sizes (void) */
 807 /* OBSOLETE { */
 808 /* OBSOLETE   Rect tmprect; */
 809 /* OBSOLETE  */
 810 /* OBSOLETE   tmprect = console_window->portRect; */
 811 /* OBSOLETE   /* Move and size the scrollbar. */ */
 812 /* OBSOLETE   MoveControl (console_v_scrollbar, tmprect.right - sbarwid, 0); */
 813 /* OBSOLETE   SizeControl (console_v_scrollbar, sbarwid + 1, tmprect.bottom - sbarwid + 1); */
 814 /* OBSOLETE   /* Move and size the text. */ */
 815 /* OBSOLETE   tmprect.left += 7; */
 816 /* OBSOLETE   tmprect.right -= sbarwid; */
 817 /* OBSOLETE   tmprect.bottom -= sbarwid; */
 818 /* OBSOLETE   InsetRect (&tmprect, 1, 1); */
 819 /* OBSOLETE   (*console_text)->destRect = tmprect; */
 820 /* OBSOLETE   /* Fiddle bottom of viewrect to be even multiple of text lines. */ */
 821 /* OBSOLETE   tmprect.bottom = tmprect.top */
 822 /* OBSOLETE     + ((tmprect.bottom - tmprect.top) / (*console_text)->lineHeight) */
 823 /* OBSOLETE     * (*console_text)->lineHeight; */
 824 /* OBSOLETE   (*console_text)->viewRect = tmprect; */
 825 /* OBSOLETE } */
 826 /* OBSOLETE  */
 827 /* OBSOLETE adjust_console_scrollbars (void) */
 828 /* OBSOLETE { */
 829 /* OBSOLETE   int lines, newmax, value; */
 830 /* OBSOLETE  */
 831 /* OBSOLETE   (*console_v_scrollbar)->contrlVis = 0; */
 832 /* OBSOLETE   lines = (*console_text)->nLines; */
 833 /* OBSOLETE   newmax = lines - (((*console_text)->viewRect.bottom */
 834 /* OBSOLETE                  - (*console_text)->viewRect.top) */
 835 /* OBSOLETE                 / (*console_text)->lineHeight); */
 836 /* OBSOLETE   if (newmax < 0) */
 837 /* OBSOLETE     newmax = 0; */
 838 /* OBSOLETE   SetCtlMax (console_v_scrollbar, newmax); */
 839 /* OBSOLETE   value = ((*console_text)->viewRect.top - (*console_text)->destRect.top) */
 840 /* OBSOLETE     / (*console_text)->lineHeight; */
 841 /* OBSOLETE   SetCtlValue (console_v_scrollbar, value); */
 842 /* OBSOLETE   (*console_v_scrollbar)->contrlVis = 0xff; */
 843 /* OBSOLETE   ShowControl (console_v_scrollbar); */
 844 /* OBSOLETE } */
 845 /* OBSOLETE  */
 846 /* OBSOLETE /* Scroll the TE record so that it is consistent with the scrollbar(s). */ */
 847 /* OBSOLETE  */
 848 /* OBSOLETE adjust_console_text (void) */
 849 /* OBSOLETE { */
 850 /* OBSOLETE   TEScroll (((*console_text)->viewRect.left */
 851 /* OBSOLETE          - (*console_text)->destRect.left) */
 852 /* OBSOLETE         - 0 /* get h scroll value */ , */
 853 /* OBSOLETE         ((((*console_text)->viewRect.top - (*console_text)->destRect.top) */
 854 /* OBSOLETE           / (*console_text)->lineHeight) */
 855 /* OBSOLETE          - GetCtlValue (console_v_scrollbar)) */
 856 /* OBSOLETE         * (*console_text)->lineHeight, */
 857 /* OBSOLETE         console_text); */
 858 /* OBSOLETE } */
 859 /* OBSOLETE  */
 860 /* OBSOLETE /* Readline substitute. */ */
 861 /* OBSOLETE  */
 862 /* OBSOLETE char * */
 863 /* OBSOLETE readline (char *prrompt) */
 864 /* OBSOLETE { */
 865 /* OBSOLETE   return gdb_readline (prrompt); */
 866 /* OBSOLETE } */
 867 /* OBSOLETE  */
 868 /* OBSOLETE char *rl_completer_word_break_characters; */
 869 /* OBSOLETE  */
 870 /* OBSOLETE char *rl_completer_quote_characters; */
 871 /* OBSOLETE  */
 872 /* OBSOLETE int (*rl_completion_entry_function) (); */
 873 /* OBSOLETE  */
 874 /* OBSOLETE int rl_point; */
 875 /* OBSOLETE  */
 876 /* OBSOLETE char *rl_line_buffer; */
 877 /* OBSOLETE  */
 878 /* OBSOLETE char *rl_readline_name; */
 879 /* OBSOLETE  */
 880 /* OBSOLETE /* History substitute. */ */
 881 /* OBSOLETE  */
 882 /* OBSOLETE void */
 883 /* OBSOLETE add_history (char *buf) */
 884 /* OBSOLETE { */
 885 /* OBSOLETE } */
 886 /* OBSOLETE  */
 887 /* OBSOLETE void */
 888 /* OBSOLETE stifle_history (int n) */
 889 /* OBSOLETE { */
 890 /* OBSOLETE } */
 891 /* OBSOLETE  */
 892 /* OBSOLETE int */
 893 /* OBSOLETE unstifle_history (void) */
 894 /* OBSOLETE { */
 895 /* OBSOLETE } */
 896 /* OBSOLETE  */
 897 /* OBSOLETE int */
 898 /* OBSOLETE read_history (char *name) */
 899 /* OBSOLETE { */
 900 /* OBSOLETE } */
 901 /* OBSOLETE  */
 902 /* OBSOLETE int */
 903 /* OBSOLETE write_history (char *name) */
 904 /* OBSOLETE { */
 905 /* OBSOLETE } */
 906 /* OBSOLETE  */
 907 /* OBSOLETE int */
 908 /* OBSOLETE history_expand (char *x, char **y) */
 909 /* OBSOLETE { */
 910 /* OBSOLETE } */
 911 /* OBSOLETE  */
 912 /* OBSOLETE extern HIST_ENTRY * */
 913 /* OBSOLETE history_get (int xxx) */
 914 /* OBSOLETE { */
 915 /* OBSOLETE   return NULL; */
 916 /* OBSOLETE } */
 917 /* OBSOLETE  */
 918 /* OBSOLETE int history_base; */
 919 /* OBSOLETE  */
 920 /* OBSOLETE char * */
 921 /* OBSOLETE filename_completion_function (char *text, char *name) */
 922 /* OBSOLETE { */
 923 /* OBSOLETE   return "?"; */
 924 /* OBSOLETE } */
 925 /* OBSOLETE  */
 926 /* OBSOLETE char * */
 927 /* OBSOLETE tilde_expand (char *str) */
 928 /* OBSOLETE { */
 929 /* OBSOLETE   return xstrdup (str); */
 930 /* OBSOLETE } */
 931 /* OBSOLETE  */
 932 /* OBSOLETE /* Modified versions of standard I/O. */ */
 933 /* OBSOLETE  */
 934 /* OBSOLETE #undef fprintf */
 935 /* OBSOLETE  */
 936 /* OBSOLETE int */
 937 /* OBSOLETE hacked_fprintf (FILE * fp, const char *fmt,...) */
 938 /* OBSOLETE { */
 939 /* OBSOLETE   int ret; */
 940 /* OBSOLETE   va_list ap; */
 941 /* OBSOLETE  */
 942 /* OBSOLETE   va_start (ap, fmt); */
 943 /* OBSOLETE   if (mac_app && (fp == stdout || fp == stderr)) */
 944 /* OBSOLETE     { */
 945 /* OBSOLETE       char buf[1000]; */
 946 /* OBSOLETE  */
 947 /* OBSOLETE       ret = vsprintf (buf, fmt, ap); */
 948 /* OBSOLETE       TEInsert (buf, strlen (buf), console_text); */
 949 /* OBSOLETE     } */
 950 /* OBSOLETE   else */
 951 /* OBSOLETE     ret = vfprintf (fp, fmt, ap); */
 952 /* OBSOLETE   va_end (ap); */
 953 /* OBSOLETE   return ret; */
 954 /* OBSOLETE } */
 955 /* OBSOLETE  */
 956 /* OBSOLETE #undef printf */
 957 /* OBSOLETE  */
 958 /* OBSOLETE int */
 959 /* OBSOLETE hacked_printf (const char *fmt,...) */
 960 /* OBSOLETE { */
 961 /* OBSOLETE   int ret; */
 962 /* OBSOLETE   va_list ap; */
 963 /* OBSOLETE  */
 964 /* OBSOLETE   va_start (ap, fmt); */
 965 /* OBSOLETE   ret = hacked_vfprintf (stdout, fmt, ap); */
 966 /* OBSOLETE   va_end (ap); */
 967 /* OBSOLETE   return ret; */
 968 /* OBSOLETE } */
 969 /* OBSOLETE  */
 970 /* OBSOLETE #undef vfprintf */
 971 /* OBSOLETE  */
 972 /* OBSOLETE int */
 973 /* OBSOLETE hacked_vfprintf (FILE * fp, const char *format, va_list args) */
 974 /* OBSOLETE { */
 975 /* OBSOLETE   if (mac_app && (fp == stdout || fp == stderr)) */
 976 /* OBSOLETE     { */
 977 /* OBSOLETE       char buf[1000]; */
 978 /* OBSOLETE       int ret; */
 979 /* OBSOLETE  */
 980 /* OBSOLETE       ret = vsprintf (buf, format, args); */
 981 /* OBSOLETE       TEInsert (buf, strlen (buf), console_text); */
 982 /* OBSOLETE       if (strchr (buf, '\n')) */
 983 /* OBSOLETE     { */
 984 /* OBSOLETE       adjust_console_sizes (); */
 985 /* OBSOLETE       adjust_console_scrollbars (); */
 986 /* OBSOLETE       adjust_console_text (); */
 987 /* OBSOLETE     } */
 988 /* OBSOLETE       return ret; */
 989 /* OBSOLETE     } */
 990 /* OBSOLETE   else */
 991 /* OBSOLETE     return vfprintf (fp, format, args); */
 992 /* OBSOLETE } */
 993 /* OBSOLETE  */
 994 /* OBSOLETE #undef fputs */
 995 /* OBSOLETE  */
 996 /* OBSOLETE hacked_fputs (const char *s, FILE * fp) */
 997 /* OBSOLETE { */
 998 /* OBSOLETE   if (mac_app && (fp == stdout || fp == stderr)) */
 999 /* OBSOLETE     { */
1000 /* OBSOLETE       TEInsert (s, strlen (s), console_text); */
1001 /* OBSOLETE       if (strchr (s, '\n')) */
1002 /* OBSOLETE     { */
1003 /* OBSOLETE       adjust_console_sizes (); */
1004 /* OBSOLETE       adjust_console_scrollbars (); */
1005 /* OBSOLETE       adjust_console_text (); */
1006 /* OBSOLETE     } */
1007 /* OBSOLETE       return 0; */
1008 /* OBSOLETE     } */
1009 /* OBSOLETE   else */
1010 /* OBSOLETE     return fputs (s, fp); */
1011 /* OBSOLETE } */
1012 /* OBSOLETE  */
1013 /* OBSOLETE #undef fputc */
1014 /* OBSOLETE  */
1015 /* OBSOLETE hacked_fputc (const char c, FILE * fp) */
1016 /* OBSOLETE { */
1017 /* OBSOLETE   if (mac_app && (fp == stdout || fp == stderr)) */
1018 /* OBSOLETE     { */
1019 /* OBSOLETE       char buf[1]; */
1020 /* OBSOLETE  */
1021 /* OBSOLETE       buf[0] = c; */
1022 /* OBSOLETE       TEInsert (buf, 1, console_text); */
1023 /* OBSOLETE       if (c == '\n') */
1024 /* OBSOLETE     { */
1025 /* OBSOLETE       adjust_console_sizes (); */
1026 /* OBSOLETE       adjust_console_scrollbars (); */
1027 /* OBSOLETE       adjust_console_text (); */
1028 /* OBSOLETE     } */
1029 /* OBSOLETE       return c; */
1030 /* OBSOLETE     } */
1031 /* OBSOLETE   else */
1032 /* OBSOLETE     return fputc (c, fp); */
1033 /* OBSOLETE } */
1034 /* OBSOLETE  */
1035 /* OBSOLETE #undef putc */
1036 /* OBSOLETE  */
1037 /* OBSOLETE hacked_putc (const char c, FILE * fp) */
1038 /* OBSOLETE { */
1039 /* OBSOLETE   if (mac_app && (fp == stdout || fp == stderr)) */
1040 /* OBSOLETE     { */
1041 /* OBSOLETE       char buf[1]; */
1042 /* OBSOLETE  */
1043 /* OBSOLETE       buf[0] = c; */
1044 /* OBSOLETE       TEInsert (buf, 1, console_text); */
1045 /* OBSOLETE       if (c == '\n') */
1046 /* OBSOLETE     { */
1047 /* OBSOLETE       adjust_console_sizes (); */
1048 /* OBSOLETE       adjust_console_scrollbars (); */
1049 /* OBSOLETE       adjust_console_text (); */
1050 /* OBSOLETE     } */
1051 /* OBSOLETE       return c; */
1052 /* OBSOLETE     } */
1053 /* OBSOLETE   else */
1054 /* OBSOLETE     return fputc (c, fp); */
1055 /* OBSOLETE } */
1056 /* OBSOLETE  */
1057 /* OBSOLETE #undef fflush */
1058 /* OBSOLETE  */
1059 /* OBSOLETE hacked_fflush (FILE * fp) */
1060 /* OBSOLETE { */
1061 /* OBSOLETE   if (mac_app && (fp == stdout || fp == stderr)) */
1062 /* OBSOLETE     { */
1063 /* OBSOLETE       adjust_console_sizes (); */
1064 /* OBSOLETE       adjust_console_scrollbars (); */
1065 /* OBSOLETE       adjust_console_text (); */
1066 /* OBSOLETE       return 0; */
1067 /* OBSOLETE     } */
1068 /* OBSOLETE   return fflush (fp); */
1069 /* OBSOLETE } */
1070 /* OBSOLETE  */
1071 /* OBSOLETE #undef fgetc */
1072 /* OBSOLETE  */
1073 /* OBSOLETE hacked_fgetc (FILE * fp) */
1074 /* OBSOLETE { */
1075 /* OBSOLETE   if (mac_app && (fp == stdin)) */
1076 /* OBSOLETE     { */
1077 /* OBSOLETE       /* Catch any attempts to use this.  */ */
1078 /* OBSOLETE       DebugStr ("\pShould not be reading from stdin!"); */
1079 /* OBSOLETE       return '\n'; */
1080 /* OBSOLETE     } */
1081 /* OBSOLETE   return fgetc (fp); */
1082 /* OBSOLETE } */