part01

speech signal process tools

#! /bin/sh
# This is a shell archive, meaning:
# 1. Remove everything above the #! /bin/sh line.
# 2. Save the resulting text in a file.
# 3. Execute the file with /bin/sh (not csh) to create the files:
#	sf.1 README MANIFEST COPYRIGHT TODO Print Stty Lib basic.h
#	form.h field.h term.h Makefile
export PATH; PATH=/bin:$PATH
echo shar: extracting "'sf.1'" '(6409 characters)'
if test -f 'sf.1'
then
	echo shar: will not over-write existing file "'sf.1'"
else
sed 's/^X//' << \SHAR_EOF > 'sf.1'
X.TH sf 1-gsg "Ver 1.8  01/28/88"
X.SH NAME
Xsf - shell form (form editor to be used in shell scripts)
X.SH SYNOPSIS
X.B sf
X[-Hbhmpru] [-o outfile] [formfile]
X.IP -H
Xdisplay help message
X.IP -b
Xgenerate Bourne shell script, default is Csh script
X.IP -h
Xdisplay input field in highlight mode
X.IP -m
Xdisplay help message automatically for selection fields
X.IP -o
Xset output file to outfile (if not given, no output)
X.IP -p
Xgenerate perl script, default is Csh script
X.IP -r
Xdisplay input field in reverse video mode
X.IP -u
Xdisplay input field in underline mode
X.IP formfile
Xfile contains form layout (default to stdin)
X.SH DESCRIPTION
X.I Sf
Xis a tool that allows users write shell scripts with elegant form
Xediting user interface.  It reads an input form, displays it on the
Xscreen, and process all the data entry.  At the end of the form
Xfilling session, sf generates a file contains Csh set commands (or
XBourne shell commands if -b is specified, Perl script if -p is
Xspecified) which is intended to be 'sourced' by Csh (or "." if you use
XBourne shell, "eval" in perl).  After source operation, all the fields
Xin the form will be defined as shell variables and shell script can
Xcontinue after that.
X.PP
XThe form template may be stored in a file, but the easiest way to use
Xsf is to send it thru stdin so you do not have to have a script file
Xand a separate form file to do one job.
X.SH FORM DEFINITION
XInput field are specified by '~' characters in the form template,
Xtherefore, it it not possible to have ~ characters displayed on the
Xform.  If the 1st char of a line is a CTRL L (^L) character, it
Xindicates the end of form layout part and the start of field
Xdefinition part.  In field definition part, the 1st character on a
Xline will be used as the delimiter of each token on that line.
XCurrently only five tokens are valid:
X.IP "v="
Xthis means the following token string (until the next delimiter or
Xeol) will be used as the symbol to set at shell.
X.IP "d="
Xthis means the following token should be used as the default value to
Xstore in the form before form is displayed.
X.IP "s="
Xthis means the following string is the selection list with the first
Xcharacter as the delimiter, the ending delimiter is optional.
X.IP "h="
Xthis means the possible help message for selection field, multiple h=
Xis needed. For example, if you have a selection field:
X.IP
Xs=/find/add/delete/print/quit
X.IP
Xyou should specify the help message by:
X.sp
X.nf
X	h=find record based on user name
X	h=add a new record to database
X	h=delete current user from database
X	h=print current user record on printer
X	h=quit this program
X.fi
X.IP
Xwhere each h= entry refers to each of the fields in selection list.
X.IP "a="
Xthis specifies the possible attributes for the given field which
Xshould be supplied as parameters, the following characters will be
Xrecognized:
X.RS
X.IP "a"
Xautotab, when user typed a character at the last position, the field
Xediting will be terminated and cursor will move to next field on the
Xform.
X.IP "d"
Xdigits only field, any characters not '0' - '9' will not be accepted.
X.IP "b"
Xblock field, next/prev block command (ESC N, ESC P) will move cursor
Xto next field with block attribute set. This makes it easier for user
Xto move to the desired 'block' of fields. (not implemented yet)
X.RE
X.SH COMMANDS
XField editing commands are designed to be simple.  Sf understands
Xarrow keys so it can be used easily for non-technical personnel.
XField cursor movement keys are Emacs-like with one major difference:
Xthere is no insert mode (any volunteer?), character entered will
Xoverwrite existing data.  The following is a list of them:
X.IP "TAB"
XMove to next field on the screen. If there are more fields on the current
Xline, move to the first one to the right of current field.  If there is
Xno more fields, moves to the first field on the following lines.
X.IP "CTRL T"
XSame as TAB except moves backwards.
X.IP "RETURN or LINEFEED"
XTerminates the form edit session.
X.IP "up arrow or CTRL P"
XMoves to the closest fields on the previous lines, wrap around if no more.
X.IP "down arrow or CTRL N"
XSame as up arrow execpt moves downward instead.
X.IP "left arrow or CTRL B"
XMoves cursor left on character on the current field.
X.IP "right arrow or CTRL F"
XMoves cursor right on character on the current field.
X.IP "CTRL E"
XMoves cursor to the end of last non-blank characters on the current field.
X.IP "CTRL A"
XMoves cursor to the beginning of the current field.
X.IP "CTRL U"
XBlanks all the characters from cursor to beginning of the current field.
X.IP "CTRL K"
XBlanks all the characters from cursor to the end of the current field.
X.IP "CTRL W"
XBlanks the previous word before cusor on the current field.
X.IP "CTRL L"
XRedisplay the form.
X.IP "CTRL Z"
X(Or whatever your stop key is) Stop sf.
X.IP "CTRL C"
X(Or whatever your interrupt key is) Aborts the form editing session,
Xsf will display a message and terminate.
X.SH EXAMPLE
XThe following is an example of how to use it (C shell script):
X.PP
X.nf
X#! /bin/csh -f
Xset srcfile = "/tmp/form.$$"
Xsf -o ${srcfile} -u << sf_eof
X
X	     General Systems Group Fast Printer Spooler
X
X   File Name: ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
X
X	[-#] Number of copies:	~~~	      [-h] Burst Header Page: ~~~
X	[-m] Send mail on completion: ~~~     [-p] Format with pr:    ~~~
X
X	[-J] Job Name:		~~~~~~~~~~~~~
X	[-C] Class Name:	~~~~~~~~~~~~~
X	[-T] Title for pr:	~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
X
X		    Current Print Queue Status
X`lpq | head -5`
X
X	[Press TAB to move to next field, RETURN to execute]
X
X@v=fn@d=$*@
X@v=copy@d=1@a=d@v=burst@s=/Yes/No@
X@v=mail@s=/No/Yes@v=pr@s=/Yes/No@
X@v=job@d=$1@
X@v=class@d=`hostname`@
X@v=title@d=$1@
Xsf_eof
Xif ( ! -e ${srcfile} ) goto end
Xsource ${srcfile}
Xset copy burst pr mail tf cf jf
Xif ( "${copy}" != "1" ) set copy = "-#${copy}"
Xif ( "${burst}" != "Yes" ) set burst = "-h"
Xif ( "${pr}" == "Yes" ) set pr = "-p"
Xif ( "${mail}" == "Yes" ) set mail = "-m"
Xif ( "${title}" != "" ) set tf = "-T"
Xif ( "${class}" != "" ) set cf = "-C"
Xif ( "${job}" != "" ) set jf = "-J"
Xif ( "${fn}" != "" ) then
X	lpr ${copy} ${burst} ${pr} ${mail} ${tf} "${title}" \
X	${cf} "${class}" ${jf} "${job}" ${fn}
X	endif
X/bin/rm -f ${srcfile}
Xend:
X.nf
X.fi
X.SH AUTHOR
XPaul Lew
X.br
XGeneral Systems Group, Salem NH
X.SH BUGS
XThis version of sf comes from my previous work on IBM-PC for my friends and
Xit is rather primitive.  Form editor itself may be improved comments are
Xwelcome.
SHAR_EOF
if test 6409 -ne "`wc -c < 'sf.1'`"
then
	echo shar: error transmitting "'sf.1'" '(should have been 6409 characters)'
fi
fi # end of overwriting check
echo shar: extracting "'README'" '(1618 characters)'
if test -f 'README'
then
	echo shar: will not over-write existing file "'README'"
else
sed 's/^X//' << \SHAR_EOF > 'README'
XThis is sf (shell form) version 1.8.  Having used so many high quality
Xprograms from the net, this is my time to contribute.
X
XThis  program  was written to   augment the versatility  of  Unix user
Xinterface in shell level.   It does  only  one  thing -- form editing.
XShell script writer has to process the data afterwards.
X
XSome typical usage for this program are:
X
X    o interface for non-Unix user  to access system  resource. One can
X      easily write shell  scripts  display menus and forms  for novice
X      users.
X
X    o Something like bulletin board system might use sf interface.
X
X    o I personally  use   it   to interface  with those commands  with
X      zillions of  options  (e.g.,  stty, sa, admin,  cpio)  or  those
X      commands used infrequently   (e.g., print).  I  used capitalized
X      command  names for those  shell scripts with sf interface, e.g.,
X      Stty for stty, Admin for admin, etc.
X
X    o With  proper database  interface  program,  sf  may be  used for
X      system administrator to configure system, e.g.,  add new user to
X      system, configure I/O ports,  etc.   The recently posted  "perl"
X      might be a good candidate.
X
XTo build sf, simply type: "make".  Sf  has not been  tested on non-BSD
Xsystem,  some porting will  be   needed.  You might   want to run some
Xsample scripts supplied with the package to see how it works.  Enjoy!
X
XSample scripts:
X
X	Print	(csh)	interface to BSD 4.2 print command
X	Stty	(sh)	interface to BSD 4.3 stty command
X	Lib	(csh)	maintain on-line library index (need modification)
X
XMail bugs/comments to Paul Lew at {olivea,harvard,decvax}!gsg!lew
SHAR_EOF
if test 1618 -ne "`wc -c < 'README'`"
then
	echo shar: error transmitting "'README'" '(should have been 1618 characters)'
fi
fi # end of overwriting check
echo shar: extracting "'MANIFEST'" '(1002 characters)'
if test -f 'MANIFEST'
then
	echo shar: will not over-write existing file "'MANIFEST'"
else
sed 's/^X//' << \SHAR_EOF > 'MANIFEST'
X----shar.01-----
X 35fe 31508    185   1131   6409 sf.1
X 8d87  7256     37    245   1618 README
X ab4a   988      1      1     17 MANIFEST
X f02a 23081      6     48    284 COPYRIGHT
X e960 10353     24    145    894 TODO
X 6608 50247     95    334   2591 Print
X 927c  8727    266   1316  10025 Stty
X 9fe4 53398    282   1157   8749 Lib
X e24c 59953     52    121    829 basic.h
X 89f3 38278     36    257   1383 form.h
X b07c 51385     17    113    665 field.h
X cece 19140     21     63    285 term.h
X 867f 47573    121    477   3543 Makefile
X----shar.02-----
X 2f99 30654    124    581   4115 sf.c
X fd6c 10497    225    813   5898 form.c
X 0269   995    349   1238   8779 load.c
X 50ad 52985    259   1001   6631 field.c
X ddfa  7101    219    818   5773 selection.c
X 8c69 16251     49    168   1253 keyword.c
X e398 32766     50    171   1317 option.c
X 9695 13569    109    380   2999 msg.c
X 1a39 56277    242   1037   6575 term.c
X 5b38  5787    177    486   4106 io.c
X aa6e  1634     56    277   1880 summary.c
SHAR_EOF
if test 1002 -ne "`wc -c < 'MANIFEST'`"
then
	echo shar: error transmitting "'MANIFEST'" '(should have been 1002 characters)'
fi
fi # end of overwriting check
echo shar: extracting "'COPYRIGHT'" '(284 characters)'
if test -f 'COPYRIGHT'
then
	echo shar: will not over-write existing file "'COPYRIGHT'"
else
sed 's/^X//' << \SHAR_EOF > 'COPYRIGHT'
Xsf Version 1.8, Copyright (c) 1988, Paul Lew
X
X    You may copy this program (sf) in whole or in  part as long as you
X    don't try to make  money off it,   or pretend that  you  wrote it.
X    This   COPYRIGHT notice   should  always   be  included with   all
X    distributions of sf.
SHAR_EOF
if test 284 -ne "`wc -c < 'COPYRIGHT'`"
then
	echo shar: error transmitting "'COPYRIGHT'" '(should have been 284 characters)'
fi
fi # end of overwriting check
echo shar: extracting "'TODO'" '(894 characters)'
if test -f 'TODO'
then
	echo shar: will not over-write existing file "'TODO'"
else
sed 's/^X//' << \SHAR_EOF > 'TODO'
XWhat should be added:
X
X	* insert  mode in field  editing.  The  original  idea is that
X	  most of the fields should be short and  there  is no need to
X	  duplicate editor function in sf.  For novice user, they dont
X	  know fancy commands  anyway; for expert  user, sf is  useful
X	  only in  special  occasion.  This  delayed  the  addition of
X	  extra editing function  (insert mode, delete  word,  move by
X	  word, etc).
X
XWhat should not be added:
X
X	* Database function: I could not think of an  easy way so that
X	  sf can read  standard Unix database  files like /etc/passwd,
X	  /etc/ttys, any  idea?    It   will  be good   to have  these
X	  functions, but again, it violate Unix principle: "doing just
X	  one thing".
X
XSomething to think about:
X
X	* scroll region
X	* multiple forms, chaining to different form files.
X	* range checking.
X	* pipe field data to Unix program and put result back.
SHAR_EOF
if test 894 -ne "`wc -c < 'TODO'`"
then
	echo shar: error transmitting "'TODO'" '(should have been 894 characters)'
fi
fi # end of overwriting check
echo shar: extracting "'Print'" '(2591 characters)'
if test -f 'Print'
then
	echo shar: will not over-write existing file "'Print'"
else
sed 's/^X//' << \SHAR_EOF > 'Print'
X#! /bin/csh -f
X#
X#-	print -  print file(s) to line printer (with sf interface)
X#-
X#	Author:		Paul Lew, General Systems Group, Salem, NH
X#	Created at:	5/8/86
X#	Last update:	01/27/88  00:03 AM  (Edition: 11)
X#
X#-	Usage:	Print filenames <CR>
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#	  Display form to take input from the user		#
X#---------------------------------------------------------------#
Xset srcfile = "/tmp/form.$$"
Xsf -o ${srcfile} -u <<!
X
X	     General Systems Group Fast Printer Spooler
X
X   File Name: ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
X
X	[-#] Number of copies:	~~~	      [-h] Burst Header Page: ~~~
X	[-m] Send mail on completion: ~~~     [-p] Format with pr:    ~~~
X
X	[-J] Job Name:		~~~~~~~~~~~~~
X	[-C] Class Name:	~~~~~~~~~~~~~
X	[-T] Title for pr:	~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
X
X		    Current Print Queue Status
X`lpq | head -5`
X
X	[Press TAB to move to next field, RETURN to execute]
X
Xv=fnd=$*
Xv=copya=add=1v=bursts=/Yes/Noa=a
Xv=mails=/No/Yesa=av=prs=/Yes/Noa=a
Xv=jobd=$1
Xv=classd=`hostname`
Xv=titled=$1
X!
X#---------------------------------------------------------------#
X#	Execute script to set variables from form		#
X#---------------------------------------------------------------#
Xif ( ! -e ${srcfile} ) goto end
Xsource ${srcfile}
X#---------------------------------------------------------------#
X#	  Re-arrange variables before execution			#
X#---------------------------------------------------------------#
Xif ( "${copy}" != "1" ) then
X	set copy = "-#${copy}"
Xelse
X	set copy = ''
X	endif
X#
Xif ( "${burst}" != "Yes" ) then
X	set burst = "-h"
Xelse
X	set burst = ''
X	endif
X#
Xif ( "${pr}" == "Yes" ) then
X	set pr = "-p"
Xelse
X	set pr = ''
X	endif
X#
Xif ( "${mail}" == "Yes" ) then
X	set mail = "-m"
Xelse
X	set mail = ''
X	endif
X#
Xset tf; set cf; set jf
Xif ( "${title}" != "" ) set tf = "-T"
Xif ( "${class}" != "" ) set cf = "-C"
Xif ( "${job}" != "" ) set jf = "-J"
X#---------------------------------------------------------------#
X#		   Execute proper command ....			#
X#---------------------------------------------------------------#
Xif ( "${fn}" != "" ) then
X	lpr ${copy} ${burst} ${pr} ${mail} ${tf} "${title}" \
X	${cf} "${class}" ${jf} "${job}" ${fn}
X	endif
X/bin/rm -f ${srcfile}
Xend:
SHAR_EOF