|
|
@ -125,19 +125,33 @@ tstylesheet { |
|
|
|
choose { |
|
|
|
when "../enum[@name=$type]" |
|
|
|
|> _obj->«$cname» = («$ctype») (int) value; |
|
|
|
when "$type = 'string'" { |
|
|
|
|> free(_obj->«$cname»); |
|
|
|
|> _obj->«$cname» = to_«$type»(env, value); |
|
|
|
} |
|
|
|
otherwise { |
|
|
|
const "free" choose { |
|
|
|
when "$ctype = 'pEp_identity'" > identity |
|
|
|
when "contains($ctype, '_t')" value "substring-before($ctype, '_t')"; |
|
|
|
otherwise value "$ctype"; |
|
|
|
} |
|
|
|
choose { |
|
|
|
when "$type = 'string'" { |
|
|
|
|> free(_obj->«$cname»); |
|
|
|
} |
|
|
|
otherwise { |
|
|
|
const "free" choose { |
|
|
|
when "$ctype = 'pEp_identity'" > identity |
|
|
|
when "contains($ctype, '_t')" value "substring-before($ctype, '_t')"; |
|
|
|
otherwise value "$ctype"; |
|
|
|
} |
|
|
|
|
|
|
|
|> free_«$free»(_obj->«$cname»); |
|
|
|
|> _obj->«$cname» = to_«$type»(env, value); |
|
|
|
|> free_«$free»(_obj->«$cname»); |
|
|
|
} |
|
|
|
} |
|
|
|
|> if(value){ |
|
|
|
choose { |
|
|
|
when "$type = 'string'" { |
|
|
|
|>> _obj->«$cname» = to_«$type»(env, value); |
|
|
|
} |
|
|
|
otherwise { |
|
|
|
|>> _obj->«$cname» = to_«$type»(env, value); |
|
|
|
} |
|
|
|
} |
|
|
|
|> }else{ |
|
|
|
|> _obj->«$cname» = NULL; |
|
|
|
|> } |
|
|
|
} |
|
|
|
} |
|
|
|
|| |
|
|
|