home *** CD-ROM | disk | FTP | other *** search
/ Aminet 18 / aminetcdnumber181997.iso / Aminet / misc / emu / AROSdev.lha / AROS / rom / dos / selectinput.c < prev    next >
Encoding:
C/C++ Source or Header  |  1997-01-27  |  1.7 KB  |  82 lines
  1. /*
  2.     (C) 1995-96 AROS - The Amiga Replacement OS
  3.     $Id: selectinput.c,v 1.6 1997/01/27 00:36:30 ldp Exp $
  4.     $Log: selectinput.c,v $
  5.     Revision 1.6  1997/01/27 00:36:30  ldp
  6.     Polish
  7.  
  8.     Revision 1.5  1996/12/09 13:53:42  aros
  9.     Added empty templates for all missing functions
  10.  
  11.     Moved #include's into first column
  12.  
  13.     Revision 1.4  1996/10/24 15:50:36  aros
  14.     Use the official AROS macros over the __AROS versions.
  15.  
  16.     Revision 1.3  1996/08/13 13:52:51  digulla
  17.     Replaced <dos/dosextens.h> by "dos_intern.h" or added "dos_intern.h"
  18.     Replaced AROS_LA by AROS_LHA
  19.  
  20.     Revision 1.2  1996/08/01 17:40:57  digulla
  21.     Added standard header for all files
  22.  
  23.     Desc:
  24.     Lang: english
  25. */
  26. #include <proto/exec.h>
  27. #include "dos_intern.h"
  28.  
  29. /*****************************************************************************
  30.  
  31.     NAME */
  32. #include <proto/dos.h>
  33.  
  34.     AROS_LH1(BPTR, SelectInput,
  35.  
  36. /*  SYNOPSIS */
  37.     AROS_LHA(BPTR, fh, D1),
  38.  
  39. /*  LOCATION */
  40.     struct DosLibrary *, DOSBase, 49, Dos)
  41.  
  42. /*  FUNCTION
  43.     Sets the current input stream returned by Input() to a new
  44.     value. Returns the old input stream.
  45.  
  46.     INPUTS
  47.     fh - New input stream.
  48.  
  49.     RESULT
  50.     Old input stream handle.
  51.  
  52.     NOTES
  53.  
  54.     EXAMPLE
  55.  
  56.     BUGS
  57.  
  58.     SEE ALSO
  59.  
  60.     INTERNALS
  61.  
  62.     HISTORY
  63.     29-10-95    digulla automatically created from
  64.                 dos_lib.fd and clib/dos_protos.h
  65.  
  66. *****************************************************************************/
  67. {
  68.     AROS_LIBFUNC_INIT
  69.     AROS_LIBBASE_EXT_DECL(struct DosLibrary *,DOSBase)
  70.  
  71.     BPTR old;
  72.  
  73.     /* Get pointer to process structure */
  74.     struct Process *me=(struct Process *)FindTask(NULL);
  75.  
  76.     /* Nothing spectacular */
  77.     old=me->pr_CIS;
  78.     me->pr_CIS=fh;
  79.     return old;
  80.     AROS_LIBFUNC_EXIT
  81. } /* SelectInput */
  82.