atarist/usub/usersub.c

   1 /* $RCSfile: usersub.c,v $$Revision: 4.0.1.1 $$Date: 92/06/08 11:54:52 $
   2  *
   3  * $Log:        usersub.c,v $
   4  * Revision 4.0.1.1  92/06/08  11:54:52  lwall
   5  * Initial revision
   6  *
   7  * Revision 4.0.1.1  91/11/05  19:07:24  lwall
   8  * patch11: there are now subroutines for calling back from C into Perl
   9  *
  10  * Revision 4.0  91/03/20  01:56:34  lwall
  11  * 4.0 baseline.
  12  *
  13  * Revision 3.0.1.1  90/08/09  04:06:10  lwall
  14  * patch19: Initial revision
  15  *
  16  */
  17
  18 #include "EXTERN.h"
  19 #include "perl.h"
  20
  21 int
  22 userinit()
  23 {
  24     install_null();     /* install device /dev/null or NUL: */
  25     init_curses();
  26     return 0;
  27 }