home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / sharew / f_2_c / libi77 / version.c < prev    next >
Encoding:
C/C++ Source or Header  |  1991-06-10  |  3.9 KB  |  95 lines
  1. static char junk[] = "\n@(#) LIBI77 VERSION pjw,dmg-mods 16 May 1991\n";
  2.  
  3. /*
  4. 2.01    $ format added
  5. 2.02    Coding bug in open.c repaired
  6. 2.03    fixed bugs in lread.c (read * with negative f-format) and lio.c
  7.     and lio.h (e-format conforming to spec)
  8. 2.04    changed open.c and err.c (fopen and freopen respectively) to
  9.     update to new c-library (append mode)
  10. 2.05    added namelist capability
  11. 2.06    allow internal list and namelist I/O
  12. */
  13.  
  14. /*
  15. close.c:
  16.     allow upper-case STATUS= values
  17. endfile.c
  18.     create fort.nnn if unit nnn not open;
  19.     else if (file length == 0) use creat() rather than copy;
  20.     use local copy() rather than forking /bin/cp;
  21.     rewind, fseek to clear buffer (for no reading past EOF)
  22. err.c
  23.     use neither setbuf nor setvbuf; make stderr buffered
  24. fio.h
  25.     #define _bufend
  26. inquire.c
  27.     upper case responses;
  28.     omit byfile test from SEQUENTIAL=
  29.     answer "YES" to DIRECT= for unopened file (open to debate)
  30. lio.c
  31.     flush stderr, stdout at end of each stmt
  32.     space before character strings in list output only at line start
  33. lio.h
  34.     adjust LEW, LED consistent with old libI77
  35. lread.c
  36.     use atof()
  37.     allow "nnn*," when reading complex constants
  38. open.c
  39.     try opening for writing when open for read fails, with
  40.     special uwrt value (2) delaying creat() to first write;
  41.     set curunit so error messages don't drop core;
  42.     no file name ==> fort.nnn except for STATUS='SCRATCH'
  43. rdfmt.c
  44.     use atof(); trust EOF == end-of-file (so don't read past
  45.     end-of-file after endfile stmt)
  46. sfe.c
  47.     flush stderr, stdout at end of each stmt
  48. wrtfmt.c:
  49.     use upper case
  50.     put wrt_E and wrt_F into wref.c, use sprintf()
  51.         rather than ecvt() and fcvt() [more accurate on VAX]
  52. */
  53.  
  54. /* 16 Oct. 1988: uwrt = 3 after write, rewind, so close won't zap the file. */
  55.  
  56. /* 10 July 1989: change _bufend to buf_end in fio.h, wsfe.c, wrtfmt.c */
  57.  
  58. /* 28 Nov. 1989: corrections for IEEE and Cray arithmetic */
  59. /* 29 Nov. 1989: change various int return types to long for f2c */
  60. /* 30 Nov. 1989: various types from f2c.h */
  61. /*  6 Dec. 1989: types corrected various places */
  62. /* 19 Dec. 1989: make iostat= work right for internal I/O */
  63. /*  8 Jan. 1990: add rsne, wsne -- routines for handling NAMELIST */
  64. /* 28 Jan. 1990: have NAMELIST read treat $ as &, general white
  65.          space as blank */
  66. /* 27 Mar. 1990: change an = to == in rd_L(rdfmt.c) so formatted reads
  67.          of logical values reject letters other than fFtT;
  68.          have nowwriting reset cf */
  69. /* 14 Aug. 1990: adjust lread.c to treat tabs as spaces in list input */
  70. /* 17 Aug. 1990: adjust open.c to recognize blank='Z...' as well as
  71.          blank='z...' when reopening an open file */
  72. /* 30 Aug. 1990: prevent embedded blanks in list output of complex values;
  73.          omit exponent field in list output of values of
  74.          magnitude between 10 and 1e8; prevent writing stdin
  75.          and reading stdout or stderr; don't close stdin, stdout,
  76.          or stderr when reopening units 5, 6, 0. */
  77. /* 18 Sep. 1990: add component udev to unit and consider old == new file
  78.          iff uinode and udev values agree; use stat rather than
  79.          access to check existence of file (when STATUS='OLD')*/
  80. /* 2 Oct. 1990:  adjust rewind.c so two successive rewinds after a write
  81.          don't clobber the file. */
  82. /* 9 Oct. 1990:  add #include "fcntl.h" to endfile.c, err.c, open.c;
  83.          adjust g_char in util.c for segmented memories. */
  84. /* 17 Oct. 1990: replace abort() and _cleanup() with calls on
  85.          sig_die(...,1) (defined in main.c). */
  86. /* 5 Nov. 1990:  changes to open.c: complain if new= is specified and the
  87.          file already exists; allow file= to be omitted in open stmts
  88.          and allow status='replace' (Fortran 90 extensions). */
  89. /* 11 Dec. 1990: adjustments for POSIX. */
  90. /* 15 Jan. 1991: tweak i_ungetc in rsli.c to allow reading from
  91.          strings in read-only memory. */
  92. /* 25 Apr. 1991: adjust namelist stuff to work with f2c -i2 */
  93. /* 26 Apr. 1991: fix some bugs with NAMELIST read of multi-dim. arrays */
  94. /* 16 May 1991:  increase LEFBL in lio.h to bypass NeXT bug */
  95.