ALDT (Arnulf's LaTeX Documentation Tool)

Check-in [94c59675c0]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:initial version
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:94c59675c0161c30c14e39b81d0f41b8dc0f2e40
User & Date: arnulf 2012-08-26 11:35:09
Context
2012-08-26
11:46
initil version check-in: 56555330e2 user: arnulf tags: trunk
11:35
initial version check-in: 94c59675c0 user: arnulf tags: trunk
10:26
initial version check-in: 33a1c9b943 user: arnulf tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Added ScriptLineObjType.tcl.





























































































































































>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
#=====================================================
# 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
  }

}