1 /* GNU Talkfilters
2    Copyright (C) 1998-2003 Free Software Foundation, Inc.
3 
4    This file is part of GNU Talkfilters
5 
6    GNU Talkfilters is free software; you can redistribute it and/or
7    modify it under the terms of the GNU General Public License as
8    published by the Free Software Foundation; either version 2, or (at
9    your option) any later version.
10 
11    This software is distributed in the hope that it will be amusing, but
12    WITHOUT ANY WARRANTY; without even the implied warranty of
13    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
14    General Public License for more details.
15 
16    You should have received a copy of the GNU General Public License
17    along with this software; see the file COPYING.  If not, write to the
18    Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
19 */
20 
21 /*
22 Postmodern feminazi talk
23 Postmodern "feminazi" type talk suitable for writing college papers for
24 various humanities type classes
25 */
26 
27 %option prefix="postmodern_yy"
28 %option outfile="lex.yy.c"
29 %option noyywrap
30 
31 %a 3000
32 %e 3000
33 %p 5000
34 %n 3000
35 
36 %{
37 
38 #include "common.h"
39 #include "talkfilters.h"
40 
41 #define YY_DECL int yylex(gtf_databuf_t *buf)
42 
43 %}
44 
45 WB      [\n\t ]
46 WC	[A-Za-z'0-9]
47 NW	[^A-Za-z'0-9]
48 EOT	\4
49 
50 %%
51 
52 \<(\/)?[A-Za-z][^\>]*\>      gtf_echo(); // don't damage HTML tags
53 
54 [Ww]e/{NW}	 gtf_puts_case("the dysfunctional group");
55 [Tt]hing/{NW}	 gtf_puts_case("phallic-symbol-like weapon");
56 [Hh]elp/{NW}	 gtf_puts_case("assault");
57 [Ss]ex/{NW}	 gtf_puts_case("rape");
58 [Ll]ove/{NW}	 gtf_puts_case("male domination");
59 [Mm]an/{NW}	 gtf_puts_case("the occuppying patriarch");
60 [Ii]t/{NW}	 gtf_puts_case("the semiotic object");
61 [Hh]im/{NW}	 gtf_puts_case("Foucault");
62 [Hh]er/{NW}	 gtf_puts_case("her postfeminist");
63 [Tt]hat/{NW}	 gtf_puts_case("that deconstructed");
64 [Nn]ew/{NW}	 gtf_puts_case("postmodern");
65 [Ss]elf/{NW}	 gtf_puts_case("inner child");
66 [Ii]n/{NW}	 gtf_puts_case("in the penetrated space of");
67 [Bb]lack/{NW}	 gtf_puts_case("postcolonialist");
68 [Ii]s/{NW}	 gtf_puts_case("is semiotically");
69 [Ww]as/{NW}	 gtf_puts_case("was semiotically");
70 [Ww]hite/{NW}	 gtf_puts_case("fascist ruling class");
71 [Aa]lways/{NW}	 gtf_puts_case("always control");
72 [Tt]hin/{NW}	 gtf_puts_case("think genderization");
73 [Nn]ever/{NW}	 gtf_puts_case("never empower");
74 [Ss]mall/{NW}	 gtf_puts_case("male-superior doctrine");
75 [Ll]arge/{NW}	 gtf_puts_case("nymphomanial");
76 [Gg]ood/{NW}	 gtf_puts_case("subliminated homosexuality type");
77 [Bb]ad/{NW}	 gtf_puts_case("absolutist");
78 [Ff]ree/{NW}	 gtf_puts_case("synergism");
79 [Gg]et/{NW}	 gtf_puts_case("acquire intersubjectivity");
80 [Ee]ven/{NW}	 gtf_puts_case("even Jean-Paul Sartre and");
81 [Ff]or/{NW}	 gtf_puts_case("for reevalution of Manichaeanism and");
82 [Ss]he/{NW}	 gtf_puts_case("Susan Faludi");
83 [Hh]e/{NW}	 gtf_puts_case("Ted Kennedy");
84 [Cc]ame/{NW}	 gtf_puts_case("subjugated");
85 [Ff]emale/{NW}	 gtf_puts_case("lesbian");
86 [Mm]ale/{NW}	 gtf_puts_case("paternalistic mutilator");
87 [Mm]oney/{NW}	 gtf_puts_case("power");
88 [Pp]ower/{NW}	 gtf_puts_case("mimetic process");
89 [Dd]aughter/{NW} gtf_puts_case("donna clitoridea");
90 [Ss]on/{NW}	 gtf_puts_case("chauvinistic male");
91 [Mm]y/{NW}	 gtf_puts_case("the objective");
92 [Ff]orm/{NW}	 gtf_puts_case("implicit lyrical form");
93 [Ss]tory/{NW}	 gtf_puts_case("mythos");
94 [Aa]pproach/{NW} gtf_puts_case("seduction-rape");
95 [Aa]sk/{NW}	 gtf_puts_case("empower");
96 [Hh]appy/{NW}	 gtf_puts_case("polarized");
97 [Ww]ords/{NW}	 gtf_puts_case("logos");
98 [Ww]ord/{NW}	 gtf_puts_case("logo");
99 [Oo]ld/{NW}	 gtf_puts_case("counter poetical");
100 [Mm]ade/{NW}	 gtf_puts_case("self-defined");
101 [Bb]elief/{NW}	 gtf_puts_case("penis envy");
102 [Ii]dea/{NW}	 gtf_puts_case("motif");
103 [Tt]hought/{NW}	 gtf_puts_case("formalised image of");
104 
105 .                gtf_echo();
106 \n               gtf_echo();
107 {EOT}		 /* ignore trailing EOT character */
108 
109 %%
110 
111 #ifdef LIBRARY_MODE
112 
113 int gtf_filter_postmodern(const char *input, char *buf, size_t bufsz)
114   {
115   gtf_databuf_t buffer;
116   YY_BUFFER_STATE _yybuf;
117 
118   gtf_strbuf_init(&buffer, buf, bufsz);
119   _yybuf = yy_scan_string(input);
120   yylex(&buffer);
121   yy_delete_buffer(_yybuf);
122   gtf_reset();
123 
124   return(buffer.overflow);
125   }
126 
127 int __gtf_filter_postmodern(const char *input, char *buf, size_t bufsz)
128 {
129   return(gtf_filter_postmodern(input, buf, bufsz));
130 }
131 
132 #else /* LIBRARY_MODE */
133 
134 int main(int argc, char **argv)
135   {
136   gtf_parse_args();
137 
138   yylex(NULL);
139 
140   return(EXIT_SUCCESS);
141   }
142 
143 #endif /* LIBRARY_MODE */
144 
145 /* end of source file */
146