static int
cmd_load(char *file_name)
{
char *decoded;
if (file_name == NULL) {
if (last_file_name == NULL) {
g_critical("Please specify file name.");
return (-1);
}
file_name = strdup(last_file_name);
} else {
file_name = strdup(file_name);
}
selected_track = NULL;
selected_event = NULL;
if (smf != NULL) {
smf_delete(smf);
smf = NULL;
}
if (last_file_name != NULL)
free(last_file_name);
last_file_name = strdup(file_name);
smf = smf_load(file_name);
if (smf == NULL) {
g_critical("Couldn't load '%s'.", file_name);
smf = smf_new();
if (smf == NULL) {
g_critical("Cannot initialize smf_t.");
return (-1);
}
return (-2);
}
g_message("File '%s' loaded.", file_name);
decoded = smf_decode(smf);
g_message("%s.", decoded);
free(decoded);
cmd_track("1");
free(file_name);
return (0);
}
static int
ui_load_state(ui_t *ui, char *filename)
{
int i;
smf_t *smf;
smf_event_t *event;
smf_track_t *track;
jack_nframes_t frame;
if (!filename) {
ui->filename = ui_get_filename(ui, ".", "Load file: ");
}
if (ui->filename) {
smf = smf_load(ui->filename);
if (!smf) {
free(ui->filename);
ui->filename = NULL;
return 0;
}
ui_send_clear(ui, ui->pattern);
for (i = 0; i < 8; i++) {
track = smf_get_track_by_number(smf, i + 1);
if (!track) {
continue;
}
while ((event = smf_track_get_next_event(track))) {
if (smf_event_is_metadata(event)
|| event->midi_buffer[0] == NOTEOFF) {
continue;
}
frame = ui_seconds_to_nframes(ui, event->time_seconds);
ui_send_add(ui, event->midi_buffer[1], event->midi_buffer[2],
frame ? frame / (88200 / ui->steps) + 1 : 0, MAX_LEN, i);
}
}
smf_delete(smf);
}
return 1;
}
CAMLprim value ocaml_smf_load(value file)
{
CAMLparam1(file);
CAMLlocal1(ans);
Smf_t *t;
t = malloc(sizeof(Smf_t));
t->t = smf_load(String_val(file));
if(t->t == NULL)
{
free(t);
t = NULL;
smf_err(0);
}
ans = caml_alloc_custom(&smf_ops, sizeof(Smf_t*), 1, 0);
Smf_t_val(ans) = t;
CAMLreturn(ans);
}
int
main(int argc, char *argv[])
{
int ch;
char *file_name, *autoconnect_port_name = NULL;
#ifdef WITH_LASH
lash_args_t *lash_args;
#endif
g_thread_init(NULL);
#ifdef WITH_LASH
lash_args = lash_extract_args(&argc, &argv);
#endif
g_log_set_default_handler(log_handler, NULL);
while ((ch = getopt(argc, argv, "a:dnqr:stVx")) != -1) {
switch (ch) {
case 'a':
autoconnect_port_name = strdup(optarg);
break;
case 'd':
debug = 1;
break;
case 'n':
start_stopped = 1;
break;
case 'q':
be_quiet = 1;
break;
case 'r':
rate_limit = strtod(optarg, NULL);
if (rate_limit <= 0.0) {
g_critical("Invalid rate limit specified.\n");
exit(EX_USAGE);
}
break;
case 's':
just_one_output = 1;
break;
case 't':
use_transport = 0;
break;
case 'x':
remote_control = 1;
break;
case 'V':
show_version();
break;
case '?':
default:
usage();
break;
}
}
argc -= optind;
argv += optind;
if (argv[0] == NULL) {
g_critical("No file name given.");
usage();
}
file_name = argv[0];
if (!remote_control) {
smf_vol = smf = smf_load(file_name);
if (smf == NULL) {
g_critical("Loading SMF file failed.");
exit(-1);
}
if (!be_quiet)
g_message("%s.", smf_decode(smf));
if (smf->number_of_tracks > MAX_NUMBER_OF_TRACKS) {
g_warning("Number of tracks (%d) exceeds maximum for per-track output; implying '-s' option.", smf->number_of_tracks);
just_one_output = 1;
}
}
#ifdef WITH_LASH
init_lash(lash_args);
#endif
g_timeout_add(1000, emergency_exit_timeout, (gpointer)0);
signal(SIGINT, ctrl_c_handler);
init_jack();
if (autoconnect_port_name) {
if (connect_to_input_port(autoconnect_port_name)) {
g_critical("Couldn't connect to '%s', exiting.", autoconnect_port_name);
exit(EX_UNAVAILABLE);
}
}
if (use_transport && !start_stopped) {
jack_transport_locate(jack_client, 0);
jack_transport_start(jack_client);
}
if (!use_transport)
playback_started = jack_frame_time(jack_client);
if (remote_control)
remote_control_start(argv[0]);
g_main_loop_run(g_main_loop_new(NULL, TRUE));
/* Not reached. */
return 0;
}
