compat.tcl
Go to the documentation of this file.00001 # ----------------------------------------------------------------------------
00002 # Copyright (C) 1997-2004 The CDG Team <cdg@nats.informatik.uni-hamburg.de>
00003 #
00004 # This file is free software; as a special exception the author gives
00005 # unlimited permission to copy and/or distribute it, with or without
00006 # modifications, as long as this notice is preserved.
00007 #
00008 # This program is distributed in the hope that it will be useful, but
00009 # WITHOUT ANY WARRANTY, to the extent permitted by law; without even the
00010 # implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
00011 # ----------------------------------------------------------------------------
00012
00013
00014 ## ----------------------------------------------------------------------------
00015 ## \file compat.tcl
00016 ## Compatibility Stuff. This file is serves as a workarround in differences
00017 ## of old and new swig interfaces, that is differences of the interfaces generated
00018 ## with swig version 1.1.x and 1.3.x. This file might get obsolete when we
00019 ## will discontinue to support the old swig in the near future.
00020 ##
00021 ## Here's the list of general differences that I came accross so far:
00022 ## - global variables: old swig generated an access function like
00023 ## \c hkVerbosity_get and \c hkVerbosity_set that access the global variable.
00024 ## In new swigish
00025 ## we get a variable \c $hkVerbosity and read and write access is handled
00026 ## by internal getter and setter functions. When trying to write to a immutable
00027 ## variable swig intercepts that with a proper error message. So for
00028 ## backwards compatibility we reintroduce the explicit access function to get
00029 ## the old tcl sources running
00030 ##
00031 ## \author Michael Daum
00032 ##
00033 ## $Id: compat.tcl,v 1.5 2004/09/06 13:40:54 micha Exp $
00034 ## ----------------------------------------------------------------------------
00035
00036 if {[info commands inputCurrentGrammar_get] == ""} {
00037
00038 # new swig
00039
00040 uplevel #0 {
00041
00042
00043 proc cnEdgesFlag_get {} {
00044 return $::cnEdgesFlag
00045 }
00046
00047 proc cnShowDeletedFlag_get {} {
00048 return $::cnShowDeletedFlag
00049 }
00050
00051 proc cnSortNodesMethod_get {} {
00052 return $::cnSortNodesMethod
00053 }
00054
00055 proc cnUnaryPruningFraction_get {} {
00056 return $::cnUnaryPruningFraction
00057 }
00058
00059 proc evalSloppySubsumesWarnings_get {} {
00060 return $::evalSloppySubsumesWarnings
00061 }
00062
00063 proc hkHooks_get {} {
00064 return $::hkHooks
00065 }
00066
00067 proc icParamsStr_get {} {
00068 return $::icParamsStr
00069 }
00070
00071 proc inputAnnoCats_get {} {
00072 return $::inputAnnoCats
00073 }
00074
00075 proc inputCurrentGrammar_get {} {
00076 return $::inputCurrentGrammar
00077 }
00078
00079 proc inputDefaultSection_get {} {
00080 return $::inputDefaultSection
00081 }
00082
00083 proc inputFeatureHierarchy_get {} {
00084 return $::inputFeatureHierarchy
00085 }
00086
00087 proc inputLocale_get {} {
00088 return $::inputLocale
00089 }
00090
00091 proc inputMostRecentlyCreatedLattice_get {} {
00092 return $::inputMostRecentlyCreatedLattice
00093 }
00094
00095 proc inputPrepSuffix_get {} {
00096 return $::inputPrepSuffix
00097 }
00098
00099 proc inputPreprocessor_get {} {
00100 return $::inputPreprocessor
00101 }
00102
00103 proc inputSections_get {} {
00104 return $::inputSections
00105 }
00106
00107 proc nsNormalization_get {} {
00108 return $::nsNormalization
00109 }
00110
00111 proc nsSearchModifiesNetFlag_get {} {
00112 return $::nsSearchModifiesNetFlag
00113 }
00114
00115 proc parseMostRecentlyCreatedParse_get {} {
00116 return $::parseMostRecentlyCreatedParse
00117 }
00118
00119 proc scUseCache_get {} {
00120 return $::scUseCache
00121 }
00122
00123 proc statUseStatisticsFlag_get {} {
00124 return $::statUseStatisticsFlag
00125 }
00126
00127 proc vmAcoustics_get {} {
00128 return $::vmAcoustics
00129 }
00130
00131 proc hkVerbosity_get {} {
00132 return $::hkVerbosity
00133 }
00134 proc hkVerbosity_set {value} {; ## \type TclNumber
00135 set ::hkVerbosity $value
00136 }
00137
00138 proc cdgCtrlCTrapped_get {} {
00139 return $::cdgCtrlCTrapped
00140 }
00141 proc cdgCtrlCTrapped_set {value} {; ## \type TclBoolean
00142 set ::cdgCtrlCTrapped $value
00143 }
00144
00145 proc cdgCtrlCAllowed_get {} {
00146 return $::cdgCtrlCAllowed
00147 }
00148 proc cdgCtrlCAllowed_set {value} {; ## \type TclBoolean
00149 set ::cdgCtrlCAllowed $value
00150 }
00151
00152 proc cdgXCDG_get {} {
00153 return $::cdgXCDG
00154 }
00155 proc cdgXCDG_set {value} {; ## \type TclBoolean
00156 set ::cdgXCDG $value
00157 }
00158
00159 proc cdgTimeLimit_get {} {
00160 return $::cdgTimeLimit
00161 }
00162 proc cdgTimeLimit_set {value} {; ## \type TclNumber
00163 set ::cdgTimeLimit $value
00164 }
00165
00166 proc cdgUser_get {} {
00167 return $::cdgUser
00168 }
00169 proc cdgUser_set {value} {; ## \type TclString
00170 set ::cdgUser $value
00171 }
00172
00173 proc cdgNets_get {} {
00174 return $::cdgNets
00175 }
00176 proc cdgNets_set {value} {; ## \type Hashtable
00177 set ::cdgNets $value
00178 }
00179
00180 proc cnMostRecentlyCreatedNet_get {} {
00181 return $::cnMostRecentlyCreatedNet
00182 }
00183
00184 proc cnMostRecentlyCreatedNet_set {value} {; ## \type TclString
00185 set ::cnMostRecentlyCreatedNet $value
00186 }
00187
00188 }; # end of uplevel
00189 } else {
00190
00191 # old swigish
00192
00193 proc pointer2string {pointer} { ; ## \type VoidPointer
00194 return [ptrvalue [ptrcast $pointer String]]
00195 }
00196
00197 }
00198
XCDG 0.95 (20 Oct 2004)