slstub.c

basic.c */ /**//* Project:NeuroBasic, basic package*//**/ /* Survey:This is a simple Basic b-code

/****************************************************************/
/*								*/
/* Name:	slststub.c					*/
/*								*/
/* Project:	NeuroBasic, basic package			*/
/*								*/
/* Survey:	Contains interface functions between MUSIC and	*/
/*		the host computer (MUSIC part). This file is	*/
/*		usually created by the program "troll" but in	*/
/*		the NeuroBasic environment its not changed.	*/
/*								*/
/* Author:	Urs Mueller					*/
/*		Electronics Laboratory, ETH Zuerich		*/
/*		Switzerland					*/
/*								*/
/* Created:	July 21, 1994					*/
/* Modified:	August 10, 1994 (um)				*/
/*								*/
/****************************************************************/


#include <musiclib.h>
#include <s_stub.h>

#include "basic.h"




static MINT b_interpreter_stub (void)
{
  MINT prg_length;
  MINT entry_point;
  prg_length = Get_int_arg();
  entry_point = Get_int_arg();
  return b_interpreter(prg_length, entry_point);
}

static MINT m_get_fct_ptrs_stub (void)
{
  return m_get_fct_ptrs();
}

static MINT init_musicside_stub (void)
{
  return init_musicside();
}

static MINT clear_mvars_stub (void)
{
  return clear_mvars();
}




MINT (*stub_table[])(void)={
   b_interpreter_stub,
   m_get_fct_ptrs_stub,
   init_musicside_stub,
   clear_mvars_stub
};