workbench/c/MakeLink.c

   1 /*
   2     Copyright © 1995-2008, 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.1 (2.6.2000)\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     IPTR args[] = { (IPTR)NULL, (IPTR)NULL, (IPTR)FALSE, (IPTR)FALSE };
  73     struct RDArgs *rda;
  74
  75     rda = ReadArgs("FROM/A,TO/A,HARD/S,FORCE/S", args, NULL);
  76
  77     if(rda != NULL)
  78     {
  79         if(args[ARG_HARD])
  80         {
  81             BPTR lock;
  82
  83             lock = Lock((STRPTR)args[ARG_TO], SHARED_LOCK);
  84
  85             if(lock != NULL)
  86             {
  87                 struct FileInfoBlock *fib = AllocDosObject(DOS_FIB, NULL);
  88
  89                 if(fib != NULL)
  90                 {
  91                     if(Examine(lock, fib))
  92                     {
  93                         /* Directories may only be hard-linked to if FORCE is
  94                            specified */
  95                         if(fib->fib_DirEntryType >= 0 && !(BOOL)args[ARG_FORCE])
  96                         {
  97                             PutStr("Hard links to directories require the"
  98                                 " FORCE keyword\n");
  99                         }
 100                         else
 101                         {
 102                             /* Check loops? */
 103                             if(MakeLink((STRPTR)args[ARG_FROM], lock, FALSE))
 104                                 retval = RETURN_OK;
 105                             else
 106                                 PrintFault(IoErr(), "MakeLink");
 107                         }
 108                     }
 109
 110                     FreeDosObject(DOS_FIB, fib);
 111                 }
 112
 113                 UnLock(lock);
 114             }
 115             else
 116             {
 117                 PutStr((STRPTR)args[ARG_TO]);
 118                 PrintFault(IoErr(), "");
 119             }
 120         }
 121         else
 122         {
 123             if(MakeLink((STRPTR)args[ARG_FROM], (STRPTR)args[ARG_TO], TRUE))
 124                 retval = RETURN_OK;
 125         }
 126     }
 127     else
 128     {
 129         PrintFault(IoErr(), "MakeLink");
 130         retval = RETURN_FAIL;
 131     }
 132
 133     FreeArgs(rda);
 134
 135     return retval;
 136 }