Subversion Repositories SvarDOS

Rev

Rev 1711 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 1711 Rev 1800
Line 123... Line 123...
123 
  {
 123 
  {
124 
    int slen = strlen(fname);
 124 
    int slen = strlen(fname);
125 
    if ((slen < 4) || (fname[slen - 4] != '.')) strcat(fname, ".SVP");
 125 
    if ((slen < 4) || (fname[slen - 4] != '.')) strcat(fname, ".SVP");
126 
  }
 126 
  }
127 
 
 127 
 
- 
 
 128 
  /* does the file exist? */
- 
 
 129 
  if (!fileexists(fname)) {
- 
 
 130 
    puts(svarlang_str(10, 1)); /* ERROR: File not found */
- 
 
 131 
    goto RAII;
- 
 
 132 
  }
- 
 
 133 
 
128 
  /* now let's check the content of the zip file */
 134 
  /* now let's check the content of the zip file */
129 
 
 135 
 
130 
  *zipfd = fopen(fname, "rb");
 136 
  *zipfd = fopen(fname, "rb");
131 
  if (*zipfd == NULL) {
 137 
  if (*zipfd == NULL) {
132 
    puts(svarlang_str(3, 8)); /* "ERROR: Invalid zip archive! Package not installed." */
 138 
    puts(svarlang_str(3, 8)); /* "ERROR: Invalid zip archive! Package not installed." */