home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / mint / lib / mlib38d.zoo / diffc next >
Encoding:
Text File  |  1993-10-20  |  40.2 KB  |  1,658 lines
  1. diff -cr ../mntlib37/Changelog ./Changelog
  2. *** ../mntlib37/Changelog    Wed Oct 20 11:09:56 1993
  3. --- ./Changelog    Wed Oct 20 03:48:16 1993
  4. ***************
  5. *** 4,9 ****
  6. --- 4,61 ----
  7.   Changes are listed in *reverse* order, most recent changes being
  8.   first.
  9.   
  10. + PATCHLEVEL38::
  11. + 
  12. + symlink.c:
  13. +     Set errno properly for readlink() on a non-link (EINVAL not EACCES).
  14. + lattice/setjmp.s: ++pvt1-117
  15. +     Add sigsetjmp() and siglongjmp() for lattice.
  16. + compiler.h: ++pvt1-117
  17. +     Make LCC do the right thing in limits.h.
  18. + termios.h, tcattr.c:
  19. +     Add VLNEXT and VWERASE control chars.
  20. + types.h: ++roemer@hera.rbi.informatik.uni-frankfurt.de.uni-frankfurt.de
  21. +     Add fd_set type and related macros.
  22. + falcon.h: ++Markus_Kilbinger@ac.maus.de
  23. +     Change return types of VsetMask() and Dsp_Reserve() from
  24. +     void to short.
  25. + _mulsi3.s, _umulsi3.s: ++schwab
  26. +     .lmul and .ulmul aren't equivalent.
  27. + read.c, write.c: ++schwab
  28. +     Reduce drag.  Also alias read to _read and write to _write
  29. +     when __GNUC__ && !__MSHORT__.
  30. + popen.c: ++schwab
  31. +     Reduce drag.  Also simplify code by using waitpid().
  32. + open.c: ++schwab
  33. +     Pass as many flags as possible through to MiNT, and let it decide
  34. +     what to do with them.  Only fall back on emulation if we can't pa a
  35. +     given flag.
  36. + ioctl.c, stat.c: ++schwab
  37. +     Reduce drag.
  38. + rename.c: ++schwab
  39. +     Try to preserve the old file under the new name as long as possible,
  40. +     in case an error occurs. Unfortunately we cannot determine exactly
  41. +     why Frename() failed, so this is not perfect (bug?).  Also, reduce
  42. +     library drag.
  43. + alarm.c: ++schwab
  44. +     Use Talarm() instead of alarm() to reduce drag.  Also
  45. +     fix a bug in the code for old versions of MiNT. [I messed with
  46. +     this a lot to get some more error checking and also added some
  47. +     comments. -entropy]
  48. + wait.h: ++schwab@ls5.informatik.uni-dortmund.de
  49. +     Make the wait prototype indirection more robust.  Also fix the
  50. +     definition of WIFSIGNALED().
  51. + wait3.c:
  52. +     Remove bogus usage of non-existent rusage value added in PL37.
  53. + falcon.h: ++pvt1-117
  54. +     Inline traps for Lattice.
  55. + wcmb.c: ++pvt1-117
  56. +     Use _wnull from wnull.c instead of a local variable.
  57. + wcscat.c, wcscmp.c, wcscpy.c, wcslen.c, wnull.c: ++pvt1-117
  58. +     NEW files for ISO wide char support.
  59. + stdlib.h: ++pvt1-117@nada.kth.se
  60. +     Add prototypes for new ISO widechar functions.
  61. + 
  62.   PATCHLEVEL37::
  63.   
  64.   bzero.cpp, mincl:
  65. ***************
  66. *** 59,65 ****
  67.       bit.
  68.   fscanf.c, scanf.c, sscanf.c, lib.h: ++schwab
  69.       The implementation of sscanf had a bug: the ungetc function would
  70. !     write into the format string passed to sscanf.  This is a Bad Thing,
  71.       since the string could be in readonly memory.  Also changed the
  72.       interface a bit so that there is less need for casts.  Strictly
  73.       speaking, the old way of casting the function pointers can result in
  74. --- 111,117 ----
  75.       bit.
  76.   fscanf.c, scanf.c, sscanf.c, lib.h: ++schwab
  77.       The implementation of sscanf had a bug: the ungetc function would
  78. !     write into the scanned string passed to sscanf.  This is a Bad Thing,
  79.       since the string could be in readonly memory.  Also changed the
  80.       interface a bit so that there is less need for casts.  Strictly
  81.       speaking, the old way of casting the function pointers can result in
  82. diff -cr ../mntlib37/Files ./Files
  83. *** ../mntlib37/Files    Wed Oct 20 11:09:58 1993
  84. --- ./Files    Mon Oct 18 11:07:10 1993
  85. ***************
  86. *** 9,19 ****
  87.   _cmpsf2.cpp    binmode.c    ftw.c        mktemp.c    stricmp.c
  88.   _divdf3.cpp    bsearch.c    fungetc.c    modf.cpp    strlen.c
  89.   _divmods.s    bzero.cpp    fwrite.c    nlist.c        strlwr.c
  90. ! _divsf3.cpp    calloc.c    gbl-ctors.h            strncat.c
  91. ! _extends.cpp    chdir.c        getbuf.c    obstack.c    strncmp.c
  92. ! _fixdfsi.cpp    chmod.c        getenv.c    perror.c    strncpy.c
  93. !         ctermid.c    getlogin.c    pgrp.c
  94. !                         printf.c
  95.   _fixsfsi.cpp    ctime.c        getopt.c    psignal.c    strnicmp.c
  96.   _fltsi.cpp    ctype.c        getpass.c    putenv.c    strpbrk.c
  97.   _fltsisf.cpp    cuserid.c    getpid.c    qsort.c        strrchr.c
  98. --- 9,18 ----
  99.   _cmpsf2.cpp    binmode.c    ftw.c        mktemp.c    stricmp.c
  100.   _divdf3.cpp    bsearch.c    fungetc.c    modf.cpp    strlen.c
  101.   _divmods.s    bzero.cpp    fwrite.c    nlist.c        strlwr.c
  102. ! _divsf3.cpp    calloc.c    gbl-ctors.h    obstack.c    strncat.c
  103. ! _extends.cpp    chdir.c        getbuf.c    perror.c    strncmp.c
  104. ! _fixdfsi.cpp    chmod.c        getenv.c    pgrp.c        strncpy.c
  105. !         ctermid.c    getlogin.c    printf.c
  106.   _fixsfsi.cpp    ctime.c        getopt.c    psignal.c    strnicmp.c
  107.   _fltsi.cpp    ctype.c        getpass.c    putenv.c    strpbrk.c
  108.   _fltsisf.cpp    cuserid.c    getpid.c    qsort.c        strrchr.c
  109. ***************
  110. *** 25,44 ****
  111.   _negdf2.s    eprintf.c    gnulib2.c    regsup.c    strtoul.c
  112.                                   strupr.c
  113.   _negsf2.s    errbase.h    grp.c        sbrk.c        system.c
  114. ! _normdf.cpp    fclose.c    ic.c        setbuf.c    sysvar.c
  115. ! _normsf.cpp    fdopen.c            setjmp.cpp    textio.c
  116.   _truncdf.cpp    fflush.c    ig.c        setlocal.c    time.c
  117.   _udivmod.s    ffs.c        il.c        setvbuf.c    timeoday.c
  118.   _umulsi3.s    fgetc.c        ip.c        sgtty.c        tmpfile.c
  119. ! a64l.c        fgets.c
  120. ! abort.c        filbuf.c    iw.c        siglist.c    tmpnam.c
  121. ! abs.c        findfile.c    ldexp.cpp    sprintf.c    toxxx.c
  122. ! access.c    flonum.h    lib.h        stksiz.c    utime.c
  123. ! alglobal.c    fopen.c        libgcc1.c    strcat.c
  124. !                 libgcc2.c            vfprintf.c
  125. ! alloca.cpp    fprintf.c    linea.c        strchr.c    vprintf.c
  126. ! alphasor.c    fputc.c        localtim.c    strcmp.c    wcmb.c
  127. !                 longlong.h
  128.   
  129.   MiNT library:
  130.   
  131. --- 24,45 ----
  132.   _negdf2.s    eprintf.c    gnulib2.c    regsup.c    strtoul.c
  133.                                   strupr.c
  134.   _negsf2.s    errbase.h    grp.c        sbrk.c        system.c
  135. ! _normdf.cpp    fclose.c            setbuf.c    sysvar.c
  136. ! _normsf.cpp    fdopen.c    ic.c        setjmp.cpp    textio.c
  137.   _truncdf.cpp    fflush.c    ig.c        setlocal.c    time.c
  138.   _udivmod.s    ffs.c        il.c        setvbuf.c    timeoday.c
  139.   _umulsi3.s    fgetc.c        ip.c        sgtty.c        tmpfile.c
  140. ! a64l.c        fgets.c                        tmpnam.c
  141. ! abort.c        filbuf.c    iw.c        siglist.c    toxxx.c    
  142. ! abs.c        findfile.c    ldexp.cpp    sprintf.c    utime.c
  143. ! access.c    flonum.h    lib.h        stksiz.c    vfprintf.c
  144. ! alglobal.c    fopen.c        libgcc1.c    strcat.c    vprintf.c
  145. !                 libgcc2.c            wcmb.c
  146. ! alloca.cpp    fprintf.c    linea.c        strchr.c    wcscat.c
  147. ! alphasor.c    fputc.c        localtim.c    strcmp.c    wcscmp.c
  148. !                 longlong.h            wcscpy.c
  149. !                                 wcslen.c
  150. !                                 wnull.c
  151.   
  152.   MiNT library:
  153.   
  154. diff -cr ../mntlib37/PatchLev.h ./PatchLev.h
  155. *** ../mntlib37/PatchLev.h    Wed Oct 20 11:10:06 1993
  156. --- ./PatchLev.h    Tue Oct 12 17:23:52 1993
  157. ***************
  158. *** 3,6 ****
  159.    *    directory.
  160.    */
  161.   
  162. ! #define PatchLevel "37"
  163. --- 3,6 ----
  164.    *    directory.
  165.    */
  166.   
  167. ! #define PatchLevel "38"
  168. diff -cr ../mntlib37/_mulsi3.s ./_mulsi3.s
  169. *** ../mntlib37/_mulsi3.s    Wed Oct 20 11:10:20 1993
  170. --- ./_mulsi3.s    Wed Oct 13 20:08:38 1993
  171. ***************
  172. *** 11,20 ****
  173.   
  174.       .text
  175.       .even
  176. !     .globl    __mulsi3, ___mulsi3, .lmul, .ulmul
  177.   
  178.   .lmul:
  179. - .ulmul:
  180.   __mulsi3:
  181.   ___mulsi3:
  182.       movel    d2,a0        | save registers
  183. --- 11,19 ----
  184.   
  185.       .text
  186.       .even
  187. !     .globl    __mulsi3, ___mulsi3, .lmul
  188.   
  189.   .lmul:
  190.   __mulsi3:
  191.   ___mulsi3:
  192.       movel    d2,a0        | save registers
  193. diff -cr ../mntlib37/_umulsi3.s ./_umulsi3.s
  194. *** ../mntlib37/_umulsi3.s    Wed Oct 20 11:10:24 1993
  195. --- ./_umulsi3.s    Wed Oct 13 20:08:42 1993
  196. ***************
  197. *** 11,18 ****
  198.   
  199.       .text
  200.       .even
  201. !     .globl    __umulsi3, ___umulsi3
  202.   
  203.   __umulsi3:
  204.   ___umulsi3:
  205.       movel    d2,a0        | save registers
  206. --- 11,19 ----
  207.   
  208.       .text
  209.       .even
  210. !     .globl    __umulsi3, ___umulsi3, .ulmul
  211.   
  212. + .ulmul:
  213.   __umulsi3:
  214.   ___umulsi3:
  215.       movel    d2,a0        | save registers
  216. diff -cr ../mntlib37/ioctl.c ./ioctl.c
  217. *** ../mntlib37/ioctl.c    Wed Oct 20 11:11:26 1993
  218. --- ./ioctl.c    Wed Oct 13 19:57:26 1993
  219. ***************
  220. *** 64,79 ****
  221.                   errno = EBADF;
  222.                   return -1;
  223.               }
  224. !             (void) close(fd);
  225. !             null_fd = open("/dev/null", O_RDWR | O_NOCTTY);
  226.               (void) Fforce(-1, null_fd);
  227. !             __open_stat[__OPEN_INDEX(-1)] =
  228. !                 __open_stat[__OPEN_INDEX(null_fd)];
  229.               if (null_fd != fd) {
  230.                   (void) Fforce(fd, null_fd);
  231. !                 __open_stat[__OPEN_INDEX(fd)] =
  232. !                     __open_stat[__OPEN_INDEX(null_fd)];
  233. !                 (void) close(null_fd);
  234.               }
  235.               return 0;
  236.           }
  237. --- 64,78 ----
  238.                   errno = EBADF;
  239.                   return -1;
  240.               }
  241. !             (void) Fclose(fd);
  242. !             null_fd = Fopen(__mint < 9 ? "V:\\null"
  243. !                     : "U:\\dev\\null", O_RDWR);
  244.               (void) Fforce(-1, null_fd);
  245. !             __open_stat[__OPEN_INDEX(-1)].status = FH_UNKNOWN;
  246. !             __open_stat[__OPEN_INDEX(fd)].status = FH_UNKNOWN;
  247.               if (null_fd != fd) {
  248.                   (void) Fforce(fd, null_fd);
  249. !                 (void) Fclose(null_fd);
  250.               }
  251.               return 0;
  252.           }
  253. diff -cr ../mntlib37/lattice/mc.prj ./lattice/mc.prj
  254. *** ../mntlib37/lattice/mc.prj    Wed Oct 20 11:11:38 1993
  255. --- ./lattice/mc.prj    Tue Oct 12 18:47:28 1993
  256. ***************
  257. *** 195,200 ****
  258. --- 195,205 ----
  259.   ..\WAIT3.C
  260.   ..\WAITPID.C
  261.   ..\WCMB.C
  262. + ..\WCSCAT.C
  263.  
  264. + ..\WCSCMP.C
  265.  
  266. + ..\WCSCPY.C
  267.  
  268. + ..\WCSLEN.C
  269.  
  270. + ..\WNULL.C
  271.  
  272.   ..\WRITE.C
  273.   ..\WTMP.C
  274.   ALLOCA.C
  275. diff -cr ../mntlib37/lattice/mc3.prj ./lattice/mc3.prj
  276. *** ../mntlib37/lattice/mc3.prj    Wed Oct 20 11:11:38 1993
  277. --- ./lattice/mc3.prj    Tue Oct 12 18:47:30 1993
  278. ***************
  279. *** 195,200 ****
  280. --- 195,205 ----
  281.   ..\WAIT3.C
  282.   ..\WAITPID.C
  283.   ..\WCMB.C
  284. + ..\WCSCAT.C
  285.  
  286. + ..\WCSCMP.C
  287.  
  288. + ..\WCSCPY.C
  289.  
  290. + ..\WCSLEN.C
  291.  
  292. + ..\WNULL.C
  293.  
  294.   ..\WRITE.C
  295.   ..\WTMP.C
  296.   ALLOCA.C
  297. diff -cr ../mntlib37/lattice/mcnb.prj ./lattice/mcnb.prj
  298. *** ../mntlib37/lattice/mcnb.prj    Wed Oct 20 11:11:40 1993
  299. --- ./lattice/mcnb.prj    Tue Oct 12 18:47:34 1993
  300. ***************
  301. *** 195,200 ****
  302. --- 195,205 ----
  303.   ..\WAIT3.C
  304.   ..\WAITPID.C
  305.   ..\WCMB.C
  306. + ..\WCSCAT.C
  307.  
  308. + ..\WCSCMP.C
  309.  
  310. + ..\WCSCPY.C
  311.  
  312. + ..\WCSLEN.C
  313.  
  314. + ..\WNULL.C
  315.  
  316.   ..\WRITE.C
  317.   ..\WTMP.C
  318.   ALLOCA.C
  319. diff -cr ../mntlib37/lattice/mcnb3.prj ./lattice/mcnb3.prj
  320. *** ../mntlib37/lattice/mcnb3.prj    Wed Oct 20 11:11:40 1993
  321. --- ./lattice/mcnb3.prj    Tue Oct 12 18:47:36 1993
  322. ***************
  323. *** 195,200 ****
  324. --- 195,205 ----
  325.   ..\WAIT3.C
  326.   ..\WAITPID.C
  327.   ..\WCMB.C
  328. + ..\WCSCAT.C
  329.  
  330. + ..\WCSCMP.C
  331.  
  332. + ..\WCSCPY.C
  333.  
  334. + ..\WCSLEN.C
  335.  
  336. + ..\WNULL.C
  337.  
  338.   ..\WRITE.C
  339.   ..\WTMP.C
  340.   ALLOCA.C
  341. diff -cr ../mntlib37/lattice/mcr.prj ./lattice/mcr.prj
  342. *** ../mntlib37/lattice/mcr.prj    Wed Oct 20 11:11:40 1993
  343. --- ./lattice/mcr.prj    Tue Oct 12 18:47:38 1993
  344. ***************
  345. *** 195,200 ****
  346. --- 195,205 ----
  347.   ..\WAIT3.C
  348.   ..\WAITPID.C
  349.   ..\WCMB.C
  350. + ..\WCSCAT.C
  351.  
  352. + ..\WCSCMP.C
  353.  
  354. + ..\WCSCPY.C
  355.  
  356. + ..\WCSLEN.C
  357.  
  358. + ..\WNULL.C
  359.  
  360.   ..\WRITE.C
  361.   ..\WTMP.C
  362.   ALLOCA.C
  363. diff -cr ../mntlib37/lattice/mcr3.prj ./lattice/mcr3.prj
  364. *** ../mntlib37/lattice/mcr3.prj    Wed Oct 20 11:11:42 1993
  365. --- ./lattice/mcr3.prj    Tue Oct 12 18:47:40 1993
  366. ***************
  367. *** 195,200 ****
  368. --- 195,205 ----
  369.   ..\WAIT3.C
  370.   ..\WAITPID.C
  371.   ..\WCMB.C
  372. + ..\WCSCAT.C
  373.  
  374. + ..\WCSCMP.C
  375.  
  376. + ..\WCSCPY.C
  377.  
  378. + ..\WCSLEN.C
  379.  
  380. + ..\WNULL.C
  381.  
  382.   ..\WRITE.C
  383.   ..\WTMP.C
  384.   ALLOCA.C
  385. diff -cr ../mntlib37/lattice/mcrnb.prj ./lattice/mcrnb.prj
  386. *** ../mntlib37/lattice/mcrnb.prj    Wed Oct 20 11:11:42 1993
  387. --- ./lattice/mcrnb.prj    Tue Oct 12 18:47:44 1993
  388. ***************
  389. *** 195,200 ****
  390. --- 195,205 ----
  391.   ..\WAIT3.C
  392.   ..\WAITPID.C
  393.   ..\WCMB.C
  394. + ..\WCSCAT.C
  395.  
  396. + ..\WCSCMP.C
  397.  
  398. + ..\WCSCPY.C
  399.  
  400. + ..\WCSLEN.C
  401.  
  402. + ..\WNULL.C
  403.  
  404.   ..\WRITE.C
  405.   ..\WTMP.C
  406.   ALLOCA.C
  407. diff -cr ../mntlib37/lattice/mcrnb3.prj ./lattice/mcrnb3.prj
  408. *** ../mntlib37/lattice/mcrnb3.prj    Wed Oct 20 11:11:42 1993
  409. --- ./lattice/mcrnb3.prj    Tue Oct 12 18:47:46 1993
  410. ***************
  411. *** 195,200 ****
  412. --- 195,205 ----
  413.   ..\WAIT3.C
  414.   ..\WAITPID.C
  415.   ..\WCMB.C
  416. + ..\WCSCAT.C
  417.  
  418. + ..\WCSCMP.C
  419.  
  420. + ..\WCSCPY.C
  421.  
  422. + ..\WCSLEN.C
  423.  
  424. + ..\WNULL.C
  425.  
  426.   ..\WRITE.C
  427.   ..\WTMP.C
  428.   ALLOCA.C
  429. diff -cr ../mntlib37/lattice/mcs.prj ./lattice/mcs.prj
  430. *** ../mntlib37/lattice/mcs.prj    Wed Oct 20 11:11:44 1993
  431. --- ./lattice/mcs.prj    Tue Oct 12 18:47:48 1993
  432. ***************
  433. *** 195,200 ****
  434. --- 195,205 ----
  435.   ..\WAIT3.C
  436.   ..\WAITPID.C
  437.   ..\WCMB.C
  438. + ..\WCSCAT.C
  439.  
  440. + ..\WCSCMP.C
  441.  
  442. + ..\WCSCPY.C
  443.  
  444. + ..\WCSLEN.C
  445.  
  446. + ..\WNULL.C
  447.  
  448.   ..\WRITE.C
  449.   ..\WTMP.C
  450.   ALLOCA.C
  451. diff -cr ../mntlib37/lattice/mcsnb.prj ./lattice/mcsnb.prj
  452. *** ../mntlib37/lattice/mcsnb.prj    Wed Oct 20 11:11:44 1993
  453. --- ./lattice/mcsnb.prj    Tue Oct 12 18:47:52 1993
  454. ***************
  455. *** 195,200 ****
  456. --- 195,205 ----
  457.   ..\WAIT3.C
  458.   ..\WAITPID.C
  459.   ..\WCMB.C
  460. + ..\WCSCAT.C
  461.  
  462. + ..\WCSCMP.C
  463.  
  464. + ..\WCSCPY.C
  465.  
  466. + ..\WCSLEN.C
  467.  
  468. + ..\WNULL.C
  469.  
  470.   ..\WRITE.C
  471.   ..\WTMP.C
  472.   ALLOCA.C
  473. diff -cr ../mntlib37/lattice/mcsr.prj ./lattice/mcsr.prj
  474. *** ../mntlib37/lattice/mcsr.prj    Wed Oct 20 11:11:44 1993
  475. --- ./lattice/mcsr.prj    Tue Oct 12 18:47:54 1993
  476. ***************
  477. *** 195,200 ****
  478. --- 195,205 ----
  479.   ..\WAIT3.C
  480.   ..\WAITPID.C
  481.   ..\WCMB.C
  482. + ..\WCSCAT.C
  483.  
  484. + ..\WCSCMP.C
  485.  
  486. + ..\WCSCPY.C
  487.  
  488. + ..\WCSLEN.C
  489.  
  490. + ..\WNULL.C
  491.  
  492.   ..\WRITE.C
  493.   ..\WTMP.C
  494.   ALLOCA.C
  495. diff -cr ../mntlib37/lattice/mcsrnb.prj ./lattice/mcsrnb.prj
  496. *** ../mntlib37/lattice/mcsrnb.prj    Wed Oct 20 11:11:46 1993
  497. --- ./lattice/mcsrnb.prj    Tue Oct 12 18:47:56 1993
  498. ***************
  499. *** 195,200 ****
  500. --- 195,205 ----
  501.   ..\WAIT3.C
  502.   ..\WAITPID.C
  503.   ..\WCMB.C
  504. + ..\WCSCAT.C
  505.  
  506. + ..\WCSCMP.C
  507.  
  508. + ..\WCSCPY.C
  509.  
  510. + ..\WCSLEN.C
  511.  
  512. + ..\WNULL.C
  513.  
  514.   ..\WRITE.C
  515.   ..\WTMP.C
  516.   ALLOCA.C
  517. diff -cr ../mntlib37/lattice/setjmp.s ./lattice/setjmp.s
  518. *** ../mntlib37/lattice/setjmp.s    Wed Oct 20 11:12:00 1993
  519. --- ./lattice/setjmp.s    Mon Oct 18 22:20:44 1993
  520. ***************
  521. *** 1,60 ****
  522.       INCLUDE    inc.i
  523.       
  524.       INFO
  525.       xref    ___mint
  526.   
  527.   ;
  528.   ; setjmp.cpp 
  529.   ;
  530.       CODE
  531.       IF    _REGARG
  532.       xdef    @setjmp
  533.       ELSE
  534.       xdef    _setjmp
  535.       ENDC
  536.       
  537.       IF    _REGARG
  538.   @setjmp:
  539.       ELSE
  540.   _setjmp:
  541. !     move.l    4(sp),a0        ; address of jmp_buf[]
  542.       ENDC
  543.       move.l    (sp),(a0)        ; save return address
  544.       movem.l    d2-d7/a2-a7,4(a0)    ; save registers d2-d7/a2-a7
  545. !     clr.l    d0            ; return value is 0
  546.       rts
  547.   
  548. !     IF    _REGARG
  549. !     xdef    @longjmp
  550. !     ELSE
  551. !     xdef    _longjmp
  552. !     ENDC
  553. !     
  554.       IF    _REGARG
  555.   @longjmp:
  556.       ELSE
  557.   _longjmp:
  558.       ENDC
  559.       IF    _SHORT
  560. !     tst.w    ___mint            ; see if MiNT is active
  561.       ELSE
  562.       tst.l    ___mint
  563.       ENDC
  564. !     beq.s    NOMINT            ; no -- do not call sigreturn
  565.       move.w    #$11a,-(sp)        ; Psigreturn() system call
  566.       trap    #1            ; (ignored if not in a sig handler)
  567.       addq.w    #2,sp
  568. ! NOMINT:
  569. !     move.l    4(sp),a0        ; address of jmp_buf[]
  570.       IF    _SHORT
  571. !     move.w    8(sp),d0        ; value to return
  572.       ELSE
  573. !     move.l    8(sp),d0        ; value to return
  574.       ENDC
  575. !     bne.s    L1            ; may not be 0
  576. !     move.l    #1,d0
  577.   L1:
  578.       movem.l    4(a0),d2-d7/a2-a7    ; restore saved reggies
  579.       move.l    (a0),(sp)        ; and the saved return address
  580. !     rts
  581.       end
  582. --- 1,161 ----
  583.       INCLUDE    inc.i
  584.       
  585.       INFO
  586. + 
  587.       xref    ___mint
  588. +     xref    __sigmask
  589.   
  590.   ;
  591.   ; setjmp.cpp 
  592.   ;
  593.       CODE
  594. + 
  595.       IF    _REGARG
  596.       xdef    @setjmp
  597. +     xdef    @longjmp
  598. +     xdef    @sigsetjmp
  599. +     xdef    @siglongjmp
  600.       ELSE
  601.       xdef    _setjmp
  602. +     xdef    _longjmp
  603. +     xdef    _sigsetjmp
  604. +     xdef    _siglongjmp
  605. +     ENDC
  606. + 
  607. +     ; sigsetjmp(sigjmp_buf env, int savemask)
  608. +     ; address of sigjmp_buf will be in a0
  609. +     ; savemask will be in d0/a1 (signextended)
  610. +     IF    _REGARG
  611. + @sigsetjmp:
  612. +     IF    _SHORT
  613. +     ext.l    d0
  614. +     ENDC
  615. +     move.l    d0,52(a0)        ; save sigmask for siglongjmp?
  616. +     ELSE
  617. + _sigsetjmp:
  618. +     move.l    4(sp),a0        
  619. +     IF    _SHORT
  620. +     move.w    8(sp),a1
  621. +     ELSE
  622. +     move.l    8(sp),a1
  623. +     ENDC
  624. +     move.l    a1,52(a0)        ; save sigmask for siglongjmp?
  625.       ENDC
  626.       
  627. +     beq.w    Common            ; no -- call common code
  628. +     
  629. +     move.l    __sigmask,d0        ; save tos emulation signal mask
  630. +     ; see if MiNT is active
  631. +     IF    _SHORT
  632. +     tst.w    ___mint
  633. +     ELSE
  634. +     tst.l    ___mint
  635. +     ENDC
  636. +     beq.w    SSJ_nomint        ; no -- skip Psigblock
  637. +     clr.l    -(sp)            ; add no signals to sigmask
  638. +     move.w    #$116,-(sp)        ; Psigblock() system call
  639. +     trap    #1
  640. +     addq    #6,sp
  641. + 
  642. + SSJ_nomint:
  643. +     bset    #0,d0            ; make it != 0 (SIGNULL is unmaskable)
  644. +     move.l    d0,52(a0)        ; save signal mask
  645. +     bra    Common            ; call code common with setjmp
  646. + 
  647. + 
  648. +     ; setjmp(sigjmp_buf env)
  649. +     ; address of jmp_buf will be in a0
  650.       IF    _REGARG
  651.   @setjmp:
  652.       ELSE
  653.   _setjmp:
  654. !     move.l    4(sp),a0
  655.       ENDC
  656. +     
  657. +     clr.l    52(a0)            ; do not restore sigmask on longjmp
  658. + Common:
  659.       move.l    (sp),(a0)        ; save return address
  660.       movem.l    d2-d7/a2-a7,4(a0)    ; save registers d2-d7/a2-a7
  661. !     moveq    #0,d0            ; return value is 0
  662.       rts
  663.   
  664. ! 
  665. !     ; siglongjmp(sigjmpbuf env, int retval)
  666. !     ; longjmp(sigjmpbuf env, int retval)
  667.       IF    _REGARG
  668.   @longjmp:
  669. + @siglongjmp:
  670.       ELSE
  671.   _longjmp:
  672. + _siglongjmp:
  673.       ENDC
  674. +     ; see if MiNT is active
  675.       IF    _SHORT
  676. !     tst.w    ___mint    
  677.       ELSE
  678.       tst.l    ___mint
  679.       ENDC
  680. !     
  681. !     beq.w    LJ_nomint        ; no -- do not call Psigreturn
  682. !     
  683. !     IF    _REGARG            ; save d0,a0 before Psigreturn
  684. !     IF    _SHORT
  685. !     move.w    d0,-(sp)
  686. !     ELSE
  687. !     move.l    d0,-(sp)
  688. !     ENDC
  689. !     move.l    a0,-(sp)
  690. !     ENDC
  691.       move.w    #$11a,-(sp)        ; Psigreturn() system call
  692.       trap    #1            ; (ignored if not in a sig handler)
  693.       addq.w    #2,sp
  694. !     
  695. ! LJ_nomint:
  696. !     ; address of jmpbuf in a0
  697. !     IF    _REGARG
  698. !     move.l    (sp),a0
  699. !     ELSE
  700. !     move.l    4(sp),a0        
  701. !     ENDC
  702. !     
  703. !     move.l    52(a0),d0        ; want to restore sigmask?
  704. !     beq.w    Norestore        ; no -- skip restore code
  705. !     bclr    #0,d0            ; dump SIGNUL
  706. !     move.l    d0,__sigmask        ; restore tos emulation signal mask
  707. !     
  708. !     ; see if MiNT is active
  709.       IF    _SHORT
  710. !     tst.w    ___mint
  711.       ELSE
  712. !     tst.l    ___mint
  713. !     ENDC
  714. !     beq.w    Norestore        ; no -- do not call Psigblock
  715. !     move.l    d0,-(sp)        ; add no signals to sigmask
  716. !     move.w    #$117,-(sp)        ; Psigblock() system call
  717. !     trap    #1
  718. !     addq    #6,sp
  719. !     move.l    (sp),a0            ; restore a0 == jmpbuf
  720. ! 
  721. ! Norestore:
  722. !     ; value to return in d0 ...
  723. !     IF    _REGARG
  724. !     IF    _SHORT
  725. !     move.w    4(sp),d0
  726. !     ELSE
  727. !     move.l    4(sp),d0
  728. !     ENDC
  729. !     ELSE
  730. !     IF    _SHORT
  731. !     move.w    8(sp),d0
  732. !     ELSE
  733. !     move.l    8(sp),d0
  734.       ENDC
  735. !     ENDC
  736. !     
  737. !     bne.w    L1            ; ... may not be 0
  738. !     moveq    #1,d0
  739.   L1:
  740.       movem.l    4(a0),d2-d7/a2-a7    ; restore saved reggies
  741.       move.l    (a0),(sp)        ; and the saved return address
  742. !     rts                ; will restore a7
  743.       end
  744. diff -cr ../mntlib37/mincl ./mincl
  745. *** ../mntlib37/mincl    Wed Oct 20 11:12:20 1993
  746. --- ./mincl    Tue Oct 12 18:53:58 1993
  747. ***************
  748. *** 38,44 ****
  749.       scanf.o sscanf.o setbuf.o setvbuf.o \
  750.       setlocal.o sprintf.o strftime.o strtol.o strtoul.o system.o \
  751.       tmpnam.o tmpfile.o toxxx.o \
  752. !     vfprintf.o vprintf.o wcmb.o
  753.   
  754.   #
  755.   # other miscellaneous stuff
  756. --- 38,45 ----
  757.       scanf.o sscanf.o setbuf.o setvbuf.o \
  758.       setlocal.o sprintf.o strftime.o strtol.o strtoul.o system.o \
  759.       tmpnam.o tmpfile.o toxxx.o \
  760. !     vfprintf.o vprintf.o wcmb.o \
  761. !     wcscat.o wcscmp.o wcscpy.o wcslen.o wnull.o
  762.   
  763.   #
  764.   # other miscellaneous stuff
  765. diff -cr ../mntlib37/open.c ./open.c
  766. *** ../mntlib37/open.c    Wed Oct 20 11:12:26 1993
  767. --- ./open.c    Wed Oct 13 19:41:06 1993
  768. ***************
  769. *** 78,84 ****
  770.       iomode = iomode & ~O_SHMODE;
  771.   
  772.       if (__mint >= 9) {
  773. !         modemask = O_ACCMODE | O_SHMODE | O_SYNC | O_NDELAY;
  774.           iomode |= (iomode & O_EXCL) ? O_DENYRW : O_DENYNONE;
  775.           if (__mint >= 96) {
  776.               modemask |= _REALO_APPEND;
  777. --- 78,84 ----
  778.       iomode = iomode & ~O_SHMODE;
  779.   
  780.       if (__mint >= 9) {
  781. !         modemask = O_ACCMODE | O_SHMODE | O_SYNC | O_NDELAY | O_CREAT | O_TRUNC;
  782.           iomode |= (iomode & O_EXCL) ? O_DENYRW : O_DENYNONE;
  783.           if (__mint >= 96) {
  784.               modemask |= _REALO_APPEND;
  785. ***************
  786. *** 96,102 ****
  787.               return -1;
  788.           }
  789.           rv = (int)Fopen(filename,iomode & modemask);
  790. !         if ((iomode & O_TRUNC) && (rv >= 0)) {
  791.               /* Give up if the mode flags conflict */
  792.               if (iomode & O_RDONLY) {
  793.                   (void)Fclose(rv);
  794. --- 96,102 ----
  795.               return -1;
  796.           }
  797.           rv = (int)Fopen(filename,iomode & modemask);
  798. !         if ((iomode & ~modemask & O_TRUNC) && (rv >= 0)) {
  799.               /* Give up if the mode flags conflict */
  800.               if (iomode & O_RDONLY) {
  801.                   (void)Fclose(rv);
  802. ***************
  803. *** 123,142 ****
  804.       else                    /* file doesn't exist */
  805.       {
  806.           if(iomode & O_CREAT) {
  807. !             rv = (int)Fcreate(filename, 0x00);
  808. !             if (rv >= 0) {
  809.                   (void)Fclose(rv);
  810.                   rv = (int)Fopen(filename,iomode & modemask);
  811. !                 if (rv >= 0 && __mint >= 9)
  812. !                     (void)Fchmod(filename, pmode);
  813.               }
  814.           }
  815.           else
  816.               rv = -ENOENT;
  817.       }
  818.   
  819. !     if((rv >= 0) && (iomode & O_APPEND))
  820. !         (void)lseek(rv, 0L, SEEK_END);
  821.   
  822.       if(rv < (__SMALLEST_VALID_HANDLE)) {
  823.           errno = -rv;
  824. --- 123,146 ----
  825.       else                    /* file doesn't exist */
  826.       {
  827.           if(iomode & O_CREAT) {
  828. !             if (__mint >= 9)
  829. !               rv = (int) Fopen (filename, iomode & modemask);
  830. !             else {
  831. !                 rv = (int)Fcreate(filename, 0x00);
  832. !                 if (rv >= 0) {
  833.                   (void)Fclose(rv);
  834.                   rv = (int)Fopen(filename,iomode & modemask);
  835. !                 }
  836.               }
  837. +             if (rv >= 0 && __mint >= 9)
  838. +                 (void)Fchmod(filename, pmode);
  839.           }
  840.           else
  841.               rv = -ENOENT;
  842.       }
  843.   
  844. !     if((rv >= 0) && (iomode & O_APPEND) && !(modemask & _REALO_APPEND))
  845. !         (void)Fseek(0L, rv, SEEK_END);
  846.   
  847.       if(rv < (__SMALLEST_VALID_HANDLE)) {
  848.           errno = -rv;
  849. diff -cr ../mntlib37/popen.c ./popen.c
  850. *** ../mntlib37/popen.c    Wed Oct 20 11:12:30 1993
  851. --- ./popen.c    Wed Oct 13 22:12:36 1993
  852. ***************
  853. *** 9,17 ****
  854.   #include    <string.h>
  855.   #include    <errno.h>
  856.   #include    <unistd.h>
  857.   
  858. - __EXTERN int wait __PROTO((int *));
  859. - 
  860.   struct _pipe {
  861.       int    pid;        /* process id of child            */
  862.       FILE    *pfile;        /* created file descriptor        */
  863. --- 9,18 ----
  864.   #include    <string.h>
  865.   #include    <errno.h>
  866.   #include    <unistd.h>
  867. + #include <sys/types.h>
  868. + #include <wait.h>
  869. + #include <mintbind.h>
  870.   
  871.   struct _pipe {
  872.       int    pid;        /* process id of child            */
  873.       FILE    *pfile;        /* created file descriptor        */
  874. ***************
  875. *** 24,30 ****
  876.   const char    *command, *type;
  877.   {
  878.       struct _pipe *p;    /* the new pipe's list entry    */
  879. !     int pipfd[2];        /* pipe file handles */
  880.       int savefd;        /* saved file descriptor for parent */
  881.       int kidfd;        /* file descriptor changed in child */
  882.                   /* 1 for "r", 0 for "w" */    
  883. --- 25,31 ----
  884.   const char    *command, *type;
  885.   {
  886.       struct _pipe *p;    /* the new pipe's list entry    */
  887. !     short pipfd[2];        /* pipe file handles */
  888.       int savefd;        /* saved file descriptor for parent */
  889.       int kidfd;        /* file descriptor changed in child */
  890.                   /* 1 for "r", 0 for "w" */    
  891. ***************
  892. *** 32,37 ****
  893. --- 33,39 ----
  894.       char *shell;
  895.       FILE *pipefile = 0;
  896.       extern int __mint;
  897. +     long r;
  898.   
  899.       if (__mint == 0) {
  900.           errno = EINVAL;
  901. ***************
  902. *** 49,71 ****
  903.       /* initialize the new pipe entry */
  904.       kidfd = (*type == 'r') ? 1 : 0;
  905.   
  906. !     savefd = dup(kidfd);
  907.       /* get those close-on-exec flags right...
  908.          (well just do fork/exec would be easier :-)    -nox */
  909.   
  910. !     if (savefd < 0 || fcntl (savefd, F_SETFD, (void *) 1) == -1 ||
  911. !         pipe(pipfd) != 0) {            /* can't create pipe?? */
  912.           free(p);
  913.           return (FILE *)0;
  914.       }
  915.   
  916.       /* other side of the pipe should be closed in the child */
  917. !     (void) fcntl(pipfd[1 - kidfd], F_SETFD, (void *) 1);
  918. !     dup2(pipfd[kidfd], kidfd);
  919. !     close(pipfd[kidfd]);
  920.       p->pid = spawnlp(P_NOWAIT, shell, shell, "-c", command, (char *)0);
  921. !     dup2(savefd, kidfd);
  922. !     close(savefd);
  923.   
  924.       if (p->pid > 0) {    /* command ran all right */
  925.       /* note: 1-kidfd tells us which handle to use in the parent */
  926. --- 51,74 ----
  927.       /* initialize the new pipe entry */
  928.       kidfd = (*type == 'r') ? 1 : 0;
  929.   
  930. !     savefd = r = Fdup (kidfd);
  931.       /* get those close-on-exec flags right...
  932.          (well just do fork/exec would be easier :-)    -nox */
  933.   
  934. !     if (r < 0 || (r = Fcntl (savefd, 1L, F_SETFD)) < 0 ||
  935. !         (r = Fpipe(pipfd)) < 0) {        /* can't create pipe?? */
  936.           free(p);
  937. +         errno = (int) -r;
  938.           return (FILE *)0;
  939.       }
  940.   
  941.       /* other side of the pipe should be closed in the child */
  942. !     (void) Fcntl(pipfd[1 - kidfd], (long) 1, F_SETFD);
  943. !     Fforce(kidfd, pipfd[kidfd]);
  944. !     Fclose(pipfd[kidfd]);
  945.       p->pid = spawnlp(P_NOWAIT, shell, shell, "-c", command, (char *)0);
  946. !     Fforce(kidfd, savefd);
  947. !     Fclose(savefd);
  948.   
  949.       if (p->pid > 0) {    /* command ran all right */
  950.       /* note: 1-kidfd tells us which handle to use in the parent */
  951. ***************
  952. *** 79,85 ****
  953.       }
  954.       else {
  955.           /* carefully release all resources */
  956. !         close (pipfd[1 - kidfd]);
  957.           free(p);
  958.       }
  959.       return pipefile;
  960. --- 82,90 ----
  961.       }
  962.       else {
  963.           /* carefully release all resources */
  964. !         Fclose (pipfd[1 - kidfd]);
  965. !         if (p->pid > 0)    /* just in case... */
  966. !           waitpid (p->pid, (int *) NULL, 0);
  967.           free(p);
  968.       }
  969.       return pipefile;
  970. ***************
  971. *** 93,99 ****
  972.       struct _pipe    *p,        /* the pipe's list element    */
  973.               **q;        /* predecessor of p in the list    */
  974.       int    status = -1;        /* return status of the command    */
  975. -     int    pid;
  976.   
  977.       /* search the pipe list for a pipe matching the FILE descriptor    */
  978.       for (p = __pipes, q = &__pipes;  p && p->pfile != fp;
  979. --- 98,103 ----
  980. ***************
  981. *** 104,113 ****
  982.       fclose(p->pfile);    /* close the connection        */
  983.   
  984.   /* now wait for the command to finish */
  985. ! 
  986. !     do {
  987. !         pid = wait(&status);
  988. !     } while (pid >= 0 && pid != p->pid);
  989.   
  990.       /* remove the pipe from the list */
  991.       *q = p->pnext;
  992. --- 108,114 ----
  993.       fclose(p->pfile);    /* close the connection        */
  994.   
  995.   /* now wait for the command to finish */
  996. !     waitpid (p->pid, &status, 0);
  997.   
  998.       /* remove the pipe from the list */
  999.       *q = p->pnext;
  1000. diff -cr ../mntlib37/read.c ./read.c
  1001. *** ../mntlib37/read.c    Wed Oct 20 11:13:04 1993
  1002. --- ./read.c    Wed Oct 13 20:01:48 1993
  1003. ***************
  1004. *** 10,15 ****
  1005. --- 10,16 ----
  1006.   #include <signal.h>
  1007.   #include <unistd.h>
  1008.   #include <support.h>
  1009. + #include <mintbind.h>
  1010.   #include "lib.h"
  1011.   
  1012.   #define CTRL(x) (x & 0x1f)
  1013. ***************
  1014. *** 70,80 ****
  1015.           flags = -1;
  1016.   
  1017.       if ( (__mint > 0) || (flags  == -1) ||
  1018. !          ( ((flags & (RAW|CBREAK)) == 0) && (flags & ECHO) ) ) {
  1019.   #ifdef EIO
  1020.                   if (__mint && _isctty(fd)) {
  1021. !           (void) ioctl(fd, TIOCGPGRP, &tty_pgrp);
  1022. !           if (tty_pgrp != getpgrp()) {
  1023.   #if 0
  1024.               /* This isn't really what we mean here...we really want to
  1025.                  know if our process group has no controlling terminal.
  1026. --- 71,81 ----
  1027.           flags = -1;
  1028.   
  1029.       if ( (__mint > 0) || (flags  == -1) ||
  1030. !          ( ((flags & (RAW|CBREAK|ECHO)) == ECHO) ) ) {
  1031.   #ifdef EIO
  1032.                   if (__mint && _isctty(fd)) {
  1033. !           (void) Fcntl(fd, (long) &tty_pgrp, TIOCGPGRP);
  1034. !           if (tty_pgrp != Pgetpgrp()) {
  1035.   #if 0
  1036.               /* This isn't really what we mean here...we really want to
  1037.                  know if our process group has no controlling terminal.
  1038. ***************
  1039. *** 84,93 ****
  1040.                 return -1;
  1041.               }
  1042.   #endif
  1043. !             omask = sigblock(~0L);
  1044. !             osigt = signal(SIGTTIN, SIG_IGN);
  1045. !             (void) signal(SIGTTIN, osigt);
  1046. !             (void) sigsetmask(omask);
  1047.               if ((omask & sigmask(SIGTTIN)) || (osigt == SIG_IGN)) {
  1048.                 errno = EIO;
  1049.                 return -1;
  1050. --- 85,94 ----
  1051.                 return -1;
  1052.               }
  1053.   #endif
  1054. !             omask = Psigblock(~0L);
  1055. !             osigt = (__Sigfunc) Psignal(SIGTTIN, SIG_IGN);
  1056. !             (void) Psignal(SIGTTIN, (long) osigt);
  1057. !             (void) Psigsetmask(omask);
  1058.               if ((omask & sigmask(SIGTTIN)) || (osigt == SIG_IGN)) {
  1059.                 errno = EIO;
  1060.                 return -1;
  1061. ***************
  1062. *** 148,153 ****
  1063. --- 149,157 ----
  1064.       return r;
  1065.   }
  1066.   
  1067. + #if defined (__GNUC__) && !defined (__MSHORT__)
  1068. + __asm__ (".stabs \"_read\",5,0,0,__read");
  1069. + #else
  1070.   int
  1071.   read(fd, buf, size)
  1072.       int fd;
  1073. ***************
  1074. *** 156,158 ****
  1075. --- 160,163 ----
  1076.   {
  1077.       return (int) _read(fd, buf, (unsigned long)size);
  1078.   }
  1079. + #endif
  1080. diff -cr ../mntlib37/rename.c ./rename.c
  1081. *** ../mntlib37/rename.c    Wed Oct 20 11:13:08 1993
  1082. --- ./rename.c    Wed Oct 13 08:49:24 1993
  1083. ***************
  1084. *** 17,31 ****
  1085.           rval = 0;    /* no-op */
  1086.       }
  1087.   #endif
  1088. -     if (!access(_newname, 0)) {    /* new name already exists */
  1089. -         if (unlink(_newname))
  1090. -             return -1;
  1091. -     }
  1092.   
  1093.       _unx2dos(_oldname, oldname);
  1094.       _unx2dos(_newname, newname);
  1095.   
  1096. !     if ( (rval = Frename(0, oldname, newname)) < 0 ) {
  1097.           errno = -rval;
  1098.           rval = -1;
  1099.       }
  1100. --- 17,36 ----
  1101.           rval = 0;    /* no-op */
  1102.       }
  1103.   #endif
  1104.   
  1105.       _unx2dos(_oldname, oldname);
  1106.       _unx2dos(_newname, newname);
  1107.   
  1108. !     rval = Frename(0, oldname, newname);
  1109. !     if (rval == 0)
  1110. !       return 0;
  1111. !     if (rval != -EXDEV && rval != -ENOENT)
  1112. !       {
  1113. !         (void) Fdelete (newname);
  1114. !         rval = Frename(0, oldname, newname);
  1115. !       }
  1116. ! 
  1117. !     if (rval < 0) {
  1118.           errno = -rval;
  1119.           rval = -1;
  1120.       }
  1121. diff -cr ../mntlib37/sleep.c ./sleep.c
  1122. *** ../mntlib37/sleep.c    Wed Oct 20 11:13:18 1993
  1123. --- ./sleep.c    Thu Oct 14 01:53:00 1993
  1124. ***************
  1125. *** 7,18 ****
  1126. --- 7,36 ----
  1127.   #include <mintbind.h>
  1128.   #include <signal.h>
  1129.   #include <unistd.h>
  1130. + #include <limits.h>
  1131.   
  1132.   /* _clock() has a rez of CLOCKS_PER_SEC ticks/sec */
  1133.   
  1134.   #define USEC_PER_TICK (1000000L / ((unsigned long)CLOCKS_PER_SEC))
  1135.   #define    USEC_TO_CLOCK_TICKS(us)    ((us) / USEC_PER_TICK )
  1136.   
  1137. + static unsigned long _alarm __PROTO((unsigned long secs));
  1138. + 
  1139. + static unsigned long
  1140. + _alarm(secs)
  1141. +     unsigned long secs;
  1142. + {
  1143. +     unsigned long r;
  1144. + 
  1145. + #ifndef __MSHORT__
  1146. +     if (secs > ((unsigned long) (LONG_MAX/1000)))
  1147. +         secs = ((unsigned long) (LONG_MAX/1000));
  1148. + #endif
  1149. +     r = Talarm((long) secs);
  1150. + 
  1151. +     return (unsigned long) r;
  1152. + }
  1153. + 
  1154.   static void __CDECL alarm_catch __PROTO((long signum));
  1155.   
  1156.   static void __CDECL
  1157. ***************
  1158. *** 29,35 ****
  1159.       unsigned long stop;
  1160.       long old_alarm_func;
  1161.       long old_sigmask;
  1162. !     long alarm_sec;
  1163.       long remain;
  1164.       extern int __mint;
  1165.   
  1166. --- 47,53 ----
  1167.       unsigned long stop;
  1168.       long old_alarm_func;
  1169.       long old_sigmask;
  1170. !     unsigned long alarm_sec;
  1171.       long remain;
  1172.       extern int __mint;
  1173.   
  1174. ***************
  1175. *** 39,72 ****
  1176.                   (void)Fselect(32000, 0L, 0L, 0L);
  1177.                   n -= 32;
  1178.               }
  1179. !             (void)Fselect(1000*n, 0L, 0L, 0L);
  1180.               return 0;
  1181.           }
  1182.           if (n == 0)
  1183.               return 0;
  1184. !         alarm_sec = (long) alarm(0);
  1185.           old_sigmask = Psigblock(~0L);
  1186.           old_alarm_func = Psignal(SIGALRM, (long)alarm_catch);
  1187.           (void) Psigblock(~0L);
  1188.           stop = _clock() + n * CLOCKS_PER_SEC;
  1189.           if (alarm_sec && (alarm_sec < n))
  1190. !             (void) alarm((unsigned) alarm_sec);
  1191.           else
  1192. !             (void) alarm(n);
  1193. !         Psigpause(old_sigmask);
  1194. !         (void) alarm(0);
  1195.           (void) Psignal(SIGALRM, (long) alarm_catch);
  1196.           (void) Syield();
  1197.           (void) Psigblock(~0L);
  1198.           remain = ((long) stop - (long) _clock()) 
  1199.                 / (long) CLOCKS_PER_SEC;
  1200.           if (alarm_sec) {
  1201.               alarm_sec -= ((long) n - remain);
  1202.               if (alarm_sec <= 0)
  1203.                   (void) Pkill(Pgetpid(), SIGALRM);
  1204.               else
  1205. !                 (void) alarm((unsigned) alarm_sec);
  1206.           }
  1207.           (void) Psignal(SIGALRM, (long) old_alarm_func);
  1208.           (void) Psigsetmask(old_sigmask);
  1209.           (void) Syield();
  1210. --- 57,115 ----
  1211.                   (void)Fselect(32000, 0L, 0L, 0L);
  1212.                   n -= 32;
  1213.               }
  1214. !             if (n > 0)
  1215. !               (void)Fselect(1000*n, 0L, 0L, 0L);
  1216.               return 0;
  1217.           }
  1218.           if (n == 0)
  1219.               return 0;
  1220. !         /* Clear any existing alarm, but save its expire time.
  1221. !            Then block all signals and save original mask.
  1222. !            Install our alarm handler, and remask (since Psignal()
  1223. !            just unmasked SIGALRM.)
  1224. !         */
  1225. !         alarm_sec = (long) Talarm(0L);
  1226.           old_sigmask = Psigblock(~0L);
  1227.           old_alarm_func = Psignal(SIGALRM, (long)alarm_catch);
  1228.           (void) Psigblock(~0L);
  1229. +         /* Figure out when we would normally wake up */
  1230.           stop = _clock() + n * CLOCKS_PER_SEC;
  1231. +         /* But only sleep as long as the original alarm clock */
  1232.           if (alarm_sec && (alarm_sec < n))
  1233. !             (void) _alarm(alarm_sec);
  1234.           else
  1235. !             (void) _alarm((unsigned long) n);
  1236. !         /* Go to sleep with the original mask but always
  1237. !            allow SIGALRM or we might never wake up.
  1238. !         */
  1239. !         Psigpause(old_sigmask & ~(sigmask(SIGALRM)));
  1240. !         /* Cancel any time left on the alarm clock */
  1241. !         (void) _alarm(0L);
  1242. !         /* Eat any alarms that occurred before we cancelled.
  1243. !            The Syield ensure we enter the kernel and handle the
  1244. !            signal.
  1245. !         */
  1246.           (void) Psignal(SIGALRM, (long) alarm_catch);
  1247.           (void) Syield();
  1248. +         /* Remask again after the Psignal() */
  1249.           (void) Psigblock(~0L);
  1250.           remain = ((long) stop - (long) _clock()) 
  1251.                 / (long) CLOCKS_PER_SEC;
  1252.           if (alarm_sec) {
  1253. +             /* Restore the original timer (or if it expired,
  1254. +                post the signal now)
  1255. +             */
  1256.               alarm_sec -= ((long) n - remain);
  1257.               if (alarm_sec <= 0)
  1258.                   (void) Pkill(Pgetpid(), SIGALRM);
  1259.               else
  1260. !                 (void) _alarm(alarm_sec);
  1261.           }
  1262. +         /* Restore the original alarm handler (which also
  1263. +            allows it to be delivered!)  Then restore the
  1264. +            original signal mask (if the signal handler
  1265. +            does a longjmp() we might lose).
  1266. +         */
  1267.           (void) Psignal(SIGALRM, (long) old_alarm_func);
  1268.           (void) Psigsetmask(old_sigmask);
  1269.           (void) Syield();
  1270. diff -cr ../mntlib37/stat.c ./stat.c
  1271. *** ../mntlib37/stat.c    Wed Oct 20 11:13:34 1993
  1272. --- ./stat.c    Wed Oct 13 19:37:00 1993
  1273. ***************
  1274. *** 89,98 ****
  1275.       /* if we hit a symbolic link, try to get its size right */
  1276.           if (lflag && ((st->st_mode & S_IFMT) == S_IFLNK)) {
  1277.               char buf[PATH_MAX + 1];
  1278. !             r = readlink(path, buf, PATH_MAX);
  1279.               if (r < 0)
  1280.                   return -1;
  1281. !             st->st_size = r;
  1282.           }
  1283.           return 0;
  1284.       }
  1285. --- 89,104 ----
  1286.       /* if we hit a symbolic link, try to get its size right */
  1287.           if (lflag && ((st->st_mode & S_IFMT) == S_IFLNK)) {
  1288.               char buf[PATH_MAX + 1];
  1289. !             char buf1[PATH_MAX + 1];
  1290. !             r = Freadlink(PATH_MAX, buf, path);
  1291.               if (r < 0)
  1292. +               {
  1293. +                 errno = (int) -r;
  1294.                   return -1;
  1295. !               }
  1296. !             buf[PATH_MAX] = 0;
  1297. !             _dos2unx (buf, buf1);
  1298. !             st->st_size = strlen (buf1);
  1299.           }
  1300.           return 0;
  1301.       }
  1302. diff -cr ../mntlib37/symlink.c ./symlink.c
  1303. *** ../mntlib37/symlink.c    Wed Oct 20 11:13:50 1993
  1304. --- ./symlink.c    Wed Oct 20 03:54:02 1993
  1305. ***************
  1306. *** 5,10 ****
  1307. --- 5,11 ----
  1308.   #include <string.h>
  1309.   #include <limits.h>
  1310.   #include <unistd.h>
  1311. + #include <stat.h>
  1312.   #include "lib.h"
  1313.   
  1314.   extern int __mint;
  1315. ***************
  1316. *** 54,59 ****
  1317. --- 55,69 ----
  1318.       _unx2dos(unxname, filename);
  1319.       r = Freadlink(PATH_MAX, linkto, filename);
  1320.       if (r < 0) {
  1321. +         if (r == -EACCES) {
  1322. +             struct stat sb;
  1323. + 
  1324. +             /* UNIX gives EINVAL, not EACCES, on non-links */
  1325. +             if ((Fxattr(1, filename, &sb) == 0)
  1326. +                 && ((sb.st_mode & S_IFMT) != S_IFLNK)) {
  1327. +                 r = -EINVAL;
  1328. +             }
  1329. +         }
  1330.           errno = (int) -r;
  1331.           return -1;
  1332.       }
  1333. diff -cr ../mntlib37/tcattr.c ./tcattr.c
  1334. *** ../mntlib37/tcattr.c    Wed Oct 20 11:13:52 1993
  1335. --- ./tcattr.c    Mon Oct 18 06:59:32 1993
  1336. ***************
  1337. *** 86,91 ****
  1338. --- 86,93 ----
  1339.     stp->c_cc[VSTOP]    = (cc_t) t.t_stopc;
  1340.     stp->c_cc[VMIN]    = (cc_t) 1;
  1341.     stp->c_cc[VTIME]    = (cc_t) 0;
  1342. +   stp->c_cc[VLNEXT]    = (cc_t) lt.t_lnextc;
  1343. +   stp->c_cc[VWERASE]    = (cc_t) lt.t_werasc;
  1344.     return 0;
  1345.   }
  1346.   
  1347. ***************
  1348. *** 156,161 ****
  1349. --- 158,165 ----
  1350.     lt.t_suspc        = (char) stp->c_cc[VSUSP];
  1351.     t.t_startc        = (char) stp->c_cc[VSTART];
  1352.     t.t_stopc        = (char) stp->c_cc[VSTOP];
  1353. +   lt.t_lnextc        = (char) stp->c_cc[VLNEXT];
  1354. +   lt.t_werasc        = (char) stp->c_cc[VWERASE];
  1355.     switch (action)
  1356.     {
  1357.       case TCSAFLUSH:
  1358. diff -cr ../mntlib37/wait3.c ./wait3.c
  1359. *** ../mntlib37/wait3.c    Wed Oct 20 11:14:06 1993
  1360. --- ./wait3.c    Tue Oct 12 23:03:02 1993
  1361. ***************
  1362. *** 73,79 ****
  1363.                      (unsigned long) (sizeof (struct rusage)));
  1364.               _ms2tval(rsc[0], &(rusage->ru_utime));
  1365.               _ms2tval(rsc[1], &(rusage->ru_stime));
  1366. -             rusage->ru_maxrss = rsc[4];
  1367.               /* Kludge so GNU time will configure properly: */
  1368.               rusage->ru_nvcsw = 1;
  1369.           }
  1370. --- 73,78 ----
  1371. diff -cr ../mntlib37/wcmb.c ./wcmb.c
  1372. *** ../mntlib37/wcmb.c    Wed Oct 20 11:14:08 1993
  1373. --- ./wcmb.c    Tue Oct 12 18:45:12 1993
  1374. ***************
  1375. *** 5,10 ****
  1376. --- 5,12 ----
  1377.   #include <stdlib.h>
  1378.   #include <stddef.h>
  1379.   
  1380. + extern const wchar_t *_wnull;
  1381. + 
  1382.   int
  1383.   mblen(mbstr, n)
  1384.   const char *mbstr;
  1385. ***************
  1386. *** 57,65 ****
  1387.   size_t maxlen;
  1388.   {
  1389.       size_t revcnt = maxlen;
  1390. -     static const wchar_t wnull[1] = { 0 };
  1391.       
  1392. !     if(wstr == NULL) wstr = wnull; /* Better avoid L"". */
  1393.       
  1394.       while(revcnt && (*mbstr++ = (char) *wstr++)) revcnt--;
  1395.       
  1396. --- 59,66 ----
  1397.   size_t maxlen;
  1398.   {
  1399.       size_t revcnt = maxlen;
  1400.       
  1401. !     if(wstr == NULL) wstr = _wnull; /* Better avoid L"". */
  1402.       
  1403.       while(revcnt && (*mbstr++ = (char) *wstr++)) revcnt--;
  1404.       
  1405. Only in .: wcscat.c
  1406. Only in .: wcscmp.c
  1407. Only in .: wcscpy.c
  1408. Only in .: wcslen.c
  1409. Only in .: wnull.c
  1410. diff -cr ../mntlib37/write.c ./write.c
  1411. *** ../mntlib37/write.c    Wed Oct 20 11:14:08 1993
  1412. --- ./write.c    Wed Oct 13 20:05:32 1993
  1413. ***************
  1414. *** 14,19 ****
  1415. --- 14,20 ----
  1416.   #include <unistd.h>
  1417.   #include <signal.h>
  1418.   #include <stat.h>
  1419. + #include <mintbind.h>
  1420.   #include "lib.h"
  1421.   
  1422.   extern __Sigfunc _sig_handler[]; /* TOS fakes for signal handling */
  1423. ***************
  1424. *** 29,34 ****
  1425. --- 30,36 ----
  1426.       long r;
  1427.       extern int __mint;
  1428.       struct stat statbuf;
  1429. +     _DOSTIME timebuf;
  1430.   
  1431.       if (__mint == 0 && isatty(fd)) {
  1432.           r = __OPEN_INDEX(fd);
  1433. ***************
  1434. *** 54,69 ****
  1435.           return -1;
  1436.       }
  1437.       if (size && r == 0) {
  1438. !         if (fstat(fd, &statbuf) < 0) return -1;
  1439. !         if ((statbuf.st_mode & S_IFMT) == S_IFREG) {
  1440. !             errno = ENOSPC;
  1441. !             return -1;
  1442.           }
  1443.       }
  1444.   
  1445.       return r;
  1446.   }
  1447.   
  1448.   int
  1449.   write(fd, buf, size)
  1450.       int fd;
  1451. --- 56,88 ----
  1452.           return -1;
  1453.       }
  1454.       if (size && r == 0) {
  1455. !       if (__mint >= 9)
  1456. !         {
  1457. !           if ((r = Fcntl (fd, &statbuf, FSTAT)) < 0)
  1458. !         {
  1459. !           errno = (int) -r;
  1460. !           return -1;
  1461.           }
  1462. +           if ((statbuf.st_mode & S_IFMT) == S_IFREG)
  1463. +         {
  1464. +           errno = ENOSPC;
  1465. +           return -1;
  1466. +         }
  1467. +         }
  1468. +       else if (Fdatime (&timebuf, fd, 0) == 0
  1469. +            && Fseek (0L, fd, SEEK_CUR) >= 0)
  1470. +         {
  1471. +           errno = ENOSPC;
  1472. +           return -1;
  1473. +         }
  1474.       }
  1475.   
  1476.       return r;
  1477.   }
  1478.   
  1479. + #if defined (__GNUC__) && !defined (__MSHORT__)
  1480. + __asm__ (".stabs \"_write\",5,0,0,__write");
  1481. + #else
  1482.   int
  1483.   write(fd, buf, size)
  1484.       int fd;
  1485. ***************
  1486. *** 72,74 ****
  1487. --- 91,94 ----
  1488.   {
  1489.       return (int) _write(fd, buf, (unsigned long)size);
  1490.   }
  1491. + #endif
  1492. *** /dev/null    Wed Oct 20 12:09:44 1993
  1493. --- wcscat.c    Thu Oct 14 03:50:14 1993
  1494. ***************
  1495. *** 0 ****
  1496. --- 1,51 ----
  1497. + /* from Henry Spencer's stringlib */
  1498. + /* check for src==NULL added by ERS */
  1499. + 
  1500. + #include <stddef.h>
  1501. + #include <stdlib.h>
  1502. + 
  1503. + /*
  1504. +  * wcscat - append string src to dst
  1505. +  */
  1506. + wchar_t *                /* dst */
  1507. + wcscat(dst, src)
  1508. + wchar_t *dst;
  1509. + const wchar_t *src;
  1510. + {
  1511. +     register wchar_t *dscan;
  1512. +     register const wchar_t *sscan;
  1513. + 
  1514. +     if ((sscan = src) != NULL)
  1515. +     {
  1516. +         for (dscan = dst; *dscan; dscan++)
  1517. +         continue;
  1518. +         while ((*dscan++ = *sscan++))
  1519. +             continue;
  1520. +     }
  1521. +     return(dst);
  1522. + }
  1523. + 
  1524. + /*
  1525. +  * wcsncat - append at most n characters of string src to dst
  1526. +  */
  1527. + wchar_t *                /* dst */
  1528. + wcsncat(dst, src, n)
  1529. + wchar_t *dst;
  1530. + const wchar_t *src;
  1531. + size_t n;
  1532. + {
  1533. +     register wchar_t *dscan, c;
  1534. +     register const wchar_t *sscan;
  1535. +     register long count;
  1536. + 
  1537. +     if(((sscan = src) != NULL) && (n > 0))
  1538. +     {
  1539. +         for (dscan = dst; *dscan; dscan++)
  1540. +         continue;
  1541. +         count = n;
  1542. +         while ((c = *sscan++) && --count >= 0)
  1543. +         *dscan++ = c;
  1544. +         *dscan = 0;
  1545. +     }
  1546. +     return(dst);
  1547. + }
  1548. *** /dev/null    Wed Oct 20 12:09:46 1993
  1549. --- wcscmp.c    Wed Oct  6 11:18:00 1993
  1550. ***************
  1551. *** 0 ****
  1552. --- 1,79 ----
  1553. + /* from Henry Spencer's stringlib */
  1554. + /* modified by ERS */
  1555. + 
  1556. + #include <stddef.h>
  1557. + #include <stdlib.h>
  1558. + 
  1559. + /*
  1560. +  * wcscmp - compare string s1 to s2
  1561. +  */
  1562. + 
  1563. + int                /* <0 for <, 0 for ==, >0 for > */
  1564. + wcscmp(scan1, scan2)
  1565. + register const wchar_t *scan1;
  1566. + register const wchar_t *scan2;
  1567. + {
  1568. +     register wchar_t c1, c2;
  1569. + 
  1570. +     if (scan1 == NULL)
  1571. +         return scan2 == NULL ? 0 : -1;
  1572. +     if (scan2 == NULL) return 1;
  1573. + 
  1574. +     do {
  1575. +         c1 = *scan1++; c2 = *scan2++;
  1576. +     } while (c1 && c1 == c2);
  1577. + 
  1578. +     /*
  1579. +      * The following case analysis is necessary so that characters
  1580. +      * which look negative collate low against normal characters but
  1581. +      * high against the end-of-string NUL.
  1582. +      */
  1583. +     if (c1 == c2)
  1584. +         return(0);
  1585. +     else if (!c1)
  1586. +         return(-1);
  1587. +     else if (!c2)
  1588. +         return(1);
  1589. +     else
  1590. +         return(c1 - c2);
  1591. + }
  1592. + 
  1593. + /*
  1594. +  * wcsncmp - compare at most n characters of string s1 to s2
  1595. +  */
  1596. + 
  1597. + int                /* <0 for <, 0 for ==, >0 for > */
  1598. + wcsncmp(scan1, scan2, n)
  1599. + register const wchar_t *scan1;
  1600. + register const wchar_t *scan2;
  1601. + size_t n;
  1602. + {
  1603. +     register wchar_t c1, c2;
  1604. +     register long count;
  1605. + 
  1606. +     if (scan1 == NULL) {
  1607. +         return scan2 == NULL ? 0 : -1;
  1608. +     }
  1609. +     if (scan2 == NULL) return 1;
  1610. +     count = n;
  1611. +     do {
  1612. +         c1 = *scan1++; c2 = *scan2++;
  1613. +     } while (--count >= 0 && c1 && c1 == c2);
  1614. + 
  1615. +     if (count < 0)
  1616. +         return(0);
  1617. + 
  1618. +     /*
  1619. +      * The following case analysis is necessary so that characters
  1620. +      * which look negative collate low against normal characters but
  1621. +      * high against the end-of-string NUL.
  1622. +      */
  1623. +     if (c1 == c2)
  1624. +         return(0);
  1625. +     else if (!c1)
  1626. +         return(-1);
  1627. +     else if (!c2)
  1628. +         return(1);
  1629. +     else
  1630. +         return(c1 - c2);
  1631. + }
  1632. *** /dev/null    Wed Oct 20 12:09:48 1993
  1633. --- wcscpy.c    Thu Oct 14 03:51:38 1993
  1634. ***************
  1635. *** 0 ****
  1636. --- 1,48 ----
  1637. + /* from Henry Spencer's stringlib */
  1638. + /* check for NULL string added by ERS */
  1639. + 
  1640. + #include <stddef.h>
  1641. + #include <stdlib.h>
  1642. + 
  1643. + extern const wchar_t *_wnull;
  1644. + 
  1645. + /*
  1646. +  * wcscpy - copy string src to dst
  1647. +  */
  1648. + wchar_t *                /* dst */
  1649. + wcscpy(dst, src)
  1650. + wchar_t *dst;
  1651. + const wchar_t *src;
  1652. + {
  1653. +     register wchar_t *dscan = dst;
  1654. +     register const wchar_t *sscan = src;
  1655. + 
  1656. +     if (sscan == NULL) sscan = _wnull;
  1657. +     while ((*dscan++ = *sscan++))
  1658. +         continue;
  1659. +     return(dst);
  1660. + }
  1661. + 
  1662. + /*
  1663. +  * wcsncpy - copy at most n characters of string src to dst
  1664. +  */
  1665. + wchar_t *                /* dst */
  1666. + wcsncpy(dst, src, n)
  1667. + wchar_t *dst;
  1668. + const wchar_t *src;
  1669. + size_t n;
  1670. + {
  1671. +     register wchar_t *dscan;
  1672. +     register const wchar_t *sscan;
  1673. +     register long count;
  1674. + 
  1675. +     dscan = dst;
  1676. +     if ((sscan = src) == NULL)
  1677. +         sscan = _wnull;
  1678. +     count = n;
  1679. +     while (--count >= 0 && (*dscan++ = *sscan++))
  1680. +         continue;
  1681. +     while (--count >= 0)
  1682. +         *dscan++ = *_wnull;
  1683. +     return(dst);
  1684. + }
  1685. *** /dev/null    Wed Oct 20 12:09:50 1993
  1686. --- wcslen.c    Mon Oct  4 13:55:44 1993
  1687. ***************
  1688. *** 0 ****
  1689. --- 1,18 ----
  1690. + /* from Henry Spencer's stringlib */
  1691. + #include <stddef.h>
  1692. + #include <stdlib.h>
  1693. + 
  1694. + /*
  1695. +  * wcslen - length of string (not including NUL)
  1696. +  */
  1697. + size_t
  1698. + wcslen(scan)
  1699. + register const wchar_t *scan;
  1700. + {
  1701. +     register const wchar_t *start = scan+1;
  1702. + 
  1703. +     if (scan == NULL) return 0;
  1704. +     while (*scan++)
  1705. +         continue;
  1706. +     return (size_t)((long)scan - (long)start);
  1707. + }
  1708. *** /dev/null    Wed Oct 20 12:10:14 1993
  1709. --- wnull.c    Wed Oct  6 13:39:54 1993
  1710. ***************
  1711. *** 0 ****
  1712. --- 1,5 ----
  1713. + /* This will avoid the construct L"". */
  1714. + 
  1715. + #include <stddef.h>
  1716. + 
  1717. + const wchar_t _wnull[1] = { 0 };
  1718.