← Back to branch summary

~framefritti/deplo/trunk

« back to all changes in this revision

Viewing changes to style_table.ads

  • Committer: Riccardo Bernardini
  • Date: 2012-06-29 11:46:21 UTC
  • Revision ID: riccardo.bernardini@uniud.it-20120629114621-7ywlvetmwzs7p00o
Now the style specs allow "&=" in order to allow for incremental
building of a style attribute.  It is not operative yet, though, in the
sense that it is recognized at the syntax level, but if it is necessary
to do the concatenation an exception is raised.  Will fix later.

Show diffs side-by-side

added added

removed removed

Lines of Context:
style_table.ads
78
78
   procedure Dump(List : Style_Spec_Lists.List);
79
79
 
80
80
   procedure Add (Class  : Node_Class;
81
 
                  Name  : Attribute_Name;
82
 
                  Value  : Attribute_Value);
 
81
                  Name   : Attribute_Name;
 
82
                  Value  : Attribute_Value;
 
83
                  Append : Boolean := False);
83
84
   --  Add a new attribute for the specified node class.  If the attribute
84
 
   --  already exists, its value is overwritten.
 
85
   --  already exists, its value is overwritten, unless Append is true.
85
86
 
86
87
   procedure Extract_Spec_Data (Input  : in     Style_Spec;
87
88
                                Cursor : in out Natural;
88
89
                                Class  :    out Unbounded_String;
89
90
                                Name   :    out Unbounded_String;
90
 
                                Value  :    out Unbounded_String);
 
91
                                Value  :    out Unbounded_String;
 
92
                                Append :    out Boolean);
91
93
   --  Parse a style spec string.  At the first call Cursor must
92
94
   --  be initialized to zero. At the end of the procedure Cursor will
93
95
   --  hold the index of the next character to be read, so that calling