Exemplo n.º 1
0
value print_ws (value v)
{
    value ht_block = make_ht ();

    hash_table_t *ht = (hash_table_t *) Field(ht_block, 1);

    print_value (v, PASS1, ht);
    print_value (v, PASS2, ht);
    fflush(stdout);
    return Val_unit;
}
Exemplo n.º 2
0
Type* VariableType::get_tl() {
	if (tail == nullptr) make_ht();
	return tail;
}
Exemplo n.º 3
0
Type* VariableType::get_hd() {
	if (head == nullptr) make_ht();
	return head;
}