home *** CD-ROM | disk | FTP | other *** search
/ ftp.ee.lbl.gov / 2014.05.ftp.ee.lbl.gov.tar / ftp.ee.lbl.gov / bmd-1.0beta.tar.Z / bmd-1.0beta.tar / bmd-1.0beta / app / midifile / mfstrings.c < prev    next >
C/C++ Source or Header  |  1989-03-07  |  544b  |  38 lines
  1. /* This program, when compiled with the midifile(3) library, will */
  2. /* print only the text messages in a standard MIDI file. */
  3.  
  4. #include <stdio.h>
  5. #include <ctype.h>
  6. #include "midifile.h"
  7.  
  8. FILE *F;
  9.  
  10. mygetc() { return(getc(F)); }
  11.  
  12. mytext(type,leng,msg)
  13. char *msg;
  14. {
  15.     char *p;
  16.     char *ep = msg + leng;
  17.  
  18.     for ( p=msg; p<ep ; p++ )
  19.         putchar( isprint(*p) ? *p : '?' );
  20.     putchar('\n');
  21. }
  22.  
  23. main(argc,argv)
  24. char **argv;
  25. {
  26.     if ( argc > 1 )
  27.         F = fopen(argv[1],"r");
  28.     else
  29.         F = stdin;
  30.  
  31.     Mf_getc = mygetc;
  32.     Mf_text = mytext;
  33.  
  34.     midifile();
  35.  
  36.     exit(0);
  37. }
  38.