DataMuseum.dk

top - download

    Length: 8476 (0x211c)
    Types: TextFile
    Notes: UNIX file
    Names: »sh.h«

└─⟦f27320a65⟧ Bits:30001972 Commodore 900 hard disk image with partial source code
    └─⟦f4b8d8c84⟧ UNIX V7 Filesystem
        └─ ⟦this⟧ »cmd/rsh/sh.h« 
        └─ ⟦this⟧ »cmd/sh/sh.h« 

TextFile

/*
 * A shell.
 * Header file.
 */

#include <stdio.h>
#include <setjmp.h>

#define STRSIZE	2000			/* Maximum length of single token */
#define IALSIZE	8			/* Initial argument list size */
#define NOTREACHED	return

/*
 * Masks for looking up lextab.
 */
#define MNQUO	0001		/* Special in argument */
#define MDQUO	0002		/* Special in double quotes */
#define MHERE	0004		/* Special in here document */
#define MRVAR	(MBVAR|MDIGI)		/* Valid in regular variable name */
#define MSVAR	0010		/* Valid in special variable name */
#define MDIGI	0020		/* Is an ascii digit */
#define MBVAR	0040		/* Valid 1st char in regular var name */
#define MNAME	0100		/* Does not start a name */
#define MGLOB	0200		/* Must call glob */

/*
 * Determine if a character is a member of the given class.
 * (This depends of the fact that EOF == -1).
 */
#define class(c, m)	(c>=EOF && c<=0177 && (lextab[1+c]&m))

/*
 * Types of nodes.
 */
#define NNULL	0			/* Null */
#define NFOR	1			/* For */
#define NCASE	2			/* Case */
#define NWHILE	3			/* While */
#define NUNTIL	4			/* Until */
#define NIF	5			/* If */
#define NELSE	6			/* Else */
#define NCOMS	7			/* Command sequence */
#define NLIST	8			/* Command list */
#define NBACK	9			/* Background process */
#define NPIPE	10			/* Pipe */
#define NPARN	11			/* New shell */
#define NBRAC	12			/* Command group */
#define NANDF	13			/* Logical and operator */
#define NORF	14			/* Logical or operator */
#define NARGS	15			/* Argument string */
#define NIORS	16			/* Redirection of io */
#define NASSG	17			/* Assignment keyword */
#define NFOR2	18			/* Second part for, in list scan */
#define NCASE2	19			/* Second part case, command */
#define NCASE3	20			/* Third part case, pattern */
#define NCTRL	21			/* Control statement in list */
#define NRPIPE	22			/* Named pipe for read */
#define NWPIPE	23			/* Named pipe for write */

/*
 * Node.
 */
typedef	union	node {
	struct {
		int	n_type;		/* Type of node */
		struct	node *n_next;	/* Pointer to next */
		struct	node *n_auxp;	/* Auxiliary pointer */
	};
	struct {
		int	n_type;		/* Type of node */
		struct	node *n_next;	/* Pointer to next */
		char	*n_strp;	/* Pointer to string */
	};
} NODE;

/*
 * Flags in variables.
 */
#define VEXP	001			/* Variable is exported */
#define VRDO	002			/* Read only */
#define VSET	004			/* Variable is used by shell */

/*
 * Enviroment list and variable structure.
 */
typedef	struct	var {
	int	v_flag;			/* Flags */
	struct	var *v_next;		/* Pointer to next entry */
	char	*v_strp;		/* Pointer to string */
} VAR;

/*
 * Buffer structure.
 */
typedef	struct	buf {
	struct	buf *b_next;		/* Pointer to next */
	int	b_size;			/* Size of buffer */
} BUF;

/*
 * Per executing command data structure.
 * Used for break/continue.
 */
typedef	struct	con {
	struct	con *c_next;		/* Pointer to next */
	NODE	*c_node;		/* Node which created this control */
	BUF	**c_bpp;		/* Current free buffer */
	jmp_buf	c_envl;			/* Enviroment list */
} CON;

/*
 * Session types.
 */
#define SINIT	0	/* Initial session */
#define SARGS	1	/* String */
#define SARGV	2	/* Vector of strings */
#define SFILE	3	/* File name */
#define SSTR	4	/* Open stream */

/*
 * Per session information structure.
 */
typedef struct ses {
	struct	ses	*s_next;
	int		s_type;
	int		s_flag;
	NODE		*s_node;
	CON		*s_con;
	BUF		**s_bpp;
	jmp_buf		s_envl;
	char		*s_strp;
	char		**s_argv;
	FILE		*s_ifp;
} SES;

/*
 * Session long jump codes
 */
#define RSET	0	/* Initial setjmp call */
#define REOF	1	/* parse matched start */
#define RCMD	2	/* parse matched command line */
#define RERR	3	/* parse matched error */
#define RINT	4	/* Interrupt recovery */
#define RNOSBRK	5	/* no more memory from alloc */
#define RSYSER	6	/* system returned -1 */
#define RUABORT	7	/* user requested error abort */
#define RUEXITS	8	/* user requested exit command */
#define RBRKCON	9	/* break or continue beyond program */
#define RNOWAY	10	/* Shell assertion failed */

/*
 * Interrupt recovery and set contexts.
 * Used to determine recovery action and default signals.
 */
#define IRDY	0	/* In session */
#define	ILEX	1	/* Parse in progress */
#define ICMD	2	/* Prior to next command execution */
#define IEVAL	3	/* Command evaluation in progress */
#define IBACK	4	/* Background process */
#define IFORK	5	/* Child after fork */

/*
 * Evaluation contexts.
 */
#define EWORD	0	/* Evaluate $N, `cmd`, strip quotes */
#define EHERE	1	/* Evaluate $N, `cmd`, ignore quotes */
#define EARGS	2	/* Evaluete $N, `cmd`, strip quotes, *?[, blanks */
#define EPATT	3	/* Evaluate for pattern match */

/*
 * Global variables.
 *	Run time and set time flags.
 */
extern 	char	shflags[];		/* Flag array */
extern	char	shfnams[];		/* Flag name array */

#define eflag	shflags[0]		/* Exit on non-zero status */
#define kflag	shflags[1]		/* All assignments into environ */
#define nflag	shflags[2]		/* Do not execute commands */
#define pflag	shflags[3]		/* Unknown */
#define tflag	shflags[4]		/* Exit after read/exec one command */
#define uflag	shflags[5]		/* Unset variables are errors */
#define vflag	shflags[6]		/* Print input as read */
#define xflag	shflags[7]		/* Print commands as executed */

#define cflag	shflags[8]		/* Execute argument as command */
#define iflag	shflags[9]		/* Be interactive shell */
#define rflag	shflags[10]		/* Restricted shell */
#define sflag	shflags[11]		/* input<&0, output>&2 */

#define lgnflag	shflags[12]		/* Login shell */
#define no1flag	shflags[13]		/* Invoked shell */
#define bckflag	shflags[14]		/* Background process */
#define nllflag shflags[15]		/* Forked shell */
#define cmdflag	shflags[16]		/* Command file processor */

/* Shell status housekeeping */
extern	jmp_buf	restart;		/* Restart execution context */
extern	int	sargc;			/* Argument count to shell */
extern	char	*sarg0;			/* Name shell called with */
extern	char	**sargv;		/* Argument vector to shell */
extern	char	**senvp;		/* Environment vector to shell */
extern	char	**sargp;		/* Current argument to shell */
extern	int	nargc;			/* New argument count, for command */
extern	char	**nargv;		/* New argument vector, for command */
extern	char	**nenvp;		/* New environment, for command */
extern	char	**niovp;		/* Io redirection, for command */
extern	NODE	 *nctlp;		/* Control node, for command */
extern	SES	*sesp;			/* Current session structure */
extern	int	yyline;			/* Yacc command line counter */
extern	int	shpid;			/* Shell's process id */
extern	int	slret;			/* Exit status of last command */
extern	int	sback;			/* Pid of last background command */
extern	int	spipe;			/* Pid of last pipe process */
extern	int	ufmask;			/* File creation mask */
/* Other internal flags. */
extern	int	comflag;		/* Command line is complete?? */
extern	int	errflag;		/* Set by call to printe */
extern	int	keyflag;		/* Look for keyword in next word */
extern	int	noeflag;		/* Turn off errors */
extern	int	prpflag;		/* Do prompt before next read */
/* Parameters used by shell. */
extern	char	*vhome;			/* Home directory */
extern	char	*vpath;			/* Search pathname */
extern	char	*vmail;			/* Mail file */
extern	char	*vps1;			/* Prompt string 1 */
extern	char	*vps2;			/* Prompt string 2 */
extern	char	*vifs;			/* Internal field seperators */
extern	char	*vshell;		/* Shell to use */
/* Shell data */
extern	char	strt[STRSIZE];		/* String buffer */
extern	char	*strp;			/* Pointer in string buffer */
extern	VAR	*varp;			/* Pointer to shell variables */
/* Tables */
extern	char	lextab[];		/* Character type table */
/* Data external to shell */
extern	int	errno;			/* System call error number */
extern	char	*signame[];		/* Wait status message table */

/*
 * Functions.
 */
extern	char	*shtmp();		/* in main.c */
extern	char	*salloc();		/* in alloc.c */
extern	char	*balloc();		/* in alloc.c */
extern	char	*duplstr();		/* in alloc.c */
extern	char	**makargl();		/* in alloc.c */
extern	char	**addargl();		/* in alloc.c */
extern	BUF	**savebuf();		/* in alloc.c */
extern	char	**vdupl();		/* in alloc.c */
extern	char	*any();			/* in glob.c */
extern	int	sigintr();		/* in trap.c */
extern	VAR	*findvar();		/* in var.c */
extern	VAR	*setsvar();		/* in var.c */
extern	VAR	*flagvar();		/* in var.c */
extern	VAR	*assnvar();		/* in var.c */
extern	char	*convvar();		/* in var.c */
extern	char	**envlvar();		/* in var.c */
extern	char	*index();		/* in /lib/libc.a */
extern	char	*strcpy();		/* in /lib/libc.a */
extern	char	*strncpy();		/* in /lib/libc.a */
extern	char	*strcat();		/* in /lib/libc.a */