atarist/usub/usersub.c

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