Listing 4: checker.x

/*
*   Filename checker.x
*   Author C M King
*   Version 1.1
*   Date    05 Nov 1993
*
*/

const NAMELEN = 225;

typedef string nametype<NAMELEN>;
typedef struct namenode *namelist;

struct namenode {
namelist next;
int result;
nametype err_string;
};

union access_struct switch (int errno) {
case 0 :
namelist list;
default:
void;
};


program DIRPROG {
version DIRVERS {
access_struct ACCESS(string) = 1;
} = 1;
} =  0x20000076;