workbench/c/MakeLink.c

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