DADA Engine Grammars
examples of grammars for the dada_engine"
brag.pb
// convert the first character of a string to its uppercase equivalent %trans upcase-first: ".*": 0 u ; ; brag: frag end | frag brag | frag brag | frag brag | frag brag | frag brag | frag brag ; // Alteration. espellma. //end: "Now give me some more of..." ; end: ""; frag: "I " act "! " | "Pardon my language. " | "But " yell " let the " entities " bear witness! " | "Even in the belly of the Thunderbird I've been casting out the " entities "; I'm busting my " body-part " and blowing my O-ring, and ripe to throw a *loaf*! " | "For I speak *only* the " emphatic " *Truth*, and never in my days have I spoken other than! For my every utterance is a lie, including this very one you hear! " | "I say, `" slogan "'. By God, `" slogan "', I say! " | "I am " entity ", I am " entity "! " | "I'll drive a mile so as not to walk a foot; I am " entity "! " | "Yes, I'm " entity "! " | "I drank *" being "* under " number " tables, I am too " adjective " to die, I'm insured for acts o' God *and* Satan! " | "I was shanghaied by " entities " and " entities " from " place ", and got away with their hubcaps! " | "I *cannot* be tracked on radar! " | "I wear nothing uniform, I wear *no* " emphatic " uniform! " | "Yes baby, I'm " number " feet tall and have " number " rows o' " body-part "s; I was suckled by a " pet ", I gave " she-being " a high-protein tonsil wash! " | "I'm a bacteriological weapon, I am *armed* and *loaded*! " | "I'm a fission reactor, I fart plutonium, power plants are fueled by the " spoor " of my " body-part "; when they plug *me* in, the lights go out in " place "! " | "I weigh " number " pounds in zero gravity, *" attack "*! " | "I've sired " entities " across " place ", I cook and *eat* my dead; " yell " I'm the Unshaven Thorn Tree of " place "! " | "I " act "! " | being>upcase-first "'s hands are my *ideal* playground! " | "I hold the " number>upcase-first "-Bladed Windbreaker; the wheels that turn are behind me; I think *backwards*! " | "I do it for *fun*! " | "My imagination is a *" emphatic "* cancer and I'll pork it before it porks me! " | "They say a godzillion is the highest number there is. Well by God! I count to a godzillion and *one*! " | "Yes, I'm the purple flower of " place ", give me wide berth; when I drop my drawers, " being " swoons! " | "I use a " pet " for a prophylactic; I'm *thicker, harder* and *meaner* than the Alaskan Pipeline, and carry more " spoor "! " | "I'll freeze *your* " spoor " before it hits the bathroom tile! " | yell | "I kidnapped the future and ransomed it for the past, I made *" being "* wait up for me to bleed my " pet "! " | "My infernal " spoor " wilts the Tree of Life, I left my *" spoor "* on the Rock of Ages, *who'll " attack ", who'll spill their juice*? " | "Who'll " attack ", whose candle will I fart out? " | "Whoop! I'm ready! " | "So step aside, all you butt-lipped, neurotic, insecure bespectacled " entities "! " | "I'm " entity ", I am Not Insane! " | "I'm a screamer and a laugher, I " act ", I am a *sight*! " | "My physical type *cannot* be classified by science, my `familiar' is a " pet ", I feed it " entities "! " | "I communicate without *wires* or *strings*! " | "I am a Thuggee, I am feared in the Tongs, I have the Evil " body-part>upcase-first ", I carry the Mojo Bag; I swam *" place "* and didn't get wet! " | "I circumcize " entities " with my teeth and make 'em leave a tip; I change tires with my *tongue* and my *tool*! " | "Every night I hock up a lunger and extinguish the *Sun*! " | "I'm " entity ", who'll try to " attack "? " | "I've packed the brownies of the " entities ", I leak the Plague from my " body-part "s, opiates are the *mass* of my religion, *I " act "!* " | "Yes, I'm a rip-snorter, I cram coca leaves right into my " body-part "s before they're picked off the *tree*! " | "*" entities>upcase-first "* cringe at my tread! " | "I " act ". " | "I'm " adjective ", I'll live forever and remember it afterwards! " | "I'm " adjective "! " | "I'm " adjective "! " | "Come *on* and give me cancer, I'll spit up the tumor and butter my *bread* with the juice! " | "I'm " adjective ", I " act "! " | "My droppings bore through the earth and erupt *volcanoes* in *" place "*! " | "Yes, I can drink more wine and stay soberer than all the " entities " in " place "! " | yell "*" body-part>upcase-first " Blowout*! " | "I am a *Moray Eel*, I am a *Komodo Dragon*, I am the *Killer Whale bereft of its pup*! " | "I have a triple " body-part ", I was sired by " being ", give me *all* your Slack! " | "I told *" he-being "* I wouldn't go to church and He *shook my hand*! " | "I have my *own* personal saviors, I change 'em every hour, I don't give a fuck if there's life after death, I want to know if there's even any " emphatic " *Slack* after death! " | "I am a " emphatic " *visionary*, I see the future and the past in comic books and wine bottles; I eat *black holes* for breakfast! " | "I " act "! " | "I " act "! " | "I ran 'em out of Heaven and sold it to Hell for a *profit*! " | "I'm enlightened, I achieved `Nirvana' and took it *home* with me. " | yell | "I'm so ugly the Speed of Light can't slow me down and Gravity won't tug at my cuffs! " | slogan " " | slogan " " ; emphatic: "goddamn" | "god damn" |"GOD DAMN" | "fucking" ; attack: "blow me down" | "gouge with me" | "come and get me" | "tear flesh with me" ; spoor: "spoor" | "seed" | "breath" | "sweat" | "spew" ; number: "seven" | "23" | "13" | "666" | "273" | "42" ; entity: "a Crime Fighting Master Criminal" | "a "pet | "the bigfooted devil of Level 14" | "the last remaining Homo Correctus" | "the " emphatic " Man of the Future" | "a human being of the *first* " emphatic " water" | "the javalina humping junkie that jumped the " entities ; pet: "pterodactyl" | "python" | "triceratops" | "giant lizard" ; being: she-being | he-being ; she-being: "Mother Nature" | "God" | "the Anti-Virgin" ; he-being: "the Devil" | "Father Time" | "Jesus" | "the Wolf Man" ; entities: "bodiless fiends" | "alien jews" | "Men from Mars" | "heathen *Hindoos*" | "space monsters" | "sons of God and man" | "False Prophets" | "gods" | "dinosaurs" | "retarded space bastards" | "slabs o' wimp meat" | "dipshits" ; body-part: "nose" | "gut" | "arm-vein" | "nether part" | "backbone" | "brow" | "teat" ; yell: "YEEE HAW! " | "YEE! YEEE! " | "*Yip, yip, YEEEEEEE!* "| "YEEEEEHAW! " | "YAH-HOOOO! " ; slogan: "Fuck 'em if they can't take a joke!" | "Anything for a laugh!" | "When the Rapture comes, I'll make 'em wait!" | "They'll *never* clean *my* cage!" ; act: "pick the " emphatic " terror of the " emphatic " " entities " out of my *" body-part "*" | "pay no taxes" | "take drugs" | "make a *spectacle* of myself" | "wipe the *Pyramids* off my shoes before I enter *my* house" | "bend *crowbars* with my meat ax and a thought" | "bend my genes and whittle my DNA with the sheer force of my mighty *will*" | "steer my *own* " emphatic " evolution" ; adjective: "*fuel-injected*" | "*immune*" | "*radioactive*" | "*supernatural*" | "*intense*" ; place: "China" | "Hong Kong" | "Asia" | "the Atlantis Zoo" | "the Cosmos" | "a corporate galaxy" | "Hell County" | "the Bermuda Triangle" ;
crackpot.pb
/* make crackpottish rants acb 29-6-1995 * Now requires the C preprocessor * * Copyright (C) 1995 Andrew C. Bulhak */ // Global variables used: // v-benefactors good guys ("the Elohim", "the Pleiadians") // v-malefactors metaphysical bad guys ("the Grays"/"Reptoids") // v-them mundane bad guys ("the Illuminati"/"the Black // Lodge') Start: S; #include <stdmap.pbi> #include <format.pbi> // rules S: PROLOGUE TITLE(title>upcase) BODY sentence-stream+ PBRK paranoid-sentence-stream+ PBRK // secret-hist-sentence-stream PBRK factoid-paragraph PBRK exhortation EPILOGUE ; title: solution ": " [ "the solution to all " problem-types " problems" | "the end of " evils ] "\n" ; // // Sentences // // sentences revealing the Secret History of the Universe, or part thereof secret-hist-sentence-stream: "All human history was part of a struggle between " benefactors " and " malefactors ". " [ benefactors " came from " ["Sirius"|"the Pleiades"|"the stars"|"Arghata"] ", " [ "bringing with them " [ "the key to " [ "ultimate "|"omniversal "|"cosmic "|""| "universal "|"celestial " ] [ "awareness"|"harmony"|"enlightenment"| "truth" ] | "the secrets of "["time"|"energy"] ] ] ". " ] ; benefactors: v-benefactors<<new-benefactors ; malefactors: v-malefactors<<new-malefactors ; new-benefactors: "the Elohim" | "the Pleadians" | "the Elder Gods" | "the Great White Brotherhood" ; new-malefactors: "the Grays" | ["the Reptoids"|"the Reptilians"] | "the Old Ones" | "the Black Sorcerers" | "the Secret Masters" | "the Illuminati" | "the Secret Underground World Society" ; // paranoid sentences, i.e., those about conspiracies, suppression, etc. paranoid-sentence-stream: they " destroyed " one-who-knew-too-much " because he knew too much. " | one-who-knew-too-much " knew " ["too much"|"all"] " about " solution ["; "|["; that"|". That"] " is why "] they " destroyed him. " | "All " ["books"|"historical accounts"] " were " ["altered"|"rewritten"] " to " ulterior-purpose | "They altered the Bible to " ulterior-purpose | they " don't want anyone to know the " something-of-issue solution [""|" and are willing to "["destroy"|"exterminate"] " anyone who gets in their way as they did " one-who-knew-too-much ] ". " | "They " ["moved the Great Pyramid"|"changed the Great Pyramid's height"] " to destroy its " ["astronomical"|"astrological"|"geometric"|"harmonic"] " alignment. " ; ulterior-purpose: ["hide"|"conceal"] " the " something-of-issue solution ". "; // "the cosmic secret of *", "the truth about *" something-of-issue: cond-upcase([[""|"cosmic "]"truth"]) " about " | cond-upcase([[""|"cosmic "]"secret"]) " of " ; they: v-them<<new-they | new-they ; new-they: "THEY" | "they" | "the Illuminati" | "the Rosicrucians" | "the Knights Templar" | "the Nine Unknown Men" | "the Black Lodge" | "the Secret Masters" | "the Secret Overlords" | "they" | "the Secret Underground " [""|"World "] "Society" | "the Freemasons"; one-who-knew-too-much: "Wilhelm Reich" | "Galileo" | "Giordano Bruno" | "Tesla" ; sentence-stream: simple-statement justification law " is encoded in " ["the Bible"|"the works of Shakespeare"|"the decimal expansion of pi"] ". " | ["" |["Great "["minds"|"men"|"scientists"]|"Eminent researchers"] " throughout history " "(" [eminent ", "]+ " etc.) " " agree that " |"The " ["Aztecs" | "Egyptians" | "Sumerians" | "Atlanteans"] " knew that " ] law " is the " [ "guiding principle of" | "governing law of" | trans-adj " principle behind" ] " " ["all creation" | "the stars" | "all nature" | "the Universe"] [""| " and yet it is virtually " ["unknown"|"unheard of"] ". " [""|"Why is that? "] "This is because it has been " cond-upcase([[""|"ruthlessly "] "suppressed"]) cond-upcase(" throughout history") ] ". " | "ALL modern " ["evils"|"problems"|"social ills"] " stem from the failure to recognise " [""|"and " ["live"|"be governed"] " by "] law ". " ; eminent: "Einstein" | "Newton" | "Tesla" | "Velikovsky" | "Larson" | "Maxwell" | "Galileo" | "Copernicus" ; simple-statement: numeric-analogy(["three"|"four"|"five"|"twelve"]); numeric-analogy(number): "Just as there are " number " " @number>append-things ", there are " number " " @number>append-things ". " ; justification: "This is because of " cond-upcase(law) ". " ; append-things: ".*" -> "$"/"-things" ; three-things: "entities in the Holy Trinity" | "dimensions" | "colours on the flag" // note that this applies to _many_ flags | "component colours in white light" //| "Stooges" ; four-things: "seasons" | "cardinal directions" | "letters in the name of God" | "gospels in the Bible" | "suits in a deck of cards" | "corners of the Earth" | "races of " ["Man"|"humanity"] | "fundamental elements"; five-things: "axioms of Euclid's Geometry" | "fingers on a human hand" | "sides to the pyramid on the US dollar bill" | "days in a working week" | "vowels in the Alphabet" ; seven-things: "days in the week" | "cavities in the human body" | "electrons in a nitrogen atom" | "deadly sins" ; twelve-things: "Apostles" | "hours on a clock" | "inches in a foot" | "months" | "signs of the Zodiac" | "eggs in a dozen" ; // concrete factoids factoid-paragraph: concrete-factoid factoid-consequence ; factoid-consequence: cond-upcase("only") " from this value can one derive the " cond-upcase(["true structure of matter"|"missing mass of the universe" |"true orbits of the planets"|"universe's missing day"]) ". "; concrete-factoid: number-name " is " bogus-number ". " | "the true " [""|"hidden "|"suppressed "] "value of pi is 3." ["0"|"1"|"2"|"3"|"4"|"5"|"6"|"7"|"8"|"9"]+ [""|"; all mathematics textbooks have been " ["altered"|"rewritten"|"changed"]" to "["hide"|"conceal"] " this"] ". " ; number-name: "the " cond-upcase([["cosmic"|"universal"] " " law-adj " constant"]); bogus-number: ["1"|"2"|"3"|"4"|"5"|"6"|"7"|"8"|"9"] ["0"|"1"|"2"|"3"|"4"|"5"|"6"|"7"|"8"|"9"]* [""|"." [["0"|"1"|"2"|"3"|"4"|"5"|"6"|"7"|"8"|"9"]+]+ ] ; // // Exhortations and the like // exhortation: cond-upcase([[ "End " evils ] " -- " imperative]) | "Achieve " achievements " " [ "now" | "today" ] "! " "Just follow these " {num_steps=3..5; step=1} $num_steps " easy steps.\n" %repeat(step,num_steps) ["" | "IT'S THAT EASY!" | "NOTHING COULD BE SIMPLER!"] ; step: $step ". " [ ["Adopt"|"Learn"|"Memorise"] " " solution "." | [["Adopt"|"Accept"] " " solution " as"| "Make " solution | "Let " solution " be" ]" your guide." | "Reject the " cond-upcase(evil-adj) [""|" and " cond-upcase(evil-adj)] " doctrine of " ["evolution"|"the spherical Earth"|"Minimum Message Length" |"Freudian psychology"|"relativity"|"capitalism"] "." | "Turn away from " ["the "|"Satan's "] "international " ["money power"|"media brainwashing " ["empire"|"cartel"]]"." ] "\n" { step=step+1 } ; evil-adj: "evil" | "immoral" | "Satanic" | "sinful" ; imperative: "adopt " [ solution | long-solution ] " now! " ; long-solution: "government based on " solution ; problem-types: problem-type ", " problem-type " and " problem-type ; problem-type: "economic" | "political" | "financial" | "health" | "energy" | "sexual" | "spiritual" ; achievements: achievement | [ achievement ", " ] + achievement " and " achievement | [ achievement ", " ] "etc. " ; achievement: ["immeasurable wealth" | "untold riches" ] | [ "ultimate " | "" ] achievement-2; achievement-2: "enlightenment" | "omniversal awareness" | "sexual attractiveness" | "cosmic power" ; evils: evil ", " [ evil ", " ] + "etc."; evil: "wars" | "unemployment" | "racism" | "poverty" | "famine" | "violence" | "disease" | "drug addiction" | "overpopulation" | "pollution" ; solution: theory-name " " [ "physics" | "theory" ] | law | law ; law: v-law-1<<new-law | v-law-2<<new-law | v-law-1<<new-law | v-law-2<<new-law | new-law ; new-law: ["the law of " law-name|"the LAW of " law-name>upcase] | "the " ["" | trans-adj " "] "principle of " law-name | "the " ["" | trans-adj>upcase " "] "principle of " law-name>upcase | ["God's"|"Nature's"] " law of " law-name | law-adj " law" // not strictly laws per se, but similar enough grammatically | "the cycle of " law-name ; // transcendental adjectives: "the * principle of Universal Normalisation" trans-adj: "cosmic" | "divine" | "eternal" | "fundamental" ; // laws: "the law of *" law-name: law-adj " " law-subject | law-adj " " law-subject | law-adj "-" law-adj " " law-subject ; law-adj: [""|""|"electro-"]["volumetric" | "atomic" | "harmonic" | "universal" | "cosmic" | "psychic" | "consciousness" | "natural" | "time" | "temporal" ] ; law-subject: "normalisation" | "equivalence" | "justice" | "totality" | "duality" | "truth" | "compensation" | "equality" ; // theory names: "* physics" theory-name: ["resonation" | "vibrational"] | theory-adj " " theory-subject " " theory-modality | theory-adj " " theory-modality ; theory-adj: "unified" | "resonating" | "harmonic" | "cosmic" | "total" | "universal" | "quantum" ; theory-subject: "reality" | "energy" | "gravity" ; theory-modality: "field" | "wave" | "vector" | "matrix" | "totality" ; // utility rules cond-upcase(foo): foo | foo>upcase | foo | foo>upcase ;
legal.pb
// legal.pb // legalese generator // v1.1 mitch 19-2-96 legal: statement>upcase-first ; statement: [qualification ", " | ""] [condition | "" ] pronouncement [", " qualification | ""] "." ; // convert the first character of a string to its uppercase equivalent %trans upcase-first: ".*": 0 u ; ; thin: [thing | things] ; things: "eligible telecommunications carriers" | "exempt telecommunications companies" | "broadcast services" | "special provisions concerning " thin | "broadcast license renewal procedures" | "automated ship distress and safety systems" | "restrictions on " thin | "over-the-air reception devices" | "cable services" | "navigation devices" | "telecommunications services" | "video programming services provided by telephone companies" | "unnecessary Commission regulations and functions" ; thing: "broadcast spectrum flexibility" | "broadcast ownership" | "term of licenses" | "direct broadcast satellite service" | "Cable Act reform" | "cable service provided by telephone companies" | "preemption of " thin | "franchising authority regulation of " thin | "local exchange carrier" | "telecommunications services" | "competitive availability of " thin | "video programming accessibility" | "regulatory forbearance" | "elimination of " thin | "unnecessary Commission regulations and functions" ; condition: "whenever in this Act " section " is expressed in terms of " section ", " ; section: "an amendment or repeal" | "an amendment to, or repeal of, a section or other provision" | "a section or other provision of the Communications Act of 1934 (47 U.S.C. 151 et seq.)" | "section 3 of the Communications Act of 1934 (47 U.S.C. 153)" ; pronouncement: "the reference shall be considered to be made to " section | "the terms used in this Act have the meanings provided in section 3 of the Communications Act of 1934 (47 U.S.C. 153)" | term | amend | gen-duty ; qualification: "except as otherwise expressly provided" | "except as otherwise provided in this Act" | "as amended by this section" ; term: "the term `" thin "' " meaning ; meaning: "has the meaning given such term in section 602" | "means " definition ; definition: "equipment employed on the premises of a person (other than a carrier) to originate, route, or terminate telecommunications" | "that a person that is not an affiliate of a " thing " is able to provide " things " in such a manner that customers have " power | " a local exchange carrier operating entity to the extent that such entity:" act "; " act "; or " act "." | " any provider of telecommunications services, except that such term does not include aggregators of telecommunications services (as defined in section 226)." ; power: "the ability to route automatically, without the use of any " thing ", their " things " to the " thing " of the customer's designation from among 2 or more " things " (including such " thing ")" ; also: "Such term also includes features, functions, and capabilities that are provided by means of such facility or equipment, including subscriber numbers, databases, signaling systems, and information sufficient for billing and collection or used in the transmission, routing, or other provision of a telecommunications service." ; amend: "Section 3 (47 U.S.C. 153) is amended:" amending ; amending: " " amend2 | " " amends "; and " amend2 ; amends: " " amend2 "; " amends | " " amend2 "; " amends | " " amend2 "; " amends | " " amend2 "; " amends | " " amend2 "; " amends | " " amend2 ; amend2: "in subsections (e) and (n), by redesignating clauses (1), (2), and (3), as clauses (A), (B), and (C), respectively" | "in subsection (w), by redesignating paragraphs (1) through (5) as subparagraphs (A) through (E), respectively" | "in subsections (y) and (z), by redesignating paragraphs (1) and (2) as subparagraphs (A) and (B), respectively" | "by redesignating subsections (a) through (ff) as paragraphs (1) through (32)" | "by indenting paragraphs (1) through (32) 2 em spaces" | "by changing the first letter of each defined term in such paragraphs from a capital to a lower case letter (except for `United States', `State', `State commission', and `Great Lakes Agreement')" | "by reordering such paragraphs and the additional paragraphs added by subsection (a) in alphabetical order based on the headings of such paragraphs and renumbering such paragraphs as so reordered" | "in section 225(a)(1), by striking `section 3(h)' and inserting `section 3'" | "in section 332(d), by striking `section 3(n)' each place it appears and inserting `section 3'" | "in sections 621(d)(3), 636(d), and 637(a)(2), by striking `section 3(v)' and inserting `section 3'" ; place: "any incorporated place of 10,000 inhabitants or more, or any part thereof, based on the most recently available population statistics of the Bureau of the Census" | "any territory, incorporated or unincorporated, included in an urbanized area, as defined by the Bureau of the Census as of August 10, 1993" ; fashion: " for the transmission and routing of telephone exchange service and exchange access" | " at any technically feasible point within the carrier's network" | " that is at least equal in quality to that provided by the local exchange carrier to itself or to any subsidiary, affiliate, or any other party to which the carrier provides interconnection" | " on rates, terms, and conditions that are just, reasonable, and nondiscriminatory, in accordance with the terms and conditions of the agreement and the requirements of this section and section 252" ; act: " provides common carrier service to any local exchange carrier study area that does not include either: " place "; or " place | " provides telephone exchange service, including exchange access, to fewer than 50,000 access lines" | " provides telephone exchange service to any local exchange carrier study area with fewer than 100,000 access lines" | " has less than 15 percent of its access lines in communities of more than 50,000 on the date of enactment of the Telecommunications Act of 1996" ; amend4: " A telecommunications carrier shall be treated as a common carrier under this Act only to the extent that it is engaged in providing telecommunications services, except that the Commission shall determine whether the provision of fixed and mobile satellite service shall be treated as common carriage." ; gen-duty: "each telecommunications carrier has the duty: " duties ; duties: [ ["not" | ""] duty | ["not" | "" ] duty fashion] | dutylist "; and " [ ["not" | ""] duty | ["not" | "" ] duty fashion] ; dutylist: dutylist "; " [ ["not" | ""] duty | ["not" | "" ] duty fashion] | dutylist "; " [ ["not" | ""] duty | ["not" | "" ] duty fashion] | dutylist "; " [ ["not" | ""] duty | ["not" | "" ] duty fashion] | dutylist "; " [ ["not" | ""] duty | ["not" | "" ] duty fashion] | dutylist "; " [ ["not" | ""] duty | ["not" | "" ] duty fashion] | [ ["not" | ""] duty | ["not" | "" ] duty fashion] ; duty: " to interconnect directly or indirectly with the facilities and equipment of other telecommunications carriers" | " to install network features, functions, or capabilities that do not comply with the guidelines and standards established pursuant to section 255 or 256" | " to prohibit, and not to impose unreasonable or discriminatory conditions or limitations on, the resale of its telecommunications services" | " to provide, to the extent technically feasible, number portability in accordance with requirements prescribed by the Commission" | " to provide dialing parity to competing providers of telephone exchange service and telephone toll service" | " to permit all providers to have nondiscriminatory access to telephone numbers, operator services, directory assistance, and directory listing, with no unreasonable dialing delays" | " to negotiate in good faith in accordance with section 252 the particular terms and conditions of agreements to fulfill the duties described in paragraphs (1) through (5) of subsection (b) and this subsection" | " to provide, for the facilities and equipment of any requesting telecommunications carrier, interconnection with the local exchange carrier's network" ; ==== postmodern.pb ==== <code> // pomo.pb acb ??-09-24 AU // pb script for generating postmodern verbiage // Updated, format-independent version // Copyright (C) 1995, 1996 Andrew C. Bulhak // this script is property of acb. You are permitted to use, modify and // distribute it as long as this notice is retained and any modifications // in distributed copies are clearly denoted. // if we're using troff, we want two columns #define TROFF_2COLUMN #include <stdmap.pbi> #include <format.pbi> // global variables used: // v-citable name of artist who is cited throughout text // v-subject, v-subject-2 a noun about which this rant is (i.e., a term) // v-subject-3 as above, but changes in each section // mappings start here // trim trailing 'e's from word. Used when deriving "deconstructivist" from // "deconstructive", for instance. trim_e: ".*e$" -> "e$"/"" ; strip_the: ".*" -> "^[Tt]he "/"" ; // make an artist's name into the symbol representing his/her works make_cite: ".*" -> "$"/"-works" ; make_concepts: ".*" -> "$"/"-concepts" ; pluralise: ".*y$" -> "y$"/"ies" ".*s$" -> "$"/"es" ".*" -> "$"/"s" ; past-tensify: ".*e" -> "$"/"d" ".*" -> "$"/"ed" ; // production rules start here // // rules with names preceded with p- are parametric versions of other rules; // they accept parameters (usually for important elements) //test: p-sentence-about-concept("foo") ; output: PROLOGUE TITLE(title>upcase-first) formatted-authors BODY sections EPILOGUE ; title: title2>upcase-first | candid-title ": " title2>upcase-first ; title2: v-subject<<new-term " in the works of " v-citable=citable-artist | v-subject<<new-term " in the works of " artist | v-subject-2<<new-term " in the works of " v-citable=citable-artist | p-two-term-title(v-subject<<new-term v-subject-2<<new-term) | p-two-term-title(v-subject<<ideology v-subject-2<<new-term) | p-two-term-title(v-subject<<art-movement v-subject-2<<new-term) | p-three-term-title(v-subject<<art-movement v-subject2<<ideology new-term) ; // a "foo and bar" title p-two-term-title(foo bar): foo " and " bar | bar " and " foo ; p-three-term-title(foo bar baz): foo ", " bar " and " baz | foo ", " baz " and " bar | bar ", " foo " and " baz | bar ", " baz " and " foo | baz ", " foo " and " bar | baz ", " bar " and " foo ; candid-title: doing-something-to>upcase-first " " intellectual | adj>upcase-first " " abst-noun>pluralise>upcase-first | "The " concrete-adj>upcase-first " " concrete-noun>upcase-first | "The " something-of-2>upcase-first " of " big-nebulous-thing>upcase-first | "The " something-of-2>upcase-first " of " big-thing>upcase-first | "The " big-nebulous-thing>upcase-first " of " something-of-2>upcase-first | big-nebulous-thing>pluralise>upcase-first " of " something-of-2>upcase-first | doing-something-to-movement>upcase-first " " art-movement>upcase-first ; concrete-adj: "vermillion" | "circular" | "broken" | "forgotten" | "stone" | "iron" | "burning" ; // symbolic-type objects concrete-noun: "door" | "fruit" | "key" | "sky" | "sea" | "house" ; doing-something-to: "reading" | "deconstructing" | "forgetting" ; doing-something-to-movement: "reinventing" | "deconstructing" | "reassessing" ; formatted-authors: authors ; authors: authors author | author | author ; //author: ".AU\n" name "\n.AI\n" department ", " acad-institution "\n" ; author: AUTHOR_INST(name [department ", " acad-institution]); // department department: "Department of " dept-topic ; dept-topic: "English" | "Literature" | "Politics" | "Sociology" | "English" | "Literature" | "Politics" | "Sociology" | // political correctness here "Gender Politics" | "Peace Studies" | "Future Studies" | // slightly silly, perhaps "Ontology" | "Semiotics" | "Deconstruction" | "Sociolinguistics" ; // institutions from whence authors come; biased towards computer-science-type // institutions ;-) acad-institution: "Massachusetts Institute of Technology" | "Stanford University" | "Carnegie-Mellon University" | "University of California, Berkeley" | "University of Illinois" // but who could forget Doctress Fruitopia's alma mater..... | "University of Massachusetts, Amherst" | "University of " university-of | "University of " university-of | something-university " University" | something-university " University" // ...and, of course.... | "Miskatonic University, Arkham, Mass." ; university-of: "California" | "Illinois" | "Georgia" | "Massachusetts" | "Michigan" | "North Carolina" | "Oregon" ; something-university: "Oxford" | "Harvard" | "Cambridge" | "Yale" ; sections: sections section | sections section | section ; //section: "\n.NH\n" section-title>upcase-first "\n.PP\n" paragraphs ; section: SECTION(section-title) PBRK paragraphs ; section-title: term " and " v-subject-3=new-term | v-citable<<citable-artist " and " term | big-nebulous-thing>pluralise " of " something-of-2 ; // stack the odds towards the creation of more text paragraphs: intro-paragraph PBRK paragraphs-2 ; paragraphs-2: paragraphs PBRK paragraph | paragraphs PBRK paragraph | paragraphs PBRK paragraph | paragraph PBRK paragraph "\n\n" paragraph | paragraph PBRK paragraph ; intro-paragraph: intro-sentence paragraph ; paragraph: paragraph sentence | sentence ; sentence: sentence2>upcase-first | preamble>upcase-first sentence2 ; sentence2 : assumption " " implies-that result ". " | intellectual " uses the term '" term "' to denote " concept-desc ". " | justifier "we have to choose between " term " and " term ". " | "the " main " theme of " work " is " concept-desc ". " | intellectual " " promotes " the use of " term " to " imper-vp ". " | plural-numeric-adj " " abst-noun>pluralise abst-description " " exist ". " | sentence-about-citable-artist(v-citable<<citable-artist) | "the subject is " neut-verb>past-tensify " into a " term>strip_the " that includes " big-abst-thing " as a " big-singular-thing ". " // | p-sentence-about-concept(term) ; // sentences especially suited for introductions to paragraphs. p-intro-sent-thing-state(th st): "\"" th>upcase-first " is " st ",\" says " intellectual "; however, according to " foo=generic-surname footnote-cite($foo) ", it is not so much " th " that is " st ", but rather the " something-of " of " th ". " ; intro-sentence: intro-sentence2>upcase-first ; intro-sentence2: "\"" pseudo-quote>upcase-first ",\" says " intellectual ". " | p-intro-sent-thing-state(big-thing state-of-being) | "If one examines " term ", one is faced with a choice: either " accept-or-reject " " term " or conclude that " result ". " | "In the works of " v-citable<<citable-artist ", a predominant concept is " predominant-concept ". " | "the " main " theme of " work " is " concept-desc ". " ; predominant-concept: "the distinction between " foo = dualisable-word " and " $foo>opposite | "the concept of " adj " " big-abst-thing ; // pseudo-quotes; no terminating punctuation. pseudo-quote: big-thing " is " state-of-being ; // we'll be ontologically masturbating in relation to the works of various // artists and "artists" a lot..... sent-about-citable-and-dualism(artist dualism): @artist>make_cite " is about " dualism " where " @artist>make_cite " is about " dualism>opposite ; sentence-about-citable-artist(artist): "the " feature-of " " @artist>make_cite " " is-also-evident-in " " @artist>make_cite adverb-postjustify ". " // | sent-about-citable-and-dualism(artist dualism) | "in " @artist>make_cite ", " artist " " says-something "; in " @artist>make_cite however " " artist " " says-something-else(artist) ". " | justifier "the works of " artist " are " works-state-of-being ". " ; something-about-works: "" | " the use of narrative in" | " the gender roles in" | " the semiotics of" ; works-state-of-being: "postmodern" | "not postmodern" | "modernistic" | "an example of " informal-adj " " ideology | "reminiscent of " artist | "empowering" ; says-something: makes-statement-about " " term ; says-something-else(artist): says-something // | "changes " artist>artist-gender-pronoun " opinion completely, instead concentrating on " term ; makes-statement-about: "affirms" | "denies" | "reiterates" | "deconstructs" | "examines" | "analyses" ; feature-of: dualism-desc " distinction " in-term | "example of " term " " in-term | something-of " of " term " " in-term ; is-also-evident-in: "emerges again in" | "is also evident in" ; in-term: "prevalent in" | "intrinsic to" | "depicted in" | "which is a central theme of" ; adverb-postjustify: "" | ", although in a more " informal-adj " sense" ; work: foo=generic-surname "'s" footnote-cite($foo) work-about " " term | "the works of " v-citable<<citable-artist ; // parametric sentences: a parametric sentence about a concept // an abstract alternative accept-or-reject: "accept" | "reject" ; p-abst-altern(conc): p-abst-altern-2(conc) | p-abst-altern-2(conc) " and consequently " accept-or-reject " that " result ; p-abst-altern-2(conc): accept-or-reject " " idea-source "'s " work-about " " conc ; p-sentence-about-concept(conc): "the " role " has a choice: either " p-abst-altern(conc) " or, alternatively, " p-abst-altern(conc) ". " ; // descriptions of abstract things, like theories and discourses // the general case abst-description: " concerning " term-or-concept-desc ; abst-desc-plural: abst-description | " that includes " ; term-or-concept-desc: term | concept-desc ; plural-numeric-adj: "any number of" | "a number of" | "many" | "an abundance of" | "several" ; // "a number of things *" exist: "exist" | "may be " found ; found: "found" | "discovered" | "revealed" ; promotes: "promotes" | "suggests" ; // imperative verb phrase "use narrative to *" imper-vp: imper-neg-verb " " bogeyman | imper-verb " " big-thing ; // something you want to do to something bad imper-neg-verb: "attack" | "challenge" | "deconstruct" ; imper-verb: imper-verb2 | imper-verb2 " and " imper-verb2 ; imper-verb2: imper-neg-verb | "analyse" | "read" | "modify" ; main-theme-of: main " theme of " | "theme characterizing" ; main: "main" | "primary" | "characteristic" ; // something to ``justify'' a point. justifier: just-name=generic-surname footnote-cite(just-name<<generic-surname) implies-that | "if " term " holds, " ; // a description of a concept concept-desc: "the " something-of " of " adj " " big-thing | "the " something-between " between " big-thing " and " big-thing | p1-concept-desc(abst-noun) | "the role of the " role " as " role | "a " informal-adj " " big-singular-thing ; // parametric concept descriptions, taking a noun p1-concept-desc(thing): "not" in-fact " " thing ", but " modifier-prefix thing | "not " thing per-se", but " modifier-prefix thing ; // redundant smalltalk in-fact: ", in fact, " | "" ; per-se: " as such" | " per se" | ", as " intellectual " would have it" | ", as " term " suggests" | "" ; // modifier prefix; used to modify a word. modifier-prefix: "post" | "neo" | "sub" | "pre" ; something-between: "difference" | "bridge" | "common ground" ; thus: "thus" | "hence" | "therefore" ; something-of: something-of-2 | something-of-2 ", and subsequent " something-of-2 "," | something-of-2 ", and " thus " the " something-of-2 "," | something-of-2 ", and eventually the " something-of-2 "," | something-of-2 ", and some would say the " something-of-2 "," ; something-of-2: "failure" | "futility" | "collapse" | "fatal flaw" | "rubicon" | "stasis" | "meaninglessness" | "absurdity" | "paradigm" | "genre" | "defining characteristic" | "dialectic" | "economy" ; // preamble; redundant preamble to sentence preamble: "however, " | "it could be said that " | "thus, " | "therefore, " | "in a sense, " | "but " ; // redundant word between other words, like "however" however: " " | ", however, " | ", although, " ; // result: "It is stated that *" result: result-2 | result-2 postcondition ; result-2: big-abst-thing is-used-to ends | big-nebulous-thing comes-from source | big-thing optional-adv " has " property | big-abst-or-institution " is " state-of-being | "the " purpose-word " of the " role " is " goal | big-abst-or-institution " is capable of " capability ; result--1: result | "we can assume that " result | intellectual "'s model of " term " is one of \"" new-term "\", and " thus " " state-of-being ; // something that can be used as an assumption: "If * holds", assumption: term | intellectual "'s " work-about " " term | "the premise of " term ; // binary relations relation: " is equal to " | " is distinct from " | " is interchangeable with " ; // value-adjectives "the conceptual paradigm of discourse is *" value-adj: "valid" | "invalid" ; // a primitive condition: "Assuming that *,..." prim-condition: assumption " is " value-adj | big-abst-thing relation big-abst-thing ; // corollary: "...as long as foo is bar*" corollary: "; if that is not the case, " result--1 | "; otherwise, " result--1 | "" ; postcondition: ", given that " prim-condition | ", but only if " prim-condition corollary | "" ; abst-adverb: "fundamentally" | "intrinsically" ; // i.e., "language is *" state-of-being: state-of-being-2 | abst-adverb " " state-of-being-2 | "part of the " something-of-2 " of " big-abst-thing ; state-of-being-2: "impossible" | "meaningless" | "unattainable" | "elitist" | "responsible for " bogeyman | "used in the service of " bogeyman | "a legal fiction" | "dead" ; property: "intrinsic meaning" | "significance" | "objective value" ; // ends: "foo is used to *". Predominantly negative. ends: neg-verb " " victim | pos-neg-verb " " bogeyman ; implies-that: "implies that " | "states that " | "holds that " | "suggests that " ; is-used-to: " is used to " | " serves to " | " may be used to " ; comes-from: " comes from " | " must come from " | " is a product of " | " is created by " ; source: "communication" | "the collective unconscious" | "the masses" ; // either give a new term or rehash the old term term: new-term | v-subject<<new-term | v-subject-2<<new-term | v-subject-3<<new-term ; new-term: p-intell-term(intellectual) | adj " " abst-noun | adj " " abst-noun | adj " " adj " theory" | "the " adj " paradigm of " big-nebulous-thing | adj " " ideology ; // term about an intellectual // FIXME: "Foucauldian" instead of "Foucaultist" p-intell-term(i): i"ist " @i>make_concepts ; ideology: "capitalism" | "Marxism" | "socialism" | "feminism" | "libertarianism" | "objectivism" | "rationalism" | "nationalism" | "nihilism" ; art-movement: "surrealism" | "modernism" | "realism" | "social realism" | "socialist realism" | "constructivism" | "expressionism" ; adjectivise-ism: ".*ism" -> "ism$"/"ist" ; self-adj: "referential" | "sufficient" | "justifying" | "supporting" | "falsifying" | "fulfilling" ; // an adjective which may not be used in formal terms informal-adj: adj | "self-" self-adj | "mythopoetical" ; adj: adj2 | modifier-prefix adj2 ; // an adj2 is an adjective which may end with "ist" or not. adj2: "capitalist" | adj3 | adj3>trim_e "ist" | "cultural" | "dialectic" | "textual" ; adj3: "structural" | "semiotic" | "modern" | "constructive" | "semantic" | "deconstructive" | "patriarchial" | "conceptual" | "material" ; // adverbs optional-adv: "" | ", " adv "," ; adv: adv-2 | "perhaps " adv-2 | "somewhat "adv-2 ; adv-2: "paradoxically" | "surprisingly" | "ironically" ; abst-noun: abst-noun2 | "theory" | "discourse" | "narrative" | "de" abst-noun2 ; abst-noun2: "sublimation" | adj3>trim_e "ism" | "construction" | "appropriation" | "materialism" | "situationism" ; // verbs for bad concepts neg-verb: "marginalize" | "exploit" | "oppress" | "disempower" ; pos-verb: "empower" ; neut-verb: "interpolate" | "contextualise" ; // verbs positive to negative concepts pos-neg-verb: "reinforce" | "entrench" ; // victims victim: "minorities" | "the Other" | "the underprivileged" | "the proletariat" ; // bogeymen bogeyman: "capitalism" | "hierarchy" | "the status quo" | "class divisions" | "sexism" | neg-adj " perceptions of " big-thing ; neg-adj: neg-adj1 | neg-adj2 | neg-adj1 ", " neg-adj2 ; neg-adj1: "outdated" | "outmoded" | "archaic" ; neg-adj2: "sexist" | "colonialist" | "elitist" ; work-about: "critique of" | "essay on" | "analysis of" | "model of" ; big-thing: "society" | "class" | big-abst-thing | "sexual identity" ; big-abst-thing: "culture" | "language" | "art" | "reality" | "truth" | "sexuality" | "narrativity" | "consciousness" ; institution: "the Constitution" | "the media" | "academe" | "the law" | "government" | "the State" | "the collective" | "the establishment" ; big-abst-or-institution: big-abst-thing | institution ; // nebulous things: "* is a product of communication" big-nebulous-thing: "reality" | "discourse" | "concensus" | "expression" | "narrative" | "context" ; // "narrativity as a *" big-singular-thing: "reality" | "whole" | "paradox" | "totality" ; // "The discourse of *" abst-concept: "domination" | "difference" ; purpose-word: "purpose" | "goal" | "raison d'etre" | "task" | "significance" ; // roles, "deconstruction is the task of the *" role: "artist" | "observer" | "participant" | "reader" | "poet" | "writer" ; // goals: "the goal of the artist is *" goal: "significant form" | "deconstruction" | "social comment" ; capability: goal | intent-variant | "truth" | "significance" ; intent-variant: "intent" | "intention" | "intentionality" ; // dualities dualisable-word: "opening" | "closing" | "figure" | "ground" | "within" | "without" | "creation" | "destruction" | "masculine" | "feminine" ; opposite: "opening" -> "closing" "closing" -> "opening" "figure" -> "ground" "ground" -> "figure" // I just added reversible mappings "within" <-> "without" "creation" <-> "destruction" "masculine" <-> "feminine" ; i-dualism-desc(word): word "/" word>opposite ; dualism-desc: i-dualism-desc(dualisable-word) ; // names of intellectuals cited in pomo texts intellectual: "Lacan" | "Derrida" | "Baudrillard" | "Sartre" | "Foucault" | "Marx" | "Debord" | "Bataille" | "Lyotard" | "Sontag" ; // authors of books; not major intellectuals AFAIK author: "Lodge" | "Huyssen" | "Cooke" | "Owens" | "Johnston" | "Olsen" | "Giddens" | "Milner" ; // names, randomly generated name: first-name " " generic-surname | first-name " " initial generic-surname | first-name " " initial initial generic-surname | initial first-name " " generic-surname ; // first names, used for making names first-name: // French names "Jean-" jean-suffix | jean-suffix // Germanic names | "Andreas" | "Hans" | "Rudolf" | "Wilhelm" | "Stefan" | "Helmut" | "Ludwig" // generic or English-sounding names | "David" | "John" | "Linda" | "Charles" | "Thomas" | "Barbara" | "Jane" | "Stephen" | "Henry" | "Agnes" | "Anna" | "Paul" | "Catherine" | "Martin" ; jean-suffix: "Michel" | "Luc" | "Jacques" | "Jean" | "Francois" ; // the surnames of people I know (of), used for effect. generic-surname: // random intellectuals ;-) "de Selby" | "Hanfkopf" | "la Fournier" | "la Tournier" | "Hamburger" | // Lovecraftean scholars "von Junz" | "d'Erlette" | "Geoffrey" | "Prinn" | // people from g09, monash.test or the AlphaLab "Bailey" | "Brophy" | "Cameron" | "Humphrey" | "Pickett" | "Reicher" | "Sargeant" | "Scuglia" | "Werther" | "Wilson" // net.crackpots | "McElwaine" | "Abian" | "von Ludwig" // Plutonium's real name | "Parry" | "Drucker" | "Dahmus" | "Dietrich" // a Monash local | "Hubbard" // People from flat-earth, particularly those who helped with the Dada Engine | "Porter" | "Buxton" | "Long" | "Tilton" | "Finnis" ; // Initials initial: "A. " | "B. " | "C. " | "D. " | "E. " | "F. " | "G. " | "H. " | "I. " | "J. " | "K. " | "L. " | "M. " | "N. " | "O. " | "P. " | "Q. " | "R. " | "S. " | "T. " | "U. " | "V. " | "W. " | "Y. " | "Z. " ; initials: initial | initial initial | initial initial initial ; year: "19" decade-digit digit ; decade-digit: "7" | "8" ; digit: "0" | "1" | "2" | "3" | "4" | "5" | "6" | "7" | "8" | "9" ; // publishers publisher: // serious pomo publishers "University of " university-of " Press" | "University of " university-of " Press" | something-university " University Press" | something-university " University Press" // technical publishers | "O'Reilly & Associates" // other | "And/Or Press" | "Loompanics" | "Panic Button Books" | "Schlangekraft" ; // a footnote, in the *roff ms package. opt-ed: "" | "ed. " ; footnote-cite-text(surname): surname ", " initials opt-ed "(" year ") " ITALIC([title "."]) " " publisher; footnote-cite(surname): FOOTNOTE(footnote-cite-text(surname)) ; // sources of quotes, cites, etc. idea-source: intellectual | author | hist-intel ; // intellectuals who are part of the historical landscape hist-intel: "Plato" | "Voltaire" | "Nietzsche" | "Kant" | "Hegel" | "Hume" ; // minor luminaries; those who are significant but not central to pomo // names of artists whose work may be analysed and deconstructed // Citable artists are those whose names can map to rules listing their // works. artist: citable-artist | uncitable-artist ; citable-artist: "Burroughs" | "Joyce" | "Gibson" | "Stone" | "Pynchon" | "Spelling" | "Tarantino" | "Madonna" | "Rushdie" | "Eco" ; uncitable-artist: "Koons" | "Mapplethorpe" | "Glass" | "Lynch" | "Fellini" | "Cage" | "McLaren" ; artist-gender-pronoun: "Burroughs" -> "he" "Joyce" -> "he" "Gibson" -> "he" "Stone" -> "he" "Pynchon" -> "he" "Spelling" -> "he" "Tarantino" -> "he" "Madonna" -> "she" ; possessivify-pronoun: "he" -> "his" "she" -> "her" "it" -> "its" "SHe" -> "hir" ; // works of citable artists Spelling-works: "Beverly Hills 90210" | "Melrose Place" | "Models, Inc." ; Pynchon-works: "Gravity's Rainbow" | "Vineland" | "The Crying of Lot 49" ; Stone-works: "JFK" | "Natural Born Killers" | "Heaven and Earth" | "Platoon" ; Tarantino-works: "Reservoir Dogs" | "Pulp Fiction" | "Clerks" ; Fellini-works: "8 1/2" // I remembered this because the Plan 9 window system is named // after it ; Burroughs-works: "The Naked Lunch" | "The Soft Machine" | "Queer" | "Port of Saints" | "Junky" | "The Ticket that Exploded" | "Nova Express" | "The Last Words of Dutch Schultz" ; Joyce-works: "Ulysses" | "Finnegan's Wake" ; Gibson-works: "Neuromancer" | "The Burning Chrome" | "Mona Lisa Overdrive" | "Virtual Light"; Madonna-works: "Erotica" | "Sex" | "Material Girl" ; Rushdie-works: "Satanic Verses" | "Midnight's Children" ; Eco-works: "The Name of the Rose" | "Foucault's Pendulum" ; // concepts associated with intellectuals Lacan-concepts: "obscurity" ; // add Genet-concepts here Derrida-concepts: "reading" ; Baudrillard-concepts: "simulation" | "simulacra" | "hyperreality" ; Sartre-concepts: "absurdity" | "existentialism" ; Foucault-concepts: /*"panopticon" | */ "power relations" ; Marx-concepts: "capitalism" | "socialism" | "class" ; Debord-concepts: "image" | "situation" ; Bataille-concepts: "`powerful communication'" ; Lyotard-concepts: "narrative" ; Sontag-concepts: "camp";
Libarynth > Main Web > DadaEngine > DadaEngineGrammars 1 - 09 Jan 2002 - 17:57