Subversion Repositories SvarDOS

Rev

Rev 1501 | Rev 1504 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 1501 Rev 1502
Line 395... Line 395...
395 
  flen = -1;
 395 
  flen = -1;
396 
 
 396 
 
397 
  ALLGOOD:
 397 
  ALLGOOD:
398 
  if (fd != NULL) fclose(fd);
 398 
  if (fd != NULL) fclose(fd);
399 
  net_close(sock);
 399 
  net_close(sock);
- 
 
 400 
 
- 
 
 401 
  net_shut();
- 
 
 402 
 
400 
  return(flen);
 403 
  return(flen);
401 
}
 404 
}
402 
 
 405 
 
403 
 
 406 
 
404 
/* checks if file exists, returns 0 if not, non-zero otherwise */
 407 
/* checks if file exists, returns 0 if not, non-zero otherwise */
Line 422... Line 425...
422 
    char url[64];
 425 
    char url[64];
423 
    char outfname[16];
 426 
    char outfname[16];
424 
  } *mem;
 427 
  } *mem;
425 
 
 428 
 
426 
 
 429 
 
427 
  puts("SvarLANG autoload...");
 - 
 
428 
  svarlang_autoload_exepath(argv[0], getenv("LANG"));
 430 
  svarlang_autoload_exepath(argv[0], getenv("LANG"));
429 
 
 431 
 
430 
  /* look for PKGNETBUFSZ env var to size up the buffer (default=5000 bytes) */
 432 
  /* look for PKGNETBUFSZ env var to size up the buffer (default=5000 bytes) */
431 
  {
 433 
  {
432 
    const char *ptr = getenv("PKGNETBUFSZ");
 434 
    const char *ptr = getenv("PKGNETBUFSZ");