Example #1
0
File: set.c Project: bjhua/dragon
void Set_foreach (T set, Poly_tyVoid f)
{
  Assert_ASSERT(set);

  List_foreach (set->list, f);
  return;
}
Example #2
0
File: x86.c Project: bjhua/dragon
static void printStrs (List_t strings)
{
  if (List_isEmpty (strings))
    return;
  print ("\t.data\n");
  List_foreach (strings, 
                (Poly_tyVoid)X86_Str_print);
}
Example #3
0
File: x86.c Project: bjhua/dragon
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("");
}