Main Page | Namespace List | Class Hierarchy | Alphabetical List | Class List | File List | Namespace Members | Class Members | File Members | Related Pages

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)