part01

speech signal process tools

echo shar: 26 control characters may be missing from "'Print'"
if test 2591 -ne "`wc -c < 'Print'`"
then
	echo shar: error transmitting "'Print'" '(should have been 2591 characters)'
fi
chmod +x 'Print'
fi # end of overwriting check
echo shar: extracting "'Stty'" '(10025 characters)'
if test -f 'Stty'
then
	echo shar: will not over-write existing file "'Stty'"
else
sed 's/^X//' << \SHAR_EOF > 'Stty'
X#! /bin/sh
X#
X#-	Stty - stty with form interface
X#-
X#-	This program  allows user to view  all the terminal parameters
X#-	and change them by form.  Help messages has been added to each
X#-	field to make change parameter easier.
X#
X#	Author:		Paul Lew, General Systems Group, Salem, NH
X#	Created at:	01/09/88  07:40 PM
X#	Last update:	01/12/88  10:34 PM  (Edition: 79)
X#
X#---------------------------------------------------------------#
X#     Get current tty setting and store as shell variables	#
X#---------------------------------------------------------------#
Xsttyfile="/tmp/stty$$"
Xtmpfile="/tmp/sttytmp$$"
Xtrap "trap '' 0 1 2 3 15;					\
X      /bin/rm -f $sttyfile $tmpfile;				\
X      exit" 0 1 2 3 15
Xstty everything 2> $sttyfile
Xtr -d ':()' < $sttyfile | awk \
X'BEGIN	{ q= 39; fmt = sprintf "%%s=%c%%s%c\n", q, q; }		\
X	NR == 1	{						\
X		printf fmt, "tt_tty",    $1;			\
X		printf fmt, "tt_speed",  $4;			\
X		printf fmt, "tt_row",    $6;			\
X		printf fmt, "tt_column", $8;			\
X		}						\
X	2 <= NR && NR <= 5 {					\
X		for (i=1; i<=NF; i++) {				\
X			if (substr($(i),1,1)=="-") {		\
X				yon = "No";			\
X				name = substr($(i),2,99);	\
X				}				\
X			else	{				\
X				yon = "Yes";			\
X				name = $(i);			\
X				}				\
X			print "tt_" name "=" yon;		\
X			}					\
X		}						\
X	NR == 7 {						\
X		printf fmt, "tt_erase",  $1;			\
X		printf fmt, "tt_kill",   $2;			\
X		printf fmt, "tt_werase", $3;			\
X		printf fmt, "tt_rprnt",  $4;			\
X		printf fmt, "tt_flush",  $5;			\
X		printf fmt, "tt_lnext",  $6;			\
X		n = split ($7, part, "/");			\
X		printf fmt, "tt_susp",   part[1];		\
X		printf fmt, "tt_suspo",  part[2];		\
X		printf fmt, "tt_intr",   $8;			\
X		printf fmt, "tt_quit",   $9;			\
X		n = split ($10, part, "/");			\
X		printf fmt, "tt_stop",   part[1];		\
X		printf fmt, "tt_start",  part[2];		\
X		printf fmt, "tt_eof",    $11;			\
X		}' > $tmpfile
X#---------------------------------------------------------------#
X#	     Prepare variable for sf to display			#
X#---------------------------------------------------------------#
X. $tmpfile
X/bin/rm -f $tmpfile
Xif [ $tt_raw = "Yes" ]; then tt_mode="raw"
Xelif [ $tt_cbreak = "Yes" ]; then tt_mode="cbreak"
Xelse tt_mode="cooked"
Xfi
Xif [ $tt_nl = "Yes" ]; then tt_nl="No"; else tt_nl="Yes"; fi
Xif [ $tt_litout = "Yes" ]; then tt_litout="No"; else tt_litout="Yes"; fi
Xif [ $tt_nohang = "Yes" ]; then tt_nohang="No"; else tt_nohang="Yes"; fi
X#---------------------------------------------------------------#
X#	   Invoke sf to allow user make changes			#
X#---------------------------------------------------------------#
Xs=s=/Yes/No
Xsf -o $tmpfile -bmu << sf_eof
X	  ***** Terminal Setting for BSD 4.3 System *****
X
Xtty discipline: ~~~~	speed: ~~~~~	Rows: ~~~	Columns: ~~~
X
XAccept even parity input: ~~~   Mode: ~~~~~~      Treat CR as NL: ~~~
XAccept odd  parity input: ~~~   Input Echo: ~~~   Map upper to lower: ~~~
XFlow control enable: ~~~        Print Tabs: ~~~
X
XNew TTY Discipline Specific:
X    Echo BS on erase char: ~~~    Wipe out erased char: ~~~   
X    Echo CTRL char as ^x: ~~~     Wipe out erased line: ~~~
X    Background job stop if output: ~~~   Convert tilde: ~~~  Flush output: ~~~
X    Start/Stop output on carrier transition: ~~~    Output processing: ~~~
X    Pass 8th bit: ~~~   Hang up if carrier drop: ~~~
X    Input Pending: ~~~  only XON resume output: ~~~
X
XTerminal characters:
X    char erase: ~~    reprint current line: ~~   literal next char: ~~
X    word erase: ~~    flush output: ~~
X    line erase: ~~    end of file: ~~
X    interrupt:  ~~    suspend current job: ~~    stop host output (XOFF): ~~
X    quit:       ~~    suspend with output: ~~    start host output (XON): ~~
X
X.v=tt_discipline.d=new.s=/new/net/old.
X.h=Berkeley new tty driver.
X.h=net discipline, for communication purpose.
X.h=old tty driver from V7 Unix.
X
X.v=tt_speed.d=$tt_speed.
X.s=/0/50/75/110/134/150/200/300/600/1200/1800/2400/4800/9600/exta/extb.
X.h=hang up phone line immdeidately.
X.h=50.h=75.h=110.h=134.h=150.h=200.h=300.h=600.h=1200.h=1800.h=2400.h=4800.
X.h=9600.h=exta (19200 on DH-11 board).h=extb (not implemented yet).
X
X.v=tt_row.d=$tt_row.v=tt_column.d=$tt_column.
X
X.v=tt_even.d=$tt_even.$s.
X.h=Strip parity bit for even parity input char.
X.h=Throw away even parity input char.
X
X.v=tt_mode.d=$tt_mode.s=/cooked/cbreak/raw.
X.h=Cooked mode - with input editing, end by newline.
X.h=Cbreak mode - return char as it typed except interrupt, flow control.
X.h=Raw mode - return every char as it typed.
X
X.v=tt_nl.d=$tt_nl.$s.
X.h=Allow CR for NL, and output CR-LF for CR or NL.
X.h=Accept only newline to end lines.
X
X.v=tt_odd.d=$tt_odd.$s.
X.h=Strip parity bit for odd parity input char.
X.h=Throw away odd parity input char.
X
X.v=tt_echo.d=$tt_echo.$s.
X.h=Echo back every character typed.
X.h=Do not echo characters, good for Emacs inferior shell.
X
X.v=tt_lcase.d=$tt_lcase.$s.
X.h=This is for terminal that do not have lowercase letter.
X.h=This is for modern day terminal.
X
X.v=tt_tandem.d=$tt_tandem.$s.
X.h=system sends out stop/start char when queue is near overflow/empty.
X.h=Application program have to handle XON/OFF.
X
X.v=tt_tabs.d=$tt_tabs.$s.
X.h=Preserve tabs when printing.
X.h=Replace tabs by spaces when printing (for terminal with no hardware tabs).
X
X.v=tt_crtbs.d=$tt_crtbs.$s.
X.h=Echo backspaces on erase characters, useful for CRT.
X.h=do not echo backspaces on erase characters, useful for hardcopy terminals.
X
X.v=tt_crterase.d=$tt_crterase.$s.
X.h=Wipe out erased characters with backspace-space-backspace.
X.h=Echo erased characters backwards within \\ and /.
X
X.v=tt_ctlecho.d=$tt_ctlecho.$s.
X.h=Delete will be ^?, print two BS following the EOT char (CTRL D).
X.h=CTRL char echo as themselves; in cooked mode EOT (CTRL-D) is not echoed.
X
X.v=tt_crtkill.d=$tt_crtkill.$s.
X.h=Wipe out input on like kill ala crterase.
X.h=Just echo line kill character and a newline on line kill.
X
X.v=tt_tostop.d=$tt_tostop.$s.
X.h=Background jobs stop if they attempt terminal output.
X.h=Output from background jobs to the terminal is allowed.
X
X.v=tt_tilde.d=$tt_tilde.$s.
X.h=Convert ~ to \` on output (for Hazeltine terminals).
X.h=Leave poor ~ char alone.
X
X.v=tt_flusho.d=$tt_flusho.$s.
X.h=Output is being discarded usually because user hit CTRL O.
X.h=Output is not being discarded.
X
X.v=tt_mdmbuf.d=$tt_mdmbuf.$s.
X.h=Start/stop output on carrier transitions.
X.h=Return error if write attempted after carrier drops.
X
X.v=tt_litout.d=$tt_litout.$s.
X.h=Do normal output processing, inserting delays, etc.
X.h=Send output characters without any processing.
X
X.v=tt_pass8.d=$tt_pass8.$s.
X.h=pass 8th bit.
X.h=strip off 8th bit.
X
X.v=tt_nohang.d=$tt_nohang.$s.
X.h=Send hangup signal to control process group when carrier drops.
X.h=Do not send hangup signal if carrier drops.
X
X.v=tt_pendin.d=$tt_pendin.$s.
X.h=Input is pending after a switch from cbreak to cooked.
X.h=Input is not pending.
X
X.v=tt_decctlq.d=$tt_decctlq.$s.
X.h=This is compatible with DEC vendor supplied systems.
X.h=After output is suspended, any char will restart it.
X
X.v=tt_erase.d=$tt_erase.v=tt_rprnt.d=$tt_rprnt.v=tt_lnext.d=$tt_lnext.
X.v=tt_werase.d=$tt_werase.v=tt_flush.d=$tt_flush.
X.v=tt_kill.d=$tt_kill.v=tt_eof.d=$tt_eof.
X.v=tt_intr.d=$tt_intr.v=tt_susp.d=$tt_susp.v=tt_stop.d=$tt_stop.
X.v=tt_quit.d=$tt_quit.v=tt_suspo.d=$tt_suspo.v=tt_start.d=$tt_start.
Xsf_eof
X#---------------------------------------------------------------#
X#		  Process variable returned			#
X#---------------------------------------------------------------#
X. $tmpfile
X/bin/rm -f $tmpfile $sttyfile
Xtt_even=`[ $tt_even = "Yes" ] || echo -`even
Xcase $tt_mode in
X	cooked)	tt_raw='-raw'; tt_cbreak='-cbreak';;
X	cbreak)	tt_raw='-raw'; tt_cbreak='cbreak';;
X	raw)	tt_raw='raw';  tt_cbreak='-cbreak';;
X	esac
Xtt_nl=`[ $tt_nl = "No" ] || echo -`nl
Xtt_odd=`[ $tt_odd = "Yes" ] || echo -`odd
Xtt_echo=`[ $tt_echo = "Yes" ] || echo -`echo
Xtt_lcase=`[ $tt_lcase = "Yes" ] || echo -`lcase
Xtt_tandem=`[ $tt_tandem = "Yes" ] || echo -`tandem
Xtt_tabs=`[ $tt_tabs = "Yes" ] || echo -`tabs
Xtt_crtbs=`[ $tt_crtbs = "Yes" ] || echo -`crtbs
Xtt_crterase=`[ $tt_crterase = "Yes" ] || echo -`crterase
Xtt_ctlecho=`[ $tt_ctlecho = "Yes" ] || echo -`ctlecho
Xtt_crtkill=`[ $tt_crtkill = "Yes" ] || echo -`crtkill
Xtt_tostop=`[ $tt_tostop = "Yes" ] || echo -`tostop
Xtt_tilde=`[ $tt_tilde = "Yes" ] || echo -`tilde
Xtt_flusho=`[ $tt_flusho = "Yes" ] || echo -`flusho
Xtt_mdmbuf=`[ $tt_mdmbuf = "Yes" ] || echo -`mdmbuf
Xtt_litout=`[ $tt_litout = "No" ] || echo -`litout
Xtt_pass8=`[ $tt_pass8 = "Yes" ] || echo -`pass8
Xtt_nohang=`[ $tt_nohang = "No" ] || echo -`nohang
Xtt_pendin=`[ $tt_pendin = "Yes" ] || echo -`pendin
Xtt_decctlq=`[ $tt_decctlq = "Yes" ] || echo -`decctlq
Xtt_noflsh=`[ $tt_noflsh = "Yes" ] || echo -`noflsh
X#---------------------------------------------------------------#
X#	Output stty command to file (or stdout if no arg)	#
X#---------------------------------------------------------------#
Xif [ "$1" = "" ]; then
X	sttyfile=/dev/tty
Xelse
X	sttyfile="$1"
X	fi
Xcat > $sttyfile << cat_eof
Xset noglob
Xstty $tt_discipline  speed $tt_speed				\\
X    $tt_even $tt_odd $tt_raw $tt_nl $tt_echo $tt_lcase		\\
X    $tt_tandem	$tt_tabs $tt_cbreak				\\
X    $tt_crtbs $tt_crterase $tt_crtkill $tt_ctlecho $tt_tostop	\\
X    $tt_tilde $tt_flusho $tt_mdmbuf $tt_litout $tt_pass8	\\
X    $tt_nohang $tt_pendin $tt_decctlq $tt_noflsh		\\
X    erase "$tt_erase"  rprnt "$tt_rprnt"  lnext "$tt_lnext"	\\
X    werase "$tt_werase"  flush "$tt_flush"			\\
X    kill "$tt_kill"  eof "$tt_eof"				\\
X    intr "$tt_intr"  susp "$tt_suspd"  stop "$tt_stop"		\\
X    quit "$tt_quit"  susp "$tt_suspd"  start "$tt_start"
Xunset noglob
Xcat_eof
X#
X# 1) new tty, speed 1200 baud, 24 rows, 80 columns
X# 2) even odd -raw -nl echo -lcase -tandem tabs -cbreak 
X# 3) crt: (crtbs crterase crtkill ctlecho) -tostop 
X# 4) -tilde -flusho -mdmbuf -litout -pass8 -nohang 
X# 5) -pendin decctlq -noflsh 
X# 6) erase  kill   werase rprnt  flush  lnext  susp   intr   quit   stop   eof
X# 7)  ^?    ^U     ^W     ^R     ^O     ^V     ^Z/^Y  ^C     ^\     ^S/^Q  ^D
X#      1     2      3      4      5      6      7      8      9      10    11
SHAR_EOF
if test 10025 -ne "`wc -c < 'Stty'`"
then
	echo shar: error transmitting "'Stty'" '(should have been 10025 characters)'
fi
chmod +x 'Stty'
fi # end of overwriting check
echo shar: extracting "'Lib'" '(8749 characters)'
if test -f 'Lib'
then
	echo shar: will not over-write existing file "'Lib'"
else
sed 's/^X//' << \SHAR_EOF > 'Lib'
X#! /bin/csh -f
X#
X#-	gsglib - GSG library on-line query
X#-
X#	Author:		Paul Lew, General Systems Group, Inc.
X#	Created at:	08/15/86  04:18 PM
X#	Last update:	01/26/88  12:31 PM  (Edition: 8)
X#
X#-	Usage:		gsglib <CR>
X#
X#---------------------------------------------------------------#
X#	      Display help if requested by user			#
X#---------------------------------------------------------------#
Xswitch ( "$1" )
X	case -H[xX]:
X		set echo; set verbose; shift
X		breaksw
X	case -H*:
X		show_help `which $0` $1
X		goto end
X	default:
X	endsw
X#---------------------------------------------------------------#
X#			Process Arguments			#
X#---------------------------------------------------------------#
Xset libfile = '/gsg/lew/dat/gsglib.dat'
Xset tmpfile = "/tmp/gsglib.$$"
Xunsetenv LESS
X#---------------------------------------------------------------#
X#	Display main menu and get user input (use sf)		#
X#---------------------------------------------------------------#
Xloop:
Xset srcfile = "/tmp/gsglib$$"
Xsf -o ${srcfile} -u << sf_eof
X	General Systems Group Library Directory
X
X     Operation: ~~~~~~~	[choice: find add new print keyword help quit]
X
X
X     Book number:   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
X     ~~~  Keyword:	  ~~~~~~~~~~~~~~~
X     ~~~  Author:	  ~~~~~~~~~~~~~~~~~~~~~~~~
X     ~~~  Title:	  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
X     ~~~  Date published: ~~~~~~~~~~~~~
X     ~~~  Publisher:	  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
X     ~~~  Book id:	  ~~~~~~~~~~~~~~~~~~~~~~~
X     ~~~  Number of pages:~~~~~
X
X     ^
X     +------ enter "y" to include in the output list
X
X	[Press TAB to move to next field, RETURN to execute]
X
X.v=opcode.s=/find/add/new/print/keyword/help/quit.
X.h=find out what books has the data we want.
X.h=add new books to library.
X.h=see what are the new books since last use.
X.h=print out previous output to printer.
X.h=display all the predefined keywords that are valid for keyword search field.
X.h=display help message about how to use this program.
X.h=quit, exit back to Unix.
X.v=bookno.
X.v=selkw.s=/No/Yes.v=keyword.
X.v=selau.s=/Yes/No.v=author.
X.v=selti.s=/Yes/No.v=title.
X.v=selpd.s=/Yes/No.v=pdate.
X.v=selpu.s=/Yes/No.v=pub.
X.v=selbi.s=/No/Yes.v=bookid.
X.v=selsz.s=/No/Yes.v=size.
Xsf_eof
X#---------------------------------------------------------------#
X#	Get symbol defined for the current process		#
X#---------------------------------------------------------------#
Xif ( ! -e ${srcfile} ) goto end
Xsource ${srcfile}
X/bin/rm -f ${srcfile}
X#---------------------------------------------------------------#
X#		    Execute user request			#
X#---------------------------------------------------------------#
X#echo "author=[${author}] output select=[${selau}]"
X#echo "keyword=[${keyword}] output select=[${selkw}]"
X#echo "title=[${title}] output select=[${selti}]"
X#echo "pdate=[${pdate}] output select=[${selpd}]"
X#echo "pub=[${pub}] output select=[${selpu}]"
X#echo "press return: "
X#set yon = "$<"
Xif ( "${bookno}" == "vi" ) then
X	goto libvi
X	endif
Xswitch ( "${opcode}" )
X	case "find":
X		goto libfind
X	case "add":
X		goto libadd
X	case "new":
X		goto libnew
X	case "print":
X		goto libprint
X	case "keyword":
X		goto libkeyword
X	case "help":
X		goto libhelp
X	case "quit":
X		goto end
X	default:
X		echo "Unknown command: ${opcode}"
X		sleep 2
X		goto loop
X		breaksw
X	endsw
X#---------------------------------------------------------------#
X#		add a new record to library file		#
X#---------------------------------------------------------------#
Xlibfind:
X	cat /dev/null > ${tmpfile}
X	set outsel
X	if ( "${selkw}" == "Yes" ) set outsel = "${outsel}K"
X	if ( "${selau}" == "Yes" ) set outsel = "${outsel}A"
X	if ( "${selti}" == "Yes" ) set outsel = "${outsel}T"
X	if ( "${selpd}" == "Yes" ) set outsel = "${outsel}D"
X	if ( "${selpu}" == "Yes" ) set outsel = "${outsel}P"
X	if ( "${selbi}" == "Yes" ) set outsel = "${outsel}N"
X	if ( "${selsz}" == "Yes" ) set outsel = "${outsel}S"
X	if ( "${outsel}" == "" ) then
X		echo -n "No output selection"
X		goto getret
X		endif
X	if ( "${bookno}" != "" ) then
X		set recno = (${bookno})
X		goto grepno
X		endif
X	if ( "${keyword}" != "" ) then
X		grep '^#K' ${libfile} | grep -i "${keyword}" >> ${tmpfile}
X		endif
X	if ( "${author}" != "" ) then
X		grep '^#A' ${libfile} | grep -i "${author}" >> ${tmpfile}
X		endif
X	if ( "${title}" != "" ) then
X		grep '^#T' ${libfile} | grep -i "${title}" >> ${tmpfile}
X		endif
X	if ( "${pdate}" != "" ) then
X		grep '^#D' ${libfile} | grep -i "${pdate}" >> ${tmpfile}
X		endif
X	if ( "${pub}" != "" ) then
X		grep '^#P' ${libfile} | grep -i "${pub}" >> ${tmpfile}
X		endif
X	if ( "${bookid}" != "" ) then
X		grep '^#N' ${libfile} | grep -i "${bookid}" >> ${tmpfile}
X		endif
X	if ( "${size}" != "" ) then
X		grep '^#S' ${libfile} | grep -i "${size}" >> ${tmpfile}
X		endif
X	if ( -z ${tmpfile} ) then
X		echo -n "No related information"
X		goto getret
X	else