Updated TODO.

[ahxm.git] / compiler.y

%{
/*

    Ann Hell Ex Machina - Music Software
    Copyright (C) 2003/2006 Angel Ortega <angel@triptico.com>

    compiler.y - Scripting language YACC parser

    This program is free software; you can redistribute it and/or
    modify it under the terms of the GNU General Public License
    as published by the Free Software Foundation; either version 2
    of the License, or (at your option) any later version.

    This program is distributed in the hope that it will be useful,
    but WITHOUT ANY WARRANTY; without even the implied warranty of
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
    GNU General Public License for more details.

    You should have received a copy of the GNU General Public License
    along with this program; if not, write to the Free Software
    Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.

    http://www.triptico.com

*/

#include "config.h"

#include <stdio.h>
#include <string.h>
#include <stdlib.h>
#include <math.h>

#include "ahxm.h"

/*******************
        Data
********************/

int yylex(void);
void yyerror(char * s);

/* injecting code functions (defined in compiler.l) */
int push_code(char * code);
int push_code_from_file(char * file);

/* current track */
int track;

/* current time */
double cur_time;

/* note globals */
static double length;
static int octave;
static int transpose;
static double staccato;
static float volume;
static double gliss;

/* parser debugging */

#define DEBUGF if(verbose >= 2)printf

/* blocks */

struct block
{
        char * name;
        int n_sblocks;
        char ** sblocks;
};

static struct block * blocks = NULL;
static int n_blocks = 0;

/* group info */
struct group
{
        double start;
        double gliss;
        double max;
};

static struct group * groups = NULL;
static int n_groups = 0;
static int groups_size = 0;

/* mark info */
struct mark
{
        char * name;
        double time;
};

static struct mark * marks = NULL;
static int n_marks = 0;

/* arpeggiator */
struct arp
{
        double delay;
        int transpose;
        float volume;
        int track_off;
};

static struct arp * arps = NULL;
static int n_arps = 0;
static int arps_size = 0;

static double arp_delay;
static int arp_transpose;
static float arp_volume;
static int arp_track_off;

int compiler_error = 0;

extern int yyline;

/* alterations for each note */
int alterations[12];

/* random seeds */
unsigned long block_seed = 0;

/*******************
        Code
********************/

unsigned long ah_rnd(unsigned long * seed)
/* special randomizer */
{
        *seed = (*seed * 58321) + 11113;

        return(*seed >> 16);
}


void c_err(char * e1, char * e2, char * e3)
/* reports an error from the compiler */
{
        printf("ahxm:");
        if(e1 != NULL) printf(" %s", e1);
        if(e2 != NULL) printf(" %s", e2);
        if(e3 != NULL) printf(" %s", e3);
        printf(" in line %d\n", yyline);

        compiler_error++;
}


static void forward(double step)
/* moves forward current time */
{
        /* add step */
        cur_time += step;

        /* quantizations could be done here */
}


/* blocks */

static int find_block(char * name)
/* finds a block */
{
        int n;

        for(n = 0;n < n_blocks;n++)
        {
                if(strcmp(name, blocks[n].name) == 0)
                        return(n);
        }

        return(-1);
}


static int set_block(char * name, char * block)
/* defines a block */
{
        int n;
        struct block * b;
        char * start;
        char * stop;

        /* if block already exists, free it */
        if((n = find_block(name)) >= 0)
        {
                b = &blocks[n];

                /* free all subblocks */
                for(n = 0;n < b->n_sblocks;n++)
                        free(b->sblocks[n]);

                /* free the subblock array */
                free(b->sblocks);
        }
        else
        {
                GROW(blocks, n_blocks, struct block);
                b = &blocks[n_blocks++];

                b->name = strdup(name);
        }

        /* reset */
        b->n_sblocks = 0;
        b->sblocks = NULL;

        /* now split in subblocks (delimited by : ) */
        start = block;

        while((stop = strchr(start, ':')) != NULL)
        {
                /* break there */
                *stop = '\0';

                /* add the subblock */
                GROW(b->sblocks, b->n_sblocks, char *);
                b->sblocks[b->n_sblocks++] = strdup(start);

                start = stop + 1;
        }

        /* no more separators? store the rest */
        GROW(b->sblocks, b->n_sblocks, char *);
        b->sblocks[b->n_sblocks++] = strdup(start);

        /* the original block is no longer needed */
        free(block);

        return(1);
}


static void insert_block(char * name)
/* inserts a block */
{
        int n;

        if((n = find_block(name)) >= 0)
        {
                struct block * b;

                b = &blocks[n];

                /* get one of them, randomly */
                n = ah_rnd(&block_seed) % b->n_sblocks;

                push_code(strdup(b->sblocks[n]));
        }
        else
                c_err("block-not-found", name, NULL);
}


static int insert_file(char * filename)
{
        if(!push_code_from_file(filename))
        {
                c_err("script-not-found", filename, NULL);
                return(1);
        }

        return(0);
}


/* groups */

static int push_group(void)
/* starts a new group of notes */
{
        struct group * g;

        if(n_groups == groups_size)
        {
                GROW(groups, groups_size, struct group);
                groups_size ++;
        }

        g = &groups[n_groups++];

        g->start = cur_time;
        g->gliss = 0.0;
        g->max = 0.0;

        return(1);
}


static int next_group_part(void)
/* part delimiter */
{
        struct group * g;

        if(n_groups == 0)
        {
                c_err("missing-start-of-group", NULL, NULL);
                return(0);
        }

        g = &groups[n_groups - 1];

        /* store maximum frame */
        if(g->max < cur_time)
                g->max = cur_time;

        /* add glissando delay */
        g->gliss += gliss;

        /* rewind */
        cur_time = g->start + g->gliss;

        return(1);
}


static int pop_group(void)
/* finishes a group, moving the frame to the end of the longer part */
{
        if(n_groups == 0)
        {
                c_err("missing-start-of-group", NULL, NULL);
                return(0);
        }

        n_groups--;

        /* if other parts of group were longer than the last one,
           move pointer there */
        if(groups[n_groups].max > cur_time)
                cur_time = groups[n_groups].max;

        return(1);
}


/* marks */

static void add_mark(char * name)
/* creates a new mark */
{
        GROW(marks, n_marks, struct mark);

        marks[n_marks].name = strdup(name);
        marks[n_marks].time = cur_time;

        n_marks++;
}


static void find_mark(char * name, int set)
/* finds a mark by name, optionally moving time cursor there */
{
        int n;

        for(n = 0;n < n_marks;n++)
        {
                if(strcmp(marks[n].name, name) == 0)
                {
                        if(set)
                        {
                                if(cur_time > marks[n].time)
                                        c_err("mark-overpassed", name, NULL);
                                else
                                        cur_time = marks[n].time;
                        }
                        else
                        if(cur_time != marks[n].time)
                                c_err("mark-mismatch", name, NULL);

                        return;
                }
        }

        c_err("mark-not-found", name, NULL);
}


/* arpeggiator */

static void arp_default(void)
/* resets arpeggiator values to the default ones */
{
        arp_delay = 0.0;
        arp_transpose = 0;
        arp_volume = 1.0;
        arp_track_off = 0;
}


static void add_arp(void)
/* adds an arpeggiator note */
{
        struct arp * a;

        /* if the note is exactly the same, do nothing */
        if(arp_delay == 0.0 && arp_transpose == 0 &&
           arp_volume == 1.0 && arp_track_off == 0)
                return;

        if(n_arps == arps_size)
        {
                GROW(arps, arps_size, struct arp);
                arps_size ++;
        }

        a = &arps[n_arps];

        a->delay = arp_delay;
        a->transpose = arp_transpose;
        a->volume = arp_volume;
        a->track_off = arp_track_off;

        n_arps++;
        arp_default();
}


static void set_alteration(char * altstr)
/* sets the alterations from altstr */
{
        int n, steps[] = { 2, 0, 2, 0, 1, 2, 0, 2, 0, 2, 0, 1 };

        /* reset alterations */
        for(n = 0;n < 12;n++) alterations[n] = 0;

        /* changed according the altstr spec */
        for(n = 0;*altstr != '\0' && n < 12;altstr++)
        {
                switch(*altstr)
                {
                case '&': alterations[n] = -1; break;
                case '#': alterations[n] = 1; break;
                }

                /* move to next natural note */
                n += steps[n];
        }
}


/* song events */

static void add_note_event(int note)
/* adds a note event */
{
        int n;
        int np;
        union song_ev e;

        /* sum the tonality alteration */
/*      note += tonalities[tonality][((unsigned) note) % 12];*/

        /* sum the alteration */
        note += alterations[((unsigned) note) % 12];

        /* calculate the note */
        np = note + transpose + (octave * 12);

        /* is note out of range? */
        if(np < 0 || np > 127)
        {
                c_err("note-out-of-range", NULL, NULL);
                return;
        }

        e.note.trk_id = track;
        e.note.note = np;
        e.note.len = length * staccato;
        e.note.vol = volume;

        add_song_ev(SONG_EV_NOTE, cur_time, &e);

        /* add arpeggiator repetitions */
        for(n = 0;n < n_arps;n++)
        {
                e.note.trk_id = track + arps[n].track_off;
                e.note.note = np + arps[n].transpose;
                e.note.vol = volume * arps[n].volume;

                add_song_ev(SONG_EV_NOTE, cur_time + arps[n].delay, &e);
        }
}


static void add_back_event(void)
{
        union song_ev e;

        e.back.trk_id = track;
        e.back.len = length;
        add_song_ev(SONG_EV_BACK, cur_time, &e);
}


static void add_tempo_event(int trk_id, double tempo)
{
        union song_ev e;

        e.tempo.trk_id = trk_id;
        e.tempo.tempo = tempo;
        add_song_ev(SONG_EV_TEMPO, cur_time, &e);
}


static void add_meter_event(int trk_id, int num, int den)
{
        union song_ev e;

        e.meter.trk_id = trk_id;
        e.meter.num = num;
        e.meter.den = den;
        add_song_ev(SONG_EV_METER, cur_time, &e);
}

static void add_measure_event(void)
{
        union song_ev e;

        e.measure.trk_id = -1;
        e.measure.line = yyline;

        add_song_ev(SONG_EV_MEASURE, cur_time, &e);
}


static void add_ss_sustain_event(double sustain)
{
        union song_ev e;

        e.ss_sustain.trk_id = track;
        e.ss_sustain.sustain = sustain;

        add_song_ev(SONG_EV_SS_SUSTAIN, cur_time, &e);
}


static void add_ss_vibrato_event(double depth, double freq)
{
        union song_ev e;

        e.ss_vibrato.trk_id = track;
        e.ss_vibrato.vib_depth = depth;
        e.ss_vibrato.vib_freq = freq;

        add_song_ev(SONG_EV_SS_VIBRATO, cur_time, &e);
}


static void add_ss_portamento_event(double portamento)
{
        union song_ev e;

        e.ss_portamento.trk_id = track;
        e.ss_portamento.portamento = portamento;

        add_song_ev(SONG_EV_SS_PORTAMENTO, cur_time, &e);
}


static void add_ss_channel_event(int channel, float vol)
{
        union song_ev e;

        e.ss_channel.trk_id = track;
        e.ss_channel.channel = channel;
        e.ss_channel.vol = vol;

        add_song_ev(SONG_EV_SS_CHANNEL, cur_time, &e);
}


static void add_ss_wav_event(char * wav_file, int base, int min, int max,
        double loop_start, double loop_end, int first_channel, int skip_channels)
{
        union song_ev e;

        e.ss_wav.trk_id = track;
        e.ss_wav.file = wav_file;
        e.ss_wav.base = base;
        e.ss_wav.min = min;
        e.ss_wav.max = max;
        e.ss_wav.loop_start = loop_start;
        e.ss_wav.loop_end = loop_end;
        e.ss_wav.first_channel = first_channel;
        e.ss_wav.skip_channels = skip_channels;

        add_song_ev(SONG_EV_SS_WAV, cur_time, &e);
}


static void add_ss_pat_event(char * pat_file)
{
        union song_ev e;

        e.ss_pat.trk_id = track;
        e.ss_pat.file = pat_file;

        add_song_ev(SONG_EV_SS_PAT, cur_time, &e);
}


static void add_ss_eff_event(int type, int channel, double size, float gain,
        double depth, double freq, double phase, float initial, float final)
{
        union song_ev e;

        e.ss_eff.trk_id = track;
        e.ss_eff.channel = channel;
        e.ss_eff.size = size;
        e.ss_eff.gain = gain;
        e.ss_eff.depth = depth;
        e.ss_eff.freq = freq;
        e.ss_eff.phase = phase;
        e.ss_eff.initial = initial;
        e.ss_eff.final = final;

        add_song_ev(type, cur_time, &e);
}


static void add_ss_pitch_stretch(int note, double len, float vol)
{
        union song_ev e;

        e.ss_pitch_stretch.trk_id = track;
        e.ss_pitch_stretch.note = note;
        e.ss_pitch_stretch.len = len;
        e.ss_pitch_stretch.vol = vol;

        add_song_ev(SONG_EV_SS_PITCH_STRETCH, cur_time, &e);
}


static void add_ss_print_wave_tempo(int note, double len)
{
        union song_ev e;

        e.ss_print_wave_tempo.trk_id = track;
        e.ss_print_wave_tempo.note = note;
        e.ss_print_wave_tempo.len = len;

        add_song_ev(SONG_EV_SS_PRINT_WAVE_TEMPO, cur_time, &e);
}


static void add_midi_channel_event(int channel)
{
        union song_ev e;

        e.midi_channel.trk_id = track;
        e.midi_channel.channel = channel - 1;

        add_song_ev(SONG_EV_MIDI_CHANNEL, cur_time, &e);
}


static void add_midi_program_event(int program)
{
        union song_ev e;

        e.midi_program.trk_id = track;
        e.midi_program.program = program;

        add_song_ev(SONG_EV_MIDI_PROGRAM, cur_time, &e);
}


static void add_song_info_event(char * author, char * name)
{
        union song_ev e;

        e.song_info.trk_id = track;
        e.song_info.author = author;
        e.song_info.name = name;

        add_song_ev(SONG_EV_SONG_INFO, cur_time, &e);
}


static void init_track(void)
/* sets the default values for a new track */
{
        int n;

        cur_time = 0.0;
        length = 0.0;
        transpose = 0;
        staccato = 0.8;
        volume = 0.75;
        octave = 5;
        gliss = 0;

        /* groups should not cross track boundaries */
        n_groups = 0;

        /* reset arpeggiator */
        n_arps = 0;
        arp_default();

        /* reset alterations */
        for(n = 0;n < 12;n++)
                alterations[n] = 0;
}


%}

%union {
        int i;
        double d;
        char * p;
};

%token <i> P_INTEGER S_INTEGER
%token <d> P_REAL S_REAL
%token <i> NOTE_P NOTE_T3 NOTE_T5
%token <p> NEW_MARK GOTO_MARK ASSERT_MARK

%token <p> BLOCK BLK_ASSIGN BLK_INSERT FILE_INSERT

%token <p> ALTSTR

%token <p> XC_STR
%token <i> XC_ABSNOTE
%token <d> XC_MSECS

%token SS_SEP SS_WAV SS_LOOP_WAV SS_PAT 
%token SS_SUSTAIN SS_VIBRATO SS_PORTAMENTO SS_CHANNEL SS_VOL

%token SS_EFF_DELAY SS_EFF_ECHO SS_EFF_COMB SS_EFF_ALLPASS SS_EFF_FLANGER
%token SS_EFF_WOBBLE SS_EFF_SQWOBBLE SS_EFF_HFWOBBLE
%token SS_EFF_FADER SS_EFF_REVERB SS_EFF_FOLDBACK SS_EFF_OFF

%token SS_PITCH_STRETCH SS_TIME_STRETCH SS_PRINT_WAVE_TEMPO

%token SONG_INFO

%token MIDI_CHANNEL MIDI_PROGRAM MIDI_GENERIC

%type <i> integer note note_pitch rest back
%type <d> real p_number number note_length

%type <d> arp_list arp_note
%type <i> xc_absnote

%%

script:
        script stmt             { ; }
        | /* NULL */
        ;

stmt:
        note                    {
                                        /* note event */
                                        add_note_event($1);
                                        forward(length);
                                }
        | rest                  {
                                        /* rest */
                                        forward(length);
                                }
        | back                  {
                                        /* back */
                                        add_back_event();
                                }
        | 'z' note_length       {
                                        /* zero note */
                                        length = $2;
                                }
        | 'o' P_INTEGER         {
                                        /* absolute octave */
                                        octave = $2;
                                }
        | 'o' S_INTEGER         {
                                        /* relative octave */
                                        octave += $2;
                                }
        | 'v' P_INTEGER         {
                                        /* absolute volume */
                                        volume = (float)$2;
                                }
        | 'v' P_REAL            {
                                        /* absolute volume */
                                        volume = (float)$2;
                                }
        | 'v' S_REAL            {
                                        /* relative volume */
                                        volume += (float)$2;
                                }
        | 't' integer           {
                                        /* transpose */
                                        transpose = $2;
                                }
        | 's' p_number          {
                                        /* staccato */
                                        staccato = $2;
                                }

        | '<'                   {
                                        /* start of group */
                                        push_group();
                                }
        | ';'                   {
                                        /* group delimiter */
                                        next_group_part();
                                }
        | '>'                   {
                                        /* end of group */
                                        pop_group();
                                }
        | 'l' note_length       {
                                        /* glissando */
                                        gliss = $2;
                                }

        | '|'                   {
                                        /* measure mark event */
                                        add_measure_event();
                                }

        | NEW_MARK              {
                                        /* add new mark */
                                        add_mark($1);
                                }
        | GOTO_MARK             {
                                        /* go to mark */
                                        find_mark($1, 1);
                                }
        | ASSERT_MARK           {
                                        /* assert mark */
                                        find_mark($1, 0);
                                }

        | '\\'                  {
                                        /* new track */

                                        track++;
                                        init_track();
                                }
        | 'T' p_number          {
                                        /* tempo setting */
                                        add_tempo_event(-1, $2);
                                }
        | 'M' P_INTEGER '/' P_INTEGER {
                                        /* meter (time signature) setting */
                                        add_meter_event(-1, $2, $4);
                                }
        | ALTSTR                {
                                        /* alteration string */
                                        set_alteration($1);
                                }

        | BLOCK '*' P_INTEGER   {
                                        /* repeat block */
                                        int n;

                                        /* store the block as <TMP> */
                                        set_block("<TMP>", $1);

                                        for(n = 0;n < $3;n++)
                                                insert_block("<TMP>");
                                }
        | BLOCK BLK_ASSIGN      {
                                        /* assign block */
                                        set_block($2, $1);
                                }
        | BLK_INSERT            {
                                        /* insert block */
                                        insert_block($1);
                                }
        | FILE_INSERT           {
                                        /* insert file */
                                        insert_file($1);
                                }

        | arp                   { ; }

        | xc_cmd                { ; }

        ;

integer:
        P_INTEGER               { $$ = $1; }
        | S_INTEGER             { $$ = $1; }
        ;

real:
        P_REAL                  { $$ = $1; }
        | S_REAL                { $$ = $1; }
        ;

p_number:
        P_INTEGER               { $$ = (double) $1; }
        | P_REAL                { $$ = $1; }
        ;

number:
        integer                 { $$ = (double) $1; }
        | real                  { $$ = $1; }
        ;

note:
        note_pitch              { $$ = $1; }
        | note note_length      { $$ = $1; length=$2; }
        | note '~' number       { $$ = $1; DEBUGF("imm volume: %lf\n", $3); }
        ;

note_pitch:
        NOTE_P                  { $$ = $1; }
        | note_pitch '&'        { $$ = $1 - 1; }
        | note_pitch '#'        { $$ = $1 + 1; }
        | note_pitch '\''       { $$ = $1 + 12; }
        | note_pitch ','        { $$ = $1 - 12; }
        ;

note_length:
        P_INTEGER               { $$ = 1 / (double) $1; }
        | note_length NOTE_T3   { $$ = $1 * 2.0 / 3.0; }
        | note_length NOTE_T5   { $$ = $1 * 4.0 / 5.0; }
        | note_length '*' p_number { $$ = $1 * $3; }
        | note_length '.'       { $$ = $1 * 1.5; }
        ;

rest:
        'r'                     { ; }
        | rest note_length      {
                                        /* rest with length */
                                        length = $2;
                                }
        ;

back:
        'k'                     { ; }
        | back note_length      {
                                        /* back with length */
                                        length = $2;
                                }
        ;

arp:
        'x'                     {
                                        /* empty arpeggiator */
                                        n_arps = 0;
                                        arp_default();
                                }
        | 'x' arp_list          { ; }
        ;

arp_list:
        arp_note                {
                                        /* first arpeggiator note */
                                        n_arps = 0;
                                        add_arp();
                                }
        | arp_list ',' arp_note {
                                        /* rest of arpeggiator notes */
                                        add_arp();
                                }
        ;

arp_note:
        note_length             {
                                        /* arpeggiator delay */
                                        arp_delay = $1;
                                }
        | arp_note '~' number   {
                                        /* arpeggiator volume */
                                        arp_volume = (float)$3;
                                }
        | arp_note S_INTEGER    {
                                        /* arpeggiator transpose */
                                        arp_transpose = $2;
                                }
        | arp_note '/' P_INTEGER {
                                        /* arpeggiator track offset */
                                        arp_track_off = $3;
                                }
        | arp_note NOTE_T3      {
                                        /* HACK: /3 */
                                        arp_track_off = 3;
                                }
        | arp_note NOTE_T5      {
                                        /* HACK: /5 */
                                        arp_track_off = 5;
                                }
        ;

xc_absnote:
        P_INTEGER               { $$ = $1; }
        | XC_ABSNOTE            { $$ = $1; }
        ;

xc_cmd:
        SS_WAV XC_STR xc_absnote {
                                        /* load .wav file with just one note */
                                        add_ss_wav_event($2, $3, $3, $3, -1.0, -1.0, 0, 0);
                                }
        | SS_WAV XC_STR xc_absnote xc_absnote xc_absnote {
                                        /* load .wav file */
                                        add_ss_wav_event($2, $3, $4, $5, -1.0, -1.0, 0, 0);
                                }
        | SS_WAV XC_STR xc_absnote xc_absnote xc_absnote number number {
                                        /* load .wav file, with loop boundaries */
                                        add_ss_wav_event($2, $3, $4, $5, $6, $7, 0, 0);
                                }
        | SS_WAV XC_STR xc_absnote xc_absnote xc_absnote number number number number {
                                        /* load .wav file, with loop boundaries,
                                           first channel and skip channels */
                                        add_ss_wav_event($2, $3, $4, $5, $6, $7, $8, $9);
                                }
        | SS_PAT XC_STR         {
                                        /* load .pat file */
                                        add_ss_pat_event($2);
                                }
        | SS_SUSTAIN XC_MSECS   {
                                        /* sets sustain */
                                        add_ss_sustain_event($2);
                                }
        | SS_VIBRATO XC_MSECS number {
                                        /* sets vibrato */
                                        add_ss_vibrato_event($2, $3);
                                }
        | SS_PORTAMENTO number {
                                        /* sets portamento */
                                        add_ss_portamento_event($2);
                                }
        | SS_CHANNEL integer number {
                                        /* sets volume for a channel */
                                        add_ss_channel_event($2, $3);
                                }
        | SS_VOL number number {
                                        /* set vol for 2 channels */
                                        add_ss_channel_event(0, $2);
                                        add_ss_channel_event(1, $3);
                                }
        | SS_VOL number number number {
                                        /* set vol for 3 channels */
                                        add_ss_channel_event(0, $2);
                                        add_ss_channel_event(1, $3);
                                        add_ss_channel_event(2, $4);
                                }
        | SS_VOL number number number number {
                                        /* set vol for 4 channels */
                                        add_ss_channel_event(0, $2);
                                        add_ss_channel_event(1, $3);
                                        add_ss_channel_event(2, $4);
                                        add_ss_channel_event(3, $5);
                                }
        | SS_VOL number number number number number number {
                                        /* set vol for 6 channels */
                                        add_ss_channel_event(0, $2);
                                        add_ss_channel_event(1, $3);
                                        add_ss_channel_event(2, $4);
                                        add_ss_channel_event(3, $5);
                                        add_ss_channel_event(4, $6);
                                        add_ss_channel_event(5, $7);
                                }
        | SS_EFF_DELAY integer XC_MSECS {
                                        /* delay effect */
                                        add_ss_eff_event(SONG_EV_SS_EFF_DELAY,
                                        $2, $3, 0, 0, 0, 0, 0, 0);
                                }

        | SS_EFF_ECHO integer XC_MSECS number {
                                        /* echo effect */
                                        add_ss_eff_event(SONG_EV_SS_EFF_ECHO,
                                        $2, $3, $4, 0, 0, 0, 0, 0);
                                }

        | SS_EFF_COMB integer XC_MSECS number {
                                        /* comb effect */
                                        add_ss_eff_event(SONG_EV_SS_EFF_COMB,
                                        $2, $3, $4, 0, 0, 0, 0, 0);
                                }

        | SS_EFF_ALLPASS integer XC_MSECS number {
                                        /* allpass effect */
                                        add_ss_eff_event(SONG_EV_SS_EFF_ALLPASS,
                                        $2, $3, $4, 0, 0, 0, 0, 0);
                                }

        | SS_EFF_FLANGER integer XC_MSECS number XC_MSECS number number {
                                        /* flanger effect */
                                        add_ss_eff_event(SONG_EV_SS_EFF_FLANGER,
                                        $2, $3, $4, $5, $6, $7, 0, 0);
                                }

        | SS_EFF_WOBBLE integer number number {
                                        /* wobble effect */
                                        add_ss_eff_event(SONG_EV_SS_EFF_WOBBLE,
                                        $2, 0, 0, 0, $3, $4, 0, 0);
                                }

        | SS_EFF_SQWOBBLE integer number number {
                                        /* square wobble effect */
                                        add_ss_eff_event(SONG_EV_SS_EFF_SQWOBBLE,
                                        $2, 0, 0, 0, $3, $4, 0, 0);
                                }

        | SS_EFF_HFWOBBLE integer number number {
                                        /* half wobble effect */
                                        add_ss_eff_event(SONG_EV_SS_EFF_HFWOBBLE,
                                        $2, 0, 0, 0, $3, $4, 0, 0);
                                }

        | SS_EFF_FADER integer XC_MSECS number number {
                                        /* fader effect */
                                        add_ss_eff_event(SONG_EV_SS_EFF_FADER,
                                        $2, $3, 0, 0, 0, 0, $4, $5);
                                }

        | SS_EFF_REVERB integer {
                                        /* reverb effect */
                                        add_ss_eff_event(SONG_EV_SS_EFF_REVERB,
                                        $2, 0, 0, 0, 0, 0, 0, 0);
                                }

        | SS_EFF_FOLDBACK integer number {
                                        /* foldback distortion effect */
                                        add_ss_eff_event(SONG_EV_SS_EFF_FOLDBACK,
                                        $2, 0, $3, 0, 0, 0, 0, 0);
                                }
        | SS_EFF_OFF integer {
                                        /* off effect */
                                        add_ss_eff_event(SONG_EV_SS_EFF_OFF,
                                        $2, 0, 0, 0, 0, 0, 0, 0);
                                }

        | SS_PITCH_STRETCH xc_absnote number number {
                                        /* pitch stretch note */
                                        add_ss_pitch_stretch($2, $3, $4);

                                        forward($3);
                                }

        | SS_PRINT_WAVE_TEMPO xc_absnote number {
                                        /* print tempo from wave */
                                        add_ss_print_wave_tempo($2, $3);
                                }

        | SONG_INFO XC_STR XC_STR {
                                        /* add song info */
                                        add_song_info_event($2, $3);
                                }

        | MIDI_CHANNEL integer {
                                        /* midi channel */
                                        add_midi_channel_event($2);
                                }

        | MIDI_PROGRAM integer {
                                        /* midi program */
                                        add_midi_program_event($2);
                                }
        ;

%%

void yyerror(char * s)
{
        c_err(s, NULL, NULL);
}


#define set_block_d(n,b) set_block(n,strdup(b))

static void compile_startup(void)
{
        track = 0;
        yyline = 1;
        compiler_error = 0;

        /* default settings */
        add_tempo_event(-2, 120.0);
        add_meter_event(-2, 4, 4);
        init_track();

        /* standard tonalities */
        set_block_d("CM", "A");         set_block_d("Am", "$CM");
        set_block_d("C#M", "A#######"); set_block_d("A#m", "$C#M");
        set_block_d("DM", "A#--#---");  set_block_d("Bm", "$DM");
        set_block_d("E&M", "A--&--&&"); set_block_d("Cm", "$E&M");
        set_block_d("EM", "A##-##--");  set_block_d("C#m", "$EM");
        set_block_d("FM", "A------&");  set_block_d("Dm", "$FM");
        set_block_d("F#M", "A######-"); set_block_d("D#m", "$F#M");
        set_block_d("GM", "A---#---");  set_block_d("Em", "$GM");
        set_block_d("A&M", "A-&&--&&"); set_block_d("Fm", "$A&M");
        set_block_d("AM", "A#--##--");  set_block_d("F#m", "$AM");
        set_block_d("B&M", "A--&---&"); set_block_d("Gm", "$B&M");
        set_block_d("BM", "A##-###-");  set_block_d("G#m", "$BM");
}


int compile_ahs_string(char * code)
{
        compile_startup();

        push_code(strdup(code));

        return(yyparse() + compiler_error);
}


int compile_ahs(char * file)
{
        compile_startup();

        if(insert_file(file))
                return(1);

        return(yyparse() + compiler_error);
}