/* Distance of nodes 'src' and 'dest' */
int distance(Graph *graph, int src, int dest) {
int i;
// Find a path of distance i=1,2,3,....,N-1 (N = No of nodes)
for(i=1; i<graph->V; i++) {
if(ispath(graph, i, src, dest, NO_RESET) == 1)
return i;
ispath(NULL, -1, -1, -1, RESET);
}
return -1;
}
isis()
{
BYTE opcode;
if ((WORD)savepc != 0x41) /* not an ISIS-II call? */
{
monitor(); /* must be an MDS monitor call */
return;
}
switch(savebc & 0xff) /* it's an ISIS-II trap - do the right thing */
{
case 0:
iopen((OBLK *)savede); /* OPEN call */
break;
case 1:
iclose((CBLK *)savede); /* CLOSE call */
break;
case 2:
idelete((DBLK *)savede); /* DELETE call */
break;
case 3:
iread((RBLK *)savede); /* READ call */
break;
case 4:
iwrite((WBLK *)savede); /* WRITE call */
break;
case 5:
iseek((SBLK *)savede); /* SEEK call */
break;
case 6:
iload((LBLK *)savede); /* LOAD call */
break;
case 7:
irename((RNBLK *)savede); /* RENAME call */
break;
case 9:
cleanup();
break;
case 11:
irescan((RSBLK *)savede); /* RESCAN call */
break;
case 12: /* ERROR call */
ierror((EBLK *)savede);
break;
case 14: /* SPATH call */
ispath((SPBLK *)savede);
break;
default:
print("\r\nIllegal ISIS-II function call ");
phexw(savebc);
print("\r\n");
break;
}
}
static void
exec_sh_c(char *cmd)
{
static char bin_sh[] = "/bin/sh";
char *sh, *shname;
int i;
#ifndef NOFILE
# define NOFILE 20
#endif
/* Make sure there are no upper inherited file descriptors */
for (i = 3; i < NOFILE; i++)
(void) close(i);
sh = user_SHELL();
if (isEmpty(sh)) {
sh = bin_sh;
shname = pathleaf(sh);
} else {
shname = last_slash(sh);
if (shname == NULL) {
shname = sh;
} else {
shname++;
if (*shname == EOS)
shname = sh;
}
}
if (cmd) {
#if SYS_OS2_EMX
/*
* OS/2 EMX accepts forward and backward slashes
* interchangeably except in one special case -
* invoking the OS/2 cmd.exe program for syntax
* filters. That accepts only backslashes if we put a
* ".exe" suffix on the pathname.
*/
for (i = 0; ispath(cmd[i]); i++)
if (cmd[i] == '/')
cmd[i] = '\\';
#endif
(void) execlp(sh, shname, SHELL_C, cmd, (void *) 0);
} else {
(void) execlp(sh, shname, (void *) 0);
}
IGNORE_RC(write(2, "exec failed\r\n", (size_t) 14));
exit(-1);
}
/* Is there a path of distance d from src to dest in graph. */
int ispath(Graph *g, int d, int src, int dest, int opt) {
static int visited[50] = {0};
// When opt=RESET, this function will only clear the visited[] array and return. This is an important thing to do.
// Otherwise, the old values of the array visited[] retains across future calls to this function.
if(opt == RESET) {
clear(visited, 50);
return RESET;
}
// Empty graph
if(g == NULL)
return -1;
if((src>=g->V) || (dest>=g->V)) // Nodes does not exist
return -1;
if(src == dest)
return 1;
if(d <= 0)
return 0; // Not path exists
if(visited[src])
return 0; // Already visited this node before and there was no path to 'dest' from here. So no need to re-examine it.
visited[src] = 1; // Indicates that the node is visited somewhere before
Node *ptr;
for(ptr=g->ListArray[src].head; ptr!=NULL; ptr=ptr->next)
if(ptr->data == dest) // A termination point
return 1; // Path exists
for(ptr=g->ListArray[src].head; ptr!=NULL; ptr=ptr->next)
if(ispath(g, d-1, ptr->data, dest, NO_RESET)) // Another termination point
return 1;
return 0;
}
/* also called later, if charset-affecting modes change, for instance */
void
vl_ctype_init(int print_lo, int print_hi)
{
#if OPT_LOCALE
char *save_ctype = setlocale(LC_CTYPE, NULL);
#endif
int c;
TRACE((T_CALLED "vl_ctype_init() lo=%d, hi=%d\n",
print_lo,
print_hi));
/* If we're using the locale functions, set our flags based on its
* tables. Note that just because you have 'setlocale()' doesn't mean
* that the tables are present or correct. But this is a start.
*
* NOTE: Solaris8 and some versions of M$ incorrectly classify tab as a
* printable character (ANSI C says control characters are not printable).
* Ignore that (the former fixes it in Solaris9).
*/
#if OPT_LOCALE
TRACE(("wide_locale:%s\n", NonNull(vl_wide_enc.locale)));
TRACE(("narrow_locale:%s\n", NonNull(vl_narrow_enc.locale)));
TRACE(("current_locale:%s\n", NonNull(save_ctype)));
if (vl_narrow_enc.locale)
setlocale(LC_CTYPE, vl_narrow_enc.locale);
else if (vl_wide_enc.locale)
setlocale(LC_CTYPE, vl_wide_enc.locale);
for (c = 0; c < N_chars; c++) {
if (print_hi > 0 && c > print_hi) {
vlCTYPE(c) = 0;
} else if (okCTYPE2(vl_narrow_enc)) {
vlCTYPE(c) = vl_ctype_bits(c, -TRUE);
vl_uppercase[c] = (char) toupper(c);
vl_lowercase[c] = (char) tolower(c);
} else {
/* fallback to built-in character tables */
if (okCTYPE2(vl_wide_enc)) {
vlCTYPE(c) = vl_ctype_latin1[c];
} else {
vlCTYPE(c) = vl_ctype_ascii[c];
}
vl_uppercase[c] = (char) c;
vl_lowercase[c] = (char) c;
if (isAlpha(c)) {
if (isUpper(c)) {
vl_lowercase[c] = (char) (c ^ DIFCASE);
} else {
vl_uppercase[c] = (char) (c ^ DIFCASE);
}
}
}
}
#else /* ! OPT_LOCALE */
(void) memset((char *) vl_chartypes_, 0, sizeof(vl_chartypes_));
/* control characters */
for (c = 0; c < ' '; c++)
vlCTYPE(c) |= vl_cntrl;
vlCTYPE(127) |= vl_cntrl;
/* lowercase */
for (c = 'a'; c <= 'z'; c++)
vlCTYPE(c) |= vl_lower;
#if OPT_ISO_8859
for (c = 0xc0; c <= 0xd6; c++)
vlCTYPE(c) |= vl_lower;
for (c = 0xd8; c <= 0xde; c++)
vlCTYPE(c) |= vl_lower;
#endif
/* uppercase */
for (c = 'A'; c <= 'Z'; c++)
vlCTYPE(c) |= vl_upper;
#if OPT_ISO_8859
for (c = 0xdf; c <= 0xf6; c++)
vlCTYPE(c) |= vl_upper;
for (c = 0xf8; c <= 0xff; c++)
vlCTYPE(c) |= vl_upper;
#endif
/*
* If you want to do this properly, compile-in locale support.
*/
for (c = 0; c < N_chars; c++) {
vl_uppercase[c] = (char) c;
vl_lowercase[c] = (char) c;
if (isAlpha(c)) {
if (isUpper(c)) {
vl_lowercase[c] = (char) (c ^ DIFCASE);
} else {
vl_uppercase[c] = (char) (c ^ DIFCASE);
}
}
}
/* digits */
for (c = '0'; c <= '9'; c++)
vlCTYPE(c) |= vl_digit;
#ifdef vl_xdigit
/* hex digits */
for (c = '0'; c <= '9'; c++)
vlCTYPE(c) |= vl_xdigit;
for (c = 'a'; c <= 'f'; c++)
vlCTYPE(c) |= vl_xdigit;
for (c = 'A'; c <= 'F'; c++)
vlCTYPE(c) |= vl_xdigit;
#endif
/* punctuation */
for (c = '!'; c <= '/'; c++)
vlCTYPE(c) |= vl_punct;
for (c = ':'; c <= '@'; c++)
vlCTYPE(c) |= vl_punct;
for (c = '['; c <= '`'; c++)
vlCTYPE(c) |= vl_punct;
for (c = L_CURLY; c <= '~'; c++)
vlCTYPE(c) |= vl_punct;
#if OPT_ISO_8859
for (c = 0xa1; c <= 0xbf; c++)
vlCTYPE(c) |= vl_punct;
#endif
/* printable */
for (c = ' '; c <= '~'; c++)
vlCTYPE(c) |= vl_print;
/* whitespace */
vlCTYPE(' ') |= vl_space;
#if OPT_ISO_8859
vlCTYPE(0xa0) |= vl_space;
#endif
vlCTYPE('\t') |= vl_space;
vlCTYPE('\r') |= vl_space;
vlCTYPE('\n') |= vl_space;
vlCTYPE('\f') |= vl_space;
#endif /* OPT_LOCALE */
/* legal in pathnames */
vlCTYPE('.') |= vl_pathn;
vlCTYPE('_') |= vl_pathn;
vlCTYPE('~') |= vl_pathn;
vlCTYPE('-') |= vl_pathn;
vlCTYPE('/') |= vl_pathn;
/* legal in "identifiers" */
vlCTYPE('_') |= vl_ident | vl_qident;
vlCTYPE(':') |= vl_qident;
#if SYS_VMS
vlCTYPE('$') |= vl_ident | vl_qident;
#endif
c = print_lo;
/*
* Guard against setting printing-high before printing-low while we have a
* buffer which may be repainted and possibly trashing the display.
*/
if (c == 0
&& print_hi >= 254)
c = 160;
if (c < HIGHBIT)
c = HIGHBIT;
TRACE(("Forcing printable for [%d..min(%d,%d)]\n",
c, print_hi - 1, N_chars - 1));
while (c <= print_hi && c < N_chars)
vlCTYPE(c++) |= vl_print;
#if DISP_X11
for (c = 0; c < N_chars; c++) {
if (isPrint(c) && !gui_isprint(c)) {
vlCTYPE(c) &= ~vl_print;
}
}
#endif
/* backspacers: ^H, rubout */
vlCTYPE('\b') |= vl_bspace;
vlCTYPE(127) |= vl_bspace;
/* wildcard chars for most shells */
vlCTYPE('*') |= vl_wild;
vlCTYPE('?') |= vl_wild;
#if !OPT_VMS_PATH
#if SYS_UNIX
vlCTYPE('~') |= vl_wild;
#endif
vlCTYPE(L_BLOCK) |= vl_wild;
vlCTYPE(R_BLOCK) |= vl_wild;
vlCTYPE(L_CURLY) |= vl_wild;
vlCTYPE(R_CURLY) |= vl_wild;
vlCTYPE('$') |= vl_wild;
vlCTYPE('`') |= vl_wild;
#endif
/* ex mode line specifiers */
vlCTYPE(',') |= vl_linespec;
vlCTYPE('%') |= vl_linespec;
vlCTYPE('-') |= vl_linespec;
vlCTYPE('+') |= vl_linespec;
vlCTYPE(';') |= vl_linespec;
vlCTYPE('.') |= vl_linespec;
vlCTYPE('$') |= vl_linespec;
vlCTYPE('\'') |= vl_linespec;
/* fences */
vlCTYPE(L_CURLY) |= vl_fence;
vlCTYPE(R_CURLY) |= vl_fence;
vlCTYPE(L_PAREN) |= vl_fence;
vlCTYPE(R_PAREN) |= vl_fence;
vlCTYPE(L_BLOCK) |= vl_fence;
vlCTYPE(R_BLOCK) |= vl_fence;
#if OPT_VMS_PATH
vlCTYPE(L_BLOCK) |= vl_pathn;
vlCTYPE(R_BLOCK) |= vl_pathn;
vlCTYPE(L_ANGLE) |= vl_pathn;
vlCTYPE(R_ANGLE) |= vl_pathn;
vlCTYPE('$') |= vl_pathn;
vlCTYPE(':') |= vl_pathn;
vlCTYPE(';') |= vl_pathn;
#endif
#if OPT_MSDOS_PATH
vlCTYPE(BACKSLASH) |= vl_pathn;
vlCTYPE(':') |= vl_pathn;
#endif
#if OPT_WIDE_CTYPES
/* scratch-buffer-names (usually superset of vl_pathn) */
vlCTYPE(SCRTCH_LEFT[0]) |= vl_scrtch;
vlCTYPE(SCRTCH_RIGHT[0]) |= vl_scrtch;
vlCTYPE(' ') |= vl_scrtch; /* ...to handle "[Buffer List]" */
#endif
for (c = 0; c < N_chars; c++) {
if (!(isSpace(c)))
vlCTYPE(c) |= vl_nonspace;
if (isDigit(c))
vlCTYPE(c) |= vl_linespec;
if (isAlpha(c) || isDigit(c))
vlCTYPE(c) |= vl_ident | vl_pathn | vl_qident;
#if OPT_WIDE_CTYPES
if (isSpace(c) || isPrint(c))
vlCTYPE(c) |= vl_shpipe;
if (ispath(c))
vlCTYPE(c) |= vl_scrtch;
#endif
}
#if OPT_LOCALE
if (save_ctype != 0)
(void) setlocale(LC_CTYPE, save_ctype);
#endif
returnVoid();
}
