[alt.folklore.computers] Jargon2Fortune conversion program

tchrist@convex.COM (Tom Christiansen) (01/31/91)

I find that Eric changed the jargon file format a tad, enough
to break mkdict.   Here's the new one:

    #!/usr/local/bin/perl
    ($start = '{= [^A-Za-z] (see <regexp>) =}') =~ s/\W/\\$&/g;
    while (<>) {
	next if 1../^\s*$start/o;
	last if /^Appendix A/;
	print;
    }


All the rest is the same.  If you would like the program and don't
have it, mail me (with a good, embedded return address).

Here's the usage message:

    usage: jcat [-axlr] entry ...
	Search the jargon file for:
	  -x  exact matches only
	  -a  accept also non-anchored matches
	  -l  look mode (or invoke as jlook)
	  -r  random fortune mode (or invoke as jfort)

Yes, it's a perl program, but you probably knew that by now. :-)


--tom
--
"Hey, did you hear Stallman has replaced /vmunix with /vmunix.el?  Now
 he can finally have the whole O/S built-in to his editor like he
 always wanted!" --me (Tom Christiansen <tchrist@convex.com>)