|
org.unizone.0.8548
Instance of TypeScriptInfo
| Node data | Value |
| org.edgescript.TypeScriptInfo.prerequisiteParcels | List{} |
| org.edgescript.TypeScriptInfo.prerequisiteMethods | List{} |
| org.edgescript.TypeScriptInfo.script | /* BaliSource subclass: #BaliDiff instanceVariableNames: ' diff dimSymbol factor ' classVariableNames: '' poolDictionaries: '' category: 'Bali'! !BaliDiff methodsFor: 'source'! basicValueAspect: anAspect environment: env | dim v1 v2 newEnv identifier | env gig isNil ifTrue: [^nil]. dim := env gig dimensionType: self dimSymbol value. v1 := self nextSource valueAspect: anAspect environment: env. v1 isNil ifTrue: [^nil]. newEnv := JazzEnvironment new parent: env. identifier := 'cond_' , dim name. newEnv localAt: identifier put: (dim subtractFrom: (env localAt: identifier) diff: self diff value). v2 := self nextSource valueAspect: anAspect environment: newEnv. v2 isNil ifTrue: [^nil]. ^self factor value * (v1 - v2)! basicValueTypes ^#(#diff)! defaultName | sourceName diffStr | sourceName := self nextSource name. diffStr := self diff value printString. self dimSymbol value = #dimHistory ifTrue: [diffStr := diffStr , ' days']. self dimSymbol value = #dimMaturity ifTrue: [diffStr := diffStr , ' years maturity']. self dimSymbol value = #dimForward ifTrue: [diffStr := diffStr , ' years maturity']. self factor value = 1 ifFalse: [^' diff ' , self factor value printString , ' * (' , sourceName , ', ' diffStr , ')'] ifTrue: [^' diff (' , sourceName , ', ' , diffStr , ')'].! ! !BaliDiff methodsFor: 'aspects'! diff diff isNil ifTrue: [diff := 1 asValue]. ^diff! dimSymbol dimSymbol isNil ifTrue: [dimSymbol := #dimHistory asValue]. ^dimSymbol! factor factor isNil ifTrue: [factor := 1 asValue]. ^factor! uiClass ^BaliDiffUI! ! !BaliDiff methodsFor: ' database'! addDefinition | aspects | (aspects := super addDefinition) isNil ifTrue: [^nil]. self addAspect: #dbDiff value: self diff value printString position: aspects + 1. self addAspect: #dbDimension value: self dimSymbol value asString position: aspects + 2. ^aspects + 2! dbDiff: aString self diff value: (GotheTools atod: aString).! dbDimension: aString self dimSymbol value: aString asSymbol! ! "-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- "! BaliDiff class instanceVariableNames: ''! !BaliDiff class methodsFor: 'aspects'! scriptClass ^' Diff'! scriptSuperClass ^'Effect'! ! */ |
| org.edgescript.TypeScriptInfo.defineType | org.unizone.source.Diff |
| org.edgescript.TypeScriptInfo.prerequisiteScripts | List{} |