",
optionserver, localnodeport, no_extURL_PATH_INFO, parsav);
tag_toplink("Plotting and Other Operations...", gifs[PLOT_GIF]);
if (gifs[PLOT_GIF] != NULL) any_buttons_on_line_1 = TRUE;
}
/* If we are displaying buttons, and if we've displayed any so */
/* far, and if we have any left to display, "go to next line" */
/* I wonder if this should happen in a NOTOPLINKS environment... */
/* (See
comment, below) */
/* In order to find out about next line's buttons, we have to */
/* repeat a whole bunch of logic. Makes changing line structure, */
/* etc, a drag... */
if (any_buttons_on_line_1) {
any_buttons_on_line_2 = (flatlink && (gifs[FLAT_GIF] != NULL));
if ( ! any_buttons_on_line_2 )
if (lev0link)
if (maxlevel == 0) any_buttons_on_line_2 = (gifs[NOLEVEL0_GIF] != NULL);
else any_buttons_on_line_2 = (gifs[LEVEL0_GIF] != NULL);
if ( ! any_buttons_on_line_2 )
if (levnlink)
if (maxlevel == maxobjectlevel)
any_buttons_on_line_2 = (gifs[NOLEVELN_GIF] != NULL);
else
any_buttons_on_line_2 = (gifs[LEVELN_GIF] != NULL);
if (any_buttons_on_line_2) {
printf("");
print_vert_bar (NULL,TRUE);
}
}
if (lev0link) {
if (maxlevel == 0) {
ptr = " - At level 0 - ";
ptr1 = gifs[NOLEVEL0_GIF];
print_vert_bar (ptr1,FALSE);
printf("");
} else {
ptr = "Level 0";
ptr1 = gifs[LEVEL0_GIF];
print_vert_bar (ptr1,FALSE);
/* Level 0 button gets query string w/o selections/projections */
/* I still don't know why it doesn't keep any "original" se- */
/* lections/projections, but we certainly don't want any */
/* "clicked-on" selections. See comments up top for dis- */
/* cussion of preservation of inner's args */
/* QUERY_STRING_no_selections may be \0; has its own ? */
/* if needed */
printf ("",
JGOFS_DATA_CGI_SPEC, level0_PATH_INFO, QUERY_STRING_no_selections);
free(QUERY_STRING_no_selections);
}
tag_toplink(ptr, ptr1);
}
if (levnlink) {
if (maxlevel < maxobjectlevel) {
ptr = next_level;
ptr1 = gifs[LEVELN_GIF];
print_vert_bar (ptr1,FALSE);
printf ("",
JGOFS_DATA_CGI_SPEC, nextlevel_PATH_INFO, parsav);
sprintf(next_level,"Level %d (of %d)",maxlevel+1,maxobjectlevel);
} else {
ptr = " - At last level - ";
ptr1 = gifs[NOLEVELN_GIF];
print_vert_bar (ptr1,FALSE);
printf("");
}
tag_toplink(ptr, ptr1);
}
if (flatlink) {
print_vert_bar (gifs[FLAT_GIF],FALSE);
printf ("",
JGOFS_DATA_CGI_SPEC, flat_PATH_INFO, parsav);
tag_toplink("Flat list", gifs[FLAT_GIF]);
}
/* If we are displaying buttons, "
" (whatever that is) */
/* I wonder if this should also happen in a NOTOPLINKS environment */
/* (See comment, above) */
if (any_buttons_on_line_1 || any_buttons_on_line_2) printf("
");
printf("\n");
printf("
\n");
print_comments_html();
/* look at attributes to create array of widths - see ioattrout_ */
for(j=0; j= 0)
while(ioattrout_(&j,tmp))
;
return;
}
void print_html_data_line(print_data_as_links,level_to_print)
Logical print_data_as_links;
int level_to_print;
/* print_html_data_line scans the list of all variables, selecting */
/* those at level level_to_print. It prints the data corresponding */
/* to each selected variable as either a text string, or a link to */
/* the next level with the text string as a label. The choice of */
/* of which way to print is governed by print_data_as_links arg and */
/* the quotenolink global variable. The rules: */
/* 1) At most one level is displayed as links. */
/* 2) The candidate level is the last level being displayed */
/* 3) If that level is the last of the object, do not display as */
/* as links */
/* 4) if quotenolink: regardless of level, if datum is enclosed */
/* in "s, remove them and print the rest as text */
/* Rule 4 is implemented here. Rules 1, 2, & 3 are "put into" */
/* print_data_as_links by outputhtml */
{
int j,len_datum,field_width;
char tmp[DATUMBUFSIZE];
char *comma,*ptr;
comma = (*parsav == '\0') ? "\0" : ",";
for(j=0;j%-s%*s",
JGOFS_DATA_CGI_SPEC, nextlevel_PATH_INFO,
parsav, comma, outnames+j*VARNAMEBUFSIZE, equality_test, ptr,
tmp,
field_width-len_datum+2, " "
);
free (ptr);
}
else printf("%-*s ",field_width,tmp);
}
printf("\n");
return;
}
void print_full_list_link (s)
char *s;
{
#define BREVLINKINDENT 16
printf ("%*s%s\n",BREVLINKINDENT," ",s);
printf ("%*sFull data listing\n",
BREVLINKINDENT, " ", JGOFS_DATA_CGI_SPEC, full_list_PATH_INFO, parsav);
return;
}
Logical outputhtml(firsttime)
Logical firsttime;
{
/* linecount (only for abbreviated listing feature) */
static int linecount;
int i,j;
/* minlevel != maxlevel for first record of each maxlevel file */
/* in a multilevel display */
if (minlevel brevend) return FALSE;
if (linecount < brevstart) {
/* Put link at beginning (only once!) as well as end in case */
/* data ends before brevstart is reached */
if (linecount == 1)
print_full_list_link("[ ... skipping up to first listing line]");
return TRUE;
}
}
/* Print data as links unless we're at bottom level of object */
print_html_data_line( (maxlevel != maxobjectlevel), maxlevel );
return TRUE;
}
Logical get_logical_val (string)
char *string;
/* Return TRUE if string is synonym for TRUE, FALSE for FALSE, */
/* something else if not a synonym */
/* (Duplicate of defgb_utils' get_logical_value function. Sigh) */
{
if (string == NULL) return UNSPECIFIED;
switch (*string) {
case 't': case 'T': case 'y': case 'Y': case '1':
if (*(string+1) == '\0') return TRUE;
if ( (strcmp("YES",string) == 0) ||
(strcmp("yes",string) == 0) ||
(strcmp("TRUE",string) == 0) ||
(strcmp("true",string) == 0) ) return TRUE;
break;
case 'f': case 'F': case 'n': case 'N': case '0':
if (*(string+1) == '\0') return FALSE;
if ( (strcmp("NO",string) == 0) ||
(strcmp("no",string) == 0) ||
(strcmp("FALSE",string) == 0) ||
(strcmp("false",string) == 0) ) return FALSE;
break;
default: /* For completeness */
;
break;
}
return UNSPECIFIED;
}
Logical reconciliation(assert,negate,assert_default)
char *assert,*negate;
Logical assert_default;
/* Given 2 environment variables assert and negate, where one is */
/* logically the negative of the other (eg; TOPLINKS and NOTOPLINKS), */
/* reconcile their values (if present in any combination) into a */
/* single consistent logical value */
/* Negate is optional. If not there, this routine validates assert, */
/* if present, and returns it. If no assert, return default */
{
Logical assert_val,negate_val;
char *ptr;
/* UNSPECIFIED back from get_logical_val really means "illegal */
/* string" if fed a non-null string. However, to do that would */
/* introduce yet another non-TRUE, non-FALSE value for "Logical" */
/* variables. Sigh. */
if ( (ptr = getenv(assert)) == NULL ) assert_val = UNSPECIFIED;
else if ( (assert_val = get_logical_val(ptr)) == UNSPECIFIED )
out_err("Invalid logical value of env var",ptr);
if (negate == NULL) negate_val = UNSPECIFIED;
else if ( (ptr = getenv(negate)) == NULL ) negate_val = UNSPECIFIED;
else if ( (negate_val = get_logical_val(ptr)) == UNSPECIFIED )
out_err("Invalid logical value of env var",ptr);
/* Both true or both false is an error. */
/* Note cannot just test (assert_val && negate_val) since they can */
/* have values other than TRUE or FALSE */
if ( ( (assert_val == TRUE) && (negate_val == TRUE) ) ||
( (assert_val == FALSE) && (negate_val == FALSE)) )
out_err("Conflicting values of logical env vars",assert);
/* If we get here, anything user defined is consistent, so we can */
/* use either defined value, if any. */
/* assert defined and negate defined: use assert */
/* assert defined and negate undefined: use assert */
/* assert undefined and negate defined: use NOT negate */
/* assert undefined and negate undefined: use default */
if (assert_val == UNSPECIFIED)
assert_val = (negate_val == UNSPECIFIED) ? assert_default : !negate_val;
return assert_val;
}
void get_outer_params()
/* Parameters for this invocation of outer come from the http- */
/* supplied environment variables PATH_INFO and QUERY_STRING and */
/* from other environment variables often set by serv from entries */
/* in the .objects file for the object we are about to process. */
/* The PATH_INFO environment variable carries lots of info. See */
/* path_info_routines.c for lots of doc about contents and formatting */
/* Based on parameters, this routine also sets up an html or non- */
/* html environment. Logically that should happen after this */
/* routine returns, but the environment is needed to allow pro- */
/* cessing of any errors that happen in this routine, so setup must */
/* happen as soon as possible */
{
char *ptr,*ptr1;
int i,j;
if ( (parsav = getenv("QUERY_STRING")) == NULL ) parsav = "\0";
if (getenv("PATH_INFO") == NULL) {
printf("Content-type: text/plain\n\n");
return;
}
/* Get output protocol (html, flat, etc) from PATH_INFO env variable */
/* Note that in case of error getting protocol, error_ might */
/* not be able to get environment correct & a "Server 500" */
/* could happen */
if ( (ptr = get_jgofs_env_datum("protocol",NULL)) == NULL )
out_err("Incorrectly formatted PATH_INFO",getenv("PATH_INFO"));
brevflag = (strcmp(ptr,"brev") == 0);
htmlflag = ( (strcmp(ptr,"html") == 0) || brevflag );
if (htmlflag) printf("Content-type: text/html\n\n");
else {
printf("Content-type: text/plain\n\n");
flatflag = (strcmp(ptr,"flat") == 0);
}
if ( !(htmlflag || flatflag) ) return;
/* We're displaying stuff. Need lots of info */
/* Get misc logical environment variables */
if (getenv("OO_OUTER") != NULL) {
fprintf(stderr,"Warning: OO_OUTER env var encountered\n");
fprintf(stderr,"\twhile processing PATH_INFO %s\n",getenv("PATH_INFO"));
fprintf(stderr,"\tOO_OUTER no longer useful as of %s\n",OUTER_VERSION);
}
quotenolink = reconciliation("QUOTENOLINK",NULL,QUOTENOLINK);
toplinks = reconciliation("TOPLINKS","NOTOPLINKS",TOPLINKS);
dirlink = reconciliation("DIRLINK","NODIRLINK",DIRLINK);
doclink = reconciliation("DOCLINK","NODOCLINK",DOCLINK);
plotlink = reconciliation("PLOTLINK","NOPLOTLINK",PLOTLINK);
lev0link = reconciliation("LEV0LINK","NOLEV0LINK",LEV0LINK);
levnlink = reconciliation("LEVNLINK","NOLEVNLINK",LEVNLINK);
flatlink = reconciliation("FLATLINK","NOFLATLINK",FLATLINK);
/* Note PLOTLINK in next line. Assures that run-time PLOTLINK */
/* supersedes compile-time OTHEROPTS and vice versa. See outer.h */
otheropts = reconciliation("OTHEROPTS","NOOTHEROPTS",PLOTLINK);
test_gifs = reconciliation("TEST_GIFS","NOTEST_GIFS",TEST_GIFS);
display_data_url =
reconciliation("DISPLAY_DATA_URL","NODISPLAY_DATA_URL",DISPLAY_DATA_URL);
/* Set up for generating numeric or alpha selections when outer */
/* generates a "next-level-with-selection" link */
if ( reconciliation ("GENERATE_ALPHA_SELECTIONS",
"NOGENERATE_ALPHA_SELECTIONS",
GENERATE_ALPHA_SELECTIONS) ) {
/* Next line returns "%20eq%20" */
equality_test = trigram(" eq "," ",TRIGRAM_KEY,NULL);
if (equality_test == NULL)
out_err("Cannot get memory for equality_test","");
} else
equality_test = "=";
/* If both plotlink and otheropts are specified, they must match */
/* If either is specified, use that val; else use TRUE (or TOPLINK?) */
if (plotlink == UNSPECIFIED)
plotlink = (otheropts == UNSPECIFIED) ? TRUE : otheropts;
else
if ((otheropts != UNSPECIFIED) && (plotlink != otheropts))
out_err("Conflicting values of PLOTLINK and OTHEROPTS","");
if (doclink == UNSPECIFIED) doclink = toplinks;
if (lev0link == UNSPECIFIED) lev0link = toplinks;
if (levnlink == UNSPECIFIED) levnlink = toplinks;
if (flatlink == UNSPECIFIED) flatlink = toplinks;
/* Get misc "address information" environment variables that */
/* may need to appear in links */
/* localnodeport is, logically, the node:port spec of the */
/* http server that's running us. This is the info in */
/* SERVER_NAME and SERVER_PORT. However, for hosts, we */
/* normally prefer to output our www alias on URLs we generate */
/* - that's what's in MYADDR. Don't know why MYADDR should con- */
/* tain a port at all; ie, I don't know why SERVER_PORT should not */
/* always be used. ?? Oh well... For parallelism w/MYADDR, allow */
/* a MYPORT, too. outer 2.5 and earlier did */
/* not propagate the port at all, so we don't propagate port 80 */
if ( (localnodeport = getenv("MYADDR")) == NULL )
if ( ( *(localnodeport = MYADDR) == '\0' ) )
if ( (localnodeport = getenv("SERVER_NAME")) == NULL )
localnodeport = MYADDR; /* address of empty string */
if ( (ptr = getenv("MYPORT")) == NULL )
if ( ( *(ptr = MYPORT) == '\0' ) )
if ( (ptr = getenv("SERVER_PORT")) == NULL )
ptr = MYPORT; /* address of empty string */
if (*ptr == ':') ptr++; /* Just in case... */
i = (int) strtol(ptr,&ptr1,10);
if (*ptr1 == '\0') {
if ( ! ((i == 0) || (i == 80)) ) {
/* Ready to add port if localnodeport didn't already have one. */
/* Assume colon is node/port separator. If nothing after */
/* colon, pretend it isn't there */
if ( (ptr1 = strchr(localnodeport,':')) != NULL)
if (*(++ptr1) == '\0') {
*(ptr1-1) = '\0';
ptr1 = NULL;
}
if (ptr1 == NULL) {
ptr1 = localnodeport;
j = strlen(ptr1) + 1 + strlen(ptr) + 1;
if ( (localnodeport = (char *)malloc(j)) == NULL )
malloc_err("localnodeport",j);
sprintf(localnodeport,"%s:%s", ptr1, ptr);
}
}
} else
out_err("Non-numeric port in MYPORT/SERVER_PORT",ptr);
j = strlen(localnodeport) + strlen(JGOFS_DATA_CGI_SPEC) + 1;
if ( (dataserver = (char *)malloc(j)) == NULL )
malloc_err("dataserver",j);
strcpy(dataserver,localnodeport);
strcat(dataserver,JGOFS_DATA_CGI_SPEC);
/* buttonimagesdir is expected to include the front part of a */
/* URL, not just a dir. Stick prefix on if necessary */
if ( (buttonimagesdir = getenv("BUTTONIMAGESDIR")) == NULL )
buttonimagesdir = BUTTONIMAGESDIR;
if (buttonimagesdir == NULL) buttonimagesdir = "";
if (*buttonimagesdir != '\0') {
if (strstr(buttonimagesdir,"://") == NULL) {
ptr = buttonimagesdir;
j = strlen("file://localhost") + 1 + strlen(ptr) + 1;
if ( (buttonimagesdir = (char *)malloc(j)) == NULL )
malloc_err("buttonimagesdir",j);
strcpy(buttonimagesdir,"file://localhost");
if (*ptr != '/') strcat (buttonimagesdir,"/");
strcat (buttonimagesdir,ptr);
}
}
/* For now (Jul 06), background color must be exactly 6 hex digits */
if ( (background_color = getenv("BACKGROUND_COLOR")) == NULL )
background_color = BACKGROUND_COLOR;
if (background_color == NULL) background_color = "";
if (*background_color != '\0') {
if (strlen(background_color) != 6)
out_err("Length of BACKGROUND_COLOR string is not 6. string is",
background_color);
if (strspn(background_color,"0123456789abcdefABCDEF") != 6)
out_err("BACKGROUND_COLOR string contains illegal hex digit. string is",
background_color);
}
if (brevflag) {
if ( (ptr = getenv("BREVSTART")) == NULL ) brevstart=BREVSTART;
else {
brevstart = (int) strtol(ptr,&ptr1,10);
if (*ptr1 != '\0') out_err("Non-numeric BREVSTART",ptr);
}
if (brevstart < 1) out_err("Illegal BREVSTART",ptr);
if ( (ptr = getenv("BREVCOUNT")) == NULL ) brevcount=BREVCOUNT;
else {
brevcount = (int) strtol(ptr,&ptr1,10);
if (*ptr1 != '\0') out_err("Non-numeric BREVCOUNT",ptr);
}
if (brevcount < 1) out_err("Illegal BREVCOUNT",ptr);
brevstart--; /* start w/0 vs start w/1 adjustment */
brevend = brevstart + brevcount;
/* Note: the fooling around to optimize is in principle unre- */
/* lated to .brev. At some point, for example, we might want */
/* to have, say, a sampling mode whereby non-flat, non-html */
/* output is restricted to the first 20 data values (brev de- */
/* faults) at bottom level. Such a mode should also be subject */
/* to consideration about whether the particular inner can cease */
/* to be called "in the middle of things". Logic is here, now */
/* (v 2.0a), because, like the rest of this issue, it came to */
/* light w/.brev and at present is only a problem in that mode */
brev_optimize_inner_calls =
reconciliation ("BREV_OPTIMIZE_INNER_CALLS",NULL,BREV_OPTIMIZE_INNER_CALLS);
}
/* syntax of OPTIONSERVER (like all *SERVERs) is */
/* machine.domain/jg/script-or-binary */
/* optionally preceded by // */
/* Very hard for there not to be an OPTIONSERVER in */
/* environment. serv will put one there from the .objects */
/* file, or from a value compiled into it (usually from */
/* build-env). Therefore, only time we use the constant */
/* OPTIONSERVER compiled into outer is when we're being run */
/* standalone. In particular, you cannot build a method */
/* with "its own" OPTIONSERVER by compiling outer with that */
/* option server. Use the .objects file instead... */
if ( (optionserver = getenv("OPTIONSERVER")) == NULL )
optionserver = OPTIONSERVER;
/* Make sure whatever we have does NOT start with // since */
/* printf puts them in */
if (strncmp("//",optionserver,2) == 0) optionserver += 2;
/* Get object name, level, dir routine that got us here, and */
/* info routine we should use. All this may have been encoded */
/* into the PATH_INFO env variable, or may be in individual */
/* environment variables, or may be in compilation constants, */
/* or may be we just defaulted it in this module */
if ( (reqlevel = get_level(NULL)) == LEVEL_ERROR )
out_err("Incorrectly formatted PATH_INFO",getenv("PATH_INFO"));
if ( (objsav = get_jgofs_env_datum("object",NULL)) == NULL )
out_err("Incorrectly formatted PATH_INFO",getenv("PATH_INFO"));
/* If dir= is in extended URL, it probably includes a direct- */
/* ory spec. A dirserver w/o a directory spec will operate */
/* on a default directory; hence it is also logically includes */
/* a directory spec. Who knows what somebody would put in */
/* the environment? We assume it's just a server, but it */
/* doesn't have to be */
if ( (dirserver_w_dir = get_jgofs_env_datum("dir",NULL)) == NULL )
out_err("Incorrectly formatted PATH_INFO",getenv("PATH_INFO"));
if (*dirserver_w_dir == '\0') {
free (dirserver_w_dir);
if ( (dirserver_w_dir = getenv("DIRSERVER")) == NULL )
dirserver_w_dir = DIRSERVER;
}
if (strncmp("//",dirserver_w_dir,2) == 0) dirserver_w_dir += 2;
/* If info= is in extended URL, it includes objsav. Too bad; */
/* would be cleaner to just get server here and add objsav */
/* when creating the "Documentation" link. However, this way */
/* allows info to come from a source whose name is not related */
/* to the object name. If that's the intent, this comment */
/* should be changed to say so */
if ( (infoserver_w_obj = get_jgofs_env_datum("info",NULL)) == NULL )
out_err("Incorrectly formatted PATH_INFO",getenv("PATH_INFO"));
if (*infoserver_w_obj == '\0') {
free (infoserver_w_obj);
if ( (ptr = getenv("INFOSERVER")) == NULL ) ptr = INFOSERVER;
j = strlen(ptr) + strlen(objsav) + 1;
if ( (infoserver_w_obj = (char *) malloc(j)) == NULL )
malloc_err ("infoserver_w_obj",j);
strcpy (infoserver_w_obj,ptr);
strcat (infoserver_w_obj,objsav);
}
if (strncmp("//",infoserver_w_obj,2) == 0) infoserver_w_obj += 2;
return;
}
int main(argc,argv)
int argc;
char *argv[];
{
int i,j,k,nparams;
int any_projections = FALSE;
char *stmp,*ptr;
Logical firsttime,want_more_data;
char init_QUERY_STRING_item_char;
/* Characters which, if found in argument, show that argument is */
/* selection. Since arguments are selections or projections, and */
/* since projections are just variable names, we should be able to */
/* distinguish the 2 by seeing if the string is a legal C variable */
/* name (per an agreement at a CLH GRF RCG WJS meeting a long */
/* time ago (<= 1997)). However, I'm going to be more conserva- */
/* tive. New string operators are of the form "blank op blank" */
/* with the blanks possibly escaped via trigrams. Thus I'm */
/* assuming 1) no blanks in var names 2) no %s in var names & */
/* 3) we won't ever want to escape a character legal to a var name */
/* (Got assent to #2 via Email from Bob & Chris 19 Nov 98) */
char selection_indicators[] = {'>','<','=',' ',TRIGRAM_KEY,'\0'};
reqlevel=LEVEL_NOT_SPECIFIED; /* from path_info_routines.h */
get_outer_params();
if (reqlevel == LEVEL_NOT_SPECIFIED) reqlevel = 999; /* 999 from orig code */
/* Make copy of query string. Eventually remove selections & */
/* projections from it. One malloc "+1" is for leading '?'; other */
/* is for trailing '\0' */
i = strlen(parsav);
if ( (QUERY_STRING_no_selections = (char *)malloc(i+1+1)) == NULL )
malloc_err("copy of query string",i);
*QUERY_STRING_no_selections = QUERY_STRING_CHAR;
strcpy (QUERY_STRING_no_selections + 1, parsav);
nparams=argc-1;
maxobjectlevel=ioopen_(argv+1,&nparams,&ntotal);
i = ntotal*sizeof(int);
if ( (level = (int *) malloc(i)) == NULL ) malloc_err("level array",i);
for (i=0;i= -reqlevel-1) )
*(level+k)= - *(level+k)-1;
any_projections = TRUE;
}
}
/* If nothing in QUERY_STRING_no_selections, remove leading '?' */
/* Also remove trailing comma, if any */
if ( *(QUERY_STRING_no_selections + 1) == '\0')
*QUERY_STRING_no_selections = '\0';
else {
i = strlen(QUERY_STRING_no_selections) - 1;
if ( *(QUERY_STRING_no_selections + i) == QUERY_STRING_ITEM_SEPARATOR )
*(QUERY_STRING_no_selections + i) = '\0';
}
if ( ! any_projections )
for (i=0; i= -reqlevel-1) *(level+i)= - *(level+i)-1;
maxlevel=0;
for (j=0; j maxlevel ) maxlevel= *(level+j);
/* The following 3 lines appear in the jgofs 1.5 outer, commented */
/* out there as they are here. */
/*
for (j=0;j= 128)
if (tst[j].testlev > maxlevel) maxlevel=tst[j].testlev;
*/
if (reqlevel>maxlevel) reqlevel=maxlevel;
/* There may be some ambiguity between reqlevel, maxlevel, and the */
/* level in PATH_INFO. maxlevel is the "deepest" level we will */
/* display. reqlevel starts out as what was in PATH_INFO. It */
/* is used to set an upper bound on maxlevel (the "bottom" level */
/* of the object is also an upper bound indirectly via the calls */
/* to iovarlevel_). maxlevel can further be reduced by proj- */
/* ections. Finally, maxlevel is used as an upper bound on */
/* reqlevel. Thus, after everything is over, I think reqlevel */
/* ends up equal to maxlevel. Logically, however, if reqlevel */
/* means "requested level", that's what's in the URL. Everything */
/* else is logically maxlevel. */
/* reqlevel is used in the "Next level" button. I think it would work */
/* better if the above "if" were removed, in which case reqlevel */
/* would represent the min of the user requested level & the */
/* number of levels in the object */
#ifdef DEBUG
printf("maxlevel %d\n",maxlevel);
#endif
minlevel=maxlevel;
cl=0;
firsttime=TRUE;
want_more_data=TRUE;
if (htmlflag) outvarhtml();
else if (flatflag) outvarflat();
else outvar();
if ( (stmp = (char *)malloc(COMMENTLINEBUF)) == NULL )
malloc_err ("comment buffer",COMMENTLINEBUF);
/* want_more_data doesn't have to be set by the output* */
/* routines except that that's how .brev was spec'ed */
/* ioexpress_outer_interest_ is used to try to induce an */
/* EOF response from ioreadrec_. If inner can't do this, */
/* we must keep reading and rely on the output* routines */
/* to ignore things themselves (maybe could recode that, */
/* but they seem to be doing fine). Don't even try to */
/* optimize this way if somebody told us not to (eg, a */
/* general-purpose inner like defgb might support opti- */
/* mization in general but for a particular object, it */
/* shouldn't. Most likely problem area would be a pipe to */
/* defgb that should not be closed until other end has */
/* finished) */
while(1){
#if HAS_OUTER_INTEREST_ENTRY
if (brev_optimize_inner_calls) ioexpress_outer_interest_(want_more_data);
else ioexpress_outer_interest_(TRUE);
#endif
if (ioreadrec_(&cl)) {
#ifdef DEBUG
printf("succ. read at lev %d\n",cl);
#endif
if(test(cl))
if(cl\n\n");
else if (!flatflag) printf("&e\n");
exit(0);
}
/******************** ********************** */
/* Replaced token processing code from parse in original outer
if(isdigit(*t) || *t=='.' || *t=='+' || *t=='-'){
f=strtod(t,&t1);
if(strchr(" ()$=<>|&!",*t1)){
typ=1;
t=t1;
} else {
i=strcspn(t," ()$=<>|&!");
strncpy(tok,t,i);
tok[i]='\0';
t += i;
typ=0;
};
} else if(isalpha(*t) || *t=='#'){
i=strcspn(t," ()$=<>|&!");
strncpy(tok,t,i);
tok[i]='\0';
t += i;
typ=0;
} else if(*t == '('){
typ=2;
t++;
} else if(*t == ')'){
typ=3;
t++;
} else if(*t == '$'){
typ=4;
t=NULL;
} else {
tok[0]= *t;
if((int)strspn(t+1,"&|=>")>0){
tok[1]= *(++t);
tok[2]='\0';
} else
tok[1]='\0';
t++;
typ=5;
};
*/