mirror of
https://github.com/sshlien/abcmidi.git
synced 2025-12-06 06:55:06 +00:00
abcMIDI-2020.07.06.zip
This commit is contained in:
Seymour Shlien
291
mftext.c
Normal file
291
mftext.c
Normal file
@@ -0,0 +1,291 @@
|
||||
/*
|
||||
* mftext
|
||||
*
|
||||
* Convert a MIDI file to verbose text.
|
||||
*
|
||||
* modified for portability 22/6/98 - error checking on file open failure
|
||||
* removed.
|
||||
*/
|
||||
|
||||
#include <stdio.h>
|
||||
#include <stdlib.h>
|
||||
#ifdef ANSILIBS
|
||||
#include <ctype.h>
|
||||
#endif
|
||||
#include "midifile.h"
|
||||
|
||||
void initfuncs();
|
||||
void midifile();
|
||||
|
||||
static FILE *F;
|
||||
int SECONDS; /* global that tells whether to display seconds or ticks */
|
||||
int division; /* from the file header */
|
||||
long tempo = 500000; /* the default tempo is 120 beats/minute */
|
||||
|
||||
int filegetc()
|
||||
{
|
||||
return(getc(F));
|
||||
}
|
||||
|
||||
/* for crack */
|
||||
extern int arg_index;
|
||||
|
||||
int main(argc,argv)
|
||||
int argc;
|
||||
char **argv;
|
||||
{
|
||||
FILE *efopen();
|
||||
char *ch;
|
||||
char *crack();
|
||||
|
||||
SECONDS = 0;
|
||||
|
||||
while((ch = crack(argc,argv,"s",0)) != NULL){
|
||||
switch(*ch){
|
||||
case 's' : SECONDS = 1; break;
|
||||
}
|
||||
}
|
||||
|
||||
if ((argc < 2 && !SECONDS) || (argc < 3 && SECONDS))
|
||||
F = stdin;
|
||||
else
|
||||
F = efopen(argv[arg_index],"rb");
|
||||
|
||||
initfuncs();
|
||||
Mf_getc = filegetc;
|
||||
midifile();
|
||||
fclose(F);
|
||||
exit(0);
|
||||
}
|
||||
|
||||
FILE *
|
||||
efopen(name,mode)
|
||||
char *name;
|
||||
char *mode;
|
||||
{
|
||||
FILE *f;
|
||||
|
||||
if ( (f=fopen(name,mode)) == NULL ) {
|
||||
fprintf(stderr,"Error - Cannot open file %s\n",name);
|
||||
exit(0);
|
||||
}
|
||||
return(f);
|
||||
}
|
||||
|
||||
void error(s)
|
||||
char *s;
|
||||
{
|
||||
fprintf(stderr,"Error: %s\n",s);
|
||||
}
|
||||
|
||||
void prtime()
|
||||
{
|
||||
if(SECONDS)
|
||||
printf("Time=%f ",mf_ticks2sec(Mf_currtime,division,tempo));
|
||||
else
|
||||
printf("Time=%ld ",Mf_currtime);
|
||||
}
|
||||
|
||||
void txt_header(format,ntrks,ldivision)
|
||||
int format, ntrks, ldivision;
|
||||
{
|
||||
division = ldivision;
|
||||
printf("Header format=%d ntrks=%d division=%d\n",format,ntrks,division);
|
||||
}
|
||||
|
||||
void txt_trackstart()
|
||||
{
|
||||
printf("Track start\n");
|
||||
}
|
||||
|
||||
void txt_trackend()
|
||||
{
|
||||
printf("Track end\n");
|
||||
}
|
||||
|
||||
void txt_noteon(chan,pitch,vol)
|
||||
int chan, pitch, vol;
|
||||
{
|
||||
prtime();
|
||||
printf("Note on, chan=%d pitch=%d vol=%d\n",chan+1,pitch,vol);
|
||||
}
|
||||
|
||||
void txt_noteoff(chan,pitch,vol)
|
||||
int chan, pitch, vol;
|
||||
{
|
||||
prtime();
|
||||
printf("Note off, chan=%d pitch=%d vol=%d\n",chan+1,pitch,vol);
|
||||
}
|
||||
|
||||
void txt_pressure(chan,pitch,press)
|
||||
int chan, pitch,press;
|
||||
{
|
||||
prtime();
|
||||
printf("Pressure, chan=%d pitch=%d press=%d\n",chan+1,pitch,press);
|
||||
}
|
||||
|
||||
void txt_parameter(chan,control,value)
|
||||
int chan, control, value;
|
||||
{
|
||||
prtime();
|
||||
printf("Parameter, chan=%d c1=%d c2=%d\n",chan+1,control,value);
|
||||
}
|
||||
|
||||
|
||||
/* [SS] 2017-11-16 submitted by Jonathan Hough (msb,lsb interchanged) */
|
||||
void txt_pitchbend(chan,lsb,msb)
|
||||
int chan, msb, lsb;
|
||||
{
|
||||
prtime();
|
||||
printf("Pitchbend, chan=%d lsb=%d msb=%d\n",chan+1,msb,lsb);
|
||||
}
|
||||
|
||||
void txt_program(chan,program)
|
||||
int chan, program;
|
||||
{
|
||||
prtime();
|
||||
printf("Program, chan=%d program=%d\n",chan+1,program);
|
||||
}
|
||||
|
||||
void txt_chanpressure(chan,press)
|
||||
int chan, press;
|
||||
{
|
||||
prtime();
|
||||
printf("Channel pressure, chan=%d pressure=%d\n",chan+1,press);
|
||||
}
|
||||
|
||||
void txt_sysex(leng,mess)
|
||||
int leng;
|
||||
char *mess;
|
||||
{
|
||||
prtime();
|
||||
printf("Sysex, leng=%d\n",leng);
|
||||
}
|
||||
|
||||
void txt_metamisc(type,leng,mess)
|
||||
int type, leng;
|
||||
char *mess;
|
||||
{
|
||||
prtime();
|
||||
printf("Meta event, unrecognized, type=0x%02x leng=%d\n",type,leng);
|
||||
}
|
||||
|
||||
void txt_metaspecial(type,leng,mess)
|
||||
int type, leng;
|
||||
char *mess;
|
||||
{
|
||||
prtime();
|
||||
printf("Meta event, sequencer-specific, type=0x%02x leng=%d\n",type,leng);
|
||||
}
|
||||
|
||||
void txt_metatext(type,leng,mess)
|
||||
int type, leng;
|
||||
char *mess;
|
||||
{
|
||||
static char *ttype[] = {
|
||||
NULL,
|
||||
"Text Event", /* type=0x01 */
|
||||
"Copyright Notice", /* type=0x02 */
|
||||
"Sequence/Track Name",
|
||||
"Instrument Name", /* ... */
|
||||
"Lyric",
|
||||
"Marker",
|
||||
"Cue Point", /* type=0x07 */
|
||||
"Unrecognized"
|
||||
};
|
||||
int unrecognized = (sizeof(ttype)/sizeof(char *)) - 1;
|
||||
register int n, c;
|
||||
register char *p = mess;
|
||||
|
||||
if ( type < 1 || type > unrecognized )
|
||||
type = unrecognized;
|
||||
prtime();
|
||||
printf("Meta Text, type=0x%02x (%s) leng=%d\n",type,ttype[type],leng);
|
||||
printf(" Text = <");
|
||||
for ( n=0; n<leng; n++ ) {
|
||||
c = (*p++) & 0xff;
|
||||
printf( (isprint(c)||isspace(c)) ? "%c" : "\\0x%02x" , c);
|
||||
}
|
||||
printf(">\n");
|
||||
}
|
||||
|
||||
void txt_metaseq(num)
|
||||
int num;
|
||||
{
|
||||
prtime();
|
||||
printf("Meta event, sequence number = %d\n",num);
|
||||
}
|
||||
|
||||
void txt_metaeot()
|
||||
{
|
||||
prtime();
|
||||
printf("Meta event, end of track\n");
|
||||
}
|
||||
|
||||
void txt_keysig(sf,mi)
|
||||
int sf,mi;
|
||||
{
|
||||
prtime();
|
||||
printf("Key signature, sharp/flats=%d minor=%d\n",sf,mi);
|
||||
}
|
||||
|
||||
void txt_tempo(ltempo)
|
||||
long ltempo;
|
||||
{
|
||||
tempo = ltempo;
|
||||
prtime();
|
||||
printf("Tempo, microseconds-per-MIDI-quarter-note=%ld\n",tempo);
|
||||
}
|
||||
|
||||
void txt_timesig(nn,dd,cc,bb)
|
||||
int nn, dd, cc, bb;
|
||||
{
|
||||
int denom = 1;
|
||||
while ( dd-- > 0 )
|
||||
denom *= 2;
|
||||
prtime();
|
||||
printf("Time signature=%d/%d MIDI-clocks/click=%d 32nd-notes/24-MIDI-clocks=%d\n",
|
||||
nn,denom,cc,bb);
|
||||
}
|
||||
|
||||
void txt_smpte(hr,mn,se,fr,ff)
|
||||
int hr, mn, se, fr, ff;
|
||||
{
|
||||
prtime();
|
||||
printf("SMPTE, hour=%d minute=%d second=%d frame=%d fract-frame=%d\n",
|
||||
hr,mn,se,fr,ff);
|
||||
}
|
||||
|
||||
void txt_arbitrary(leng,mess)
|
||||
int leng; /* [SDE] 2020-06-03 */
|
||||
char *mess;
|
||||
{
|
||||
prtime();
|
||||
printf("Arbitrary bytes, leng=%d\n",leng);
|
||||
}
|
||||
|
||||
void initfuncs()
|
||||
{
|
||||
Mf_error = error;
|
||||
Mf_header = txt_header;
|
||||
Mf_trackstart = txt_trackstart;
|
||||
Mf_trackend = txt_trackend;
|
||||
Mf_noteon = txt_noteon;
|
||||
Mf_noteoff = txt_noteoff;
|
||||
Mf_pressure = txt_pressure;
|
||||
Mf_parameter = txt_parameter;
|
||||
Mf_pitchbend = txt_pitchbend;
|
||||
Mf_program = txt_program;
|
||||
Mf_chanpressure = txt_chanpressure;
|
||||
Mf_sysex = txt_sysex;
|
||||
Mf_metamisc = txt_metamisc;
|
||||
Mf_seqnum = txt_metaseq;
|
||||
Mf_eot = txt_metaeot;
|
||||
Mf_timesig = txt_timesig;
|
||||
Mf_smpte = txt_smpte;
|
||||
Mf_tempo = txt_tempo;
|
||||
Mf_keysig = txt_keysig;
|
||||
Mf_seqspecific = txt_metaspecial;
|
||||
Mf_text = txt_metatext;
|
||||
Mf_arbitrary = txt_arbitrary;
|
||||
}
|
||||
Reference in New Issue
Block a user