/[gcl]/gcl/o/file.d
ViewVC logotype

Diff of /gcl/o/file.d

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.45 by camm, Fri Jun 10 15:13:53 2005 UTC revision 1.46 by camm, Wed Jun 29 04:25:44 2005 UTC
# Line 2193  DEFVAR("*BINARY-MODULES*",sSAbinary_modu Line 2193  DEFVAR("*BINARY-MODULES*",sSAbinary_modu
2193                  pathname->pn.pn_type = FASL_string;                  pathname->pn.pn_type = FASL_string;
2194                  fasl_filename = coerce_to_local_namestring(pathname);                  fasl_filename = coerce_to_local_namestring(pathname);
2195          }          }
2196            if (fasl_filename == Cnil) {
2197              FILE *f;
2198              char b[32],fn[4096];/*FIXME*/
2199              int i;
2200              coerce_to_local_filename(pathname,fn);
2201              if (!(f=fopen(fn,"rb")))
2202                file_error("Cannot open ~S",pathname);
2203              fread(b,sizeof(b),1,f);
2204              fclose(f);
2205              for (i=0;i<sizeof(b) && (!iscntrl(b[i]) || isspace(b[i]));i++);
2206              if (i<sizeof(b))
2207                fasl_filename = coerce_to_local_namestring(pathname);
2208            }
2209    
2210          if (fasl_filename != Cnil && file_exists(fasl_filename)) {          if (fasl_filename != Cnil && file_exists(fasl_filename)) {
2211                  if (verbose != Cnil) {                  if (verbose != Cnil) {
2212                          SETUP_PRINT_DEFAULT(fasl_filename);                          SETUP_PRINT_DEFAULT(fasl_filename);

Legend:
Removed from v.1.45  
changed lines
  Added in v.1.46

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26