part01

speech signal process tools

X		set recno = `awk '{ print $2 }' ${tmpfile} | sort -u`
X		cat /dev/null > ${tmpfile}
Xgrepno:
X		foreach rec (${recno})
X			bm "${rec}" ${libfile} | awk 'NF>2' | \
X			grep "^#[${outsel}]" >> ${tmpfile}
X			echo "---------------------------" >> ${tmpfile}
X			end
X		less -pcu ${tmpfile}
X		endif
X	goto loop
X#---------------------------------------------------------------#
X#		add a new record to library file		#
X#---------------------------------------------------------------#
Xlibadd:
X	if ( "${user}" != "secrtary" && "${user}" != "chicca" && ${user} != "lew" ) then
Xerr:
X		echo -n '...Sorry, only secretary can update library info'
X		goto getret
X		breaksw
X		endif
X	if ( "${title}" == "" ) then
X		echo "...You can not add a record without title..."
X		sleep 1
X		goto loop
X		endif
X	@ rec = `tail -1 ${libfile} | awk '{print $2}'`
X	@ rec ++
X	set recno = "${rec}"
X	if ( $rec < 1000 ) set recno = "0${recno}"
X	if ( $rec < 100 ) set recno = "0${recno}"
X	if ( $rec < 10 ) set recno = "0${recno}"
X	cat >> ${libfile} << cat_eof
X
X#K ${recno}	${keyword}
X#A ${recno}	${author}
X#P ${recno}	${pub}
X#T ${recno}	${title}
X#N ${recno}	${bookid}
X#D ${recno}	${pdate}
X#S ${recno}	${size}
X#R ${recno}	`date`
Xcat_eof
X	echo "Record ${recno} has been added successfully"
X	sleep 1
X	goto loop
X#---------------------------------------------------------------#
X#	    show all new books since last check			#
X#---------------------------------------------------------------#
Xlibnew:
X	if ( ! -e ~/.gsgbook ) then
X		@ old = 0
X	else
X		@ old = `cat ~/.gsgbook`
X		endif
X	grep '^#T' ${libfile} | awk		\
X	'BEGIN			{ p = 0 }	\
X	 p == 1			{ print }	\
X	 $2 ~ /'"${old}"'/	{ p = 1 }' | less -pcu
X	tail -1 ${libfile} | awk '{ print $2 }' > ~/.gsgbook
X	goto loop
X#---------------------------------------------------------------#
X#	   display all possible keyword defined			#
X#---------------------------------------------------------------#
Xlibkeyword:
X	(echo "...Possible Keywords List in Library...";	\
X	 grep '^#K' ${libfile} | awk				\
X	 '{ for (i=3; i<=NF; i++) {				\
X		print $i;					\
X		}						\
X	  }') | sort -u | awk					\
X	'NR == 1 { print }					\
X	 NR > 1	{						\
X		printf "%-18s", $0;				\
X		if (++i % 4 == 0) printf "\n";			\
X		}						\
X	 END	{ if (i % 4 != 0) printf "\n"; }' | less -pcu
X	goto loop
X#---------------------------------------------------------------#
X#	    print previous located collection of data		#
X#---------------------------------------------------------------#
Xlibprint:
X	if ( -e ${tmpfile} && ! -z ${tmpfile} ) then
X		print ${tmpfile}
X	else
X		echo -n "Nothing to print"
Xgetret:
X		echo -n ", press RETURN to continue: "
X		set yon = "$<"
X		endif
X	goto loop
X#---------------------------------------------------------------#
X#      run vi on the library file (undocumented feature)	#
X#---------------------------------------------------------------#
Xlibvi:
X	vi ${libfile}
X	goto loop
X#---------------------------------------------------------------#
X#	   display usage guide for inexperience users		#
X#---------------------------------------------------------------#
Xlibhelp:
X	cat << cat_eof
Xadd	add a new record into library database, privilege required
Xnew	display what new books has arrived since last use
Xfind	search for proper information
Xhelp	display this usage guide
Xkeyword	show all current available keywords
Xprint	print the result from the last find command
Xquit	exit
X
XYou may enter search string in any of the fields (grep -i will be used
Xin each occassion). If you specify book numbers, all the other fields
Xwill be ignored.
X
XThe one character fields at the beginning of each field is output
Xselect, if it is 'y', it will be included in the output.
X
Xcat_eof
X	echo -n "End of help info"
X	goto getret
X#---------------------------------------------------------------#
X#		Clean up and exit here...			#
X#---------------------------------------------------------------#
Xend:
X	/bin/rm -f ${tmpfile}
X	unset fnames fname srcfile tmpfile
SHAR_EOF
if test 8749 -ne "`wc -c < 'Lib'`"
then
	echo shar: error transmitting "'Lib'" '(should have been 8749 characters)'
fi
chmod +x 'Lib'
fi # end of overwriting check
echo shar: extracting "'basic.h'" '(829 characters)'
if test -f 'basic.h'
then
	echo shar: will not over-write existing file "'basic.h'"
else
sed 's/^X//' << \SHAR_EOF > 'basic.h'
X#if	!defined (YES)
X#define	YES	1
X#endif
X
X#if	!defined (NO)
X#define	NO	0
X#endif
X
X#if	!defined (EOS)
X#define	EOS	'\0'
X#endif
X
X#if	!defined (TAB)
X#define	TAB	'\t'
X#endif
X
X#if	!defined (NULL)
X#define	NULL	0
X#endif
X
X#if	defined (CTRL)
X#undef	CTRL
X#endif
X#define	CTRL(x)	((x) & 0xbf)
X
X#define	LOW_GCHAR	' '
X#define	HIGH_GCHAR	'~'
X
X#ifdef	DEBUG
X#define	ENTER(name)	static char *rname = "name";			\
X			{						\
X			Level++;					\
X			fprintf (stderr, "%*s%s\n", -(Level*4), "-",	\
X				 rname);				\
X			fflush (stderr);				\
X			}
X#define	RETURN(x)	{Level--; return (x);}
X#define	EXIT		{Level--; return; }
X#else
X#define	ENTER(name)
X#define	RETURN		return
X#define	EXIT		return
X#endif
X
X#define	when		break;case
X#define	otherwise	break;default
X
X#ifndef	EXTERN
X#define	EXTERN	extern
X#endif
X
XEXTERN	int	Level;		/* level of function call debug */
SHAR_EOF
if test 829 -ne "`wc -c < 'basic.h'`"
then
	echo shar: error transmitting "'basic.h'" '(should have been 829 characters)'
fi
fi # end of overwriting check
echo shar: extracting "'form.h'" '(1383 characters)'
if test -f 'form.h'
then
	echo shar: will not over-write existing file "'form.h'"
else
sed 's/^X//' << \SHAR_EOF > 'form.h'
X/* Screen controls */
X 
X#define SCR_ERASE	0	/* clear screen			*/
X#define SCR_HOME	1	/* home the cursor		*/
X#define SCR_EEOL	2	/* erase to end of line		*/
X#define SCR_DEL		3	/* BS SPACE BS			*/
X#define SCR_SAVE	4	/* save cursor position		*/
X#define SCR_RESTORE	5	/* restore cursor position	*/
X#define SCR_REVERSE	6	/* reverse video mode		*/
X#define SCR_NORMAL	7	/* normal video mode		*/
X#define SCR_BACKSPACE	8	/* cursor left			*/
X#define SCR_KEYXMIT	9	/* enter keypad xmit mode	*/
X#define SCR_NOKEYXMIT	10	/* exit keypad xmit mode	*/
X 
X#define EF_OK	1		/* field is ok */
X#define EF_ERR	2		/* error on field */
X#define EF_BOF	3		/* start by placing cursor at beg of field */
X#define EF_EOF	4		/* start by placing cursor at end of field */
X#define EF_FILL 5		/* fill rest of field */
X 
X/* update field options */
X 
X#define UF_MONEY	1	/* money format: dollar.cents */
X#define UF_NUMBER	2	/* number */
X#define UF_STRING	3	/* string to display */
X#define UF_TIME		4	/* current time - HH:MM */
X#define UF_DATE		5	/* today's date - MM/DD/YY */
X
X#define SCRLINE		24	/* number of lines on screen */
X#define SCRCOL		80	/* number of columns on screen */
X#define MAXVNAME	500	/* # of chars in variable name pool */
X#define MAXFNAME	80	/* # of chars allowed in filename */
X 
X#define	BOURNE		1	/* bourne shell output */
X#define	CSH		2	/* C shell output */
X#define	PERL		3	/* perl script output */
SHAR_EOF
if test 1383 -ne "`wc -c < 'form.h'`"
then
	echo shar: error transmitting "'form.h'" '(should have been 1383 characters)'
fi
fi # end of overwriting check
echo shar: extracting "'field.h'" '(665 characters)'
if test -f 'field.h'
then
	echo shar: will not over-write existing file "'field.h'"
else
sed 's/^X//' << \SHAR_EOF > 'field.h'
X#define MAXFIELD	200
X
Xstruct	field	{
X	unsigned char	f_line;		/* line number (1-24) */
X	unsigned char	f_col;		/* column number (1-80) */
X	unsigned char	f_off;		/* offset from beg of line */
X	unsigned char	f_len;		/* field size (bytes) */
X	unsigned	f_attr;		/* attributes */
X#define	FA_AUTOTAB	0x01		/* move to next field at eof */
X#define	FA_SELECTION	0x02		/* selection field */
X#define	FA_BLOCK	0x04		/* block type */
X#define	FA_NUMERIC	0x08		/* nuermic only field */
X	char		**f_sel;	/* ptr to selection array */
X	char		**f_help;	/* ptr to help message array */
X	unsigned char	f_sno;		/* current selection index */
X	char		*f_var;		/* variable to set at end */
X	};
SHAR_EOF
if test 665 -ne "`wc -c < 'field.h'`"
then
	echo shar: error transmitting "'field.h'" '(should have been 665 characters)'
fi
fi # end of overwriting check
echo shar: extracting "'term.h'" '(285 characters)'
if test -f 'term.h'
then
	echo shar: will not over-write existing file "'term.h'"
else
sed 's/^X//' << \SHAR_EOF > 'term.h'
X#define	BC	0
X#define	CM	1
X#define	CL	2
X#define	CD	3
X#define	CE	4
X#define	HO	5
X#define	KS	6
X#define	KE	7
X#define	KU	8
X#define	KD	9
X#define	KL	10
X#define	KR	11
X#define	MD	12
X#define	ME	13
X#define	RC	14
X#define	SC	15
X#define	SO	16
X#define	SE	17
X#define	US	18
X#define	UE	19
X#define	BAD	20
SHAR_EOF
if test 285 -ne "`wc -c < 'term.h'`"
then
	echo shar: error transmitting "'term.h'" '(should have been 285 characters)'
fi
fi # end of overwriting check
echo shar: extracting "'Makefile'" '(3543 characters)'
if test -f 'Makefile'
then
	echo shar: will not over-write existing file "'Makefile'"
else
sed 's/^X//' << \SHAR_EOF > 'Makefile'
X###############################################################################
X#
X#	Copyright (C)   Paul Lew, 1988, All rights reserved
X#
X#	sccsid = "%W% %G%"
X#
X#	File Name:	Makefile
X#
X#	Author:         Paul Lew
X#	Creation Date:  05/07/86  05:06 PM
X#	Last update:	02/07/88  10:29 PM  (Edition: 25)
X#
X#	Function:	Makefile for shell form editor
X#
X#	Update History:
X#	     Date		Modification Description		By
X#	   --------	-----------------------------------------------	---
X#	   05/07/86	Initial version					Lew
X#	   08/01/87	Added field.h, split shform.c into load.c,	Lew
X#			option.c, field.c, and form.c			Lew
X#	   01/11/88	Added field.h (was missing)			Lew
X#	   01/13/88	Added summary.c					Lew
X#	   01/14/88	Added make zoo					Lew
X#	   01/28/88	Added make shar					Lew
X#	   02/07/88	Added Makefile to shar list (was missing)	Lew
X#	   02/07/88	Added COPYRIGHT					Lew
X#
X###############################################################################
XTITLE = sf
X
XMODULE	= sf
XOBJECTS	= sf.o form.o load.o field.o selection.o keyword.o	\
X	  option.o msg.o term.o io.o summary.o
XFILES	= sf.c form.c load.c field.c selection.c keyword.c	\
X	  option.c msg.c term.c io.c summary.c
XEXAMPLES= Print Stty Lib
XINFO	= sf.1 README MANIFEST COPYRIGHT TODO
XLIBS	= /gsg/lew/c/getopt.o
XLIBSRC	=
XCFLAGS	= -n -gx
XLIBRARY	= -ltermcap
XINCLUDES= basic.h form.h field.h term.h
XEDITION	= 1
X#------------ The remainder of this makefile is module independent -------#
X
X.SUFFIXES: .rel .obj .r .o .c
X
XCFLAG2	=
XCREF	= /gsg/lew/bin/cref
XDEPEND	= /gsg/lew/sh/depend
X
X#------------- Make executable -------------------------------------------#
X
X$(MODULE):	$(OBJECTS) $(LIBS)
X		$(CC) $(CFLAGS) -o $(MODULE) $(OBJECTS) $(LIBS) $(LIBRARY)
X
X.c.o:
X		$(CC) $(CFLAGS) $(CFLAG2) -c $*.c
X
X#------------- Utilities -------------------------------------------------#
X
Xutil:		lint TAGS listing depend
X
Xlint:		$(FILES)
X		lint $(FILES) > lint
X
XTAGS:		$(INCLUDES) $(FILES)
X		etags $(INCLUDES) $(FILES)
X
Xlisting:	$(INCLUDES) $(FILES)
X		-$(CREF) $(INCLUDES) $(FILES) > listing
X
Xprint:		listing xxx
Xxxx:
X		lpr -J '$(TITLE)' listing
X
Xdepend:		$(FILES)
X		@ touch depend
X		@ $(DEPEND) $(FILES)
X
Xname:
X		@ echo $(INCLUDES) $(FILES)
X
Xzoo:
X		@ /bin/rm -f sf.zoo
X		zoo a sf RCS/* TAGS ID
X		@ chmod a-w sf.zoo; ls -l sf.zoo
X
Xshar:
X		echo '----shar.01-----' > MANIFEST
X		vitals $(INFO) $(EXAMPLES) $(INCLUDES) Makefile >> MANIFEST
X		echo '----shar.02-----' >> MANIFEST
X		vitals $(FILES) >> MANIFEST
X		shar -a $(INFO) $(EXAMPLES) $(INCLUDES) Makefile > shar.01
X		shar -a $(FILES) > shar.02
X
Xhelp:
X		@ echo "make lint     -- generate lint file: lint"
X		@ echo "make TAGS     -- generate tag file:  TAGS"
X		@ echo "make listing  -- generate cross ref listing:  listing"
X		@ echo "make print    -- print out listing:  listing"
X		@ echo "make depend   -- update makefile dependency rule"
X		@ echo "make util     -- do all above"
X		@ echo "make name     -- output source name list"
X		@ echo "make zoo      -- recreate sf.zoo archive"
X		@ echo "make shar     -- create shell archive files"
X#-------------------------------------------------------------------------#
X# DO NOT DELETE THIS LINE, auto-generated dependency rules follow:
Xfield.o:		basic.h field.h form.h term.h
Xform.o:		basic.h field.h form.h term.h
Xkeyword.o:	basic.h
Xload.o:		basic.h field.h form.h
Xmsg.o:		basic.h form.h
Xoption.o:	basic.h form.h
Xselection.o:	basic.h field.h form.h term.h
Xsf.o:		basic.h form.h
Xsummary.o:	basic.h form.h
Xterm.o:		form.h term.h
X#
X# Rules made at:		Thu Jan 28 20:55:24 EST 1988  by lew
X# DEPENDENCIES END HERE.
SHAR_EOF
if test 3543 -ne "`wc -c < 'Makefile'`"
then
	echo shar: error transmitting "'Makefile'" '(should have been 3543 characters)'
fi
fi # end of overwriting check
#	End of shell archive
exit 0

-- 
Please send comp.sources.unix-related mail to [e-mail].