t12.c 600 B

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667
  1. #include "a.h"
  2. /*
  3. * 12. Overstrike, bracket, line-drawing, graphics, and zero-width functions.
  4. */
  5. /*
  6. \o'asdf'
  7. \zc
  8. \b'asdf'
  9. \l'Nc'
  10. \L'Nc'
  11. \D'xxx'
  12. */
  13. int
  14. e_o(void)
  15. {
  16. pushinputstring(getqarg());
  17. return 0;
  18. }
  19. int
  20. e_z(void)
  21. {
  22. getnext();
  23. return 0;
  24. }
  25. int
  26. e_b(void)
  27. {
  28. pushinputstring(getqarg());
  29. return 0;
  30. }
  31. int
  32. e_l(void)
  33. {
  34. getqarg();
  35. return 0;
  36. }
  37. int
  38. e_L(void)
  39. {
  40. getqarg();
  41. return 0;
  42. }
  43. int
  44. e_D(void)
  45. {
  46. getqarg();
  47. return 0;
  48. }
  49. void
  50. t12init(void)
  51. {
  52. addesc('o', e_o, 0);
  53. addesc('z', e_z, 0);
  54. addesc('b', e_b, 0);
  55. addesc('l', e_l, 0);
  56. addesc('L', e_L, 0);
  57. addesc('D', e_D, 0);
  58. }