🚀 go-pugleaf

This little piece of code does it...
#! /bin/sh
# This is a shell archive.  Remove anything before this line, then unpack
# it by saving it into a file and typing "sh file".  To overwrite existing
# files, type "sh file -c".  You can also feed this as standard input via
# unshar, or by typing "sh <file", e.g..  If this archive is complete, you
# will see the following message at the end:
#		"End of shell archive."
# Contents:  line.c
# Wrapped by rsalz@fig.bbn.com on Fri Dec 23 10:19:22 1988
PATH=/bin:/usr/bin:/usr/ucb ; export PATH
if test -f 'line.c' -a "${1}" != "-c" ; then 
  echo shar: Will not clobber existing file \"'line.c'\"
else
echo shar: Extracting \"'line.c'\" \(1144 characters\)
sed "s/^X//" >'line.c' <<'END_OF_FILE'
X/*
X*/
X#include <suntool/sunview.h>
X#include <suntool/textsw.h>
X#include <suntool/selection.h>
X#include <suntool/selection_svc.h>
X#include <suntool/selection_attributes.h>
X
Xextern Textsw	 KWICArea;
X
X/*
X**  Get the line number of the current selection, or -1 if not in the
X**  index window.
X*/
Xint
Xget_line_number()
X{
X    static int		 Saved = -1;
X    Seln_request	*Sbuffer;
X    Seln_holder		 Hold;
X    int			*p;
X
X    /* Get primary selection, see if it is in our window. */
X    Hold = seln_inquire(SELN_PRIMARY);
X    if (Hold.state == SELN_NONE || !seln_holder_same_client(&Hold, KWICArea))
X	/* Nope, get the old one. */
X	return(Saved);
X
X    /* Get the first line of the current selection. */
X    Sbuffer = seln_ask(&Hold, SELN_REQ_FAKE_LEVEL, SELN_LEVEL_LINE,
X			SELN_REQ_FIRST_UNIT, 0, 0);
X    if (Sbuffer->status == SELN_FAILED) {
X	Message("Can't get current selection!");
X	return(-1);
X    }
X
X    /* The data we asked for comes back in words. */
X    p = (int *)Sbuffer->data;
X
X    /* Make sure we got what we asked for. */
X    if (p[0] != (int)SELN_REQ_FAKE_LEVEL || p[2] != (int)SELN_REQ_FIRST_UNIT)
X	return(-1);
X
X    return(Saved = p[3]);
X}
END_OF_FILE
if test 1144 -ne `wc -c <'line.c'`; then
    echo shar: \"'line.c'\" unpacked with wrong size!
fi
# end of 'line.c'
fi
echo shar: End of shell archive.
exit 0
-- 
Please send comp.sources.unix-related mail to rsalz@uunet.uu.net.