/*
 * (find-fline "~/PFORTH/mtamacros.h")
 * (find-fline "~/MTA/vtutilsh.c")
 *
 */

#include <stdio.h>
#include "pforth.h"
#include "mtamacros.h"

static cfTaskData *cftd;
static cfDictionary *dic;


int ET_OBJCOMMAND_init_pforth(ET_OBJARGS) {
  ExecToken EntryPoint = 0;
  char *dicname = OARGV_STRING(1, NULL);
  pfSetQuiet(1);
  pfInitGlobals();
  cftd = pfCreateTask(512, 512);
  pfSetCurrentTask(cftd);
  dic = pfLoadDictionary(dicname, &EntryPoint);
  if(dic == NULL)
    return TCL_ERROR;
  return TCL_OK;
}


int ET_OBJCOMMAND_finish_pforth(ET_OBJARGS) {
  pfDeleteDictionary( dic );
  pfDeleteTask( cftd );
  return TCL_OK;
}


int ET_OBJCOMMAND_pf_runforth(ET_OBJARGS) {
  pfRunForth();
  return TCL_OK;
}


int ET_OBJCOMMAND_pf_includefile(ET_OBJARGS) {
  if(objc != 2)
    ET_OARGSERROR("FILENAME");
  pfIncludeFile( OARGV_STRING(1, NULL) );
  return TCL_OK;
}



/* (find-pftag "main")
 * (find-pftag "pfDoForth")
 * (find-pffile "csrc/pf_core.c" "pfDoForth")
 * (find-pffile "csrc/pf_core.E-" "int32 pfDoForth")
 */