/[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.11 by camm, Sat Jul 20 12:41:20 2002 UTC revision 1.12 by camm, Fri Aug 9 23:48:04 2002 UTC
# Line 363  object if_exists, if_does_not_exist; Line 363  object if_exists, if_does_not_exist;
363                              sprintf(buf,"%s.gz",fname);                              sprintf(buf,"%s.gz",fname);
364                              fp = fopen(buf,"r");                              fp = fopen(buf,"r");
365                              if (fp)                              if (fp)
366                                { char *tmp;                                { char tmp[200];
367                                  char command [500];                                  char command [500];
368                                  fclose(fp);                                  fclose(fp);
369                                  tmp = tmpnam(0);                                  /*tmp = tmpnam(0);*/
370                                    snprintf(tmp,sizeof(tmp),"uzipXXXXXX");
371                                    mkstemp(tmp); /* fixme: catch errors */
372                                  unzipped = make_simple_string(tmp);                                  unzipped = make_simple_string(tmp);
373                                  sprintf(command,"gzip -dc %s > %s",buf,tmp);                                  sprintf(command,"gzip -dc %s > %s",buf,tmp);
374                                  fp = 0;                                  fp = 0;

Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12

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