*** empty log message ***
[m17n/m17n-lib-cs.git] / MText.cs
index 1fbb3f0..cfa688b 100644 (file)
--- a/MText.cs
+++ b/MText.cs
@@ -20,25 +20,57 @@ namespace M17N.Core
 
   public class MTextProperty
   {
-    internal MProperty prop;
-    internal bool front_sticky;
-    internal bool rear_sticky;
-    internal bool merginable;
-    public MProperty Prop { get { return prop; } }
-    public bool FrontSticky { get { return front_sticky; } }
-    public bool RearSticky { get { return rear_sticky; } }
-    public bool Merginable { get { return merginable; } }
+    internal MSymbol key;
+    internal object val;
 
-    public MTextProperty (bool front_sticky, bool rear_sticky)
+    [FlagsAttribute]
+    internal enum Flag : byte
+      {
+       None =          0,
+       FrontSticky =   1,
+       RearSticky =    2,
+       Sensitive =     4
+      };
+    internal Flag flags;
+
+    public MSymbol Key { get { return key; } }
+    public object Val { get { return val; } }
+    public bool FrontSticky
+    {
+      get { return (flags & Flag.FrontSticky) != Flag.None; }
+    }
+    public bool RearSticky
+    {
+      get { return (flags & Flag.RearSticky) != Flag.None; }
+    }
+    public bool Sensitive
+    {
+      get { return (flags & Flag.Sensitive) != Flag.None; }
+    }
+
+    public MTextProperty (MSymbol key, object val)
     {
-      this.front_sticky = front_sticky;
-      this.rear_sticky = rear_sticky;
+      this.key = key;
+      this.val = val;
+      flags |= Flag.RearSticky;
     }
-    public MTextProperty (bool front_sticky, bool rear_sticky, bool merginable)
+
+    public MTextProperty (MSymbol key, object val,
+                         bool front_sticky, bool rear_sticky, bool sensitive)
     {
-      this.front_sticky = front_sticky;
-      this.rear_sticky = rear_sticky;
-      this.merginable = merginable;
+      this.key = key;
+      this.val = val;
+      if (front_sticky)
+       flags |= Flag.FrontSticky;
+      if (rear_sticky)
+       flags |= Flag.RearSticky;
+      if (sensitive)
+       flags |= Flag.Sensitive;
+    }
+
+    public override string ToString ()
+    {
+      return key.ToString () + ":" + val;
     }
   }
 
@@ -47,12 +79,12 @@ namespace M17N.Core
 #if false
     public enum MTextFormat format;
 #endif
-
     private StringBuilder sb;
     private int nchars;
     private int cache_pos;
     private int cache_idx;
-    private MInterval root_interval;
+    private MPlist intervals;
+    private MPlist default_property;
     private bool read_only;
 
     private static UTF8Encoding utf8 = new UTF8Encoding ();
@@ -80,24 +112,28 @@ namespace M17N.Core
     public MText ()
       {
        sb = new StringBuilder ();
+       intervals = new MPlist ();
       }
 
     public MText (byte[] str)
       {
        sb = new StringBuilder (utf8.GetString (str));
        nchars = count_chars (sb);
+       intervals = new MPlist ();
       }
 
     public MText (String str)
       {
        sb = new StringBuilder (str);
        nchars = count_chars (str);
+       intervals = new MPlist ();
       }
 
     public MText (StringBuilder str)
       {
        sb = str;
        nchars = count_chars (str);
+       intervals = new MPlist ();
       }
 
     public static MText operator+ (MText mt1, MText mt2)
@@ -128,7 +164,7 @@ namespace M17N.Core
       return this.sb.ToString ().CompareTo (other.sb.ToString ());
     }
 
-    public override String ToString () { return sb.ToString (); }
+    public override String ToString () { return "\"" + sb.ToString () + "\""; }
 
     private static bool surrogate_high_p (char c)
     {
@@ -197,24 +233,44 @@ namespace M17N.Core
       return i;
     }
 
+    private void check_pos (int pos, bool tail_ok)
+    {
+      if (pos < 0 || (tail_ok ? pos > nchars : pos >= nchars))
+       throw new Exception ("Invalid MText position:" + pos);
+    }
+
+    private void check_range (int from, int to, bool zero_ok)
+    {
+      if (from < 0 || (zero_ok ? from > to : from >= to)
+         || to > nchars)
+       throw new Exception ("Invalid MText range");
+    }
+
     private void insert (int pos, MText mt2, int from, int to)
     {
+      check_pos (pos, true);
+
       int pos_idx = pos_to_idx (this, pos);
       int from_idx = pos_to_idx (mt2, from);
       int to_idx = pos_to_idx (mt2, to);
 
       sb.Insert (pos_idx, mt2.sb.ToString (from_idx, to_idx - from_idx));
-#if false
-      if (root_interval != null)
+      nchars += to - from;
+
+      foreach (MPlist plist in mt2.intervals)
+       if (intervals.Find (plist.Key) == null)
+         intervals.Push (plist.Key, new MInterval (plist.Key, this));
+      foreach (MPlist plist in intervals)
        {
+         MPlist p = mt2.intervals.Find (plist.Key);
          MInterval interval;
 
-         if (mt2.root_interval != null)
-           interval = mt2.root_interval.Copy (from, to);
-         root_interval.Insert (pos, interval);
+         if (p.IsEmpty)
+           interval = new MInterval (plist.Key, to - from);
+         else
+           interval = ((MInterval) p.Val).copy (from, to);
+         ((MInterval) plist.Val).Insert (pos, interval);
        }
-#endif
-      nchars += to - from;
     }
 
     public int this[int i]
@@ -246,271 +302,700 @@ namespace M17N.Core
       }
     }
 
-    public MText dup ()
+    public MText Dup ()
     {
       return (new MText (sb.ToString ()));
     }
 
-    public MText ins (int pos, MText mt)
+    public MText Ins (int pos, MText mt)
     {
       insert (pos, mt, 0, mt.nchars);
       return this;
     }
 
-    public MText ins (int pos, MText mt, int from, int to)
+    public MText Ins (int pos, MText mt, int from, int to)
     {
       insert (pos, mt, from, to);
       return this;
     }
 
-    public MText del (int from, int to)
+    public MText Del (int from, int to)
     {
+      check_range (from, to, true);
+
       sb.Remove (from, pos_to_idx (this, to) - pos_to_idx (this, from));
       nchars -= to - from;
+
+      if (nchars > 0)
+       foreach (MPlist plist in intervals)
+         ((MInterval) plist.Val).Delete (from, to);
+      else
+       intervals = new MPlist ();
       return this;
     }
 
+    public object GetProp (int pos, MSymbol key)
+    {
+      check_pos (pos, false);
+
+      MInterval i = (MInterval) intervals.Find (key).Val;
+
+      if (i == null)
+       return null;
+
+      MTextProperty prop = i.Get (pos);
+      return (prop != null ? prop.Val : null);
+    }
+
+    public object GetProp (int pos, MSymbol key, out MTextProperty prop)
+    {
+      check_pos (pos, false);
+
+      MInterval i = (MInterval) intervals.Find (key).Val;
+
+      if (i == null)
+       return (prop = null);
+      prop = i.Get (pos);
+      return (prop != null ? prop.Val : null);
+    }
+
+    public object GetProp (int pos, MSymbol key, out MTextProperty[] array)
+    {
+      check_pos (pos, false);
+
+      MInterval i = (MInterval) intervals.Find (key).Val;
+
+      if (i == null)
+       return (array = null);
+      MTextProperty prop = i.Get (pos, out array);
+      return (prop != null ? prop.Val : null);
+    }
+
+    public void PushProp (int from, int to, MSymbol key, object val)
+    {
+      check_range (from, to, false);
+
+      PushProp (from, to, new MTextProperty (key, val));
+    }
+
     public void PushProp (int from, int to, MTextProperty prop)
     {
-      if (root_interval == null)
-       root_interval = new MInterval (0, true, sb.Length, true);
-      root_interval.Push (from, to, prop);
+      if (from < 0)
+       {
+         if (default_property == null)
+           default_property = new MPlist ();
+         default_property.Push (prop.key, prop.val);
+       }
+      else
+       {
+         MInterval root = (MInterval) intervals.Find (prop.key).Val;
+
+         if (root == null)
+           {
+             root = new MInterval (prop.key, this);
+             intervals.Push (prop.key, root);
+           }
+         root.Push (from, to, prop);
+       }
+    }
+
+    public void DumpProp ()
+    {
+      Console.Write ("(");
+      foreach (MPlist p in intervals)
+       ((MInterval) p.Val).Dump ();
+      Console.WriteLine (")");
     }
 
     private class MInterval
     {
-      // Start and end positions of this interval and its children.
-      // If this is the left node, the values are relative to the
-      // parent's total_start.  Otherwise, the values are relatie to
-      // the parent's total_end.
-      private int total_start, total_end;
-      // Stack of MTextProperty
-      private Stack<MTextProperty> stack;
-      private int depth;
+      // position: 0   1   2   3   4   5   6   7
+      //           | A | B | C | D | E   F | G |
+      // interval  |---|---|---|<->|-------|---|
+      //           |---|<->|---|   |<----->|---|
+      //           |<->|   |<->|           |<->|
+      // 
+      //                      [7 (3 4)]
+      //              [3 (1 2)]       [3 (4 6)]
+      //         [1 (0 1)] [2 (2 3)]      [1 (6 7)]
+      //
+      private static int count = 0;
+      private int id;
+      private int total_length;
+      private int from, to;
+      private MSymbol key;
+      private MPlist stack;
       private MInterval left, right, parent;
+      private MText mtext;
 
-      private static int adjust_position (int pos, bool front_inclusive)
+      public MInterval (MSymbol key, int length)
       {
-       return (pos << 2) + (front_inclusive ? -1 : 1);
+       if (length <= 0)
+         throw new Exception ("Invalid interval length");
+       this.key = key;
+       total_length = length;
+       stack = new MPlist ();
+       id = count++;
       }
 
-      public MInterval (int start, bool front_inclusive,
-                       int end, bool rear_inclusive)
+      public MInterval (MSymbol key, MText mt)
       {
-       if (start > end)
-         throw new Exception ("Invalid Interval Range");
-       this.total_start = (start << 2) + (front_inclusive ? -1 : 1);
-       this.total_end = (end << 2) + (rear_inclusive ? 1 : -1);
-       this.stack = new Stack<MTextProperty> ();
-       this.depth = 1;
+       this.key = key;
+       mtext = mt;
+       total_length = mt.sb.Length;
+       from = 0;
+       to = total_length;
+       stack = new MPlist ();
+       id = count++;
       }
 
-      private MInterval (int start, int end, Stack<MTextProperty> stack)
+      public MTextProperty Get (int pos)
       {
-       this.total_start = start;
-       this.total_end = end;
-       this.stack = new Stack<MTextProperty> (stack);
-       this.depth = 1;
+       MInterval i = find (pos);
+
+       return (i.stack.IsEmpty ? null : (MTextProperty) i.stack.Val);
       }
 
-      private MInterval find (int pos)
+      public MTextProperty Get (int pos, out MTextProperty[] array)
       {
-       if (pos < total_start || total_end < pos)
-         return null;
-       if (pos < Start)
-         return left.find (pos);
-       if (End < pos)
-         return right.find (pos);
-       return this;
+       MInterval i = find (pos);
+
+       if (i.stack.IsEmpty)
+         {
+           array = null;
+           return null;
+         }
+       array = new MTextProperty[i.stack.Count];
+
+       int idx;
+       MPlist p;
+       for (idx = 0, p = i.stack; ! p.IsEmpty; idx++, p = p.Next)
+         array[idx] = (MTextProperty) p.Val;
+       return array[idx - 1];
       }
 
-      public MInterval Copy (int start, int end)
+      private MInterval (MSymbol key, int length, MPlist stack)
       {
-       MInterval interval_start = find (start);
-       MInterval interval_end = find (end);
-       MInterval interval;
+       this.key = key;
+       total_length = length;
+       from = 0;
+       to = total_length;
+       this.stack = stack.Clone ();
+       id = count++;
+      }
 
-       start = adjust_position (start, true);
-       end  = adjust_position (end, true);
-       interval = new MInterval (start, end, stack);
-       return interval;
+      private void update_from_to ()
+      {
+       if (parent == null)
+         {
+           from = LeftLength;
+           to = total_length - RightLength;
+         }
+       else if (parent.left == this)
+         {
+           from = parent.from - total_length + LeftLength;
+           to = parent.from - RightLength;
+         }
+       else
+         {
+           from = parent.to + LeftLength;
+           to = parent.to + total_length - RightLength;
+         }
       }
 
-      private MInterval Copy ()
+      private int LeftLength
       {
-       return new MInterval (total_start, total_end, stack);
+       get { return (left == null ? 0 : left.total_length); }
       }
 
-      private int Start {
-       get {
-         return (left == null ? total_start : total_start + left.total_end);
-       }
+      private int RightLength
+      {
+       get { return (right == null ? 0 : right.total_length); }
       }
 
-      private int End {
-       get {
-         return (right == null ? total_end : total_end + right.total_start);
-       }
+      private MInterval left_most_node
+      {
+       get { return (left == null ? this : left.left_most_node); }
+      }
+
+      private MInterval right_most_node
+      {
+       get { return (right == null ? this : right.right_most_node); }
       }
 
-      private MInterval Left {
+      private MInterval prev {
        get {
-         MInterval interval;
+         MInterval i;
 
          if (left != null)
-           for (interval = left;
-                interval.right != null;
-                interval = interval.right);
+           for (i = left; i.right != null; i = i.right);
          else
-           for (interval = parent;
-                interval != null && interval.total_start == 0;
-                interval = interval.parent);
-
-         return interval;
+           for (i = parent; i != null && i.left == null; i = i.parent);
+         return i;
        }
       }
 
-      private MInterval Right {
+      private MInterval next {
        get {
-         MInterval interval;
+         MInterval i;
 
          if (right != null)
-           for (interval = right;
-                interval.left != null;
-                interval = interval.left);
+           for (i = right; i.left != null; i = i.left);
          else
-           for (interval = parent;
-                interval != null && interval.total_start < 0;
-                interval = interval.parent);
-
-         return interval;
+           for (i = parent; i != null && i.right == null; i = i.parent);
+         return i;
        }
       }
 
-      public void Push (int start, int end, MTextProperty prop)
+      private MInterval find (int pos)
       {
-       start <<= 2;
-       if (prop.FrontSticky)
-         start--;
+       update_from_to ();
+       if (pos < from)
+         return left.find (pos);
+       if (pos >= to)
+         return right.find (pos);
+       return this;
+      }
+
+      //      p-. or .-p              p-. or .-p
+      //       .-this-.                .-right-.
+      //    left   .-right-.  ->   .-this-.    c2
+      //          c1       c2    left     c1
+      private MInterval promote_right ()
+      {
+       int right_length = right.total_length;
+       MInterval c1;
+
+       if (parent == null)
+         mtext.intervals.Put (key, right);
+       else if (parent.left == this)
+         parent.left = right;
        else
-         start++;
-       end <<= 2;
-       if (prop.RearSticky)
-         end++;
+         parent.right = right;
+       right.parent = parent;
+       c1 = right.left;
+       right.left = this;
+
+       parent = right;
+       right = c1;
+       parent.total_length += total_length;
+       total_length -= right_length;
+       if (c1 != null)
+         {
+           c1.parent = this;
+           parent.total_length -= c1.total_length;
+           total_length += c1.total_length;
+         }
+       return parent;
+      }
+
+      //      p-. or .-p              p-. or .-p
+      //       .-this-.                .-left-.
+      //  .-left-.  .-right-.  ->     c1    .-this-.
+      // c1      c2                        c2     right
+      private MInterval promote_left ()
+      {
+       int left_length = left.total_length;
+       MInterval c1;
+
+       if (parent == null)
+         mtext.intervals.Put (key, left);
+       else if (parent.left == this)
+         parent.left = left;
        else
-         end--;
-       if (start >= end)
-         throw new Exception ("Invalid Text Property Range");
+         parent.right = left;
+       left.parent = parent;
+       c1 = left.left;
+       left.right = this;
+
+       parent = left;
+       left = c1;
+       parent.total_length += total_length;
+       total_length -= left_length;
+       if (c1 != null)
+         {
+           c1.parent = this;
+           parent.total_length -= c1.total_length;
+           total_length += c1.total_length;
+         }
+       return parent;
+      }
 
-       push (start, end, prop);
+      private MInterval balance ()
+      {
+       MInterval i = this;
+
+       while (true)
+         {
+           //       .-this-.
+           //  .-left-.  .-right-.
+           // c1     c2  c3      c4
+           int diff = i.LeftLength - i.RightLength;
+           int new_diff;
+
+           if (diff > 0)
+             {
+               new_diff = (i.total_length - i.LeftLength
+                           + i.left.RightLength - i.left.LeftLength);
+               if (Math.Abs (new_diff) >= diff)
+                 break;
+               i = i.promote_left ();
+               i.right.balance ();
+             }
+           else if (diff < 0)
+             {
+               new_diff = (i.total_length - i.RightLength
+                           + i.right.LeftLength - i.right.RightLength);
+               if (Math.Abs (new_diff) >= diff)
+                 break;
+               i = i.promote_right ();
+               i.left.balance ();
+             }
+         }
+       return i;
       }
 
-      public void Insert (int start, int end, MInterval interval)
+      public MInterval copy (int start, int end)
       {
+       MInterval this_copy, left_copy = null, right_copy = null;
+
+       update_from_to ();
+       if (start < from)
+         {
+           if (end <= from)
+             return left.copy (start, end);
+           left_copy = left.copy (start, from);
+         }
+       else if (end > to)
+         {
+           if (start >= to)
+             return right.copy (start, end);
+           right_copy = right.copy (to, end);
+         }
+       this_copy = new MInterval (key, end - start, stack);
+       this_copy.left = left_copy;
+       this_copy.right = right_copy;
+
+       return this_copy;
       }
 
+      //  this-.   ==>   this-.
+      //     right          newright-.
+      //                            right
       private MInterval divide_right (int pos)
       {
-       MInterval interval = Copy ();
-       int this_start = Start;
-       int this_end = End;
+       MInterval interval = new MInterval (key, to - pos, stack);
 
-       if (left == null || (right != null && left.depth < right.depth))
+       Console.Write ("divide-right({0}) at ", pos); DumpOne (false, true);
+       to = pos;
+       if (right != null)
          {
-           interval.left = this;
            interval.right = right;
-           interval.parent = parent;
-           if (parent != null)
+           right.parent = interval;
+           interval.total_length += right.total_length;
+         }
+       interval.parent = this;
+       right = interval;
+       return interval;
+      }
+
+      //    .-this   ==>       .-this
+      //  left             .-newleft
+      //                 left
+      private MInterval divide_left (int pos)
+      {
+       MInterval interval = new MInterval (key, pos - from, stack);
+
+       Console.Write ("divide-reft({0}) at ", pos); DumpOne (false, true);
+       from = pos;
+       if (left != null)
+         {
+           interval.left = left;
+           left.parent = interval;
+           interval.total_length += left.total_length;
+         }
+       interval.parent = this;
+       left = interval;
+       return interval;
+      }
+
+      private void remove_properties (MTextProperty.Flag flags)
+      {
+       for (MPlist p = stack; ! p.IsEmpty;)
+         {
+           MTextProperty prop = (MTextProperty) p.Val;
+
+           if ((prop.flags & flags) == flags)
+             p.Pop ();
+           else
+             p = p.Next;
+         }
+      }
+
+      private void merge_front_properties (MPlist plist)
+      {
+       for (MInterval i = left_most_node; i != null; i = i.next)
+         {
+           if (! stack.IsEmpty)
+             break;
+           for (MPlist p = plist; ! p.IsEmpty; p = p.Next)
              {
-               if (total_start == 0)
-                 parent.left = interval;
-               else
-                 parent.right = interval;
+               MTextProperty prop = (MTextProperty) p.Val;
+
+               if ((prop.flags & MTextProperty.Flag.RearSticky)
+                   == MTextProperty.Flag.RearSticky)
+                 i.stack.Push (prop.key, prop);
              }
-           interval.depth = depth;
-           if (right == null)
-             interval.depth++;
-           total_start = 0;
-           total_end = pos - this_start;
          }
-       else
+      }
+
+      private void merge_rear_properties (MPlist plist)
+      {
+       for (MInterval i = right_most_node; i != null; i = i.prev)
          {
-           interval.total_start = pos - this_end;
-           interval.total_end = 0;
-           if (right != null)
-             right.parent = interval;
-           right = interval;
-         }
+           if (! stack.IsEmpty)
+             break;
+           for (MPlist p = plist; ! p.IsEmpty; p = p.Next)
+             {
+               MTextProperty prop = (MTextProperty) p.Val;
 
-       return interval;
+               if ((prop.flags & MTextProperty.Flag.FrontSticky)
+                   == MTextProperty.Flag.FrontSticky)
+                 i.stack.Push (prop.key, prop);
+             }
+         }
       }
 
-      private MInterval divide_left (int pos)
+      public void Insert (int pos, MInterval interval)
       {
-       MInterval interval = Copy ();
-       int this_start = Start;
-       int this_end = End;
+       update_from_to ();
+       Console.Write ("insert({0}) at ", pos); DumpOne (false, true);
+       if (pos < from || (pos == from && left == null && pos > 0))
+         {
+           prev.Insert (pos, interval);
+           return;
+         }
+       if (pos > to || (pos == to && right == null && next != null))
+         {
+           next.Insert (pos, interval);
+           return;
+         }
+       if (pos > from && pos < to)
+         {
+           remove_properties (MTextProperty.Flag.Sensitive);
+           divide_right (pos).Insert (pos, interval);
+           return;
+         }         
+       if (pos == from)
+         {
+           if (pos > 0)
+             {
+               prev.remove_properties
+                 (MTextProperty.Flag.Sensitive|MTextProperty.Flag.RearSticky);
+               interval.merge_front_properties (prev.stack);
+             }
+           remove_properties
+             (MTextProperty.Flag.Sensitive|MTextProperty.Flag.FrontSticky);
+           interval.merge_rear_properties (stack);
+
+           // INTERVAL is ready to insert.
+           //
+           //    .-this-.   ==>          .-this-.
+           // left-.                  left-.
+           //     child                  .-interval
+           //                         child
+
+           if (pos > 0)
+             {
+               MInterval i = left.right_most_node;
+       
+               i.left = interval;
+               interval.parent = i;
+               for (; i != null; i = i.parent)
+                 i.total_length += interval.total_length;
+             }
+           else
+             {
+               left = interval;
+
+               for (MInterval i = this; i != null; i = i.parent)
+                 i.total_length += interval.total_length;
+             }
+         }
+       else                    // pos == to
+         {
+           if (right != null)
+             {
+               MInterval left_most = right.left_most_node;
+
+               left_most.remove_properties
+                 (MTextProperty.Flag.Sensitive|MTextProperty.Flag.FrontSticky);
+               interval.merge_rear_properties (left_most.stack);
+             }
+           remove_properties
+             (MTextProperty.Flag.Sensitive|MTextProperty.Flag.RearSticky);
+           interval.merge_front_properties (stack);
+
+           // INTERVAL is ready to insert.
+           //
+           //    .-this-.   ==>          .-this-.
+           //         .-right                 .-right
+           //     child                  interval-.
+           //                                    child
+
+           if (right != null)
+             {
+               MInterval i = right.left_most_node;
+       
+               i.left = interval;
+               interval.parent = i;
+               for (; i != null; i = i.parent)
+                 i.total_length += interval.total_length;
+             }
+           else
+             {
+               right = interval;
+
+               for (MInterval i = this; i != null; i = i.parent)
+                 i.total_length += interval.total_length;
+             }
+         }
+      }
 
-       if (left == null || (right != null && left.depth < right.depth))
+      private void vacate_node (MInterval interval)
+      {
+       Console.WriteLine ("vacate #{0} to #{1}", id, interval.id);
+       if (interval != null)
+         interval.parent = parent;
+       if (parent == null)
          {
-           interval.total_start = 0;
-           interval.total_end = pos - this_start;
-           if (left != null)
-             left.parent = interval;
-           left = interval;
+           mtext.intervals.Put (key, interval);
          }
        else
          {
-           interval.right = this;
-           interval.left = left;
-           interval.parent = parent;
-           if (parent != null)
+           if (this == parent.right)
+             parent.right = interval;
+           else
+             parent.left = interval;
+
+           int diff = total_length;
+           if (interval != null)
+             diff -= interval.total_length;
+           for (MInterval i = parent; i != null; i = i.parent)
+             i.total_length -= diff;
+         }
+      }
+
+      public void Delete (int start, int end)
+      {
+       update_from_to ();
+       Console.Write ("delete({0} {1}) at ", start, end); DumpOne (false, true);
+       if (start < from)
+         {
+           if (end <= from)
+             {
+               left.Delete (start, end);
+               return;
+             }
+           left.Delete (start, from);
+           to -= from - start;
+           end -= from - start;
+           from = start;
+         }
+       if (end > to)
+         {
+           if (start >= to)
+             {
+               right.Delete (start, end);
+               return;
+             }
+           right.Delete (to, end);
+           end = to;
+         }
+       if (start == from && end == to)
+         {
+           if (right == null)
+             {
+               vacate_node (left);
+             }
+           else
              {
-               if (total_start == 0)
-                 parent.left = interval;
-               else
-                 parent.right = interval;
+               if (left != null)
+                 {
+                   MInterval i;
+               
+                   for (i = right; i.left != null; i = i.left)
+                     i.total_length += left.total_length;
+                   i.total_length += left.total_length;
+                   i.left = left;
+                   left.parent = i;
+                 }
+               vacate_node (right);
              }
-           interval.depth = depth;
-           if (left == null)
-             interval.depth++;
-           total_start = pos - this_end;
-           total_end = 0;
          }
+       else
+         {
+           int len = end - start;
 
-       return interval;
+           for (MInterval i = this; i != null; i = i.parent)
+             i.total_length -= len;
+         }
       }
 
-      private void push (int start, int end, MTextProperty prop)
+      public void Push (int start, int end, MTextProperty prop)
       {
-       int this_start = Start;
-       int this_end = End;
-
-       if (start < this_start)
+       update_from_to ();
+       Console.Write ("push({0} {1}) at ", start, end); DumpOne (false, true);
+       if (start < from)
          {
-           if (end <= this_start)
+           if (end <= from)
              {
-               Left.push (start, end, prop);
+               left.Push (start, end, prop);
                return;
              }
-           Left.push (start, this_start, prop);
-           start = this_start;
+           left.Push (start, from, prop);
+           start = from;
          }
-       if (this_end < end)
+       if (end > to)
          {
-           if (this_end < start)
+           if (start >= to)
              {
-               Right.push (start, end, prop);
+               right.Push (start, end, prop);
                return;
              }
-           Right.push (this_end, end, prop);
-           end = this_end;
+           right.Push (to, end, prop);
+           end = to;
          }
-       if (this_start < start)
+
+       if (start > from)
          divide_left (start);
-       if (end < this_end)
+       if (end < to)
          divide_right (end);
-       stack.Push (prop);
+       stack.Push (prop.key, prop);
+      }
+
+      private void DumpOne (bool with_prop, bool newline)
+      {
+       Console.Write ("#{0}({1} {2} {3}", id, total_length, from, to);
+       if (with_prop)
+         foreach (MPlist p in stack)
+           Console.Write (" " + p.Val);
+       Console.Write (")");
+       if (newline)
+         Console.WriteLine ();
+      }
+
+      public void Dump ()
+      {
+       update_from_to ();
+
+       if (left != null)
+         left.Dump ();
+       if (from > 0)
+         Console.Write (" ");
+       DumpOne (true, false);
+       if (right != null)
+         right.Dump ();
       }
     }