/* OBSOLETE /* Top level support for Mac interface to GDB, the GNU debugger. */ /* OBSOLETE Copyright 1994, 1995, 1998, 2000, 2001 Free Software Foundation, Inc. */ /* OBSOLETE Contributed by Cygnus Support. Written by Stan Shebs. */ /* OBSOLETE */ /* OBSOLETE This file is part of GDB. */ /* OBSOLETE */ /* OBSOLETE This program is free software; you can redistribute it and/or modify */ /* OBSOLETE it under the terms of the GNU General Public License as published by */ /* OBSOLETE the Free Software Foundation; either version 2 of the License, or */ /* OBSOLETE (at your option) any later version. */ /* OBSOLETE */ /* OBSOLETE This program is distributed in the hope that it will be useful, */ /* OBSOLETE but WITHOUT ANY WARRANTY; without even the implied warranty of */ /* OBSOLETE MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the */ /* OBSOLETE GNU General Public License for more details. */ /* OBSOLETE */ /* OBSOLETE You should have received a copy of the GNU General Public License */ /* OBSOLETE along with this program; if not, write to the Free Software */ /* OBSOLETE Foundation, Inc., 59 Temple Place - Suite 330, */ /* OBSOLETE Boston, MA 02111-1307, USA. */ */ /* OBSOLETE */ /* OBSOLETE #include "defs.h" */ /* OBSOLETE */ /* OBSOLETE #include <readline/readline.h> */ /* OBSOLETE #include <readline/history.h> */ /* OBSOLETE */ /* OBSOLETE #include <Types.h> */ /* OBSOLETE #include <Resources.h> */ /* OBSOLETE #include <QuickDraw.h> */ /* OBSOLETE #include <Fonts.h> */ /* OBSOLETE #include <Events.h> */ /* OBSOLETE #include <Windows.h> */ /* OBSOLETE #include <Menus.h> */ /* OBSOLETE #include <TextEdit.h> */ /* OBSOLETE #include <Dialogs.h> */ /* OBSOLETE #include <Desk.h> */ /* OBSOLETE #include <ToolUtils.h> */ /* OBSOLETE #include <Memory.h> */ /* OBSOLETE #include <SegLoad.h> */ /* OBSOLETE #include <Files.h> */ /* OBSOLETE #include <Folders.h> */ /* OBSOLETE #include <OSUtils.h> */ /* OBSOLETE #include <OSEvents.h> */ /* OBSOLETE #include <DiskInit.h> */ /* OBSOLETE #include <Packages.h> */ /* OBSOLETE #include <Traps.h> */ /* OBSOLETE #include <Lists.h> */ /* OBSOLETE #include <Gestalt.h> */ /* OBSOLETE #include <PPCToolbox.h> */ /* OBSOLETE #include <AppleEvents.h> */ /* OBSOLETE #include <StandardFile.h> */ /* OBSOLETE #include <Sound.h> */ /* OBSOLETE */ /* OBSOLETE #ifdef MPW */ /* OBSOLETE #define QD(whatever) (qd.##whatever) */ /* OBSOLETE #define QDPat(whatever) (&(qd.##whatever)) */ /* OBSOLETE #endif /* MPW */ */ /* OBSOLETE */ /* OBSOLETE #ifdef THINK_C */ /* OBSOLETE #define QD(whatever) (whatever) */ /* OBSOLETE #endif */ /* OBSOLETE */ /* OBSOLETE #define p2c(pstr,cbuf) \ */ /* OBSOLETE strncpy(cbuf, ((char *) (pstr) + 1), pstr[0]); \ */ /* OBSOLETE cbuf[pstr[0]] = '\0'; */ /* OBSOLETE */ /* OBSOLETE #define pascalify(STR) \ */ /* OBSOLETE sprintf(tmpbuf, " %s", STR); \ */ /* OBSOLETE tmpbuf[0] = strlen(STR); */ /* OBSOLETE */ /* OBSOLETE #include "gdbcmd.h" */ /* OBSOLETE #include "call-cmds.h" */ /* OBSOLETE #include "symtab.h" */ /* OBSOLETE #include "inferior.h" */ /* OBSOLETE #include <signal.h> */ /* OBSOLETE #include "target.h" */ /* OBSOLETE #include "breakpoint.h" */ /* OBSOLETE #include "gdbtypes.h" */ /* OBSOLETE #include "expression.h" */ /* OBSOLETE #include "language.h" */ /* OBSOLETE */ /* OBSOLETE #include "mac-defs.h" */ /* OBSOLETE */ /* OBSOLETE int debug_openp = 0; */ /* OBSOLETE */ /* OBSOLETE /* This is true if we are running as a standalone application. */ */ /* OBSOLETE */ /* OBSOLETE int mac_app; */ /* OBSOLETE */ /* OBSOLETE /* This is true if we are using WaitNextEvent. */ */ /* OBSOLETE */ /* OBSOLETE int use_wne; */ /* OBSOLETE */ /* OBSOLETE /* This is true if we have Color Quickdraw. */ */ /* OBSOLETE */ /* OBSOLETE int has_color_qd; */ /* OBSOLETE */ /* OBSOLETE /* This is true if we are using Color Quickdraw. */ */ /* OBSOLETE */ /* OBSOLETE int use_color_qd; */ /* OBSOLETE */ /* OBSOLETE int inbackground; */ /* OBSOLETE */ /* OBSOLETE Rect dragrect = */ /* OBSOLETE {-32000, -32000, 32000, 32000}; */ /* OBSOLETE Rect sizerect; */ /* OBSOLETE */ /* OBSOLETE int sbarwid = 15; */ /* OBSOLETE */ /* OBSOLETE /* Globals for the console window. */ */ /* OBSOLETE */ /* OBSOLETE WindowPtr console_window; */ /* OBSOLETE */ /* OBSOLETE ControlHandle console_v_scrollbar; */ /* OBSOLETE */ /* OBSOLETE Rect console_v_scroll_rect; */ /* OBSOLETE */ /* OBSOLETE TEHandle console_text; */ /* OBSOLETE */ /* OBSOLETE Rect console_text_rect; */ /* OBSOLETE */ /* OBSOLETE /* This will go away eventually. */ */ /* OBSOLETE gdb_has_a_terminal (void) */ /* OBSOLETE { */ /* OBSOLETE return 1; */ /* OBSOLETE } */ /* OBSOLETE */ /* OBSOLETE mac_init (void) */ /* OBSOLETE { */ /* OBSOLETE SysEnvRec se; */ /* OBSOLETE int eventloopdone = 0; */ /* OBSOLETE char *str; */ /* OBSOLETE Boolean gotevent; */ /* OBSOLETE Point mouse; */ /* OBSOLETE EventRecord event; */ /* OBSOLETE WindowPtr win; */ /* OBSOLETE RgnHandle cursorRgn; */ /* OBSOLETE int i; */ /* OBSOLETE Handle menubar; */ /* OBSOLETE MenuHandle menu; */ /* OBSOLETE Handle siow_resource; */ /* OBSOLETE */ /* OBSOLETE mac_app = 0; */ /* OBSOLETE */ /* OBSOLETE str = getenv ("DEBUG_GDB"); */ /* OBSOLETE if (str != NULL && str[0] != '\0') */ /* OBSOLETE { */ /* OBSOLETE if (strcmp (str, "openp") == 0) */ /* OBSOLETE debug_openp = 1; */ /* OBSOLETE } */ /* OBSOLETE */ /* OBSOLETE /* Don't do anything if we`re running under MPW. */ */ /* OBSOLETE if (!StandAlone) */ /* OBSOLETE return; */ /* OBSOLETE */ /* OBSOLETE /* Don't do anything if we're using SIOW. */ */ /* OBSOLETE /* This test requires that the siow 0 resource, as defined in */ /* OBSOLETE {RIncludes}siow.r, not be messed with. If it is, then the */ /* OBSOLETE standard Mac setup below will step on SIOW's Mac setup and */ /* OBSOLETE most likely crash the machine. */ */ /* OBSOLETE siow_resource = GetResource ('siow', 0); */ /* OBSOLETE if (siow_resource != nil) */ /* OBSOLETE return; */ /* OBSOLETE */ /* OBSOLETE mac_app = 1; */ /* OBSOLETE */ /* OBSOLETE /* Do the standard Mac environment setup. */ */ /* OBSOLETE InitGraf (&QD (thePort)); */ /* OBSOLETE InitFonts (); */ /* OBSOLETE FlushEvents (everyEvent, 0); */ /* OBSOLETE InitWindows (); */ /* OBSOLETE InitMenus (); */ /* OBSOLETE TEInit (); */ /* OBSOLETE InitDialogs (NULL); */ /* OBSOLETE InitCursor (); */ /* OBSOLETE */ /* OBSOLETE /* Color Quickdraw is different from Classic QD. */ */ /* OBSOLETE SysEnvirons (2, &se); */ /* OBSOLETE has_color_qd = se.hasColorQD; */ /* OBSOLETE /* Use it if we got it. */ */ /* OBSOLETE use_color_qd = has_color_qd; */ /* OBSOLETE */ /* OBSOLETE sizerect.top = 50; */ /* OBSOLETE sizerect.left = 50; */ /* OBSOLETE sizerect.bottom = 1000; */ /* OBSOLETE sizerect.right = 1000; */ /* OBSOLETE #if 0 */ /* OBSOLETE sizerect.bottom = screenBits.bounds.bottom - screenBits.bounds.top; */ /* OBSOLETE sizerect.right = screenBits.bounds.right - screenBits.bounds.left; */ /* OBSOLETE #endif */ /* OBSOLETE */ /* OBSOLETE /* Set up the menus. */ */ /* OBSOLETE menubar = GetNewMBar (mbMain); */ /* OBSOLETE SetMenuBar (menubar); */ /* OBSOLETE /* Add the DAs etc as usual. */ */ /* OBSOLETE menu = GetMHandle (mApple); */ /* OBSOLETE if (menu != nil) */ /* OBSOLETE { */ /* OBSOLETE AddResMenu (menu, 'DRVR'); */ /* OBSOLETE } */ /* OBSOLETE DrawMenuBar (); */ /* OBSOLETE */ /* OBSOLETE new_console_window (); */ /* OBSOLETE } */ /* OBSOLETE */ /* OBSOLETE new_console_window (void) */ /* OBSOLETE { */ /* OBSOLETE /* Create the main window we're going to play in. */ */ /* OBSOLETE if (has_color_qd) */ /* OBSOLETE console_window = GetNewCWindow (wConsole, NULL, (WindowPtr) - 1L); */ /* OBSOLETE else */ /* OBSOLETE console_window = GetNewWindow (wConsole, NULL, (WindowPtr) - 1L); */ /* OBSOLETE */ /* OBSOLETE SetPort (console_window); */ /* OBSOLETE console_text_rect = console_window->portRect; */ /* OBSOLETE /* Leave 8 pixels of blank space, for aesthetic reasons and to */ /* OBSOLETE make it easier to select from the beginning of a line. */ */ /* OBSOLETE console_text_rect.left += 8; */ /* OBSOLETE console_text_rect.bottom -= sbarwid - 1; */ /* OBSOLETE console_text_rect.right -= sbarwid - 1; */ /* OBSOLETE console_text = TENew (&console_text_rect, &console_text_rect); */ /* OBSOLETE TESetSelect (0, 40000, console_text); */ /* OBSOLETE TEDelete (console_text); */ /* OBSOLETE TEAutoView (1, console_text); */ /* OBSOLETE */ /* OBSOLETE console_v_scroll_rect = console_window->portRect; */ /* OBSOLETE console_v_scroll_rect.bottom -= sbarwid - 1; */ /* OBSOLETE console_v_scroll_rect.left = console_v_scroll_rect.right - sbarwid; */ /* OBSOLETE console_v_scrollbar = */ /* OBSOLETE NewControl (console_window, &console_v_scroll_rect, */ /* OBSOLETE "\p", 1, 0, 0, 0, scrollBarProc, 0L); */ /* OBSOLETE */ /* OBSOLETE ShowWindow (console_window); */ /* OBSOLETE SelectWindow (console_window); */ /* OBSOLETE } */ /* OBSOLETE */ /* OBSOLETE mac_command_loop (void) */ /* OBSOLETE { */ /* OBSOLETE SysEnvRec se; */ /* OBSOLETE int eventloopdone = 0; */ /* OBSOLETE Boolean gotevent; */ /* OBSOLETE Point mouse; */ /* OBSOLETE EventRecord event; */ /* OBSOLETE WindowPtr win; */ /* OBSOLETE RgnHandle cursorRgn; */ /* OBSOLETE int i, tm; */ /* OBSOLETE Handle menubar; */ /* OBSOLETE MenuHandle menu; */ /* OBSOLETE */ /* OBSOLETE /* Figure out if the WaitNextEvent Trap is available. */ */ /* OBSOLETE use_wne = */ /* OBSOLETE (NGetTrapAddress (0x60, ToolTrap) != NGetTrapAddress (0x9f, ToolTrap)); */ /* OBSOLETE /* Pass WaitNextEvent an empty region the first time through. */ */ /* OBSOLETE cursorRgn = NewRgn (); */ /* OBSOLETE /* Go into the main event-handling loop. */ */ /* OBSOLETE while (!eventloopdone) */ /* OBSOLETE { */ /* OBSOLETE /* Use WaitNextEvent if it is available, otherwise GetNextEvent. */ */ /* OBSOLETE if (use_wne) */ /* OBSOLETE { */ /* OBSOLETE get_global_mouse (&mouse); */ /* OBSOLETE adjust_cursor (mouse, cursorRgn); */ /* OBSOLETE tm = GetCaretTime (); */ /* OBSOLETE gotevent = WaitNextEvent (everyEvent, &event, tm, cursorRgn); */ /* OBSOLETE } */ /* OBSOLETE else */ /* OBSOLETE { */ /* OBSOLETE SystemTask (); */ /* OBSOLETE gotevent = GetNextEvent (everyEvent, &event); */ /* OBSOLETE } */ /* OBSOLETE /* First decide if the event is for a dialog or is just any old event. */ */ /* OBSOLETE if (FrontWindow () != nil && IsDialogEvent (&event)) */ /* OBSOLETE { */ /* OBSOLETE short itemhit; */ /* OBSOLETE DialogPtr dialog; */ /* OBSOLETE */ /* OBSOLETE /* Handle all the modeless dialogs here. */ */ /* OBSOLETE if (DialogSelect (&event, &dialog, &itemhit)) */ /* OBSOLETE { */ /* OBSOLETE } */ /* OBSOLETE } */ /* OBSOLETE else if (gotevent) */ /* OBSOLETE { */ /* OBSOLETE /* Make sure we have the right cursor before handling the event. */ */ /* OBSOLETE adjust_cursor (event.where, cursorRgn); */ /* OBSOLETE do_event (&event); */ /* OBSOLETE } */ /* OBSOLETE else */ /* OBSOLETE { */ /* OBSOLETE do_idle (); */ /* OBSOLETE } */ /* OBSOLETE } */ /* OBSOLETE } */ /* OBSOLETE */ /* OBSOLETE /* Collect the global coordinates of the mouse pointer. */ */ /* OBSOLETE */ /* OBSOLETE get_global_mouse (Point *mouse) */ /* OBSOLETE { */ /* OBSOLETE EventRecord evt; */ /* OBSOLETE */ /* OBSOLETE OSEventAvail (0, &evt); */ /* OBSOLETE *mouse = evt.where; */ /* OBSOLETE } */ /* OBSOLETE */ /* OBSOLETE /* Change the cursor's appearance to be appropriate for the given mouse */ /* OBSOLETE location. */ */ /* OBSOLETE */ /* OBSOLETE adjust_cursor (Point mouse, RgnHandle region) */ /* OBSOLETE { */ /* OBSOLETE } */ /* OBSOLETE */ /* OBSOLETE /* Decipher an event, maybe do something with it. */ */ /* OBSOLETE */ /* OBSOLETE do_event (EventRecord *evt) */ /* OBSOLETE { */ /* OBSOLETE short part, err, rslt = 0; */ /* OBSOLETE WindowPtr win; */ /* OBSOLETE Boolean hit; */ /* OBSOLETE char key; */ /* OBSOLETE Point pnt; */ /* OBSOLETE */ /* OBSOLETE switch (evt->what) */ /* OBSOLETE { */ /* OBSOLETE case mouseDown: */ /* OBSOLETE /* See if the click happened in a special part of the screen. */ */ /* OBSOLETE part = FindWindow (evt->where, &win); */ /* OBSOLETE switch (part) */ /* OBSOLETE { */ /* OBSOLETE case inMenuBar: */ /* OBSOLETE adjust_menus (); */ /* OBSOLETE do_menu_command (MenuSelect (evt->where)); */ /* OBSOLETE break; */ /* OBSOLETE case inSysWindow: */ /* OBSOLETE SystemClick (evt, win); */ /* OBSOLETE break; */ /* OBSOLETE case inContent: */ /* OBSOLETE if (win != FrontWindow ()) */ /* OBSOLETE { */ /* OBSOLETE /* Bring the clicked-on window to the front. */ */ /* OBSOLETE SelectWindow (win); */ /* OBSOLETE /* Fix the menu to match the new front window. */ */ /* OBSOLETE adjust_menus (); */ /* OBSOLETE /* We always want to discard the event now, since clicks in a */ /* OBSOLETE windows are often irreversible actions. */ */ /* OBSOLETE } */ /* OBSOLETE else */ /* OBSOLETE /* Mouse clicks in the front window do something useful. */ */ /* OBSOLETE do_mouse_down (win, evt); */ /* OBSOLETE break; */ /* OBSOLETE case inDrag: */ /* OBSOLETE /* Standard drag behavior, no tricks necessary. */ */ /* OBSOLETE DragWindow (win, evt->where, &dragrect); */ /* OBSOLETE break; */ /* OBSOLETE case inGrow: */ /* OBSOLETE grow_window (win, evt->where); */ /* OBSOLETE break; */ /* OBSOLETE case inZoomIn: */ /* OBSOLETE case inZoomOut: */ /* OBSOLETE zoom_window (win, evt->where, part); */ /* OBSOLETE break; */ /* OBSOLETE case inGoAway: */ /* OBSOLETE close_window (win); */ /* OBSOLETE break; */ /* OBSOLETE } */ /* OBSOLETE break; */ /* OBSOLETE case keyDown: */ /* OBSOLETE case autoKey: */ /* OBSOLETE key = evt->message & charCodeMask; */ /* OBSOLETE /* Check for menukey equivalents. */ */ /* OBSOLETE if (evt->modifiers & cmdKey) */ /* OBSOLETE { */ /* OBSOLETE if (evt->what == keyDown) */ /* OBSOLETE { */ /* OBSOLETE adjust_menus (); */ /* OBSOLETE do_menu_command (MenuKey (key)); */ /* OBSOLETE } */ /* OBSOLETE } */ /* OBSOLETE else */ /* OBSOLETE { */ /* OBSOLETE if (evt->what == keyDown) */ /* OBSOLETE { */ /* OBSOLETE /* Random keypress, interpret it. */ */ /* OBSOLETE do_keyboard_command (key); */ /* OBSOLETE } */ /* OBSOLETE } */ /* OBSOLETE break; */ /* OBSOLETE case activateEvt: */ /* OBSOLETE activate_window ((WindowPtr) evt->message, evt->modifiers & activeFlag); */ /* OBSOLETE break; */ /* OBSOLETE case updateEvt: */ /* OBSOLETE update_window ((WindowPtr) evt->message); */ /* OBSOLETE break; */ /* OBSOLETE case diskEvt: */ /* OBSOLETE /* Call DIBadMount in response to a diskEvt, so that the user can format */ /* OBSOLETE a floppy. (from DTS Sample) */ */ /* OBSOLETE if (HiWord (evt->message) != noErr) */ /* OBSOLETE { */ /* OBSOLETE SetPt (&pnt, 50, 50); */ /* OBSOLETE err = DIBadMount (pnt, evt->message); */ /* OBSOLETE } */ /* OBSOLETE break; */ /* OBSOLETE case app4Evt: */ /* OBSOLETE /* Grab only a single byte. */ */ /* OBSOLETE switch ((evt->message >> 24) & 0xFF) */ /* OBSOLETE { */ /* OBSOLETE case 0xfa: */ /* OBSOLETE break; */ /* OBSOLETE case 1: */ /* OBSOLETE inbackground = !(evt->message & 1); */ /* OBSOLETE activate_window (FrontWindow (), !inbackground); */ /* OBSOLETE break; */ /* OBSOLETE } */ /* OBSOLETE break; */ /* OBSOLETE case kHighLevelEvent: */ /* OBSOLETE AEProcessAppleEvent (evt); */ /* OBSOLETE break; */ /* OBSOLETE case nullEvent: */ /* OBSOLETE do_idle (); */ /* OBSOLETE rslt = 1; */ /* OBSOLETE break; */ /* OBSOLETE default: */ /* OBSOLETE break; */ /* OBSOLETE } */ /* OBSOLETE return rslt; */ /* OBSOLETE } */ /* OBSOLETE */ /* OBSOLETE /* Do any idle-time activities. */ */ /* OBSOLETE */ /* OBSOLETE do_idle (void) */ /* OBSOLETE { */ /* OBSOLETE TEIdle (console_text); */ /* OBSOLETE } */ /* OBSOLETE */ /* OBSOLETE grow_window (WindowPtr win, Point where) */ /* OBSOLETE { */ /* OBSOLETE long winsize; */ /* OBSOLETE int h, v; */ /* OBSOLETE GrafPtr oldport; */ /* OBSOLETE */ /* OBSOLETE winsize = GrowWindow (win, where, &sizerect); */ /* OBSOLETE /* Only do anything if it actually changed size. */ */ /* OBSOLETE if (winsize != 0) */ /* OBSOLETE { */ /* OBSOLETE GetPort (&oldport); */ /* OBSOLETE SetPort (win); */ /* OBSOLETE if (win == console_window) */ /* OBSOLETE { */ /* OBSOLETE EraseRect (&win->portRect); */ /* OBSOLETE h = LoWord (winsize); */ /* OBSOLETE v = HiWord (winsize); */ /* OBSOLETE SizeWindow (win, h, v, 1); */ /* OBSOLETE resize_console_window (); */ /* OBSOLETE } */ /* OBSOLETE SetPort (oldport); */ /* OBSOLETE } */ /* OBSOLETE } */ /* OBSOLETE */ /* OBSOLETE zoom_window (WindowPtr win, Point where, short part) */ /* OBSOLETE { */ /* OBSOLETE ZoomWindow (win, part, (win == FrontWindow ())); */ /* OBSOLETE if (win == console_window) */ /* OBSOLETE { */ /* OBSOLETE resize_console_window (); */ /* OBSOLETE } */ /* OBSOLETE } */ /* OBSOLETE */ /* OBSOLETE resize_console_window (void) */ /* OBSOLETE { */ /* OBSOLETE adjust_console_sizes (); */ /* OBSOLETE adjust_console_scrollbars (); */ /* OBSOLETE adjust_console_text (); */ /* OBSOLETE InvalRect (&console_window->portRect); */ /* OBSOLETE } */ /* OBSOLETE */ /* OBSOLETE close_window (WindowPtr win) */ /* OBSOLETE { */ /* OBSOLETE } */ /* OBSOLETE */ /* OBSOLETE pascal void */ /* OBSOLETE v_scroll_proc (ControlHandle control, short part) */ /* OBSOLETE { */ /* OBSOLETE int oldval, amount = 0, newval; */ /* OBSOLETE int pagesize = ((*console_text)->viewRect.bottom - (*console_text)->viewRect.top) / (*console_text)->lineHeight; */ /* OBSOLETE if (part) */ /* OBSOLETE { */ /* OBSOLETE oldval = GetCtlValue (control); */ /* OBSOLETE switch (part) */ /* OBSOLETE { */ /* OBSOLETE case inUpButton: */ /* OBSOLETE amount = 1; */ /* OBSOLETE break; */ /* OBSOLETE case inDownButton: */ /* OBSOLETE amount = -1; */ /* OBSOLETE break; */ /* OBSOLETE case inPageUp: */ /* OBSOLETE amount = pagesize; */ /* OBSOLETE break; */ /* OBSOLETE case inPageDown: */ /* OBSOLETE amount = -pagesize; */ /* OBSOLETE break; */ /* OBSOLETE default: */ /* OBSOLETE /* (should freak out) */ */ /* OBSOLETE break; */ /* OBSOLETE } */ /* OBSOLETE SetCtlValue (control, oldval - amount); */ /* OBSOLETE newval = GetCtlValue (control); */ /* OBSOLETE amount = oldval - newval; */ /* OBSOLETE if (amount) */ /* OBSOLETE TEScroll (0, amount * (*console_text)->lineHeight, console_text); */ /* OBSOLETE } */ /* OBSOLETE } */ /* OBSOLETE */ /* OBSOLETE do_mouse_down (WindowPtr win, EventRecord * event) */ /* OBSOLETE { */ /* OBSOLETE short part, value; */ /* OBSOLETE Point mouse; */ /* OBSOLETE ControlHandle control; */ /* OBSOLETE */ /* OBSOLETE if (1 /*is_app_window(win) */ ) */ /* OBSOLETE { */ /* OBSOLETE SetPort (win); */ /* OBSOLETE mouse = event->where; */ /* OBSOLETE GlobalToLocal (&mouse); */ /* OBSOLETE part = FindControl (mouse, win, &control); */ /* OBSOLETE if (control == console_v_scrollbar) */ /* OBSOLETE { */ /* OBSOLETE switch (part) */ /* OBSOLETE { */ /* OBSOLETE case inThumb: */ /* OBSOLETE value = GetCtlValue (control); */ /* OBSOLETE part = TrackControl (control, mouse, nil); */ /* OBSOLETE if (part) */ /* OBSOLETE { */ /* OBSOLETE value -= GetCtlValue (control); */ /* OBSOLETE if (value) */ /* OBSOLETE TEScroll (0, value * (*console_text)->lineHeight, */ /* OBSOLETE console_text); */ /* OBSOLETE } */ /* OBSOLETE break; */ /* OBSOLETE default: */ /* OBSOLETE #if 0 /* don't deal with right now */ */ /* OBSOLETE #if 1 /* universal headers */ */ /* OBSOLETE value = TrackControl (control, mouse, (ControlActionUPP) v_scroll_proc); */ /* OBSOLETE #else */ /* OBSOLETE value = TrackControl (control, mouse, (ProcPtr) v_scroll_proc); */ /* OBSOLETE #endif */ /* OBSOLETE #endif */ /* OBSOLETE break; */ /* OBSOLETE } */ /* OBSOLETE } */ /* OBSOLETE else */ /* OBSOLETE { */ /* OBSOLETE TEClick (mouse, 0, console_text); */ /* OBSOLETE } */ /* OBSOLETE } */ /* OBSOLETE } */ /* OBSOLETE */ /* OBSOLETE scroll_text (int hlines, int vlines) */ /* OBSOLETE { */ /* OBSOLETE } */ /* OBSOLETE */ /* OBSOLETE activate_window (WindowPtr win, int activate) */ /* OBSOLETE { */ /* OBSOLETE Rect grow_rect; */ /* OBSOLETE */ /* OBSOLETE if (win == nil) */ /* OBSOLETE return; */ /* OBSOLETE /* It's convenient to make the activated window also be the */ /* OBSOLETE current GrafPort. */ */ /* OBSOLETE if (activate) */ /* OBSOLETE SetPort (win); */ /* OBSOLETE /* Activate the console window's scrollbar. */ */ /* OBSOLETE if (win == console_window) */ /* OBSOLETE { */ /* OBSOLETE if (activate) */ /* OBSOLETE { */ /* OBSOLETE TEActivate (console_text); */ /* OBSOLETE /* Cause the grow icon to be redrawn at the next update. */ */ /* OBSOLETE grow_rect = console_window->portRect; */ /* OBSOLETE grow_rect.top = grow_rect.bottom - sbarwid; */ /* OBSOLETE grow_rect.left = grow_rect.right - sbarwid; */ /* OBSOLETE InvalRect (&grow_rect); */ /* OBSOLETE } */ /* OBSOLETE else */ /* OBSOLETE { */ /* OBSOLETE TEDeactivate (console_text); */ /* OBSOLETE DrawGrowIcon (console_window); */ /* OBSOLETE } */ /* OBSOLETE HiliteControl (console_v_scrollbar, (activate ? 0 : 255)); */ /* OBSOLETE } */ /* OBSOLETE } */ /* OBSOLETE */ /* OBSOLETE update_window (WindowPtr win) */ /* OBSOLETE { */ /* OBSOLETE int controls = 1, growbox = 0; */ /* OBSOLETE GrafPtr oldport; */ /* OBSOLETE */ /* OBSOLETE /* Set the updating window to be the current grafport. */ */ /* OBSOLETE GetPort (&oldport); */ /* OBSOLETE SetPort (win); */ /* OBSOLETE /* recalc_depths(); */ */ /* OBSOLETE BeginUpdate (win); */ /* OBSOLETE if (win == console_window) */ /* OBSOLETE { */ /* OBSOLETE draw_console (); */ /* OBSOLETE controls = 1; */ /* OBSOLETE growbox = 1; */ /* OBSOLETE } */ /* OBSOLETE if (controls) */ /* OBSOLETE UpdateControls (win, win->visRgn); */ /* OBSOLETE if (growbox) */ /* OBSOLETE DrawGrowIcon (win); */ /* OBSOLETE EndUpdate (win); */ /* OBSOLETE SetPort (oldport); */ /* OBSOLETE } */ /* OBSOLETE */ /* OBSOLETE adjust_menus (void) */ /* OBSOLETE { */ /* OBSOLETE } */ /* OBSOLETE */ /* OBSOLETE do_menu_command (long which) */ /* OBSOLETE { */ /* OBSOLETE short menuid, menuitem; */ /* OBSOLETE short itemHit; */ /* OBSOLETE Str255 daname; */ /* OBSOLETE short daRefNum; */ /* OBSOLETE Boolean handledbyda; */ /* OBSOLETE WindowPtr win; */ /* OBSOLETE short ditem; */ /* OBSOLETE int i; */ /* OBSOLETE char cmdbuf[300]; */ /* OBSOLETE */ /* OBSOLETE cmdbuf[0] = '\0'; */ /* OBSOLETE menuid = HiWord (which); */ /* OBSOLETE menuitem = LoWord (which); */ /* OBSOLETE switch (menuid) */ /* OBSOLETE { */ /* OBSOLETE case mApple: */ /* OBSOLETE switch (menuitem) */ /* OBSOLETE { */ /* OBSOLETE case miAbout: */ /* OBSOLETE Alert (128, nil); */ /* OBSOLETE break; */ /* OBSOLETE #if 0 */ /* OBSOLETE case miHelp: */ /* OBSOLETE /* (should pop up help info) */ */ /* OBSOLETE break; */ /* OBSOLETE #endif */ /* OBSOLETE default: */ /* OBSOLETE GetItem (GetMHandle (mApple), menuitem, daname); */ /* OBSOLETE daRefNum = OpenDeskAcc (daname); */ /* OBSOLETE } */ /* OBSOLETE break; */ /* OBSOLETE case mFile: */ /* OBSOLETE switch (menuitem) */ /* OBSOLETE { */ /* OBSOLETE case miFileNew: */ /* OBSOLETE if (console_window == FrontWindow ()) */ /* OBSOLETE { */ /* OBSOLETE close_window (console_window); */ /* OBSOLETE } */ /* OBSOLETE new_console_window (); */ /* OBSOLETE break; */ /* OBSOLETE case miFileOpen: */ /* OBSOLETE SysBeep (20); */ /* OBSOLETE break; */ /* OBSOLETE case miFileQuit: */ /* OBSOLETE ExitToShell (); */ /* OBSOLETE break; */ /* OBSOLETE } */ /* OBSOLETE break; */ /* OBSOLETE case mEdit: */ /* OBSOLETE /* handledbyda = SystemEdit(menuitem-1); */ */ /* OBSOLETE switch (menuitem) */ /* OBSOLETE { */ /* OBSOLETE case miEditCut: */ /* OBSOLETE TECut (console_text); */ /* OBSOLETE break; */ /* OBSOLETE case miEditCopy: */ /* OBSOLETE TECopy (console_text); */ /* OBSOLETE break; */ /* OBSOLETE case miEditPaste: */ /* OBSOLETE TEPaste (console_text); */ /* OBSOLETE break; */ /* OBSOLETE case miEditClear: */ /* OBSOLETE TEDelete (console_text); */ /* OBSOLETE break; */ /* OBSOLETE } */ /* OBSOLETE /* All of these operations need the same postprocessing. */ */ /* OBSOLETE adjust_console_sizes (); */ /* OBSOLETE adjust_console_scrollbars (); */ /* OBSOLETE adjust_console_text (); */ /* OBSOLETE break; */ /* OBSOLETE case mDebug: */ /* OBSOLETE switch (menuitem) */ /* OBSOLETE { */ /* OBSOLETE case miDebugTarget: */ /* OBSOLETE sprintf (cmdbuf, "target %s", "remote"); */ /* OBSOLETE break; */ /* OBSOLETE case miDebugRun: */ /* OBSOLETE sprintf (cmdbuf, "run"); */ /* OBSOLETE break; */ /* OBSOLETE case miDebugContinue: */ /* OBSOLETE sprintf (cmdbuf, "continue"); */ /* OBSOLETE break; */ /* OBSOLETE case miDebugStep: */ /* OBSOLETE sprintf (cmdbuf, "step"); */ /* OBSOLETE break; */ /* OBSOLETE case miDebugNext: */ /* OBSOLETE sprintf (cmdbuf, "next"); */ /* OBSOLETE break; */ /* OBSOLETE } */ /* OBSOLETE break; */ /* OBSOLETE } */ /* OBSOLETE HiliteMenu (0); */ /* OBSOLETE /* Execute a command if one had been given. Do here because a command */ /* OBSOLETE may longjmp before we get a chance to unhilite the menu. */ */ /* OBSOLETE if (strlen (cmdbuf) > 0) */ /* OBSOLETE execute_command (cmdbuf, 0); */ /* OBSOLETE } */ /* OBSOLETE */ /* OBSOLETE char commandbuf[1000]; */ /* OBSOLETE */ /* OBSOLETE do_keyboard_command (int key) */ /* OBSOLETE { */ /* OBSOLETE int startpos, endpos, i, len; */ /* OBSOLETE char *last_newline; */ /* OBSOLETE char buf[10], *text_str, *command, *cmd_start; */ /* OBSOLETE CharsHandle text; */ /* OBSOLETE */ /* OBSOLETE if (key == '\015' || key == '\003') */ /* OBSOLETE { */ /* OBSOLETE text = TEGetText (console_text); */ /* OBSOLETE HLock ((Handle) text); */ /* OBSOLETE text_str = *text; */ /* OBSOLETE startpos = (*console_text)->selStart; */ /* OBSOLETE endpos = (*console_text)->selEnd; */ /* OBSOLETE if (startpos != endpos) */ /* OBSOLETE { */ /* OBSOLETE len = endpos - startpos; */ /* OBSOLETE cmd_start = text_str + startpos; */ /* OBSOLETE } */ /* OBSOLETE else */ /* OBSOLETE { */ /* OBSOLETE for (i = startpos - 1; i >= 0; --i) */ /* OBSOLETE if (text_str[i] == '\015') */ /* OBSOLETE break; */ /* OBSOLETE last_newline = text_str + i; */ /* OBSOLETE len = (text_str + startpos) - 1 - last_newline; */ /* OBSOLETE cmd_start = last_newline + 1; */ /* OBSOLETE } */ /* OBSOLETE if (len > 1000) */ /* OBSOLETE len = 999; */ /* OBSOLETE if (len < 0) */ /* OBSOLETE len = 0; */ /* OBSOLETE strncpy (commandbuf + 1, cmd_start, len); */ /* OBSOLETE commandbuf[1 + len] = 0; */ /* OBSOLETE command = commandbuf + 1; */ /* OBSOLETE HUnlock ((Handle) text); */ /* OBSOLETE commandbuf[0] = strlen (command); */ /* OBSOLETE */ /* OBSOLETE /* Insert a newline and recalculate before doing any command. */ */ /* OBSOLETE key = '\015'; */ /* OBSOLETE TEKey (key, console_text); */ /* OBSOLETE TEInsert (buf, 1, console_text); */ /* OBSOLETE adjust_console_sizes (); */ /* OBSOLETE adjust_console_scrollbars (); */ /* OBSOLETE adjust_console_text (); */ /* OBSOLETE */ /* OBSOLETE if (strlen (command) > 0) */ /* OBSOLETE { */ /* OBSOLETE execute_command (command, 0); */ /* OBSOLETE bpstat_do_actions (&stop_bpstat); */ /* OBSOLETE } */ /* OBSOLETE } */ /* OBSOLETE else */ /* OBSOLETE { */ /* OBSOLETE /* A self-inserting character. This includes delete. */ */ /* OBSOLETE TEKey (key, console_text); */ /* OBSOLETE } */ /* OBSOLETE } */ /* OBSOLETE */ /* OBSOLETE /* Draw all graphical stuff in the console window. */ */ /* OBSOLETE */ /* OBSOLETE draw_console (void) */ /* OBSOLETE { */ /* OBSOLETE SetPort (console_window); */ /* OBSOLETE TEUpdate (&(console_window->portRect), console_text); */ /* OBSOLETE } */ /* OBSOLETE */ /* OBSOLETE /* Cause an update of a given window's entire contents. */ */ /* OBSOLETE */ /* OBSOLETE force_update (WindowPtr win) */ /* OBSOLETE { */ /* OBSOLETE GrafPtr oldport; */ /* OBSOLETE */ /* OBSOLETE if (win == nil) */ /* OBSOLETE return; */ /* OBSOLETE GetPort (&oldport); */ /* OBSOLETE SetPort (win); */ /* OBSOLETE EraseRect (&win->portRect); */ /* OBSOLETE InvalRect (&win->portRect); */ /* OBSOLETE SetPort (oldport); */ /* OBSOLETE } */ /* OBSOLETE */ /* OBSOLETE adjust_console_sizes (void) */ /* OBSOLETE { */ /* OBSOLETE Rect tmprect; */ /* OBSOLETE */ /* OBSOLETE tmprect = console_window->portRect; */ /* OBSOLETE /* Move and size the scrollbar. */ */ /* OBSOLETE MoveControl (console_v_scrollbar, tmprect.right - sbarwid, 0); */ /* OBSOLETE SizeControl (console_v_scrollbar, sbarwid + 1, tmprect.bottom - sbarwid + 1); */ /* OBSOLETE /* Move and size the text. */ */ /* OBSOLETE tmprect.left += 7; */ /* OBSOLETE tmprect.right -= sbarwid; */ /* OBSOLETE tmprect.bottom -= sbarwid; */ /* OBSOLETE InsetRect (&tmprect, 1, 1); */ /* OBSOLETE (*console_text)->destRect = tmprect; */ /* OBSOLETE /* Fiddle bottom of viewrect to be even multiple of text lines. */ */ /* OBSOLETE tmprect.bottom = tmprect.top */ /* OBSOLETE + ((tmprect.bottom - tmprect.top) / (*console_text)->lineHeight) */ /* OBSOLETE * (*console_text)->lineHeight; */ /* OBSOLETE (*console_text)->viewRect = tmprect; */ /* OBSOLETE } */ /* OBSOLETE */ /* OBSOLETE adjust_console_scrollbars (void) */ /* OBSOLETE { */ /* OBSOLETE int lines, newmax, value; */ /* OBSOLETE */ /* OBSOLETE (*console_v_scrollbar)->contrlVis = 0; */ /* OBSOLETE lines = (*console_text)->nLines; */ /* OBSOLETE newmax = lines - (((*console_text)->viewRect.bottom */ /* OBSOLETE - (*console_text)->viewRect.top) */ /* OBSOLETE / (*console_text)->lineHeight); */ /* OBSOLETE if (newmax < 0) */ /* OBSOLETE newmax = 0; */ /* OBSOLETE SetCtlMax (console_v_scrollbar, newmax); */ /* OBSOLETE value = ((*console_text)->viewRect.top - (*console_text)->destRect.top) */ /* OBSOLETE / (*console_text)->lineHeight; */ /* OBSOLETE SetCtlValue (console_v_scrollbar, value); */ /* OBSOLETE (*console_v_scrollbar)->contrlVis = 0xff; */ /* OBSOLETE ShowControl (console_v_scrollbar); */ /* OBSOLETE } */ /* OBSOLETE */ /* OBSOLETE /* Scroll the TE record so that it is consistent with the scrollbar(s). */ */ /* OBSOLETE */ /* OBSOLETE adjust_console_text (void) */ /* OBSOLETE { */ /* OBSOLETE TEScroll (((*console_text)->viewRect.left */ /* OBSOLETE - (*console_text)->destRect.left) */ /* OBSOLETE - 0 /* get h scroll value */ , */ /* OBSOLETE ((((*console_text)->viewRect.top - (*console_text)->destRect.top) */ /* OBSOLETE / (*console_text)->lineHeight) */ /* OBSOLETE - GetCtlValue (console_v_scrollbar)) */ /* OBSOLETE * (*console_text)->lineHeight, */ /* OBSOLETE console_text); */ /* OBSOLETE } */ /* OBSOLETE */ /* OBSOLETE /* Readline substitute. */ */ /* OBSOLETE */ /* OBSOLETE char * */ /* OBSOLETE readline (char *prrompt) */ /* OBSOLETE { */ /* OBSOLETE return gdb_readline (prrompt); */ /* OBSOLETE } */ /* OBSOLETE */ /* OBSOLETE char *rl_completer_word_break_characters; */ /* OBSOLETE */ /* OBSOLETE char *rl_completer_quote_characters; */ /* OBSOLETE */ /* OBSOLETE int (*rl_completion_entry_function) (); */ /* OBSOLETE */ /* OBSOLETE int rl_point; */ /* OBSOLETE */ /* OBSOLETE char *rl_line_buffer; */ /* OBSOLETE */ /* OBSOLETE char *rl_readline_name; */ /* OBSOLETE */ /* OBSOLETE /* History substitute. */ */ /* OBSOLETE */ /* OBSOLETE void */ /* OBSOLETE add_history (char *buf) */ /* OBSOLETE { */ /* OBSOLETE } */ /* OBSOLETE */ /* OBSOLETE void */ /* OBSOLETE stifle_history (int n) */ /* OBSOLETE { */ /* OBSOLETE } */ /* OBSOLETE */ /* OBSOLETE int */ /* OBSOLETE unstifle_history (void) */ /* OBSOLETE { */ /* OBSOLETE } */ /* OBSOLETE */ /* OBSOLETE int */ /* OBSOLETE read_history (char *name) */ /* OBSOLETE { */ /* OBSOLETE } */ /* OBSOLETE */ /* OBSOLETE int */ /* OBSOLETE write_history (char *name) */ /* OBSOLETE { */ /* OBSOLETE } */ /* OBSOLETE */ /* OBSOLETE int */ /* OBSOLETE history_expand (char *x, char **y) */ /* OBSOLETE { */ /* OBSOLETE } */ /* OBSOLETE */ /* OBSOLETE extern HIST_ENTRY * */ /* OBSOLETE history_get (int xxx) */ /* OBSOLETE { */ /* OBSOLETE return NULL; */ /* OBSOLETE } */ /* OBSOLETE */ /* OBSOLETE int history_base; */ /* OBSOLETE */ /* OBSOLETE char * */ /* OBSOLETE filename_completion_function (char *text, char *name) */ /* OBSOLETE { */ /* OBSOLETE return "?"; */ /* OBSOLETE } */ /* OBSOLETE */ /* OBSOLETE char * */ /* OBSOLETE tilde_expand (char *str) */ /* OBSOLETE { */ /* OBSOLETE return xstrdup (str); */ /* OBSOLETE } */ /* OBSOLETE */ /* OBSOLETE /* Modified versions of standard I/O. */ */ /* OBSOLETE */ /* OBSOLETE #undef fprintf */ /* OBSOLETE */ /* OBSOLETE int */ /* OBSOLETE hacked_fprintf (FILE * fp, const char *fmt,...) */ /* OBSOLETE { */ /* OBSOLETE int ret; */ /* OBSOLETE va_list ap; */ /* OBSOLETE */ /* OBSOLETE va_start (ap, fmt); */ /* OBSOLETE if (mac_app && (fp == stdout || fp == stderr)) */ /* OBSOLETE { */ /* OBSOLETE char buf[1000]; */ /* OBSOLETE */ /* OBSOLETE ret = vsprintf (buf, fmt, ap); */ /* OBSOLETE TEInsert (buf, strlen (buf), console_text); */ /* OBSOLETE } */ /* OBSOLETE else */ /* OBSOLETE ret = vfprintf (fp, fmt, ap); */ /* OBSOLETE va_end (ap); */ /* OBSOLETE return ret; */ /* OBSOLETE } */ /* OBSOLETE */ /* OBSOLETE #undef printf */ /* OBSOLETE */ /* OBSOLETE int */ /* OBSOLETE hacked_printf (const char *fmt,...) */ /* OBSOLETE { */ /* OBSOLETE int ret; */ /* OBSOLETE va_list ap; */ /* OBSOLETE */ /* OBSOLETE va_start (ap, fmt); */ /* OBSOLETE ret = hacked_vfprintf (stdout, fmt, ap); */ /* OBSOLETE va_end (ap); */ /* OBSOLETE return ret; */ /* OBSOLETE } */ /* OBSOLETE */ /* OBSOLETE #undef vfprintf */ /* OBSOLETE */ /* OBSOLETE int */ /* OBSOLETE hacked_vfprintf (FILE * fp, const char *format, va_list args) */ /* OBSOLETE { */ /* OBSOLETE if (mac_app && (fp == stdout || fp == stderr)) */ /* OBSOLETE { */ /* OBSOLETE char buf[1000]; */ /* OBSOLETE int ret; */ /* OBSOLETE */ /* OBSOLETE ret = vsprintf (buf, format, args); */ /* OBSOLETE TEInsert (buf, strlen (buf), console_text); */ /* OBSOLETE if (strchr (buf, '\n')) */ /* OBSOLETE { */ /* OBSOLETE adjust_console_sizes (); */ /* OBSOLETE adjust_console_scrollbars (); */ /* OBSOLETE adjust_console_text (); */ /* OBSOLETE } */ /* OBSOLETE return ret; */ /* OBSOLETE } */ /* OBSOLETE else */ /* OBSOLETE return vfprintf (fp, format, args); */ /* OBSOLETE } */ /* OBSOLETE */ /* OBSOLETE #undef fputs */ /* OBSOLETE */ /* OBSOLETE hacked_fputs (const char *s, FILE * fp) */ /* OBSOLETE { */ /* OBSOLETE if (mac_app && (fp == stdout || fp == stderr)) */ /* OBSOLETE { */ /* OBSOLETE TEInsert (s, strlen (s), console_text); */ /* OBSOLETE if (strchr (s, '\n')) */ /* OBSOLETE { */ /* OBSOLETE adjust_console_sizes (); */ /* OBSOLETE adjust_console_scrollbars (); */ /* OBSOLETE adjust_console_text (); */ /* OBSOLETE } */ /* OBSOLETE return 0; */ /* OBSOLETE } */ /* OBSOLETE else */ /* OBSOLETE return fputs (s, fp); */ /* OBSOLETE } */ /* OBSOLETE */ /* OBSOLETE #undef fputc */ /* OBSOLETE */ /* OBSOLETE hacked_fputc (const char c, FILE * fp) */ /* OBSOLETE { */ /* OBSOLETE if (mac_app && (fp == stdout || fp == stderr)) */ /* OBSOLETE { */ /* OBSOLETE char buf[1]; */ /* OBSOLETE */ /* OBSOLETE buf[0] = c; */ /* OBSOLETE TEInsert (buf, 1, console_text); */ /* OBSOLETE if (c == '\n') */ /* OBSOLETE { */ /* OBSOLETE adjust_console_sizes (); */ /* OBSOLETE adjust_console_scrollbars (); */ /* OBSOLETE adjust_console_text (); */ /* OBSOLETE } */ /* OBSOLETE return c; */ /* OBSOLETE } */ /* OBSOLETE else */ /* OBSOLETE return fputc (c, fp); */ /* OBSOLETE } */ /* OBSOLETE */ /* OBSOLETE #undef putc */ /* OBSOLETE */ /* OBSOLETE hacked_putc (const char c, FILE * fp) */ /* OBSOLETE { */ /* OBSOLETE if (mac_app && (fp == stdout || fp == stderr)) */ /* OBSOLETE { */ /* OBSOLETE char buf[1]; */ /* OBSOLETE */ /* OBSOLETE buf[0] = c; */ /* OBSOLETE TEInsert (buf, 1, console_text); */ /* OBSOLETE if (c == '\n') */ /* OBSOLETE { */ /* OBSOLETE adjust_console_sizes (); */ /* OBSOLETE adjust_console_scrollbars (); */ /* OBSOLETE adjust_console_text (); */ /* OBSOLETE } */ /* OBSOLETE return c; */ /* OBSOLETE } */ /* OBSOLETE else */ /* OBSOLETE return fputc (c, fp); */ /* OBSOLETE } */ /* OBSOLETE */ /* OBSOLETE #undef fflush */ /* OBSOLETE */ /* OBSOLETE hacked_fflush (FILE * fp) */ /* OBSOLETE { */ /* OBSOLETE if (mac_app && (fp == stdout || fp == stderr)) */ /* OBSOLETE { */ /* OBSOLETE adjust_console_sizes (); */ /* OBSOLETE adjust_console_scrollbars (); */ /* OBSOLETE adjust_console_text (); */ /* OBSOLETE return 0; */ /* OBSOLETE } */ /* OBSOLETE return fflush (fp); */ /* OBSOLETE } */ /* OBSOLETE */ /* OBSOLETE #undef fgetc */ /* OBSOLETE */ /* OBSOLETE hacked_fgetc (FILE * fp) */ /* OBSOLETE { */ /* OBSOLETE if (mac_app && (fp == stdin)) */ /* OBSOLETE { */ /* OBSOLETE /* Catch any attempts to use this. */ */ /* OBSOLETE DebugStr ("\pShould not be reading from stdin!"); */ /* OBSOLETE return '\n'; */ /* OBSOLETE } */ /* OBSOLETE return fgetc (fp); */ /* OBSOLETE } */