OpenXM_contrib2/asir2000/builtin/strobj.c - diff

Return to strobj.c CVS log

Up to [local] / OpenXM_contrib2 / asir2000 / builtin

version 1.36, 2004/03/10 05:37:24

version 1.37, 2004/03/10 06:12:25

Line 45

* DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE,

* PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE.

* $OpenXM: OpenXM_contrib2/asir2000/builtin/strobj.c,v 1.35 2004/03/10 05:27:03 noro Exp $

* $OpenXM: OpenXM_contrib2/asir2000/builtin/strobj.c,v 1.36 2004/03/10 05:37:24 noro Exp $

#include "ca.h"

#include "parse.h"

Line 184 char *conv_subscript(char *name)

char **subs;

len = strlen(name);

if ( !len ) return 0;

subs = (char **)ALLOCA(len*sizeof(char* ));

for ( i = 0, j = 0, start = i; ; j++ ) {

while ( (i < len) &&

Line 196 char *conv_subscript(char *name)

Line 197 char *conv_subscript(char *name)

else if ( name[i] == '}' ) level--;

}

slen = i-start;

brace = (char *)ALLOCA((slen+1)*sizeof(char));

if ( slen >= 3 ) {

strncpy(brace,name+start+1,slen-2);

brace = (char *)ALLOCA((slen+1)*sizeof(char));

brace[slen-2] = 0;

strncpy(brace,name+start+1,slen-2);

buf = conv_subscript(brace);

brace[slen-2] = 0;

subs[j] = (char *)ALLOCA((strlen(buf)+3)*sizeof(char));

buf = conv_subscript(brace);

sprintf(subs[j],"{%s}",buf);

subs[j] = (char *)ALLOCA((strlen(buf)+3)*sizeof(char));

sprintf(subs[j],"{%s}",buf);

} else

subs[j] = "{}";

} else {

if ( isdigit(name[i]) )

while ( i < len && isdigit(name[i]) ) i++;