here
heredoc->here = np;
struct heredoc *here;
here = saveheredoclist;
if (here != NULL) {
while (here->next != NULL)
here = here->next;
here->next = heredoclist;
struct heredoc *here = heredoc;
if (here->striptabs) {
here->eofmark = wordtext;
here->next = NULL;
heredoclist = here;
p->next = here;
struct heredoc *here;
here = heredoclist;
heredoclist = here->next;
readtoken1(pgetc(), here->here->type == NHERE? SQSYNTAX : DQSYNTAX,
here->eofmark, here->striptabs);
here->here->nhere.doc = n;
union node *here; /* redirection node */
&ctx->here))) {
if (ctx->here)
kg_release_name(context, &ctx->here);
krb5_gss_name_t here;
if ((code = kg_duplicate_name(context, cred->name, &ctx->here)))
cred, k_cred, ctx->here->ad_context,
if (ctx_free->here)
kg_release_name(context, &ctx_free->here);
ctx->initiate ? ctx->here : ctx->there,
ctx->initiate ? ctx->there : ctx->here,
if (!kret && ctx->here)
kret = k5_size_principal(ctx->here->princ, &required);
initiator_name = ctx->initiate ? ctx->here : ctx->there;
if (!kret && ctx->here)
kret = k5_externalize_principal(ctx->here->princ,
initiator_name = ctx->initiate ? ctx->here : ctx->there;
KG_INIT_NAME_NO_COPY, &ctx->here);
initiator_name = ctx->initiate ? ctx->here : ctx->there;
if (ctx->here)
kg_release_name(kcontext, &ctx->here);
onestate here; /* note, macros know this name */
for (pc = start, INIT(here, pc); pc != stop; pc++, INC(here)) {
INIT(here, pc);
if (ISSTATEIN(aft, here)) {
#define FWD(dst, src, n) ((dst) |= ((unsigned long)(src)&(here)) << (n))
#define BACK(dst, src, n) ((dst) |= ((unsigned long)(src)&(here)) >> (n))
#define ISSETBACK(v, n) (((v) & ((unsigned long)here >> (n))) != 0)
#define FWD(dst, src, n) ((dst)[here+(n)] |= (src)[here])
#define BACK(dst, src, n) ((dst)[here-(n)] |= (src)[here])
#define ISSETBACK(v, n) ((v)[here - (n)])
goto here;
here:
pDict->here = alignPtr(pDict->here);
char *cp = (char *)pDict->here;
pDict->here = PTRtoCELL cp;
pDict->here += nCells;
pDict->here -= nCells;
pDict->here -= dictCellsUsed(pDict);
pDict->here += nCells;
*pDict->here++ = c;
char *cp = (char *)pDict->here;
pDict->here = PTRtoCELL cp;
pFW = (FICL_WORD *)pDict->here;
pDict->here = pFW->param;
*pDict->here++ = LVALUEtoCELL(u);
return pDict->here - pDict->dict;
char *oldCP = (char *)pDict->here;
return (char *)pDict->here;
pDict->here = PTRtoCELL cp;
pHash = (FICL_HASH *)dp->here;
pDict->here = pDict->dict;
pHash = (FICL_HASH *)pDict->here;
return pDict->here;
dp->here = dp->dict;
pDict->here = (CELL *)pFW->name;
CELL *here;
hashForget(pHash, pDict->here);
pDict->here = PTRtoCELL where;
nWords, (long) (dp->here - dp->dict), dp->size);
nWords, (long) (dp->here - dp->dict), dp->size);
offset = dp->here - patchAddr;
offset = patchAddr - dp->here;
offset = dp->here - patchAddr;
FICL_INT offset = dp->here - fallthroughFixup;
PUSHPTR(dp->here);
offset = dp->here - patchAddr;
PUSHPTR(dp->here);
offset = dp->here - patchAddr;
offset = dp->here - patchAddr;
*patchAddr = LVALUEtoCELL(dp->here);
PUSHPTR(dp->here);
FICL_STRING *sp = (FICL_STRING *) dp->here;
dp->here = PTRtoCELL vmGetString(pVM, (FICL_STRING *)dp->here, '\"');
dp->here = PTRtoCELL vmGetString(pVM, (FICL_STRING *)dp->here, '\"');
cpDest = (char *) dp->here;
dp->here = PTRtoCELL alignPtr(cpDest);
FICL_STRING *sp = (FICL_STRING *) dp->here;
dp->here = PTRtoCELL vmGetString(pVM, (FICL_STRING *)dp->here, '\"');
pVM->pSys->pMarkLocals = pDict->here;
pVM->pSys->pMarkLocals = pDict->here;
dictAppendWord(dp, "here", here, FW_DEFAULT);
PUSHPTR(dp->here);
struct ext2fs_extattr_entry *here;
here = EXT2_ENTRY(header+1);
while (!EXT2_IS_LAST_ENTRY(here)) {
if (here->e_hash == 0) {
le32toh(here->e_hash);
here = EXT2_EXTATTR_NEXT(here);
#define NG_FWD_MSG_HOOK(error, here, item, hook, retaddr) \
if (((error) = ng_address_hook((here), (item), \
#define NG_RESPOND_MSG(error, here, item, resp) \
if ((error = ng_address_ID((here), (item), \
int ng_address_ID(node_p here, item_p item, ng_ID_t ID, ng_ID_t retaddr);
int ng_address_hook(node_p here, item_p item, hook_p hook, ng_ID_t retaddr);
int ng_address_path(node_p here, item_p item, const char *address, ng_ID_t raddr);
item_p ng_package_msg_self(node_p here, hook_p hook, struct ng_mesg *msg);
void ng_replace_retaddr(node_p here, item_p item, ng_ID_t retaddr);
int ng_rmnode_self(node_p here); /* if a node wants to suicide */
#define NG_SEND_MSG_HOOK(error, here, msg, hook, retaddr) \
if (((error) = ng_address_hook((here), (_item), \
#define NG_SEND_MSG_PATH(error, here, msg, path, retaddr) \
if (((error) = ng_address_path((here), (_item), \
#define NG_SEND_MSG_ID(error, here, msg, ID, retaddr) \
if (((error) = ng_address_ID((here), (_item), \
ng_path2noderef(node_p here, const char *address, node_p *destp,
node = ng_name2noderef(here, nodename);
if (here == NULL) {
node = here;
static int ng_generic_msg(node_p here, item_p item, hook_p lasthook);
int ng_path2noderef(node_p here, const char *path,
ng_generic_msg(node_p here, item_p item, hook_p lasthook)
ng_rmnode(here, NULL, NULL, 0);
error = ng_mkpeer(here, mkp->ourhook, mkp->peerhook, mkp->type);
error = ng_path2noderef(here, con->path, &node2, NULL);
error = ng_con_nodes(item, here, con->ourhook,
error = ng_name_node(here, nam->name);
if ((hook = ng_findhook(here, rmh->ourhook)) != NULL)
if (NG_NODE_HAS_NAME(here))
strcpy(ni->name, NG_NODE_NAME(here));
strcpy(ni->type, here->nd_type->name);
ni->id = ng_node2ID(here);
ni->hooks = here->nd_numhooks;
const int nhooks = here->nd_numhooks;
if (NG_NODE_HAS_NAME(here))
strcpy(ni->name, NG_NODE_NAME(here));
strcpy(ni->type, here->nd_type->name);
ni->id = ng_node2ID(here);
LIST_FOREACH(hook, &here->nd_hooks, hk_hooks) {
for (c = here->nd_type->cmdlist; c != NULL && c->name != NULL;
for (c = here->nd_type->cmdlist;
if (here->nd_type->rcvmsg != NULL) {
return((*here->nd_type->rcvmsg)(here, item, lasthook));
NG_RESPOND_MSG(error, here, item, resp);
#define SET_RETADDR(item, here, retaddr) \
= ng_node2ID(here); \
ng_address_hook(node_p here, item_p item, hook_p hook, ng_ID_t retaddr)
SET_RETADDR(item, here, retaddr);
ng_address_path(node_p here, item_p item, const char *address, ng_ID_t retaddr)
error = ng_path2noderef(here, address, &dest, &hook);
SET_RETADDR(item, here, retaddr);
ng_address_ID(node_p here, item_p item, ng_ID_t ID, ng_ID_t retaddr)
SET_RETADDR(item, here, retaddr);
ng_package_msg_self(node_p here, hook_p hook, struct ng_mesg *msg)
NG_NODE_REF(here);
NGI_SET_NODE(item, here);
NGI_RETADDR(item) = ng_node2ID(here);
ng_replace_retaddr(node_p here, item_p item, ng_ID_t retaddr)
NGI_RETADDR(item) = ng_node2ID(here);
ng_name2noderef(node_p here, const char *name)
NG_NODE_REF(here);
return(here);
if (getcwd(here, sizeof(here)) == NULL)
static char here[MAXPATHLEN + 1];
chdir(here);