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: |
94c59675c0161c30c14e39b81d0f41b8 |
User & Date: | arnulf 2012-08-26 11:35:09.031 |
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
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 } } |