# EUROPOMO # # A Novelwriting script to generate postmodern essays # about European issues # # Based on the pomo.pb script for the Dada Engine # by Andrew C. Bulhak # # Version 1.2 for html output # (C) 2007 LHOON # European Journal for Postmodern Problems # #// 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. # Modifications to the script include: # * added European universities and institutions # * added more generic surnames # * changed expressions to reflect European themes # * extended number of rules to bring more variation in text # # These changes have been indicated where appropriate. # Syntactic modifications only related to the translation to the # Novelwriting platform have not all been documented however. # Some functionalities (like numbered sections and references) are not documented yet. # They will be in a following version. # Main novelwriting production rule: Start: PROLOGUE TITLE(@upcase_first(title)) AUTHORS ABSTRACT BODY CONCLUSION EPILOGUE ; # # Prologue to generate HTML pages. # PROLOGUE: " \n" " \n" " \n" " \n" "VOICES FROM BRUSSELS: visions for a postmodern Europe \n" " \n" # The keywords used in the article are generated here. # This will be the global variables: #// 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-citable-2 and v-subject-4 have been added here. # They are put where they belong: in the head keyword tag! " \n" # The aim of the page is to allow journal-quality printed output. The following set of # css styles ggives a good approximation of this on most browsers. " \n" " \n" # Here the page starts, with the page header, and the seed reproduced # as "reference number" for later retrieval of the article. " \n" "
\n" "" ; footnote-cite-text(surname): notenum "" | notenum "" ; # put some variety in titles (also short titles only) book-title: title-b | title-b | title-b | candid-title ; title-b: @upcase_first(title-b2) | candid-title ": " @upcase_first(title-b2) ; title-b2: @get(v-subject) " in the " works " of " @get(v-citable) | term " in the " works " of " @get(v-citable) | @get(v-subject) " in the " works " of " @get(v-citable-2) | p-two-term-title(@get(v-subject),@get(v-subject-2)) | p-three-term-title(@get(v-subject),@get(v-subject-2),art-movement) # added ones | @get(v-subject-2) " in the " works " of " @get(v-citable) | @get(v-subject-2) " in the " works " of " @get(v-citable-2) | term " in the " works " of " @get(v-citable-2) | p-three-term-title(@get(v-subject),@get(v-subject-2),@get(v-subject-4)) | p-three-term-title(@get(v-subject),@get(v-subject-2),@get(v-subject-3)) | p-two-term-title(@get(v-subject),@get(v-subject-4)) | p-two-term-title(@get(v-subject),@get(v-subject-3)) | p-two-term-title(@get(v-subject-2),@get(v-subject-3)) | p-two-term-title(@get(v-subject),@get(v-citable)) | term | p-two-term-title(@get(v-subject),@alternative(term,@get(v-subject))) | p-two-term-title(@get(v-citable),term) | p-two-term-title(@get(v-subject-3),@alternative(term,@get(v-subject-3))) ; book-cite: "(" year ") " ITALIC([book-title "."]) " " publisher "\n"; footnote-cite(surname): FOOTNOTE(footnote-cite-text(surname)) ; FOOTNOTE(text): #""@notenum()" " #if you want superscript #if you want brackets " ["@notenum()"] " @noteappend(text) ; #// sources of quotes, cites, etc. # choose preferentials ideasource1: @get(v-citable) | @get(v-citable) | @get(v-citable-2) | @get(v-citable-2) | idea-source ; idea-source: intellectual | author # deleted these for now # | 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 ; # this feature to be implemented yet, provisionally only uncitable ones! citable-artist: uncitable-artist #// "Burroughs" | "Joyce" | "Gibson" #// | "Stone" | "Pynchon" | "Spelling" | "Tarantino" | "Madonna" #// | "Rushdie" | "Eco" ; ; # changed: removed original ones, added others uncitable-artist: #// "Koons" | "Mapplethorpe" | "Glass" | "Lynch" | "Fellini" #// | "Cage" | "McLaren" ; # European politicians "Delors" | "Mitterrand" | "Van Miert" | "Chirac" | "Blair" | "Berlusconi" | "Merkel" | "Prodi" | "Verhofstadt" | "Dehaene" | "Sarkozy" ; #// works of citable artists # This feature remains to be implemented! # # CONCLUSION # # This makes also use of sentences without references. # CONCLUSION: "

Conclusions

" "

" absparagraph BRK absparagraph BRK absparagraph ; # # EPILOGUE # # In the epilogue, we'll first generate the reference list: # EPILOGUE: BRK "

References

\n" "
" "
\n" "
\n" "

VOICES FROM BRUSSELS: visions for a postmodern Europe.

" "

Article reference number: " @get_seed() "
" "Available online at www.europroblem.com

European
Journal for
Postmodern
Problems \n" "
\n" ; # # Some general functions: # BRK: "
\n"; ITALIC(foo): "" foo "" ; # # TITLE # # The first thing we need is a good-sounding title, # constructed with the following rules: # TITLE(t): "

" t "

\n" ; title: @upcase_first(title2) | candid-title ": " @upcase_first(title2) ; title2: @get(v-subject) " in the " works " of " @get(v-citable) # | @get(v-subject) " in the " works " of " artist # | @get(v-subject) " in the " works " of " @get(v-citable-2) | p-two-term-title(@get(v-subject),@get(v-subject-2)) | p-two-term-title(@get(v-subject,ideology),@get(v-subject-2)) | p-two-term-title(@get(v-subject,art-movement),@get(v-subject-2)) | p-three-term-title(@get(v-subject), @get(v-subject-2),art-movement) # added ones | @get(v-subject-2) " in the " works " of " @get(v-citable) # | @get(v-subject-2) " in the " works " of " artist | p-three-term-title(@get(v-subject),@get(v-subject-2),@get(v-subject-4)) | p-two-term-title(@get(v-subject),@get(v-subject-4)) | p-two-term-title(@get(v-subject),@get(v-citable)) ; 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: @upcase_first(doing-something-to) " " intellectual | @upcase_first(adj) " " @upcase_first(@pluralise(abst-noun)) | "The " @upcase_first(concrete-adj) " " @upcase_first(concrete-noun) | "The " @upcase_first(something-of-2) " of " @upcase_first(big-nebulous-thing) | "The " @upcase_first(something-of-2) " of " @upcase_first(big-thing) | "The " @upcase_first(big-nebulous-thing) " of " @upcase_first(something-of-2) | @upcase_first(@pluralise(big-nebulous-thing)) " of " @upcase_first(something-of-2) | @upcase_first(doing-something-to-movement) " " @upcase_first(art-movement) ; # Some words added and/or deleted in these sections!: concrete-adj: "circular" | "broken" | "forgotten" | "iron" | "burning" # deleted # | "vermillion" # | "stone" # added | "European" | "environmental" | "economical" | "global" | "golden" | "linear" ; #// symbolic-type objects concrete-noun: "door" | "key" | "sky" | "sea" | "house" # deleted # | "fruit" # added | "state" | "nation" | "economy" | "environment" | "democracy" | "mobility" | "problem" | "thyristor" ; doing-something-to: "reading" | "deconstructing" | "forgetting" # added | "denying" | "rejecting" | "supporting" | "explaining" | "implementing" ; doing-something-to-movement: "reinventing" | "deconstructing" | "reassessing" # added | "strengthening" | "uniting" | "denying" | "rejecting" | "supporting" | "developing" | "implementing" ; # # AUTHORS # # Generation of authors and their institution. AUTHORS: autors accepted ; # added publication date accepted: "

Accepted for publication: " @today() ".

" ; autors: autors autor | autor ; # added "acname" with authors (prof, dr, etc.) autor: AUTHOR_INST(acname, [department ", " acad-institution]) ; AUTHOR_INST(auth,inst): "

" auth "
" inst "

\n"; # adapted list of departments department: "Department of " dept-topic ; dept-topic: "English" | "Literature" | "Political Sciences" | "Sociology" #// political correctness here | "Gender Studies" | "Peace Studies" | "Future Studies" #// slightly silly, perhaps | "Ontology" | "Deconstruction" | "Sociolinguistics" # deleted # | "Semiotics" # added | "European Studies" | "European Studies" | "European Economic Studies" | "European Law" | "European History" | "European Problems" # | "Phrenology" | "Business Studies" | "European Business" | "Social Engineering" ; #// institutions from whence authors come; biased towards computer-science-type #// institutions ;-) # added European institutes and removed some others # adapted for french ones, etc. acad-institution: "Massachusetts Institute of Technology" | "Stanford University" | "Carnegie-Mellon University" | "University of California, Berkeley" | "University of " university-of | "University of " university-of | "Université de " universityfr-of | something-university " University" # deleted # | "Miskatonic University, Arkham, Mass." # | "University of Massachusetts, Amherst" | univ-name | univ-name ; # added univ-name: "Vrije Universiteit Brussel" | "Katholieke Universiteit Leuven" | "Imperial College" | "European Commission" | "Ecole Nationale d'Administration" | "INSEAD Fontainebleau" | "Université Libre de Bruxelles" | "Pensacola Christian College" | "Suomen Henkilökehä Oy" ; universityof: "Brussels" | "Leuven" ; universityfr-of: "Paris" | "Lille" | "Liège" | "Bordeaux" | "Montréal" ; university-of: # added "Amsterdam" | "Ghent" | "Madrid" | "Rome" | "Stockholm" | "Warsaw" | "Leiden" | "Athens" | "Helsinki" | "Glasgow" | "Chicago" # deleted # | "California" | "Illinois" | "Georgia" | "Massachusetts" # | "Michigan" | "North Carolina" | "Oregon" ; something-university: "Oxford" | "Harvard" | "Cambridge" | "Yale" ; # # ABSTRACT # # The paper starts with an abstract. The sentence used for the abstract # are a subset of the normal rules, with no footnotes as these are normally # not present in an abstract. # ABSTRACT: "

Abstract

\n" "

" absintro-sentence absparagraph BRK absparagraph "

\n" keywords ; absintro-sentence: @upcase_first(absintro-sentence2) ; absintro-sentence2: """ @upcase_first(pseudo-quote) "", " says " " ideasource1 ". " | "If one " examines " " term ", one" has-a-choice " either " accept-or-reject " " term " or " conclude " that " result ". " | "In the " works " of " @get(v-citable) ", " @a_an(predominant) " is " predominant-concept ". " # | "the " main-theme-of work " is " concept-desc ". " | "The " predominant " in the " works " of " @get(v-citable) " can also be " found " with " @get(v-citable-2) ". " ; absparagraph: absparagraph absentence | absentence ; absentence: @upcase_first(absentence2) | @upcase_first(preamble) absentence2 ; absentence2: assumption " " implies-that result ". " | ideasource1 " " uses-the-term " " ITALIC(term) " to denote " concept-desc ". " | ideasource1 " " promotes " the " use " of " ITALIC(term) " to " imper-vp ". " | plural-numeric-adj " " @pluralise(abst-noun) abst-description " " exist ". " # | sentence-about-citable-artist(@get(v-citable)) | "the " subject " is " @past_tensify(neut-verb) " into " @a_an(@strip_the(term)) " " that-includes " " big-abst-thing " as " @a_an(big-singular-thing) ". " | p-sentence-about-concept(term) # | sentence-about-citable-artist(@get(v-citable-2)) ; # # After the abstract, we repeat the global keywords! # keywords: "

Keywords: " @get(v-subject) ", " @get(v-subject-2)", " @get(v-subject-4) ", " @get(v-citable)", " @get(v-citable-2) "

\n" ; # # BODY # # Now we start the article proper. # BODY: sections; SECTION(title): "

" @increment() ". " @upcase_first(title) "

\n" ; sections: sections section section | section section section ; section: sectionset SECTION(section-title) "

" intro-paragraph paragraphs "

" ; # A global variable is defined for each section, and entered as a comment in the html sectionset: "" ; section-title: @get(v-subject-3) " and " @alternative(new-term,@get(v-subject-3)) | @get(v-citable) " and " @get(v-subject-3) | @pluralise(big-nebulous-thing) " of " something-of-2 # added | @get(v-citable-2) " and " term | @get(v-citable-2) " and the " works " of " @get(v-citable) | @get(v-subject-3) " in the " works " of " @get(v-citable) | @get(v-subject-3) " in the " works " of " @get(v-citable-2) | @get(v-subject-2) " and " @get(v-subject-3) | "the " something-of-2 " of " @get(v-subject-3) | @get(v-subject) " and " @get(v-subject-3) # | p-two-term-title(@get(v-subject),@alternative(new-term,@get(v-subject))) # | p-two-term-title(@get(v-subject-2),@alternative(new-term,@get(v-subject-2))) # | p-two-term-title(@get(v-subject-3),@alternative(new-term,@get(v-subject-3))) # | p-two-term-title(@get(v-subject-4),@alternative(new-term,@get(v-subject-4))) ; #// stack the odds towards the creation of more text paragraphs: intro-paragraph BRK BRK paragraphs-2 ; paragraphs-2: paragraphs BRK paragraph | paragraphs BRK paragraph BRK BRK paragraph | paragraphs BRK paragraph | paragraph BRK BRK paragraph BRK paragraph ; intro-paragraph: intro-sentence paragraph ; paragraph: paragraph sentence | sentence ; sentence: @upcase_first(sentence2) | @upcase_first(preamble) sentence2 ; sentence2: # replaced intellectuals with idea-source for more variation assumption " " implies-that result ". " | ideasource1 " " uses-the-term " " ITALIC(term) " to denote " concept-desc ". " | justifier one-has-a-choice-between " " @set(foo,term) " and " @alternative(term,@get(foo)) ". " # changed main-theme-of | "the " main-theme-of " " work " is " concept-desc ". " # changed use | ideasource1 " " promotes " the " use " of " ITALIC(term) " to " imper-vp ". " | plural-numeric-adj " " @pluralise(abst-noun) abst-description " " exist ". " | sentence-about-citable-artist(@get(v-citable)) | "the " subject " is " @past_tensify(neut-verb) " into " @a_an(@strip_the(term)) " " that-includes " " big-abst-thing " as " @a_an(big-singular-thing) ". " | p-sentence-about-concept(term) # added | sentence-about-citable-artist(@get(v-citable-2)) | "the " something-between " of " @get(v-subject) " and " @get(v-subject-3) " is " based-on " the " predominant " of " @get(v-subject-4) ". " # neus | justifier " " result ". " ; # added but not used yet current-subject: @get(v-subject) | @get(v-subject-2) | @get(v-subject-3) | @get(v-subject-4) ; #// sentences especially suited for introductions to paragraphs. p-intro-sent-thing-state(th,st): "\"" @upcase_first(th) " is " st ",\" says " intellectual "; however, according to " @set(foo,generic-surname) footnote-cite(@get(foo)) ", it is not so much " th " that is " st ", but rather the " something-of " of " th ". " ; intro-sentence: @upcase_first(intro-sentence2); intro-sentence2: # idea-source included """ @upcase_first(pseudo-quote) "", " says " " ideasource1 ". " | p-intro-sent-thing-state(big-thing,state-of-being) | "If one " examines " " term ", one" has-a-choice " either " accept-or-reject " " term " or " conclude " that " result ". " | "In the " works " of " @get(v-citable) ", " @a_an(predominant) " is " predominant-concept ". " | "the " main-theme-of work " is " concept-desc ". " | "The " predominant " in the " works " of " @get(v-citable) " can also be " found " with " @get(v-citable-2) ". " ; # rules added for more variation predominant: "predominant concept" | "important issue" | "key concept" | "central idea" | "underlying theory" ; conclude: "conclude" | "state" | "come to the conclusion" ; subject: "subject" | "theme" | "problem" ; various: "various" | "several" | "more than a few" | "some" ; based-on: "based on" | "built upon" | "inspired on" ; examines: "examines" | "studies" | "analyzes" | "interpretes" ; use: "use" | "application" | "utilization" | "deployment" ; uses-the-term: "uses the term" | "uses the expression" | "uses the phrase" | "defines" | "interpretes" ; one-has-a-choice-between: "one has a choice between" | "one should assess" | "a choice is to be made between" | "one should compare" ; says: "says" | "states" | "writes" ; predominant-concept: predominant-concept-2(dualisable-word) | "the concept of " adj " " big-abst-thing ; predominant-concept-2(foo): "the distinction between " foo " and " @opposite(foo) ; #// 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..... dualism2(foo): foo " and " @opposite(foo); sent-about-citable-and-dualism(artist,dualisable-word): # works quotations still to be implemented! # @make_cite(artist) " is about " dualism " where " @make_cite(artist) # " is about " @opposite(dualism) "in the " works " of " artist ", an opposition between " dualism2(dualisable-word) " can be " found ". " # reworked without cite | "the " @set(foo,works) " of " artist " " are-about " " dualisable-word " where " @gender(artist) " " @alternative(works,@get(foo)) " " are-about " " @opposite(dualisable-word) ". " ; sentence-about-citable-artist(artist): # "the " feature-of " " @make_cite(artist) # " " is-also-evident-in " " @make_cite(artist) adverb-postjustify ". " # | # | "in " @make_cite(artist) ", " artist " " says-something "; in " # @make_cite(artist) however " " artist " " says-something-else(artist) # ". " sent-about-citable-and-dualism(artist,dualisable-word) | "in " various " " works ", " artist " both " says-something " and " says-something-else(artist) ". " | justifier "the " works " of " artist " are " works-state-of-being(artist) ". " # reworked without cite | "the " feature-of " the " @set(foo,works) " of " artist " " is-also-evident-in " " @gender(artist) " " @alternative(works,@get(foo)) ". " | "in " @gender(artist) " " @set(foo,works) ", " artist " " says-something "; in " @gender(artist) " " @alternative(works,@get(foo)) however " " artist " " says-something-else(artist) ". " ; something-about-works: "" # deleted | " the use of narrative in" | " the gender roles in" # | " the semiotics of" # added | "the European dimension in" | "the concept of Europe in" | "the policy analysis in" ; # changed to avoid doubles works-state-of-being(foo): "postmodern" | "not postmodern" | "modernistic" | "an example of " informal-adj " " ideology | "reminiscent of " @alternative(idea-source,foo) | "empowering" # added | "European" | "anti-European" | "comparable to " @alternative(idea-source,foo) | "in opposition to the " works " of " @alternative(idea-source,foo) ; says-something: makes-statement-about " " term ; says-something-else(artist): says-something | changes " " @gender(artist) " " opinion " " completely ", instead " concentrating-on " " new-term ; changes: "changes" | "alters" | "transforms" | "adjusts " ; opinion: "opinion" | "point of view" | "perspective" ; completely: "completely" | "fundamentally" | "thoroughly" ; concentrating-on: "concentrating on" | "focusing on" | "contemplating" | "giving attention to" | "deliberating" ; 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: @set(foo,generic-surname) "'s " footnote-cite(@get(foo)) work-about " " term | "the " works " of " @get(v-citable,citable-artist) ; # added rules are-about: "are about" | "cover" | "describe" | "are related to" | "reference to" ; works: works-adj workz ; workz: "works" | "policies" | "doctrines" | "ideologies" | "statements" | "visions" | "thoughts" | "ideas" ; works-adj: "" | "" | "" | "personal " | "political " | "literary " | "scientific " ; #// parametric sentences: a parametric sentence about a concept #// an abstract alternative accept-or-reject: "accept" | "reject" # added | "support" | "defend" | "oppose" | "disallow" | "deny" ; 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) ". " ; # added some more options here has-a-choice: " has a choice: " | " has the following options: " | " can choose: " | " is facing a dilemma: " | " is faced with a choice: " ; #// 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 " " ; that-includes: "that includes" | "encompassing" | "taking into account" | "considering" | "including" | "implementing" ; 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" # added | "discerned" ; 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" # added | "criticize" ; imper-verb: imper-verb2 | @set(foo,imper-verb2) " and " @alternative(imper-verb2,@get(foo)) ; imper-verb2: imper-neg-verb | "analyze" | "read" | "modify" # added | "criticize" | "assess" | "optimize" ; main-theme-of: main " theme of " | "theme characterizing " ; main: "main" | "primary" | "characteristic" # added | "key" | "most important" ; #// something to ``justify'' a point. justifier: @set(just-name,generic-surname) " " footnote-cite(@get(just-name,generic-surname)) implies-that | "if " term " " holds ", " # added ; # added rule holds: "holds" | "is correct" | "is accepted" | "can be sustained" ; #// a description of a concept concept-desc: "the " something-of " of " adj " " big-thing | "the " something-between " between " @set(foo,big-thing) " and " @alternative(big-thing,@get(foo)) | p1-concept-desc(abst-noun) | "the role of the " @set(foo,role) " as " @alternative(role,@get(foo)) | " " @a_an(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" # added | "anti-" | "non" ; something-between: "difference" | "bridge" | "common ground" # added | "discrepancy" | "similitude" ; thus: "thus" | "hence" | "therefore" | "to this effect" ; something-of: something-of-2 | @set(foo,something-of-2) ", and subsequent " @alternative(something-of-2,@get(foo)) ", " | @set(foo,something-of-2) ", and " thus " the " @alternative(something-of-2,@get(foo)) ", " | @set(foo,something-of-2) ", and eventually the " @alternative(something-of-2,@get(foo)) ", " | @set(foo,something-of-2) ", and some would say the " @alternative(something-of-2,@get(foo)) ", " ; something-of-2: "failure" | "futility" | "collapse" | "fatal flaw" | "stasis" | "meaninglessness" | "absurdity" | "paradigm" | "defining characteristic" | "dialectic" | "economy" # deleted # | "rubicon" # | "genre" # added | "development" | "dissemination" | "problem" ; #// preamble; redundant preamble to sentence preamble: "however, " | "it could be said that " | "thus, " | "therefore, " | "in a sense, " | "but " # added | "one may state that " | "research has shown that " | "it is considered common knowledge that " | "it is generally supposed that " ; #// 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 ; # added rule is-capable-of: "is capable of" | "has the possibility of" | "has the potential of" ; result--1: result | "we can assume that " result | idea-source "'s model of " term " is one of " ITALIC([new-term]) ", and " thus " " state-of-being ; #// something that can be used as an assumption: "If * holds", assumption: term | idea-source "'s " work-about " " term | "the premise of " term ; #// binary relations relation: " is equal to " | " is distinct from " | " is interchangeable with " # added | " can be compared to " | " has a relation to " | " prevails on " | " is complementary to " | " has no causal relation with " ; #// value-adjectives "the conceptual paradigm of discourse is *" value-adj: "valid" | "invalid" # added | "sustainable" | "unsustainable" ; #// a primitive condition: "Assuming that *,..." prim-condition: assumption " is " value-adj | @get(v-big-abst-thing,big-abst-thing) relation @alternative(big-abst-thing,@get(v-big-abst-thing)) ; #// corollary: "...as long as foo is bar*" corollary: "; if that is not the case, " result--1 | "; otherwise, " result--1 | "" # added | "; else, " result--1 ; postcondition: ", given that " prim-condition | ", but only if " prim-condition corollary | "" ; abst-adverb: "fundamentally" | "intrinsically" # added | "theoretically" ; #// 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" | "an illusion" | "a vector space" ; 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 " # added | " can be applied to " | " is applicable to " ; comes-from: " comes from " | " must come from " | " is a product of " | " is created by " # added | " is derived from " ; source: "communication" | "the collective unconscious" | "the masses" # added | "the European Parliament" | "national governments" | "member states" ; #// either give a new term or rehash the old term term: new-term | @get(v-subject,new-term) | @get(v-subject-2,new-term) | @get(v-subject-3,new-term) # new | @get(v-subject-4,new-term) ; new-term: p-intell-term(intellectual) | adj " " abst-noun | adj " " abst-noun | @set(foo,adj) " " @alternative(adj,@get(foo)) " " abst-noun # " theory" | "the " adj " paradigm of " big-nebulous-thing | adj " " ideology # added | "acquis communautaire" | "the primacy of politics" ; #// term about an intellectual #// FIXME: "Foucauldian" instead of "Foucaultist" p-intell-term(i):i"ist " @make_concepts(i) ; ideology: "capitalism" | "Marxism" | "socialism" | "feminism" | "rationalism" | "nationalism" | "nihilism" # deleted (not popular in Europe) # | "libertarianism" | "objectivism" # added | "liberalism" | "Europeanism" | "anarchism" | "internationalism" | "environmentalism" | "consumerism" | "criticism" ; art-movement: # deleted to reflect more political issues and equated to ideology # "surrealism" | "modernism" | "realism" | "social realism" # | "socialist realism" | "constructivism" | "expressionism" ideology ; self-adj: "referential" | "sufficient" | "justifying" | "supporting" | "falsifying" | "fulfilling" # added | "colored" | "segmented" ; #// an adjective which may not be used in formal terms informal-adj: adj | "self-" self-adj # deleted # | "mythopoetical" # added # | "European" | "series-excited" | "separately excited" ; adj: adj2 | modifier-prefix adj2 ; #// an adj2 is an adjective which may end with "ist" or not. adj2: adj3 | @trim_e(adj3) "ist" | "cultural" | "dialectic" # deleted # | "textual" # | "capitalist" # (covered under adj3!) # added | "business" | "electric" | "dielectric" | "scientific" | "community" | "democratic" | "mechanic" | "magnetic" | "economic" | "hybrid" | "systemic" | "critical" | "linear" ; adj3: "structural" | "modern" | "constructive" | "deconstructive" | "patriarchial" | "conceptual" | "material" # added | "European" | "industrial" | "environmental" | "consumer" | "fundamental" | "capital" | "liberal" | "mutual" | "sceptic" | "Eurosceptic" # deleted # | "semantic" # | "semiotic" ; #// adverbs optional-adv: "" | ", " adv "," ; adv: adv-2 | "perhaps " adv-2 | "somewhat "adv-2 ; adv-2: "paradoxically" | "surprisingly" | "ironically" # added | "unsurprisingly" # | "effectively" | "strangely" ; abst-noun: abst-noun2 | "theory" | "discourse" | "de" abst-noun2 # deleted # | "narrative" # added | "doctrine" # | "problem" ; abst-noun2: "sublimation" | @trim_e(adj3) "ism" | "construction" | "appropriation" | "materialism" | "situationism" ; #// verbs for bad concepts neg-verb: "marginalize" | "exploit" | "oppress" | "disempower" ; pos-verb: "empower" # added |"enhance" |"strengthen" |"promote" ; neut-verb: "interpolate" | "contextualise" | "integrate" ; #// verbs positive to negative concepts pos-neg-verb: "reinforce" | "entrench" ; #// victims victim: "minorities" | "the underprivileged" | "the proletariat" # added | "the European people" | "the European nations" | "the Third World" | "democracy" | "the citizen" | "the intellectuals" # deleted # | "the Other" ; #// bogeymen bogeyman: "capitalism" | "hierarchy" | "the status quo" | "class divisions" | neg-adj " perceptions of " big-thing # added | "Europe" | "business" | "globalization" | "environmental pollution" | "climate change" | "the European Commission" | "European directives" | "the European constitution" | "political parties" | "acquis communautaire" # deleted | "sexism" ; neg-adj: neg-adj1 | neg-adj2 | neg-adj1 ", " neg-adj2 ; neg-adj1: "outdated" | "outmoded" | "archaic" # added | "obsolete" | "flawed" | "inappropriate" ; neg-adj2: "sexist" # | "colonialist" | "elitist" # added | "nationalist" | "fundamentalist" | "particularist" ; work-about: "critique of" | "essay on" | "analysis of" | "model of" # added | "simulation of" | "study of" | "description of" ; big-thing: "society" | "class" | big-abst-thing # added | "European identity" | "European integration" | "European research" | "business" | "economy" | "environment" | "standardization" | "mobility" | "industry" | "vector control" | "sexual identity" ; big-abst-thing: "culture" | "language" | "truth" | "consciousness" # added | "Europe" | "Europe" | "wellness" | "collaboration" | phreno-faculty ; # add some phreno things! phreno-faculty: "conscientiousness" | "secretiveness" | "amativeness" | "constructiveness" | "cautiousness" | "destructiveness" | "firmness" | "self-esteem" | "approbativeness" | "benevolence" | "causality" | "comparison" | "ideality" | "eventuality" | "locality" | "acquisitiveness" # deleted # | "narrativity" # | "sexuality" # | "art" # | "reality" # (double use with big-nebulous thing) ; institution: "the Constitution" | "the media" | "academe" | "the law" | "government" | "the State" | "the collective" | "the establishment" # added | "the European Commission" | "the Convention" | "the hydrogen economy" | "the European Commission" | "the Parliament" | "the Sixth Framework Programme" | "the Council of Ministers" | "the student body" ; big-abst-or-institution: big-abst-thing | institution ; #// nebulous things: "* is a product of communication" big-nebulous-thing: "reality" | "discourse" | "consensus" | "expression" # deleted | "narrative" # added | "context" | "integration" ; #// "narrativity as a *" big-singular-thing: "reality" | "whole" | "paradox" | "totality" ; #// "The discourse of *" # not used??? abst-concept: "domination" | "difference" ; purpose-word: "purpose" | "goal" | "raison d'être" | "task" | "significance" ; #// roles, "deconstruction is the task of the *" role: "observer" | "participant" | "reader" | "writer" # deleted # | "poet" # | "artist" # added | "politician" | "Parliament" | "decision-maker" ; #// goals: "the goal of the artist is *" goal: "significant form" | "deconstruction" | "social comment" # added | "research" | "policy analysis" | "dissemination" ; capability: goal | intent-variant | "truth" | "significance" ; intent-variant: "intent" | "intention" | "intentionality" ; #// dualities # enter opposite in python part!!!! dualisable-word: "opening" | "closing" | "figure" | "ground" | "within" | "without" | "creation" | "destruction" | "masculine" | "feminine" # added | "federalism" | "regionalism" | "Commission directives" | "member state legislation" | "Europe" | "America" | "standards" | "regulations" # | "direct current" | "alternating current" ; i-dualism-desc(word): word "/" @opposite(word) ; dualism-desc: i-dualism-desc(dualisable-word) ; #// names of intellectuals cited in pomo texts # add gender function for women! intellectual: "Lacan" | "Derrida" | "Baudrillard" | "Sartre" | "Foucault" | "Marx" | "Debord" | "Bataille" | "Sontag" | "Lyotard" # added | "Bush" | "Schuman" | "Thatcher" | "Peukert" ; #// authors of books; not major intellectuals AFAIK author: # deleted # "Lodge" | "Huyssen" | "Cooke" | "Owens" | "Johnston" | "Olsen" # | "Giddens" | "Milner"| # added "Prodi" | "Barroso" | "Berlusconi" | "Chirac" | "Blair" | "Schröder" | "Verhofstadt" | "Dehaene" | "Balkenende" | "Sarkozy" ; #// names, randomly generated acname: op-title name; op-title: "Dr. " |"Prof. " |"" |"Prof. Dr. " |"" |"Dr. " ; name: first-name " " generic-surname | first-name " " generic-surname | first-name " " initials generic-surname | first-name " " initials generic-surname | initial first-name " " generic-surname ; #// first names, used for making names first-name: #// French names "Jean-" jean-suffix | jean-suffix | "Jean" | 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" #added generic names | "Catherine" | "Martin" | "Danny" | "Patrick" | "Ben" | "Richard" | "Samuel" | "Peter" | "Albert" | "Bert" | "Vincent" | "Karin" | "Sarah" | "Frank" # additional names added # Italian names | "Luigi" | "Guido" | "Roberto" | "Carmine" | "Mario" | "Andrea" | "Pietro" | "Gianluigi" | "Paolo" | "Enzo" # Spanish names | "Juan" | "Luis" | "Jose" # Scandinavian names | "Sven" | "Lars" | "Malin" # Flemish names | "Lode" | "Gaston" | "Jan" | "Jef" | "Luc" | "Eddy" | "Willy" | "Joeri" | "Hugo" # Scottish and Irish names | "Iain" | "Sean" | "Siobhan" | "Catriona" | "Hamish" | "Douglas" # Finnish names | "Vesa" | "Arto" | "Sirpa" | "Sari" | "Kari" | "Jorma" ; jean-suffix: "Michel" | "Luc" | "Jacques" | "François" # added | "Pierre" | "Marie" | "Marc" | "Paul" | "André" | "Julien" | "Etienne" | "Philippe" ; #// 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" | "Sergeant" | "Scuglia" | "Werther" | "Wilson" #// net.crackpots | "McElwaine" | "Abian" | "von Ludwig" | "Parry" | "Drucker" | "Dahmus" | "Dietrich" | "Hubbard" #// People from flat-earth, particularly those who helped with the Dada Engine | "Porter" | "Buxton" | "Long" | "Tilton" | "Finnis" # added #// "standard answer" names | "Williams" | "DeSmet" #// Swedish names | "Nyquist" | "Lindeson" | "Dahlgren" | "Lilleström" | "Sjöberg" | "Bergdahl" #// Spanish names | "Morales" | "Martinez" | "Sanchez" | "Garcia" | "Ariola" #// Italian names | "Marzotti" | "Poli" | "Marini" | "Chiapucci" | "Rossi" | "Vega" | "Naso" #// Flemish names | "Mertens" | "Peeters" | "Somers" | "Janssens" | "VanDamme" | "Vermeulen" | "DeWitte" #// some VUB personnel... ;-) | "VanCamp" | "Verelst" | "Rombauts" | "Heymans" | "Vergels" | "Van den Bossche" | "Van Mierlo" | "Timmermans" | "Matheys" | "Elias" | "Vanbeveren" | "Van Hemelrijck" | "Vandenhaute" | "Lataire" | "DeWilde" | "Maggetto" #// generic english and other names | "Smith" | "Walker" | "Stevens" | "Bond" | "Turner" | "Harris" | "Maxwell" | "Latham" | "Brown" | "Smythe" | "Freylinger" | "Laffitte" | "Wesley" #// quebequese names | "Tremblay" | "Lajeunesse" | "Gagnon" | "Ouellette" #// scottish names | "MacLeod" | "Fraser" | "Gordon" |"McLean" | "MacDonald" | "McGlinchey" #// irish names | "Malone" | "O'Keefe" | "Phelan" #// finnish names | "Tuomi" | "Kekkonen" | "Haakana"| "Peltola" | "Halonen" | "Saarinen" |"Seppälä" #//jewish names | "Cohen" ; #// 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 ; #// MODIFIED BY LHOON: period 1990-2004 and not 1970-1989 to make it more contemporary year: "199" digit | "200" new-century-digit; digit: "0" | "1" | "2" | "3" | "4" | "5" | "6" | "7" | "8" | "9" ; new-century-digit: "0" | "1" | "2" | "3" | "4" ; #// publishers # added references from "scholarly journals": publisher: bookpublisher | journalpublisher ; bookpublisher: #// serious pomo publishers "University of " university-of " Press" | "University of " university-of " Press" | universityof " University Press" | something-university " University Press" # added french ones | "Editions de l'Université de " universityfr-of #// technical publishers | "O'Reilly & Associates" #// other (removed by LHOON) #// | "And/Or Press" | "Loompanics" | "Panic Button Books" | "Schlangekraft" #//ADDED BY LHOON | "European Commission" | "International Electrotechnical Commission" | "Office for Official Publications of the European Communities" ; #added journals, some existing, some not journalpublisher: journaltitle journalvol ; journaltitle: "Official Journal of the European Union C" | "Social Text" | "Postmodern Studies" | "IEE Transactions" | "Bulletin of the European Union" | "European Power Electronics and Drives Journal" | "European Business Journal" | "European Political Review" | "European Journal of Political Theory" | "Journal of European Integration History" | "Journal of European Studies" | "Harvard Business Review" ; journalvol: ", Vol. " @randvol() " nr. " @randissue() ", pp." @randpag(); # added "et al. " here opt-ed: "" | " (ed.) " | " et al. " ; # Provide for two authors bookauthor: generic-surname ", " initials opt-ed |@set(foo,generic-surname) ", " initials ", " @alternative(generic-surname,@get(foo)) ", " initials ; notenum: "
["@notenum()"]" surname ", " initials opt-ed book-cite "

" @set(foo,surname) ", " initials ", " @alternative(generic-surname,@get(foo)) ", " initials book-cite "

" @getfoot() "
\n" # # Then follows the epilogue proper, with the appropriate disclaimer and credits. # "

\n" BRK "The EUROPEAN JOURNAL FOR POSTMODERN PROBLEMS is an online publication focusing on all relevant " "problems of philosophy, postmodernism, European and global politics and European integration. " "The Journal can be accessed at www.europroblem.com. " BRK "Contributions are welcomed on the editors' email address: problem@europroblem.com." BRK BRK "This article is part of VOICES FROM BRUSSELS, " "an online collection of algorithm-controlled scholarly articles. " "Names of authors, universities, journals and publishers have been randomly chosen and all " "likeliness to natural persons or existing organisations is purely coincidental. Names of " "well-known politicians, authors and philosophers, as well as publications " "and institutions are used in a merely satirical way, " "with any similarity of random quotations and opinions to actual statements being purely " "coincidental.\n" BRK BRK "The text has been generated through Novelwriting (" "" "unpythonic.net/~jepler/novelwriting), a Python application by Jeff Epler, " "which is a further development of Andrew C. Bulhak's well-known Dada Engine (" "dev.null.org/dadaengine). " "The grammar file used, is an adaptation by EuroProblem of Bulhak's famous Postmodernism Generator " "(www.elsewhere.org/cgi-bin/postmodern/" "), with new words and sentences added, and European policy issues integrated. " "Furthermore, the html code was optimised for journal-style print and display quality. " BRK "© " @year() " EuroProblem. We regret to be unable to accept criticism of any kind." "

" ; # # The pythoncode for implementing functions follows at the end. Many of these functions # had to be written from the original dadascript functions. # ;; import random from novelwriting.calls import get,set, a_an, expand,discard,alternative, \ random_repeat section_num=0 footnum=0 footnotez=[] d={} def gender(foo): foo=str(foo) if foo=="Thatcher": return "her" if foo=="Sontag": return "her" if foo=="Merkel": return "her" return "his" def neusappend(text1,text2): result=[] result.append(str(text1)) result.append(str(text2)) return "".join(result) # # The two following functions are used to generate the reference list # def noteappend(text): global footnotez footnotez.append(str(text)) return "" def getfoot(): global footnotez return "".join(footnotez) def upcase_first(s): s=str(s) return s[0].upper() + s[1:] def ignore(s): str(s) return "" # # Numbering the references: # def notenum(): global footnum return str(footnum) def noteincr(): global footnum footnum=footnum+1 return str(footnum) def increment(): global section_num section_num=section_num+1 return str(section_num) def trim_e(s): s=str(s) if s.endswith("e"): return s[:-1] return s def make_cite(s): s=str(s) return s + "-works" def make_concepts(s): s = str(s) if s=="Derrida": return "deconstruction" if s=="Baudrillard": return "simulation" if s=="Sartre": return "absurdity" if s=="Lacan": return "obscurity" if s=="Foucault": return "power relations" if s=="Marx": return "socialism" if s=="Debord": return "situation" if s=="Bataille": return "powerful communication" if s=="Bush": return "homeland security" # if s=="Sontag": return "camp" if s=="Schuman": return "European integration" if s=="Thatcher": return "privatisation" # if s=="Lyotard": return "narrative" if s=="Peukert": return "capacity" return s + " concepts" def pluralise(s): s = str(s) if s.endswith("y"): return s[:-1] + "ies" if s.endswith("s"): return s + "es" return s + "s" def past_tensify(s): s = str(s) if s.endswith("e"): return s + "d" return s + "ed" def strip_the(s): s=str(s) # if s.startswith("the "): return s[-4:] # if s.startswith("The "): return s[-4:] if s.startswith("the "): return s.lstrip("the ") if s.startswith("The "): return s.lstrip("The ") return s def opposite(s): s=str(s) if s=="opening": return "closing" if s=="closing": return "opening" if s=="figure": return "ground" if s=="ground": return "figure" if s=="within": return "without" if s=="without": return "within" if s=="creation": return "destruction" if s=="destruction": return "creation" if s=="masculine": return "feminine" if s=="feminine": return "masculine" if s=="federalism": return "regionalism" if s=="regionalism": return "federalism" if s=="Commission directives": return "member state legislation" if s=="member state legislation": return "Commission directives" if s=="Europe": return "America" if s=="America": return "Europe" if s=="standards": return "regulations" if s=="regulations": return "standards" if s=="direct current": return "alternating current" if s=="alternating current": return "direct current" return "anti-"+s def adjectivise_ism(s): s=str(s) if s.endswith("ism"): return s[:-3] + "ist" return s def artist_gender_pronoun(s): s=str(s) if s=="Madonna": return "she" if s=="Thatcher": return "she" if s=="Merkel": return "her" return "he" def possissivify_pronoun(s): s=str(s) if s=="he": return "his" if s=="she": return "her" if s=="it": return "its" return s # # Functions to print the date: # def today(): return time.strftime("%B %e, %Y") def year(): return time.strftime("%Y") # # Functions to generate random volume and page numbers for journal references # def randvol(): s=random.randint(3,24) return str(s) def randissue(): s=random.randint(1,12) return str(s) def randpag(): s1=random.randint(1,400) s2=s1+random.randint(8,40) s=str(s1)+"-"+str(s2) return str(s) """ This is the original pomo script for the Dada engine. // 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 #include // 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<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<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<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<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<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"; """