home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / languages / perl / perl-4.036 / atarist / usub / usersub.c < prev    next >
Encoding:
C/C++ Source or Header  |  1993-02-08  |  592 b   |  28 lines
  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. }
  28.