[comp.editors] elvis

gh@S5000.UUCP (Sys Admin) (09/06/90)

Greetings

Could some kind soul send me a elvis binary for MSDOS

Many thanks
-- 

_____________________________________Glen_______________________________________
______________________________Lexington__Oklahoma_______________________________
______________________{uunet uunet.uu.net}!uokmax!S5000!gh______________________

olu@sysauto.UUCP (Olumide O. Emuleomo) (09/08/90)

Hi World,

Does anybody know how I can get my hands on Elvis, the VI clone?

ThanX

--olu@sysauto.UUCP   or uunet!sysauto!olu

-- 
Editor MACroS: Eight Megabytes And Constantly Swapping!

userBARD@mts.ucs.UAlberta.CA (Barry Ard) (10/06/90)

Could someone please tell me where I can find Elvis?
--------------------------------------------------------------------------
"So long Grizzly dudes"
Barry Ard                     |     uucp:     ..!alberta!uqv-mts!userbard
University Computing Systems  |     inet:     userbard@mts.ucs.ualberta.ca
University of Alberta         |     bitnet:   userbard@ualtamts.bitnet
Edmonton, Alberta             |               bard@ualtavm
#! r

peter@ficc.ferranti.com (Peter da Silva) (10/07/90)

In article <1430@mts.ucs.UAlberta.CA> userBARD@mts.ucs.UAlberta.CA (Barry Ard) writes:
> Could someone please tell me where I can find Elvis?

Ask NASA. Last I heard he was kidnapped by aliens and forced to have sex
with Amelia Earhardt. Inquiring minds, and all that!
-- 
Peter da Silva.   `-_-'
+1 713 274 5180.   'U`
peter@ferranti.com

userBARD@mts.ucs.UAlberta.CA (Barry Ard) (10/16/90)

I would like to thank everyone for the responses I received about my troubles
with Elvis for the pc. I didn't want to sound like I was knocking it
but was just shocked at the speed and appearance (read Colours) for
what seems to be a very stable and well written package. Now that I have
been pointed towards some fast ansi.sys drivers I'm going to give that
a try. In the meantime I hope someone offers a good workaround for
changing the colours (Waaaah).
--------------------------------------------------------------------------
"So long Grizzly dudes", Bart Simpson
Barry Ard                     |     uucp:     ..!alberta!uqv-mts!userbard
University Computing Systems  |     inet:     userbard@mts.ucs.ualberta.ca
University of Alberta         |     bitnet:   userbard@ualtamts.bitnet
Edmonton, Alberta             |               bard@ualtavm

mh@roger.imsd.contel.com (Mike Hoegeman) (01/19/91)

this script "ftops", converts elvis .doc files to
postscript. Here is an example

    refont -f *.doc | ftops  > elvisDoc.ps

refont comes with the elvis package. ftops conforms enough to
structured postscript to make it usable with the X11/NeWS pageview
postscript previewer. just snip at cut here line and chmod +x the thing

--------------------------------CUT HERE------------------------------
#!/bin/sh 
if [ X$1 != X ]; then
    2>&1 cat <<\EOF

    ftops is a simple filter, it reads from stdin and writes to stdout 
    
    it is used for converting files with \f<fontstyle> type font change
    escapes to postscript. it is a quick hack to convert elvis .doc
    files to postscript

    e.g. usage;

	refont -f *.doc | ftops > elvisDoc.ps

EOF
    exit 1
fi


translate () {
sed \
    -e 's,(,\\\(,g' \
    -e 's,),\\\),g' \
    -e 's,\\fB,) p B setfont (,g' \
    -e 's,\\fI,) p I setfont (,g' \
    -e 's,\\fR,) p R setfont (,g' \
    -e 's,\\fU,) p U setfont (,g' \
    -e 's,^,(,' \
    -e 's,$,) ShoW_LinE,'
} 

cat <<\PS_PROLOG
%!
%%Pages: (atend)
%%DocumentFonts Courier Courier-Oblique Courier-BoldOblique 
%%Title: ftops shell script output
%%Creator: ftops
%%EndComments

/inch { 72 mul } bind def
/getfont { exch findfont exch scalefont } bind def

/SheetWidth 8.5 inch def
/SheetHeight 11 inch def
/LeftMargin 20 def
/TopMargin 20 def

/bodyfontsize 12 def
/bodyfont /Courier bodyfontsize getfont def
/R bodyfont def
/B /Courier-Bold bodyfontsize getfont def
/I /Courier-Oblique bodyfontsize getfont def
/U /Courier-BoldOblique bodyfontsize getfont def

/startpage
{ 
    LeftMargin SheetHeight TopMargin sub moveto
    R setfont
} def

/endpage { showpage } def

% Function s: print a source line
/s { 
    gsave show grestore
    currentpoint 
	exch pop LeftMargin exch bodyfontsize sub 
    moveto
} def

/p { show } def 
/ShoW_LinE { s } def

%%EndProlog
PS_PROLOG

translate | awk 'BEGIN {
    lines=0
    maxlines=66
    pages=1
}
    
{ #MAIN
	if ($NF~/ShoW_LinE/) {
	    ++lines
	}
	if (lines==1) {
	    printf("%%%%Page: %d %d\n", pages, pages)
	    printf("startpage\n")
	}
	print
	if (lines == maxlines) {
	    ++pages
	    printf("endpage\n")
	    lines=0
	}
} 

END {
    printf("%%%%Trailer\n")
    printf("%%%%Pages: %d\n", pages)
} ' -

exit 0