7
/* Revision 1.3 2002/06/01 18:23:54 sherrill
8
/* Upgrade doxygen documentation
10
/* Revision 1.2 2002/04/19 21:48:06 sherrill
11
/* Remove some unused functions and do doxygen markup of libciomr.
13
/* Revision 1.1.1.1 2000/02/04 22:53:24 evaleev
14
/* Started PSI 3 repository
16
/* Revision 2.5 1999/11/01 20:11:00 evaleev
17
/* Added explicit extern declarations of functions within the library.
19
/* Revision 2.4 1997/09/12 13:53:08 crawdad
20
/* Changing marco name from ULL to PSI_FPTR.
22
* Revision 2.3 1997/08/25 21:50:13 crawdad
23
* Making changes for extension of PSI file size limit.
25
* Revision 2.2 1995/04/01 20:53:11 fermann
26
* changed bytewise file pointers such as first, last and length to long
27
* unsigned ints in order to handle up to 4 gigabyte tmp files (striped into
28
* individual pieces of less than 2 gigabytes). added functions li2sec and
29
* sec2li for where they are needed.
31
* Revision 2.1 1991/06/15 18:30:17 seidl
32
* *** empty log message ***
35
static char *rcsid = "$Id: wreadw.c,v 1.3 2002/06/01 18:23:54 sherrill Exp $";
37
#include "iomrparam.h"
41
extern void iordr_(int *, char *, PSI_FPTR *, int *);
45
** wreadw: reads size bytes from tape into buffer starting at fword.
46
** nxtwrd is modified to give the new current pointer location after the
47
** read operation is completed.
49
** \param tape = file number
50
** \param buffer = buffer to store read information
51
** \param size = number of bytes to be read
52
** \param fword = first byte of buffer to be read
53
** \param nxtwrd = pointer to hold file pointer position after read
57
void wreadw(int tape, char *buffer, int size, PSI_FPTR fword, PSI_FPTR *nxtwrd)
59
iordr_(&tape,buffer,&fword,&size);
60
*nxtwrd = fword + size;
61
ptr.wptr[tape] = *nxtwrd;