view src/hftctl.c @ 1720:4f5e3ac5d822

* frame.h (struct frame): New fields `can_have_scrollbars' and `has_vertical_scrollbars'. (FRAME_CAN_HAVE_SCROLLBARS, FRAME_HAS_VERTICAL_SCROLLBARS): New accessors, for both the MULTI_FRAME and non-MULTI_FRAME. (VERTICAL_SCROLLBAR_WIDTH, WINDOW_VERTICAL_SCROLLBAR, WINDOW_VERTICAL_SCROLLBAR_COLUMN, WINDOW_VERTICAL_SCROLLBAR_HEIGHT): New macros. * window.h (struct window): New field `vertical_scrollbar'. * xterm.h (struct x_display): vertical_scrollbars, judge_timestamp, vertical_scrollbar_extra: New fields. (struct scrollbar): New struct. (VERTICAL_SCROLLBAR_PIXEL_WIDTH, VERTICAL_SCROLLBAR_PIXEL_HEIGHT, VERTICAL_SCROLLBAR_LEFT_BORDER, VERTICAL_SCROLLBAR_RIGHT_BORDER, VERTICAL_SCROLLBAR_TOP_BORDER, VERTICAL_SCROLLBAR_BOTTOM_BORDER, CHAR_TO_PIXEL_WIDTH, CHAR_TO_PIXEL_HEIGHT, PIXEL_TO_CHAR_WIDTH, PIXEL_TO_CHAR_HEIGHT): New accessors and macros. * frame.c (make_frame): Initialize the `can_have_scrollbars' and `has_vertical_scrollbars' fields of the frame. * term.c (term_init): Note that TERMCAP terminals don't support scrollbars. (mouse_position_hook): Document new args. (set_vertical_scrollbar_hook, condemn_scrollbars_hook, redeem_scrollbar_hook, judge_scrollbars_hook): New hooks. * termhooks.h: Declare and document them. (enum scrollbar_part): New type. (struct input_event): Describe the new form of the scrollbar_click event type. Change `part' from a Lisp_Object to an enum scrollbar_part. Add a new field `scrollbar'. * keyboard.c (kbd_buffer_get_event): Pass appropriate new parameters to *mouse_position_hook, and make_lispy_movement. * xfns.c (x_set_vertical_scrollbar): New function. (x_figure_window_size): Use new macros to calculate frame size. (Fx_create_frame): Note that X Windows frames do support scroll bars. Default to "yes". * xterm.c: #include <X11/cursorfont.h> and "window.h". (x_vertical_scrollbar_cursor): New variable. (x_term_init): Initialize it. (last_mouse_bar, last_mouse_bar_frame, last_mouse_part, last_mouse_scroll_range_start, last_mouse_scroll_range_end): New variables. (XTmouse_position): Use them to return scrollbar movement events. Take new arguments, for that purpose. (x_window_to_scrollbar, x_scrollbar_create, x_scrollbar_set_handle, x_scrollbar_remove, x_scrollbar_move, XTset_scrollbar, XTcondemn_scrollbars, XTredeem_scrollbar, XTjudge_scrollbars, x_scrollbar_expose, x_scrollbar_background_expose, x_scrollbar_handle_click, x_scrollbar_handle_motion): New functions to implement scrollbars. (x_term_init): Set the termhooks.h hooks to point to them. (x_set_window_size): Use new macros to calculate frame size. Set vertical_scrollbar_extra field. (x_make_frame_visible): Use the frame accessor FRAME_HAS_VERTICAL_SCROLLBARS to decide if we need to map the frame's subwindows as well. (XTread_socket): Use new size-calculation macros from xterm.h when processing ConfigureNotify events. (x_wm_set_size_hint): Use PIXEL_TO_CHAR_WIDTH and PIXEL_TO_CHAR_HEIGHT macros. * ymakefile (xdisp.o): This now depends on termhooks.h. (xterm.o): This now depends on window.h. * xterm.h (struct x_display): Delete v_scrollbar, v_thumbup, v_thumbdown, v_slider, h_scrollbar, h_thumbup, h_thumbdown, h_slider, v_scrollbar_width, h_scrollbar_height fields. * keyboard.c (Qvscrollbar_part, Qvslider_part, Qvthumbup_part, Qvthumbdown_part, Qhscrollbar_part, Qhslider_part, Qhthumbup_part, Qhthumbdown_part, Qscrollbar_click): Deleted; part of an obsolete interface. (head_table): Removed from here as well. (syms_of_keyboard): And here. * keyboard.h: And here. (POSN_SCROLLBAR_BUTTON): Removed. * xscrollbar.h: File removed - no longer necessary. * xfns.c: Don't #include it any more. (Qhorizontal_scroll_bar, Qvertical_scroll_bar): Deleted. (syms_of_xfns): Don't initialize or staticpro them. (gray_bits): Salvaged from xscrollbar.h. (x_window_to_scrollbar): Deleted. (x_set_horizontal_scrollbar): Deleted. (enum x_frame_parm, x_frame_parms): Remove references to x_set_horizontal_scrollbar. (x_set_foreground_color, x_set_background_color, x_set_border_pixel): Remove special code to support scrollbars. (Fx_create_frame): Remove old scrollbar setup code. (install_vertical_scrollbar, install_horizontal_scrollbar, adjust_scrollbars, x_resize_scrollbars): Deleted. * xterm.c (construct_mouse_click): This doesn't need to take care of scrollbar clicks anymore. (XTread_socket): Remove old code to support scrollbars. Call new functions instead for events which occur in scrollbar windows. (XTupdate_end): Remove call to adjust_scrollbars; the main redisplay code takes care of that now. (enum window_type): Deleted. * ymakefile: Note that xfns.o no longer depends on xscrollbar.h. * xterm.c (x_set_mouse_position): Clip mouse position to be within frame. * xterm.c: Adjust the first line of each page to have a reasonable description. This makes pages-directory more useful. * xterm.c (x_do_pending_expose): Declare this routine only if HAVE_X11 is not #defined; X11 doesn't need it. (XTread_socket): Protect call to x_do_pending_expose with `#ifdef HAVE_X11'. * xterm.c (notice_mouse_movement): Deleted; obsolete and unused. Properly handle focus shift events, so the cursor is filled and hollow at the appropriate times, even in titleless windows. * xterm.c (x_focus_event_frame): New variable. (XTread_socket): When we receive a FocusIn event that's not NotifyPointer, record the frame in x_focus_event_frame. When we receive a FocusOut event that's not NotifyPointer, clear it. When we get a LeaveNotify event, don't take it seriously if we still have focus. * xterm.c (XTread_socket): Remove special code in EnterNotify case to handle scrollbars and fake mouse motion events. Change the meaning of focus redirection to make switching windows work properly. Fredirect_frame_focus has the details. * frame.h (focus_frame): Doc fix. [not MULTI_FRAME] (FRAME_FOCUS_FRAME): Make this Qnil, which indicates no focus redirection, instead of zero, which is selected_frame. * frame.c (make_frame): Initialize f->focus_frame to Qnil, rather than making it point to frame itself. (Fselect_frame): If changing the selected frame from FOO to BAR, make all redirections to FOO shift to BAR as well. Doc fix. (Fredirect_frame_focus): Doc fix. Accept nil as a valid redirection, not just as a default for FRAME. (Fframe_focus): Doc fix. * keyboard.c (kbd_buffer_store_event, kbd_buffer_get_event): Deal with focus redirections being nil. * xterm.c (XTframe_rehighlight): Doc fix. Deal with focus redirections being nil. * xterm.c (x_error_quitter): Just abort, so we can look at the core to see what happened. It's a pain to remember that you can't assign to FRAME->visible. Let's change all references to the `visible' member of struct frame to use the accessor macros, and then write a setter for the `visible' field that does the right thing. * frame.h (FRAME_VISIBLE_P): Make this not an l-value. (FRAME_SET_VISIBLE): New macro. * frame.c (make_terminal_frame, Fdelete_frame): Use FRAME_SET_VISIBLE. (Fframe_visible_p, Fvisible_frame_list): Use FRAME_VISIBLE_P and FRAME_ICONIFIED_P. * dispnew.c (Fredraw_display): Use the FRAME_VISIBLE_P and FRAME_GARBAGED_P accessors. * xdisp.c (redisplay): Use the FRAME_VISIBLE_P accessor. * xfns.c (x_set_foreground_color, x_set_background_color, x_set_cursor_color, x_set_border_pixel, x_set_icon_type): Use the FRAME_VISIBLE_P accessor. (Fx_create_frame): Use FRAME_SET_VISIBILITY. * xterm.c (clear_cursor, x_display_bar_cursor, x_display_box_cursor): Use FRAME_SET_VISIBILITY.

+
鐃緒申��申鐃緒申/* IBM has disclaimed copyright on this module.  */
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申/***************************************************************/
+
鐃緒申��申鐃緒申/*                                                             */
+
鐃緒申��申鐃緒申/* Function: hftctl                                            */
+
鐃緒申��申鐃緒申/*                                                             */
+
鐃緒申��申鐃緒申/* Syntax:                                                     */
+
鐃緒申��申鐃緒申/*    #include <sys/ioctl.h>                                   */
+
鐃緒申��申鐃緒申/*    #include <sys/hft.h>                                     */
+
鐃緒申��申鐃緒申/*                                                             */
+
鐃緒申��申鐃緒申/*    int hftctl(fildes, request, arg )                        */
+
鐃緒申��申鐃緒申/*    int fildes, request;                                     */
+
鐃緒申��申鐃緒申/*    char *arg;                                               */
+
鐃緒申��申鐃緒申/*                                                             */
+
鐃緒申��申鐃緒申/* Description:                                                */
+
鐃緒申��申鐃緒申/*                                                             */
+
鐃緒申��申鐃緒申/*    Does the following:                                      */
+
鐃緒申��申鐃緒申/*      1. determines if fildes is pty                         */
+
鐃緒申��申鐃緒申/*         does normal ioctl it is not                         */
+
鐃緒申��申鐃緒申/*      2. places fildes into raw mode                         */
+
鐃緒申��申鐃緒申/*      3. converts ioctl arguments to datastream              */
+
鐃緒申��申鐃緒申/*      4. waits for 2 secs for acknowledgement before         */
+
鐃緒申��申鐃緒申/*         timimg out.                                         */
+
鐃緒申��申鐃緒申/*      5. places response in callers buffer ( just like       */
+
鐃緒申��申鐃緒申/*         ioctl.                                              */
+
鐃緒申��申鐃緒申/*      6. returns fildes to its original mode                 */
+
鐃緒申��申鐃緒申/*                                                             */
+
鐃緒申��申鐃緒申/*    User of this program should review steps 1,4, and 3.     */
+
鐃緒申��申鐃緒申/*    hftctl makes no check on the request type. It must be    */
+
鐃緒申��申鐃緒申/*    a HFT ioctl that is supported remotely.                  */
+
鐃緒申��申鐃緒申/*    This program will use the SIGALRM and alarm(2).  Any     */
+
鐃緒申��申鐃緒申/*    Previous alarms are lost.                                */
+
鐃緒申��申鐃緒申/*                                                             */
+
鐃緒申��申鐃緒申/*    Users of this program are free to modify it any way      */
+
鐃緒申��申鐃緒申/*    they want.                                               */
+
鐃緒申��申鐃緒申/*                                                             */
+
鐃緒申��申鐃緒申/* Return Value:                                               */
+
鐃緒申��申鐃緒申/*                                                             */
+
鐃緒申��申鐃緒申/*    If ioctl fails, a value of -1 is returned and errno      */
+
鐃緒申��申鐃緒申/*    is set to indicate the error.                            */
+
鐃緒申��申鐃緒申/*                                                             */
+
鐃緒申��申鐃緒申/***************************************************************/
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申#include <stdio.h>
+
鐃緒申��申鐃緒申#include <fcntl.h>
+
鐃緒申��申鐃緒申#include <errno.h>
+
鐃緒申��申鐃緒申#include <setjmp.h>
+
鐃緒申��申鐃緒申#include <sys/ioctl.h>
+
鐃緒申��申鐃緒申#include <sys/signal.h>
+
鐃緒申��申鐃緒申#include <sys/devinfo.h>
+
鐃緒申��申鐃緒申#include <termios.h>
+
鐃緒申��申鐃緒申#include <termio.h>
+
鐃緒申��申鐃緒申#include <sys/hft.h>
+
鐃緒申��申鐃緒申#include <sys/uio.h>
+
鐃緒申��申鐃緒申#include <sys/tty.h>
+
鐃緒申��申鐃緒申/* #include <sys/pty.h> */
+
鐃緒申��申鐃緒申#define REMOTE 0x01
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申#undef ioctl
+
鐃緒申��申鐃緒申static char     SCCSid[] = "com/gnuemacs/src,3.1,9021-90/05/03-5/3/90";
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申/*************** LOCAL DEFINES **********************************/
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申typedef int    (*FUNC)();     /* pointer to a function        */
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申#define QDEV   ((HFQPDEVCH<<8)|HFQPDEVCL)
+
鐃緒申��申鐃緒申#define QLOC   ((HFQLOCCH<<8)|HFQLOCCL)
+
鐃緒申��申鐃緒申#define QPS    ((HFQPRESCH<<8)|HFQPRESCL)
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申#ifndef TCGETS 
+
鐃緒申��申鐃緒申#define TCGETS TCGETA
+
鐃緒申��申鐃緒申#endif
+
鐃緒申��申鐃緒申#ifndef TCSETS
+
鐃緒申��申鐃緒申#define TCSETS TCSETA
+
鐃緒申��申鐃緒申#endif
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申/*************** EXTERNAL / GLOBAL DATA AREA ********************/
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申static int              hfqry();
+
鐃緒申��申鐃緒申static int              hfskbd();
+
鐃緒申��申鐃緒申       char            *malloc();
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申extern int              errno;
+
鐃緒申��申鐃緒申static jmp_buf          hftenv;
+
鐃緒申��申鐃緒申static int              is_ack_vtd;
+
鐃緒申��申鐃緒申static FUNC             sav_alrm;
+
鐃緒申��申鐃緒申static struct hfctlreq  req =
+
鐃緒申��申鐃緒申			{ 0x1b,'[','x',0,0,0,21,HFCTLREQCH,HFCTLREQCL};
+
鐃緒申��申鐃緒申static struct hfctlack  ACK =
+
鐃緒申��申鐃緒申			{ 0x1b,'[','x',0,0,0,21,HFCTLACKCH,HFCTLACKCL};
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申       /* FUNC             signal(); */
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申/*************** LOCAL MACROS ***********************************/
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申#define HFTYPE(p)   ((p->hf_typehi<<8)|(p->hf_typelo))
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申#define BYTE4(p)    ((p)[0]<<24 | (p)[1]<<16 | (p)[2]<<8 | (p)[3])
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申					/* read a buffer        */
+
鐃緒申��申鐃緒申#define RD_BUF(f,p,l) \
+
鐃緒申��申鐃緒申        while ((l)) \
+
鐃緒申��申鐃緒申          if ((j = read((f),(p),(l))) < 0) \
+
鐃緒申��申鐃緒申             if (errno != EINTR) return (-1); \
+
鐃緒申��申鐃緒申             else continue; \
+
鐃緒申��申鐃緒申          else { (l) -= j; (p) += j; }
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申/*************** function prototypes ***************************/
+
鐃緒申��申鐃緒申#ifdef __STDC__
+
鐃緒申��申鐃緒申static GT_ACK (int fd, int req, char *buf);
+
鐃緒申��申鐃緒申static WR_REQ (int fd, int request, int cmdlen, char *cmd, int resplen);
+
鐃緒申��申鐃緒申static hft_alrm(int sig);
+
鐃緒申��申鐃緒申#else
+
鐃緒申��申鐃緒申static GT_ACK ();
+
鐃緒申��申鐃緒申static WR_REQ ();
+
鐃緒申��申鐃緒申static hft_alrm ();
+
鐃緒申��申鐃緒申#endif
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申/*************** HFTCTL FUNCTION *******************************/
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申hftctl (fd, request, arg)
+
鐃緒申��申鐃緒申     int     fd;
+
鐃緒申��申鐃緒申     int     request;
+
鐃緒申��申鐃緒申     union {
+
鐃緒申��申鐃緒申       struct hfintro *intro;
+
鐃緒申��申鐃緒申       struct hfquery *query;
+
鐃緒申��申鐃緒申       char           *c;
+
鐃緒申��申鐃緒申     } arg;
+
鐃緒申��申鐃緒申{
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申  int             i;
+
鐃緒申��申鐃緒申  int             fd_flag;	/* fcntl flags          */
+
鐃緒申��申鐃緒申  register union {
+
鐃緒申��申鐃緒申    struct hfintro         *cmd; /* p.cmd - intro des.   */
+
鐃緒申��申鐃緒申    struct hfqphdevc       *ph;	/* p.ph  - physical dev.*/
+
鐃緒申��申鐃緒申    char            *c;		/* p.c   - char ptr     */
+
鐃緒申��申鐃緒申  }               p;		/* general pointer      */
+
鐃緒申��申鐃緒申  int             pty_new;	/* pty modes            */
+
鐃緒申��申鐃緒申  int             pty_old;
+
鐃緒申��申鐃緒申  int             retcode;
+
鐃緒申��申鐃緒申  struct termios   term_new;	/* terminal attributes  */
+
鐃緒申��申鐃緒申  struct termios   term_old;
+
鐃緒申��申鐃緒申  struct devinfo	devInfo; /* defined in sys/devinfo.h */
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申  if (ioctl (fd, IOCINFO, &devInfo) == -1) return(-1);
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申  if (devInfo.devtype != DD_PSEU) /* is it a pty? */
+
鐃緒申��申鐃緒申    return (ioctl(fd, request, arg)); /* no, do IOCTL */
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申  /******* START PTY **************/
+
鐃緒申��申鐃緒申  /**  Pty found, possible HFT    */
+
鐃緒申��申鐃緒申  /** set new file des as raw     */
+
鐃緒申��申鐃緒申  /** as you can.                 */
+
鐃緒申��申鐃緒申  /********************************/
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申  /* Get current state of file    */
+
鐃緒申��申鐃緒申  /* descriptor & save            */
+
鐃緒申��申鐃緒申  if ((fd_flag = fcntl (fd, F_GETFL, 0)) == -1) return (-1);
+
鐃緒申��申鐃緒申  if (ioctl (fd, TCGETS, &term_old) == -1) return (-1);
+
鐃緒申��申鐃緒申  /* set terminal attr to raw     */
+
鐃緒申��申鐃緒申  /* and to delay on read         */
+
鐃緒申��申鐃緒申  pty_new = pty_old | REMOTE;
+
鐃緒申��申鐃緒申  memcpy (&term_new, &term_old, sizeof (term_new));
+
鐃緒申��申鐃緒申  term_new.c_iflag = 0;
+
鐃緒申��申鐃緒申  term_new.c_oflag = 0;
+
鐃緒申��申鐃緒申  term_new.c_lflag = 0;
+
鐃緒申��申鐃緒申  /* term_new.c_line  = 0; */
+
鐃緒申��申鐃緒申  for (i = 1; i <= 5; i++)
+
鐃緒申��申鐃緒申    term_new.c_cc[i] = 0;
+
鐃緒申��申鐃緒申  term_new.c_cc[0] = -1;
+
鐃緒申��申鐃緒申  ioctl (fd, TCSETS, &term_new);
+
鐃緒申��申鐃緒申  if (fcntl (fd, F_SETFL, fd_flag & ~O_NDELAY) == -1)
+
鐃緒申��申鐃緒申    return(-1);
+
鐃緒申��申鐃緒申  /* call spacific function       */
+
鐃緒申��申鐃緒申  if (request == HFSKBD)
+
鐃緒申��申鐃緒申    retcode = hfskbd (fd, request, arg.c);
+
鐃緒申��申鐃緒申  else				/* assume HFQUERY */
+
鐃緒申��申鐃緒申    retcode = hfqry (fd, request, arg.c);
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申  fcntl (fd, F_SETFL, fd_flag); /* reset terminal to original   */
+
鐃緒申��申鐃緒申  ioctl (fd, TCSETS, &term_old);
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申  return (retcode);             /* return error                 */
+
鐃緒申��申鐃緒申}
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申/*************** HFSKBD  FUNCTION ******************************/
+
鐃緒申��申鐃緒申static int
+
鐃緒申��申鐃緒申hfskbd (fd, request, arg)
+
鐃緒申��申鐃緒申        int     fd;
+
鐃緒申��申鐃緒申        int     request;
+
鐃緒申��申鐃緒申        struct hfbuf *arg;
+
鐃緒申��申鐃緒申{
+
鐃緒申��申鐃緒申  WR_REQ(fd, request, arg->hf_buflen, arg->hf_bufp,0);
+
鐃緒申��申鐃緒申  return (GT_ACK(fd, request, arg->hf_bufp));
+
鐃緒申��申鐃緒申}
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申/*************** HFQUERY FUNCTION ******************************/
+
鐃緒申��申鐃緒申static int
+
鐃緒申��申鐃緒申hfqry (fd, request, arg)
+
鐃緒申��申鐃緒申        int     fd;
+
鐃緒申��申鐃緒申        int     request;
+
鐃緒申��申鐃緒申        struct hfquery *arg;
+
鐃緒申��申鐃緒申{
+
鐃緒申��申鐃緒申  WR_REQ(fd, request, arg->hf_cmdlen, arg->hf_cmd, arg->hf_resplen);
+
鐃緒申��申鐃緒申  return (GT_ACK(fd, request, arg->hf_resp));
+
鐃緒申��申鐃緒申}
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申/*************** GT_ACK FUNCTION ******************************/
+
鐃緒申��申鐃緒申static int
+
鐃緒申��申鐃緒申GT_ACK (fd, req, buf)
+
鐃緒申��申鐃緒申        int     fd;
+
鐃緒申��申鐃緒申        int     req;
+
鐃緒申��申鐃緒申        char   *buf;
+
鐃緒申��申鐃緒申{
+
鐃緒申��申鐃緒申  struct hfctlack ack;
+
鐃緒申��申鐃緒申  int             i = sizeof (ack);
+
鐃緒申��申鐃緒申  int             j = 0;
+
鐃緒申��申鐃緒申  union {
+
鐃緒申��申鐃緒申    char            *c;
+
鐃緒申��申鐃緒申    struct hfctlack *ack;
+
鐃緒申��申鐃緒申  }               p;
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申  is_ack_vtd = 0;		/* flag no ACT VTD yet         */
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申  if (setjmp (hftenv))		/* set environment in case     */
+
鐃緒申��申鐃緒申    {				/* of time out                 */
+
鐃緒申��申鐃緒申      errno = ENODEV;		/* if time out, set errno      */
+
鐃緒申��申鐃緒申      return (-1);		/* flag error                  */
+
鐃緒申��申鐃緒申    }
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申  alarm(3);			/* time out in 3 secs          */
+
鐃緒申��申鐃緒申  sav_alrm = signal (SIGALRM, hft_alrm); /* prepare to catch time out   */
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申  p.ack = &ack;
+
鐃緒申��申鐃緒申  while (! is_ack_vtd)		/* do until valid ACK VTD      */
+
鐃緒申��申鐃緒申    {
+
鐃緒申��申鐃緒申      RD_BUF(fd, p.c, i);	/* read until a ACK VTD is fill*/
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申      if (! memcmp (&ack, &ACK, sizeof (HFINTROSZ)) /* the ACK intro &  */
+
鐃緒申��申鐃緒申	  && (ack.hf_request == req)) /* is it the response we want ?*/
+
鐃緒申��申鐃緒申	{			/* yes, ACK VTD found          */
+
鐃緒申��申鐃緒申	  is_ack_vtd = 1;	/* quickly, flag it            */
+
鐃緒申��申鐃緒申	  break;		/* get the %$%#@ out of here   */
+
鐃緒申��申鐃緒申	}
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申      p.ack = &ack;		/* no, then skip 1st           */
+
鐃緒申��申鐃緒申      ++p.c;			/* char and start over         */
+
鐃緒申��申鐃緒申      i = sizeof (ack) - 1;	/* one less ESC to cry over    */
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申      while ((*p.c != 0x1b) && i) /* scan for next ESC           */
+
鐃緒申��申鐃緒申	{ ++p.c; --i; }		/* if any                      */
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申      (i ? memcpy (&ack, p.c, i) : 0); /* if any left over, then move */
+
鐃緒申��申鐃緒申      p.ack = &ack;		/* ESC to front of ack struct  */
+
鐃緒申��申鐃緒申      p.c += i;			/* skip over whats been read   */
+
鐃緒申��申鐃緒申      i = sizeof (ack) - i;	/* set whats left to be read   */
+
鐃緒申��申鐃緒申    }				/***** TRY AGAIN               */
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申  alarm(0);			/* ACK VTD received, reset alrm*/
+
鐃緒申��申鐃緒申  signal (SIGALRM, sav_alrm);	/* reset signal                */
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申  if (i = ack.hf_arg_len)	/* any data following ?        */
+
鐃緒申��申鐃緒申    {				/* yes,                        */
+
鐃緒申��申鐃緒申      RD_BUF(fd,buf,i);		/* read until it is received   */
+
鐃緒申��申鐃緒申    }
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申  if (errno = ack.hf_retcode)	/* set errno based on returned */
+
鐃緒申��申鐃緒申    return (-1);		/* code, if 0, then no error   */
+
鐃緒申��申鐃緒申  else
+
鐃緒申��申鐃緒申    return (0);			/* if set, then error returned */
+
鐃緒申��申鐃緒申}
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申/*************** HFT_ALRM FUNCTION ******************************/
+
鐃緒申��申鐃緒申static int
+
鐃緒申��申鐃緒申hft_alrm (sig)                    /* Function hft_alrm - handle  */
+
鐃緒申��申鐃緒申        int sig;		/* alarm signal               */
+
鐃緒申��申鐃緒申{
+
鐃緒申��申鐃緒申  signal (SIGALRM, sav_alrm);	/* reset to previous          */
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申  if (is_ack_vtd)		/* has ack vtd arrived ?      */
+
鐃緒申��申鐃緒申    return(0);			/* yes, then continue         */
+
鐃緒申��申鐃緒申  else				/* no, then return with error */
+
鐃緒申��申鐃緒申    longjmp (hftenv, -1);
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申}
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申/*********************************************************************/
+
鐃緒申��申鐃緒申/***                                                               ***/
+
鐃緒申��申鐃緒申/***  NOTE: Both the HFCTLREQ and the arg structure should be      ***/
+
鐃緒申��申鐃緒申/***        sent in one io write operation.  If terminal           ***/
+
鐃緒申��申鐃緒申/***        emulators are in NODELAY mode then multiple writes     ***/
+
鐃緒申��申鐃緒申/***        may cause bogus information to be read by the emulator ***/
+
鐃緒申��申鐃緒申/***        depending on the timing.                               ***/
+
鐃緒申��申鐃緒申/***                                                               ***/
+
鐃緒申��申鐃緒申/*********************************************************************/
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申static int
+
鐃緒申��申鐃緒申WR_REQ (fd, request, cmdlen, cmd, resplen)
+
鐃緒申��申鐃緒申	int             fd;
+
鐃緒申��申鐃緒申	int             request;
+
鐃緒申��申鐃緒申	int             cmdlen;
+
鐃緒申��申鐃緒申	char           *cmd;
+
鐃緒申��申鐃緒申	int             resplen;
+
鐃緒申��申鐃緒申{
+
鐃緒申��申鐃緒申  struct {
+
鐃緒申��申鐃緒申    char            *c;
+
鐃緒申��申鐃緒申    struct hfctlreq *req;
+
鐃緒申��申鐃緒申  }              p;
+
鐃緒申��申鐃緒申  int            size;
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申  req.hf_request = request;
+
鐃緒申��申鐃緒申  req.hf_arg_len = cmdlen;
+
鐃緒申��申鐃緒申  req.hf_rsp_len = resplen;
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申  if (cmdlen)			/* if arg structure to pass    */
+
鐃緒申��申鐃緒申    {
+
鐃緒申��申鐃緒申      size = sizeof (struct hfctlreq) + cmdlen;
+
鐃緒申��申鐃緒申      if ((p.c = malloc(size)) == NULL) /* malloc one area            */
+
鐃緒申��申鐃緒申	return (-1);
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申      memcpy (p.c, &req, sizeof (req)); /* copy CTL REQ struct         */
+
鐃緒申��申鐃緒申      memcpy (p.c + sizeof (req), cmd, cmdlen); /* copy arg struct     */
+
鐃緒申��申鐃緒申    }
+
鐃緒申��申鐃緒申  else
+
鐃緒申��申鐃緒申    {
+
鐃緒申��申鐃緒申      p.req = &req;		/* otherwise use only CTL REQ  */
+
鐃緒申��申鐃緒申      size = sizeof (req);
+
鐃緒申��申鐃緒申    }
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申  /* write request to terminal   */
+
鐃緒申��申鐃緒申  if (write(fd,p.c,size) == -1) return (-1);
+
鐃緒申��申鐃緒申  if (p.req != &req)		/* free if allocated           */
+
鐃緒申��申鐃緒申    free (p.c);
+
鐃緒申��申鐃緒申  return (0);
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申}