version 1.20, 2004/03/04 12:28:14 |
version 1.22, 2004/03/04 13:19:11 |
|
|
* 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.21 2004/03/04 13:12:27 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)); |
Line 615 static struct TeXSymbol texsymbol[] = { |
|
Line 620 static struct TeXSymbol texsymbol[] = { |
|
{"c_i","\\sqrt{-1}"}, |
{"c_i","\\sqrt{-1}"}, |
|
|
/* Temporary */ |
/* Temporary */ |
{"dx","\\partial"}, |
|
{0,0} |
{0,0} |
}; |
}; |
|
|