version 1.1, 2003/05/11 21:36:33 |
version 1.2, 2005/10/16 18:56:35 |
|
|
#include "gen_locl.h" |
#include "gen_locl.h" |
|
|
/* |
/* |
RCSID("$KTH: gen_copy.c,v 1.12 2001/09/25 13:39:26 assar Exp $"); |
RCSID("$KTH: gen_copy.c,v 1.14 2003/10/03 00:27:36 lha Exp $"); |
*/ |
*/ |
|
|
static void |
static void |
|
|
break; |
break; |
case TInteger: |
case TInteger: |
case TUInteger: |
case TUInteger: |
|
case TBoolean: |
case TEnumerated : |
case TEnumerated : |
fprintf(codefile, "*(%s) = *(%s);\n", to, from); |
fprintf(codefile, "*(%s) = *(%s);\n", to, from); |
break; |
break; |
|
|
break; |
break; |
case TGeneralString: |
case TGeneralString: |
copy_primitive ("general_string", from, to); |
copy_primitive ("general_string", from, to); |
|
break; |
|
case TUTF8String: |
|
copy_primitive ("utf8string", from, to); |
|
break; |
|
case TNull: |
break; |
break; |
case TApplication: |
case TApplication: |
copy_type (from, to, t->subtype); |
copy_type (from, to, t->subtype); |