home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Professional / OS2PRO194.ISO / os2 / prgramer / unix / emacs / src / emacsp2.dif < prev    next >
Encoding:
Text File  |  1992-06-28  |  7.5 KB  |  235 lines
  1. *** c:/emacs-18.58.3/emacs/src/editfns.c    Fri May 01 17:14:48 1992
  2. --- c:/test/emacs/src/editfns.c    Thu Jun 25 10:20:22 1992
  3. ***************
  4. *** 99,106 ****
  5.     tem = Fstring_equal (Vuser_name, Vuser_real_name);
  6.     if (NULL (tem))
  7.       pw = (struct passwd *) getpwnam (XSTRING (Vuser_name)->data);
  8. !   
  9. !   p = (unsigned char *) (pw ? USER_FULL_NAME : "unknown");
  10.     q = (unsigned char *) index (p, ',');
  11.     Vuser_full_name = make_string (p, q ? q - p : strlen (p));
  12.   
  13. --- 99,108 ----
  14.     tem = Fstring_equal (Vuser_name, Vuser_real_name);
  15.     if (NULL (tem))
  16.       pw = (struct passwd *) getpwnam (XSTRING (Vuser_name)->data);
  17. ! 
  18. !   p = (unsigned char *) getenv("USERFULLNAME");
  19. !   if (p==0)
  20. !     p = (unsigned char *) (pw ? USER_FULL_NAME : "unknown");
  21.     q = (unsigned char *) index (p, ',');
  22.     Vuser_full_name = make_string (p, q ? q - p : strlen (p));
  23.  
  24.  
  25.  
  26.  
  27. *** c:/emacs-18.58.3/emacs/src/emacs.c    Sat Apr 25 16:20:20 1992
  28. --- c:/test/emacs/src/emacs.c    Sat Jun 20 11:36:10 1992
  29. ***************
  30. *** 124,129 ****
  31. --- 124,133 ----
  32.   
  33.   int noninteractive1;
  34.   
  35. + #ifdef OS2
  36. + void ctrl_break_signal();
  37. + #endif
  38. + 
  39.   /* Signal code for the fatal signal that was received */
  40.   int fatal_error_code;
  41.   
  42. ***************
  43. *** 387,392 ****
  44. --- 391,400 ----
  45.         signal (SIGXFSZ, fatal_error_signal);
  46.   #endif SIGXFSZ
  47.   
  48. + #ifdef OS2
  49. +       signal (SIGBREAK, ctrl_break_signal);
  50. + #endif /* OS2 */      
  51. +       
  52.   #ifdef AIX
  53.         /* This used to run fatal_error_signal,
  54.        but it isn't fatal.  There's nothing Emacs can usefully do.
  55.  
  56. *** c:/emacs-18.58.3/emacs/src/fileio.c    Sun May 03 14:13:46 1992
  57. --- c:/test/emacs/src/fileio.c    Thu Jun 18 14:05:12 1992
  58. ***************
  59. *** 603,608 ****
  60. --- 603,613 ----
  61.       }
  62.     else if (p[0] == '/' || p[0] == '\\' || _fngetdrive (p) != 0)
  63.       {
  64. +       /* Find out about Server paths */
  65. +       if ((p[0] == '/' || p[0] == '\\') &&
  66. +       (p[1] == '/' || p[1] == '\\'))
  67. +     return build_string(p);
  68. +             
  69.         rel = 0;
  70.         if (_fngetdrive (p) == 0)
  71.       {
  72. ***************
  73. *** 986,991 ****
  74. --- 991,997 ----
  75.   
  76.     for (p = nm; p != endp; p++)
  77.       {
  78. + #ifndef OS2      
  79.         if ((p[0] == '~' ||
  80.   #ifdef APOLLO
  81.          /* // at start of file name is meaningful in Apollo system */
  82. ***************
  83. *** 1002,1007 ****
  84. --- 1008,1035 ----
  85.   #ifdef VMS
  86.         )
  87.   #endif /* VMS */
  88. + #else  /* OS2 */
  89. + /* Ok, it seems as if the following needs a little explanation:
  90. +    Line 1+2: Detects an absolute path name:
  91. +              ~ / \ indicate absolute pathnames if the previous character
  92. +          is / or \. : indicates absolute pathnames in the sequence
  93. +          /a: or \a:, where a is a character.
  94. +          In the case of / and \ it must be tested, if the sequence
  95. +          starts at the beginning of the file name, since the means
  96. +          name of the server on network software.
  97. +    Line 3:   If the above characters appear at the very beginning of a file
  98. +              name, nothing is to do, but this condition must be tested to
  99. +          secure line 3.
  100. +    Line 4:   Checks wether the chars from Line 1 really appear in sequences
  101. +              that indicates an absolute path name.
  102. +    Uff !
  103. + */
  104. +     
  105. +       if ( (p[0] == '~' || p[1] == ':' 
  106. +         || (p[0] == '/' && p-1!=nm) || (p[0] == '\\' && p-1!=nm))
  107. +           && p!=nm
  108. +       && (p[-1] == '/' || p[-1] == '\\'))
  109. + #endif /* OS2 */    
  110.       {
  111.         nm = p;
  112.         substituted = 1;
  113.  
  114. *** c:/emacs-18.58.3/emacs/src/keyboard.c    Sun Apr 19 18:03:46 1992
  115. --- c:/test/emacs/src/keyboard.c    Sat Jun 20 12:12:04 1992
  116. ***************
  117. *** 2047,2054 ****
  118.         /* Perhaps should really fork an inferior shell?
  119.        But that would not provide any way to get back
  120.        to the original shell, ever.  */
  121. !       printf ("No support for stopping a process on this operating system;\n");
  122. !       printf ("you can continue or abort.\n");
  123.   #endif /* not VMS */
  124.   #endif /* not SIGTSTP */
  125.         printf ("Auto-save? (y or n) ");
  126. --- 2047,2054 ----
  127.         /* Perhaps should really fork an inferior shell?
  128.        But that would not provide any way to get back
  129.        to the original shell, ever.  */
  130. !       printf ("No support for stopping a process on this operating system;\n\r");
  131. !       printf ("you can continue or abort.\n\r");
  132.   #endif /* not VMS */
  133.   #endif /* not SIGTSTP */
  134.         printf ("Auto-save? (y or n) ");
  135. ***************
  136. *** 2065,2071 ****
  137.         if (((c = getchar ()) & ~040) == 'Y')
  138.       abort ();
  139.         while (c != '\n') c = getchar ();
  140. !       printf ("Continuing...\n");
  141.         fflush (stdout);
  142.         init_sys_modes ();
  143.       }
  144. --- 2065,2071 ----
  145.         if (((c = getchar ()) & ~040) == 'Y')
  146.       abort ();
  147.         while (c != '\n') c = getchar ();
  148. !       printf ("Continuing...\n\r");
  149.         fflush (stdout);
  150.         init_sys_modes ();
  151.       }
  152.  
  153. *** c:/emacs-18.58.3/emacs/src/s-os2.h    Sun May 03 14:17:08 1992
  154. --- c:/test/emacs/src/s-os2.h    Sat Jun 20 11:27:50 1992
  155. ***************
  156. *** 1,5 ****
  157.   
  158. ! /* Definitions file for GNU Emacs running on AT&T's System V Release 3
  159.      Copyright (C) 1987 Free Software Foundation, Inc.
  160.   
  161.   This file is part of GNU Emacs.
  162. --- 1,5 ----
  163.   
  164. ! /* Definitions file for GNU Emacs running on IBM's OS/2 2.0
  165.      Copyright (C) 1987 Free Software Foundation, Inc.
  166.   
  167.   This file is part of GNU Emacs.
  168. ***************
  169. *** 223,225 ****
  170. --- 223,227 ----
  171.   #define SYSTEM_MALLOC
  172.   #define PURESIZE 200000
  173.   #define CANNOT_UNEXEC
  174. + #define SYMS_SYSTEM    syms_of_os2()
  175. + #define OBJECTS_SYSTEM os2.o
  176.  
  177.  
  178. *** c:/emacs-18.58.3/emacs/src/ymakefile    Sun Apr 19 17:47:48 1992
  179. --- c:/test/emacs/src/ymakefile    Tue Jun 23 12:01:26 1992
  180. ***************
  181. *** 333,346 ****
  182.       @if exist xemacs.exe del xemacs.exe
  183.       @ren temacs.exe xemacs.exe
  184.   #else
  185. -     echo Version is not incremented !
  186.   #    temacs -batch -l inc-vers
  187. -     temacs -batch -l loadup.el dump
  188.   #ifdef OS2
  189. !     emxbind -x temacs.exe a.out
  190. !     emxbind -ccore c:\emx\bin\emxl.exe a.out xemacs.exe
  191. !     del a.out
  192. !     del core
  193.   #endif /* not OS2 */
  194.   #endif /* not CANNOT_DUMP */
  195.   #endif /* not HAVE_SHM */
  196. --- 333,341 ----
  197.       @if exist xemacs.exe del xemacs.exe
  198.       @ren temacs.exe xemacs.exe
  199.   #else
  200.   #    temacs -batch -l inc-vers
  201.   #ifdef OS2
  202. !     cmd /c "dump-emacs.cmd"
  203.   #endif /* not OS2 */
  204.   #endif /* not CANNOT_DUMP */
  205.   #endif /* not HAVE_SHM */
  206. ***************
  207. *** 360,366 ****
  208.   #endif
  209.   
  210.   temacs.exe: MAKE_PARALLEL $(LOCALCPP) $(SHORT) $(STARTFILES) $(OLDXMENU) ${obj} ${otherobj} OBJECTS_SYSTEM OBJECTS_MACHINE
  211. !     $(LD) ${STARTFLAGS} ${LDFLAGS} -o temacs.exe ${STARTFILES} ${obj} ${otherobj} OBJECTS_SYSTEM OBJECTS_MACHINE ${LIBES}
  212.   
  213.   /* These are needed for C compilation, on the systems that need them */
  214.   #ifdef NEED_CPP
  215. --- 355,361 ----
  216.   #endif
  217.   
  218.   temacs.exe: MAKE_PARALLEL $(LOCALCPP) $(SHORT) $(STARTFILES) $(OLDXMENU) ${obj} ${otherobj} OBJECTS_SYSTEM OBJECTS_MACHINE
  219. !     $(LD) ${STARTFLAGS} ${LDFLAGS} -o temacs.exe ${STARTFILES} ${obj} ${otherobj} _fill.o read.o open.o OBJECTS_SYSTEM OBJECTS_MACHINE ${LIBES}
  220.   
  221.   /* These are needed for C compilation, on the systems that need them */
  222.   #ifdef NEED_CPP
  223. ***************
  224. *** 447,452 ****
  225. --- 442,450 ----
  226.   buffer.o : buffer.c syntax.h buffer.h commands.h window.h config.h 
  227.   callint.o : callint.c window.h commands.h buffer.h config.h 
  228.   callproc.o : callproc.c paths.h buffer.h commands.h config.h 
  229. + #ifdef OS2
  230. + os2.o : os2.c config.h
  231. + #endif
  232.   casefiddle.o : casefiddle.c syntax.h commands.h buffer.h config.h 
  233.   cm.o : cm.c cm.h termhooks.h config.h
  234.   cmds.o : cmds.c syntax.h buffer.h commands.h config.h 
  235.