ifileio.h

Go to the documentation of this file.

/*  X-4
**
**   Copyright © Compaq Computer Corporation 1995.
**
**   Confidential computer software. Valid license from Compaq required for
**   possession, use or copying. Consistent with FAR 12.211 and 12.212, 
**   Commercial Computer Software, Computer Software Documentation, and 
**   Technical Data for Commercial Items are licensed to the U.S. Government 
**   under vendor's standard commercial license.
**
*/

/*
**++
**  FACILITY:  EXEC_INIT
**
**  MODULE DESCRIPTION:
**
**      This header file makes the necessary declarations for the EXEC_INIT file
**      I/O primitives used by 3PB support.
**
**  AUTHOR:
**
**      Richard W. Critz, Jr.
**
**  CREATION DATE:  30-Dec-1993
**
**  MODIFICATION HISTORY:
**
**      X-4     SCS             Sue Sommer                      10-Feb-2000
**              Add prototype for ifsetcase.  Update copyright.
**
**      -- Get version back in sync. --
**
**      X-2     RWC139          Richard W. Critz, Jr.            7-Jan-1994
**              Support multiple concurrently open files.  Work around the ctype
**              table problems in the kernel CRTL.
**              
**      X-1     RWC136          Richard W. Critz, Jr.           30-Dec-1993
**              Initial version.
**              
**--
*/

/*
**
**  INCLUDE FILES
**
*/
#include <wcbdef.h>

#ifndef SS$_CONFIG_SYNTAX
#define SS$_CONFIG_SYNTAX 9564
#endif

/*
** An RMS variable length record consists of a 16 bit length field followed by
** the actual data.
*/
#pragma member_alignment __save
#pragma nomember_alignment
typedef struct {
    short len;
    char data[512];
    } RECORD;
#pragma member_alignment __restore

#define BLKSIZE 512

typedef struct {
    WCB         *wcb;                   /* window control block pointer     */
    int         vbn;                    /* current VBN in config file       */
    int         size;                   /* actual allocated size            */
    RECORD      *current;               /* current (or next) record in file */
    RECORD      *last;                  /* pointer to "virtual" record at   */
                                        /* end of current block             */
    int         efblk;                  /* last VBN in file                 */
    int         ffbyte;                 /* first free byte in EFBLK         */
    int         as_is;                  /* if non-zero, no upcase in ifgets */
    char        buffer[BLKSIZE];        /* buffer for current block         */
} IFILE;

/*
** ifopen, ifclose, ifgets and irewind are all declared with the same arguments
** and returns as their ANSI counterparts.
*/
IFILE *ifopen(const char *filename, const char *mode);

int ifclose(IFILE *stream);

void irewind(IFILE *stream);

void ifsetcase (int n, IFILE *stream);

char *ifgets(char *s, int n, IFILE *stream);

/*
** TEMPORARY WORKAROUND:
**
**      isxdigit (and friends) don't work in the kernel CRTL because there are
**      too many levels of indirection introduced by the vector in the base
**      image for DECC$GA___CTYPE.  This works around that by replacing the
**      isxdigit macro with something that will work.  Note that the only places
**      where isxdigit is used in 3PB support know they are working on uppercase
**      strings so there is no need to check for the characters [a-f].  Thus the
**      check is for [0-9A-F].
*/
#ifdef isxdigit
#undef isxdigit
#endif

#define isxdigit(c) (((c) >= '0' && (c) <= '9') || ((c) >= 'A' && (c) <= 'F'))

/*
**      These are used for error reporting
*/

#define IFILE_OP_OPEN   1
#define IFILE_OP_CLOSE  2
#define IFILE_OP_READ   3
#define IFILE_OP_REWIND 4

#define IFILE_IR_LDR    1
#define IFILE_IR_MEM    2
#define IFILE_IR_QIO    3

extern int    ifile_operation;
extern int    ifile_detail;
extern int    ifile_status;
extern short  ifile_iosb[4];

Project space on SourceForge.net