Exemplo n.º 1
0
void verify_variable_name(char *name, int line)
{
    if (!IS_A_LETTER(name[0]))
        kasm_exit("Variable name must start with a letter.", line);

    int i;
    for (i = 1; name[i]; i++) {
        // This many parentheses aren't needed but the compiler wanted them.
        if ((!IS_A_LETTER(name[i])) && (!IS_A_NUMBER(name[i])) && (name[i] != '_'))
            kasm_exit("Only alphanumeric characters and underscores allowed "
                      "for variable name.", line);
    }
}
Exemplo n.º 2
0
/* Set for each worker the buffer slice to handle */
static int buff_init(uint32_t tid)
{
    char *buff;
    off_t worker_end;

    if(fa_read_init())
        return -1;

    worker_slice = file_size / nb_thread;
    worker_current = worker_slice * tid;

    /* Last thread handle remaining bytes */
    if(tid == (nb_thread-1))
        worker_slice += file_size % nb_thread;

    worker_end = worker_current + worker_slice;

    /* Balance worker_slice to include words at the ends */
    /* skip first letters if we are not the first thread  */
    do {
        if(tid == 0)
            break;
        if(fa_read(tid, &buff, 1, worker_current) != 1)
            return -1;
        if(!IS_A_LETTER(*buff))
            break;
        dmsg3("%d skipping letter %c\n", tid, *buff);
        worker_current++;
        worker_slice--;
    } while(*buff);

    /* add letters of the last word if we are not the last thread */
    do {
        if(tid == (nb_thread-1))
            break;
        if(fa_read(tid, &buff, 1, worker_end) != 1)
            return -1;
        if(!IS_A_LETTER(*buff))
            break;
        dmsg3("%d adding letter %c\n", tid, *buff);
        worker_end++;
        worker_slice++;
    } while(*buff);

    dmsg2("%d: slice start %d, slice size %d, slice end %d\n",
          tid, worker_current, worker_slice, worker_end);

    return 0;
}
Exemplo n.º 3
0
static int buff_hdl(uint32_t tid, char* buff,
                    size_t size, char last)
{
    dmsg2("start %s, %d: word %s, count %d, *buff %c\n",
          __FUNCTION__, tid, word, count, *buff);

    for( ; size; size--, buff++)
    {
        if(!IS_A_LETTER(*buff))
        {
            /*Not a letter */
            if(add_sep(tid))
                return -1;
            continue;
        }
        /* A letter */
        if(add_letter(*buff))
            return -1;
    }

    /* If this is the last buffer, end the word (if any)*/
    if(last)
    {
        add_sep(tid);
    }

    dmsg3("end %s, %d: word %s, count %d, *buff %c\n",
          __FUNCTION__, tid, word, count, *buff);

    return 0;
}
Exemplo n.º 4
0
uint32_t insn_addr19(Instruction *i, VarList *vlist)
{
	StrNode *n = i->list->head;
	n = n->next;
	int dest = get_register_index(n->str);
	n = n->next;

	int imm = 0;
	if (IS_A_NUMBER(n->str[0])) {
		imm = immediate_convert(n->str, i->page);
	} else if (IS_A_LETTER(n->str[0])) {
		int addr = link_var_name_to_address(vlist, n->str);
		if (addr == -1)
			kasm_exit("Invalid variable label.", i->page);
		imm = addr + data_offset;
	}

	index_in_range(dest, i->page);

	return i->op1 | i->op2 << 5 | dest << 8 | imm << 13;
}