workbench/libs/lowlevel/systemcontrola.c

   1 /*
   2     Copyright © 1995-2007, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc:
   6     Lang: english
   7 */
   8
   9 #define DEBUG 1
  10 #include <aros/debug.h>
  11 #include <proto/arossupport.h>
  12
  13 #include <aros/libcall.h>
  14 #include <exec/types.h>
  15 #include <libraries/lowlevel.h>
  16
  17 #include "lowlevel_intern.h"
  18
  19 /*****************************************************************************
  20
  21     NAME */
  22 #include <proto/lowlevel.h>
  23
  24       AROS_LH1(ULONG, SystemControlA,
  25
  26 /*  SYNOPSIS */
  27       AROS_LHA(struct TagItem *, tags, A1),
  28
  29 /*  LOCATION */
  30       struct LowLevelBase *, LowLevelBase, 12, LowLevel)
  31
  32 /*  FUNCTION
  33
  34     INPUTS
  35
  36     RESULT
  37
  38     BUGS
  39         This function is unimplemented.
  40
  41     INTERNALS
  42
  43 *****************************************************************************/
  44 {
  45     AROS_LIBFUNC_INIT
  46
  47     struct TagItem *tag, *tagp = tags;;
  48
  49     aros_print_not_implemented ("lowlevel/SystemControlA");
  50
  51     /* For now, dump all tags in debug mode */
  52     while ((tag = LibNextTagItem(&tagp))) {
  53         D(bug("%s: Tag SCON_Dummy+%d, Data %p\n", __func__, tag->ti_Tag - SCON_Dummy, (APTR)tag->ti_Data));
  54     }
  55
  56     return (tags ? tags->ti_Tag : 0);
  57
  58     AROS_LIBFUNC_EXIT
  59 } /* SystemControlA */