home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / usenet / altsrcs / 2 / 2681 / emacs.pat-sco < prev   
Encoding:
Text File  |  1991-02-07  |  12.2 KB  |  547 lines
  1. *** config.h-d.P    Tue Jan  8 13:24:37 1991
  2. --- config.h-dist    Wed Feb  6 11:49:48 1991
  3. ***************
  4. *** 44,47 ****
  5. --- 44,53 ----
  6.   #endif /* SHORTNAMES */
  7.   
  8. + /* Define the return type of signal handlers if the s-xxx file
  9. +    did not already do so.  */
  10. + #ifndef SIGTYPE
  11. + #define SIGTYPE int
  12. + #endif
  13. + 
  14.   /* Define HAVE_X_WINDOWS if you want to use the X window system.  */
  15.   
  16.  
  17. *** s-aix3-1.h.P    Tue Jan  8 13:02:50 1991
  18. --- s-aix3-1.h    Wed Feb  6 12:01:58 1991
  19. ***************
  20. *** 78,81 ****
  21. --- 78,88 ----
  22.   
  23.   /*
  24. +  *    Define HAVE_TERMIOS if the system provides POSIX-style
  25. +  *    terminal control.  (HAVE_TERMIO is still required.)
  26. +  */
  27. + 
  28. + #define HAVE_TERMIOS
  29. + 
  30. + /*
  31.    *    Define HAVE_TIMEVAL if the system supports the BSD style clock values.
  32.    *    Look in <sys/time.h> for a timeval structure.
  33.  
  34. *** s-usg5-3.h.P    Fri Jan 11 18:23:02 1991
  35. --- s-usg5-3.h    Wed Feb  6 11:50:45 1991
  36. ***************
  37. *** 180,183 ****
  38. --- 180,187 ----
  39.   #define INTERRUPTABLE_IO
  40.   
  41. + /* On USG systems signal handlers return void */
  42. + 
  43. + #define SIGTYPE void
  44. + 
  45.   /* On USG systems these have different names */
  46.   
  47.  
  48. *** dispnew.c.P    Tue Jan  8 12:25:28 1991
  49. --- dispnew.c    Wed Feb  6 11:26:46 1991
  50. ***************
  51. *** 1186,1189 ****
  52. --- 1186,1190 ----
  53.   
  54.   #ifdef SIGWINCH
  55. + SIGTYPE
  56.   window_change_signal ()
  57.   {
  58.  
  59. *** emacs.c.P    Fri Jan 11 22:16:31 1991
  60. --- emacs.c    Wed Feb  6 11:27:04 1991
  61. ***************
  62. *** 105,108 ****
  63. --- 105,109 ----
  64.   
  65.   /* Handle bus errors, illegal instruction, etc. */
  66. + SIGTYPE
  67.   fatal_error_signal (sig)
  68.        int sig;
  69.  
  70. *** data.c.P    Fri Jan  4 19:15:14 1991
  71. --- data.c    Wed Feb  6 11:45:03 1991
  72. ***************
  73. *** 1550,1553 ****
  74. --- 1550,1554 ----
  75.   }
  76.   
  77. + SIGTYPE
  78.   arith_error (signo)
  79.        int signo;
  80.  
  81. *** keyboard.c.P    Tue Jan  8 20:40:31 1991
  82. --- keyboard.c    Wed Feb  6 11:30:44 1991
  83. ***************
  84. *** 793,796 ****
  85. --- 793,797 ----
  86.   
  87.   /* Alarm interrupt calls this and requests echoing at earliest safe time. */
  88. + SIGTYPE
  89.   request_echo ()
  90.   {
  91. ***************
  92. *** 900,904 ****
  93.     Lisp_Object tem;
  94.     jmp_buf save_jump;
  95. -   extern request_echo ();
  96.   
  97.     if (unread_command_char >= 0)
  98. --- 901,904 ----
  99. ***************
  100. *** 1073,1076 ****
  101. --- 1073,1077 ----
  102.         || ((c == (0200 | quit_char)) && !meta_key))
  103.       {
  104. +       extern SIGTYPE interrupt_signal ();
  105.         interrupt_signal ();
  106.         return;
  107. ***************
  108. *** 1945,1948 ****
  109. --- 1946,1950 ----
  110.    If  quit-flag  is already non-nil, it stops the job right away.  */
  111.   
  112. + SIGTYPE
  113.   interrupt_signal ()
  114.   {
  115.  
  116. *** process.c.P    Tue Jan 15 20:28:48 1991
  117. --- process.c    Wed Feb  6 11:46:28 1991
  118. ***************
  119. *** 977,980 ****
  120. --- 977,981 ----
  121.   }
  122.   
  123. + SIGTYPE
  124.   create_process_1 (signo)
  125.        int signo;
  126. ***************
  127. *** 1012,1016 ****
  128.     int sv[2];
  129.   #ifdef SIGCHLD
  130. !   int (*sigchld)();
  131.   #endif
  132.     char **env;
  133. --- 1013,1017 ----
  134.     int sv[2];
  135.   #ifdef SIGCHLD
  136. !   SIGTYPE (*sigchld)();
  137.   #endif
  138.     char **env;
  139. ***************
  140. *** 1109,1113 ****
  141.   #if 0
  142.     sigchld_deferred = 0;
  143. !   sigchld = (int (*)()) signal (SIGCHLD, create_process_sigchld);
  144.   #endif
  145.   #endif /* ordinary USG */
  146. --- 1110,1114 ----
  147.   #if 0
  148.     sigchld_deferred = 0;
  149. !   sigchld = signal (SIGCHLD, create_process_sigchld);
  150.   #endif
  151.   #endif /* ordinary USG */
  152. ***************
  153. *** 1877,1880 ****
  154. --- 1878,1882 ----
  155.   jmp_buf send_process_frame;
  156.   
  157. + SIGTYPE
  158.   send_process_trap ()
  159.   {
  160. ***************
  161. *** 2187,2190 ****
  162. --- 2189,2193 ----
  163.    the SIGCLD queue.   Fred Fish, UniSoft Systems Inc. */
  164.   
  165. + SIGTYPE
  166.   sigchld_handler (signo)
  167.        int signo;
  168.  
  169. *** sysdep.c.P    Tue Jan 15 21:43:59 1991
  170. --- sysdep.c    Wed Feb  6 11:34:32 1991
  171. ***************
  172. *** 118,148 ****
  173.   
  174.   #ifdef HAVE_TERMIO
  175. ! #ifdef IBMR2AIX
  176. ! #include <termio.h>
  177.   #include <termios.h>
  178. ! #ifdef TIOCGETP
  179. ! #undef TIOCGETP
  180. ! #endif
  181. ! #define TIOCGETP TCGETS
  182. ! #undef TIOCSETN
  183. ! #define TIOCSETN TCSETSW
  184. ! #undef TIOCSETP
  185. ! #define TIOCSETP TCSETSF
  186. ! #undef TCSETAW
  187. ! #define TCSETAW TCSETS
  188.   #else
  189.   #include <termio.h>
  190. - #undef TIOCGETP
  191. - #define TIOCGETP TCGETA
  192. - #undef TIOCSETN
  193. - #define TIOCSETN TCSETAW
  194. - #undef TIOCSETP
  195. - #define TIOCSETP TCSETAF
  196. - #endif
  197. - 
  198. - #ifndef IBMR2AIX
  199.   #define TERMINAL struct termio
  200. ! #else
  201. ! #define TERMINAL struct termios
  202.   #endif
  203.   
  204. --- 118,134 ----
  205.   
  206.   #ifdef HAVE_TERMIO
  207. ! 
  208. ! #ifdef HAVE_TERMIOS
  209.   #include <termios.h>
  210. ! #define TERMINAL struct termios
  211. ! #define term_get(fd,t)   tcgetattr(fd,t)
  212. ! #define term_set(fd,t)   tcsetattr(fd,TCSANOW,t)
  213. ! #define term_setw(fd,t)  tcsetattr(fd,TCSADRAIN,t)
  214.   #else
  215.   #include <termio.h>
  216.   #define TERMINAL struct termio
  217. ! #define term_get(fd,t)   ioctl(fd,TCGETA,t)
  218. ! #define term_set(fd,t)   ioctl(fd,TCSETA,t)
  219. ! #define term_setw(fd,t)  ioctl(fd,TCSETAW,t)
  220.   #endif
  221.   
  222. ***************
  223. *** 164,172 ****
  224.   #include <sgtty.h>
  225.   #define TERMINAL struct sgttyb
  226.   #define OSPEED(str) str.sg_ospeed
  227.   #define SETOSPEED(str,new) (str.sg_ospeed = (new))
  228.   #define TABS_OK(str) ((str.sg_flags & XTABS) != XTABS)
  229. - #undef TCSETAW
  230. - #define TCSETAW TIOCSETN
  231.   #endif /* not VMS */
  232.   #endif /* not HAVE_TERMIO */
  233. --- 150,159 ----
  234.   #include <sgtty.h>
  235.   #define TERMINAL struct sgttyb
  236. + #define term_get(fd,t)   ioctl(fd,TIOCGETP,t)
  237. + #define term_set(fd,t)   ioctl(fd,TIOCSETP,t)
  238. + #define term_setw(fd,t)  ioctl(fd,TIOCSETN,t)
  239.   #define OSPEED(str) str.sg_ospeed
  240.   #define SETOSPEED(str,new) (str.sg_ospeed = (new))
  241.   #define TABS_OK(str) ((str.sg_flags & XTABS) != XTABS)
  242.   #endif /* not VMS */
  243.   #endif /* not HAVE_TERMIO */
  244. ***************
  245. *** 322,327 ****
  246.     queue_kbd_input ();
  247.   #else /* not VMS */
  248. !   ioctl (0, TIOCGETP, &buf);
  249. !   ioctl (0, TIOCSETP, &buf);
  250.   #endif /* not VMS */
  251.   }
  252. --- 309,314 ----
  253.     queue_kbd_input ();
  254.   #else /* not VMS */
  255. !   term_get (0, &buf);
  256. !   term_set (0, &buf);
  257.   #endif /* not VMS */
  258.   }
  259. ***************
  260. *** 355,359 ****
  261.   #else
  262.         SETOSPEED (sg, B9600);
  263. !       ioctl (0, TIOCGETP, &sg);
  264.   #endif /* not VMS */
  265.         ospeed = OSPEED (sg);
  266. --- 342,346 ----
  267.   #else
  268.         SETOSPEED (sg, B9600);
  269. !       term_get (0, &sg);
  270.   #endif /* not VMS */
  271.         ospeed = OSPEED (sg);
  272. ***************
  273. *** 470,473 ****
  274. --- 457,463 ----
  275.        int channel;
  276.   {
  277. + #ifdef HAVE_TERMIOS
  278. +   tcflush (channel, TCOFLUSH);
  279. + #else
  280.   #ifdef TCFLSH
  281.     ioctl (channel, TCFLSH, 1);
  282. ***************
  283. *** 481,484 ****
  284. --- 471,475 ----
  285.   #endif
  286.   #endif
  287. + #endif
  288.   }
  289.   
  290. ***************
  291. *** 493,497 ****
  292.     TERMINAL s;
  293.   
  294. !   ioctl (out, TIOCGETP, &s);
  295.   #ifdef HAVE_TERMIO
  296.     s.c_oflag |= OPOST;        /* Enable output postprocessing */
  297. --- 484,488 ----
  298.     TERMINAL s;
  299.   
  300. !   term_get (out, &s);
  301.   #ifdef HAVE_TERMIO
  302.     s.c_oflag |= OPOST;        /* Enable output postprocessing */
  303. ***************
  304. *** 510,513 ****
  305. --- 501,510 ----
  306.     s.c_cc[VERASE] = 0377;    /* disable erase processing */
  307.     s.c_cc[VKILL] = 0377;        /* disable kill processing */
  308. + #ifdef VSUSP
  309. +   s.c_cc[VSUSP] = 0377;        /* disable suspend processing */
  310. + #endif
  311. + #ifdef VDSUSP
  312. +   s.c_cc[VDSUSP] = 0377;    /* disable delayed suspend processing */
  313. + #endif
  314.   #ifdef HPUX
  315.     s.c_cflag = (s.c_cflag & ~CBAUD) | B9600; /* baud rate sanity */
  316. ***************
  317. *** 536,540 ****
  318.   #endif /* not HAVE_TERMIO */
  319.   
  320. !   ioctl (out, TIOCSETN, &s);
  321.   
  322.   #ifdef BSD4_1
  323. --- 533,537 ----
  324.   #endif /* not HAVE_TERMIO */
  325.   
  326. !   term_setw (out, &s);
  327.   
  328.   #ifdef BSD4_1
  329. ***************
  330. *** 556,560 ****
  331.        int pid;
  332.   {
  333. ! #ifdef IBMR2AIX
  334.     tcsetpgrp ( 0, pid);
  335.   #else
  336. --- 553,557 ----
  337.        int pid;
  338.   {
  339. ! #ifdef HAVE_TERMIOS
  340.     tcsetpgrp ( 0, pid);
  341.   #else
  342. ***************
  343. *** 571,575 ****
  344.   {
  345.     int code;
  346. !   int (*handler) ();
  347.   };
  348.   
  349. --- 568,572 ----
  350.   {
  351.     int code;
  352. !   SIGTYPE (*handler) ();
  353.   };
  354.   
  355. ***************
  356. *** 675,680 ****
  357.     while (saved_handlers->code)
  358.       {
  359. !       saved_handlers->handler
  360. !     = (int (*) ()) signal (saved_handlers->code, SIG_IGN);
  361.         saved_handlers++;
  362.       }
  363. --- 672,676 ----
  364.     while (saved_handlers->code)
  365.       {
  366. !       saved_handlers->handler = signal (saved_handlers->code, SIG_IGN);
  367.         saved_handlers++;
  368.       }
  369. ***************
  370. *** 844,848 ****
  371.   #endif
  372.   #else /* not VMS */
  373. !   ioctl (0, TIOCGETP, &old_gtty);
  374.   #endif /* not VMS */
  375.     if (!read_socket_hook)
  376. --- 840,844 ----
  377.   #endif
  378.   #else /* not VMS */
  379. !   term_get (0, &old_gtty);
  380.   #endif /* not VMS */
  381.     if (!read_socket_hook)
  382. ***************
  383. *** 884,897 ****
  384.         tty.c_cc[VSWTCH] = CDEL;    /* Turn off shell layering use of C-z */
  385.   #endif /* VSWTCH */
  386. ! #ifdef mips  /* The following code looks like the right thing in general,
  387. !         but it is said to cause a crash on USG V.4.
  388. !         Let's play safe by turning it on only for the MIPS.  */
  389.   #ifdef VSUSP
  390. !       tty.c_cc[VSUSP] = CDEL;    /* Turn off mips handling of C-z.  */
  391.   #endif /* VSUSP */
  392.   #ifdef V_DSUSP
  393.         tty.c_cc[V_DSUSP] = CDEL;    /* Turn off mips handling of C-y.  */
  394.   #endif /* V_DSUSP */
  395. - #endif /* mips */
  396.   
  397.   #ifdef AIX
  398. --- 880,900 ----
  399.         tty.c_cc[VSWTCH] = CDEL;    /* Turn off shell layering use of C-z */
  400.   #endif /* VSWTCH */
  401. !  /* The following code looks like the right thing in general,
  402. !     which it is; SysVr4 can go jump in a lake if it crashes. */
  403. ! #ifdef VSTRT
  404. !       tty.c_cc[VSTRT] = CDEL;    /* Turn off handling of C-s.  */
  405. ! #endif /* VSTRT */
  406. ! #ifdef VSTOP
  407. !       tty.c_cc[VSTOP] = CDEL;    /* Turn off handling of C-q.  */
  408. ! #endif /* VSTOP */
  409.   #ifdef VSUSP
  410. !       tty.c_cc[VSUSP] = CDEL;    /* Turn off handling of C-z.  */
  411.   #endif /* VSUSP */
  412. + #ifdef VDSUSP
  413. +       tty.c_cc[VDSUSP] = CDEL;    /* Turn off handling of C-y.  */
  414. + #endif /* VDSUSP */
  415.   #ifdef V_DSUSP
  416.         tty.c_cc[V_DSUSP] = CDEL;    /* Turn off mips handling of C-y.  */
  417.   #endif /* V_DSUSP */
  418.   
  419.   #ifdef AIX
  420. ***************
  421. *** 900,908 ****
  422.         tty.c_line = 0;
  423.         tty.c_iflag &= ~ASCEDIT;
  424. - #else
  425. -       tty.c_cc[VSTRT] = 255;
  426. -       tty.c_cc[VSTOP] = 255;
  427. -       tty.c_cc[VSUSP] = 255;
  428. -       tty.c_cc[VDSUSP] = 255;
  429.   #endif /* IBMR2AIX */
  430.         /* Also, PTY overloads NUL and BREAK.
  431. --- 903,906 ----
  432. ***************
  433. *** 933,937 ****
  434.           &tty.class, 12, 0, 0, 0, 0);
  435.   #else
  436. !       ioctl (0, TIOCSETN, &tty);
  437.   #endif /* not VMS */
  438.   
  439. --- 931,935 ----
  440.           &tty.class, 12, 0, 0, 0, 0);
  441.   #else
  442. !       term_setw (0, &tty);
  443.   #endif /* not VMS */
  444.   
  445. ***************
  446. *** 938,947 ****
  447.         /* This code added to insure that, if flow-control is not to be used,
  448.        we have an unlocked screen at the start. */
  449.   #ifdef TCXONC
  450.         if (!flow_control) ioctl (0, TCXONC, 1);
  451. ! #endif
  452.   #ifdef TIOCSTART
  453.         if (!flow_control) ioctl (0, TIOCSTART, 0);
  454.   #endif
  455.   
  456.   #ifdef AIX
  457. --- 936,950 ----
  458.         /* This code added to insure that, if flow-control is not to be used,
  459.        we have an unlocked screen at the start. */
  460. + #ifdef HAVE_TERMIOS
  461. +       if (!flow_control) tcflow (0, TCOON);
  462. + #else
  463.   #ifdef TCXONC
  464.         if (!flow_control) ioctl (0, TCXONC, 1);
  465. ! #else
  466.   #ifdef TIOCSTART
  467.         if (!flow_control) ioctl (0, TIOCSTART, 0);
  468.   #endif
  469. + #endif
  470. + #endif
  471.   
  472.   #ifdef AIX
  473. ***************
  474. *** 1056,1060 ****
  475.           &tty.class, 12, 0, 0, 0, 0);
  476.   #else
  477. !   ioctl (0, TIOCGETP, &tty);
  478.   #endif /* not VMS */
  479.     return (TABS_OK(tty));
  480. --- 1059,1063 ----
  481.           &tty.class, 12, 0, 0, 0, 0);
  482.   #else
  483. !   term_get (0, &tty);
  484.   #endif /* not VMS */
  485.     return (TABS_OK(tty));
  486. ***************
  487. *** 1165,1169 ****
  488.           &old_gtty.class, 12, 0, 0, 0, 0);
  489.   #else /* not VMS */
  490. !   while (ioctl (0, TCSETAW, &old_gtty) < 0 && errno == EINTR);
  491.   #endif /* not VMS */
  492.   
  493. --- 1168,1172 ----
  494.           &old_gtty.class, 12, 0, 0, 0, 0);
  495.   #else /* not VMS */
  496. !   while (term_setw (0, &old_gtty) < 0 && errno == EINTR);
  497.   #endif /* not VMS */
  498.   
  499. ***************
  500. *** 1616,1619 ****
  501. --- 1619,1623 ----
  502.   int read_alarm_should_throw;
  503.   
  504. + SIGTYPE
  505.   select_alarm ()
  506.   {
  507. ***************
  508. *** 1644,1648 ****
  509.     extern int process_tick, update_tick;
  510.   #endif
  511. !   int (*old_trap) ();
  512.     char buf;
  513.   
  514. --- 1648,1652 ----
  515.     extern int process_tick, update_tick;
  516.   #endif
  517. !   SIGTYPE (*old_trap) ();
  518.     char buf;
  519.   
  520. ***************
  521. *** 1714,1718 ****
  522.       break;
  523.         old_alarm = alarm (0);
  524. !       old_trap = (int (*)()) signal (SIGALRM, select_alarm);
  525.         select_alarmed = 0;
  526.         alarm (SELECT_PAUSE);
  527. --- 1718,1722 ----
  528.       break;
  529.         old_alarm = alarm (0);
  530. !       old_trap = signal (SIGALRM, select_alarm);
  531.         select_alarmed = 0;
  532.         alarm (SELECT_PAUSE);
  533. ***************
  534. *** 2282,2287 ****
  535. --- 2286,2296 ----
  536.   
  537.   rename (from, to)
  538. + #ifdef M_UNIX            /* SCO UNIX: must match system header */
  539. +      const char *from;
  540. +      const char *to;
  541. + #else
  542.        char *from;
  543.        char *to;
  544. + #endif
  545.   {
  546.     if (access (from, 0) == 0)
  547.