Source Code 1994 March/Source_Code_CD-ROM_Walnut_Creek_March_1994.iso/compsrcs/misc/volume37/tclm/part05

Text File | 1993-05-15 | 5.2 KB | 203 lines

Newsgroups: comp.sources.misc
From: [e-mail] (Mike Durian)
Subject: v37i047:  tclm - TCL extensions for MIDI file manipulation, Part05/05
Message-ID: <[e-mail]>
X-Md4-Signature: 9b9585830a806617583fd32cabbaf6ae
Date: Mon, 10 May 1993 21:54:34 GMT
Approved: [e-mail]

Submitted-by: [e-mail] (Mike Durian)
Posting-number: Volume 37, Issue 47
Archive-name: tclm/part05
Environment: BSD/386, Esix SV4, SunOS, TCL 6.x

#! /bin/sh
# This is a shell archive.  Remove anything before this line, then feed it
# into a shell via "sh file" or similar.  To overwrite existing files,
# type "sh file -c".
# Contents:  tclm-1.0/doc/m1to0.1 tclm-1.0/doc/midifree.3
#   tclm-1.0/doc/minfo.1 tclm-1.0/doc/tclmversion.3
# Wrapped by kent@sparky on Mon May 10 09:43:33 1993
PATH=/bin:/usr/bin:/usr/ucb:/usr/local/bin:/usr/lbin ; export PATH
echo If this archive is complete, you will see the following message:
echo '          "shar: End of archive 5 (of 5)."'
if test -f 'tclm-1.0/doc/m1to0.1' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'tclm-1.0/doc/m1to0.1'\"
else
  echo shar: Extracting \"'tclm-1.0/doc/m1to0.1'\" \(490 characters\)
  sed "s/^X//" >'tclm-1.0/doc/m1to0.1' <<'END_OF_FILE'
X.Dt M1TO0 1
X.Os TCLM
X.Dd April 7, 1993
X.Sh NAME
X.Nm m1to0
X.Nd "a tclm script to convert a format 1 Standard MIDI File to a format 0"
X.Sh SYNOPSIS
X.Nm
X.Op infile Op outfile
X.Sh DESCRIPTION
X.Nm
Xis a
X.Xr tclm 1
Xscript that converts a format 1 Standard \s-1MIDI\s0 File
Xto a format 0 Standard \s-1MIDI\s0 File.
XIf no input or output files are specified, input
Xis read from
X.Em stdin
Xand output written to
X.Em stdout .
X.Sh SEE ALSO
X.Xr tclm 1
X.Sh AUTHORS
XMike Durian - [e-mail]
END_OF_FILE
  if test 490 -ne `wc -c <'tclm-1.0/doc/m1to0.1'`; then
    echo shar: \"'tclm-1.0/doc/m1to0.1'\" unpacked with wrong size!
  fi
  # end of 'tclm-1.0/doc/m1to0.1'
fi
if test -f 'tclm-1.0/doc/midifree.3' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'tclm-1.0/doc/midifree.3'\"
else
  echo shar: Extracting \"'tclm-1.0/doc/midifree.3'\" \(552 characters\)
  sed "s/^X//" >'tclm-1.0/doc/midifree.3' <<'END_OF_FILE'
X.Dt MIDIFREE 3
X.Os TCLM
X.Dd Jan 10, 1993
X.Sh NAME
X.Nm midifree
X.Nd "tclm command to free the space used by a Standard MIDI File"
X.Sh SYNOPSIS
X.Nm
X.Ar mfileId
X.Sh DESCRIPTION
X.Nm
Xis a
X.Xr tclm 3
Xcommand that
Xfrees the space used by a
XStandard
X.Tn MIDI
XFile.
XIt
Xtakes one argument that specifies
Xthe Standard
X.Tn MIDI
XFile.
XThis argument is a value returned by
X.Xr midiread 3
Xor
X.Xr midimake 3 .
X.Sh RETURN VALUES
X.Nm
Xdoes not return anything.
X.Sh SEE ALSO
X.Xr tclm 1 ,
X.Xr midiread 3 ,
X.Xr midimake 3
X.Sh AUTHORS
XMike Durian - [e-mail]
END_OF_FILE
  if test 552 -ne `wc -c <'tclm-1.0/doc/midifree.3'`; then
    echo shar: \"'tclm-1.0/doc/midifree.3'\" unpacked with wrong size!
  fi
  # end of 'tclm-1.0/doc/midifree.3'
fi
if test -f 'tclm-1.0/doc/minfo.1' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'tclm-1.0/doc/minfo.1'\"
else
  echo shar: Extracting \"'tclm-1.0/doc/minfo.1'\" \(577 characters\)
  sed "s/^X//" >'tclm-1.0/doc/minfo.1' <<'END_OF_FILE'
X.Dt MINFO 1
X.Os TCLM
X.Dd Jan 10, 1993
X.Sh NAME
X.Nm minfo
X.Nd "a tclm script to print a Standard MIDI File in human readable form"
X.Sh SYNOPSIS
X.Nm
X.Op file
X.Sh DESCRIPTION
X.Nm
Xis a
X.Xr tclm 1
Xscript that reads a Standard
X.Tn MIDI
XFile
Xand prints the data in human readable form.
XIf a file is not specified on the command
Xline
X.Nm
Xwill read from
X.Em stdin .
X.Pp
XThe
X.Xr infom 1
Xprogram provides the inverse to
Xthis ,
Xas it converts the output of
X.Nm
Xto the Standard
X.Tn MIDI
XFile format.
X.Sh SEE ALSO
X.Xr tclm 1 ,
X.Xr infom 1
X.Sh AUTHORS
XMike Durian - [e-mail]
END_OF_FILE
  if test 577 -ne `wc -c <'tclm-1.0/doc/minfo.1'`; then
    echo shar: \"'tclm-1.0/doc/minfo.1'\" unpacked with wrong size!
  fi
  # end of 'tclm-1.0/doc/minfo.1'
fi
if test -f 'tclm-1.0/doc/tclmversion.3' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'tclm-1.0/doc/tclmversion.3'\"
else
  echo shar: Extracting \"'tclm-1.0/doc/tclmversion.3'\" \(364 characters\)
  sed "s/^X//" >'tclm-1.0/doc/tclmversion.3' <<'END_OF_FILE'
X.Dt TCLMVERSION 3
X.Os TCLM
X.Dd April 12, 1993
X.Sh NAME
X.Nm tclmversion
X.Nd "tclm command that returns the version of tclm being used"
X.Sh SYNOPSIS
X.Nm
X.Sh DESCRIPTION
X.Nm
Xis a simple command that returns
Xthe version of
X.Xr tclm 1
Xbeing used.
X.Sh RETURN VALUES
XThe version of
X.Xr tclm 1 .
X.Sh SEE ALSO
X.Xr tclm 1
X.Sh AUTHORS
XMike Durian - [e-mail]
END_OF_FILE
  if test 364 -ne `wc -c <'tclm-1.0/doc/tclmversion.3'`; then
    echo shar: \"'tclm-1.0/doc/tclmversion.3'\" unpacked with wrong size!
  fi
  # end of 'tclm-1.0/doc/tclmversion.3'
fi
echo shar: End of archive 5 \(of 5\).
cp /dev/null ark5isdone
MISSING=""
for I in 1 2 3 4 5 ; do
    if test ! -f ark${I}isdone ; then
    MISSING="${MISSING} ${I}"
    fi
done
if test "${MISSING}" = "" ; then
    echo You have unpacked all 5 archives.
    rm -f ark[1-9]isdone
else
    echo You still must unpack the following archives:
    echo "        " ${MISSING}
fi
exit 0
exit 0 # Just in case...