home *** CD-ROM | disk | FTP | other *** search
/ PC World 1997 November / PCWorld_1997-11_cd.bin / software / programy / komix / DATA.Z / docbatch.tcl < prev    next >
Text File  |  1996-12-06  |  2KB  |  83 lines
  1. #---------------------------------------------------------------------------
  2. #
  3. #      (c)     Westmount Technology    1995
  4. #
  5. #      File:           @(#)docbatch.tcl    /main/hindenburg/2
  6. #      Author:         voyager
  7. #      Description:    do some docwriter actions as batch job
  8. #---------------------------------------------------------------------------
  9. # SccsId = @(#)docbatch.tcl    /main/hindenburg/2   6 Dec 1996 Copyright 1994 Westmount Technology
  10.  
  11. source [m4_path_name tcl libocl.tcl]
  12. source [m4_path_name tcl platform.tcl]
  13.  
  14. proc read_require_file {file} {
  15.     if [catch {set name [m4_path_name tcl $file]}] {
  16.         set name $file
  17.     }
  18.     source $name
  19. }
  20.  
  21. require procs.tcl
  22. require messagehdl.tcl
  23. require config.tcl
  24. require docgenerat.tcl
  25. require docprocs.tcl
  26. require docstructp.tcl
  27. require doctool.tcl
  28.  
  29. proc wmtkmessage {msg} {
  30.     puts $msg
  31. }
  32.  
  33. proc wmtkfatal {msg} {
  34.     wmtkerror $msg
  35.     exit
  36. }
  37.  
  38. global classCount
  39. set classCount 0
  40.  
  41. sourceOptional u_docbatch
  42.  
  43. global docToolObjectHdlr
  44. set docToolObjectHdlr [CustObjHandler new]
  45. $docToolObjectHdlr setCurrentContext
  46.  
  47. if {[llength $argv] != 4} {
  48.     error "Usage: otprint docbatch.tcl -- <command> \
  49.         <configVersion> <systemVersion> <file>"
  50.     exit
  51. }
  52. set cmd [lindex $argv 0]
  53. set cv [lindex $argv 1]
  54. set sv [lindex $argv 2]
  55. set file [lindex $argv 3]
  56.  
  57. # make a Document
  58. set document [Document new $sv]
  59. $document initialize [ConfigVersion new $cv]
  60.  
  61. # cd to the docdir
  62. set crntPath [pwd]
  63. cd [$document directory]
  64.  
  65. # make the doctool
  66. DocTool new docTool $document
  67.  
  68. # the component and section generator
  69. DocGenerator new generator
  70. if [catch {set returnValue [docTool startCommand $cmd $file]} msg] {
  71.     puts $msg
  72.     global errorInfo
  73.     if {[info exists errorInfo]} {
  74.         puts $errorInfo
  75.     }
  76.     set returnValue 0
  77. }
  78. # cd back
  79. cd $crntPath
  80.  
  81. wmtkmessage Done
  82. exit $returnValue
  83.