<..post-process files..>
if( <.file-script.> ){
eoln_ch = (int) ’x’;
while( eoln_ch != EOF ) {
status = scan_str("File: ", TRUE, lg_file);
status = scan_until_str(".", 1, status, lg_file);
status = scan_until_end_str("", 2, status, lg_file);
if( status ){ Q_CHAR *p;
p = match[1];
(IGNORED) strct( p, match[2] );
p += strlen((char *) p);
while( *(--p) != ’.’ ){ ; }
*p = ’\0’; p++;
(void) execute_script(file_script, match[1],
p, Xfield? Xfield : "", "");
} } }
-_-_-
<..file-script..>
file_script
-_-_-