adding midicomp for midi<-->plain text conversion
This commit is contained in:
Alexander Weinhold
parent
ec7e4375c3
commit
2514a62bc8
4
.gitignore
vendored
4
.gitignore
vendored
|
|
@ -1,3 +1,5 @@
|
|||
/Java/MoppyDesk/nbproject/private/
|
||||
/Java/MoppyDesk/build/
|
||||
/Java/MoppyDesk/dist/
|
||||
/Java/MoppyDesk/dist/
|
||||
midicomp
|
||||
*.o
|
||||
|
|
|
|||
30
tools/midicomp-0.0.4/Makefile
Normal file
30
tools/midicomp-0.0.4/Makefile
Normal file
|
|
@ -0,0 +1,30 @@
|
|||
# $Id: makefile.unx,v 1.3 1991/11/15 19:31:00 piet Rel $
|
||||
|
||||
CFLAGS = -O
|
||||
# If you have an old version of flex that defines yyleng
|
||||
# as a macro rather than a variable, uncomment the following line:
|
||||
# CFLAGS = -O -DNO_YYLENG_VAR
|
||||
|
||||
SRCS = midicomp.c t2mf.fl t2mflex.c yyread.c
|
||||
|
||||
EXECS = midicomp
|
||||
|
||||
all: $(EXECS)
|
||||
|
||||
midicomp: midicomp.h midicomp.o t2mf.h t2mflex.o
|
||||
$(CC) midicomp.o t2mflex.o -o midicomp
|
||||
|
||||
t2mflex.c: t2mf.fl
|
||||
flex -i -s -Ce t2mf.fl
|
||||
mv lex.yy.c t2mflex.c
|
||||
|
||||
t2mflex.o: t2mflex.c t2mf.h
|
||||
|
||||
clean:
|
||||
rm -f *.o midicomp
|
||||
|
||||
install:
|
||||
cp midicomp /usr/bin ; mv midicomp midicom.exe
|
||||
|
||||
dist:
|
||||
tar czf midicomp-$$(cat VERSION).tar.gz ./ --exclude=*.html --exclude=*.tar.gz
|
||||
177
tools/midicomp-0.0.4/Readme
Normal file
177
tools/midicomp-0.0.4/Readme
Normal file
|
|
@ -0,0 +1,177 @@
|
|||
midicomp v0.0.2 20070722 markc@renta.net
|
||||
|
||||
A program to manipulate SMF (Standard MIDI File) files. midicomp will
|
||||
both read and write SMF files in 0 or format 1 and also read and write
|
||||
it's own plain text format. This means a SMF file can be turned into
|
||||
easily parseble text, edited with any text editor or filtered through
|
||||
any script language, and "recompiled" back into a binary SMF file.
|
||||
|
||||
Originally based on mf2t/t2fm by Piet van Oostrum and others. It should
|
||||
build on any linux simply by typing "make" in the source directory.
|
||||
|
||||
Changes:
|
||||
|
||||
v0.0.2 20070722 Fixed gcc4+ compiler bug and exit warnings
|
||||
v0.0.1 20031129 Initial release, combined mf2t+t2fm, added getopt args
|
||||
|
||||
Command line argument usage:
|
||||
|
||||
-d --debug send any debug output to stderr
|
||||
-v --verbose output in columns with notes on
|
||||
-c --compile compile ascii input into SMF
|
||||
-n --note note on/off value as note|octave
|
||||
-t --time use absolute time instead of ticks
|
||||
-fN --fold=N fold sysex data at N columns
|
||||
|
||||
To translate a SMF file to plain ascii format:
|
||||
|
||||
midicomp some.mid # to view as plain text
|
||||
midicomp some.mid > some.asc # to create a text version
|
||||
|
||||
To translate a plain ascii formatted file to SMF:
|
||||
|
||||
midicomp -c some.asc some.mid # input and output filenames
|
||||
midicomp -c some.mid < some.asc # input from stdin with one arg
|
||||
|
||||
midicomp some.mid | somefilter | midicomp -c some2.mid
|
||||
|
||||
Format of the textfile:
|
||||
|
||||
File header: Mfile <format> <ntrks> <division>
|
||||
Start of track: MTrk
|
||||
End of track: TrkEnd
|
||||
|
||||
Note On: On <ch> <note> <vol>
|
||||
Note Off: Off <ch> <note> <vol>
|
||||
Poly Pressure: PoPr[PolyPr] <ch> <note> <val>
|
||||
Channel Pressure: ChPr[ChanPr] <ch> <val>
|
||||
Controller parameter: Par[Param] <ch> <con> <val>
|
||||
Pitch bend: Pb <ch> <val>
|
||||
Program change: PrCh[ProgCh] <ch> <prog>
|
||||
Sysex message: SysEx <hex>
|
||||
Arbutrary midi bytes: Arb <hex>
|
||||
|
||||
Sequence nr: Seqnr <num>
|
||||
Key signature: KeySig <num> <manor>
|
||||
Tempo: Tempo <num>
|
||||
Time signature: TimeSig <num>/<num> <num> <num>
|
||||
SMPTE event: SMPTE <num> <num> <num> <num> <num>
|
||||
|
||||
Meta text events: Meta <texttype> <string>
|
||||
Meta end of track: Meta TrkEnd
|
||||
Sequencer specific: SeqSpec <type> <hex>
|
||||
Misc meta events: Meta <type> <hex>
|
||||
|
||||
The <> have the following meaning:
|
||||
|
||||
<ch> ch=<num>
|
||||
<note> n=<noteval> [note=<noteval>]
|
||||
<vol> v=<num> [vol=<num>]
|
||||
<val> v=<num> [val=<num>]
|
||||
<con> c=<num> [con=<num>]
|
||||
<prog> p=<num> [prog=<num>]
|
||||
<manor> minor or major
|
||||
<noteval> either a <num> or A-G optionally followed by #,
|
||||
followed by <num> without intermediate spaces.
|
||||
<texttype> Text Copyright SeqName TrkName InstrName Lyric Marker Cue
|
||||
<type> a hex number of the form 0xab
|
||||
<hex> a sequence of 2-digit hex numbers (without 0x)
|
||||
separated by space
|
||||
<string> a string between double quotes (like "text").
|
||||
|
||||
Misc notes:
|
||||
|
||||
Channel numbers are 1-based, all other numbers are as they appear in the
|
||||
midifile.
|
||||
|
||||
<division> is either a positive number (giving the time resolution in
|
||||
clicks per quarter note) or a negative number followed by a positive
|
||||
number (giving SMPTE timing).
|
||||
|
||||
<format> <ntrks> <num> are decimal numbers.
|
||||
|
||||
The <num> in the Pb is the real value (two midibytes combined)
|
||||
|
||||
In Tempo it is a long (32 bits) value. Others are in the interval 0-127
|
||||
|
||||
The SysEx sequence contains the leading F0 and the trailing F7.
|
||||
|
||||
In a string certain characters are escaped:
|
||||
|
||||
" and \ are escaped with a \
|
||||
a zero byte is written as \0
|
||||
CR and LF are written as \r and \n respectively
|
||||
other non-printable characters are written as \x<2 hex digits>
|
||||
When -f is given long strings and long hex sequences are folded by inserting
|
||||
\<newline><tab>. If in a string the next character would be a space or
|
||||
tab it will be escaped by \
|
||||
|
||||
midicomp will accept all formats that mf2t can produce, plus a number of
|
||||
others. Input is case insensitive (except in strings) and extra tabs and
|
||||
spaces are allowed. Newlines are required but empty lines are allowed.
|
||||
Comment starts with # at the beginning of a lexical item and continues
|
||||
to the end of the line. The only other places where a # is legal are
|
||||
insides strings and as a sharp symbol in a symbolic note.
|
||||
|
||||
In symbolic notes + and # are allowed for sharp, b and - for flat.
|
||||
|
||||
In bar:beat:click time the : may also be /
|
||||
|
||||
On input a string may also contain \t for a tab, and in a folded
|
||||
string any whitespace at the beginning of a continuation line is skipped.
|
||||
|
||||
Hex sequences may be input without intervening spaces if each byte is
|
||||
given as exactly 2 hex digits.
|
||||
|
||||
Hex sequences may be given where a string is required and vice versa.
|
||||
|
||||
Hex numbers of the form 0xaaa and decimal numbers are equivalent.
|
||||
Also allowed as numbers are "bank numbers" of the form '123. In fact
|
||||
this is equivalent to the octal number 012 (subtract 1 from each
|
||||
digit, digits 1-8 allowed). The letters a-h may also be used for 1-8.
|
||||
|
||||
The input is checked for correctness but not extensively. An
|
||||
errormessage will generally imply that the resulting midifile is illegal.
|
||||
|
||||
channel number can be recognized by the regular expression /ch=/.
|
||||
note numbers by /n=/ or /note=/, program numbers by /p=/ or /prog=/.
|
||||
Meta events by /^Meta/ or /^SeqSpec/.
|
||||
Text events by /"/, continued lines by /\\$/, continuation lines by /$\t/
|
||||
(that was a TAB character).
|
||||
|
||||
In awk each parameter is a field, in perl you can use split to get the
|
||||
parameters (except for strings).
|
||||
|
||||
The following perl script changes note off messages to note on with
|
||||
vol=0, deletes controller 3 changes, makes some note reassignments on
|
||||
channel 10, and changes the channel numbers from channel 1 depending
|
||||
on the track number.
|
||||
|
||||
------------------------------- test.pl -------------------------------
|
||||
%drum = (62, 36, 63, 47, 65, 61, 67, 40, 68, 54);
|
||||
|
||||
while (<>) {
|
||||
next if /c=3/;
|
||||
s/Off(.*)v=[0-9]*/On\1v=0/;
|
||||
if (/ch=10/ && /n=([0-9]*)/ && $drum{$1}) {
|
||||
s/n=$1/"n=".$drum{$1}/e;
|
||||
}
|
||||
if (/^MTrk/) {++$trknr ; print "track $trknr\n";}
|
||||
if ($trknr > 2) { s/ch=1\b/ch=3/; }
|
||||
else { s/ch=1\b/ch=4/; }
|
||||
print || die "Error: $!\n";
|
||||
}
|
||||
------------------------------------------------------------------------
|
||||
|
||||
and this is the corresponding awk script.
|
||||
|
||||
------------------------------- test.awk -------------------------------
|
||||
BEGIN { drum[62] = 36; drum[63] = 47; drum[65] = 61; \
|
||||
drum[67] = 40; drum[68] = 54 }
|
||||
/c=3/ { next }
|
||||
($2 == "Off") { $2 = "On"; $5 = "v=0" }
|
||||
/ch=10/ { n = substr($4, 3); if (n in drum) $4 = "n=" drum[n] }
|
||||
/^MTrk/ { trknr++ }
|
||||
/ch=1 / { if (trknr > 2) { $3 = "ch=2" } else { $3 = "ch=3" } }
|
||||
{ print }
|
||||
------------------------------------------------------------------------
|
||||
1
tools/midicomp-0.0.4/VERSION
Normal file
1
tools/midicomp-0.0.4/VERSION
Normal file
|
|
@ -0,0 +1 @@
|
|||
0.0.2
|
||||
39
tools/midicomp-0.0.4/ex1-plain.txt
Normal file
39
tools/midicomp-0.0.4/ex1-plain.txt
Normal file
|
|
@ -0,0 +1,39 @@
|
|||
MFile 1 1 384
|
||||
MTrk
|
||||
0 Meta SeqName "Track 1"
|
||||
0 On ch=1 n=48 v=70
|
||||
0 Tempo 500000
|
||||
0 TimeSig 4/4 32 99
|
||||
96 On ch=1 n=48 v=0
|
||||
96 On ch=1 n=50 v=70
|
||||
192 On ch=1 n=50 v=0
|
||||
192 On ch=1 n=52 v=70
|
||||
288 On ch=1 n=52 v=0
|
||||
288 On ch=1 n=53 v=70
|
||||
384 On ch=1 n=53 v=0
|
||||
384 On ch=1 n=55 v=70
|
||||
480 On ch=1 n=55 v=0
|
||||
480 On ch=1 n=57 v=70
|
||||
576 On ch=1 n=57 v=0
|
||||
576 On ch=1 n=59 v=70
|
||||
672 On ch=1 n=59 v=0
|
||||
672 On ch=1 n=60 v=70
|
||||
768 On ch=1 n=60 v=0
|
||||
768 On ch=1 n=62 v=70
|
||||
864 On ch=1 n=62 v=0
|
||||
864 On ch=1 n=60 v=70
|
||||
960 On ch=1 n=60 v=0
|
||||
960 On ch=1 n=59 v=70
|
||||
1056 On ch=1 n=59 v=0
|
||||
1056 On ch=1 n=57 v=70
|
||||
1152 On ch=1 n=57 v=0
|
||||
1152 On ch=1 n=55 v=70
|
||||
1248 On ch=1 n=55 v=0
|
||||
1248 On ch=1 n=53 v=70
|
||||
1344 On ch=1 n=53 v=0
|
||||
1344 On ch=1 n=52 v=70
|
||||
1440 On ch=1 n=52 v=0
|
||||
1440 On ch=1 n=50 v=70
|
||||
1536 On ch=1 n=50 v=0
|
||||
1536 Meta TrkEnd
|
||||
TrkEnd
|
||||
39
tools/midicomp-0.0.4/ex1-verbose.txt
Normal file
39
tools/midicomp-0.0.4/ex1-verbose.txt
Normal file
|
|
@ -0,0 +1,39 @@
|
|||
MFile 1 1 384
|
||||
MTrk
|
||||
000:00:000 Meta SeqName "Track 1"
|
||||
000:00:000 On ch=1 note=c4 vol=70
|
||||
000:00:000 Tempo 500000
|
||||
000:00:000 TimeSig 4/4 32 99
|
||||
000:00:096 On ch=1 note=c4 vol=0
|
||||
000:00:096 On ch=1 note=d4 vol=70
|
||||
000:00:192 On ch=1 note=d4 vol=0
|
||||
000:00:192 On ch=1 note=e4 vol=70
|
||||
000:00:288 On ch=1 note=e4 vol=0
|
||||
000:00:288 On ch=1 note=f4 vol=70
|
||||
000:01:000 On ch=1 note=f4 vol=0
|
||||
000:01:000 On ch=1 note=g4 vol=70
|
||||
000:01:096 On ch=1 note=g4 vol=0
|
||||
000:01:096 On ch=1 note=a4 vol=70
|
||||
000:01:192 On ch=1 note=a4 vol=0
|
||||
000:01:192 On ch=1 note=b4 vol=70
|
||||
000:01:288 On ch=1 note=b4 vol=0
|
||||
000:01:288 On ch=1 note=c5 vol=70
|
||||
000:02:000 On ch=1 note=c5 vol=0
|
||||
000:02:000 On ch=1 note=d5 vol=70
|
||||
000:02:096 On ch=1 note=d5 vol=0
|
||||
000:02:096 On ch=1 note=c5 vol=70
|
||||
000:02:192 On ch=1 note=c5 vol=0
|
||||
000:02:192 On ch=1 note=b4 vol=70
|
||||
000:02:288 On ch=1 note=b4 vol=0
|
||||
000:02:288 On ch=1 note=a4 vol=70
|
||||
000:03:000 On ch=1 note=a4 vol=0
|
||||
000:03:000 On ch=1 note=g4 vol=70
|
||||
000:03:096 On ch=1 note=g4 vol=0
|
||||
000:03:096 On ch=1 note=f4 vol=70
|
||||
000:03:192 On ch=1 note=f4 vol=0
|
||||
000:03:192 On ch=1 note=e4 vol=70
|
||||
000:03:288 On ch=1 note=e4 vol=0
|
||||
000:03:288 On ch=1 note=d4 vol=70
|
||||
001:00:000 On ch=1 note=d4 vol=0
|
||||
001:00:000 Meta TrkEnd
|
||||
TrkEnd
|
||||
BIN
tools/midicomp-0.0.4/ex1.mid
Normal file
BIN
tools/midicomp-0.0.4/ex1.mid
Normal file
Binary file not shown.
1350
tools/midicomp-0.0.4/midicomp.c
Normal file
1350
tools/midicomp-0.0.4/midicomp.c
Normal file
File diff suppressed because it is too large
Load Diff
252
tools/midicomp-0.0.4/midicomp.h
Normal file
252
tools/midicomp-0.0.4/midicomp.h
Normal file
|
|
@ -0,0 +1,252 @@
|
|||
/*
|
||||
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
|
||||
*/
|
||||
|
||||
#define MThd 0x4d546864L
|
||||
#define MTrk 0x4d54726bL
|
||||
#define MTHD 256
|
||||
#define MTRK 257
|
||||
#define TRKEND 258
|
||||
|
||||
#define ON note_on
|
||||
#define OFF note_off
|
||||
#define POPR poly_aftertouch
|
||||
#define PAR control_change
|
||||
#define PB pitch_wheel
|
||||
#define PRCH program_chng
|
||||
#define CHPR channel_aftertouch
|
||||
#define SYSEX system_exclusive
|
||||
|
||||
#define ARB 259
|
||||
#define MINOR 260
|
||||
#define MAJOR 261
|
||||
|
||||
#define CH 262
|
||||
#define NOTE 263
|
||||
#define VAL 264
|
||||
#define CON 265
|
||||
#define PROG 266
|
||||
|
||||
#define INT 267
|
||||
#define STRING 268
|
||||
#define STRESC 269
|
||||
#define ERR 270
|
||||
#define NOTEVAL 271
|
||||
#define EOL 272
|
||||
|
||||
#define META 273
|
||||
#define SEQSPEC (META+1+sequencer_specific)
|
||||
#define TEXT (META+1+text_event)
|
||||
#define COPYRIGHT (META+1+copyright_notice)
|
||||
#define SEQNAME (META+1+sequence_name)
|
||||
#define INSTRNAME (META+1+instrument_name)
|
||||
#define LYRIC (META+1+lyric)
|
||||
#define MARKER (META+1+marker)
|
||||
#define CUE (META+1+cue_point)
|
||||
#define SEQNR (META+1+sequence_number)
|
||||
#define KEYSIG (META+1+key_signature)
|
||||
#define TEMPO (META+1+set_tempo)
|
||||
#define TIMESIG (META+1+time_signature)
|
||||
#define SMPTE (META+1+smpte_offset)
|
||||
|
||||
#define note_off 0x80
|
||||
#define note_on 0x90
|
||||
#define poly_aftertouch 0xa0
|
||||
#define control_change 0xb0
|
||||
#define program_chng 0xc0
|
||||
#define channel_aftertouch 0xd0
|
||||
#define pitch_wheel 0xe0
|
||||
#define system_exclusive 0xf0
|
||||
#define delay_packet (1111)
|
||||
|
||||
#define damper_pedal 0x40
|
||||
#define portamento 0x41
|
||||
#define sostenuto 0x42
|
||||
#define soft_pedal 0x43
|
||||
#define general_4 0x44
|
||||
#define hold_2 0x45
|
||||
#define general_5 0x50
|
||||
#define general_6 0x51
|
||||
#define general_7 0x52
|
||||
#define general_8 0x53
|
||||
#define tremolo_depth 0x5c
|
||||
#define chorus_depth 0x5d
|
||||
#define detune 0x5e
|
||||
#define phaser_depth 0x5f
|
||||
|
||||
#define data_inc 0x60
|
||||
#define data_dec 0x61
|
||||
|
||||
#define non_reg_lsb 0x62
|
||||
#define non_reg_msb 0x63
|
||||
#define reg_lsb 0x64
|
||||
#define reg_msb 0x65
|
||||
|
||||
#define meta_event 0xFF
|
||||
#define sequence_number 0x00
|
||||
#define text_event 0x01
|
||||
#define copyright_notice 0x02
|
||||
#define sequence_name 0x03
|
||||
#define instrument_name 0x04
|
||||
#define lyric 0x05
|
||||
#define marker 0x06
|
||||
#define cue_point 0x07
|
||||
#define channel_prefix 0x20
|
||||
#define end_of_track 0x2f
|
||||
#define set_tempo 0x51
|
||||
#define smpte_offset 0x54
|
||||
#define time_signature 0x58
|
||||
#define key_signature 0x59
|
||||
#define sequencer_specific 0x7f
|
||||
|
||||
#define Seq_Circuits (0x01) /* Sequential Circuits Inc. */
|
||||
#define Big_Briar (0x02) /* Big Briar Inc. */
|
||||
#define Octave (0x03) /* Octave/Plateau */
|
||||
#define Moog (0x04) /* Moog Music */
|
||||
#define Passport (0x05) /* Passport Designs */
|
||||
#define Lexicon (0x06) /* Lexicon */
|
||||
#define Tempi (0x20) /* Bon Tempi */
|
||||
#define Siel (0x21) /* S.I.E.L. */
|
||||
#define Kawai (0x41)
|
||||
#define Roland (0x42)
|
||||
#define Korg (0x42)
|
||||
#define Yamaha (0x43)
|
||||
|
||||
#define lowerbyte(x) ((unsigned char)(x & 0xff))
|
||||
#define upperbyte(x) ((unsigned char)((x & 0xff00)>>8))
|
||||
#define NULLFUNC 0
|
||||
#define MSGINCREMENT 128
|
||||
|
||||
#ifdef NO_YYLENG_VAR
|
||||
#define yyleng yylength
|
||||
#endif
|
||||
|
||||
static FILE *F;
|
||||
|
||||
static char *Msgbuff = NULL;
|
||||
static int Msgsize = 0;
|
||||
static int Msgindex = 0;
|
||||
|
||||
static int TrkNr;
|
||||
static int TrksToDo = 1;
|
||||
static int Measure, M0, Beat, Clicks;
|
||||
static long T0;
|
||||
|
||||
static int fold = 0;
|
||||
static int notes = 0;
|
||||
static int times = 0;
|
||||
static char *Onmsg = "On ch=%d n=%s v=%d\n";
|
||||
static char *Offmsg = "Off ch=%d n=%s v=%d\n";
|
||||
static char *PoPrmsg = "PoPr ch=%d n=%s v=%d\n";
|
||||
static char *Parmsg = "Par ch=%d c=%d v=%d\n";
|
||||
static char *Pbmsg = "Pb ch=%d v=%d\n";
|
||||
static char *PrChmsg = "PrCh ch=%d p=%d\n";
|
||||
static char *ChPrmsg = "ChPr ch=%d v=%d\n";
|
||||
static jmp_buf erjump;
|
||||
static int err_cont = 0;
|
||||
static int TrkNr;
|
||||
static int Format, Ntrks;
|
||||
static int Measure, M0, Beat, Clicks;
|
||||
static long T0;
|
||||
static char* buffer = 0;
|
||||
static int buflen,bufsiz= 0;
|
||||
|
||||
extern long yyval;
|
||||
extern int yyleng;
|
||||
extern int lineno;
|
||||
extern char *yytext;
|
||||
extern int do_hex;
|
||||
extern int eol_seen;
|
||||
extern FILE *yyin;
|
||||
|
||||
static int mywritetrack();
|
||||
static void checkchan();
|
||||
static void checknote();
|
||||
static void checkval();
|
||||
static void splitval();
|
||||
static void get16val();
|
||||
static void checkcon();
|
||||
static void checkprog();
|
||||
static void checkeol();
|
||||
static void gethex();
|
||||
|
||||
int (*Mf_getc)() = NULLFUNC;
|
||||
int (*Mf_error)() = NULLFUNC;
|
||||
int (*Mf_header)() = NULLFUNC;
|
||||
int (*Mf_starttrack)() = NULLFUNC;
|
||||
int (*Mf_endtrack)() = NULLFUNC;
|
||||
int (*Mf_on)() = NULLFUNC;
|
||||
int (*Mf_off)() = NULLFUNC;
|
||||
int (*Mf_pressure)() = NULLFUNC;
|
||||
int (*Mf_parameter)() = NULLFUNC;
|
||||
int (*Mf_pitchbend)() = NULLFUNC;
|
||||
int (*Mf_program)() = NULLFUNC;
|
||||
int (*Mf_chanpressure)() = NULLFUNC;
|
||||
int (*Mf_sysex)() = NULLFUNC;
|
||||
int (*Mf_arbitrary)() = NULLFUNC;
|
||||
int (*Mf_metamisc)() = NULLFUNC;
|
||||
int (*Mf_seqnum)() = NULLFUNC;
|
||||
int (*Mf_eot)() = NULLFUNC;
|
||||
int (*Mf_smpte)() = NULLFUNC;
|
||||
int (*Mf_tempo)() = NULLFUNC;
|
||||
int (*Mf_timesig)() = NULLFUNC;
|
||||
int (*Mf_keysig)() = NULLFUNC;
|
||||
int (*Mf_sqspecific)() = NULLFUNC;
|
||||
int (*Mf_text)() = NULLFUNC;
|
||||
|
||||
static readtrack();
|
||||
static badbyte();
|
||||
static metaevent();
|
||||
static sysex();
|
||||
static chanmessage();
|
||||
static msginit();
|
||||
static msgleng();
|
||||
static msgadd();
|
||||
static biggermsg();
|
||||
|
||||
float mf_ticks2sec();
|
||||
unsigned long mf_sec2ticks(float,int,unsigned int);
|
||||
void mfwrite();
|
||||
|
||||
int (*Mf_putc)() = NULLFUNC;
|
||||
int (*Mf_wtrack)() = NULLFUNC;
|
||||
int (*Mf_wtempotrack)() = NULLFUNC;
|
||||
|
||||
int Mf_nomerge = 0;
|
||||
long Mf_currtime = 0L;
|
||||
|
||||
static long Mf_toberead = 0L;
|
||||
static long Mf_numbyteswritten = 0L;
|
||||
|
||||
static long readvarinum();
|
||||
static long read32bit();
|
||||
static long to32bit();
|
||||
static int read16bit();
|
||||
static int to16bit();
|
||||
static char *msg();
|
||||
static void readheader();
|
||||
|
||||
static int verbose_flag;
|
||||
static int dbg=0;
|
||||
char data[5];
|
||||
int chan;
|
||||
int Mf_RunStat = 0;
|
||||
static int laststat;
|
||||
static int lastmeta;
|
||||
int verbose = 0;
|
||||
|
||||
int filegetc();
|
||||
int fileputc();
|
||||
void WriteVarLen();
|
||||
int eputc(unsigned char);
|
||||
121
tools/midicomp-0.0.4/midifile.h
Normal file
121
tools/midicomp-0.0.4/midifile.h
Normal file
|
|
@ -0,0 +1,121 @@
|
|||
/* $Id: midifile.h,v 1.3 1991/11/03 21:50:50 piet Rel $ */
|
||||
|
||||
static readtrack();
|
||||
static badbyte();
|
||||
static metaevent();
|
||||
static sysex();
|
||||
static chanmessage();
|
||||
static msginit();
|
||||
static msgleng();
|
||||
static msgadd();
|
||||
static biggermsg();
|
||||
|
||||
/* definitions for MIDI file parsing code */
|
||||
extern int (*Mf_getc)();
|
||||
extern int (*Mf_header)();
|
||||
extern int (*Mf_starttrack)();
|
||||
extern int (*Mf_endtrack)();
|
||||
extern int (*Mf_on)();
|
||||
extern int (*Mf_off)();
|
||||
extern int (*Mf_pressure)();
|
||||
extern int (*Mf_parameter)();
|
||||
extern int (*Mf_pitchbend)();
|
||||
extern int (*Mf_program)();
|
||||
extern int (*Mf_chanpressure)();
|
||||
extern int (*Mf_sysex)();
|
||||
extern int (*Mf_metamisc)();
|
||||
extern int (*Mf_sqspecific)();
|
||||
extern int (*Mf_seqnum)();
|
||||
extern int (*Mf_text)();
|
||||
extern int (*Mf_eot)();
|
||||
extern int (*Mf_timesig)();
|
||||
extern int (*Mf_smpte)();
|
||||
extern int (*Mf_tempo)();
|
||||
extern int (*Mf_keysig)();
|
||||
extern int (*Mf_arbitrary)();
|
||||
extern int (*Mf_error)();
|
||||
extern long Mf_currtime;
|
||||
extern int Mf_nomerge;
|
||||
|
||||
/* definitions for MIDI file writing code */
|
||||
extern int (*Mf_putc)();
|
||||
extern int (*Mf_wtrack)();
|
||||
extern int (*Mf_wtempotrack)();
|
||||
float mf_ticks2sec();
|
||||
unsigned long mf_sec2ticks();
|
||||
void mfwrite();
|
||||
|
||||
/* MIDI status commands most significant bit is 1 */
|
||||
#define note_off 0x80
|
||||
#define note_on 0x90
|
||||
#define poly_aftertouch 0xa0
|
||||
#define control_change 0xb0
|
||||
#define program_chng 0xc0
|
||||
#define channel_aftertouch 0xd0
|
||||
#define pitch_wheel 0xe0
|
||||
#define system_exclusive 0xf0
|
||||
#define delay_packet (1111)
|
||||
|
||||
/* 7 bit controllers */
|
||||
#define damper_pedal 0x40
|
||||
#define portamento 0x41
|
||||
#define sostenuto 0x42
|
||||
#define soft_pedal 0x43
|
||||
#define general_4 0x44
|
||||
#define hold_2 0x45
|
||||
#define general_5 0x50
|
||||
#define general_6 0x51
|
||||
#define general_7 0x52
|
||||
#define general_8 0x53
|
||||
#define tremolo_depth 0x5c
|
||||
#define chorus_depth 0x5d
|
||||
#define detune 0x5e
|
||||
#define phaser_depth 0x5f
|
||||
|
||||
/* parameter values */
|
||||
#define data_inc 0x60
|
||||
#define data_dec 0x61
|
||||
|
||||
/* parameter selection */
|
||||
#define non_reg_lsb 0x62
|
||||
#define non_reg_msb 0x63
|
||||
#define reg_lsb 0x64
|
||||
#define reg_msb 0x65
|
||||
|
||||
/* Standard MIDI Files meta event definitions */
|
||||
#define meta_event 0xFF
|
||||
#define sequence_number 0x00
|
||||
#define text_event 0x01
|
||||
#define copyright_notice 0x02
|
||||
#define sequence_name 0x03
|
||||
#define instrument_name 0x04
|
||||
#define lyric 0x05
|
||||
#define marker 0x06
|
||||
#define cue_point 0x07
|
||||
#define channel_prefix 0x20
|
||||
#define end_of_track 0x2f
|
||||
#define set_tempo 0x51
|
||||
#define smpte_offset 0x54
|
||||
#define time_signature 0x58
|
||||
#define key_signature 0x59
|
||||
#define sequencer_specific 0x7f
|
||||
|
||||
/* Manufacturer's ID number */
|
||||
#define Seq_Circuits (0x01) /* Sequential Circuits Inc. */
|
||||
#define Big_Briar (0x02) /* Big Briar Inc. */
|
||||
#define Octave (0x03) /* Octave/Plateau */
|
||||
#define Moog (0x04) /* Moog Music */
|
||||
#define Passport (0x05) /* Passport Designs */
|
||||
#define Lexicon (0x06) /* Lexicon */
|
||||
#define Tempi (0x20) /* Bon Tempi */
|
||||
#define Siel (0x21) /* S.I.E.L. */
|
||||
#define Kawai (0x41)
|
||||
#define Roland (0x42)
|
||||
#define Korg (0x42)
|
||||
#define Yamaha (0x43)
|
||||
|
||||
/* miscellaneous definitions */
|
||||
#define MThd 0x4d546864L
|
||||
#define MTrk 0x4d54726bL
|
||||
#define lowerbyte(x) ((unsigned char)(x & 0xff))
|
||||
#define upperbyte(x) ((unsigned char)((x & 0xff00)>>8))
|
||||
98
tools/midicomp-0.0.4/t2mf.fl
Normal file
98
tools/midicomp-0.0.4/t2mf.fl
Normal file
|
|
@ -0,0 +1,98 @@
|
|||
/* $Id: t2mf.fl,v 1.3 1991/11/15 19:31:00 piet Rel $ */
|
||||
|
||||
%{
|
||||
|
||||
#include "t2mf.h"
|
||||
|
||||
#ifdef NO_YYLENG_VAR
|
||||
int yylength;
|
||||
#define YY_USER_ACTION yylength = yyleng
|
||||
#endif
|
||||
|
||||
int do_hex = 0;
|
||||
int eol_seen = 0;
|
||||
int lineno = 1;
|
||||
long yyval;
|
||||
long bankno();
|
||||
|
||||
%}
|
||||
|
||||
Hex [0-9a-f]
|
||||
|
||||
%x QUOTE
|
||||
%x HEX
|
||||
%%
|
||||
if (do_hex) {
|
||||
BEGIN(HEX);
|
||||
do_hex = 0;
|
||||
}
|
||||
eol_seen = 0;
|
||||
|
||||
<INITIAL,HEX>[ \t\r] /* skip whitespace */;
|
||||
<INITIAL,HEX>"#".*\n /* skip comment */ lineno++;
|
||||
|
||||
MFile return MTHD;
|
||||
MTrk return MTRK;
|
||||
TrkEnd return TRKEND;
|
||||
|
||||
On return ON;
|
||||
Off return OFF;
|
||||
Po(ly)?Pr return POPR;
|
||||
Par(am)? return PAR;
|
||||
Pb return PB;
|
||||
Pr(og)?Ch return PRCH;
|
||||
Ch(an)?Pr return CHPR;
|
||||
SysEx return SYSEX;
|
||||
Meta return META;
|
||||
SeqSpec return SEQSPEC;
|
||||
Text return TEXT;
|
||||
Copyright return COPYRIGHT;
|
||||
TrkName|SeqName return SEQNAME;
|
||||
InstrName return INSTRNAME;
|
||||
Lyric return LYRIC;
|
||||
Marker return MARKER;
|
||||
Cue return CUE;
|
||||
SeqNr return SEQNR;
|
||||
KeySig return KEYSIG;
|
||||
Tempo return TEMPO;
|
||||
TimeSig return TIMESIG;
|
||||
SMPTE return SMPTE;
|
||||
Arb return ARB;
|
||||
[:/] return '/';
|
||||
|
||||
minor return MINOR;
|
||||
major return MAJOR;
|
||||
|
||||
ch= return CH;
|
||||
n(ote)?= return NOTE;
|
||||
v([oa]l)?= return VAL;
|
||||
c(on)?= return CON;
|
||||
p(rog)?= return PROG;
|
||||
|
||||
[-+]?[0-9]+ sscanf (yytext, "%ld", &yyval); return INT;
|
||||
0x{Hex}+ sscanf (yytext+2, "%lx", &yyval); return INT;
|
||||
\$[A-H1-8]+ yyval = bankno (yytext+1, yyleng-1); return INT;
|
||||
<HEX>{Hex}{Hex}? sscanf (yytext, "%lx", &yyval); return INT;
|
||||
|
||||
[a-g][#b+-]?[0-9]+ return NOTEVAL;
|
||||
|
||||
<INITIAL,HEX>\" BEGIN (QUOTE);
|
||||
<QUOTE>[^\\"\n]* yymore();
|
||||
<QUOTE>\" BEGIN (0); return STRING;
|
||||
<QUOTE>\\(.|\n) yymore();
|
||||
<QUOTE>\n { error ("unterminated string");
|
||||
lineno++; eol_seen++; BEGIN(0); return EOL;
|
||||
}
|
||||
<QUOTE><<EOF>> error ("EOF in string"); return EOF;
|
||||
|
||||
<INITIAL,HEX>\\[ \t\r]*\n lineno++;
|
||||
<INITIAL,HEX>\n lineno++; eol_seen++; BEGIN(0); return EOL;
|
||||
|
||||
<HEX>[g-z][a-z]+ BEGIN (0); return ERR;
|
||||
<HEX>. BEGIN (0); return ERR;
|
||||
[a-z]+ return ERR;
|
||||
. return ERR;
|
||||
|
||||
<<EOF>> return EOF;
|
||||
|
||||
%%
|
||||
48
tools/midicomp-0.0.4/t2mf.h
Normal file
48
tools/midicomp-0.0.4/t2mf.h
Normal file
|
|
@ -0,0 +1,48 @@
|
|||
/* $Id: t2mf.h,v 1.2 1991/11/03 21:50:50 piet Rel $ */
|
||||
#include "midifile.h"
|
||||
#include <stdlib.h>
|
||||
|
||||
#define MTHD 256
|
||||
#define MTRK 257
|
||||
#define TRKEND 258
|
||||
|
||||
#define ON note_on
|
||||
#define OFF note_off
|
||||
#define POPR poly_aftertouch
|
||||
#define PAR control_change
|
||||
#define PB pitch_wheel
|
||||
#define PRCH program_chng
|
||||
#define CHPR channel_aftertouch
|
||||
#define SYSEX system_exclusive
|
||||
|
||||
#define ARB 259
|
||||
#define MINOR 260
|
||||
#define MAJOR 261
|
||||
|
||||
#define CH 262
|
||||
#define NOTE 263
|
||||
#define VAL 264
|
||||
#define CON 265
|
||||
#define PROG 266
|
||||
|
||||
#define INT 267
|
||||
#define STRING 268
|
||||
#define STRESC 269
|
||||
#define ERR 270
|
||||
#define NOTEVAL 271
|
||||
#define EOL 272
|
||||
|
||||
#define META 273
|
||||
#define SEQSPEC (META+1+sequencer_specific)
|
||||
#define TEXT (META+1+text_event)
|
||||
#define COPYRIGHT (META+1+copyright_notice)
|
||||
#define SEQNAME (META+1+sequence_name)
|
||||
#define INSTRNAME (META+1+instrument_name)
|
||||
#define LYRIC (META+1+lyric)
|
||||
#define MARKER (META+1+marker)
|
||||
#define CUE (META+1+cue_point)
|
||||
#define SEQNR (META+1+sequence_number)
|
||||
#define KEYSIG (META+1+key_signature)
|
||||
#define TEMPO (META+1+set_tempo)
|
||||
#define TIMESIG (META+1+time_signature)
|
||||
#define SMPTE (META+1+smpte_offset)
|
||||
1385
tools/midicomp-0.0.4/t2mflex.c
Normal file
1385
tools/midicomp-0.0.4/t2mflex.c
Normal file
File diff suppressed because it is too large
Load Diff
39
tools/midicomp-0.0.4/yyread.c
Normal file
39
tools/midicomp-0.0.4/yyread.c
Normal file
|
|
@ -0,0 +1,39 @@
|
|||
/* $Id: yyread.c,v 1.2 1991/11/03 21:53:20 piet Rel $ */
|
||||
/* sozobon version */
|
||||
|
||||
#include <memory.h>
|
||||
#include <string.h>
|
||||
|
||||
/*
|
||||
* read, ignoring CR's
|
||||
*
|
||||
* ++jrb
|
||||
*/
|
||||
int _yyread(fd, buf, size)
|
||||
int fd; char *buf; int size;
|
||||
{
|
||||
int count = read(fd, buf, size);
|
||||
int done = 0, i;
|
||||
|
||||
if(count <= 0)
|
||||
return count;
|
||||
|
||||
do{
|
||||
for(i = done; i < (done+count); i++)
|
||||
{
|
||||
if(buf[i] == '\r')
|
||||
{
|
||||
if(i < done + count - 1)
|
||||
bcopy(&buf[i+1], &buf[i], (count -1 - (i - done)));
|
||||
count -= 1;
|
||||
}
|
||||
}
|
||||
done += count;
|
||||
if(done == size)
|
||||
return done;
|
||||
count = read(fd, &buf[done], (size - done));
|
||||
} while(count > 0);
|
||||
|
||||
return done;
|
||||
}
|
||||
|
||||
Loading…
Reference in New Issue
Block a user