C++ (Cpp) PL_haltの例

コード例 #1

ファイル: pl-main.c プロジェクト: DouglasRMiles/swipl-devel

int
main(int argc, char **argv)
{
#if O_CTRLC
    main_thread_id = GetCurrentThreadId();
    SetConsoleCtrlHandler((PHANDLER_ROUTINE)consoleHandlerRoutine, TRUE);
#endif

#if O_ANSI_COLORS
    PL_w32_wrap_ansi_console();	/* decode ANSI color sequences (ESC[...m) */
#endif
#ifdef READLINE
    PL_initialise_hook(install_readline);
#endif

    if ( !PL_initialise(argc, argv) )
        PL_halt(1);

    for(;;)
    {   int status = PL_toplevel() ? 0 : 1;

        PL_halt(status);
    }

    return 0;
}

コード例 #2

ファイル: pl-debug.c プロジェクト: ddgold/design_patterns

int
prolog_debug_from_string(const char *spec, int flag)
{ const char *end;

  while((end=strchr(spec, ',')))
  { if ( end-spec < MAX_TOPIC_LEN )
    { char buf[MAX_TOPIC_LEN];

      strncpy(buf, spec, end-spec);
      buf[end-spec] = EOS;
      if ( !prolog_debug_topic(buf, flag) )
      { Sdprintf("ERROR: Unknown debug topic: %s\n", buf);
	PL_halt(1);
      }

      spec = end+1;
    } else
    { Sdprintf("ERROR: Invalid debug topic: %s\n", spec);
    }
  }

  if ( !prolog_debug_topic(spec, flag) )
  { Sdprintf("ERROR: Unknown debug topic: %s\n", spec);
    PL_halt(1);
  }

  return TRUE;
}

コード例 #3

ファイル: xpce-stub.c プロジェクト: edechter/packages-xpce

int PASCAL
WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance,
	LPSTR lpszCmdLine, int nCmdShow)
{ char *	argv[100];
  int		argc;

  program = program_name(hInstance);
  argc = breakargs(program, lpszCmdLine, argv);

  bind_terminal();
  PL_set_prolog_flag("verbose", PL_ATOM, "silent"); /* operate silently */
  DEBUG(ok("About to start Prolog with %d arguments", argc));
  if ( !PL_initialise(argc, argv) )
  { ok("Initialisation failed");
    PL_halt(1);
  }

  if ( PL_toplevel() )
  { PL_halt(0);
  } else
  { ok("Toplevel failed");
    PL_halt(1);
  }

  return 0;
}

コード例 #4

ファイル: swipl_container.cpp プロジェクト: MOZGIII/prolog-app-gui

void SWIPLContainer::__init(int argc, char **argv)
{
    if ( !PL_initialise(argc, argv) ) {
        qDebug() << "Unable to initialize Prolog engine!";
        PL_halt(1); // will terminate the process!
        return; // we never get here, but still
    }

    qDebug() << "Prolog successfully initialized!";
}

コード例 #5

ファイル: calc.c プロジェクト: segmond/PrologThingz

int
main(int argc, char **argv)
{ char expression[MAXLINE];
  char *e = expression;
  char *program = argv[0];
  char *plav[2];
  int n;

  /* combine all the arguments in a single string */

  for(n=1; n<argc; n++)
  { if ( n != 1 )
      *e++ = ' ';
    strcpy(e, argv[n]);
    e += strlen(e);
  }

  /* make the argument vector for Prolog */

  plav[0] = program;
  plav[1] = NULL;

  /* initialise Prolog */

  if ( !PL_initialise(1, plav) )
    PL_halt(1);

  /* Lookup calc/1 and make the arguments and call */

  { predicate_t pred = PL_predicate("calc", 1, "user");
    term_t h0 = PL_new_term_refs(1);
    int rval;

    PL_put_atom_chars(h0, expression);
    rval = PL_call_predicate(NULL, PL_Q_NORMAL, pred, h0);

    PL_halt(rval ? 0 : 1);
  }

  return 0;
}

コード例 #6

ファイル: planner.cpp プロジェクト: mokhtarivahid/ebpd

int main(int argc, char **argv)
{
    char *program = argv[0];
    char *plav[2];
    char problem[MAXLINE];
    char *p = problem;

    /* make the argument vector for Prolog */

    plav[0] = program;
    plav[1] = NULL;

    /* initialize Prolog */

    if ( !PL_initialise(1, plav) )
        PL_halt(1);

    /* initialize the input planning problem */

    strcpy(p, argv[1]);

    printf("%s\n", p);

    /* Lookup solve/1 and make the arguments and call */

    predicate_t pred = PL_predicate("solve", 1, "user");
    term_t h0 = PL_new_term_refs(1);

    int rval;
    PL_put_atom_chars(h0, problem);
    rval = PL_call_predicate(NULL, PL_Q_NORMAL, pred, h0);

    PL_halt(rval ? 0 : 1);

    return 0;
}

コード例 #7

ファイル: SWIProlog.C プロジェクト: ulyssesrr/carmen_lcad

// ######################################################################
SWIProlog::SWIProlog(int argc, char **argv)
{
  const char *av[10];
  int ac = 0;

 // av[ac++] = argv[0];
  av[ac++] = "DefaultProg";
  av[ac++] = "-q";
  av[ac++] = "-nosignals";
  av[ac]   = NULL;

#ifdef HAVE_SWI_PROLOG_H
  if (!PL_initialise(ac, av))
  {
    PL_halt(1);
    LFATAL("Failed to init prolog");
  }
#else
  LINFO("SWI prolog not found");
#endif

}

コード例 #8

ファイル: prolog.c プロジェクト: BackupTheBerlios/visionrobot

static char *prolog_iniciar(modulo_t *modulo, GHashTable *argumentos) {
  prolog_dato_t *prolog = (prolog_dato_t*)modulo->m_dato;

  char *av[10];
  int ac = 0;
  
  av[ac++] = "prolog";
  av[ac++] = "-g";
  av[ac++] = "true";
  av[ac++] = "-f";
  av[ac++] = "none";
  
  if(!PL_initialise(ac, av)) {
    PL_halt(-1);
  }
  prolog->m_fid = PL_open_foreign_frame();
  g_hash_table_insert(modulo->m_tabla, PUERTO_SALIDA, 0);
  g_hash_table_insert(modulo->m_tabla, PUERTO_ORDEN, 0);
  g_hash_table_insert(modulo->m_tabla, PUERTO_PARAMETRO, 0);

  return "iniciado";
}

コード例 #9

ファイル: OntoGeneratorInterface.hpp プロジェクト: ian-bertolacci/rose-develop

	void close_store() {
		if (alive) {
			PL_halt(PL_toplevel() ? 0 : 1);
		}
	}