pat@kai.com (Patrick J. Wolfe) (05/21/91)
Submitted-by: Patrick J. Wolfe <pat@kai.com>
Posting-number: Volume 20, Issue 3
Archive-name: scan/part03
#! /bin/sh
# into a shell via "sh file" or similar. To overwrite existing files,
# type "sh file -c".
# The tool that generated this appeared in the comp.sources.unix newsgroup;
# send mail to comp-sources-unix@uunet.uu.net if you want that tool.
# Contents: Makefile Todo funcmenu.c getch.c getch.h main.c readrc.h
# runcmd.c scan.1 setupmenu.c
# Wrapped by kent@sparky on Tue May 21 00:34:20 1991
PATH=/bin:/usr/bin:/usr/ucb ; export PATH
echo If this archive is complete, you will see the following message:
echo ' "shar: End of archive 3 (of 3)."'
if test -f 'Makefile' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'Makefile'\"
else
echo shar: Extracting \"'Makefile'\" \(2974 characters\)
sed "s/^X//" >'Makefile' <<'END_OF_FILE'
X# Scan directory menu program
X# edit config.h to make sure your system type and signal values are okay
X#
X
X# for SGI Irix 3.3
X#LIBS = -lsun -lcurses
X
X# for BSD 4.2 (Dynix 3, Concentrix 5.5)
XLIBS = -lcurses -ltermcap
X
X# for Esix (AT&T Unix) System V/386 Release 3.2
X#CC = gcc -traditional
X#LIBS = -lcurses -lbsd -lc_s
X
X# for HP/UX 7.0 or later
X#LIBS = -lcurses -lBSD
X
XCFLAGS = -O
XLDFLAGS = $(CFLAGS)
XLINTFLAGS = -vx -DLINT
X
X# where to install things
XPGM = scan
XBIN = /usr/local/bin
XMANSECT = l
XMANPAGE = /usr/man/man$(MANSECT)/scan.$(MANSECT)
X
XSHELL = /bin/sh
XOBJS = filemenu.o fileops.o funcmenu.o getch.o keymenu.o main.o optionmenu.o readrc.o runcmd.o setupmenu.o userfuncs.o
XSRCS = filemenu.c fileops.c funcmenu.c getch.c keymenu.c main.c optionmenu.c readrc.c runcmd.c setupmenu.c userfuncs.c
X
XFILES1 = README scan.1 Makefile Todo config.h defkeys.h getch.h readrc.h userfuncs.c
XFILES2 = filemenu.c fileops.c funcmenu.c getch.c keymenu.c main.c optionmenu.c readrc.c runcmd.c setupmenu.c
X
Xscan:$& $(OBJS)
X rm -f scan.new
X $(CC) -o scan.new $(LDFLAGS) $(OBJS) $(LIBS)
X rm -f scan.old
X test ! -f scan || mv scan scan.old
X mv scan.new scan
X
Xinstall: scan
X rm -f $(BIN)/$(PGM)
X cp scan $(BIN)/$(PGM)
X strip $(BIN)/$(PGM)
X chmod 755 $(BIN)/$(PGM)
X ls -l $(BIN)/$(PGM)
X
Xmanpage: scan.1
X rm -f $(MANPAGE)
X cp scan.1 $(MANPAGE)
X chmod 644 $(MANPAGE)
X ls -l $(MANPAGE)
X
Xlint:
X lint $(LINTFLAGS) $(SRCS)
X
Xclean:
X rm -f a.out core mklog scan scan.old scan.shar* *.o
X
Xshar: $(FILES1) $(FILES2)
X shar $(FILES1) > scan.shar1
X shar $(FILES2) > scan.shar2
X ls -l scan.shar1 scan.shar2
X
Xfileops.o: config.h
Xfilemenu.o: config.h getch.h
Xfuncmenu.o: config.h getch.h
Xgetch.o: config.h getch.h
Xmain.o: config.h getch.h defkeys.h
Xkeymenu.o: config.h getch.h
Xoptionmenu.o: config.h getch.h
Xreadrc.o: config.h getch.h readrc.h
Xruncmd.o: config.h
Xsetupmenu.o: config.h getch.h
Xuserfuncs.o: config.h
X
X#
X# This software is Copyright (c) 1989, 1990, 1991 by Patrick J. Wolfe.
X#
X# Permission is hereby granted to copy, distribute or otherwise
X# use any part of this package as long as you do not try to make
X# money from it or pretend that you wrote it. This copyright
X# notice must be maintained in any copy made.
X#
X# Use of this software constitutes acceptance for use in an AS IS
X# condition. There are NO warranties with regard to this software.
X# In no event shall the author be liable for any damages whatsoever
X# arising out of or in connection with the use or performance of this
X# software. Any use of this software is at the user's own risk.
X#
X# If you make modifications to this software that you feel
X# increases it usefulness for the rest of the community, please
X# email the changes, enhancements, bug fixes as well as any and
X# all ideas to me. This software is going to be maintained and
X# enhanced as deemed necessary by the community.
X#
X# Patrick J. Wolfe
X# uunet!uiucuxc!kailand!pwolfe
X# pwolfe@kailand.kai.com
X#
END_OF_FILE
if test 2974 -ne `wc -c <'Makefile'`; then
echo shar: \"'Makefile'\" unpacked with wrong size!
fi
# end of 'Makefile'
fi
if test -f 'Todo' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'Todo'\"
else
echo shar: Extracting \"'Todo'\" \(1830 characters\)
sed "s/^X//" >'Todo' <<'END_OF_FILE'
X*** FIX BUGS ***
X
X- there are currently none that I am aware of
X
X*** ENHANCE CURRENT FEATURES ***
X
X- handle SIGWINCH window size changes correctly.
X
X- update the manpage. Double check the real default bindings, and add a
X table of builtin functions.
X
X- need improved rm_tagged function which deletes files properly with "rm -f",
X and directories with "rmdir", to prevent accidentally deleting all
X subdirectories and their contents.
X
X- check if the directory itself has been updated (files added or deleted) and
X display something to let the user know to "re-read current directory" (or
X remember the current file and do it automatically).
X
X- the "help screen" function only describes the default key bindings, which
X a user may change at any time. It should describe the current bindings.
X Maybe a table of descriptions for each function, and a scrollable menu
X showing keys and their bindings.
X
X- find a way to get curses to use the "deleteln" and "insertln" routines
X correctly, so the menu scrolls better. SVR3 curses does, BSD doesn't.
X Maybe on SVR3, allow down arrow to scroll the menu one line at a time,
X which looks smoother than jumping a half of a screen at a time.
X
X
X*** ADD NEW FEATURES ***
X
X- A "File Operations Menu" would be nice. This would have options to delete,
X rename, copy, tar, etc... current or tagged files. Also, create file and
X subdirectory.
X
X- permissions menu, for assisting secretary types with modifying a file's
X access permissions.
X
X- search function, for tagging files whose name matches some wildcard string
X bind to "/". Also, "n", "N", "?".
X
X- grep function, for tagging files which contain some wildcard string
X bind to "g". "G" could untag files with match, or it could tag files
X with DON'T match. This could be confusing. Maybe a submenu is called
X for here.
X
END_OF_FILE
if test 1830 -ne `wc -c <'Todo'`; then
echo shar: \"'Todo'\" unpacked with wrong size!
fi
# end of 'Todo'
fi
if test -f 'funcmenu.c' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'funcmenu.c'\"
else
echo shar: Extracting \"'funcmenu.c'\" \(4919 characters\)
sed "s/^X//" >'funcmenu.c' <<'END_OF_FILE'
X
X/*
X * This software is Copyright (c) 1989, 1990, 1991 by Patrick J. Wolfe.
X *
X * Permission is hereby granted to copy, distribute or otherwise
X * use any part of this package as long as you do not try to make
X * money from it or pretend that you wrote it. This copyright
X * notice must be maintained in any copy made.
X *
X * Use of this software constitutes acceptance for use in an AS IS
X * condition. There are NO warranties with regard to this software.
X * In no event shall the author be liable for any damages whatsoever
X * arising out of or in connection with the use or performance of this
X * software. Any use of this software is at the user's own risk.
X *
X * If you make modifications to this software that you feel
X * increases it usefulness for the rest of the community, please
X * email the changes, enhancements, bug fixes as well as any and
X * all ideas to me. This software is going to be maintained and
X * enhanced as deemed necessary by the community.
X *
X * Patrick J. Wolfe
X * uunet!uiucuxc!kailand!pwolfe
X * pwolfe@kailand.kai.com
X */
X
X#include "config.h"
Xextern struct funcname_entry funcname_table[];
X
Xstatic void redraw_data();
Xstatic WINDOW *header_window, *data_window, *help_window;
Xstatic int top = 0, current = 0, last;
X
X
Xstatic
Xdown_one_line ()
X{
Xif (current < last) {
X current++;
X if (current > (top + 14)) {
X top += 14;
X if (top >= (last - 14)) {
X top = last - 14;
X if (top < 0) {
X top = 0;
X }
X }
X }
X redraw_data ();
X }
Xelse {
X beep();
X }
X}
X
X
Xstatic
Xup_one_line ()
X{
Xif (current > 0) {
X current--;
X if (current < top) {
X top -= 14;
X if (top < 0) {
X top = 0;
X }
X }
X redraw_data ();
X }
Xelse {
X beep();
X }
X}
X
X
Xstatic
Xdown_one_screen ()
X{
Xif (top < (last - 14)) {
X top += 15;
X if (top >= (last - 14)) {
X top = last - 14;
X if (top < 0) {
X top = 0;
X }
X }
X current = top;
X redraw_data ();
X }
Xelse if (current < last) {
X current = last;
X redraw_data ();
X }
Xelse {
X beep();
X }
X}
X
X
Xstatic
Xup_one_screen ()
X{
Xif (top > 0) {
X top -= 15;
X if (top < 0) {
X top = 0;
X }
X current = top + 14;
X if (current > last) {
X current = last;
X }
X redraw_data ();
X }
Xelse if (current > 0) {
X current = 0;
X redraw_data ();
X }
Xelse {
X beep();
X }
X}
X
X
Xstatic void
Xredraw_data ()
X{
Xint row, ptr;
X
Xwmove (data_window, 0, 0);
Xwclrtobot (data_window);
Xfor (row = 0, ptr = top; (ptr <= last) && (row < 15); ptr++, row++) {
X if (ptr == current) {
X wstandout (data_window);
X }
X
X mvwaddstr (data_window, row, 0, (char *) funcname_table[ptr].name);
X
X if (ptr == current) {
X wstandend (data_window);
X }
X }
Xwrefresh (data_window);
X}
X
X
Xstatic
Xredraw_all ()
X{
Xwmove (header_window, 0, 0);
Xwclrtobot (header_window);
Xwmove (header_window, 1, 10);
Xwstandout (header_window);
Xwaddstr (header_window, PGM_VERSION);
Xwaddstr (header_window, " Builtin Function Selection Menu");
Xwstandend (header_window);
Xwmove (header_window, 3, 3);
Xwaddstr (header_window, "function name");
Xwmove (header_window, 4, 0);
Xwaddstr (header_window, "-------------");
Xwrefresh (header_window);
X
Xredraw_data ();
X
Xwmove (help_window, 0, 0);
Xwclrtobot (help_window);
Xwmove (help_window, 0, 0);
Xwaddstr (help_window, "+----------------------------------------------------------------------------+");
Xwmove (help_window, 1, 0);
Xwaddstr (help_window, "| use ^F, ^B, j, k and/or the arrow keys to move around the display |");
Xwmove (help_window, 2, 0);
Xwaddstr (help_window, "| Return selects the highlighted function, Q cancels the key definition |");
Xwmove (help_window, 3, 0);
Xwaddstr (help_window, "+----------------------------------------------------------------------------+");
Xwrefresh (help_window);
X}
X
X
Xvoidptr
Xfunction_menu ()
X{
Xint c;
X
X/* find last function in table */
Xfor (last = 0; funcname_table[last].kfunc != NULL; last++);
X
Xheader_window = newwin (5, 80, 0, 0);
Xdata_window = newwin (15, 80, 5, 0);
Xhelp_window = newwin (4, 80, 20, 0);
X#ifdef SYSVcurses
Xidlok (data_window, TRUE);
X#endif
Xredraw_all ();
X
Xwhile (1) {
X c = my_getch (header_window);
X switch (c) {
X
X case ControlB:
X case KEY_PPAGE:
X case KEY_PrevScreen:
X up_one_screen ();
X break;
X
X case ControlF:
X case KEY_NPAGE:
X case KEY_NextScreen:
X down_one_screen ();
X break;
X
X case 'k':
X case KEY_UP:
X case ControlP:
X up_one_line ();
X break;
X
X case 'j':
X case KEY_DOWN:
X case ControlN:
X down_one_line ();
X break;
X
X case 'q':
X case 'Q':
X case ControlM:
X wmove (header_window, 0, 0);
X wclrtobot (header_window);
X wrefresh (header_window);
X delwin (header_window);
X wmove (data_window, 0, 0);
X wclrtobot (data_window);
X wrefresh (data_window);
X delwin (data_window);
X wmove (help_window, 0, 0);
X wclrtobot (help_window);
X wrefresh (help_window);
X delwin (help_window);
X if (c == ControlM)
X return ((voidptr) funcname_table[current].kfunc);
X return ((voidptr) NULL);
X
X case ControlL:
X case ControlR:
X redraw_all ();
X break;
X
X default:
X beep();
X }
X }
X}
END_OF_FILE
if test 4919 -ne `wc -c <'funcmenu.c'`; then
echo shar: \"'funcmenu.c'\" unpacked with wrong size!
fi
# end of 'funcmenu.c'
fi
if test -f 'getch.c' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'getch.c'\"
else
echo shar: Extracting \"'getch.c'\" \(3184 characters\)
sed "s/^X//" >'getch.c' <<'END_OF_FILE'
X
X/*
X * This software is Copyright (c) 1989, 1990, 1991 by Patrick J. Wolfe.
X *
X * Permission is hereby granted to copy, distribute or otherwise
X * use any part of this package as long as you do not try to make
X * money from it or pretend that you wrote it. This copyright
X * notice must be maintained in any copy made.
X *
X * Use of this software constitutes acceptance for use in an AS IS
X * condition. There are NO warranties with regard to this software.
X * In no event shall the author be liable for any damages whatsoever
X * arising out of or in connection with the use or performance of this
X * software. Any use of this software is at the user's own risk.
X *
X * If you make modifications to this software that you feel
X * increases it usefulness for the rest of the community, please
X * email the changes, enhancements, bug fixes as well as any and
X * all ideas to me. This software is going to be maintained and
X * enhanced as deemed necessary by the community.
X *
X * Patrick J. Wolfe
X * uunet!uiucuxc!kailand!pwolfe
X * pwolfe@kailand.kai.com
X */
X
X#include "config.h"
X
X#define NORMAL 100
X#define ESCAPE 200
X#define FKEY 300
X
X
Xint
Xmy_getch (winptr)
XWINDOW *winptr;
X{
Xchar c;
Xint state = NORMAL;
Xint fkeycount = 0;
X
Xwhile (1) {
X c = wgetch (winptr); /* call the real getch() to return a single character */
X switch (state) {
X
X case FKEY:
X switch (c) {
X
X /* numeric function keys */
X case '0': case '1': case '2': case '3': case '4':
X case '5': case '6': case '7': case '8': case '9':
X fkeycount = (fkeycount * 10) + (c - '0');
X break;
X
X case '~':
X switch (fkeycount) {
X
X /* Find, Insert Here, Remove, Select, Prev Screen, Next Screen */
X case 1: case 2: case 3: case 4: case 5: case 6:
X return KEY_Find + (fkeycount - 1);
X
X /* unshifted vt220 function keys */
X case 17: case 18: case 19: case 20: case 21:
X case 22: case 23: case 24: case 25: case 26:
X case 27: case 28: case 29: case 30: case 31:
X return KEY_F6 + (fkeycount - 17);
X
X /* shifted tvs922 function keys */
X case 37: case 38: case 39: case 40: case 41:
X case 42: case 43: case 44: case 45: case 46:
X case 47: case 48: case 49: case 50: case 51:
X return KEY_SF6 + (fkeycount - 37);
X
X default:
X beep();
X state = NORMAL;
X }
X break;
X
X case 'A': return KEY_UP;
X case 'B': return KEY_DOWN;
X case 'C': return KEY_RIGHT;
X case 'D': return KEY_LEFT;
X case 'M': return KEY_PadEnter;
X case 'Z': return KEY_BackTab;
X
X /* VT[12]00 PF keys */
X case 'P': case 'Q': case 'R': case 'S':
X return KEY_PF1 + (c - 'P');
X
X /* VT[12]00 keypad */
X case 'l': case 'm': case 'n': case 'o': case 'p': case 'q': case 'r':
X case 's': case 't': case 'u': case 'v': case 'w': case 'x': case 'y':
X return KEY_PadComma + (c - 'l');
X
X default:
X beep();
X state = NORMAL;
X }
X break;
X
X case ESCAPE:
X switch (c) {
X case 'O':
X case '[':
X state = FKEY;
X fkeycount = 0;
X break;
X
X default:
X state = NORMAL;
X beep();
X }
X break;
X
X default:
X switch (c) {
X case Escape:
X state = ESCAPE;
X break;
X
X case CSI:
X state = FKEY;
X fkeycount = 0;
X break;
X
X default:
X return (c);
X }
X }
X }
X}
END_OF_FILE
if test 3184 -ne `wc -c <'getch.c'`; then
echo shar: \"'getch.c'\" unpacked with wrong size!
fi
# end of 'getch.c'
fi
if test -f 'getch.h' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'getch.h'\"
else
echo shar: Extracting \"'getch.h'\" \(4869 characters\)
sed "s/^X//" >'getch.h' <<'END_OF_FILE'
X
X/*
X * This software is Copyright (c) 1989, 1990, 1991 by Patrick J. Wolfe.
X *
X * Permission is hereby granted to copy, distribute or otherwise
X * use any part of this package as long as you do not try to make
X * money from it or pretend that you wrote it. This copyright
X * notice must be maintained in any copy made.
X *
X * Use of this software constitutes acceptance for use in an AS IS
X * condition. There are NO warranties with regard to this software.
X * In no event shall the author be liable for any damages whatsoever
X * arising out of or in connection with the use or performance of this
X * software. Any use of this software is at the user's own risk.
X *
X * If you make modifications to this software that you feel
X * increases it usefulness for the rest of the community, please
X * email the changes, enhancements, bug fixes as well as any and
X * all ideas to me. This software is going to be maintained and
X * enhanced as deemed necessary by the community.
X *
X * Patrick J. Wolfe
X * uunet!uiucuxc!kailand!pwolfe
X * pwolfe@kailand.kai.com
X */
X
X#ifndef SYSVcurses
X/* System V curses key names and codes returned by getch */
X#define KEY_BREAK 0401
X#define KEY_DOWN 0402
X#define KEY_UP 0403
X#define KEY_LEFT 0404
X#define KEY_RIGHT 0405
X#define KEY_HOME 0406
X#define KEY_BACKSPACE 0407
X#define KEY_F0 0410 /* function keys */
X#define KEY_F(x) (KEY_F0 + (x)) /* space for 64 function keys is reserved */
X#define KEY_DL 0510 /* delete line */
X#define KEY_IL 0511 /* insert line */
X#define KEY_DC 0512 /* delete char */
X#define KEY_IC 0513 /* insert char or enter insert mode */
X#define KEY_EIC 0514 /* exit insert mode */
X#define KEY_CLEAR 0515 /* clear screen */
X#define KEY_EOS 0516 /* clear to end of screen */
X#define KEY_EOL 0517 /* clear to end of line */
X#define KEY_SF 0520 /* scroll 1 line forward */
X#define KEY_SR 0521 /* scroll 1 line backward (reverse) */
X#define KEY_NPAGE 0522 /* next page */
X#define KEY_PPAGE 0523 /* previous page */
X#define KEY_STAB 0524 /* set tab */
X#define KEY_CTAB 0525 /* clear tab */
X#define KEY_CATAB 0526 /* clear all tabs */
X#define KEY_ENTER 0527 /* Enter or send (unreliable) */
X#define KEY_SRESET 0530 /* soft (partial) reset (unreliable) */
X#define KEY_RESET 0531 /* reset or hard reset (unreliable) */
X#define KEY_PRINT 0532 /* print or copy */
X#define KEY_LL 0533 /* home down or bottom (lower left) */
X#endif /* NOT SYSVcurses */
X
X/* vt220 special keys */
X
X#define KEY_F1 0411
X#define KEY_F2 0412
X#define KEY_F3 0413
X#define KEY_F4 0414
X#define KEY_F5 0415
X#define KEY_F6 0416
X#define KEY_F7 0417
X#define KEY_F8 0420
X#define KEY_F9 0421
X#define KEY_F10 0422
X#define KEY_F11 0423
X#define KEY_F12 0424
X#define KEY_F13 0425
X#define KEY_F14 0426
X#define KEY_F15 0427
X#define KEY_Help 0427
X#define KEY_F16 0430
X#define KEY_Do 0430
X#define KEY_F17 0431
X#define KEY_F18 0432
X#define KEY_F19 0433
X#define KEY_F20 0434
X#define KEY_PF1 0534
X#define KEY_PF2 0535
X#define KEY_PF3 0536
X#define KEY_PF4 0537
X#define KEY_Pad0 0540
X#define KEY_Pad1 0541
X#define KEY_Pad2 0542
X#define KEY_Pad3 0543
X#define KEY_Pad4 0544
X#define KEY_Pad5 0545
X#define KEY_Pad6 0546
X#define KEY_Pad7 0547
X#define KEY_Pad8 0550
X#define KEY_Pad9 0551
X#define KEY_PadEnter 0552
X#define KEY_PadMinus 0553
X#define KEY_PadPeriod 0554
X#define KEY_PadComma 0555
X#define KEY_Pad00 0556
X#define KEY_BackTab 0557
X#define KEY_Find 0560
X#define KEY_InsertHere 0561
X#define KEY_Remove 0562
X#define KEY_Select 0563
X#define KEY_PrevScreen 0564
X#define KEY_PrevScrn 0564
X#define KEY_NextScreen 0565
X#define KEY_NextScrn 0565
X#define KEY_SF1 0611
X#define KEY_SF2 0612
X#define KEY_SF3 0613
X#define KEY_SF4 0614
X#define KEY_SF5 0615
X#define KEY_SF6 0616
X#define KEY_SF7 0617
X#define KEY_SF8 0620
X#define KEY_SF9 0621
X#define KEY_SF10 0622
X#define KEY_SF11 0623
X#define KEY_SF12 0624
X#define KEY_SF13 0625
X#define KEY_SF14 0626
X#define KEY_SF15 0627
X#define KEY_SHelp 0627
X#define KEY_SF16 0630
X#define KEY_SDo 0630
X#define KEY_SF17 0631
X#define KEY_SF18 0632
X#define KEY_SF19 0633
X#define KEY_SF20 0634
X
X/* ascii control codes */
X#define ControlA 001
X#define ControlB 002
X#define ControlC 003
X#define ControlD 004
X#define ControlE 005
X#define ControlF 006
X#define ControlG 007
X#define ControlH 010
X#define BackSpace 010
X#define ControlI 011
X#define Tab 011
X#define ControlJ 012
X#define LineFeed 012
X#define ControlK 013
X#define ControlL 014
X#define ControlM 015
X#define Return 015
X#define ControlN 016
X#define ControlO 017
X#define ControlP 020
X#define ControlQ 021
X#define ControlR 022
X#define ControlS 023
X#define ControlT 024
X#define ControlU 025
X#define ControlV 026
X#define ControlW 027
X#define ControlX 030
X#define ControlY 031
X#define ControlZ 032
X#define Escape 033
X#define Control[ 033
X#define Delete 0177
X#define Del 0177
X#define CSI 0233
END_OF_FILE
if test 4869 -ne `wc -c <'getch.h'`; then
echo shar: \"'getch.h'\" unpacked with wrong size!
fi
# end of 'getch.h'
fi
if test -f 'main.c' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'main.c'\"
else
echo shar: Extracting \"'main.c'\" \(4197 characters\)
sed "s/^X//" >'main.c' <<'END_OF_FILE'
X/*
X * scan - file menu program
X *
X * This software is Copyright (c) 1989, 1990, 1991 by Patrick J. Wolfe.
X *
X * Permission is hereby granted to copy, distribute or otherwise
X * use any part of this package as long as you do not try to make
X * money from it or pretend that you wrote it. This copyright
X * notice must be maintained in any copy made.
X *
X * Use of this software constitutes acceptance for use in an AS IS
X * condition. There are NO warranties with regard to this software.
X * In no event shall the author be liable for any damages whatsoever
X * arising out of or in connection with the use or performance of this
X * software. Any use of this software is at the user's own risk.
X *
X * If you make modifications to this software that you feel
X * increases it usefulness for the rest of the community, please
X * email the changes, enhancements, bug fixes as well as any and
X * all ideas to me. This software is going to be maintained and
X * enhanced as deemed necessary by the community.
X *
X * Patrick J. Wolfe
X * uunet!uiucuxc!kailand!pwolfe
X * pwolfe@kailand.kai.com
X */
X
X
X#include "config.h"
X#include "defkeys.h"
X
Xextern char *getenv();
Xextern struct option_entry option_table[];
Xextern char currdir[];
X
Xstruct key_entry keytab[SIZEKEYTAB];
Xint opt_auto_untag, opt_dir_order, opt_dot_order, opt_dotdir_order, opt_hide_dotdot,
X opt_pager_pause, opt_rm_prompt, opt_show_filetype, opt_show_symlinks;
Xchar *editor = DEFAULT_EDITOR, *pager = DEFAULT_PAGER, *loginid, *shellpgm, *homedir;
Xchar rcfilename[MAXPATHLEN];
Xint namebufleft = BUFSIZE;
Xint PAGESIZE = 0;
Xchar *namebuf;
X
X
X/*
X * initialize key definition and option tables
X */
Xinit_defaults ()
X{
Xint ctr;
X
Xbcopy ((char *) default_keytab, (char *) keytab, (sizeof(struct key_entry) * SIZEKEYTAB));
X/*
Xfor (ctr = 0; ctr < SIZEKEYTAB; ctr++) {
X keytab[ctr].type = default_keytab[ctr].type;
X keytab[ctr].options = default_keytab[ctr].options;
X keytab[ctr].pntr = default_keytab[ctr].pntr;
X }
X*/
X
Xfor (ctr = 0; option_table[ctr].name != NULL; ctr++) {
X *option_table[ctr].variable = option_table[ctr].default_value;
X }
X}
X
X
XSIGTYPE
Xdie ()
X{
Xmove (LINES, 0);
Xrefresh ();
Xendwin();
Xexit (0);
X}
X
X
Xmain (argc, argv)
Xint argc;
Xchar **argv;
X{
Xstruct passwd *pb;
Xchar *fieldval;
X
X#ifdef SYSVgetcwd
Xgetcwd (currdir, MAXPATHLEN);
X#else
Xgetwd (currdir);
X#endif /* SYSVgetcwd */
X
Xif ((argc > 1) && (chdir (argv[1]) == -1)) {
X perror ("chdir");
X fprintf (stderr, "scan: cannot cd to directory %s\n", argv[1]);
X exit (1);
X }
X
Xif ((pb = getpwuid (getuid())) == NULL) {
X perror ("getpwuid");
X fprintf (stderr, "scan: you do not have an account on this system\n");
X exit (1);
X }
X
X/* get some environment variables */
Xif (((fieldval = getenv("USER")) != NULL) || ((fieldval = getenv("LOGNAME")) != NULL)) {
X loginid = (char *) malloc (strlen(fieldval)+1);
X strcpy (loginid, fieldval);
X }
Xelse if ((fieldval = (char *) getlogin()) != NULL) {
X loginid = (char *) malloc (strlen(fieldval)+1);
X strcpy (loginid, fieldval);
X }
Xelse {
X loginid = (char *) malloc (strlen(pb->pw_name)+1);
X strcpy (loginid, pb->pw_name);
X }
X
Xif ((fieldval = getenv("EDITOR")) != NULL) {
X editor = (char *) malloc (strlen(fieldval)+1);
X strcpy (editor, fieldval);
X }
X
Xif ((fieldval = getenv("PAGER")) != NULL) {
X pager = (char *) malloc (strlen(fieldval)+1);
X strcpy (pager, fieldval);
X }
X
Xif ((fieldval = getenv("SHELL")) != NULL) {
X shellpgm = (char *) malloc (strlen(fieldval)+1);
X strcpy (shellpgm, fieldval);
X }
Xelse {
X shellpgm = (char *) malloc (strlen(pb->pw_shell)+1);
X strcpy (shellpgm, pb->pw_shell);
X }
X
Xif ((fieldval = getenv("HOME")) != NULL) {
X homedir = (char *) malloc (strlen(fieldval)+1);
X strcpy (homedir, fieldval);
X }
Xelse {
X homedir = (char *) malloc (strlen(pb->pw_dir)+1);
X strcpy (homedir, pb->pw_dir);
X }
X
Xif ((namebuf = (char *) malloc (BUFSIZE)) == NULL) {
X perror ("malloc");
X exit (1);
X }
X
Xinit_defaults (); /* initialize key and option tables */
Xreadrc (SYSTEM_RCFILE); /* read system init file */
Xstrcpy (rcfilename, homedir);
Xstrcat (rcfilename, "/.scanrc");
Xreadrc (rcfilename); /* read user init file */
X
Xmain_loop (); /* the program's main routine */
X/* NOTREACHED */
X}
END_OF_FILE
if test 4197 -ne `wc -c <'main.c'`; then
echo shar: \"'main.c'\" unpacked with wrong size!
fi
# end of 'main.c'
fi
if test -f 'readrc.h' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'readrc.h'\"
else
echo shar: Extracting \"'readrc.h'\" \(7455 characters\)
sed "s/^X//" >'readrc.h' <<'END_OF_FILE'
X
X/*
X * This software is Copyright (c) 1989, 1990, 1991 by Patrick J. Wolfe.
X *
X * Permission is hereby granted to copy, distribute or otherwise
X * use any part of this package as long as you do not try to make
X * money from it or pretend that you wrote it. This copyright
X * notice must be maintained in any copy made.
X *
X * Use of this software constitutes acceptance for use in an AS IS
X * condition. There are NO warranties with regard to this software.
X * In no event shall the author be liable for any damages whatsoever
X * arising out of or in connection with the use or performance of this
X * software. Any use of this software is at the user's own risk.
X *
X * If you make modifications to this software that you feel
X * increases it usefulness for the rest of the community, please
X * email the changes, enhancements, bug fixes as well as any and
X * all ideas to me. This software is going to be maintained and
X * enhanced as deemed necessary by the community.
X *
X * Patrick J. Wolfe
X * uunet!uiucuxc!kailand!pwolfe
X * pwolfe@kailand.kai.com
X */
X
X
Xextern int opt_auto_untag, opt_dir_order, opt_dot_order, opt_dotdir_order, opt_hide_dotdot,
X opt_pager_pause, opt_rm_prompt, opt_show_filetype, opt_show_symlinks;
X
X/* option value tables */
Xchar *true_false[] = { "false", "true", NULL };
Xchar *dot_order[] = { "first", "last", "hide", NULL };
Xchar *dir_order[] = { "first", "last", "sort", NULL };
Xchar *dotdir_order[] = { "withdot", "withdir", NULL };
X
X/* info about options used in init files and options menu */
Xstruct option_entry option_table[] = {
X { "auto-untag", &opt_auto_untag, true_false, OPT_TRUE },
X { "dir-order", &opt_dir_order, dir_order, DIR_FIRST },
X { "dot-order", &opt_dot_order, dot_order, DOT_LAST },
X { "dotdir-order", &opt_dotdir_order, dotdir_order, WITH_DOT },
X { "hide-dotdot", &opt_hide_dotdot, true_false, OPT_FALSE },
X { "pager-pause", &opt_pager_pause, true_false, OPT_TRUE },
X { "rm-prompt", &opt_rm_prompt, true_false, OPT_TRUE },
X { "show-filetype", &opt_show_filetype, true_false, OPT_TRUE },
X { "show-symlinks", &opt_show_symlinks, true_false, OPT_TRUE },
X { NULL, NULL, NULL, 0 }
X };
X
X/* info about built-in functions used in init files and keydef menu */
Xstruct funcname_entry funcname_table[] = {
X { "bottom_line", bottom_line },
X { "cd_back", cd_back },
X { "cd_dot", cd_dot },
X { "cd_dotdot", cd_dotdot },
X { "cd_file", cd_file },
X { "cd_home", cd_home },
X { "cd_prompt", cd_prompt },
X { "cd_root", cd_root },
X { "cd_or_edit", cd_or_edit },
X { "cd_or_view", cd_or_view },
X { "command_file", command_file },
X { "command_tagged", command_tagged },
X { "edit_file", edit_file },
X { "edit_tagged", edit_tagged },
X { "execute_file", execute_file },
X { "exec_file", exec_file },
X { "exit_pgm", exit_pgm },
X { "first_page", first_page },
X { "fork_shell", fork_shell },
X { "help_screen", help_screen },
X { "last_page", last_page },
X { "middle_line", middle_line },
X { "next_halfpage", next_halfpage },
X { "next_line", next_line },
X { "next_page", next_page },
X { "prev_halfpage", prev_halfpage },
X { "prev_line", prev_line },
X { "prev_page", prev_page },
X { "redraw_menu", redraw_menu },
X { "rm_file", rm_file },
X { "rm_tagged", rm_tagged },
X { "setup_menu", setup_menu },
X { "tag_all", tag_all },
X { "toggle_tag", toggle_tag },
X { "top_line", top_line },
X { "untag_all", untag_all },
X { "view_file", view_file },
X { "view_tagged", view_tagged },
X { "", NULL }
X };
X
X/* names of keys used in init files and keydef menu */
Xstruct keydef_entry keydef_table[] = {
X { "AndSign", '&' },
X { "Asterisk", '*' },
X { "AtSign", '@' },
X { "BackQuote", '`' },
X { "BackSpace", ControlH },
X { "BackTab", KEY_BackTab },
X { "BackTick", '`' },
X { "Backslash", '\\' },
X { "Bang", '!' },
X { "Colon", ':' },
X { "Comma", ',' },
X { "ControlA", ControlA },
X { "ControlB", ControlB },
X { "ControlC", ControlC },
X { "ControlD", ControlD },
X { "ControlE", ControlE },
X { "ControlF", ControlF },
X { "ControlG", ControlG },
X { "ControlH", ControlH },
X { "ControlI", ControlI },
X { "ControlJ", ControlJ },
X { "ControlK", ControlK },
X { "ControlL", ControlL },
X { "ControlM", ControlM },
X { "ControlN", ControlN },
X { "ControlO", ControlO },
X { "ControlP", ControlP },
X { "ControlQ", ControlQ },
X { "ControlR", ControlR },
X { "ControlS", ControlS },
X { "ControlT", ControlT },
X { "ControlU", ControlU },
X { "ControlV", ControlV },
X { "ControlW", ControlW },
X { "ControlX", ControlX },
X { "ControlY", ControlY },
X { "ControlZ", ControlZ },
X { "Dash", '-' },
X { "Delete", Delete },
X { "Do", KEY_F16 },
X { "DollarSign", '$' },
X { "DoubleQuote", '"' },
X { "DownArrow", KEY_DOWN },
X { "Enter", ControlM },
X { "Equals", '=' },
X { "Exclamation", '!' },
X { "ExclamationPoint", '!' },
X { "F10", KEY_F10 },
X { "F11", KEY_F11 },
X { "F12", KEY_F12 },
X { "F13", KEY_F13 },
X { "F14", KEY_F14 },
X { "F15", KEY_F15 },
X { "F16", KEY_F16 },
X { "F17", KEY_F17 },
X { "F18", KEY_F18 },
X { "F19", KEY_F19 },
X { "F20", KEY_F20 },
X { "F6", KEY_F6 },
X { "F7", KEY_F7 },
X { "F8", KEY_F8 },
X { "F9", KEY_F9 },
X { "Find", KEY_Find },
X { "GreaterThan", '>' },
X { "HatSign", '^' },
X { "Help", KEY_F15 },
X { "InsertHere", KEY_InsertHere },
X { "KP0", KEY_Pad0 },
X { "KP00", KEY_Pad00 },
X { "KP1", KEY_Pad1 },
X { "KP2", KEY_Pad2 },
X { "KP3", KEY_Pad3 },
X { "KP4", KEY_Pad4 },
X { "KP5", KEY_Pad5 },
X { "KP6", KEY_Pad6 },
X { "KP7", KEY_Pad7 },
X { "KP8", KEY_Pad8 },
X { "KP9", KEY_Pad9 },
X { "KPComma", KEY_PadComma },
X { "KPEnter", KEY_PadEnter },
X { "KPMinus", KEY_PadMinus },
X { "KPPeriod", KEY_PadPeriod },
X { "LeftArrow", KEY_LEFT },
X { "LeftBrace", '{' },
X { "LeftBracket", '[' },
X { "LeftParen", '(' },
X { "LessThan", '<' },
X { "LineFeed", ControlJ },
X { "Minus", '-' },
X { "NextScreen", KEY_NextScreen },
X { "PF1", KEY_PF1 },
X { "PF2", KEY_PF2 },
X { "PF3", KEY_PF3 },
X { "PF4", KEY_PF4 },
X { "Paren", '(' },
X { "PercentSign", '%' },
X { "Period", '.' },
X { "Pipe", '|' },
X { "Plus", '+' },
X { "PrevScreen", KEY_PrevScreen },
X { "Question", '?' },
X { "QuestionMark", '?' },
X { "Quote", '\'' },
X { "Remove", KEY_Remove },
X { "Return", ControlM },
X { "RightArrow", KEY_RIGHT },
X { "RightBrace", '}' },
X { "RightBracket", ']' },
X { "RightParen", ')' },
X { "SDo", KEY_SF16 },
X { "SF10", KEY_SF10 },
X { "SF11", KEY_SF11 },
X { "SF12", KEY_SF12 },
X { "SF13", KEY_SF13 },
X { "SF14", KEY_SF14 },
X { "SF15", KEY_SF15 },
X { "SF16", KEY_SF16 },
X { "SF17", KEY_SF17 },
X { "SF18", KEY_SF18 },
X { "SF19", KEY_SF19 },
X { "SF20", KEY_SF20 },
X { "SF6", KEY_SF6 },
X { "SF7", KEY_SF7 },
X { "SF8", KEY_SF8 },
X { "SF9", KEY_SF9 },
X { "SHelp", KEY_SF15 },
X { "Select", KEY_Select },
X { "SemiColon", ';' },
X { "Sharp", '#' },
X { "Slash", '/' },
X { "Tab", ControlI },
X { "Tilde", '~' },
X { "UnParen", ')' },
X { "Underline", '_' },
X { "UpArrow", KEY_UP },
X { "^A", ControlA },
X { "^B", ControlB },
X { "^C", ControlC },
X { "^D", ControlD },
X { "^E", ControlE },
X { "^F", ControlF },
X { "^G", ControlG },
X { "^H", ControlH },
X { "^I", ControlI },
X { "^J", ControlJ },
X { "^K", ControlK },
X { "^L", ControlL },
X { "^M", ControlM },
X { "^N", ControlN },
X { "^O", ControlO },
X { "^P", ControlP },
X { "^Q", ControlQ },
X { "^R", ControlR },
X { "^S", ControlS },
X { "^T", ControlT },
X { "^U", ControlU },
X { "^V", ControlV },
X { "^W", ControlW },
X { "^X", ControlX },
X { "^Y", ControlY },
X { "^Z", ControlZ },
X { "", 0 }
X };
END_OF_FILE
if test 7455 -ne `wc -c <'readrc.h'`; then
echo shar: \"'readrc.h'\" unpacked with wrong size!
fi
# end of 'readrc.h'
fi
if test -f 'runcmd.c' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'runcmd.c'\"
else
echo shar: Extracting \"'runcmd.c'\" \(7729 characters\)
sed "s/^X//" >'runcmd.c' <<'END_OF_FILE'
X/*
X * runcmd.c - parse and execute commands (both builting and external)
X *
X * This software is Copyright (c) 1989, 1990, 1991 by Patrick J. Wolfe.
X *
X * Permission is hereby granted to copy, distribute or otherwise
X * use any part of this package as long as you do not try to make
X * money from it or pretend that you wrote it. This copyright
X * notice must be maintained in any copy made.
X *
X * Use of this software constitutes acceptance for use in an AS IS
X * condition. There are NO warranties with regard to this software.
X * In no event shall the author be liable for any damages whatsoever
X * arising out of or in connection with the use or performance of this
X * software. Any use of this software is at the user's own risk.
X *
X * If you make modifications to this software that you feel
X * increases it usefulness for the rest of the community, please
X * email the changes, enhancements, bug fixes as well as any and
X * all ideas to me. This software is going to be maintained and
X * enhanced as deemed necessary by the community.
X *
X * Patrick J. Wolfe
X * uunet!uiucuxc!kailand!pwolfe
X * pwolfe@kailand.kai.com
X */
X
X
X#include "config.h"
X
Xextern SIGTYPE die();
X#ifdef NEED_TSTP
X#define TSTP_RTN _tstp
X#else
X#define TSTP_RTN tstp
X#endif
Xextern SIGTYPE TSTP_RTN();
Xextern struct dblock cwd[];
Xextern WINDOW *headwin, *datawin, *helpwin;
Xextern int lastptr, curptr, opt_auto_untag;
X
X
X/*
X * 1. Break command line into arguments
X * Copies command to "command_line", placing null's between arguments,
X * and adding pointers to "arglist" to the beginning of each argument.
X * Counts the number of arguments found.
X *
X * 2. Append filenames to the command
X * Depending on the options specified, add the current filename, all
X * tagged filenames, or no filenames to the end of the built command.
X *
X * 3. Run the passed command.
X */
Xvoid
Xdo_cmd (command, options)
Xchar *command;
Xint options;
X{
Xunion wait status;
Xint argc, ctr1, ctr2, row = 2, cpid, dpid;
Xint c;
Xchar *ptr1, *ptr2, *arglist[MAXARGS],
X command_line[10240];
X
Xmvcur (0, COLS-1, LINES-1, 0);
Xrefresh ();
Xargc = 0;
Xptr1 = command;
Xptr2 = command_line;
X
Xwhile (1) {
X /* skip over white space */
X for (; (*ptr1 != '\0') && isspace(*ptr1); ptr1++);
X if (*ptr1 == '\0') {
X break;
X }
X
X /* mark beginning of argument */
X arglist[argc] = ptr2;
X#ifdef DEBUG
X fprintf (stderr, "starting argument %d at %s\n", argc, ptr1);
X#endif
X
X /* find end of current argument */
X for (ctr1 = ctr2 = 0; *ptr1 != '\0'; ptr1++, ptr2++) {
X if (isspace (*ptr1) && (ctr1 == 0) && (ctr2 == 0)) {
X break; /* stop at first whitespace outsite quotes */
X }
X if (*ptr1 == '\\') {
X ptr1++;
X if (*ptr1 == '\0') {
X break; /* the line ends in a bad old backslash */
X }
X }
X else if ((*ptr1 == '"') && (ctr2 == 0)) { /* keep track of double quotes */
X ctr1 = (ctr1 * -1) + 1;
X }
X else if ((*ptr1 == '\'') && (ctr1 == 0)) { /* keep track of single quotes */
X ctr2 = (ctr2 * -1) + 1;
X }
X *ptr2 = *ptr1;
X }
X
X /* mark end of current argument, and advance to next char */
X *ptr2 = '\0';
X ptr2++;
X
X#ifdef DEBUG
X fprintf (stderr, "arg %d length=%d bytes, value = \"%s\"\n", argc, strlen(arglist[argc]), arglist[argc]);
X sleep (2);
X#endif
X
X /* check to see if this is the special argument of a pair of curly or hard braces */
X if ((strlen(arglist[argc]) == 2) && (((arglist[argc][0] == '{') && (arglist[argc][1] == '}'))
X || ((arglist[argc][0] == '[') && (arglist[argc][1] == ']')))) {
X options &= OPT_TAGALL; /* turn off tag all and tag current options */
X options &= OPT_TAGCUR;
X /* replace this argument with the list of all tagged files */
X for (ctr1 = 0; (ctr1 <= lastptr) && (argc < MAXARGS); ctr1++) {
X if (cwd[ctr1].selected) {
X arglist[argc++] = cwd[ctr1].name;
X if (opt_auto_untag) {
X cwd[ctr1].selected = 0;
X }
X }
X }
X }
X else {
X argc++;
X }
X
X /* if at end of input command, stop here */
X if (*ptr1 == '\0') {
X break;
X }
X }
X
Xif (argc == 0) {
X return; /* no command to execute */
X }
X
Xif (options & OPT_TAGCUR) { /* append filename currently being pointed at to the command */
X arglist[argc++] = cwd[curptr].name;
X cwd[curptr].size = -1; /* set flag so this file gets re-stat'd */
X }
X
Xelse if (options & OPT_TAGALL) { /* append names of all tagged files to the command */
X for (ctr2 = 0; (ctr2 <= lastptr) && (argc < MAXARGS); ctr2++) {
X if (cwd[ctr2].selected) {
X arglist[argc++] = cwd[ctr2].name;
X if (opt_auto_untag) {
X cwd[ctr2].selected = 0;
X }
X cwd[ctr2].size = -1; /* set flag so these files get re-stat'd */
X }
X }
X }
X
Xarglist[argc] = 0;
X
X/* clear the screen, reset the terminal to normal mode, and run the command */
Xwmove (helpwin, 0, 0);
Xwclrtobot (helpwin);
Xwrefresh (helpwin);
Xwmove (datawin, 0, 0);
Xwclrtobot (datawin);
Xwrefresh (datawin);
Xwmove (headwin, row, 0);
Xwclrtobot (headwin);
Xwmove (headwin, row, 0);
X
X/* let the user know what we are doing */
Xwaddstr (headwin, "Running the command: ");
Xfor (ctr1 = 0, ctr2 = 0; (row <= 3) && (arglist[ctr1] != 0); ctr1++) {
X ctr2 += 1 + strlen (arglist[ctr1]);
X if (ctr2 > 79) {
X row++;
X wmove (headwin, row, 4);
X ctr2 = 4 + strlen (arglist[ctr1]);
X }
X else {
X waddch (headwin, ' ');
X }
X waddstr (headwin, arglist[ctr1]);
X }
X
Xif (options & OPT_VERIFY) {
X c = 'a';
X while ((c != 'y') && (c != 'Y') && (c != 'N') && (c != 'n')) {
X wmove (headwin, 4, 0);
X waddstr (headwin, "Are you sure? ");
X wrefresh (headwin);
X c = my_getch (headwin);
X }
X if ((c != 'y') && (c != 'Y')) {
X redraw_menu ();
X return;
X }
X }
Xelse
X wrefresh (headwin);
X
Xwmove (datawin, 0, 0);
Xwrefresh (datawin);
X#ifdef SYSVcurses
Xdelwin (datawin);
Xdelwin (helpwin);
Xdelwin (helpwin);
Xendwin(); /* terminate curses */
X#else /* ! SYSVcurses */
Xecho (); /* echo keys as they are typed */
Xnl (); /* enable cr/lf mapping */
Xnocrmode (); /* turn off cbreak mode */
X#endif /* SYSVcurses */
Xsignal (SIGHUP, SIG_DFL); /* trap signal 1, hangup */
Xsignal (SIGINT, SIG_DFL); /* trap signal 2, interrupt */
Xsignal (SIGQUIT, SIG_DFL); /* trap signal 3, quit */
Xsignal (SIGTERM, SIG_DFL); /* trap signal 15, software termination */
Xsignal (SIGTSTP, SIG_IGN); /* trap signal 15, software termination */
X
Xif ((cpid = fork()) == 0) {
X execvp (arglist[0], arglist);
X perror ("execvp");
X fprintf (stderr, "scan: cannot execute %s\r\n", arglist[0]);
X exit (-1);
X }
Xif (cpid == -1) {
X perror ("fork");
X exit (-1);
X }
Xsignal (SIGINT, SIG_IGN); /* restore signal 2, interrupt */
Xsignal (SIGQUIT, SIG_IGN); /* restore signal 3, quit */
X
X/* wait until our baby dies */
Xdo {
X dpid = wait (&status);
X } while ((dpid != cpid) && (dpid != -1));
X
Xif (status.w_T.w_Termsig != 0) {
X fprintf (stderr, "\r\ncommand was killed by signal #%d ", status.w_T.w_Termsig);
X }
Xelse if (status.w_T.w_Retcode != 0) {
X fprintf (stderr, "\r\ncommand returned error status code %d", status.w_T.w_Retcode);
X }
X
X#ifdef SYSVcurses
Xinitscr (); /* initialize curses */
X#endif
Xsignal (SIGHUP, die); /* trap signal 1, hangup */
Xsignal (SIGINT, die); /* trap signal 2, interrupt */
Xsignal (SIGQUIT, die); /* trap signal 3, quit */
Xsignal (SIGTERM, die); /* trap signal 15, software termination */
Xsignal (SIGTSTP, TSTP_RTN); /* trap tstp signal */
Xnoecho (); /* curses should not echo keys as they are typed */
Xnonl (); /* disable cr/lf mapping */
Xcrmode (); /* turn on cbreak mode */
X#ifdef SYSVcurses
Xheadwin = newwin (5, COLS, 0, 0);
Xdatawin = newwin (PAGESIZE, COLS, 5, 0);
Xhelpwin = newwin (1, COLS, PAGESIZE + 5, 0);
Xidlok (datawin, TRUE);
X#endif
X
Xif ( (options & OPT_WAIT) || ((options & OPT_WAITERR) && (status.w_T.w_Retcode != 0)) ) {
X fprintf (stderr, " -- press Return to continue");
X my_getch (headwin);
X }
X
Xredraw_menu ();
X}
END_OF_FILE
if test 7729 -ne `wc -c <'runcmd.c'`; then
echo shar: \"'runcmd.c'\" unpacked with wrong size!
fi
# end of 'runcmd.c'
fi
if test -f 'scan.1' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'scan.1'\"
else
echo shar: Extracting \"'scan.1'\" \(8428 characters\)
sed "s/^X//" >'scan.1' <<'END_OF_FILE'
X...
X.TH SCAN 1 "4.0" "Usenet software" "Usenet software"
X
X.SH NAME
Xscan - directory menu
X
X.SH SYNOPSIS
Xscan [directory]
X
X.SH DESCRIPTION
X.I Scan
Xdisplays a menu containing information about all the files contained in
Xa directory, and lets you perform common operations on them.
X
XYou may optionally specify a directory name to begin with.
XWith no directory names on the command line,
X.I scan
Xwill begin in the current directory.
X
X.SH "WHAT'S ON THE SCREEN"
XThe screen that
X.I Scan
Xdisplays can be broken into to three areas.
X
XThe top few lines display the program's
Xname and version number, your login id, the date and time, and
Xthe occational error message. Also shown is
Xthe name of current directory, the total
Xnumber of files in the directory, and the number of hidden files (if any).
XHidden files are "dot files" which aren't currently being shown (see the
XOPTIONS section later).
X
XThe last line of the display is used to display some help.
X
XThe rest of the screen is used by the file menu.
X
X.SH "USING THE FILE MENU"
XThe file menu resembles the output of an "ls -l" command. Displayed are
Xthe file's permissions, owner and group name, size (in bytes),
Xthe date of the most recent modification, and filename. If the name
Xis too long, it may be truncated in the display. If the "show-filetype"
Xoption is turned on, a slash will be appended to subdirectory names,
Xand an asterisk to executable files. If the "show-symlinks"
Xoption is turned on, symbolic links will display the file the link points to
Xafter the file name.
X
XSome functions of Scan operate on the current file.
XThe "current file" is what we call the file which has the little arrow ("=>") pointing to
Xit's name. The up and down arrow keys (also the "j" and "k" keys) move the current file
Xpointer up and down on the file menu.
X
XFiles may also be "tagged".
XWhen a file is "tagged", it's line on the screen is highlighted.
XSome functions of Scan operate on all tagged files at once.
XThe "m" key toggles the "tagged" status of any file.
XTagged files are discussed more fully in the section "USING THE TAG FEATURE".
X
XThere are a number of ways to move around the file menu display:
X
X.br
Xcontrol-F
X.br
X.in +10
Xscroll forward (down) one screen
X.in -10
X.br
Xcontrol-B
X.br
X.in +10
Xscroll backward (up) one screen
X.in -10
X.br
Xcontrol-D
X.br
X.in +10
Xscroll down one half screen
X.in -10
X.br
Xcontrol-U
X.br
X.in +10
Xscroll up one half screen
X.in -10
X.br
X"down-arrow" or "j"
X.br
X.in +10
Xmoves down one file on the menu
X.in -10
X.br
X"up-arrow" or "k"
X.br
X.in +10
Xmoves up one file on the menu
X.in -10
X.br
X"g"
X.br
X.in +10
X(top) moves to the first page of the menu
X.in -10
X.br
X"G"
X.br
X.in +10
X(bottom) moves to the last page of the menu
X.in -10
X.br
X"H"
X.br
X.in +10
X(high) moves to the first line of the current page
X.in -10
X.br
X"M"
X.br
X.in +10
X(middle) moves to the middle line of the current page
X.in -10
X.br
X"L"
X.br
X.in +10
X(low) moves to the last line of the current page
X.in -10
X.br
X
X
XThere are also several commands to change which directory you are "scanning":
X
X.br
X"d" or Return
X.br
X.in +10
X(down) change directory to the current file (the file the "==>" is pointing to)
X.in -10
X.br
X"u"
X.br
X.in +10
X(up) change directory to the parent of the current directory
X.in -10
X.br
X"b"
X.br
X.in +10
X(back) change directory to the last directory you "scanned"
X.in -10
X.br
X"c"
X.br
X.in +10
X(cd) prompts for a directory path to cd to.
X.in -10
X.br
X"/"
X.br
X.in +10
Xchange directory to the root directory
X.in -10
X.br
X"~"
X.br
X.in +10
Xchange directory to your home directory
X.in -10
X.br
X"."
X.br
X.in +10
Xre-scans the current directory (useful if some files where added or deleted)
X.in -10
X
XHere are a few common actions that you can do to a file, without using the command line.
XThe "tag" feature is described in more detail in the section "USING THE TAG FEATURE".
X
X.br
X"e" or Return
X.br
X.in +10
Xedits the current file. It will use the value of the "EDITOR"
Xenvironment variable, if this is set, and defaults to "vi".
X.in -10
X.br
X"v"
X.br
X.in +10
Xview the current file. It will use the value of the "PAGER"
Xenvironment variable, if this is set, and defaults to "more".
X.in -10
X.br
X"r"
X.br
X.in +10
Xremoves the current file, after verifying with you that this is okay.
X.in -10
X.br
X"x"
X.br
X.in +10
Xprompts for a command, and executes it appending the current filename
X.in -10
X.br
X"E", "V", "R" and "X"
X.br
X.in +10
Xare the same as "e", "v", "r" and "x", except that they work
Xon all the tagged files, instead of just the current file.
X.in -10
X.br
X"m" or LineFeed
X.br
X.in +10
Xtoggles the "tagged" status of the current file.
X.in -10
X.br
X"T"
X.br
X.in +10
Xtags every file.
X.in -10
X.br
X"U"
X.br
X.in +10
Xuntags every file.
X.in -10
X.br
X
X
XThe rest of the commands perform miscellaneous tasks:
X
X.br
X"S"
X.br
X.in +10
XEnter the SETUP mode, used to change key definitions or option values
X.in -10
X.br
X"q" or "Q"
X.br
X.in +10
Xquit the Scan program.
X.in -10
X.br
X"!" or "%"
X.br
X.in +10
Xforks a shell (using your SHELL)
X.in -10
X.br
X"control-L" or "control-R"
X.br
X.in +10
Xredraws the screen
X.in -10
X.br
X
X.SH "USING THE TAG FEATURE"
XTagging files is an easy way to operate on multiple files at one time.
X
XYou can tag files by moving the current file pointer and pressing the "m"
Xkey. Tagged files are highlighted on the screen. The "m" key toggles the tagged status
Xof a file, so to un-tag a file, just press "m" again. The "T" key tags all files (except hidden files) in the
Xcurrent directory, and "U" untags all files.
X
XSome of the file menu commands (C,E,R,V) operate on all tagged files at once.
X
XFor example, you can edit a whole range of files by moving up and down the file menu, tagging all
Xthe files you want to edit, and then pressing "E".
X
XAfter a commands which uses tagged files is executed, all files are un-tagged automatically, unless
Xthe "auto-untag" option is turned off.
X
X.SH SETUP
XThe "setup_menu" lets you choose between defining keys and changing values of options. Once you
Xhave customized options and keys to your desire, remember to save your changes. A ".scanrc" file
Xwill be written for you.
X
XThere are several options which you may want to change:
X
X.br
X option valid values (*=default value)
X.br
X ------ ------------------------------
X.br
X auto_untag *true, false
X.br
X If true, operations on tagged files cause the files to be untagged.
X.br
X dir_order first, last, *sort
X.br
X Where to put the directory names in the file menu, top, bottom, or sorted (like ls)
X.br
X dot_order first, *last, hide
X.br
X Where to put the dot files, at top of list, bottom of list, or hide them
X.br
X dotdir_order *withdot, withdir
X.br
X Where to put dot-directory names, with dot files or with other directories
X.br
X hide_dotdot *true, false
X.br
X If true, "." and ".." are not shown
X.br
X pause_pager *true, false
X.br
X If true, pauses after your "PAGER" is executed
X.br
X rm_prompt *true, false
X.br
X If true, verifies before removing files or directories
X.br
X show_filetype *true, false
X.br
X If true, appends "/" to directory names and "*" to executable files
X.br
X show_symlinks *true, false
X.br
X If true, shows files that symbolic links point to
X
X.SH ORIGIN
XThe first Unix version of
X.I scan
Xwas written in 1989 in the C language by Patrick Wolfe (pat@kai.com,
Xkailand!pat).
XVersion 4 was updated in April 1991 and release to the Usenet
Xcommunity in May 1991.
X
X.SH COPYRIGHT
X.I Scan
Xis Copyright (c) 1989, 1990, 1991 by Patrick J. Wolfe.
X
XPermission is hereby granted to copy, distribute or otherwise
Xuse any part of this package as long as you do not try to make
Xmoney from it or pretend that you wrote it. This copyright
Xnotice must be maintained in any copy made.
X
XUse of this software constitutes acceptance for use in an AS IS
Xcondition. There are NO warranties with regard to this software.
XIn no event shall the author be liable for any damages whatsoever
Xarising out of or in connection with the use or performance of this
Xsoftware. Any use of this software is at the user's own risk.
X
XIf you make modifications to this software that you feel
Xincreases it usefulness for the rest of the community, please
Xemail the changes, enhancements, bug fixes as well as any and
Xall ideas to me. This software is going to be maintained and
Xenhanced as deemed necessary by the community.
X
END_OF_FILE
if test 8428 -ne `wc -c <'scan.1'`; then
echo shar: \"'scan.1'\" unpacked with wrong size!
fi
# end of 'scan.1'
fi
if test -f 'setupmenu.c' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'setupmenu.c'\"
else
echo shar: Extracting \"'setupmenu.c'\" \(2599 characters\)
sed "s/^X//" >'setupmenu.c' <<'END_OF_FILE'
X
X/*
X * This software is Copyright (c) 1989, 1990, 1991 by Patrick J. Wolfe.
X *
X * Permission is hereby granted to copy, distribute or otherwise
X * use any part of this package as long as you do not try to make
X * money from it or pretend that you wrote it. This copyright
X * notice must be maintained in any copy made.
X *
X * Use of this software constitutes acceptance for use in an AS IS
X * condition. There are NO warranties with regard to this software.
X * In no event shall the author be liable for any damages whatsoever
X * arising out of or in connection with the use or performance of this
X * software. Any use of this software is at the user's own risk.
X *
X * If you make modifications to this software that you feel
X * increases it usefulness for the rest of the community, please
X * email the changes, enhancements, bug fixes as well as any and
X * all ideas to me. This software is going to be maintained and
X * enhanced as deemed necessary by the community.
X *
X * Patrick J. Wolfe
X * uunet!uiucuxc!kailand!pwolfe
X * pwolfe@kailand.kai.com
X */
X
X#include "config.h"
X
Xextern int redraw_menu();
Xextern int init_defaults();
Xextern int options_changed, keydef_changed;
Xextern char rcfilename[];
X
X
Xstatic void
Xsetup_redraw ()
X{
Xint row = 5;
X
Xclear();
Xmvaddstr (1, 30, PGM_VERSION);
Xaddstr (" Setup Menu");
Xmvaddstr (row++, 30, "K - key definition menu");
Xmvaddstr (row++, 30, "O - options menu");
Xmvaddstr (row++, 30, "S - save changes to setup");
Xmvaddstr (row++, 30, "D - restore default setup");
Xmvaddstr (row++, 30, "Q - save changes and exit setup");
Xmvaddstr (row, 30, "X - exit setup without saving changes");
Xrefresh ();
X}
X
X
Xsave_setup ()
X{
Xmvaddstr (3, 10, "saving setup ... please wait");
Xrefresh ();
X
Xwriterc ();
Xoptions_changed = keydef_changed = 0;
X
Xmove (3, 10);
Xclrtoeol ();
Xmvprintw (3, 10, "Your setup has been saved");
Xrefresh ();
X}
X
X
Xsetup_menu ()
X{
Xint c;
X
Xsetup_redraw ();
Xwhile (1) {
X c = my_getch (stdscr);
X switch (c) {
X case 'D':
X case 'd':
X init_defaults ();
X break;
X
X case 'K':
X case 'k':
X clear ();
X refresh ();
X keydef_menu ();
X setup_redraw ();
X break;
X
X case 'O':
X case 'o':
X clear ();
X refresh ();
X options_menu ();
X setup_redraw ();
X break;
X
X case 'S':
X case 's':
X save_setup ();
X break;
X
X case 'Q':
X case 'q':
X if (options_changed || keydef_changed) {
X save_setup ();
X do_chdir (".");
X }
X else
X redraw_menu();
X return;
X
X case 'X':
X case 'x':
X if (options_changed)
X do_chdir (".");
X else
X redraw_menu();
X return;
X
X default:
X fprintf (stderr, "\007");
X }
X }
X}
END_OF_FILE
if test 2599 -ne `wc -c <'setupmenu.c'`; then
echo shar: \"'setupmenu.c'\" unpacked with wrong size!
fi
# end of 'setupmenu.c'
fi
echo shar: End of archive 3 \(of 3\).
cp /dev/null ark3isdone
MISSING=""
for I in 1 2 3 ; do
if test ! -f ark${I}isdone ; then
MISSING="${MISSING} ${I}"
fi
done
if test "${MISSING}" = "" ; then
echo You have unpacked all 3 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...
--
Kent Landfield INTERNET: kent@sparky.IMD.Sterling.COM
Sterling Software, IMD UUCP: uunet!sparky!kent
Phone: (402) 291-8300 FAX: (402) 291-4362
Please send comp.sources.misc-related mail to kent@uunet.uu.net.