home *** CD-ROM | disk | FTP | other *** search
/ The C Users' Group Library 1994 August / wc-cdrom-cusersgrouplibrary-1994-08.iso / listings / v_09_05 / 9n05093b < prev    next >
Text File  |  1991-02-17  |  2KB  |  50 lines
  1.  
  2. char*a??(??)=??<
  3. "??=include<stdio.h>",
  4. "??=include<stdlib.h>",
  5. "??=define o stdout",
  6. "??=define b break;case",
  7. "??=define s(p)fputs(p,o);",
  8. "??=define c(p)fputc(p,o);",
  9. "void t(p,f)char*p;??<f&&c('??/"')",
  10. "for(;;p++)??<switch(*p)??<case 0:f&&",
  11. "s(??/"??/??/??/",??/")c('??/??/n')return;case",
  12. "'??=':s(??/"???/??/?=??/")b'??<':s(??/"???/??/?<??/")",
  13. "b'??>':s(??/"???/??/?>??/")b'??(':s(??/"???/??/?(??/")b'??)'",
  14. ":s(??/"???/??/?)??/")b'??/??/??/??/':f&&s(??/"???/??/?/??/")",
  15. "s(??/"???/??/?/??/")b'??/??/n':if(f)s(??/"???/??/?/n??/")",
  16. "else case'??/"':if(f)s(??/"???/??/?/??/??/??/"??/")",
  17. "else default:c(*p)??>??>??>main()??<char**p",
  18. ";t(??/"char*a??(??)=??<??/",0);for(p=a;*p",
  19. ";p++)t(*p,1);t(??/"0??>;??/",0);for(p=a",
  20. ";*p;p++)t(*p,0);exit(!ferror(o)&&",
  21. "!fclose(o)?EXIT_SUCCESS",
  22. ":EXIT_FAILURE);",
  23. "/*NOTREACHED*/",
  24. "??>",
  25. 0??>;
  26. ??=include<stdio.h>
  27. ??=include<stdlib.h>
  28. ??=define o stdout
  29. ??=define b break;case
  30. ??=define s(p)fputs(p,o);
  31. ??=define c(p)fputc(p,o);
  32. void t(p,f)char*p;??<f&&c('"')
  33. for(;;p++)??<switch(*p)??<case 0:f&&
  34. s("??/",")c('??/n')return;case
  35. '??=':s("???/?=")b'??<':s("???/?<")
  36. b'??>':s("???/?>")b'??(':s("???/?(")b'??)'
  37. :s("???/?)")b'??/??/':f&&s("???/?/")
  38. s("???/?/")b'??/n':if(f)s("???/?/n")
  39. else case'"':if(f)s("???/?/??/"")
  40. else default:c(*p)??>??>??>main()??<char**p
  41. ;t("char*a??(??)=??<",0);for(p=a;*p
  42. ;p++)t(*p,1);t("0??>;",0);for(p=a
  43. ;*p;p++)t(*p,0);exit(!ferror(o)&&
  44. !fclose(o)?EXIT_SUCCESS
  45. :EXIT_FAILURE);
  46. /*NOTREACHED*/
  47. ??>
  48.  
  49.  
  50.