#include "config.h"
#include "types.h"
#include "error.h"
#include "lexer.h"
#include "ops.h"
#include "mem.h"
#include "stack.h"
#include "reg.h"
#include "utils.h"
#include "vm.h"
#include "printf.h"
#include "ccall.h"
#include "context.h"
#include "event.h"
#include "debug.h"

/*
  Table of xternal C function handlers. Must be initialized by host application.
*/
ccall_t *ccalls=NULL;


void CCallInit(ccall_t *_ccalls) {
  ccalls=_ccalls;
  // ccall index jump list
  int i=0,j=0;
  char c;
  do {
    c=ccalls[i].name[0];
    j=i;
    while (ccalls[j].name && ccalls[j].name[0]==c) j++;
    if (ccalls[j].name) {
      while (i<j) {
        ccalls[i].next=j;
        i++;
      }
    } else break;
  } while (ccalls[i].name);
}