Return to sysem.c CVS log

Up to [Research Unix] / researchv10no / cmd / spitbol / cint

Annotation of researchv10no/cmd/spitbol/cint/sysem.c, revision 1.1.1.1

1.1       root        1: /*
                      2:  *     sysem
                      3:  *
                      4:  *     wa: error code number on input
                      5:  *     xr: pointer to scblk with message text on output
                      6:  */
                      7: 
                      8: #include "osint.h"
                      9: #include "spitblks.h"
                     10: 
                     11: #define MSGFILE "/usr/lib/vaxspitv35.err"
                     12: #define MSGCHUNK 49
                     13: 
                     14: extern struct scblk    tscblk;
                     15: 
                     16: sysem()
                     17: {
                     18:        long msg;
                     19:        static int fd = -1;
                     20:        register char *p;
                     21: 
                     22:        msg = WA(long);
                     23: 
                     24:        /* any premature return gives a null result */
                     25:        SET_XR( &tscblk );
                     26:        tscblk.len = 0;
                     27: 
                     28:        /* we keep a file descriptor open after the first message */
                     29:        if (fd < 0) {
                     30:                fd = open (MSGFILE, 0);
                     31:                if (fd < 0)
                     32:                        return 0;
                     33:        }
                     34: 
                     35:        /* calculate how far into the file to go and go there */
                     36:        if (lseek (fd, (msg - 1) * MSGCHUNK, 0) < 0)
                     37:                return 0;
                     38: 
                     39:        /* read the message, check for success */
                     40:        if (read (fd, tscblk.str, MSGCHUNK - 1) != MSGCHUNK - 1)
                     41:                return 0;
                     42: 
                     43:        /* cut trailing blanks */
                     44:        p = tscblk.str + MSGCHUNK - 2;
                     45:         while ( *p == ' '  &&  p > tscblk.str )
                     46:                p--;
                     47: 
                     48:        /* insert message length and return */
                     49:        tscblk.len = p - tscblk.str + 1;
                     50:        return NORMAL_RETURN;
                     51: }
                     52: 

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.