PC World Komputer 1999 March/PCWK3A99.iso/Linux/DDD331/DDD-3_1_.000/DDD-3_1_/ddd-3.1.1/ddd/ddd.vsl

Text File | 1998-12-06 | 5.8 KB | 216 lines

// $Id: ddd.vsl.m4,v 1.9.4.1 1998/12/04 15:20:10 zeller Exp $ -*- c++ -*-
// VSL functions for DDD graph display
// Generated automatically from ddd.vsl.m4 by m4.  DO NOT EDIT.

// Copyright (C) 1995-1998 Technische Universitaet Braunschweig, Germany.
// Written by Andreas Zeller <[e-mail]>.
//
// This file is part of DDD.
//
// DDD is free software; you can redistribute it and/or
// modify it under the terms of the GNU General Public
// License as published by the Free Software Foundation; either
// version 2 of the License, or (at your option) any later version.
//
// DDD is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
// See the GNU General Public License for more details.
//
// You should have received a copy of the GNU General Public
// License along with DDD -- see the file COPYING.
// If not, write to the Free Software Foundation, Inc.,
// 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
//
// DDD is the data display debugger.
// For details, see the DDD World-Wide-Web page,
// `http://www.cs.tu-bs.de/softech/ddd/',
// or send a mail to the DDD developers <[e-mail]>.

// Includes
#include <std.vsl>
#include <tab.vsl>
#include <fonts.vsl>
#include <colors.vsl>

// Font settings
#pragma replace stdfontfamily
stdfontfamily() = family_typewriter();
small(...) = rm(...);

// Colors
display_color(box)   = color(box, "black", "white");
title_color(box)     = color(box, "black");
disabled_color(box)  = color(box, "white", "grey50");
simple_color(box)    = color(box, "black");
text_color(box)      = color(box, "black");
pointer_color(box)   = color(box, "blue4");
struct_color(box)    = color(box, "black");
list_color(box)      = color(box, "black");
array_color(box)     = color(box, "blue4");
reference_color(box) = color(box, "blue4");
changed_color(box)   = color(box, "black", "#ffffcc");
shadow_color(box)    = color(box, "grey");

// Shadow effects
shadow(box, thickness) =
  box & (square(thickness) | shadow_color(vrule(thickness)))
| square(thickness) & shadow_color(hrule(thickness));
shadow(box) = shadow(box, 1);

// Non-expanding alignments
fixed_hlist(_) = hnull();
fixed_hlist(_, head) = hfix(head);
fixed_hlist(sep, head, ...) = hfix(head) & sep & fixed_hlist(sep, ...);

fixed_vlist(_) = vnull();
fixed_vlist(_, head) = vfix(head);
fixed_vlist(sep, head, ...) = vfix(head) | sep | fixed_vlist(sep, ...);

// The title
title (disp_nr, name) ->
  title_color(rm(disp_nr & ": ") & bf(name) & hfill());
title (name) ->
  title_color(bf(name) & hfill());

// The annotation
annotation (name) ->
  small(name);

// The "disabled" string
disabled () ->
  disabled_color(vcenter(it("(Disabled)") & hfill()));

// No value
none () -> "";

// Ordinary values
simple_value (value) ->
  simple_color(vcenter(value & hfill()));
numeric_value (value) ->
  simple_color(vcenter(hfill() & value));

// Collapsed ordinary values
collapsed_simple_value () ->
  simple_color(vcenter(rm("...") & hfill()));

// Info texts: single lines
text_line (line) ->
  text_color(rm(line) & hfill());

// Multiple lines
text_value (...) -> valign(...);

// Collapsed ordinary values
collapsed_text_value () ->
  text_color(rm("...") & hfill());

// Ordinary pointers
pointer_value (value) ->
  pointer_color(vcenter(value & hfill()));

// Collapsed pointers
collapsed_pointer_value () ->
  pointer_color(vcenter(rm("...") & hfill()));

// Dereferenced pointers
dereferenced_pointer_value (value) ->
  pointer_color(vcenter(bf(value)) & hfill());

// Collapsed array
collapsed_array () ->
  array_color(vcenter(rm("\133...\135") & hfill()));

// Empty array
empty_array () ->
  array_color(vcenter(rm("\133\135") & hfill()));

// Vertical array
vertical_array (...) ->
  array_color(frame(indent(vlist(hwhite() | hrule() | hwhite(), ...))));

// Horizontal array
horizontal_array (...) ->
  array_color(frame(indent(fixed_hlist(vwhite() & vrule() & vwhite(), ...)))
          & hfill());

// Two-dimensional arrays
twodim_array (...) ->
  array_color(dtab(...));
twodim_array_elem (...) ->
  rm(...);

// Struct value
struct_value (...) ->
  struct_color(frame(indent(valign(...))));

// Collapsed struct
collapsed_struct_value () ->
  struct_color(vcenter(rm("{...}") & hfill()));

// Empty struct
empty_struct_value () ->
  struct_color(vcenter(rm("{}") & hfill()));

// Struct member name
struct_member_name (name) ->
  struct_color(rm(name));

// Struct member
struct_member (name, sep, value, name_width) ->
  vcenter(rm(name) | hspace(name_width))
  & vcenter(rm(sep)) & rm(value);

// List value
list_value (...) ->
  list_color(valign(...));

// Collapsed list
collapsed_list_value () ->
  list_color(vcenter(rm("...") & hfill()));

// Empty list
empty_list_value () ->
  list_color(vcenter(rm("") & hfill()));

// List member name
list_member_name (name) ->
  list_color(rm(name));

// List member
list_member (name, sep, value, name_width) ->
  vcenter(rm(name) | hspace(name_width))
  & vcenter(rm(sep)) & rm(value) & hfill();

// Sequence
sequence_value (...) ->
  simple_color(fixed_hlist(vwhite(), ...) & hfill());

// Collapsed sequence
collapsed_sequence_value () ->
  collapsed_simple_value();

// Reference
reference_value (ref, value) ->
  reference_color(vcenter(rm(ref & ": ")) & value & hfill());

// Collapsed reference
collapsed_reference_value () ->
  reference_color(vcenter(rm("...") & hfill()));

// Changed value
changed_value (value) ->
  changed_color(it(value));

// A value that is repeated N times
repeated_value (value, n) ->
  value & vcenter(rm(" <" & dec(n) & "\327>"));

// The entire box
display_box (title, value) ->
  shadow(display_color(frame(title | hrule() | hwhite () | rm(value))));

// The entire box, but without title
display_box (value) ->
  shadow(display_color(frame(rm(value))));