void Set_foreach (T set, Poly_tyVoid f) { Assert_ASSERT(set); List_foreach (set->list, f); return; }
static void printStrs (List_t strings) { if (List_isEmpty (strings)) return; print ("\t.data\n"); List_foreach (strings, (Poly_tyVoid)X86_Str_print); }
void X86_Fun_print (F f) { Assert_ASSERT(f); print ("\t.text\n"); print ("\t.globl _"); print (Id_toString (f->name)); print ("\n_"); print (Id_toString (f->name)); print (":\n"); print ("\tpushl %ebp\n"); print ("\tmovl %esp, %ebp\n"); { int i = List_size (f->decs); if (i){ print ("\tsubl $"); print (Int_toString (4*i)); print (", %esp\n"); } } List_foreach (f->stms, (Poly_tyVoid)X86_Stm_print); print ("\n\n"); return; }
void SentenceList_print(SentenceList_t list){ puts("All sentences:"); List_foreach(list, Sentence_print); puts(""); }