Exemple #1
0
int tm_eq(tm_obj a, tm_obj b){
	if( a.type != b.type ) return 0;
	switch( a.type ){
		case TM_NUM:
			return get_num(a) == get_num(b);
		case TM_STR:
		{
			char* sa = get_str(a);
			char* sb = get_str(b);
			return sa == sb || ( get_str_len(a) == get_str_len(b) && 
				strncmp(sa, sb, get_str_len(a)) == 0 );
		}
		case TM_LST:
		{
			if( get_list(a) == get_list(b)) return 1;
			int i;
			int len = get_list(a)->len;
			tm_obj* nodes1 = get_list(a)->nodes;
			tm_obj* nodes2 = get_list(b)->nodes;
			for(i = 0; i < len; i++){
				if( !tm_eq(nodes1[i], nodes2[i]) ){
					return 0;
				}
			}
			return 1;
		}
		case TM_NON:return 1;
		default: tm_raise("tm_eq(): not supported type %d", a.type);
	}
	return 0;
}
Exemple #2
0
tm_obj tm_add(  tm_obj a, tm_obj b){
	if( a.type == b.type ){
		switch( a.type ){
			case TM_NUM:
				get_num(a) += get_num(b);
				return a;
			case TM_STR:
			{
				char* sa = get_str(a);
				char* sb = get_str(b);
				int la = get_str_len(a);
				int lb = get_str_len(b);
				if( la == 0){
					return b;
				}
				if( lb == 0){
					return a;
				}
				int len = la + lb;
				tm_obj des = str_new(NULL, len);
				char*s = get_str(des);
				memcpy(s,      sa, la);
				memcpy(s + la, sb, lb);
				return des;
			}
			case TM_LST:
			{
				return list_join(get_list(a), get_list(b) );
			}
		}
	}
    tm_raise("tm_add: can not add %t and %t", (a),(b));
	return obj_none;
}
Exemple #3
0
tm_obj tm_get(tm_obj self, tm_obj k){
	tm_obj v;
	switch( self.type){
		case TM_STR:{
			if( k.type == TM_NUM ){
				int n = get_num(k);		
				if (n < 0) n += get_str_len(self);	
				if( n >= get_str_len(self) || n < 0)
					tm_raise("tm_get: index overflow");
				//tm_printf("str = @, len = @, index = @\n", self,number_new(get_str_len(self)),  k);
				unsigned char c = get_str(self)[n];
                //printf("c = %d\n", c);
				return __chars__[c];
			}else if( dict_iget( get_dict(str_class), k , &v) ){
				return method_new(v, self);
			}
		}
		case TM_LST: {
			if( k.type == TM_NUM ){
				return list_get( self.value.list, get_num(k));
			}else if( dict_iget(get_dict(list_class), k, &v) ){
				return method_new( v, self);
			}
			break;
		}
		case TM_DCT:
			if( dict_iget( get_dict(self), k, &v)){
				return v;
			}else if(dict_iget(get_dict(dict_class), k, &v)){
				return method_new( v, self);
			}
			break;
		case TM_FNC:
            /*
			if( k.type == TM_STR && strequals(get_str(k), "code")){
				return get_func( self )->code;
			}*/
            break;
	}
    // tm_printf_only_type("@", self);
	// cprintln(self);
	tm_raise("tm_get: keyError @, self = @ ", _tm_type(k), _tm_type(self) );
	return obj_none;
}
Exemple #4
0
int _tm_bool( tm_obj v){
	switch( v.type ){
		case TM_NUM:return get_num(v) != 0;
		case TM_NON:return 0;
		case TM_STR:return get_str_len(v) > 0;
		case TM_LST:return get_list_len(v) > 0;
		case TM_DCT:return get_dict_len(v) > 0;
	}
	return 0;
}
Exemple #5
0
tm_obj _tm_save(char*fname, tm_obj content){
	FILE* fp = fopen(fname, "wb");
	if( fp == NULL ){
		tm_raise("tm_save : can not save to file @" , fname );
	}
	char* txt = get_str( content );
	int len = get_str_len( content );
	fwrite(txt, len, 1, fp);
    fclose(fp);
}
Exemple #6
0
void print_word( char* c)
{
	int length = get_str_len(c);
	int i = 0;
	for(; i < length; i++)
	{
		char ch = c[i];
			
			printf("%c", ch);
	}
}
Exemple #7
0
void
h_string_append (HString *str, const char *append, int len)
{
	int l;

	l = get_str_len (append, len);
	str->str = (char *) realloc (str->str, str->len + l + 1);
	memcpy (str->str + str->len, append, l);
	str->len += l;
	str->str[str->len] = '\0';
}
Exemple #8
0
tm_obj tm_mul( tm_obj a, tm_obj b){
	if( a.type == b.type && a.type == TM_NUM){
		return number_new( get_num(a) * get_num(b) );
	}
	if( a.type == TM_NUM && b.type == TM_STR){
		tm_obj temp = a;
		a = b;
		b = temp;
	}
	if( a.type == TM_STR && b.type == TM_NUM){
		if( get_str_len(a) == 0) return a;
		tm_obj str = str_new(NULL, get_int(b) * get_str_len(a) );
		char* s = get_str(str);
		int i;for(i = 0; i < get_str_len(str) ; i+= get_str_len(a)){
			memcpy( s + i , get_str(a), get_str_len(a));
		}
		return str;
	}
	tm_raise("tm_mul: can not mul  @ and @", a,b );
	return obj_none;
}
Exemple #9
0
tm_obj _tm_not( tm_obj o){
	switch( o.type ){
		case TM_NUM:
			if( get_num(o) ) return obj_false;
			return obj_true;
		case TM_STR:
			if( get_str_len(o) > 0) return obj_false;
			return obj_true;
		case TM_NON:
			return obj_true;
	}
	return obj_false;
}
Exemple #10
0
HString *
h_string_new (const char *initValue, int len)
{
	HString *str;
	unsigned int l;

	str = (HString *) malloc (sizeof (HString));
	l = get_str_len (initValue, len);
	str->str = (char *) malloc (l + 1);
	memcpy (str->str, initValue, l);
	str->str[l] = '\0';
	str->len = l;
	return str;
}
Exemple #11
0
void print_dependencies(struct file_redir** file_depend_list)
{
	int index;
	for(index = 0; index < g_num_depend; index++)
	{
		printf("%d ", index);
		int num = file_depend_list[index][0].num;
		int i;
		
		if(num == 0)
		{
			printf("no files\n");
			continue;
		}
		/*else
		{
			printf("num: %d\n", num);
		}*/
		for(i = 1; i < num+1; i++)
		{
			/*char* c = file_depend_list[index][i].fileName;

			if(c == 0)
			{
				printf("NULL: %d\n", index);
			}*/

			int length = get_str_len(file_depend_list[index][i].fileName);
		//	printf("length: %d\n", length);
			int j;
			for(j = 0; j < length; j++)
			{
				char c = file_depend_list[index][i].fileName[j];
				printf("%c", c);
			}
			if(file_depend_list[index][i].redir == INPUT)
			{
				printf(", INPUT\n");
			}
			else
			{
				printf(", OUTPUT\n");
			}
			
		}
	}
}
//Driver
int main( int argc, char *argv[] )
{
//Local Variables
char test_str[ MAX_STR_SZ + 1 ];
int str_sz;

//CLI Parsing
    if( argc < 2 )
    {
        //Prompt the user for input
        printf( "Please Enter String for consideration\nMax Character Length: %d\n>", MAX_STR_SZ );
        fgets( test_str, MAX_STR_SZ, stdin );
    }

    //Size Checking of argument
    str_sz = get_str_len( argv[ 1 ] );

    memcpy( &test_str, argv[ 1 ], ( ( str_sz < MAX_STR_SZ ? str_sz : MAX_STR_SZ ) ) );

    printf( "Result: %s\n", ( determine_palindrome( ( char* )( &test_str ), str_sz ) ? "Yes." : "No. " ) );

    return 0;

}
Exemple #13
0
void print_words(char** words, int numWords)
{
	//printf("numWords: %d\n", numWords);
	int i;
	for(i = 0; i < numWords; i++)
	{
		char* word = words[i];
		int length = get_str_len(word);
		//printf("printWord1");
		//printWord(word);
		//printf("printWord2");
		//int length = strlen(word);
		int j;
		//printf("length: %d\n", length);
		for(j = 0; j < length; j++)
		{
			char c = word[j];
			
			printf("%c", c);
		}
		printf(" ");
	}
	printf("\n");
}