workbench/c/Unpack/unpack.c

   1 /*
   2     Copyright © 2003, The AROS Development Team. All rights reserved.
   3     $Id$
   4 */
   5
   6 /******************************************************************************
   7
   8     NAME
   9
  10         Unpack
  11
  12     SYNOPSIS
  13
  14         FILE/A, TO/A
  15
  16     LOCATION
  17
  18         Sys:C
  19
  20     FUNCTION
  21
  22         Command to unpack/unarchive AROS .pkg files.
  23
  24     INPUTS
  25
  26         NAME    - The name of the file to unpack.
  27         TO – The drive or path to be unpacked.
  28
  29
  30     RESULT
  31
  32         Standard DOS error codes.
  33
  34     NOTES
  35
  36         This command is not a tool like lha, lzx or unzip.
  37         The .pkg files are not compressed.
  38
  39
  40     EXAMPLE
  41
  42         Unpack AROS.pkg TO Ram:
  43
  44     BUGS
  45
  46     SEE ALSO
  47
  48     INTERNALS
  49
  50     HISTORY
  51
  52     04.05.2000  SDuvan  implemented
  53
  54 ******************************************************************************/
  55
  56 #include <dos/dos.h>
  57 #include <dos/rdargs.h>
  58 #include <proto/exec.h>
  59 #include <proto/dos.h>
  60
  61 #define SH_GLOBAL_DOSBASE 1
  62 #define SH_GLOBAL_SYSBASE 1
  63
  64 #include <aros/shcommands.h>
  65
  66 #include "modes.h"
  67 #include "package.h"
  68 #include "gui.h"
  69
  70 struct IntuitionBase *IntuitionBase;
  71 struct GfxBase *GfxBase;
  72
  73 AROS_SH2
  74 (
  75     Unpack, 1.0,
  76     AROS_SHA( STRPTR, , FILE, /A, NULL ),
  77     AROS_SHA( STRPTR, , TO,   /A, NULL )
  78 )
  79 {
  80     AROS_SHCOMMAND_INIT
  81
  82     BPTR oldDir           = NULL,
  83          newDir           = NULL;
  84     APTR pkg              = NULL;
  85
  86     if( SHArg(FILE) == NULL ) goto cleanup;
  87     if( SHArg(TO) == NULL ) goto cleanup;
  88
  89     IntuitionBase = (struct IntuitionBase *)OpenLibrary( "intuition.library", 0 );
  90     GfxBase = (struct GfxBase *)OpenLibrary( "graphics.library", 0 );
  91
  92     //Printf( "%s, %s\n", SHArg(FILE), SHArg(TO) );
  93
  94     pkg = PKG_Open( SHArg(FILE), MODE_READ );
  95     if( pkg == NULL ) goto cleanup;
  96
  97     newDir = Lock( SHArg(TO), SHARED_LOCK );
  98     if( newDir == NULL ) goto cleanup;
  99     oldDir = CurrentDir( newDir );
 100
 101     if( !GUI_Open() ) goto cleanup;
 102
 103     PKG_ExtractEverything( pkg );
 104
 105 cleanup:
 106     GUI_Close();
 107
 108     if( oldDir != NULL ) CurrentDir( oldDir );
 109     if( newDir != NULL ) UnLock( newDir );
 110     if( pkg != NULL ) PKG_Close( pkg );
 111
 112     if( IntuitionBase != NULL ) CloseLibrary( (struct Library *) IntuitionBase );
 113     if( GfxBase != NULL ) CloseLibrary( (struct Library *) GfxBase );
 114
 115     return 0;
 116
 117     AROS_SHCOMMAND_EXIT
 118 }
 119