home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 25 / nopv25.iso / 040A / INTERCAL.ZIP / src / ick-wrap.c < prev    next >
Encoding:
C/C++ Source or Header  |  1996-06-17  |  722 b   |  45 lines
  1. /* $A.c -- generated C-code file for INTERCAL program $A.i */
  2.  
  3. /* This code is explicitly *not* GPLed.  Use, abuse, and redistribute freely */
  4.  
  5. #include <stdio.h>
  6. #include <stdlib.h>
  7. #include <time.h>
  8.  
  9. #include <fiddle.h>
  10. #include <abcess.h>
  11. #include <lose.h>
  12.  
  13. int lineno;
  14.  
  15. static int abstained[$B]$C;
  16. $D
  17. $E
  18.  
  19. int main(int argc, char *argv[])
  20. {
  21.     int skipto = 0;
  22.  
  23.     parseargs(argc,argv);
  24.  
  25.     /* set seed for random error generation */
  26. #ifdef USG
  27.     srand48(time((long *)0) + getpid());
  28. #else
  29.     srand(time((long *)0));
  30. #endif /* UNIX */
  31.  
  32.     /* set up stash storage */
  33.     stashinit();
  34.  
  35.     $F
  36.     /* degenerated code */
  37. $G
  38.     lose(E633, $J, (char *)0);
  39.  
  40. $H
  41.     return 0;
  42. }
  43.  
  44. /* Generated code for $A.i ends here */
  45.