ALDT (Arnulf's LaTeX Documentation Tool)

#=====================================================
# ScriptLineObjType.tcl 
# *
# * ALDT (Arnulf's Latex Documentation Tool)
# * A Tcl parser for LaTeX files for generating document output (for example html)
# *
# * Store info of a script line
# *
# * Released under same BSD license as Tcl.
# * (Tcl BSD license found at <http://www.tcl.tk/software/tcltk/license.html>)
# *
# * Copyright 2012 Arnulf P. Wiedemann
#=====================================================

namespace eval ::Parser {

::itcl::class ScriptLineObjType {
  private common oid 0

  private variable id

  constructor {} {}
  public method mySelf {}
  public method toString {}
  public method toDebugString {}
  public method setFromAny {obj_ptr}
  public method newScriptLineObject {argc line}
}

  # ==================== constructor ==================================
::itcl::body ScriptLineObjType::constructor {} {
    incr oid
    set id $oid

  }

  # ==================== mySelf ==================================
::itcl::body ScriptLineObjType::mySelf {} {
    set str "ScriptLineObjType!$id!"
    return $str
  }

  # ==================== toString =====================================
::itcl::body ScriptLineObjType::toString {} {
    return "[mySelf]!"
  }

  # ==================== toDebugString =====================================
::itcl::body ScriptLineObjType::toDebugString {} {
    set str "[mySelf]\n"
    return $str
  }

  # ==================== setFromAny ==================================
::itcl::body ScriptLineObjType::setFromAny {obj_ptr} {
puts "script line setFromAny not yet implemented"
  }

  # ==================== newScriptLineObject ==================================
::itcl::body ScriptLineObjType::newScriptLineObject {argc line} {
    set debug_script 1
    set obj_ptr [list]

    if {$debug_script > 0} {
      set str "line=$line, argc=argc"
      set obj_ptr [$string_obj_type newStringObj $str -1 "SCRIPT_LINE_OBJ_TYPE_1"]
    } else {
      set obj_ptr [$string_obj_type newEmptyStringObj "SCRIPT_LINE_OBJ_TYPE_2"]
    }
    $obj_ptr setObjType OBJ_TYPE_SCRIPT_LINE
    $obj_ptr scriptLineValue_SetArgc $argc
    $obj_ptr scriptLineValue_SetLine $line

    return $obj_ptr
  }

}