# Komplexe Namensregel
# C < 0  --> A
# C == 0 --> Fehler
# C > 0  --> B+ $anzahl
# wenn b, dann Name zuerst

package require java 

set retval " "

set c [$object getC]
if {$c < 0} {
  append retval A
} elseif {$c == 0} {
  set exp [java::new NameSchemaViolation "Wert C ist 0"]
  java::throw $exp
} else {
  append retval "B$c"
}

set b [$object getB]
if {[java::isnull $b]} {
  append retval [$object getA]
} else {
  append retval [$b toString]/[$object getA]
}

puts $retval