version 1.20, 2004/03/04 12:28:14 |
version 1.21, 2004/03/04 13:12:27 |
|
|
* DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE, |
* DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE, |
* PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE. |
* PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE. |
* |
* |
* $OpenXM: OpenXM_contrib2/asir2000/builtin/strobj.c,v 1.19 2004/03/04 08:02:36 noro Exp $ |
* $OpenXM: OpenXM_contrib2/asir2000/builtin/strobj.c,v 1.20 2004/03/04 12:28:14 noro Exp $ |
*/ |
*/ |
#include "ca.h" |
#include "ca.h" |
#include "parse.h" |
#include "parse.h" |
Line 149 char *conv_rule_d(char *name) |
|
Line 149 char *conv_rule_d(char *name) |
|
else |
else |
b[j++] = name[i++]; |
b[j++] = name[i++]; |
} |
} |
if ( i == l ) return name; |
if ( i == l ) |
|
if ( name[0] == 'd' ) |
|
goto END; |
|
else |
|
return name; |
/* we found a digit or '_' */ |
/* we found a digit or '_' */ |
b[j++] = '_'; b[j++] = '{'; |
b[j++] = '_'; b[j++] = '{'; |
if ( name[i] == '_' ) i++; |
if ( name[i] == '_' ) i++; |
Line 181 char *conv_rule_d(char *name) |
|
Line 185 char *conv_rule_d(char *name) |
|
} |
} |
} |
} |
b[j++] = '}'; |
b[j++] = '}'; |
|
END: |
if ( name[0] == 'd' ) b[j++] = '}'; |
if ( name[0] == 'd' ) b[j++] = '}'; |
b[j++] = 0; |
b[j++] = 0; |
r = (char *)MALLOC_ATOMIC((j+1)*sizeof(char)); |
r = (char *)MALLOC_ATOMIC((j+1)*sizeof(char)); |