home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Professional / OS2PRO194.ISO / os2 / prgramer / unix / emacs / src / emacs.dif < prev    next >
Encoding:
Text File  |  1992-09-05  |  15.0 KB  |  498 lines
  1. diff -cb src/doc.cmd src.new/doc.cmd
  2. *** src/doc.cmd    Sun May 03 14:20:16 1992
  3. --- src.new/doc.cmd    Sun Aug 16 19:33:13 1992
  4. ***************
  5. *** 1 ****
  6. ! ..\etc\make-docfile -o ..\etc\DOC dispnew.o scroll.o xdisp.o window.o term.o cm.o emacs.o keyboard.o macros.o keymap.o sysdep.o buffer.o filelock.o insdel.o marker.o minibuf.o fileio.o dired.o filemode.o cmds.o casefiddle.o indent.o search.o regex.o undo.o alloc.o data.o doc.o editfns.o callint.o eval.o fns.o print.o lread.o abbrev.o syntax.o unexec.o mocklisp.o bytecode.o process.o callproc.o doprnt.o ..\lisp\simple.elc ..\lisp\help.elc ..\lisp\files.elc ..\lisp\window.elc ..\lisp\indent.elc ..\lisp\loaddefs.el ..\lisp\paths.el ..\lisp\startup.elc ..\lisp\lisp.elc ..\lisp\page.elc ..\lisp\register.elc ..\lisp\paragraphs.elc ..\lisp\lisp-mode.elc ..\lisp\text-mode.elc ..\lisp\fill.elc ..\lisp\c-mode.elc ..\lisp\isearch.elc ..\lisp\replace.elc ..\lisp\abbrev.elc ..\lisp\buff-menu.elc ..\lisp\subr.elc ..\lisp\version.el
  7. --- 1 ----
  8. ! ..\etc\make-docfile -o ..\etc\DOC os2.o dispnew.o scroll.o xdisp.o window.o term.o cm.o emacs.o keyboard.o macros.o keymap.o sysdep.o buffer.o filelock.o insdel.o marker.o minibuf.o fileio.o dired.o filemode.o cmds.o casefiddle.o indent.o search.o regex.o undo.o alloc.o data.o doc.o editfns.o callint.o eval.o fns.o print.o lread.o abbrev.o syntax.o unexec.o mocklisp.o bytecode.o process.o callproc.o doprnt.o ..\lisp\simple.elc ..\lisp\help.elc ..\lisp\files.elc ..\lisp\window.elc ..\lisp\indent.elc ..\lisp\loaddefs.el ..\lisp\paths.el ..\lisp\startup.elc ..\lisp\lisp.elc ..\lisp\page.elc ..\lisp\register.elc ..\lisp\paragraphs.elc ..\lisp\lisp-mode.elc ..\lisp\text-mode.elc ..\lisp\fill.elc ..\lisp\c-mode.elc ..\lisp\isearch.elc ..\lisp\replace.elc ..\lisp\abbrev.elc ..\lisp\buff-menu.elc ..\lisp\subr.elc ..\lisp\version.el
  9. diff -cb src/editfns.c src.new/editfns.c
  10. *** src/editfns.c    Fri May 01 17:14:24 1992
  11. --- src.new/editfns.c    Sun Aug 16 19:21:20 1992
  12. ***************
  13. *** 100,105 ****
  14. --- 100,109 ----
  15.     if (NULL (tem))
  16.       pw = (struct passwd *) getpwnam (XSTRING (Vuser_name)->data);
  17.   
  18. +   p = (unsigned char *) getenv("FULLNAME");
  19. +   if (p==0)
  20. +   p = (unsigned char *) getenv("USERFULLNAME");
  21. +   if (p==0)
  22.       p = (unsigned char *) (pw ? USER_FULL_NAME : "unknown");
  23.     q = (unsigned char *) index (p, ',');
  24.     Vuser_full_name = make_string (p, q ? q - p : strlen (p));
  25. diff -cb src/emacs.c src.new/emacs.c
  26. *** src/emacs.c    Sat Apr 25 16:20:10 1992
  27. --- src.new/emacs.c    Sun Aug 16 19:15:02 1992
  28. ***************
  29. *** 124,129 ****
  30. --- 124,133 ----
  31.   
  32.   int noninteractive1;
  33.   
  34. + #ifdef OS2
  35. + void ctrl_break_signal();
  36. + #endif
  37. + 
  38.   /* Signal code for the fatal signal that was received */
  39.   int fatal_error_code;
  40.   
  41. ***************
  42. *** 223,228 ****
  43. --- 227,238 ----
  44.     extern int errno;
  45.     extern void malloc_warning ();
  46.     
  47. + #ifdef OS2
  48. +   char pid[32];
  49. +   sprintf(pid, "EMACS_PID=%d", getpid());
  50. +   putenv(pid);
  51. + #endif
  52. +   
  53.   /* Map in shared memory, if we are using that.  */
  54.   #ifdef HAVE_SHM
  55.     if (argc > 1 && !strcmp (argv[1], "-nl"))
  56. ***************
  57. *** 346,352 ****
  58.   #endif
  59.   
  60.   #ifdef OS2
  61. !   environ = envp;
  62.   /* In batch mode, screen output should be normal, else binary */
  63.     if (! noninteractive)
  64.       setmode(1, O_BINARY);
  65. --- 356,362 ----
  66.   #endif
  67.   
  68.   #ifdef OS2
  69. !   /* environ = envp; */
  70.   /* In batch mode, screen output should be normal, else binary */
  71.     if (! noninteractive)
  72.       setmode(1, O_BINARY);
  73. ***************
  74. *** 387,392 ****
  75. --- 397,406 ----
  76.         signal (SIGXFSZ, fatal_error_signal);
  77.   #endif SIGXFSZ
  78.   
  79. + #ifdef OS2
  80. +       signal (SIGBREAK, ctrl_break_signal);
  81. + #endif /* OS2 */      
  82. +       
  83.   #ifdef AIX
  84.         /* This used to run fatal_error_signal,
  85.        but it isn't fatal.  There's nothing Emacs can usefully do.
  86. diff -cb src/fileio.c src.new/fileio.c
  87. *** src/fileio.c    Sun May 03 14:13:23 1992
  88. --- src.new/fileio.c    Sun Aug 16 19:15:03 1992
  89. ***************
  90. *** 603,608 ****
  91. --- 603,613 ----
  92.       }
  93.     else if (p[0] == '/' || p[0] == '\\' || _fngetdrive (p) != 0)
  94.       {
  95. +       /* Find out about Server paths */
  96. +       if ((p[0] == '/' || p[0] == '\\') &&
  97. +       (p[1] == '/' || p[1] == '\\'))
  98. +     return build_string(p);
  99. +             
  100.         rel = 0;
  101.         if (_fngetdrive (p) == 0)
  102.       {
  103. ***************
  104. *** 986,991 ****
  105. --- 991,997 ----
  106.   
  107.     for (p = nm; p != endp; p++)
  108.       {
  109. + #ifndef OS2      
  110.         if ((p[0] == '~' ||
  111.   #ifdef APOLLO
  112.          /* // at start of file name is meaningful in Apollo system */
  113. ***************
  114. *** 1002,1007 ****
  115. --- 1008,1035 ----
  116.   #ifdef VMS
  117.         )
  118.   #endif /* VMS */
  119. + #else  /* OS2 */
  120. + /* Ok, it seems as if the following needs a little explanation:
  121. +    Line 1+2: Detects an absolute path name:
  122. +              ~ / \ indicate absolute pathnames if the previous character
  123. +          is / or \. : indicates absolute pathnames in the sequence
  124. +          /a: or \a:, where a is a character.
  125. +          In the case of / and \ it must be tested, if the sequence
  126. +          starts at the beginning of the file name, since the means
  127. +          name of the server on network software.
  128. +    Line 3:   If the above characters appear at the very beginning of a file
  129. +              name, nothing is to do, but this condition must be tested to
  130. +          secure line 3.
  131. +    Line 4:   Checks wether the chars from Line 1 really appear in sequences
  132. +              that indicates an absolute path name.
  133. +    Uff !
  134. + */
  135. +     
  136. +       if ( (p[0] == '~' || p[1] == ':' 
  137. +         || (p[0] == '/' && p-1!=nm) || (p[0] == '\\' && p-1!=nm))
  138. +           && p!=nm
  139. +       && (p[-1] == '/' || p[-1] == '\\'))
  140. + #endif /* OS2 */    
  141.       {
  142.         nm = p;
  143.         substituted = 1;
  144. diff -cb src/keyboard.c src.new/keyboard.c
  145. *** src/keyboard.c    Sun Apr 19 18:03:23 1992
  146. --- src.new/keyboard.c    Sun Aug 16 19:15:03 1992
  147. ***************
  148. *** 2047,2054 ****
  149.         /* Perhaps should really fork an inferior shell?
  150.        But that would not provide any way to get back
  151.        to the original shell, ever.  */
  152. !       printf ("No support for stopping a process on this operating system;\n");
  153. !       printf ("you can continue or abort.\n");
  154.   #endif /* not VMS */
  155.   #endif /* not SIGTSTP */
  156.         printf ("Auto-save? (y or n) ");
  157. --- 2047,2054 ----
  158.         /* Perhaps should really fork an inferior shell?
  159.        But that would not provide any way to get back
  160.        to the original shell, ever.  */
  161. !       printf ("No support for stopping a process on this operating system;\n\r");
  162. !       printf ("you can continue or abort.\n\r");
  163.   #endif /* not VMS */
  164.   #endif /* not SIGTSTP */
  165.         printf ("Auto-save? (y or n) ");
  166. ***************
  167. *** 2065,2071 ****
  168.         if (((c = getchar ()) & ~040) == 'Y')
  169.       abort ();
  170.         while (c != '\n') c = getchar ();
  171. !       printf ("Continuing...\n");
  172.         fflush (stdout);
  173.         init_sys_modes ();
  174.       }
  175. --- 2065,2071 ----
  176.         if (((c = getchar ()) & ~040) == 'Y')
  177.       abort ();
  178.         while (c != '\n') c = getchar ();
  179. !       printf ("Continuing...\n\r");
  180.         fflush (stdout);
  181.         init_sys_modes ();
  182.       }
  183. diff -cb src/makefile src.new/makefile
  184. *** src/makefile    Sun May 03 14:14:23 1992
  185. --- src.new/makefile    Sun Aug 16 19:34:09 1992
  186. ***************
  187. *** 203,209 ****
  188.    
  189.   
  190.   
  191. - 
  192.    
  193.   
  194.    
  195. --- 203,208 ----
  196. ***************
  197. *** 282,287 ****
  198. --- 281,287 ----
  199.   
  200.   
  201.   
  202. + 
  203.   # 26 "config.h" 2
  204.   
  205.   
  206. ***************
  207. *** 570,576 ****
  208.   
  209.   
  210.   
  211. ! STARTFILES = /emx/lib/crt0.o 
  212.   
  213.    
  214.   
  215. --- 570,576 ----
  216.   
  217.   
  218.   
  219. ! STARTFILES = 
  220.   
  221.    
  222.   
  223. ***************
  224. *** 601,607 ****
  225.   
  226.   
  227.   
  228. ! LD=ld 
  229.   LDFLAGS =    
  230.   
  231.    
  232. --- 601,607 ----
  233.   
  234.   
  235.   
  236. ! LD=gcc
  237.   LDFLAGS =
  238.   
  239.    
  240. ***************
  241. *** 616,623 ****
  242.   
  243.   
  244.   
  245. ! CFLAGS= -g  -Demacs $(MYCPPFLAG)    
  246. !  
  247.   
  248.   
  249.   
  250. --- 616,622 ----
  251.   
  252.   
  253.   
  254. ! CFLAGS= -O -Demacs $(MYCPPFLAG)    
  255.   
  256.   
  257.   
  258. ***************
  259. *** 712,718 ****
  260.   
  261.    
  262.   
  263. ! otherobj= $(termcapobj) lastfile.o $(mallocobj) 
  264.   
  265.    
  266.   lisp=    ${lispdir}simple.elc ${lispdir}help.elc     ${lispdir}files.elc ${lispdir}window.elc     ${lispdir}indent.elc ${lispdir}loaddefs.el ${lispdir}paths.el     ${lispdir}startup.elc ${lispdir}lisp.elc     ${lispdir}page.elc ${lispdir}register.elc     ${lispdir}paragraphs.elc ${lispdir}lisp-mode.elc     ${lispdir}text-mode.elc ${lispdir}fill.elc     ${lispdir}c-mode.elc #    ${lispdir}isearch.elc #    ${lispdir}replace.elc     ${lispdir}abbrev.elc     ${lispdir}buff-menu.elc ${lispdir}subr.elc
  267. --- 711,717 ----
  268.   
  269.    
  270.   
  271. ! otherobj= $(termcapobj) lastfile.o $(mallocobj) os2.o
  272.   
  273.    
  274.   lisp=    ${lispdir}simple.elc ${lispdir}help.elc     ${lispdir}files.elc ${lispdir}window.elc     ${lispdir}indent.elc ${lispdir}loaddefs.el ${lispdir}paths.el     ${lispdir}startup.elc ${lispdir}lisp.elc     ${lispdir}page.elc ${lispdir}register.elc     ${lispdir}paragraphs.elc ${lispdir}lisp-mode.elc     ${lispdir}text-mode.elc ${lispdir}fill.elc     ${lispdir}c-mode.elc #    ${lispdir}isearch.elc #    ${lispdir}replace.elc     ${lispdir}abbrev.elc     ${lispdir}buff-menu.elc ${lispdir}subr.elc
  275. ***************
  276. *** 742,764 ****
  277.   all: xemacs.exe  
  278.   
  279.   xemacs.exe: temacs.exe DOC ${lisp}
  280. ! 
  281. ! 
  282. ! 
  283. ! 
  284. ! 
  285. ! 
  286. ! 
  287. ! 
  288. ! 
  289. !     echo Version is not incremented !
  290.   #    temacs -batch -l inc-vers
  291. !     temacs -batch -l loadup.el dump
  292. ! 
  293. !     emxbind -x temacs.exe a.out
  294. !     emxbind -ccore c:\emx\bin\emxl.exe a.out xemacs.exe
  295. !     del a.out
  296. !     del core
  297.   
  298.   
  299.   
  300. --- 741,749 ----
  301.   all: xemacs.exe  
  302.   
  303.   xemacs.exe: temacs.exe DOC ${lisp}
  304. !     cmd /c echo Version is not incremented !
  305.   #    temacs -batch -l inc-vers
  306. !     cmd /c "dump-emacs.cmd"
  307.   
  308.   
  309.   
  310. ***************
  311. *** 777,783 ****
  312.   
  313.   
  314.   
  315. ! temacs.exe:   $(LOCALCPP) $(SHORT) $(STARTFILES) $(OLDXMENU) ${obj} ${otherobj}    
  316.       $(LD) ${STARTFLAGS} ${LDFLAGS} -o temacs.exe ${STARTFILES} ${obj} ${otherobj}     ${LIBES}
  317.   
  318.    
  319. --- 762,768 ----
  320.   
  321.   
  322.   
  323. ! temacs.exe:   $(LOCALCPP) $(SHORT) $(OLDXMENU) ${obj} ${otherobj}    
  324.       $(LD) ${STARTFLAGS} ${LDFLAGS} -o temacs.exe ${STARTFILES} ${obj} ${otherobj}     ${LIBES}
  325.   
  326.    
  327. diff -cb src/s-os2.h src.new/s-os2.h
  328. *** src/s-os2.h    Sun May 03 14:17:04 1992
  329. --- src.new/s-os2.h    Sun Aug 16 19:15:04 1992
  330. ***************
  331. *** 1,5 ****
  332.   
  333. ! /* Definitions file for GNU Emacs running on AT&T's System V Release 3
  334.      Copyright (C) 1987 Free Software Foundation, Inc.
  335.   
  336.   This file is part of GNU Emacs.
  337. --- 1,5 ----
  338.   
  339. ! /* Definitions file for GNU Emacs running on IBM's OS/2 2.0
  340.      Copyright (C) 1987 Free Software Foundation, Inc.
  341.   
  342.   This file is part of GNU Emacs.
  343. ***************
  344. *** 221,225 ****
  345.   
  346.   #define    PENDING_OUTPUT_COUNT(FILE) ((FILE)->ptr - (FILE)->buffer)
  347.   #define SYSTEM_MALLOC
  348. ! #define PURESIZE 200000
  349.   #define CANNOT_UNEXEC
  350. --- 221,227 ----
  351.   
  352.   #define    PENDING_OUTPUT_COUNT(FILE) ((FILE)->ptr - (FILE)->buffer)
  353.   #define SYSTEM_MALLOC
  354. ! #define PURESIZE 300000
  355.   #define CANNOT_UNEXEC
  356. + #define SYMS_SYSTEM    syms_of_os2()
  357. + #define OBJECTS_SYSTEM os2.o
  358. diff -cb src/ymakefile src.new/ymakefile
  359. *** src/ymakefile    Sun Apr 19 17:47:24 1992
  360. --- src.new/ymakefile    Sun Aug 16 19:15:05 1992
  361. ***************
  362. *** 333,346 ****
  363.       @if exist xemacs.exe del xemacs.exe
  364.       @ren temacs.exe xemacs.exe
  365.   #else
  366. -     echo Version is not incremented !
  367.   #    temacs -batch -l inc-vers
  368. -     temacs -batch -l loadup.el dump
  369.   #ifdef OS2
  370. !     emxbind -x temacs.exe a.out
  371. !     emxbind -ccore c:\emx\bin\emxl.exe a.out xemacs.exe
  372. !     del a.out
  373. !     del core
  374.   #endif /* not OS2 */
  375.   #endif /* not CANNOT_DUMP */
  376.   #endif /* not HAVE_SHM */
  377. --- 333,341 ----
  378.       @if exist xemacs.exe del xemacs.exe
  379.       @ren temacs.exe xemacs.exe
  380.   #else
  381.   #    temacs -batch -l inc-vers
  382.   #ifdef OS2
  383. !     cmd /c "dump-emacs.cmd"
  384.   #endif /* not OS2 */
  385.   #endif /* not CANNOT_DUMP */
  386.   #endif /* not HAVE_SHM */
  387. ***************
  388. *** 360,366 ****
  389.   #endif
  390.   
  391.   temacs.exe: MAKE_PARALLEL $(LOCALCPP) $(SHORT) $(STARTFILES) $(OLDXMENU) ${obj} ${otherobj} OBJECTS_SYSTEM OBJECTS_MACHINE
  392. !     $(LD) ${STARTFLAGS} ${LDFLAGS} -o temacs.exe ${STARTFILES} ${obj} ${otherobj} OBJECTS_SYSTEM OBJECTS_MACHINE ${LIBES}
  393.   
  394.   /* These are needed for C compilation, on the systems that need them */
  395.   #ifdef NEED_CPP
  396. --- 355,361 ----
  397.   #endif
  398.   
  399.   temacs.exe: MAKE_PARALLEL $(LOCALCPP) $(SHORT) $(STARTFILES) $(OLDXMENU) ${obj} ${otherobj} OBJECTS_SYSTEM OBJECTS_MACHINE
  400. !     $(LD) ${STARTFLAGS} ${LDFLAGS} -o temacs.exe ${STARTFILES} ${obj} ${otherobj} _fill.o read.o open.o OBJECTS_SYSTEM OBJECTS_MACHINE ${LIBES}
  401.   
  402.   /* These are needed for C compilation, on the systems that need them */
  403.   #ifdef NEED_CPP
  404. ***************
  405. *** 447,452 ****
  406. --- 442,450 ----
  407.   buffer.o : buffer.c syntax.h buffer.h commands.h window.h config.h 
  408.   callint.o : callint.c window.h commands.h buffer.h config.h 
  409.   callproc.o : callproc.c paths.h buffer.h commands.h config.h 
  410. + #ifdef OS2
  411. + os2.o : os2.c config.h
  412. + #endif
  413.   casefiddle.o : casefiddle.c syntax.h commands.h buffer.h config.h 
  414.   cm.o : cm.c cm.h termhooks.h config.h
  415.   cmds.o : cmds.c syntax.h buffer.h commands.h config.h 
  416. diff -cbN src/os2.c src.new/os2.c
  417. *** src/os2.c
  418. --- src.new/os2.c    Tue Jun 23 11:51:13 1992
  419. ***************
  420. *** 0 ****
  421. --- 1,76 ----
  422. + /* OS/2 specific functions for GNU Emacs for OS/2
  423. +    Copyright (C) 1992 Free Software Foundation, Inc.
  424. + 
  425. + This file is part of GNU Emacs.
  426. + 
  427. + GNU Emacs is free software; you can redistribute it and/or modify
  428. + it under the terms of the GNU General Public License as published by
  429. + the Free Software Foundation; either version 1, or (at your option)
  430. + any later version.
  431. + 
  432. + GNU Emacs is distributed in the hope that it will be useful,
  433. + but WITHOUT ANY WARRANTY; without even the implied warranty of
  434. + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  435. + GNU General Public License for more details.
  436. + 
  437. + You should have received a copy of the GNU General Public License
  438. + along with GNU Emacs; see the file COPYING.  If not, write to
  439. + the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
  440. + 
  441. + 
  442. + #include <signal.h>
  443. + #include "lisp.h"
  444. + 
  445. + 
  446. + 
  447. + /* Look at ctrl-break-action for explanation. */
  448. + int Vctrl_break_action;
  449. + 
  450. + 
  451. + void ctrl_break_signal()
  452. + {
  453. + 
  454. +   signal(SIGBREAK, SIG_ACK);
  455. + 
  456. +   switch (Vctrl_break_action)
  457. +     {
  458. +     case 0:
  459. +       break;
  460. +       
  461. +     case 1:
  462. +       Vquit_flag = Qt;
  463. +       raise(SIGINT);
  464. +       break;
  465. + 
  466. +     case 2:
  467. +       exit(1); break;
  468. + 
  469. +     case 3:
  470. +       abort(); break;
  471. + 
  472. +     default:
  473. +       break;
  474. +       
  475. +     }
  476. +   
  477. + }
  478. + 
  479. + 
  480. + syms_of_os2()
  481. + {
  482. +   
  483. +   DEFVAR_INT("ctrl-break-action", &Vctrl_break_action,
  484. +      "Determines the behavior of Emacs after Ctrl-Break has been pressed.\n\
  485. + Available only under OS/2.\n\
  486. + 0 : Do nothing, just return C-@.\n\
  487. + 1 : Like C-g C-g, termination with request.\n\
  488. + 2 : Terminate program immediatly without request.\n\
  489. + 3 : Force an abnormal program termination (dump core) without request.\n\
  490. + The default value is 1.
  491. + It is strongly recommended not to use a value of 2 or higher
  492. + since you may loose data after hitting Ctrl-Break !");
  493. +   Vctrl_break_action = 1;
  494. + 
  495. + }
  496. + 
  497. +      
  498.