9 post-process files

<..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
 -_-_-