def codeListConfigGet( codeListConfig, key): ensureConsType( codeListConfig, ar_codeListConfig) codeListConfigEnvironment= assocGet( codeListConfig, (lambda x: x.car()==key)) if 0==listLen( codeListConfigEnvironment): assert( False) # test-hook codeListConfigSet( codeListConfigSet, key, None) # baustelle: ungetestet codeListConfigEnvironment= assocGet( codeListConfig, (lambda x: x.car()==key)) assert( 1==listLen( codeListConfigEnvironment)) return consesNth0( assocNth0( codeListConfigEnvironment, 0), 1)
def codeListConfigSet( codeListConfig, key, value): ensureConsType( codeListConfig, ar_codeListConfig) codeListConfigEnvironment= assocGet( codeListConfig, (lambda x: x.car()==key)) assert( 1==listLen( codeListConfigEnvironment)) assocNth0( codeListConfigEnvironment, 0).cdr().car( value)