3
/* Revision 1.2 2002/06/01 18:23:54 sherrill
4
/* Upgrade doxygen documentation
6
/* Revision 1.1.1.1 2000/02/04 22:53:24 evaleev
7
/* Started PSI 3 repository
9
/* Revision 2.5 1999/11/01 20:11:01 evaleev
10
/* Added explicit extern declarations of functions within the library.
12
/* Revision 2.4 1997/09/12 13:53:09 crawdad
13
/* Changing marco name from ULL to PSI_FPTR.
15
* Revision 2.3 1997/08/25 21:50:14 crawdad
16
* Making changes for extension of PSI file size limit.
18
* Revision 2.2 1995/04/01 20:53:12 fermann
19
* changed bytewise file pointers such as first, last and length to long
20
* unsigned ints in order to handle up to 4 gigabyte tmp files (striped into
21
* individual pieces of less than 2 gigabytes). added functions li2sec and
22
* sec2li for where they are needed.
24
* Revision 2.1 1991/06/15 18:30:18 seidl
25
* *** empty log message ***
28
static char *rcsid = "$Id: wwritw.c,v 1.2 2002/06/01 18:23:54 sherrill Exp $";
35
#include "iomrparam.h"
39
extern void iowrr_(int *, char *, PSI_FPTR *, int *);
42
** wwritw: writes nwords bytes to unit from buffer starting at fword
43
** and returns nxtwrd which is the current pointer location.
45
** \param unit = file number
46
** \param buffer = buffer holding info to write
47
** \param nwords = number of bytes to write
48
** \param fword = file pointer to where to put first byte written
49
** \param nxtwrd = file pointer to next byte on disk (returned value)
53
void wwritw(int unit, char *buffer, int nwords, PSI_FPTR fword,
56
iowrr_(&unit,buffer,&fword,&nwords);
57
*nxtwrd = fword + nwords;
58
ptr.wptr[unit]= *nxtwrd;