workbench/libs/rexxsupport/rexxsupport_init.c

   1 /*
   2     Copyright © 1995-2006, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: RexxSupport initialization code.
   6     Lang: English
   7 */
   8
   9 #include <exec/types.h>
  10 #include <exec/libraries.h>
  11 #include <dos/dosextens.h>
  12 #include <aros/symbolsets.h>
  13 #include <aros/debug.h>
  14
  15 #include <proto/exec.h>
  16 #include <proto/alib.h>
  17
  18 #include "rexxsupport_intern.h"
  19 #include LC_LIBDEFS_FILE
  20
  21 int errno;
  22
  23 static int Init(LIBBASETYPEPTR LIBBASE)
  24 {
  25     NewList(&RSBI(LIBBASE)->openports);
  26
  27     return TRUE;
  28 }
  29
  30 ADD2INITLIB(Init, 0);