home *** CD-ROM | disk | FTP | other *** search
/ PC World 1997 November / PCWorld_1997-11_cd.bin / software / programy / komix / DATA.Z / revengcppd.tcl < prev    next >
Encoding:
Text File  |  1997-02-12  |  1.9 KB  |  76 lines
  1. #---------------------------------------------------------------------------
  2. #
  3. #      (c)     Cayenne Software Inc.    1996
  4. #
  5. #      File:           @(#)revengcppd.tcl    /main/hindenburg/3
  6. #      Author:         <generated>
  7. #      Description:
  8. #---------------------------------------------------------------------------
  9. # SccsId = @(#)revengcppd.tcl    /main/hindenburg/3   12 Feb 1997 Copyright 1996 Cayenne Software Inc.
  10.  
  11. # Start user added include file section
  12. # End user added include file section
  13.  
  14. require "revengdlg.tcl"
  15.  
  16. Class RevEngCppDlg : {RevEngDlg} {
  17.     method destructor
  18.     constructor
  19.     method getOptions
  20. }
  21.  
  22. method RevEngCppDlg::destructor {this} {
  23.     # Start destructor user section
  24.     # End destructor user section
  25.     $this RevEngDlg::destructor
  26. }
  27.  
  28. constructor RevEngCppDlg {class this name} {
  29.     set this [RevEngDlg::constructor $class $this $name "C++" "reveng_cpp"]
  30.  
  31.     interface CheckButton $this.top.association {
  32.         label "Reverse engineer associations"
  33.         state 1
  34.     }
  35.  
  36.     interface DlgRow $this.top.filter {
  37.         verStretchFactor 0
  38.         verShrinkFactor 0
  39.         Label lab {
  40.             text "Input Filter Command"
  41.         }
  42.         SingleLineText cmdline {}
  43.     }
  44.  
  45.     interface DlgRow $this.top.skipids {
  46.         verStretchFactor 0
  47.         verShrinkFactor 0
  48.         Label lab {
  49.             text "Skip Identifiers File"
  50.         }
  51.         SingleLineText filename {}
  52.     }
  53.  
  54.     $this.top.filter.cmdline text [m4_var get M4_reveng_filter]
  55.     $this.top.skipids.filename text [m4_var get M4_reveng_skipfile]
  56.  
  57.     return $this
  58. }
  59.  
  60. method RevEngCppDlg::getOptions {this} {
  61.     set script [$this RevEngDlg::getOptions]
  62.     if [$this.top.association state] {
  63.         append script " -a rev_assoc.tcl"
  64.     }
  65.     if {[$this.top.filter.cmdline text] != ""} {
  66.         append script " -I\"[$this.top.filter.cmdline text]\""
  67.     }
  68.     if {[$this.top.skipids.filename text] != ""} {
  69.         append script " -U[$this.top.skipids.filename text]"
  70.     }
  71.     return $script
  72. }
  73.  
  74. # Do not delete this line -- regeneration end marker
  75.  
  76.