home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1999 mARCH / PCWK3A99.iso / Linux / DDD331 / DDD-3_1_.000 / DDD-3_1_ / ddd-3.1.1 / vsllib / verbose.vsl < prev    next >
Text File  |  1998-03-25  |  3KB  |  80 lines
  1. // $Id: verbose.vsl,v 1.7 1998/03/25 12:59:42 zeller Exp $
  2. // Create term instead of boxes
  3.  
  4. // Copyright (C) 1993 Technische Universitaet Braunschweig, Germany.
  5. // Written by Andreas Zeller <zeller@ips.cs.tu-bs.de>.
  6. // 
  7. // This file is part of the DDD Library.
  8. // 
  9. // The DDD Library is free software; you can redistribute it and/or
  10. // modify it under the terms of the GNU Library General Public
  11. // License as published by the Free Software Foundation; either
  12. // version 2 of the License, or (at your option) any later version.
  13. // 
  14. // The DDD Library is distributed in the hope that it will be useful,
  15. // but WITHOUT ANY WARRANTY; without even the implied warranty of
  16. // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
  17. // See the GNU Library General Public License for more details.
  18. // 
  19. // You should have received a copy of the GNU Library General Public
  20. // License along with the DDD Library -- see the file COPYING.LIB.
  21. // If not, write to the Free Software Foundation, Inc.,
  22. // 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
  23. // 
  24. // DDD is the data display debugger.
  25. // For details, see the DDD World-Wide-Web page, 
  26. // `http://www.cs.tu-bs.de/softech/ddd/',
  27. // or send a mail to the DDD developers <ddd@ips.cs.tu-bs.de>.
  28.  
  29. #include <builtin.vsl>
  30. #include <linebreak.vsl>
  31.  
  32. _verbose_list(sep) = 0;
  33. _verbose_list(sep, head) = head;
  34. _verbose_list(sep, head, ...) = (head & sep) ~ _verbose_list(sep, ...);
  35.  
  36. verbose_list(sep, ...) = "(" & _verbose_list(sep, ...) & ")";
  37.  
  38. verbose_call(fcn, ...) = fcn & verbose_list(",", ...);
  39.  
  40.  
  41. #pragma override (&), (|), (^), (~), (+), (*), (::), (-), (/)
  42. #pragma override (%), (=), (<>), (>), (>=), (<), (<=), (not)
  43.  
  44. (&)(...) = verbose_list(" & ", ...);
  45. (|)(...) = verbose_list(" | ", ...);
  46. (^)(...) = verbose_list(" ^ ", ...);
  47. (~)(...) = verbose_list(" ~ ", ...);
  48. (+)(...) = verbose_list(" + ", ...);
  49. (*)(...) = verbose_list(" * ", ...);
  50. (::)(...) = verbose_list(" :: ", ...);
  51. (-)(...) = verbose_list(" - ", ...);
  52. (/)(...) = verbose_list(" / ", ...);
  53. (%)(...) = verbose_list(" % ", ...);
  54. (=)(...) = verbose_list(" = ", ...);
  55. (<>)(...) = verbose_list(" <> ", ...);
  56. (>=)(...) = verbose_list(" >= ", ...);
  57. (<)(...) = verbose_list(" < ", ...);
  58. (<=)(...) = verbose_list(" <= ", ...);
  59. (not)(...) = verbose_list(" not ", ...);
  60.  
  61.  
  62. #pragma override hspace, vspace, hfix, vfix, rise, fall, arc
  63. #pragma override square, tag, font, fontfix, fill, rule, diag, fail
  64.  
  65. hspace(...) = verbose_call("hspace", ...);
  66. vspace(...) = verbose_call("vspace", ...);
  67. hfix(...) = verbose_call("hfix", ...);
  68. vfix(...) = verbose_call("vfix", ...);
  69. rise(...) = verbose_call("rise", ...);
  70. fall(...) = verbose_call("fall", ...);
  71. arc(...) = verbose_call("arc", ...);
  72. square(...) = verbose_call("square", ...);
  73. tag(...) = verbose_call("tag", ...);
  74. font(...) = verbose_call("font", ...);
  75. fontfix(...) = verbose_call("fontfix", ...);
  76. fill(...) = verbose_call("fill", ...);
  77. rule(...) = verbose_call("rule", ...);
  78. diag(...) = verbose_call("diag", ...);
  79. fail(...) = verbose_call("fail", ...);
  80.