Source Code 1994 March/Source_Code_CD-ROM_Walnut_Creek_March_1994.iso/compsrcs/misc/volume35/ss/part11

Text File | 1993-03-02 | 15.9 KB | 487 lines

Newsgroups: comp.sources.misc
From: [e-mail] (Art Mulder)
Subject: v35i097:  ss - Simple Spreadsheet program, v1.2b, Part11/11
Message-ID: <[e-mail]>
X-Md4-Signature: 309b364a6b7e50f7d1049067f9b9939e
Date: Mon, 22 Feb 1993 15:42:02 GMT
Approved: [e-mail]

Submitted-by: [e-mail] (Art Mulder)
Posting-number: Volume 35, Issue 97
Archive-name: ss/part11
Environment: curses, sunos, sysv, ultrix, sgi, dec, mips, sun

#! /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:  ss_12b/Bugs ss_12b/ctrl.h ss_12b/eres.sed
#   ss_12b/getinput.h ss_12b/menu_cell.h ss_12b/menu_edit.h
#   ss_12b/menu_file.h ss_12b/menu_macro.h ss_12b/menu_misc.h
#   ss_12b/menu_name.h ss_12b/menu_rowcol.h ss_12b/sres.sed
#   ss_12b/sunfkeys/xterm-sun.tc ss_12b/torev
# Wrapped by kent@sparky on Sat Feb 20 16:01:05 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 11 (of 11)."'
if test -f 'ss_12b/Bugs' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'ss_12b/Bugs'\"
else
  echo shar: Extracting \"'ss_12b/Bugs'\" \(467 characters\)
  sed "s/^X//" >'ss_12b/Bugs' <<'END_OF_FILE'
X=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
XBUGS:
X
X-> I wrote this with System V curses, I haven't really tried it out
X   in a pure BSD-ish environment.
X
X-> Control-O's (^O) seem to get eaten by the system before
X   the program can get hold of them.  Therefore the
X   ^O (toggle overwrite mode) command in getinput.c
X   does not work.  What can be done about this?
X
X=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
END_OF_FILE
  if test 467 -ne `wc -c <'ss_12b/Bugs'`; then
    echo shar: \"'ss_12b/Bugs'\" unpacked with wrong size!
  fi
  # end of 'ss_12b/Bugs'
fi
if test -f 'ss_12b/ctrl.h' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'ss_12b/ctrl.h'\"
else
  echo shar: Extracting \"'ss_12b/ctrl.h'\" \(717 characters\)
  sed "s/^X//" >'ss_12b/ctrl.h' <<'END_OF_FILE'
X/**********************************************************************
X* %W% %G%
X*
X* ss     :    A SpreadSheet Program
X*
X* Art's Spreadsheet program.          Art Mulder ( [e-mail] )
X* University of Alberta, Department of Computing Science.
X***********************************************************************
X* ctrl.c header file
X**********************************************************************/
X
X#ifndef ctrl_h
X#   define ctrl_h
X
X/*
X * Function Prototypes
X */
X    int ProcessCursorCommands();
X    void ProcessControlCommands();
X
X#endif /* ctrl_h */
X
X/**********************************************************************
X*    End
X**********************************************************************/
END_OF_FILE
  if test 717 -ne `wc -c <'ss_12b/ctrl.h'`; then
    echo shar: \"'ss_12b/ctrl.h'\" unpacked with wrong size!
  fi
  # end of 'ss_12b/ctrl.h'
fi
if test -f 'ss_12b/eres.sed' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'ss_12b/eres.sed'\"
else
  echo shar: Extracting \"'ss_12b/eres.sed'\" \(50 characters\)
  sed "s/^X//" >'ss_12b/eres.sed' <<'END_OF_FILE'
X/%token.*K_/!d
X/%token.*K_\(.*\)/s//    "\1",    K_\1,/
END_OF_FILE
  if test 50 -ne `wc -c <'ss_12b/eres.sed'`; then
    echo shar: \"'ss_12b/eres.sed'\" unpacked with wrong size!
  fi
  # end of 'ss_12b/eres.sed'
fi
if test -f 'ss_12b/getinput.h' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'ss_12b/getinput.h'\"
else
  echo shar: Extracting \"'ss_12b/getinput.h'\" \(741 characters\)
  sed "s/^X//" >'ss_12b/getinput.h' <<'END_OF_FILE'
X/**********************************************************************
X* %W% %G%
X*
X* ss     :    A SpreadSheet Program
X*
X* Art's Spreadsheet program.          Art Mulder ( [e-mail] )
X* University of Alberta, Department of Computing Science.
X***********************************************************************
X* header file
X**********************************************************************/
X
X#ifndef getinput_h
X#   define getinput_h
X
X/*
X * Function Prototypes
X */
X    char * gi_line();
X    char * gi_line_cursor();
X    char * gi_editline();
X
X#endif /* getinput_h undefined */
X
X/**********************************************************************
X*    End
X**********************************************************************/
END_OF_FILE
  if test 741 -ne `wc -c <'ss_12b/getinput.h'`; then
    echo shar: \"'ss_12b/getinput.h'\" unpacked with wrong size!
  fi
  # end of 'ss_12b/getinput.h'
fi
if test -f 'ss_12b/menu_cell.h' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'ss_12b/menu_cell.h'\"
else
  echo shar: Extracting \"'ss_12b/menu_cell.h'\" \(783 characters\)
  sed "s/^X//" >'ss_12b/menu_cell.h' <<'END_OF_FILE'
X/**********************************************************************
X* %W% %G%
X*
X* ss     :    A SpreadSheet Program
X*
X* Art's Spreadsheet program.          Art Mulder ( [e-mail] )
X* University of Alberta, Department of Computing Science.
X***********************************************************************
X* header file
X**********************************************************************/
X
X#ifndef menu_ncell_h
X#   define menu_cell_h
X
X/*
X * Function Prototypes
X */
X    void CellGoto();
X    void CellMark();
X    void CellCopy();
X    void CellEditLabel();
X    void CellEditValue();
X
X#endif /* menu_cell_h undefined */
X
X/**********************************************************************
X*    End
X**********************************************************************/
END_OF_FILE
  if test 783 -ne `wc -c <'ss_12b/menu_cell.h'`; then
    echo shar: \"'ss_12b/menu_cell.h'\" unpacked with wrong size!
  fi
  # end of 'ss_12b/menu_cell.h'
fi
if test -f 'ss_12b/menu_edit.h' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'ss_12b/menu_edit.h'\"
else
  echo shar: Extracting \"'ss_12b/menu_edit.h'\" \(825 characters\)
  sed "s/^X//" >'ss_12b/menu_edit.h' <<'END_OF_FILE'
X/**********************************************************************
X* %W% %G%
X*
X* ss     :    A SpreadSheet Program
X*
X* Art's Spreadsheet program.          Art Mulder ( [e-mail] )
X* University of Alberta, Department of Computing Science.
X***********************************************************************
X* header file
X**********************************************************************/
X
X#ifndef menu_edit_h
X#   define menu_edit_h
X
X/*
X * Function Prototypes
X */
X
X    void EditErase();
X    void EditErase();
X    void EditLock();
X    void EditUnLock();
X    void EditFormat();
X    void EditFill();
X    void EditValueize();
X
X#endif /* menu_edit_h undefined */
X
X/**********************************************************************
X*    End
X**********************************************************************/
END_OF_FILE
  if test 825 -ne `wc -c <'ss_12b/menu_edit.h'`; then
    echo shar: \"'ss_12b/menu_edit.h'\" unpacked with wrong size!
  fi
  # end of 'ss_12b/menu_edit.h'
fi
if test -f 'ss_12b/menu_file.h' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'ss_12b/menu_file.h'\"
else
  echo shar: Extracting \"'ss_12b/menu_file.h'\" \(869 characters\)
  sed "s/^X//" >'ss_12b/menu_file.h' <<'END_OF_FILE'
X/**********************************************************************
X* %W% %G%
X*
X* ss     :    A SpreadSheet Program
X*
X* Art's Spreadsheet program.          Art Mulder ( [e-mail] )
X* University of Alberta, Department of Computing Science.
X***********************************************************************
X* header file
X**********************************************************************/
X
X#ifndef menu_file_h
X#   define menu_file_h
X
X/*
X * Function Prototypes
X */
X/** void FileNew(); **/        /* Unimplemented */
X    void FileLoad();
X    void FileMerge();
X    int  FileSave();
X    void FileSaveAs();
X    void FileWriteTxt();
X    void FileTblSave();
X    void FileQuit();
X
X#endif /* menu_file_h undefined */
X
X/**********************************************************************
X*    End
X**********************************************************************/
END_OF_FILE
  if test 869 -ne `wc -c <'ss_12b/menu_file.h'`; then
    echo shar: \"'ss_12b/menu_file.h'\" unpacked with wrong size!
  fi
  # end of 'ss_12b/menu_file.h'
fi
if test -f 'ss_12b/menu_macro.h' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'ss_12b/menu_macro.h'\"
else
  echo shar: Extracting \"'ss_12b/menu_macro.h'\" \(715 characters\)
  sed "s/^X//" >'ss_12b/menu_macro.h' <<'END_OF_FILE'
X/**********************************************************************
X* %W% %G%
X*
X* ss     :    A SpreadSheet Program
X*
X* Art's Spreadsheet program.          Art Mulder ( [e-mail] )
X* University of Alberta, Department of Computing Science.
X***********************************************************************
X* header file
X**********************************************************************/
X
X#ifndef menu_macro_h
X#   define menu_macro_h
X
X/*
X * Function Prototypes
X */
X    void MacroRun();
X    void MacroDefine();
X
X#endif /* menu_macro_h undefined */
X
X/**********************************************************************
X*    End
X**********************************************************************/
END_OF_FILE
  if test 715 -ne `wc -c <'ss_12b/menu_macro.h'`; then
    echo shar: \"'ss_12b/menu_macro.h'\" unpacked with wrong size!
  fi
  # end of 'ss_12b/menu_macro.h'
fi
if test -f 'ss_12b/menu_misc.h' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'ss_12b/menu_misc.h'\"
else
  echo shar: Extracting \"'ss_12b/menu_misc.h'\" \(788 characters\)
  sed "s/^X//" >'ss_12b/menu_misc.h' <<'END_OF_FILE'
X/**********************************************************************
X* %W% %G%
X*
X* ss     :    A SpreadSheet Program
X*
X* Art's Spreadsheet program.          Art Mulder ( [e-mail] )
X* University of Alberta, Department of Computing Science.
X***********************************************************************
X* header file
X**********************************************************************/
X
X#ifndef menu_misc_h
X#   define menu_misc_h
X
X/*
X * Function Prototypes
X */
X    void MiscShell();
X    void MiscSettings();
X    void MiscRedraw();
X    void MiscRedraw_Expr();
X    void MiscRecalc();
X
X#endif /* menu_misc_h undefined */
X
X/**********************************************************************
X*    End
X**********************************************************************/
END_OF_FILE
  if test 788 -ne `wc -c <'ss_12b/menu_misc.h'`; then
    echo shar: \"'ss_12b/menu_misc.h'\" unpacked with wrong size!
  fi
  # end of 'ss_12b/menu_misc.h'
fi
if test -f 'ss_12b/menu_name.h' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'ss_12b/menu_name.h'\"
else
  echo shar: Extracting \"'ss_12b/menu_name.h'\" \(734 characters\)
  sed "s/^X//" >'ss_12b/menu_name.h' <<'END_OF_FILE'
X/**********************************************************************
X* %W% %G%
X*
X* ss     :    A SpreadSheet Program
X*
X* Art's Spreadsheet program.          Art Mulder ( [e-mail] )
X* University of Alberta, Department of Computing Science.
X***********************************************************************
X* header file
X**********************************************************************/
X
X#ifndef menu_name_h
X#   define menu_name_h
X
X/*
X * Function Prototypes
X */
X
X    void NameDefine();
X    void NameErase();
X    void NameShow();
X
X#endif /* menu_name_h undefined */
X
X/**********************************************************************
X*    End
X**********************************************************************/
END_OF_FILE
  if test 734 -ne `wc -c <'ss_12b/menu_name.h'`; then
    echo shar: \"'ss_12b/menu_name.h'\" unpacked with wrong size!
  fi
  # end of 'ss_12b/menu_name.h'
fi
if test -f 'ss_12b/menu_rowcol.h' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'ss_12b/menu_rowcol.h'\"
else
  echo shar: Extracting \"'ss_12b/menu_rowcol.h'\" \(860 characters\)
  sed "s/^X//" >'ss_12b/menu_rowcol.h' <<'END_OF_FILE'
X/**********************************************************************
X* %W% %G%
X*
X* ss     :    A SpreadSheet Program
X*
X* Art's Spreadsheet program.          Art Mulder ( [e-mail] )
X* University of Alberta, Department of Computing Science.
X***********************************************************************
X* header file
X**********************************************************************/
X
X#ifndef menu_rowcol_h
X#   define menu_rowcol_h
X
X/*
X * Function Prototypes
X */
X    void RCInsert();
X    void RCDelete();
X    void RCYank();
X    void RCMerge();
X    void RCCopy();
X    void RCHide();
X    void RCShow();
X    void RCValueize();
X    void ColFormat();
X
X#endif /* menu_rowcol_h undefined */
X
X/**********************************************************************
X*    End
X**********************************************************************/
END_OF_FILE
  if test 860 -ne `wc -c <'ss_12b/menu_rowcol.h'`; then
    echo shar: \"'ss_12b/menu_rowcol.h'\" unpacked with wrong size!
  fi
  # end of 'ss_12b/menu_rowcol.h'
fi
if test -f 'ss_12b/sres.sed' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'ss_12b/sres.sed'\"
else
  echo shar: Extracting \"'ss_12b/sres.sed'\" \(50 characters\)
  sed "s/^X//" >'ss_12b/sres.sed' <<'END_OF_FILE'
X/%token.*S_/!d
X/%token.*S_\(.*\)/s//    "\1",    S_\1,/
END_OF_FILE
  if test 50 -ne `wc -c <'ss_12b/sres.sed'`; then
    echo shar: \"'ss_12b/sres.sed'\" unpacked with wrong size!
  fi
  # end of 'ss_12b/sres.sed'
fi
if test -f 'ss_12b/sunfkeys/xterm-sun.tc' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'ss_12b/sunfkeys/xterm-sun.tc'\"
else
  echo shar: Extracting \"'ss_12b/sunfkeys/xterm-sun.tc'\" \(728 characters\)
  sed "s/^X//" >'ss_12b/sunfkeys/xterm-sun.tc' <<'END_OF_FILE'
Xxterm-sun|xterm on a sun Sparc (type 4 kbd) Workstation:\
X    :am:es:hs:km:mi:ms:xn:bs:pt:\
X    :co#80:li#65:\
X    :AL=\E[%dL:DC=\E[%dP:DL=\E[%dM:DO=\E[%dB:IC=\E[%d@:\
X    :LE=\E[%dD:RI=\E[%dC:UP=\E[%dA:ae=^O:al=\E[L:as=^N:\
X    :cd=\E[J:ce=\E[K:cl=\E[H\E[2J:cm=\E[%i%d;%dH:\
X    :cs=\E[%i%d;%dr:ct=\E[3g:dc=\E[P:dl=\E[M:ds=\E[?E:\
X    :fs=\E[?F:ho=\E[H:ic=\E[@:k0=\EOy:k1=\E[224z:\
X    :k2=\E[225z:k3=\E[226z:k4=\E[227z:k5=\E[228z:\
X    :k6=\E[229z:k7=\E[230z:k8=\E[231z:k9=\E[232z:kb=\b:\
X    :kd=\EOB:ke=\E[?1l\E>:kh=\E[214z:kl=\EOD:kr=\EOC:\
X    :ks=\E[?1h\E=:ku=\EOA:nd=\E[C:\
X    :r1=\E>\E[1;3;4;5;6l\E[?7h\E[m\E[r\E[2J\E[H:rc=\E8:\
X    :sc=\E7:se=\E[m:so=\E[7m:sr=\EM:st=\EH:\
X    :te=\E[2J\E[?47l\E8:ti=\E7\E[?47h:ts=\E[?E\E[?%i%dT:\
X    :ue=\E[m:up=\E[A:us=\E[4m:
END_OF_FILE
  if test 728 -ne `wc -c <'ss_12b/sunfkeys/xterm-sun.tc'`; then
    echo shar: \"'ss_12b/sunfkeys/xterm-sun.tc'\" unpacked with wrong size!
  fi
  # end of 'ss_12b/sunfkeys/xterm-sun.tc'
fi
if test -f 'ss_12b/torev' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'ss_12b/torev'\"
else
  echo shar: Extracting \"'ss_12b/torev'\" \(192 characters\)
  sed "s/^X//" >'ss_12b/torev' <<'END_OF_FILE'
XREVISION=`sed -e '/Revision/!D' -e 's/.*$Revision: \([0-9.a-z]*\) .*/\1/' version.c`
Xsed -e s/pname/$name/g -e s/PNAME/$NAME/g \
X    -e "s%#LIBDIR#%$LIBDIR%g" \
X    -e "s/#REVISION#/$REVISION/" $1
END_OF_FILE
  if test 192 -ne `wc -c <'ss_12b/torev'`; then
    echo shar: \"'ss_12b/torev'\" unpacked with wrong size!
  fi
  # end of 'ss_12b/torev'
fi
echo shar: End of archive 11 \(of 11\).
cp /dev/null ark11isdone
MISSING=""
for I in 1 2 3 4 5 6 7 8 9 10 11 ; do
    if test ! -f ark${I}isdone ; then
    MISSING="${MISSING} ${I}"
    fi
done
if test "${MISSING}" = "" ; then
    echo You have unpacked all 11 archives.
    rm -f ark[1-9]isdone ark[1-9][0-9]isdone
else
    echo You still must unpack the following archives:
    echo "        " ${MISSING}
fi
exit 0
exit 0 # Just in case...