home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD2.mdf / c / library / dos / sound / cmidilib / mfstring.c < prev    next >
Encoding:
C/C++ Source or Header  |  1991-08-23  |  448 b   |  35 lines
  1. #include <stdio.h>
  2. #include <ctype.h>
  3. #include "midifile.h"
  4.  
  5. FILE *F;
  6.  
  7. mygetc() { return(getc(F)); }
  8.  
  9. mytext(type,leng,msg)
  10. char *msg;
  11. {
  12.     char *p;
  13.     char *ep = msg + leng;
  14.  
  15.     for ( p=msg; p<ep ; p++ )
  16.         putchar( isprint(*p) ? *p : '?' );
  17.     putchar('\n');
  18. }
  19.  
  20. main(argc,argv)
  21. char **argv;
  22. {
  23.     if ( argc > 1 )
  24.         F = fopen(argv[1],"r");
  25.     else
  26.         F = stdin;
  27.  
  28.     Mf_getc = mygetc;
  29.     Mf_text = mytext;
  30.  
  31.     midifile();
  32.  
  33.     exit(0);
  34. }
  35.