Ejemplo n.º 1
0
void printAnswerTemplate(FILE *fp, CPtr pAnsTmplt, int size) {

  int i;

  fprintf(fp, "Answer Template:\n\tret(");
  if (size > 0) {
    for (i = 1; i < size; i++) {
      printterm(fp, *pAnsTmplt--, 10);
      fprintf(fp, ",");
    }
    printterm(fp, *pAnsTmplt, 10);
  }
  fprintf(fp, ")\n");
}
void printAnswerTemplate(FILE *fp, CPtr pAnsTmplt, int size) {

  int i;

  fprintf(fp, "Answer Template %p:\n\tret(",pAnsTmplt);
  if (size > 0) {
    for (i = 1; i < size; i++) {
      printf("\t");printterm(fp, *pAnsTmplt--, 10);fprintf(stddbg,"-%p",(void *)*(pAnsTmplt+1));
      fprintf(fp, ",\n");
    }
    printf("\t");printterm(fp, *pAnsTmplt, 10);fprintf(stddbg,"-%p",(void *)*(pAnsTmplt));
  }
  fprintf(fp, "\t\n");
}
Ejemplo n.º 3
0
void printTabledCall(FILE *fp, TabledCallInfo callInfo) {

  int arity, i;
  Psc pPSC;
  
  pPSC = TIF_PSC(CallInfo_TableInfo(callInfo));
  fprintf(fp, "%s(", get_name(pPSC));
  arity = CallInfo_CallArity(callInfo);
  for (i = 0; i < arity; i++) {
    printterm( fp, (Cell)(CallInfo_Arguments(callInfo)+i), 25 );
    if (i+1 < arity)
      fprintf(fp, ",");
  }
  fprintf(fp, ")");
}