workbench/c/MakeLink.c

   1 /*
   2     Copyright © 1995-2014, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc:
   6     Lang: English
   7 */
   8
   9 /******************************************************************************
  10
  11     NAME
  12
  13         MakeLink
  14
  15     SYNOPSIS
  16
  17         FROM/A, TO/A, HARD/S, FORCE/S
  18
  19     LOCATION
  20
  21         C:
  22
  23     FUNCTION
  24
  25         Create a link to a file.
  26
  27     INPUTS
  28
  29         FROM   --  The name of the link
  30         TO     --  The name of the file or directory to link to
  31         HARD   --  If specified, the link will be a hard link; default is
  32                    to create a soft link
  33         FORCE  --  Allow a hard-link to point to a directory
  34
  35     RESULT
  36
  37         Standard DOS error codes.
  38
  39     NOTES
  40
  41         Not all file systems support links.
  42
  43     EXAMPLE
  44
  45         Makelink ls C:List
  46          Creates an 'ls' file with a soft link to the 'List' command in C:.
  47
  48     BUGS
  49
  50     SEE ALSO
  51
  52     INTERNALS
  53
  54 ******************************************************************************/
  55
  56 #include <dos/dos.h>
  57 #include <dos/dosextens.h>
  58 #include <dos/rdargs.h>
  59 #include <proto/dos.h>
  60 #include <proto/exec.h>
  61 #include <aros/debug.h>
  62
  63 const TEXT version[] = "$VER: MakeLink 41.2 (3.4.2014)\n";
  64
  65 enum { ARG_FROM = 0, ARG_TO, ARG_HARD, ARG_FORCE };
  66
  67 int __nocommandline;
  68
  69 int main(void)
  70 {
  71     int  retval = RETURN_FAIL;
  72     LONG error = 0;
  73     IPTR args[] = { (IPTR)NULL, (IPTR)NULL, (IPTR)FALSE, (IPTR)FALSE };
  74     struct RDArgs *rda;
  75
  76     rda = ReadArgs("FROM/A,TO/A,HARD/S,FORCE/S", args, NULL);
  77
  78     if(rda != NULL)
  79     {
  80         if(args[ARG_HARD])
  81         {
  82             BPTR lock;
  83
  84             lock = Lock((STRPTR)args[ARG_TO], SHARED_LOCK);
  85
  86             if(lock != BNULL)
  87             {
  88                 struct FileInfoBlock *fib = AllocDosObject(DOS_FIB, NULL);
  89
  90                 if(fib != NULL)
  91                 {
  92                     if(Examine(lock, fib))
  93                     {
  94                         /* Directories may only be hard-linked to if FORCE is
  95                            specified */
  96                         if(fib->fib_DirEntryType >= 0 && !(BOOL)args[ARG_FORCE])
  97                         {
  98                             PutStr("Hard links to directories require the"
  99                                 " FORCE keyword\n");
 100                         }
 101                         else
 102                         {
 103                             /* Check loops? */
 104                             if(MakeLink((STRPTR)args[ARG_FROM], (SIPTR)lock, FALSE))
 105                                 retval = RETURN_OK;
 106                             else
 107                             {
 108                                 error = IoErr();
 109                                 PrintFault(error, "MakeLink");
 110                             }
 111                         }
 112                     }
 113
 114                     FreeDosObject(DOS_FIB, fib);
 115                 }
 116
 117                 UnLock(lock);
 118             }
 119             else
 120             {
 121                 error = IoErr();
 122                 PutStr((STRPTR)args[ARG_TO]);
 123                 PrintFault(error, "");
 124             }
 125         }
 126         else
 127         {
 128             if(MakeLink((STRPTR)args[ARG_FROM], (SIPTR)args[ARG_TO], TRUE))
 129                 retval = RETURN_OK;
 130         }
 131     }
 132     else
 133     {
 134         error = IoErr();
 135         PrintFault(error, "MakeLink");
 136         retval = RETURN_FAIL;
 137     }
 138
 139     FreeArgs(rda);
 140
 141     SetIoErr(error);
 142     return retval;
 143 }