home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / Archives / GNU / patch_2_1.lha / patch-2.1 / diffsamiga-patch.diffs < prev   
Encoding:
Text File  |  1993-06-23  |  15.9 KB  |  675 lines
  1. diff -cr ram:patch-2.1/backupfile.c dh1:patch-2.1/backupfile.c
  2. *** ram:patch-2.1/backupfile.c    Thu Jun 10 06:58:04 1993
  3. --- dh1:patch-2.1/backupfile.c    Wed Jun 23 18:01:04 1993
  4. ***************
  5. *** 34,39 ****
  6. --- 34,44 ----
  7.   #include <unistd.h>
  8.   #endif
  9.   
  10. + #ifdef AMIGA
  11. + #include <sys/dir.h>
  12. + #define direct dirent
  13. + #define NLENGTH(direct) ((direct)->d_namlen)
  14. + #else
  15.   #if defined(DIRENT) || defined(_POSIX_VERSION)
  16.   #include <dirent.h>
  17.   #define NLENGTH(direct) (strlen((direct)->d_name))
  18. ***************
  19. *** 50,55 ****
  20. --- 55,61 ----
  21.   #include <ndir.h>
  22.   #endif /* NDIR */
  23.   #endif /* DIRENT or _POSIX_VERSION */
  24. + #endif /* AMIGA */
  25.   
  26.   #ifndef isascii
  27.   #define ISDIGIT(c) (isdigit ((unsigned char) (c)))
  28. ***************
  29. *** 65,76 ****
  30. --- 71,90 ----
  31.   #define REAL_DIR_ENTRY(dp) ((dp)->d_ino != 0)
  32.   #endif
  33.   
  34. + #ifdef AMIGA
  35. + #define max(a,b) (((a)>(b))?(a):(b))
  36. + #endif /* AMIGA */
  37. + 
  38.   /* Which type of backup file names are generated. */
  39.   enum backup_type backup_type = none;
  40.   
  41.   /* The extension added to file names to produce a simple (as opposed
  42.      to numbered) backup file name. */
  43. + #ifndef AMIGA
  44.   char *simple_backup_suffix = "~";
  45. + #else /* AMIGA */
  46. + char *simple_backup_suffix = "!";
  47. + #endif /* AMIGA */
  48.   
  49.   char *basename ();
  50.   char *dirname ();
  51. ***************
  52. *** 86,97 ****
  53. --- 100,120 ----
  54.   basename (name)
  55.        char *name;
  56.   {
  57. + #ifndef AMIGA
  58.     char *r = name, *p = name;
  59.   
  60.     while (*p)
  61.       if (*p++ == '/')
  62.         r = p;
  63.     return r;
  64. + #else /* AMIGA */
  65. +   char *base1, *base2, *base;
  66. + 
  67. +   base1 = rindex (name, '/');
  68. +   base2 = rindex (name, ':');
  69. +   base = max (base1, base2);
  70. +   return base ? base + 1 : name;
  71. + #endif /* AMIGA */
  72.   }
  73.   
  74.   #ifndef NODIR
  75. ***************
  76. *** 112,121 ****
  77. --- 135,152 ----
  78.       {
  79.         char *s = malloc (strlen (file) + strlen (simple_backup_suffix) + 1);
  80.         strcpy (s, file);
  81. + #ifndef AMIGA
  82.         addext (s, simple_backup_suffix, '~');
  83. + #else /* AMIGA */
  84. +       addext (s, simple_backup_suffix, '!');
  85. + #endif /* AMIGA */
  86.         return s;
  87.       }
  88. + #ifndef AMIGA
  89.     base_versions = concat (basename (file), ".~");
  90. + #else /* AMIGA */
  91. +   base_versions = concat (basename (file), ".!");
  92. + #endif /* AMIGA */
  93.     if (base_versions == 0)
  94.       return 0;
  95.     dir = dirname (file);
  96. ***************
  97. *** 180,186 ****
  98. --- 211,221 ----
  99.     backup_name = malloc (strlen (file) + 16);
  100.     if (backup_name == 0)
  101.       return 0;
  102. + #ifndef AMIGA
  103.     sprintf (backup_name, "%s.~%d~", file, version);
  104. + #else /* AMIGA */
  105. +   sprintf (backup_name, "%s.!%d!", file, version);
  106. + #endif /* AMIGA */
  107.     return backup_name;
  108.   }
  109.   
  110. ***************
  111. *** 202,208 ****
  112. --- 237,247 ----
  113.       {
  114.         for (p = &backup[base_length]; ISDIGIT (*p); ++p)
  115.       version = version * 10 + *p - '0';
  116. + #ifndef AMIGA
  117.         if (p[0] != '~' || p[1])
  118. + #else /* AMIGA */
  119. +       if (p[0] != '!' || p[1])
  120. + #endif /* AMIGA */
  121.       version = 0;
  122.       }
  123.     return version;
  124. ***************
  125. *** 235,240 ****
  126. --- 274,280 ----
  127.   dirname (path)
  128.        char *path;
  129.   {
  130. + #ifndef AMIGA
  131.     char *newpath;
  132.     char *slash;
  133.     int length;    /* Length of result, not including NUL. */
  134. ***************
  135. *** 260,265 ****
  136. --- 300,334 ----
  137.     strncpy (newpath, path, length);
  138.     newpath[length] = 0;
  139.     return newpath;
  140. + #else /* AMIGA */
  141. +   char *newpath;
  142. +   char *slash, *colon, *dirsep;
  143. +   int length;    /* Length of result, not including NUL. */
  144. + 
  145. +   slash = rindex (path, '/');
  146. +   colon = rindex (path, ':');
  147. +   dirsep = max (slash, colon);
  148. +   if (dirsep == 0)
  149. +     {
  150. +       /* File is in the current directory.  */
  151. +       path = "";
  152. +       length = 0;
  153. +     }
  154. +   else
  155. +     {
  156. +       /* Remove one trailing slash from result, if exists. */
  157. +       if (dirsep > path && *dirsep == '/')
  158. +         --dirsep;
  159. + 
  160. +       length = dirsep - path + 1;
  161. +     }
  162. +   newpath = malloc (length + 1);
  163. +   if (newpath == 0)
  164. +     return 0;
  165. +   strncpy (newpath, path, length);
  166. +   newpath[length] = 0;
  167. +   return newpath;
  168. + #endif /* AMIGA */
  169.   }
  170.   
  171.   /* If ARG is an unambiguous match for an element of the
  172. ***************
  173. *** 379,385 ****
  174.       }
  175.   #endif
  176.     if (slen_max == -1) {
  177. ! #if HAVE_LONG_FILE_NAMES
  178.       slen_max = 255;
  179.   #else
  180.       slen_max = 14;
  181. --- 448,454 ----
  182.       }
  183.   #endif
  184.     if (slen_max == -1) {
  185. ! #ifdef HAVE_LONG_FILE_NAMES
  186.       slen_max = 255;
  187.   #else
  188.       slen_max = 14;
  189. diff -cr ram:patch-2.1/getopt.c dh1:patch-2.1/getopt.c
  190. *** ram:patch-2.1/getopt.c    Wed Jun 09 13:05:42 1993
  191. --- dh1:patch-2.1/getopt.c    Wed Jun 23 17:55:51 1993
  192. ***************
  193. *** 42,50 ****
  194. --- 42,52 ----
  195.   #endif /* alloca.h */
  196.   #endif /* not __GNUC__ */
  197.   
  198. + #ifndef AMIGA
  199.   #if !__STDC__ && !defined(const) && IN_GCC
  200.   #define const
  201.   #endif
  202. + #endif /* !AMIGA */
  203.   
  204.   /* This tells Alpha OSF/1 not to define a getopt prototype in <stdio.h>.  */
  205.   #ifndef _NO_PROTO
  206. diff -cr ram:patch-2.1/getopt1.c dh1:patch-2.1/getopt1.c
  207. *** ram:patch-2.1/getopt1.c    Fri May 07 21:29:54 1993
  208. --- dh1:patch-2.1/getopt1.c    Wed Jun 23 17:56:28 1993
  209. ***************
  210. *** 22,30 ****
  211. --- 22,32 ----
  212.   
  213.   #include "getopt.h"
  214.   
  215. + #ifndef AMIGA
  216.   #if !__STDC__ && !defined(const) && IN_GCC
  217.   #define const
  218.   #endif
  219. + #endif /* !AMIGA */
  220.   
  221.   #include <stdio.h>
  222.   
  223. diff -cr ram:patch-2.1/inp.c dh1:patch-2.1/inp.c
  224. *** ram:patch-2.1/inp.c    Tue Jun 08 17:23:00 1993
  225. --- dh1:patch-2.1/inp.c    Wed Jun 23 17:58:26 1993
  226. ***************
  227. *** 79,86 ****
  228. --- 79,88 ----
  229.       int ifd, statfailed;
  230.       Reg1 char *s;
  231.       Reg2 LINENUM iline;
  232. + #ifndef AMIGA
  233.       char lbuf[MAXLINELEN];
  234.       int output_elsewhere = strcmp(filename, outname);
  235. + #endif /* !AMIGA */
  236.   
  237.       statfailed = stat(filename, &filestat);
  238.       if (statfailed && ok_to_create_file) {
  239. ***************
  240. *** 90,95 ****
  241. --- 92,98 ----
  242.       close(creat(filename, 0666));
  243.       statfailed = stat(filename, &filestat);
  244.       }
  245. + #ifndef AMIGA
  246.       /* For nonexistent or read-only files, look for RCS or SCCS versions.  */
  247.       if (statfailed
  248.       || (! output_elsewhere
  249. ***************
  250. *** 155,160 ****
  251. --- 158,168 ----
  252.       }
  253.       }
  254.       filemode = filestat.st_mode;
  255. + #else /* AMIGA */
  256. +     if (statfailed)
  257. +     fatal2("can't find %s\n", filename);
  258. +     filemode = filestat.st_mode;
  259. + #endif /* AMIGA */
  260.       if (!S_ISREG(filemode))
  261.       fatal2("%s is not a normal file--can't patch\n", filename);
  262.       i_size = filestat.st_size;
  263. diff -cr ram:patch-2.1/patch.c dh1:patch-2.1/patch.c
  264. *** ram:patch-2.1/patch.c    Sun May 30 18:46:14 1993
  265. --- dh1:patch-2.1/patch.c    Wed Jun 23 17:40:27 1993
  266. ***************
  267. *** 90,95 ****
  268. --- 90,99 ----
  269.    * 
  270.    */
  271.   
  272. + #ifdef AMIGA
  273. + #include <dos.h>
  274. + #include <proto/exec.h>
  275. + #endif /* AMIGA */
  276.   #include "INTERN.h"
  277.   #include "common.h"
  278.   #include "EXTERN.h"
  279. ***************
  280. *** 116,121 ****
  281. --- 120,129 ----
  282.   bool similar();
  283.   void re_input();
  284.   void my_exit();
  285. + #ifdef AMIGA
  286. + void amiga_exit();
  287. + static char curpath[256];
  288. + #endif /* AMIGA */
  289.   
  290.   /* TRUE if -E was specified on command line.  */
  291.   static int remove_empty_files = FALSE;
  292. ***************
  293. *** 140,149 ****
  294. --- 148,169 ----
  295.       bool rev_okayed = 0;
  296.       int i;
  297.   
  298. + #ifdef AMIGA
  299. +     if (!onexit (amiga_exit)) {
  300. +       fputs ("Couldn't set exit trap.\n", stderr);
  301. +       exit (20);
  302. +     }
  303. +     if (getcwd(curpath,256) == NULL) {
  304. +       fputs ("Couldn't get current path.\n", stderr);
  305. +       exit (20);
  306. +     }
  307. + #endif /* AMIGA */
  308. + 
  309.       setbuf(stderr, serrbuf);
  310.       for (i = 0; i<MAXFILEC; i++)
  311.       filearg[i] = Nullch;
  312.   
  313. + #ifndef AMIGA
  314.       myuid = getuid();
  315.   
  316.       /* Cons up the names of the temporary files.  */
  317. ***************
  318. *** 178,183 ****
  319. --- 198,223 ----
  320.         strcat (TMPPATNAME, "/patchpXXXXXX");
  321.         Mktemp(TMPPATNAME);
  322.       }
  323. + #else /* AMIGA */
  324. +     /* Cons up the names of the temporary files.  */
  325. +     {
  326. +       struct Task *Task;
  327. + 
  328. +       Task = FindTask (NULL);
  329. + 
  330. +       TMPOUTNAME = (char *) malloc (20);
  331. +       sprintf (TMPOUTNAME, "T:patcho%08lx", Task);
  332. + 
  333. +       TMPINNAME = (char *) malloc (20);
  334. +       sprintf (TMPINNAME, "T:patchi%08lx", Task);
  335. + 
  336. +       TMPREJNAME = (char *) malloc (20);
  337. +       sprintf (TMPREJNAME, "T:patchr%08lx", Task);
  338. + 
  339. +       TMPPATNAME = (char *) malloc (20);
  340. +       sprintf (TMPPATNAME, "T:patchp%08lx", Task);
  341. +     }
  342. + #endif /* AMIGA */
  343.   
  344.       {
  345.         char *v;
  346. ***************
  347. *** 364,370 ****
  348. --- 404,414 ----
  349.           && statbuf.st_size == 0) {
  350.           if (verbose)
  351.               say2("Removing %s (empty after patching).\n", realout);
  352. + #ifndef AMIGA
  353.               while (unlink(realout) >= 0) ; /* while is for Eunice.  */
  354. + #else /* AMIGA */
  355. +             Unlink(realout);
  356. + #endif /* AMIGA */
  357.           }
  358.       }
  359.       Fclose(rejfp);
  360. ***************
  361. *** 942,945 ****
  362. --- 986,1003 ----
  363.       }
  364.       Unlink(TMPPATNAME);
  365.       exit(status);
  366. + }
  367. + 
  368. + void
  369. + amiga_exit()
  370. + {
  371. +     unlink(TMPINNAME);
  372. +     if (!toutkeep) {
  373. +     Unlink(TMPOUTNAME);
  374. +     }
  375. +     if (!trejkeep) {
  376. +     Unlink(TMPREJNAME);
  377. +     }
  378. +     Unlink(TMPPATNAME);
  379. +     chdir(curpath);
  380.   }
  381. diff -cr ram:patch-2.1/pch.c dh1:patch-2.1/pch.c
  382. *** ram:patch-2.1/pch.c    Tue Jun 01 03:54:18 1993
  383. --- dh1:patch-2.1/pch.c    Wed Jun 23 17:41:09 1993
  384. ***************
  385. *** 1246,1251 ****
  386. --- 1246,1252 ----
  387.   void
  388.   do_ed_script()
  389.   {
  390. + #ifndef AMIGA
  391.       Reg1 char *t;
  392.       Reg2 long beginning_of_this_line;
  393.       Reg3 bool this_line_is_command = FALSE;
  394. ***************
  395. *** 1302,1305 ****
  396. --- 1303,1310 ----
  397.       else
  398.       chmod(outname, filemode);
  399.       set_signals(1);
  400. + #else /* AMIGA */
  401. +     fprintf (stderr, "Ed scripts are not supported in the Amiga version of patch!\n");
  402. +     my_exit (20);
  403. + #endif /* AMIGA */
  404.   }
  405. diff -cr ram:patch-2.1/util.c dh1:patch-2.1/util.c
  406. *** ram:patch-2.1/util.c    Mon May 31 22:34:50 1993
  407. --- dh1:patch-2.1/util.c    Wed Jun 23 17:50:11 1993
  408. ***************
  409. *** 66,71 ****
  410. --- 66,72 ----
  411.       }
  412.   
  413.       if (stat(to, &filestat) == 0) {    /* output file exists */
  414. + #ifndef AMIGA
  415.       dev_t to_device = filestat.st_dev;
  416.       ino_t to_inode  = filestat.st_ino;
  417.       char *simplename = bakname;
  418. ***************
  419. *** 74,79 ****
  420. --- 75,90 ----
  421.           if (*s == '/')
  422.           simplename = s+1;
  423.       }
  424. + #else /* AMIGA */
  425. +     char *simplename = bakname;
  426. + 
  427. +     for (s=bakname; *s; s++) {
  428. +         if (*s == '/' || *s == ':')
  429. +         simplename = s+1;
  430. +     }
  431. + #endif /* AMIGA */
  432. + 
  433. + #ifndef AMIGA
  434.       /* Find a backup name that is not the same file.
  435.          Change the first lowercase char into uppercase;
  436.          if that isn't sufficient, chop off the first char and try again.  */
  437. ***************
  438. *** 87,92 ****
  439. --- 98,108 ----
  440.           Strcpy(simplename, simplename+1);
  441.       }
  442.       while (unlink(bakname) >= 0) ;    /* while() is for benefit of Eunice */
  443. + #else /* AMIGA */
  444. +         /* The stuff above is not very meaningful on the Amiga */
  445. +         Unlink(bakname);
  446. + #endif /* AMIGA */
  447. + 
  448.   #ifdef DEBUGGING
  449.       if (debug & 4)
  450.           say3("Moving %s to %s.\n", to, bakname);
  451. ***************
  452. *** 96,108 ****
  453. --- 112,132 ----
  454.            strerror(errno));
  455.           return -1;
  456.       }
  457. + #ifndef AMIGA
  458.       while (unlink(to) >= 0) ;
  459. + #else /* AMIGA */
  460. +         Unlink(to);
  461. + #endif /* AMIGA */
  462.       }
  463.   #ifdef DEBUGGING
  464.       if (debug & 4)
  465.       say3("Moving %s to %s.\n", from, to);
  466.   #endif
  467. + #ifndef AMIGA
  468.       if (rename(from, to) < 0) {        /* different file system? */
  469. + #else /* AMIGA */
  470. +     if (rename(from, to) != 0) {    /* different file system? */
  471. + #endif /* AMIGA */
  472.       Reg4 int tofd;
  473.       
  474.       tofd = creat(to, 0666);
  475. ***************
  476. *** 225,230 ****
  477. --- 249,255 ----
  478.       my_exit(1);
  479.   }
  480.   
  481. + #ifndef AMIGA
  482.   /* Get a response from the user, somehow or other. */
  483.   
  484.   void
  485. ***************
  486. *** 269,274 ****
  487. --- 294,334 ----
  488.       if (!tty2)
  489.       say1(buf);
  490.   }
  491. + #else  /* AMIGA */
  492. + /* The closest thing to "/dev/tty" on the Amiga is called "*".
  493. +    Open it in any case, because stdin may be redirected, and the
  494. +    user can't tell the difference if it's not redirected :-).
  495. +    I think this will work with the ARP shell under Kick 1.3 too,
  496. +    but I have no way to tell... */
  497. + 
  498. + void
  499. + ask(pat,arg1,arg2,arg3)
  500. + char *pat;
  501. + long arg1,arg2,arg3;
  502. + {
  503. +     int console;
  504. +     long r;
  505. + 
  506. + 
  507. +     Sprintf (buf, pat, arg1, arg2, arg3);
  508. +     console = open ("*", O_RDWR | O_CREAT);
  509. +     if (console >= NULL)
  510. +       {
  511. +         write (console, buf, strlen (buf));
  512. +         r = read (console, buf, sizeof (buf));
  513. +         Close (console);
  514. +       }
  515. +     else
  516. +       {                /* no terminal at all--default it */
  517. +     buf[0] = '\n';
  518. +     r = 1;
  519. +       }
  520. +     if (r <= 0)
  521. +         buf[0]=0;
  522. +     else
  523. +         buf[r]=0;
  524. + }
  525. + #endif  /* AMIGA */
  526.   #endif /* lint */
  527.   
  528.   /* How to handle certain events when not in a critical region. */
  529. ***************
  530. *** 278,294 ****
  531. --- 338,362 ----
  532.   int reset;
  533.   {
  534.   #ifndef lint
  535. + #ifndef AMIGA
  536.       static RETSIGTYPE (*hupval)(),(*intval)();
  537. + #else /* AMIGA */
  538. +     static RETSIGTYPE (*intval)();
  539. + #endif /* AMIGA */
  540.   
  541.       if (!reset) {
  542. + #ifndef AMIGA
  543.       hupval = signal(SIGHUP, SIG_IGN);
  544.       if (hupval != SIG_IGN)
  545.           hupval = (RETSIGTYPE(*)())my_exit;
  546. + #endif /* !AMIGA */
  547.       intval = signal(SIGINT, SIG_IGN);
  548.       if (intval != SIG_IGN)
  549.           intval = (RETSIGTYPE(*)())my_exit;
  550.       }
  551. + #ifndef AMIGA
  552.       Signal(SIGHUP, hupval);
  553. + #endif /* !AMIGA */
  554.       Signal(SIGINT, intval);
  555.   #endif
  556.   }
  557. ***************
  558. *** 299,305 ****
  559. --- 367,375 ----
  560.   ignore_signals()
  561.   {
  562.   #ifndef lint
  563. + #ifndef AMIGA
  564.       Signal(SIGHUP, SIG_IGN);
  565. + #endif /* !AMIGA */
  566.       Signal(SIGINT, SIG_IGN);
  567.   #endif
  568.   }
  569. ***************
  570. *** 337,343 ****
  571. --- 407,417 ----
  572.       if (dirvp < 0)
  573.       return;
  574.   
  575. + #ifndef AMIGA
  576.       strcpy(buf, "mkdir");
  577. + #else /* AMIGA */
  578. +     strcpy(buf, "makedir");
  579. + #endif /* AMIGA */
  580.       s = buf;
  581.       for (i=0; i<=dirvp; i++) {
  582.       struct stat sbuf;
  583. ***************
  584. *** 364,370 ****
  585. --- 438,446 ----
  586.       char *fullname;
  587.       char *name;
  588.       Reg1 char *t;
  589. + #ifndef AMIGA
  590.       char tmpbuf[200];
  591. + #endif /* !AMIGA */
  592.       int sleading = strip_leading;
  593.   
  594.       if (!at)
  595. ***************
  596. *** 375,395 ****
  597. --- 451,491 ----
  598.       if (debug & 128)
  599.       say4("fetchname %s %d %d\n",at,strip_leading,assume_exists);
  600.   #endif
  601. + #ifndef AMIGA
  602.       if (strnEQ(at, "/dev/null", 9))    /* so files can be created by diffing */
  603.       return Nullch;            /*   against /dev/null. */
  604. + #else /* AMIGA */
  605. +     /* This probably doesn't make much sense since you can't diff
  606. +        against NIL: on the Amiga... */
  607. +     if (strnEQ(at, "NIL:", 9))    /* so files can be created by diffing */
  608. +     return Nullch;            /*   against NIL:. */
  609. + #endif /* AMIGA */
  610. + 
  611.       name = fullname = t = savestr(at);
  612.   
  613. + #ifndef AMIGA
  614.       /* Strip off up to `sleading' leading slashes and null terminate.  */
  615.       for (; *t && !isspace(*t); t++)
  616.       if (*t == '/')
  617.           if (--sleading >= 0)
  618.           name = t+1;
  619. + #else /* AMIGA */
  620. +     /* Strip off up to `sleading' leading slashes or colons and null terminate.  */
  621. +     /* Please note that filenames with spaces are not handled correctly due
  622. +        to the output format of diff and the assumptions that patch has to
  623. +        make because of this output format. */
  624. +     for (; *t && !isspace(*t); t++)
  625. +     if (*t == '/' || *t == ':')
  626. +         if (--sleading >= 0)
  627. +         name = t+1;
  628. + #endif /* AMIGA */
  629.       *t = '\0';
  630.   
  631.       /* If no -p option was given (957 is the default value!),
  632.          we were given a relative pathname,
  633.          and the leading directories that we just stripped off all exist,
  634.          put them back on.  */
  635. + #ifndef AMIGA
  636.       if (strip_leading == 957 && name != fullname && *fullname != '/') {
  637.       name[-1] = '\0';
  638.       if (stat(fullname, &filestat) == 0 && S_ISDIR (filestat.st_mode)) {
  639. ***************
  640. *** 397,406 ****
  641. --- 493,512 ----
  642.           name=fullname;
  643.       }
  644.       }
  645. + #else /* AMIGA */
  646. +     if (strip_leading == 957 && name != fullname && strchr(fullname,':') == NULL) {
  647. +     name[-1] = '\0';
  648. +     if (stat(fullname, &filestat) == 0 && S_ISDIR (filestat.st_mode)) {
  649. +         name[-1] = '/';
  650. +         name=fullname;
  651. +     }
  652. +     }
  653. + #endif /* AMIGA */
  654.   
  655.       name = savestr(name);
  656.       free(fullname);
  657.   
  658. + #ifndef AMIGA
  659.       if (stat(name, &filestat) && !assume_exists) {
  660.       char *filebase = basename(name);
  661.       int pathlen = filebase - name;
  662. ***************
  663. *** 418,423 ****
  664. --- 524,533 ----
  665.       free(name);
  666.       name = Nullch;
  667.       }
  668. + #else /* AMIGA */
  669. +     if (stat(name, &filestat) && !assume_exists)
  670. +         name = Nullch;
  671. + #endif /* AMIGA */
  672.   
  673.       return name;
  674.   }
  675.