home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Distributions / ucb / spencer_2bsd.tar.gz / 2bsd.tar / src / funny.c < prev    next >
C/C++ Source or Header  |  1980-02-17  |  2KB  |  109 lines
  1. /* Copyright (c) 1979 Regents of the University of California */
  2. #include <retrofit.h>
  3.  
  4. /* funny -
  5.  * funny accepts a line from the user and prints it out in
  6.  * a mildly amusing manner.
  7.  */
  8.  
  9. #define WORDLEN 200
  10. char nl[] { 015, 0};
  11.  
  12. char    is3a;
  13.  
  14. main(ct,av)
  15.     int ct;
  16.     char **av;
  17. {
  18.     int cvec[2],size,order[WORDLEN],i,rubout();
  19.     char *word,current[WORDLEN],myline[WORDLEN],*src;
  20.  
  21.     if (ct > 1 && av[1][0] == '-') {
  22.         is3a++;
  23.         ct--;
  24.         av++;
  25.     }
  26.     time(cvec);
  27.     srand(cvec[1]);
  28.     if (ct<2)
  29.     {
  30.         printf("Input a line - ");
  31.         size=read(0,myline,WORDLEN)-1;
  32.         myline[size]=0;
  33.         src=myline;
  34.     }
  35.     else src=av[1];
  36.     signal(2,rubout);
  37.     word=src;
  38.     size=0;
  39.     while (*word++) size++;
  40.     if (size>=WORDLEN)
  41.     {
  42.         printf("%s\nLINE TOO LONG.\n",src);
  43.         exit(9);
  44.     }
  45.     word=src;
  46.     for (;;)
  47.     {
  48.         for (i=0;i<size;++i) current[i]=040;
  49.         pick(size,order);
  50.         for (i=0;i<size;++i) prch(order[i],word,current);
  51.         printf("\n");
  52.     }
  53. }
  54.  
  55. pick(s,a)
  56.     int s,*a;
  57. {
  58.     int i,j,r,this[WORDLEN];
  59.     for (i=0;i<s;++i) this[i]=i;
  60.     for (i=s-1;i>=0;--i)
  61.     {
  62.         r=rnd(i+1);
  63.         a[i]=this[r];
  64.         this[r]=this[i];
  65.     }
  66. }
  67.  
  68. rnd(i)
  69.     int i;
  70. {
  71.     int r;
  72.     r=rand();
  73.     if (r<0) r= -r;
  74.     return(r % i);
  75. }
  76.  
  77. prch(who,from,to)
  78.     int who;
  79.     char *from,*to;
  80. {
  81.     int i;
  82.     to[who]=from[who];
  83.     if (is3a) {
  84.         printf("\033=%c%c%c", ' '+23, ' '+who, to[who]);
  85.         return;
  86.     }
  87.     for (i=0;i<=who;++i) write(1,to+i,1);
  88. /*
  89.     for (i=0;i<=who;++i) write(1,"\b",1);
  90. */
  91.     write(1,nl,1);
  92. }
  93.  
  94. rubout()
  95. {
  96.     char *cp,resp[100];
  97.     signal(2,1);
  98.     printf("\nHad enough?");
  99.     read(0,resp,100);
  100.     cp=resp;
  101.     while (*cp != 012 && *cp != 'y' && *cp !='n') ++cp;
  102.     if (*cp == 'n')
  103.     {
  104.         signal(2,rubout);
  105.         return;
  106.     }
  107.     exit(9);
  108. }
  109.