hostub.c

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

/****************************************************************/
/*								*/
/* Name:	hoststub.c					*/
/*								*/
/* Project:	NeuroBasic, basic package			*/
/*								*/
/* Survey:	Contains interface functions between MUSIC and	*/
/*		the host computer (host 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 <m_host.h>
#include <h_stub.h>

#include "common.h"




MINT b_interpreter (MINT prg_length, MINT entry_point);
MINT m_get_fct_ptrs (void);
MINT init_musicside (void);
MINT clear_mvars(void);




typedef enum{
  b_interpreter_idx,
  m_get_fct_ptrs_idx,
  init_musicside_idx,
  clear_mvars_idx,
} fct_numbers;




MINT b_interpreter (MINT prg_length, MINT entry_point)
{
 Init_argbuf();
 Push_int_arg(prg_length);
 Push_int_arg(entry_point);
 Remote_call(b_interpreter_idx, argwcnt, argbuf);
 return 0;
}

MINT m_get_fct_ptrs (void)
{
 Init_argbuf();
 Remote_call(m_get_fct_ptrs_idx, argwcnt, argbuf);
 return 0;
}

MINT init_musicside (void)
{
 Init_argbuf();
 Remote_call(init_musicside_idx, argwcnt, argbuf);
 return 0;
}

MINT clear_mvars(void)
{
 Init_argbuf();
 Remote_call(clear_mvars_idx, argwcnt, argbuf);
 return 0;
}