#!/bin/sh # This is a shell archive (produced by GNU sharutils 4.2). # To extract the files from this archive, save it to some FILE, remove # everything before the `!/bin/sh' line above, then type `sh FILE'. # # Made on 1997-03-31 18:42 PST by . # Source directory was `/home/jamesp/src/lexfilters'. # # Existing files will *not* be overwritten unless `-c' is specified. # # This shar contains: # length mode name # ------ ---------- ------------------------------------------ # 417 (null) -rw-r--r-- # 2342 (null) -rw-r--r-- # 3588 (null) -rw------- # 2164 (null) -rw-r--r-- # 2687 (null) -rw-r--r-- # save_IFS="${IFS}" IFS="${IFS}:" gettext_dir=FAILED locale_dir=FAILED first_param="$1" for dir in $PATH do if test "$gettext_dir" = FAILED && test -f $dir/gettext \ && ($dir/gettext --version >/dev/null 2>&1) then set `$dir/gettext --version 2>&1` if test "$3" = GNU then gettext_dir=$dir fi fi if test "$locale_dir" = FAILED && test -f $dir/shar \ && ($dir/shar --print-text-domain-dir >/dev/null 2>&1) then locale_dir=`$dir/shar --print-text-domain-dir` fi done IFS="$save_IFS" if test "$locale_dir" = FAILED || test "$gettext_dir" = FAILED then echo=echo else TEXTDOMAINDIR=$locale_dir export TEXTDOMAINDIR TEXTDOMAIN=sharutils export TEXTDOMAIN echo="$gettext_dir/gettext -s" fi touch -am 1231235999 $$.touch >/dev/null 2>&1 if test ! -f 1231235999 && test -f $$.touch; then shar_touch=touch else shar_touch=: echo $echo 'WARNING: not restoring timestamps. Consider getting and' $echo "installing GNU \`touch', distributed in GNU File Utilities..." echo fi rm -f 1231235999 $$.touch # if mkdir _sh23846; then $echo 'x -' 'creating lock directory' else $echo 'failed to create lock directory' exit 1 fi # ============= README ============== if test -f 'README' && test "$first_param" != -c; then $echo 'x -' SKIPPING 'README' '(file already exists)' else $echo 'x -' extracting 'README' '(text)' sed 's/^X//' << 'SHAR_EOF' > 'README' && some Silly Text Filters X by James Price (jamesp@agora.rdrop.com) X X aco.l nl.l post.l ur.l X X A Clockwork Orange - based on the book by Anthony Burgess X and the movie by Stanley Kubrick X Naked Lunch - based entirely on the book by William S. Burroughs X Postmodern Rape - no actual persosns, living or dead X Urantia - the 5th Epochal Revelation of the Urantia Book SHAR_EOF $shar_touch -am 0305230297 'README' && chmod 0644 'README' || $echo 'restore of' 'README' 'failed' if ( md5sum --help 2>&1 | grep 'sage: md5sum \[' ) >/dev/null 2>&1 \ && ( md5sum --version 2>&1 | grep -v 'textutils 1.12' ) >/dev/null; then md5sum -c << SHAR_EOF >/dev/null 2>&1 \ || $echo 'README:' 'MD5 check failed' 4ac3c91cd16e1a7014473a99f232e059 README SHAR_EOF else shar_count="`LC_ALL= LC_CTYPE= LANG= wc -c < 'README'`" test 417 -eq "$shar_count" || $echo 'README:' 'original size' '417,' 'current size' "$shar_count!" fi fi # ============= aco.l ============== if test -f 'aco.l' && test "$first_param" != -c; then $echo 'x -' SKIPPING 'aco.l' '(file already exists)' else $echo 'x -' extracting 'aco.l' '(text)' sed 's/^X//' << 'SHAR_EOF' > 'aco.l' && %{ X /* To compile: lex aco.l X cc -o aco lex.yy.c -ll X To use: X aco < textfile or X aco (interactive) GNU: flex aco.l X gcc lex.yy.c -lfl X X */ X X char buf[128]; %} %a 3000 %e 3000 %p 5000 %n 3000 %% "come" printf("come and get one in the yarbles"); "mother" printf("mum"); "girl" printf("weepy young devochka"); "brother" printf("o my little brother"); "good" printf("real horrorshow"); "clear"printf("clear as an ummudied lake"); "clean" printf("clear as an azure sky of deepest summer"); "strike"printf("out out out"); "record" printf("fuzzie warbles"); "hear" printf("hear angel trumpets and devil trombones"); "hard" printf("real savage like"); "big" printf("big burley bastard"); "job" printf("racket"); "sorry" printf("appy polly woggies"); "mouth" printf("shut your filthy hole"); "sad" printf("real weepy and likesorry"); "head" printf("pain in the gulliver"); "indeed" printf("this sarcasm ,if i may call it such, does not become you"); "I am" printf("as I am your droog and leader"); "sleep" printf("I was not wakened when I gave orders for wakening"); "no more" printf("no more picking on Dim"); "new" printf("what's all this about a new way"); "car" printf("Durango 95"); "feel better:" printf("I was cured alright"); "violence" printf("he resisted his lawful arrestors"); "fight" printf("a nozh scrap anyime you say"); "balls" printf("great bolshy yarblockos"); "ready" printf("ready for a bit of twenty-to-one"); X "top" printf("height of fashion"); "see" printf("viddy"); "God" printf("Bog"); "book" printf("the property of the municipality"); "teeth" printf("false zoobies"); "hit" printf("tolchocked"); "sing" printf("blerp blerp blerp"); "you old" printf("globby bottle of cheap stinking chip-oil"); "police" printf("millicents"); "sex" printf("nice warm vibraty feeling grumbling all through your guttiwuts"); "key" printf("clack clack clakity clackclack"); "little" printf("malenky bit"); "word" printf("slavos"); "eye" printf("glazzie"); "friend" printf("droogie"); "him" printf("alex"); "her" printf("the devochka"); "just" printf("just a matter of speech"); "women" printf("baboochkas"); "money" printf("pretty polly"); %% SHAR_EOF $shar_touch -am 0305224597 'aco.l' && chmod 0644 'aco.l' || $echo 'restore of' 'aco.l' 'failed' if ( md5sum --help 2>&1 | grep 'sage: md5sum \[' ) >/dev/null 2>&1 \ && ( md5sum --version 2>&1 | grep -v 'textutils 1.12' ) >/dev/null; then md5sum -c << SHAR_EOF >/dev/null 2>&1 \ || $echo 'aco.l:' 'MD5 check failed' 507b1cae357ee84a3796d08e0476f423 aco.l SHAR_EOF else shar_count="`LC_ALL= LC_CTYPE= LANG= wc -c < 'aco.l'`" test 2342 -eq "$shar_count" || $echo 'aco.l:' 'original size' '2342,' 'current size' "$shar_count!" fi fi # ============= nl.l ============== if test -f 'nl.l' && test "$first_param" != -c; then $echo 'x -' SKIPPING 'nl.l' '(file already exists)' else $echo 'x -' extracting 'nl.l' '(binary)' sed 's/^X//' << 'SHAR_EOF' | uudecode && begin 600 nl.l M)7L*+RH*("`@("`@("`@("`@5&\@8V]M<&EL93H@;&5X(&YL+FP*("`@("`@ M("`@("`@("`@("`@("`@("`@8V,@+6\@;FP@;&5X+GEY+F,@+6QL"@D@("`@ M5&\@=7-E.@H)"0EN;"`@/"!T97AT9FEL90H)"0D@("`@;FP@("AI;G1E2!S87)D M:6YE(&-A;B!O;B`B*3L*(B!G:7)L(B!P7,@2!O=70@;V8@;7D@9W)A;F1M M;W1H97(G2!G2!D:7-C:&%R9V4@6]U2!C;VUM96YT(BD["B(@;6%N>2`B('!R:6YT9B@B(&UA;GD@ M82!L871E;G0@:&]M;W-E>'5A;"!W87,@8V%R2`B*3L*(B!S M='5F9B`B('!R:6YT9B@B(&]R9V]N92`B*3L*(F=A>7,@(B!P65S(&-O;&]R(&]F(&$@9F%D960@9W)E>2!F M;&%N;F5L('-H:7)T("(I.PHB('!O;&EC92`B('!R:6YT9B@B(&YI9V=E2`B("!P2!A&1 | grep 'sage: md5sum \[' ) >/dev/null 2>&1 \ && ( md5sum --version 2>&1 | grep -v 'textutils 1.12' ) >/dev/null; then md5sum -c << SHAR_EOF >/dev/null 2>&1 \ || $echo 'nl.l:' 'MD5 check failed' db6cf68a6c5ffe8d6139615f240c027d nl.l SHAR_EOF else shar_count="`LC_ALL= LC_CTYPE= LANG= wc -c < 'nl.l'`" test 3588 -eq "$shar_count" || $echo 'nl.l:' 'original size' '3588,' 'current size' "$shar_count!" fi fi # ============= post.l ============== if test -f 'post.l' && test "$first_param" != -c; then $echo 'x -' SKIPPING 'post.l' '(file already exists)' else $echo 'x -' extracting 'post.l' '(text)' sed 's/^X//' << 'SHAR_EOF' > 'post.l' && X %{ X /* Postmodern Feminazi Deconstructionistic Postcolonialist Happyface filter X James Price jcp@cs.pdx.edu X X */ X X char buf[128]; %} %a 3000 %e 3000 %p 5000 %n 3000 %% " we " printf(" the dysfunctional group "); " thing " printf(" phallic-symbol-like weapon "); " help " printf(" assault "); " sex " printf(" rape "); " love " printf(" male domination "); " man " printf(" the occuppying patriarch "); " it " printf(" the semiotic object "); " him " printf(" Foucault "); " her " printf(" her postfeminist "); " that " printf(" that deconstructed "); " new " printf(" postmodern "); "self" printf(" inner child"); " in " printf(" in the penetrated space of "); " black " printf(" postcolonialist "); " is " printf(" is semiotically "); " was " printf(" was semiotically "); " white " printf(" fascist ruling class "); " my " printf(" the global "); " always " printf(" always control "); " think " printf(" think genderization "); " never " printf(" never empower "); " small " printf(" male-superior doctrine "); " large " printf(" nymphomanial "); " good " printf(" subliminated homosexuality type "); " bad " printf(" absolutist "); " free " printf(" synergism "); " get " printf(" acquire intersubjectivity "); " even " printf(" even Jean-Paul Sartre and "); " for " printf(" for reevalution of Manichaeanism and "); " she " printf(" Susan Faludi "); " he " printf(" Ted Kennedy "); " came " printf(" subjugated "); " female " printf(" lesbian "); " male " printf(" paternalistic mutilator "); " money " printf(" power "); " power " printf("mimetic process "); " daughter " printf(" donna clitoridea "); " son " printf(" chauvinistic male "); " my " printf(" the objective "); " form " printf(" implicit lyrical form "); "story" printf(" mythos "); " approach " printf(" seduction-rape "); " ask " printf(" empower "); " happy " printf(" polarized "); " words " printf(" logos "); " word " printf(" logos "); " old " printf(" counter poetical "); " made " printf(" self-defined "); " belief " printf(" penis envy "); " idea " printf(" motif "); " thought " printf(" formalised image of "); %% X SHAR_EOF $shar_touch -am 0331184297 'post.l' && chmod 0644 'post.l' || $echo 'restore of' 'post.l' 'failed' if ( md5sum --help 2>&1 | grep 'sage: md5sum \[' ) >/dev/null 2>&1 \ && ( md5sum --version 2>&1 | grep -v 'textutils 1.12' ) >/dev/null; then md5sum -c << SHAR_EOF >/dev/null 2>&1 \ || $echo 'post.l:' 'MD5 check failed' bf2da39844650022b44a8453e706dc19 post.l SHAR_EOF else shar_count="`LC_ALL= LC_CTYPE= LANG= wc -c < 'post.l'`" test 2164 -eq "$shar_count" || $echo 'post.l:' 'original size' '2164,' 'current size' "$shar_count!" fi fi # ============= ur.l ============== if test -f 'ur.l' && test "$first_param" != -c; then $echo 'x -' SKIPPING 'ur.l' '(file already exists)' else $echo 'x -' extracting 'ur.l' '(text)' sed 's/^X//' << 'SHAR_EOF' > 'ur.l' && %{ /* X To compile: lex urantia.l X cc -o urantia lex.yy.c -ll X To use: X urantia < Your_Urantia_posting X */ X X char buf[128]; %} %a 3000 %e 3000 %p 5000 %n 3000 %% " in " printf(" enseraphimed for travel "); " come " printf(" indwell "); "there" printf("in Havona"); "mother" printf(" Mother Spirit "); "girl" printf("Eve"); " had " printf(" traversed space "); " that " printf(" Father-initiated divinity-tension "); "brother" printf("Immanuel"); "good" printf("Most High"); "clear" printf("absonite"); " it " printf(" the quaratine "); "record" printf("indicted these narratives and put them in the English language"); " here " printf(" traversing the morontia phases of ascension "); "hard" printf (" Material Sons and Daughters"); "big" printf(" Superuniverse"); " be " printf(" be you perfect, even as I am perfect "); "sorry" printf("forgiveness"); "money" printf("sum of personality credits"); "one " printf("1-2-3 the first "); "red" printf("red man"); "orange" printf("orange man"); "yellow" printf("yellow race"); "blue" printf("blue men were a great people"); "black" printf("black men were least progressive"); "slave" printf("backward indigo peoples"); " two " printf(" two or three believers are gathered together, I am in the midst of "); "man" printf("mortal man"); "join" printf("fused with the Thought Adjuster"); "meet" printf("bestow"); "many" printf("sevenfold"); "I am" printf("I AM"); " mid" ("Midwayers "); "India" printf("second Andite penetration of India was the Aryan invasion"); "Christ" printf("Christ Michael"); "high" printf("Most Highs"); "sleep " printf("sleeping survivors"); "house" printf("mansonia"); "home" printf("Jerusem"); "new" printf("agondonter"); "ready" printf("finaliter"); " top" printf(" God the Supreme"); "book" printf("Lucifer manifesto"); "war" printf("war in heaven"); "wide" printf("system wide"); "fight" printf("lucifer Rebellion"); "see" printf("occur on the sea of glass"); "God" printf("God the Father"); "word" printf("thought gem"); "head" printf("life plasm"); "little" printf("Amadon"); " car " printf(" Van "); "here" printf("Urantia"); "friend" printf(" Mighty Messenger"); "green" printf("green race"); "think" printf("reflect"); "place" printf("Satania planet"); "person" printf("angel"); "expect" printf("expect adjutant"); "him" printf("the Planetary Prince"); " are " printf(" are mindal "); " her " printf(" Fonta "); " bright " printf(" reflective "); "light" printf("settled in light and life"); "women" printf("Andites"); " men" printf(" Adamites"); "nine" printf("Trinity of Trinities"); " can " printf(" can abrogate "); %% SHAR_EOF $shar_touch -am 0305225597 'ur.l' && chmod 0644 'ur.l' || $echo 'restore of' 'ur.l' 'failed' if ( md5sum --help 2>&1 | grep 'sage: md5sum \[' ) >/dev/null 2>&1 \ && ( md5sum --version 2>&1 | grep -v 'textutils 1.12' ) >/dev/null; then md5sum -c << SHAR_EOF >/dev/null 2>&1 \ || $echo 'ur.l:' 'MD5 check failed' 7d2bc7f33c0cb466434b71d0da8a0c6a ur.l SHAR_EOF else shar_count="`LC_ALL= LC_CTYPE= LANG= wc -c < 'ur.l'`" test 2687 -eq "$shar_count" || $echo 'ur.l:' 'original size' '2687,' 'current size' "$shar_count!" fi fi rm -fr _sh23846 exit 0