trestore.c revision 3e14f97f673e8a630f076077de35afdd43dc1587
9512fe850e98fdd448c638ca63fdd92a8a510255ahl/***********************************************************************
9512fe850e98fdd448c638ca63fdd92a8a510255ahl* This software is part of the ast package *
9512fe850e98fdd448c638ca63fdd92a8a510255ahl* Copyright (c) 1982-2010 AT&T Intellectual Property *
9512fe850e98fdd448c638ca63fdd92a8a510255ahl* and is licensed under the *
9512fe850e98fdd448c638ca63fdd92a8a510255ahl* Common Public License, Version 1.0 *
9512fe850e98fdd448c638ca63fdd92a8a510255ahl* by AT&T Intellectual Property *
9512fe850e98fdd448c638ca63fdd92a8a510255ahl* A copy of the License is available at *
9512fe850e98fdd448c638ca63fdd92a8a510255ahl* (with md5 checksum 059e8cd6165cb4c31e351f2b69388fd9) *
9512fe850e98fdd448c638ca63fdd92a8a510255ahl* Information and Software Systems Research *
9512fe850e98fdd448c638ca63fdd92a8a510255ahl* AT&T Research *
9512fe850e98fdd448c638ca63fdd92a8a510255ahl* Florham Park NJ *
9512fe850e98fdd448c638ca63fdd92a8a510255ahl* David Korn <dgk@research.att.com> *
9512fe850e98fdd448c638ca63fdd92a8a510255ahl***********************************************************************/
9512fe850e98fdd448c638ca63fdd92a8a510255ahl * David Korn
9512fe850e98fdd448c638ca63fdd92a8a510255ahl * AT&T Labs
9512fe850e98fdd448c638ca63fdd92a8a510255ahl * shell intermediate code reader
9512fe850e98fdd448c638ca63fdd92a8a510255ahl#define getnode(s,type) ((Shnode_t*)stkalloc((s),sizeof(struct type)))
9512fe850e98fdd448c638ca63fdd92a8a510255ahl return(t);
9512fe850e98fdd448c638ca63fdd92a8a510255ahl * read in a shell tree
9512fe850e98fdd448c638ca63fdd92a8a510255ahl register int type;
9512fe850e98fdd448c638ca63fdd92a8a510255ahl register Shnode_t *t=0;
9512fe850e98fdd448c638ca63fdd92a8a510255ahl return(t);
case TIF:
case TWH:
case TLST:
case TAND:
case TORF:
case TFIL:
case TARITH:
case TFOR:
case TSW:
case TFUN:
case TTST:
if(!aptop)
if(ap)
return(aptop);
if(!ioptop)
if(iop)
return(ioptop);
char *cmdname=0;
if(cmdname)
char *cp;
*cp = 0;
register char **argv;
return(dol);
if(!regtop)
if(reg)
return(regtop);
register char *ptr;
return(NIL(char*));
return(NIL(char*));
ptr[l] = 0;
return(ptr);