/* Generated from "Midi.cmod" by precompile.pike
 *
 * Do NOT edit this file.
 */

#undef PRECOMPILE_API_VERSION
#define PRECOMPILE_API_VERSION 2


#line 1 "Midi.cmod"
#include "global.h"
#include "svalue.h"
#include "interpret.h"
#include "backend.h"
#include "module_support.h"
#include "object.h"
#include "builtin_functions.h"
#include "mapping.h"
#include "threads.h"
#include "bignum.h"

/* All your includes here */

#include "portmidi/porttime.h"
#include "portmidi/portmidi.h"

/* Global variables
 */

#define TIME_PROC ((long (*)(void *)) Pt_Time)
#define TIME_INFO NULL
#define TIME_START Pt_Start(1, 0, 0) 

#ifndef DEFAULT_CMOD_STORAGE
#define DEFAULT_CMOD_STORAGE
#endif
/*! @module Public
 */
 
/*! @module Sound
 */ 

/*! @module Midi
 */
 
/*! @class Device
 */ 
 
#line 38 "Midi.cmod"
/* note
  	This MIDI module is a wrapper around portmidi (http://portmedia.sourceforge.net/) and consists of two classes:
  	The class Device is used for the actual communication, and the additional class Control is used to find out about the available MIDI devices.
 */ 
 

#undef class_Device_defined
#define class_Device_defined
DEFAULT_CMOD_STORAGE struct program *Device_program=NULL;
static int Device_program_fun_num=-1;

#undef var_info_Device_defined
#define var_info_Device_defined

#undef var_stream_Device_defined
#define var_stream_Device_defined

#undef var_ID_Device_defined
#define var_ID_Device_defined

#undef var_output_buffer_Device_defined
#define var_output_buffer_Device_defined

#undef var_input_buffer_Device_defined
#define var_input_buffer_Device_defined

#undef var_status_Device_defined
#define var_status_Device_defined

#undef var_data1_Device_defined
#define var_data1_Device_defined

#undef var_data2_Device_defined
#define var_data2_Device_defined

#undef THIS
#define THIS ((struct Device_struct *)(Pike_interpreter.frame_pointer->current_storage))

#undef THIS_DEVICE
#define THIS_DEVICE ((struct Device_struct *)(Pike_interpreter.frame_pointer->current_storage))

#undef OBJ2_DEVICE
#define OBJ2_DEVICE(o) ((struct Device_struct *)(o->storage+Device_storage_offset))

#undef GET_DEVICE_STORAGE
#define GET_DEVICE_STORAGE ((struct Device_struct *)(o->storage+Device_storage_offset)
static ptrdiff_t Device_storage_offset;
struct Device_struct {

#ifdef var_info_Device_defined
#line 44 "Midi.cmod"
const PmDeviceInfo * info;
#endif /* var_info_Device_defined */

#ifdef var_stream_Device_defined
#line 45 "Midi.cmod"
PmStream * stream;
#endif /* var_stream_Device_defined */

#ifdef var_ID_Device_defined
#line 46 "Midi.cmod"
int ID;
#endif /* var_ID_Device_defined */

#ifdef var_output_buffer_Device_defined
#line 47 "Midi.cmod"
PmEvent output_buffer[1];
#endif /* var_output_buffer_Device_defined */

#ifdef var_input_buffer_Device_defined
#line 48 "Midi.cmod"
PmEvent input_buffer[1];
#endif /* var_input_buffer_Device_defined */

#ifdef var_status_Device_defined
#line 49 "Midi.cmod"
int status;
#endif /* var_status_Device_defined */

#ifdef var_data1_Device_defined
#line 50 "Midi.cmod"
int data1;
#endif /* var_data1_Device_defined */

#ifdef var_data2_Device_defined
#line 51 "Midi.cmod"
int data2;
#endif /* var_data2_Device_defined */
};
#ifdef PIKE_DEBUG
/* Ensure the struct is used in a variable declaration, or else gdb might not see it. */
static struct Device_struct *Device_gdb_dummy_ptr;
#endif
/*! @decl void create(int ID)
 *! 	Create a MIDI object for communication. You have to provide a device ID. ID numbers start from zero and go up until the maximum available. (Which can be checked with a control object, using the count_devices() function.)
 *! @note 
 *! Each port is another device!
 */ 

  #define f_Device_create_defined
DEFAULT_CMOD_STORAGE ptrdiff_t f_Device_create_fun_num = 0;
DEFAULT_CMOD_STORAGE void f_Device_create(INT32 args) {
#line 59 "Midi.cmod"
INT_TYPE device_id;
#line 59 "Midi.cmod"
if(args != 1) wrong_number_of_args_error("create",args,1);
#line 59 "Midi.cmod"
if(Pike_sp[0-1].type != PIKE_T_INT) SIMPLE_ARG_TYPE_ERROR("create",1,"int");
#line 59 "Midi.cmod"
device_id=Pike_sp[0-1].u.integer;
#line 59 "Midi.cmod"
{
    THIS->info = Pm_GetDeviceInfo(device_id);
    THIS->ID = device_id;
    pop_n_elems(args);
  }

}
/*! @decl void set_ID(int ID)
 *! 	Access another device with this object.
 */ 

  #define f_Device_set_ID_defined
DEFAULT_CMOD_STORAGE ptrdiff_t f_Device_set_ID_fun_num = 0;
DEFAULT_CMOD_STORAGE void f_Device_set_ID(INT32 args) {
#line 69 "Midi.cmod"
INT_TYPE device_id;
#line 69 "Midi.cmod"
if(args != 1) wrong_number_of_args_error("set_ID",args,1);
#line 69 "Midi.cmod"
if(Pike_sp[0-1].type != PIKE_T_INT) SIMPLE_ARG_TYPE_ERROR("set_ID",1,"int");
#line 69 "Midi.cmod"
device_id=Pike_sp[0-1].u.integer;
#line 69 "Midi.cmod"
{
    /* this does the same as the previous function, we should be able to merge them */
    THIS->info = Pm_GetDeviceInfo(device_id);
    THIS->ID = device_id;
    pop_n_elems(args);    
  }

}
/*! @decl int get_ID()
 *! 	Retrieve the ID of the MIDI device this object addresses.
 */ 

  #define f_Device_get_ID_defined
DEFAULT_CMOD_STORAGE ptrdiff_t f_Device_get_ID_fun_num = 0;
DEFAULT_CMOD_STORAGE void f_Device_get_ID(INT32 args) {
#line 80 "Midi.cmod"
if(args != 0) wrong_number_of_args_error("get_ID",args,0);
#line 80 "Midi.cmod"
{
    do { INT_TYPE ret_=((THIS->ID));  push_int(ret_); return; }while(0);
#line 82 "Midi.cmod"
}

}
/*! @decl int get_version()
 *! 	Not really needed in most circumstanses. It gives you the version number of the PortMidi library.
 */

  #define f_Device_get_version_defined
DEFAULT_CMOD_STORAGE ptrdiff_t f_Device_get_version_fun_num = 0;
DEFAULT_CMOD_STORAGE void f_Device_get_version(INT32 args) {
#line 88 "Midi.cmod"
if(args != 0) wrong_number_of_args_error("get_version",args,0);
#line 88 "Midi.cmod"
{
    do { INT_TYPE ret_=((THIS->info->structVersion));  push_int(ret_); return; }while(0);
#line 90 "Midi.cmod"
}

}
/*! @decl string get_interface()
 *! 	This gives you the type of interface that goes with the device, like ALSA or Jack.
 */	

  #define f_Device_get_interface_defined
DEFAULT_CMOD_STORAGE ptrdiff_t f_Device_get_interface_fun_num = 0;
DEFAULT_CMOD_STORAGE void f_Device_get_interface(INT32 args) {
#line 96 "Midi.cmod"
if(args != 0) wrong_number_of_args_error("get_interface",args,0);
#line 96 "Midi.cmod"
{
    struct pike_string *interface = make_shared_string(THIS->info->interf);
    do { struct pike_string * ret_=((interface));  push_string(ret_); return; }while(0);
#line 99 "Midi.cmod"
}

}
/*! @decl string get_name()
 *! 	This gives you the descriptive name of this interface.
 */

  #define f_Device_get_name_defined
DEFAULT_CMOD_STORAGE ptrdiff_t f_Device_get_name_fun_num = 0;
DEFAULT_CMOD_STORAGE void f_Device_get_name(INT32 args) {
#line 105 "Midi.cmod"
if(args != 0) wrong_number_of_args_error("get_name",args,0);
#line 105 "Midi.cmod"
{
    struct pike_string *name = make_shared_string(THIS->info->name);
    do { struct pike_string * ret_=((name));  push_string(ret_); return; }while(0);
#line 108 "Midi.cmod"
}

}
/*! @decl int is_input()
 *! 	See if this device is an input or output.
 */

  #define f_Device_is_input_defined
DEFAULT_CMOD_STORAGE ptrdiff_t f_Device_is_input_fun_num = 0;
DEFAULT_CMOD_STORAGE void f_Device_is_input(INT32 args) {
#line 114 "Midi.cmod"
if(args != 0) wrong_number_of_args_error("is_input",args,0);
#line 114 "Midi.cmod"
{
    do { INT_TYPE ret_=((THIS->info->input));  push_int(ret_); return; }while(0);
#line 116 "Midi.cmod"
}

}
/*! @decl int is_output()
 *! 	See if this device is an input or output.
 */

  #define f_Device_is_output_defined
DEFAULT_CMOD_STORAGE ptrdiff_t f_Device_is_output_fun_num = 0;
DEFAULT_CMOD_STORAGE void f_Device_is_output(INT32 args) {
#line 122 "Midi.cmod"
if(args != 0) wrong_number_of_args_error("is_output",args,0);
#line 122 "Midi.cmod"
{
    do { INT_TYPE ret_=((THIS->info->output));  push_int(ret_); return; }while(0);
#line 124 "Midi.cmod"
}  

}
/*! @decl int is_open()
 *! 	See if this device is opened, which is needed before you can use it.
 */

  #define f_Device_is_open_defined
DEFAULT_CMOD_STORAGE ptrdiff_t f_Device_is_open_fun_num = 0;
DEFAULT_CMOD_STORAGE void f_Device_is_open(INT32 args) {
#line 130 "Midi.cmod"
if(args != 0) wrong_number_of_args_error("is_open",args,0);
#line 130 "Midi.cmod"
{
    do { INT_TYPE ret_=((THIS->info->opened));  push_int(ret_); return; }while(0);
#line 132 "Midi.cmod"
}

}
/*! @decl int open()
 *! 	Open the device. The return value will be null or an error id.
 */

  #define f_Device_open_defined
DEFAULT_CMOD_STORAGE ptrdiff_t f_Device_open_fun_num = 0;
DEFAULT_CMOD_STORAGE void f_Device_open(INT32 args) {
#line 138 "Midi.cmod"
if(args != 0) wrong_number_of_args_error("open",args,0);
#line 138 "Midi.cmod"
{
		int err;
		if (THIS->info->output) {
    	err = Pm_OpenOutput(&THIS->stream, THIS->ID, NULL, 0, NULL, NULL, 0);
		} else {
			/* must be an input */
			err = Pm_OpenInput(&THIS->stream, THIS->ID, NULL, 0, NULL, NULL);
		}    
		do { INT_TYPE ret_=((err));  push_int(ret_); return; }while(0);
#line 147 "Midi.cmod"
}    

}
/*! @decl int message(int status, int data1, int data2)
 *! 	Directly output a MIDI message.
 *!	@param status
 *!		The status byte, like 0x90 for a note-on event. Consult a MIDI manual for more information.	
 *! @param data1
 *! @param data2
 *! 	The two parts of the midi message
 */

  #define f_Device_message_defined
DEFAULT_CMOD_STORAGE ptrdiff_t f_Device_message_fun_num = 0;
DEFAULT_CMOD_STORAGE void f_Device_message(INT32 args) {
#line 158 "Midi.cmod"
INT_TYPE status;
#line 158 "Midi.cmod"
INT_TYPE data1;
#line 158 "Midi.cmod"
INT_TYPE data2;
#line 158 "Midi.cmod"
if(args != 3) wrong_number_of_args_error("message",args,3);
#line 158 "Midi.cmod"
if(Pike_sp[0-3].type != PIKE_T_INT) SIMPLE_ARG_TYPE_ERROR("message",1,"int");
#line 158 "Midi.cmod"
status=Pike_sp[0-3].u.integer;
#line 158 "Midi.cmod"
if(Pike_sp[1-3].type != PIKE_T_INT) SIMPLE_ARG_TYPE_ERROR("message",2,"int");
#line 158 "Midi.cmod"
data1=Pike_sp[1-3].u.integer;
#line 158 "Midi.cmod"
if(Pike_sp[2-3].type != PIKE_T_INT) SIMPLE_ARG_TYPE_ERROR("message",3,"int");
#line 158 "Midi.cmod"
data2=Pike_sp[2-3].u.integer;
#line 158 "Midi.cmod"
{
    THIS->output_buffer[0].message = Pm_Message(status, data1, data2);
    THIS->output_buffer[0].timestamp = TIME_PROC(TIME_INFO);
		int err = Pm_Write(THIS->stream, THIS->output_buffer, 1);
    do { INT_TYPE ret_=((err)); pop_n_elems(3); push_int(ret_); return; }while(0);
#line 163 "Midi.cmod"
}

}
/*! @decl int read()
 *! 	Call this function to see if there is MIDI input waiting to be parsed. Returns 1 if a new message is waiting or 0 zero when the MIDI buffer was empty. A negative number signals an error.
 *!	@note
 *! 	Use the functions get_status(), get_data1() and get_data2() to get the actual information contained in the message.
 */

	#define f_Device_read_defined
DEFAULT_CMOD_STORAGE ptrdiff_t f_Device_read_fun_num = 0;
DEFAULT_CMOD_STORAGE void f_Device_read(INT32 args) {
#line 171 "Midi.cmod"
if(args != 0) wrong_number_of_args_error("read",args,0);
#line 171 "Midi.cmod"
{
		int count = Pm_Read(THIS->stream, THIS->input_buffer, 1);
		do { INT_TYPE ret_=((count));  push_int(ret_); return; }while(0);
#line 174 "Midi.cmod"
}

}
/*! @decl int get_status()
 *! 	Retreive the status byte from the last read message.
 */

	#define f_Device_get_status_defined
DEFAULT_CMOD_STORAGE ptrdiff_t f_Device_get_status_fun_num = 0;
DEFAULT_CMOD_STORAGE void f_Device_get_status(INT32 args) {
#line 180 "Midi.cmod"
if(args != 0) wrong_number_of_args_error("get_status",args,0);
#line 180 "Midi.cmod"
{
		THIS->status = Pm_MessageStatus(THIS->input_buffer[0].message);
		do { INT_TYPE ret_=((THIS->status));  push_int(ret_); return; }while(0);
#line 183 "Midi.cmod"
}		

}
/*! @decl int is_data1()
 *! 	Retreive the first data byte from the last read message.
 */

	#define f_Device_get_data1_defined
DEFAULT_CMOD_STORAGE ptrdiff_t f_Device_get_data1_fun_num = 0;
DEFAULT_CMOD_STORAGE void f_Device_get_data1(INT32 args) {
#line 189 "Midi.cmod"
if(args != 0) wrong_number_of_args_error("get_data1",args,0);
#line 189 "Midi.cmod"
{	
		THIS->data1 = Pm_MessageData1(THIS->input_buffer[0].message);
		do { INT_TYPE ret_=((THIS->data1));  push_int(ret_); return; }while(0);
#line 192 "Midi.cmod"
}
	
}
/*! @decl int is_data2()
 *! 	Retreive the second data byte from the last read message.
 */	
	
	#define f_Device_get_data2_defined
DEFAULT_CMOD_STORAGE ptrdiff_t f_Device_get_data2_fun_num = 0;
DEFAULT_CMOD_STORAGE void f_Device_get_data2(INT32 args) {
#line 198 "Midi.cmod"
if(args != 0) wrong_number_of_args_error("get_data2",args,0);
#line 198 "Midi.cmod"
{
		THIS->data2 = Pm_MessageData2(THIS->input_buffer[0].message);
		do { INT_TYPE ret_=((THIS->data2));  push_int(ret_); return; }while(0);
#line 201 "Midi.cmod"
}

}
/*! @decl int is_data1()
 *! 	Retreive the first data byte from the last read message.
 */

	#define f_Device_abort_defined
DEFAULT_CMOD_STORAGE ptrdiff_t f_Device_abort_fun_num = 0;
DEFAULT_CMOD_STORAGE void f_Device_abort(INT32 args) {
#line 207 "Midi.cmod"
if(args != 0) wrong_number_of_args_error("abort",args,0);
#line 207 "Midi.cmod"
{
		int err = Pm_Abort(THIS->stream);
		do { INT_TYPE ret_=((err));  push_int(ret_); return; }while(0);
#line 210 "Midi.cmod"
}

}
/*! @decl int close()
 *! 	Close this device. Returns zero or an error code.
 */

  #define f_Device_close_defined
DEFAULT_CMOD_STORAGE ptrdiff_t f_Device_close_fun_num = 0;
DEFAULT_CMOD_STORAGE void f_Device_close(INT32 args) {
#line 216 "Midi.cmod"
if(args != 0) wrong_number_of_args_error("close",args,0);
#line 216 "Midi.cmod"
{
    int err = Pm_Close(THIS->stream);
    do { INT_TYPE ret_=((err));  push_int(ret_); return; }while(0);
#line 219 "Midi.cmod"
}

  }

#undef internal_init_Device_defined
#define internal_init_Device_defined

#undef Device_event_handler_defined
#define Device_event_handler_defined
static void init_Device_struct(void)
#line 221 "Midi.cmod"
{
    
  }  


#ifdef Device_event_handler_defined
static void Device_event_handler(int ev) {
  switch(ev) {

#ifdef internal_init_Device_defined
  case PROG_EVENT_INIT: init_Device_struct(); break;

#endif /* internal_init_Device_defined */
  default: break; 
  }
}

#endif /* Device_event_handler_defined */
/*! @endclass
 */
 

 

/*! @class Control
 */

#line 236 "Midi.cmod"
/* note
  	This MIDI module is a wrapper around portmidi (http://portmedia.sourceforge.net/) and consists of two classes:
  	The class Device is used for the actual communication, and the additional class Control is used to find out about the available MIDI devices.
 */


#undef class_Control_defined
#define class_Control_defined
DEFAULT_CMOD_STORAGE struct program *Control_program=NULL;
static int Control_program_fun_num=-1;
#define f_Control_create_defined
DEFAULT_CMOD_STORAGE ptrdiff_t f_Control_create_fun_num = 0;
DEFAULT_CMOD_STORAGE void f_Control_create(INT32 args) {
#line 243 "Midi.cmod"
if(args != 0) wrong_number_of_args_error("create",args,0);
#line 243 "Midi.cmod"
{
    int x = Pm_Initialize();
    TIME_START;
    do { INT_TYPE ret_=((x));  push_int(ret_); return; }while(0);
#line 247 "Midi.cmod"
}

}
/*! @decl int count_devices()
 *! 	Query the number of available devices.
 */ 

  #define f_Control_count_devices_defined
DEFAULT_CMOD_STORAGE ptrdiff_t f_Control_count_devices_fun_num = 0;
DEFAULT_CMOD_STORAGE void f_Control_count_devices(INT32 args) {
#line 253 "Midi.cmod"
if(args != 0) wrong_number_of_args_error("count_devices",args,0);
#line 253 "Midi.cmod"
{
    int x = Pm_CountDevices();
    do { INT_TYPE ret_=((x));  push_int(ret_); return; }while(0);
#line 256 "Midi.cmod"
}

}
/*! @decl int get_default_input_device_id()
 *! 	Get the ID of the default input device.
 */ 

  #define f_Control_get_default_input_device_id_defined
DEFAULT_CMOD_STORAGE ptrdiff_t f_Control_get_default_input_device_id_fun_num = 0;
DEFAULT_CMOD_STORAGE void f_Control_get_default_input_device_id(INT32 args) {
#line 262 "Midi.cmod"
if(args != 0) wrong_number_of_args_error("get_default_input_device_id",args,0);
#line 262 "Midi.cmod"
{
    int x = Pm_GetDefaultInputDeviceID();
    do { INT_TYPE ret_=((x));  push_int(ret_); return; }while(0);
#line 265 "Midi.cmod"
}

}
/*! @decl int get_default_output_device_id()
 *! 	Get the ID of the default output device.
 */ 

  #define f_Control_get_default_output_device_id_defined
DEFAULT_CMOD_STORAGE ptrdiff_t f_Control_get_default_output_device_id_fun_num = 0;
DEFAULT_CMOD_STORAGE void f_Control_get_default_output_device_id(INT32 args) {
#line 271 "Midi.cmod"
if(args != 0) wrong_number_of_args_error("get_default_output_device_id",args,0);
#line 271 "Midi.cmod"
{
    int x = Pm_GetDefaultOutputDeviceID();
    do { INT_TYPE ret_=((x));  push_int(ret_); return; }while(0);
#line 274 "Midi.cmod"
}

}
/*! @decl string get_error_text(int error)
 *! 	Convert an errorcode to a textual explanation. 
 */ 

  #define f_Control_get_error_text_defined
DEFAULT_CMOD_STORAGE ptrdiff_t f_Control_get_error_text_fun_num = 0;
DEFAULT_CMOD_STORAGE void f_Control_get_error_text(INT32 args) {
#line 280 "Midi.cmod"
INT_TYPE error;
#line 280 "Midi.cmod"
if(args != 1) wrong_number_of_args_error("get_error_text",args,1);
#line 280 "Midi.cmod"
if(Pike_sp[0-1].type != PIKE_T_INT) SIMPLE_ARG_TYPE_ERROR("get_error_text",1,"int");
#line 280 "Midi.cmod"
error=Pike_sp[0-1].u.integer;
#line 280 "Midi.cmod"
{
    struct pike_string *str;
    str = make_shared_string(Pm_GetErrorText(error));
    do { struct pike_string * ret_=((str)); pop_stack(); push_string(ret_); return; }while(0);
#line 284 "Midi.cmod"
}  

}
/*! @decl void terminate()
 *! 	Close all MIDI connections. Call this when your program ends or when you want to initialize all over again.
 */ 

  #define f_Control_terminate_defined
DEFAULT_CMOD_STORAGE ptrdiff_t f_Control_terminate_fun_num = 0;
DEFAULT_CMOD_STORAGE void f_Control_terminate(INT32 args) {
#line 290 "Midi.cmod"
if(args != 0) wrong_number_of_args_error("terminate",args,0);
#line 290 "Midi.cmod"
{
    Pm_Terminate();
    pop_n_elems(args);
  }



  }

#undef internal_init_Control_defined
#define internal_init_Control_defined

#undef Control_event_handler_defined
#define Control_event_handler_defined
static void init_Control_struct(void)
#line 297 "Midi.cmod"
{
  }

  
#undef Control_gc_live_obj
#define Control_gc_live_obj

#undef internal_exit_Control_defined
#define internal_exit_Control_defined

#undef Control_event_handler_defined
#define Control_event_handler_defined
static void exit_Control_struct(void)
#line 300 "Midi.cmod"
{
  }

#ifdef Control_event_handler_defined
static void Control_event_handler(int ev) {
  switch(ev) {

#ifdef internal_init_Control_defined
  case PROG_EVENT_INIT: init_Control_struct(); break;

#endif /* internal_init_Control_defined */

#ifdef internal_exit_Control_defined
  case PROG_EVENT_EXIT: exit_Control_struct(); break;

#endif /* internal_exit_Control_defined */
  default: break; 
  }
}

#endif /* Control_event_handler_defined */
/*! @endclass
 */
 
/*! @endmodule
 */
 
/*! @endmodule
 */
 
/*! @endmodule
 */



PIKE_MODULE_INIT {

#ifdef class_Device_defined

#ifdef PROG_DEVICE_ID
#line 43 "Midi.cmod"
  START_NEW_PROGRAM_ID(DEVICE);
#else
#line 43 "Midi.cmod"
  start_new_program();

#endif /* PROG_DEVICE_ID */

#ifndef tObjImpl_DEVICE

#undef tObjImpl_DEVICE
#define tObjImpl_DEVICE tObj

#endif /* tObjImpl_DEVICE */

#ifdef THIS_DEVICE
  Device_storage_offset = ADD_STORAGE(struct Device_struct);
#endif /* THIS_DEVICE */

#ifdef Device_event_handler_defined
  pike_set_prog_event_callback(Device_event_handler);

#ifndef Device_gc_live_obj
  Pike_compiler->new_program->flags &= ~PROGRAM_LIVE_OBJ;

#endif /* Device_gc_live_obj */

#endif /* Device_event_handler_defined */

#ifdef f_Device_create_defined
  f_Device_create_fun_num =
#line 59 "Midi.cmod"
    ADD_FUNCTION2("create", f_Device_create, tFunc("\10\200\0\0\0\177\377\377\377",tVoid), 0, OPT_EXTERNAL_DEPEND|OPT_SIDE_EFFECT);

#endif /* f_Device_create_defined */

#ifdef f_Device_set_ID_defined
  f_Device_set_ID_fun_num =
#line 69 "Midi.cmod"
    ADD_FUNCTION2("set_ID", f_Device_set_ID, tFunc("\10\200\0\0\0\177\377\377\377",tVoid), 0, OPT_EXTERNAL_DEPEND|OPT_SIDE_EFFECT);

#endif /* f_Device_set_ID_defined */

#ifdef f_Device_get_ID_defined
  f_Device_get_ID_fun_num =
#line 80 "Midi.cmod"
    ADD_FUNCTION2("get_ID", f_Device_get_ID, tFunc(tNone,"\10\200\0\0\0\177\377\377\377"), 0, OPT_EXTERNAL_DEPEND|OPT_SIDE_EFFECT);

#endif /* f_Device_get_ID_defined */

#ifdef f_Device_get_version_defined
  f_Device_get_version_fun_num =
#line 88 "Midi.cmod"
    ADD_FUNCTION2("get_version", f_Device_get_version, tFunc(tNone,"\10\200\0\0\0\177\377\377\377"), 0, OPT_EXTERNAL_DEPEND|OPT_SIDE_EFFECT);

#endif /* f_Device_get_version_defined */

#ifdef f_Device_get_interface_defined
  f_Device_get_interface_fun_num =
#line 96 "Midi.cmod"
    ADD_FUNCTION2("get_interface", f_Device_get_interface, tFunc(tNone,tString), 0, OPT_EXTERNAL_DEPEND|OPT_SIDE_EFFECT);

#endif /* f_Device_get_interface_defined */

#ifdef f_Device_get_name_defined
  f_Device_get_name_fun_num =
#line 105 "Midi.cmod"
    ADD_FUNCTION2("get_name", f_Device_get_name, tFunc(tNone,tString), 0, OPT_EXTERNAL_DEPEND|OPT_SIDE_EFFECT);

#endif /* f_Device_get_name_defined */

#ifdef f_Device_is_input_defined
  f_Device_is_input_fun_num =
#line 114 "Midi.cmod"
    ADD_FUNCTION2("is_input", f_Device_is_input, tFunc(tNone,"\10\200\0\0\0\177\377\377\377"), 0, OPT_EXTERNAL_DEPEND|OPT_SIDE_EFFECT);

#endif /* f_Device_is_input_defined */

#ifdef f_Device_is_output_defined
  f_Device_is_output_fun_num =
#line 122 "Midi.cmod"
    ADD_FUNCTION2("is_output", f_Device_is_output, tFunc(tNone,"\10\200\0\0\0\177\377\377\377"), 0, OPT_EXTERNAL_DEPEND|OPT_SIDE_EFFECT);

#endif /* f_Device_is_output_defined */

#ifdef f_Device_is_open_defined
  f_Device_is_open_fun_num =
#line 130 "Midi.cmod"
    ADD_FUNCTION2("is_open", f_Device_is_open, tFunc(tNone,"\10\200\0\0\0\177\377\377\377"), 0, OPT_EXTERNAL_DEPEND|OPT_SIDE_EFFECT);

#endif /* f_Device_is_open_defined */

#ifdef f_Device_open_defined
  f_Device_open_fun_num =
#line 138 "Midi.cmod"
    ADD_FUNCTION2("open", f_Device_open, tFunc(tNone,"\10\200\0\0\0\177\377\377\377"), 0, OPT_EXTERNAL_DEPEND|OPT_SIDE_EFFECT);

#endif /* f_Device_open_defined */

#ifdef f_Device_message_defined
  f_Device_message_fun_num =
#line 158 "Midi.cmod"
    ADD_FUNCTION2("message", f_Device_message, tFunc("\10\200\0\0\0\177\377\377\377" "\10\200\0\0\0\177\377\377\377" "\10\200\0\0\0\177\377\377\377","\10\200\0\0\0\177\377\377\377"), 0, OPT_EXTERNAL_DEPEND|OPT_SIDE_EFFECT);

#endif /* f_Device_message_defined */

#ifdef f_Device_read_defined
  f_Device_read_fun_num =
#line 171 "Midi.cmod"
    ADD_FUNCTION2("read", f_Device_read, tFunc(tNone,"\10\200\0\0\0\177\377\377\377"), 0, OPT_EXTERNAL_DEPEND|OPT_SIDE_EFFECT);

#endif /* f_Device_read_defined */

#ifdef f_Device_get_status_defined
  f_Device_get_status_fun_num =
#line 180 "Midi.cmod"
    ADD_FUNCTION2("get_status", f_Device_get_status, tFunc(tNone,"\10\200\0\0\0\177\377\377\377"), 0, OPT_EXTERNAL_DEPEND|OPT_SIDE_EFFECT);

#endif /* f_Device_get_status_defined */

#ifdef f_Device_get_data1_defined
  f_Device_get_data1_fun_num =
#line 189 "Midi.cmod"
    ADD_FUNCTION2("get_data1", f_Device_get_data1, tFunc(tNone,"\10\200\0\0\0\177\377\377\377"), 0, OPT_EXTERNAL_DEPEND|OPT_SIDE_EFFECT);

#endif /* f_Device_get_data1_defined */

#ifdef f_Device_get_data2_defined
  f_Device_get_data2_fun_num =
#line 198 "Midi.cmod"
    ADD_FUNCTION2("get_data2", f_Device_get_data2, tFunc(tNone,"\10\200\0\0\0\177\377\377\377"), 0, OPT_EXTERNAL_DEPEND|OPT_SIDE_EFFECT);

#endif /* f_Device_get_data2_defined */

#ifdef f_Device_abort_defined
  f_Device_abort_fun_num =
#line 207 "Midi.cmod"
    ADD_FUNCTION2("abort", f_Device_abort, tFunc(tNone,"\10\200\0\0\0\177\377\377\377"), 0, OPT_EXTERNAL_DEPEND|OPT_SIDE_EFFECT);

#endif /* f_Device_abort_defined */

#ifdef f_Device_close_defined
  f_Device_close_fun_num =
#line 216 "Midi.cmod"
    ADD_FUNCTION2("close", f_Device_close, tFunc(tNone,"\10\200\0\0\0\177\377\377\377"), 0, OPT_EXTERNAL_DEPEND|OPT_SIDE_EFFECT);

#endif /* f_Device_close_defined */
#line 43 "Midi.cmod"
  Device_program=end_program();
#line 43 "Midi.cmod"
  Device_program_fun_num=add_program_constant("Device",Device_program,0);

#endif /* class_Device_defined */

#ifdef class_Control_defined

#ifdef PROG_CONTROL_ID
#line 241 "Midi.cmod"
  START_NEW_PROGRAM_ID(CONTROL);
#else
#line 241 "Midi.cmod"
  start_new_program();

#endif /* PROG_CONTROL_ID */

#ifndef tObjImpl_CONTROL

#undef tObjImpl_CONTROL
#define tObjImpl_CONTROL tObj

#endif /* tObjImpl_CONTROL */

#ifdef Control_event_handler_defined
  pike_set_prog_event_callback(Control_event_handler);

#ifndef Control_gc_live_obj
  Pike_compiler->new_program->flags &= ~PROGRAM_LIVE_OBJ;

#endif /* Control_gc_live_obj */

#endif /* Control_event_handler_defined */

#ifdef f_Control_create_defined
  f_Control_create_fun_num =
#line 243 "Midi.cmod"
    ADD_FUNCTION2("create", f_Control_create, tFunc(tNone,"\10\200\0\0\0\177\377\377\377"), 0, OPT_EXTERNAL_DEPEND|OPT_SIDE_EFFECT);

#endif /* f_Control_create_defined */

#ifdef f_Control_count_devices_defined
  f_Control_count_devices_fun_num =
#line 253 "Midi.cmod"
    ADD_FUNCTION2("count_devices", f_Control_count_devices, tFunc(tNone,"\10\200\0\0\0\177\377\377\377"), 0, OPT_EXTERNAL_DEPEND|OPT_SIDE_EFFECT);

#endif /* f_Control_count_devices_defined */

#ifdef f_Control_get_default_input_device_id_defined
  f_Control_get_default_input_device_id_fun_num =
#line 262 "Midi.cmod"
    ADD_FUNCTION2("get_default_input_device_id", f_Control_get_default_input_device_id, tFunc(tNone,"\10\200\0\0\0\177\377\377\377"), 0, OPT_EXTERNAL_DEPEND|OPT_SIDE_EFFECT);

#endif /* f_Control_get_default_input_device_id_defined */

#ifdef f_Control_get_default_output_device_id_defined
  f_Control_get_default_output_device_id_fun_num =
#line 271 "Midi.cmod"
    ADD_FUNCTION2("get_default_output_device_id", f_Control_get_default_output_device_id, tFunc(tNone,"\10\200\0\0\0\177\377\377\377"), 0, OPT_EXTERNAL_DEPEND|OPT_SIDE_EFFECT);

#endif /* f_Control_get_default_output_device_id_defined */

#ifdef f_Control_get_error_text_defined
  f_Control_get_error_text_fun_num =
#line 280 "Midi.cmod"
    ADD_FUNCTION2("get_error_text", f_Control_get_error_text, tFunc("\10\200\0\0\0\177\377\377\377",tString), 0, OPT_EXTERNAL_DEPEND|OPT_SIDE_EFFECT);

#endif /* f_Control_get_error_text_defined */

#ifdef f_Control_terminate_defined
  f_Control_terminate_fun_num =
#line 290 "Midi.cmod"
    ADD_FUNCTION2("terminate", f_Control_terminate, tFunc(tNone,tVoid), 0, OPT_EXTERNAL_DEPEND|OPT_SIDE_EFFECT);

#endif /* f_Control_terminate_defined */
#line 241 "Midi.cmod"
  Control_program=end_program();
#line 241 "Midi.cmod"
  Control_program_fun_num=add_program_constant("Control",Control_program,0);

#endif /* class_Control_defined */
}
PIKE_MODULE_EXIT {

#ifdef class_Device_defined
  if(Device_program) {
#line 43 "Midi.cmod"
    free_program(Device_program);
    Device_program=0;
  }

#endif /* class_Device_defined */

#ifdef class_Control_defined
  if(Control_program) {
#line 241 "Midi.cmod"
    free_program(Control_program);
    Control_program=0;
  }

#endif /* class_Control_defined */
}