taskjuggler 3.0.0 → 3.1.0

data/lib/taskjuggler/Charge.rb

@@ -3,7 +3,7 @@
 #
 # = Charge.rb -- The TaskJuggler III Project Management Software
 #
-# Copyright (c) 2006, 2007, 2008, 2009, 2010, 2011
+# Copyright (c) 2006, 2007, 2008, 2009, 2010, 2011, 2012
 #               by Chris Schlaeger <chris@linux.com>
 #
 # This program is free software; you can redistribute it and/or modify
@@ -15,7 +15,7 @@ require 'taskjuggler/TjTime'
 
 class TaskJuggler
 
-  # This class describes a one-time or per time charge that can be assiciated
+  # This class describes a one-time or per time charge that can be associated
   # with a Task. The charge can take effect either on starting the task,
   # finishing it, or per time interval.
   class Charge

data/lib/taskjuggler/ChargeSet.rb

@@ -3,7 +3,7 @@
 #
 # = ChargeSet.rb -- The TaskJuggler III Project Management Software
 #
-# Copyright (c) 2006, 2007, 2008, 2009, 2010, 2011
+# Copyright (c) 2006, 2007, 2008, 2009, 2010, 2011, 2012
 #               by Chris Schlaeger <chris@linux.com>
 #
 # This program is free software; you can redistribute it and/or modify

data/lib/taskjuggler/DataCache.rb

@@ -3,7 +3,7 @@
 #
 # = DataCache.rb -- The TaskJuggler III Project Management Software
 #
-# Copyright (c) 2006, 2007, 2008, 2009, 2010, 2011
+# Copyright (c) 2006, 2007, 2008, 2009, 2010, 2011, 2012
 #               by Chris Schlaeger <chris@linux.com>
 #
 # This program is free software; you can redistribute it and/or modify
@@ -20,11 +20,14 @@ class TaskJuggler
   # counter. The counter can be read and written externally.
   class DataCacheEntry
 
+    attr_reader :unhashedKey
     attr_accessor :hits
 
-    # Create a new DataCacheEntry for the _value_. The access counter is set
-    # to 1 to increase the chance that it is not flushed immedidate.
-    def initialize(value)
+    # Create a new DataCacheEntry for the _value_. We also store the unhashed
+    # key to be able to detect hash collisions. The access counter is set to 1
+    # to increase the chance that it is not flushed immedidate.
+    def initialize(unhashedKey, value)
+      @unhashedKey = unhashedKey
       @value = value
       @hits = 1
     end
@@ -60,6 +63,8 @@ class TaskJuggler
       @hits = 0
       # Counter for the number of not found values.
       @misses = 0
+      # Counter for hash collisions
+      @collisions = 0
     end
 
     # For now, we use this randomly determined size.
@@ -90,17 +95,24 @@ class TaskJuggler
 
     # _args_ is a set of arguments that unambigously identify the data entry.
     # It's converted into a hash to store or recover a previously stored
-    # entry. If we have a value for the key, return the value. Otherwise call the
-    # block to compute the value, store it and return it.
+    # entry. If we have a value for the key, return the value. Otherwise call
+    # the block to compute the value, store it and return it.
     def cached(*args)
       key = args.hash
       if @entries.has_key?(key)
         e = @entries[key]
-        @hits += 1
-        e.value
+        if e.unhashedKey != args
+          # Two different args produce the same hash key. This should be a
+          # very rare event!
+          @collisions += 1
+          yield
+        else
+          @hits += 1
+          e.value
+        end
       else
         @misses += 1
-        store(yield, key)
+        store(yield, args, key)
       end
     end
 
@@ -108,7 +120,7 @@ class TaskJuggler
 
     def to_s
       <<"EOT"
-Entries: #{@entries.size}   Stores: #{@stores}
+Entries: #{@entries.size}   Stores: #{@stores}   Collisions: #{@collisions}
 Hits: #{@hits}   Misses: #{@misses}
 Hit Rate: #{@hits * 100.0 / (@hits + @misses)}%
 EOT
@@ -119,7 +131,7 @@ EOT
     # Store _value_ into the cache using _key_ to tag it. _key_ must be unique
     # and must be used to load the value from the cache again. You cannot
     # store nil values!
-    def store(value, key)
+    def store(value, unhashedKey, key)
       @stores += 1
 
       if @entries.size > @highWaterMark
@@ -133,7 +145,7 @@ EOT
         end
       end
 
-      @entries[key] = DataCacheEntry.new(value)
+      @entries[key] = DataCacheEntry.new(unhashedKey, value)
 
       value
     end

data/lib/taskjuggler/FileList.rb

@@ -3,7 +3,7 @@
 #
 # = FileList.rb -- The TaskJuggler III Project Management Software
 #
-# Copyright (c) 2006, 2007, 2008, 2009, 2010, 2011
+# Copyright (c) 2006, 2007, 2008, 2009, 2010, 2011, 2012
 #               by Chris Schlaeger <chris@linux.com>
 #
 # This program is free software; you can redistribute it and/or modify

data/lib/taskjuggler/HTMLDocument.rb

@@ -3,7 +3,7 @@
 #
 # = HTMLDocument.rb -- The TaskJuggler III Project Management Software
 #
-# Copyright (c) 2006, 2007, 2008, 2009, 2010, 2011
+# Copyright (c) 2006, 2007, 2008, 2009, 2010, 2011, 2012
 #               by Chris Schlaeger <chris@linux.com>
 #
 # This program is free software; you can redistribute it and/or modify

data/lib/taskjuggler/HTMLElements.rb

@@ -3,7 +3,7 @@
 #
 # = HTMLElements.rb -- The TaskJuggler III Project Management Software
 #
-# Copyright (c) 2006, 2007, 2008, 2009, 2010, 2011
+# Copyright (c) 2006, 2007, 2008, 2009, 2010, 2011, 2012
 #               by Chris Schlaeger <chris@linux.com>
 #
 # This program is free software; you can redistribute it and/or modify

data/lib/taskjuggler/ICalendar.rb

@@ -3,7 +3,7 @@
 #
 # = ICalendar.rb -- The TaskJuggler III Project Management Software
 #
-# Copyright (c) 2006, 2007, 2008, 2009, 2010, 2011
+# Copyright (c) 2006, 2007, 2008, 2009, 2010, 2011, 2012
 #               by Chris Schlaeger <chris@linux.com>
 #
 # This program is free software; you can redistribute it and/or modify

data/lib/taskjuggler/Interval.rb

@@ -3,7 +3,7 @@
 #
 # = Interval.rb -- The TaskJuggler III Project Management Software
 #
-# Copyright (c) 2006, 2007, 2008, 2009, 2010, 2011
+# Copyright (c) 2006, 2007, 2008, 2009, 2010, 2011, 2012
 #               by Chris Schlaeger <chris@linux.com>
 #
 # This program is free software; you can redistribute it and/or modify

data/lib/taskjuggler/IntervalList.rb

@@ -3,7 +3,7 @@
 #
 # = IntervalList.rb -- The TaskJuggler III Project Management Software
 #
-# Copyright (c) 2006, 2007, 2008, 2009, 2010, 2011
+# Copyright (c) 2006, 2007, 2008, 2009, 2010, 2011, 2012
 #               by Chris Schlaeger <chris@linux.com>
 #
 # This program is free software; you can redistribute it and/or modify

data/lib/taskjuggler/Journal.rb

@@ -3,7 +3,7 @@
 #
 # = Journal.rb -- The TaskJuggler III Project Management Software
 #
-# Copyright (c) 2006, 2007, 2008, 2009, 2010, 2011
+# Copyright (c) 2006, 2007, 2008, 2009, 2010, 2011, 2012
 #               by Chris Schlaeger <chris@linux.com>
 #
 # This program is free software; you can redistribute it and/or modify
@@ -22,7 +22,7 @@ class TaskJuggler
   class JournalEntry
 
     attr_reader :date, :headline, :property, :sourceFileInfo
-    attr_accessor :author, :summary, :details, :alertLevel, :flags,
+    attr_accessor :author, :moderators, :summary, :details, :alertLevel, :flags,
                   :timeSheetRecord
 
     # Create a new JournalEntry object.
@@ -40,6 +40,8 @@ class TaskJuggler
       @sourceFileInfo = sourceFileInfo
       # A reference to a Resource.
       @author = nil
+      # A list of Resource objects that have moderated this entry.
+      @moderators = []
       # An introductory or summarizing RichText paragraph.
       @summary = nil
       # A RichText of arbitrary length.
@@ -63,10 +65,11 @@ class TaskJuggler
       if query.journalAttributes.include?('alert')
         levelRecord = query.project['alertLevels'][alertLevel]
         if query.selfContained
-          alertName = "<nowiki>[#{levelRecord[1]}]</nowiki> "
+          alertName = "<nowiki>[</nowiki><fcol:#{levelRecord.color}><nowiki>" +
+                      "#{levelRecord.name}</nowiki></fcol><nowiki>]</nowiki>"
         else
-          alertName = "[[File:icons/flag-#{levelRecord[0]}.png|" +
-          "alt=[#{levelRecord[1]}]|text-bottom]] "
+          alertName = "[[File:icons/flag-#{levelRecord.id}.png|" +
+          "alt=[#{levelRecord.name}]|text-bottom]] "
         end
       else
         alertName = ''
@@ -243,6 +246,11 @@ class TaskJuggler
       end
     end
 
+    # Like Array::delete
+    def delete(e)
+      @entries.delete(e)
+    end
+
     # Like Array::delete_if
     def delete_if
       @entries.delete_if { |e| yield(e) }
@@ -349,12 +357,30 @@ class TaskJuggler
 
       return if entry.property.nil?
 
-      unless @propertyToEntries.include?(entry.property)
-        @propertyToEntries[entry.property] = JournalEntryList.new
+      # When we store the property into the @propertyToEntries hash, we need
+      # to make sure that we store the PropertyTreeNode object and not a
+      # PTNProxy object.
+      unless @propertyToEntries.include?(entry.property.ptn)
+        @propertyToEntries[entry.property.ptn] = JournalEntryList.new
+      end
+      @propertyToEntries[entry.property.ptn] << entry
+    end
+
+    def getEntries(property)
+      @propertyToEntries[property.ptn]
+    end
+
+    # Delete all entries of the Journal for which the block yields true.
+    def delete_if
+      @entries.delete_if do |e|
+        res = yield(e)
+        @propertyToEntries[e.property.ptn].delete(e) if res
+        res
       end
-      @propertyToEntries[entry.property] << entry
     end
 
+
+
     def to_rti(query)
       entries = JournalEntryList.new
 
@@ -408,8 +434,8 @@ class TaskJuggler
         # each task (incl. sub tasks) are included.
         if query.property
           if query.property.is_a?(Task)
-            entries += currentEntriesR(query.end, query.property, 0, query.start,
-                                       query.hideJournalEntry)
+            entries += currentEntriesR(query.end, query.property, 0,
+                                       query.start, query.hideJournalEntry)
           end
         else
           query.project.tasks.each do |task|
@@ -482,10 +508,10 @@ class TaskJuggler
                           logExp = nil, task = nil, alertLevel = nil)
       list = JournalEntryList.new
       @entries.each do |entry|
-        if entry.author == resource &&
+        if entry.author == resource.ptn &&
            (startDate.nil? || entry.date > startDate) &&
            (endDate.nil? || entry.date <= endDate) &&
-           (task.nil? || entry.property == task) &&
+           (task.nil? || entry.property == task.ptn) &&
            (alertLevel.nil? || entry.alertLevel >= alertLevel) &&
            !entry.headline.empty? && !hidden(entry, logExp)
           list << entry
@@ -503,7 +529,7 @@ class TaskJuggler
                       resource = nil, alertLevel = nil)
       list = JournalEntryList.new
       @entries.each do |entry|
-        if entry.property == task &&
+        if entry.property == task.ptn &&
            (startDate.nil? || entry.date >= startDate) &&
            (endDate.nil? || entry.date < endDate) &&
            (resource.nil? || entry.author == resource) &&
@@ -539,8 +565,8 @@ class TaskJuggler
       @entries.each do |entry|
         if (startDate.nil? || startDate <= entry.date) &&
            (endDate.nil? || endDate >= entry.date) &&
-           (property.nil? || property == entry.property ||
-                             entry.property.isChildOf?(property)) &&
+           (property.nil? || property.ptn == entry.property ||
+                             entry.property.isChildOf?(property.ptn)) &&
            (alertLevel.nil? || alertLevel == entry.alertLevel) &&
            !hidden(entry, logExp)
           list << entry
@@ -589,8 +615,8 @@ class TaskJuggler
     # with at least the required alert level _minLevel_ are returned. Messages
     # with alert level _minLevel_ must be newer than _minDate_.
     def currentEntries(date, property, minLevel, minDate, logExp)
-      pEntries = @propertyToEntries[property] ?
-                 @propertyToEntries[property].last(date) : JournalEntryList.new
+      pEntries = getEntries(property) ?  getEntries(property).last(date) :
+                 JournalEntryList.new
       # Remove entries below the minium alert level or before the timeout
       # date.
       pEntries.delete_if do |e|
@@ -602,8 +628,8 @@ class TaskJuggler
         # Check parents for a more important or more up-to-date message.
         p = property.parent
         while p do
-          ppEntries = @propertyToEntries[p] ?
-            @propertyToEntries[p].last(date) : JournalEntryList.new
+          ppEntries = getEntries(p) ?
+                      getEntries(p).last(date) : JournalEntryList.new
 
           # A parent has a more up-to-date message.
           if !ppEntries.empty? && ppEntries.first.date >= pEntries.first.date
@@ -630,8 +656,8 @@ class TaskJuggler
     def currentEntriesR(date, property, minLevel = 0, minDate = nil,
                         logExp = nil)
       # See if this property has any current JournalEntry objects.
-      pEntries = @propertyToEntries[property] ?
-                 @propertyToEntries[property].last(date) : JournalEntryList.new
+      pEntries = getEntries(property) ? getEntries(property).last(date) :
+                 JournalEntryList.new
       # Remove entries below the minium alert level or before the timeout
       # date.
       pEntries.delete_if do |e|
@@ -645,9 +671,13 @@ class TaskJuggler
         maxPAlertLevel = e.alertLevel if e.alertLevel > maxPAlertLevel
       end
 
-      entries = JournalEntryList.new
+      cEntries = JournalEntryList.new
       latestDate = nil
       maxAlertLevel = 0
+      # If we have an entry from this property, we only care about child
+      # entries that are from a later date.
+      minDate = pEntries.first.date + 1 unless pEntries.empty?
+
       # Now gather all current entries of the child properties and find the
       # date that is closest to and right before the given _date_.
       property.kids.each do |p|
@@ -656,30 +686,20 @@ class TaskJuggler
           latestDate = e.date if latestDate.nil? || e.date > latestDate
           # Find the highest alert level.
           maxAlertLevel = e.alertLevel if e.alertLevel > maxAlertLevel
-          entries << e
+          cEntries << e
         end
       end
-      # If no child property has a more current JournalEntry or one with a
-      # higher alert level than this property and this property has
-      # JournalEntry objects, than those are taken.
+
       if !pEntries.empty? && (maxPAlertLevel > maxAlertLevel ||
                               latestDate.nil? ||
                               pEntries.first.date >= latestDate)
-
-        # Remove all entries that are filtered by logExp.
-        if logExp
-          pEntries.delete_if { |e| hidden(e, logExp) }
-        end
-
-        return pEntries
-      end
-
-      # Remove all child entries that are older than the current parent
-      # entries (if we have parent entries).
-      unless pEntries.empty?
-        entries.delete_if do |e|
-          e.date <= pEntries.first.date
-        end
+        # If no child property has a more current JournalEntry or one with a
+        # higher alert level than this property and this property has
+        # JournalEntry objects, than those are taken.
+        entries = pEntries
+      else
+        # Otherwise we take the entries from the kids.
+        entries = cEntries
       end
 
       # Remove all entries that are filtered by logExp.

data/lib/taskjuggler/KeywordArray.rb

@@ -3,7 +3,7 @@
 #
 # = KeywordArray.rb -- The TaskJuggler III Project Management Software
 #
-# Copyright (c) 2006, 2007, 2008, 2009, 2010, 2011
+# Copyright (c) 2006, 2007, 2008, 2009, 2010, 2011, 2012
 #               by Chris Schlaeger <chris@linux.com>
 #
 # This program is free software; you can redistribute it and/or modify

data/lib/taskjuggler/KeywordDocumentation.rb

@@ -3,7 +3,7 @@
 #
 # = KeywordDocumentation.rb -- The TaskJuggler III Project Management Software
 #
-# Copyright (c) 2006, 2007, 2008, 2009, 2010, 2011
+# Copyright (c) 2006, 2007, 2008, 2009, 2010, 2011, 2012
 #               by Chris Schlaeger <chris@linux.com>
 #
 # This program is free software; you can redistribute it and/or modify
@@ -11,6 +11,7 @@
 # published by the Free Software Foundation.
 #
 
+require 'term/ansicolor'
 require 'taskjuggler/HTMLDocument'
 require 'taskjuggler/RichText'
 require 'taskjuggler/TjpExample'
@@ -32,6 +33,7 @@ class TaskJuggler
   class KeywordDocumentation
 
     include HTMLElements
+    include Term::ANSIColor
 
     attr_reader :keyword, :names, :pattern, :references, :optionalAttributes
     attr_accessor :contexts, :scenarioSpecific, :inheritedFromProject,
@@ -40,7 +42,7 @@ class TaskJuggler
     # Construct a new KeywordDocumentation object. _rule_ is the
     # TextParser::Rule and _pattern_ is the corresponding TextParser::Pattern.
     # _syntax_ is an expanded syntax representation of the _pattern_. _args_
-    # is a Array of ParserTokenDoc that describe the arguments of the
+    # is an Array of TextParser::TokenDoc that describe the arguments of the
     # _pattern_.  _optAttrPatterns_ is an Array with references to
     # TextParser::Patterns that are optional attributes to this keyword.
     def initialize(rule, pattern, syntax, args, optAttrPatterns, manual)
@@ -79,10 +81,11 @@ class TaskJuggler
     # (task, resources, etc.). A TJP property can be nested.
     def isProperty?
       # I haven't found a good way to automatically detect all the various
-      # report types as properties. The non-nestable ones need to be added
-      # manually here.
-      return true if %w( export nikureport timesheetreport statussheetreport).
-                     include?(keyword)
+      # report types as properties. They don't directly include themselves as
+      # attributes.
+      return true if %w( accountreport export nikureport resourcereport
+                         taskreport textreport timesheetreport
+                         statussheetreport).include?(keyword)
       @optionalAttributes.include?(self)
     end
 
@@ -122,10 +125,14 @@ class TaskJuggler
       @optAttrPatterns.each do |pattern, scenarioSpecific|
         next unless checkReference(pattern)
 
+        # Check if all the attributes are documented. We ignore undocumented
+        # keywords that are deprecated or removed.
         if (kwd = keywords[pattern.keyword]).nil?
-          token = pattern.terminalToken(rules)
-          $stderr.puts "Keyword #{keyword} has undocumented optional " +
-                       "attribute #{token[0]}"
+          unless [ :deprecated, :removed ].include?(pattern.supportLevel)
+            token = pattern.terminalTokens(rules)
+            $stderr.puts "Keyword #{keyword} has undocumented optional " +
+              "attribute #{token[0]}"
+          end
         else
           @optionalAttributes << kwd
           kwd.contexts << self unless kwd.contexts.include?(self)
@@ -145,7 +152,9 @@ class TaskJuggler
     def computeInheritance(keywords, rules)
       property = nil
       @contexts.each do |kwd|
-        if %w( task resource account report shift scenario).include?(kwd.keyword)
+        if %w( task resource account shift scenario
+               accountreport resourcereport taskreport textreport ).
+               include?(kwd.keyword)
           property = kwd.keyword
           break
         end
@@ -159,12 +168,12 @@ class TaskJuggler
                         project.resources
                       when 'account'
                         project.accounts
-                      when 'report'
-                        project.reports
                       when 'shift'
                         project.shifts
                       when 'scenario'
                         project.scenarios
+                      else
+                        project.reports
                       end
         keyword = @keyword
         keyword = keyword.split('.')[0] if keyword.include?('.')
@@ -192,19 +201,39 @@ class TaskJuggler
       textW = 79
 
       # Top line with multiple elements
-      str = "Keyword:     #{@keyword}     " +
-            "Scenario Specific: #{@scenarioSpecific ? 'Yes' : 'No'}    " +
-            "Inherited: #{@inheritedFromParent ? 'Yes' : 'No'}\n\n"
+      str = "#{blue('Keyword:')}     #{bold(@keyword)}\n\n"
+
+      if @pattern.supportLevel != :supported
+        msg = supportLevelMessage
+
+        if [ :deprecated, :removed ].include?(@pattern.supportLevel) &&
+           @seeAlso.length > 0
+          msg += "\n\nPlease use "
+          alsoStr = ''
+          @seeAlso.each do |also|
+            unless alsoStr.empty?
+              alsoStr += ', '
+            end
+            alsoStr += also.keyword
+          end
+          msg += "#{alsoStr} instead!"
+        end
 
-      str += "Purpose:     #{format(tagW, newRichText(@pattern.doc).to_s,
-                                    textW)}\n\n"
+        str += red("Warning:     #{format(tagW, msg, textW)}\n")
+      end
 
+      # Don't show further details if the keyword has been removed.
+      return str if @pattern.supportLevel == :removed
+
+      str += blue('Purpose:') +
+             "     #{format(tagW, newRichText(@pattern.doc).to_s,
+                                    textW)}\n"
       if @syntax != '[{ <attributes> }]'
-        str += "Syntax:      #{format(tagW, @syntax, textW)}\n\n"
+        str += blue('Syntax:') + "      #{format(tagW, @syntax, textW)}\n"
 
-        str += "Arguments:   "
+        str += blue('Arguments:') + "   "
         if @args.empty?
-          str += format(tagW, "none\n\n", textW)
+          str += format(tagW, "none\n", textW)
         else
           argStr = ''
           @args.each do |arg|
@@ -228,7 +257,7 @@ class TaskJuggler
         str += "\n"
       end
 
-      str += 'Context:     '
+      str += blue('Context:') + '     '
       if @contexts.empty?
         str += format(tagW, 'Global scope', textW)
       else
@@ -242,7 +271,7 @@ class TaskJuggler
         str += format(tagW, cxtStr, textW)
       end
 
-      str += "\n\nAttributes:  "
+      str += "\n#{blue('Attributes:')}  "
       if @optionalAttributes.empty?
         str += "none\n\n"
       else
@@ -260,34 +289,37 @@ class TaskJuggler
              attr.inheritedFromParent
             first = true
             showLegend = true
-            attrStr += '['
+            tag = '['
             if attr.scenarioSpecific
-              attrStr += 'sc'
+              tag += 'sc'
               first = false
             end
             if attr.inheritedFromProject
-              attrStr += ':' unless first
-              attrStr += 'ig'
+              tag += ':' unless first
+              tag += 'ig'
               first = false
             end
             if attr.inheritedFromParent
-              attrStr += ':' unless first
-              attrStr += 'ip'
+              tag += ':' unless first
+              tag += 'ip'
             end
-            attrStr += ']'
+            tag += ']'
+            attrStr += cyan(tag)
           end
         end
         if showLegend
-          attrStr += "\n\n[sc] : Attribute is scenario specific" +
-                     "\n[ig] : Attribute is inherited from global attribute" +
-                     "\n[ip] : Attribute is inherited from parent property"
+          attrStr += "\n\n#{cyan('[sc]')} : Attribute is scenario specific" +
+                     "\r#{cyan('[ig]')} : " +
+                     "Value can be inherited from global setting" +
+                     "\r#{cyan('[ip]')} : " +
+                     "Value can be inherited from parent property"
         end
         str += format(tagW, attrStr, textW)
         str += "\n"
       end
 
       unless @seeAlso.empty?
-        str += "See also:    "
+        str += blue('See also:') + "    "
         alsoStr = ''
         @seeAlso.each do |also|
           unless alsoStr.empty?
@@ -322,6 +354,7 @@ class TaskJuggler
           DIV.new('style' => 'margin-left:5%; margin-right:5%') do
             [
               generateHTMLKeywordBox,
+              generateHTMLSupportLevel,
               generateHTMLDescriptionBox,
               generateHTMLOptionalAttributesBox,
               generateHTMLExampleBox
@@ -406,6 +439,22 @@ class TaskJuggler
       TextFormatter.new(width, indent).format(str)[indent..-1]
     end
 
+    def generateHTMLSupportLevel
+      if @pattern.supportLevel != :supported
+        [
+          P.new do
+            newRichText("<fcol:red>#{supportLevelMessage}</fcol>").to_html
+          end,
+          [ :deprecated, :removed ].include?(@pattern.supportLevel) ?
+            P.new do
+              useInsteadMessage
+            end : nil
+        ]
+      else
+        nil
+      end
+    end
+
     def generateHTMLKeywordBox
       # Box with keyword name.
       P.new do
@@ -423,6 +472,8 @@ class TaskJuggler
     end
 
     def generateHTMLDescriptionBox
+      return nil if @pattern.supportLevel == :removed
+
       # Box with purpose, syntax, arguments and context.
       P.new do
         TABLE.new({ 'align' => 'center', 'class' => 'table' }) do
@@ -521,6 +572,8 @@ class TaskJuggler
     end
 
     def generateHTMLTableLine(col1, col2, col3 = nil, col1rows = nil)
+      return nil if @pattern.supportLevel == :removed
+
       TR.new('align' => 'left') do
         columns = []
         attrs = { 'class' => 'tag' }
@@ -535,6 +588,8 @@ class TaskJuggler
     end
 
     def generateHTMLOptionalAttributesBox
+      return nil if @pattern.supportLevel == :removed
+
       # Box with attributes.
       unless @optionalAttributes.empty?
         @optionalAttributes.sort! do |a, b|
@@ -618,6 +673,8 @@ class TaskJuggler
     end
 
     def generateHTMLExampleBox
+      return nil if @pattern.supportLevel == :removed
+
       if @pattern.exampleFile
         exampleDir = AppConfig.dataDirs('test')[0] + "TestSuite/Syntax/Correct/"
         example = TjpExample.new
@@ -634,6 +691,37 @@ class TaskJuggler
       end
     end
 
+    def supportLevelMessage
+      case @pattern.supportLevel
+      when :experimental
+        "This keyword is currently in an experimental state. " +
+        "The implementation is probably still incomplete and " +
+        "use of this keyword may lead to wrong results. Do not " +
+        "use this keyword unless you were specifically directed " +
+        "by the developers to try it."
+      when :beta
+        "This keyword has not yet been fully tested yet. You are " +
+        "welcome to try it, but it may lead to wrong results. " +
+        "The syntax may still change with future versions. " +
+        "The developers appreciate any feedback on this keyword."
+      when :deprecated
+        "This keyword should no longer be used. It will be removed " +
+        "in future versions of this software."
+      when :removed
+        "This keyword is no longer supported."
+      end
+    end
+
+    def useInsteadMessage
+      return nil if @seeAlso.empty?
+
+      descr = [ 'Use ' ]
+      @seeAlso.each do |a|
+        descr << ', ' unless descr.length <= 1
+        descr << A.new('href' => "#{a.keyword}.html") { a.title }
+      end
+      descr << " instead."
+    end
   end
 
 end