rom/dos/openfromlock.c

   1 /*
   2     Copyright © 1995-2013, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: Open a file from a lock
   6     Lang: english
   7 */
   8
   9 #include <aros/debug.h>
  10 #include <proto/exec.h>
  11 #include <dos/dosextens.h>
  12 #include <dos/stdio.h>
  13 #include "dos_intern.h"
  14
  15 /*****************************************************************************
  16
  17     NAME */
  18 #include <proto/dos.h>
  19
  20         AROS_LH1(BPTR, OpenFromLock,
  21
  22 /*  SYNOPSIS */
  23         AROS_LHA(BPTR, lock, D1),
  24
  25 /*  LOCATION */
  26         struct DosLibrary *, DOSBase, 63, Dos)
  27
  28 /*  FUNCTION
  29         Convert a lock into a filehandle. If all went well the lock
  30         will be gone. In case of an error it must still be freed.
  31
  32     INPUTS
  33         lock - Lock to convert.
  34
  35     RESULT
  36         New filehandle or 0 in case of an error. IoErr() will give
  37         additional information in that case.
  38
  39     NOTES
  40
  41     EXAMPLE
  42
  43     BUGS
  44
  45     SEE ALSO
  46
  47     INTERNALS
  48
  49 *****************************************************************************/
  50 {
  51     AROS_LIBFUNC_INIT
  52
  53     struct FileHandle *fh;
  54     struct FileLock *fl = BADDR(lock);
  55     SIPTR err = -2;
  56
  57     if (lock == BNULL)
  58         return BNULL;
  59
  60     fh = (struct FileHandle *)AllocDosObject(DOS_FILEHANDLE, NULL);
  61     if (fh) {
  62         struct MsgPort *port = fl->fl_Task;
  63
  64         err = dopacket2(DOSBase, NULL, port, ACTION_FH_FROM_LOCK, MKBADDR(fh), lock);
  65
  66         if (err == DOSFALSE) {
  67             FreeDosObject(DOS_FILEHANDLE, fh);
  68             fh = NULL;
  69         } else {
  70             fh->fh_Type = port;
  71             /* Buffering for interactive filehandes defaults to BUF_LINE */
  72             if (fh->fh_Interactive)
  73                 SetVBuf(MKBADDR(fh), NULL, BUF_LINE, -1);
  74             else
  75                 SetVBuf(MKBADDR(fh), NULL, BUF_NONE, -1);
  76         }
  77     } else {
  78         SetIoErr(ERROR_NO_FREE_STORE);
  79     }
  80
  81     D(bug("[OpenFromLock] %p => fh = %p (%p), error = %d\n", BADDR(lock), fh, fh->fh_Type, err));
  82     return fh ? MKBADDR(fh) : BNULL;
  83
  84     AROS_LIBFUNC_EXIT
  85 } /* OpenFromLock */
  86