X-Git-Url: http://git.ieval.ro/?a=blobdiff_plain;f=newspeak.l;fp=newspeak.l;h=0000000000000000000000000000000000000000;hb=2ad76bd43ca4c4bd1ca7dfc5f5e984b7341df7ad;hp=e291f6d9d7b4321c43afe62b59de03dd41401777;hpb=7e3afbbacdd24f8c3fb87599eeda32b977fe6d6c;p=filters.git diff --git a/newspeak.l b/newspeak.l deleted file mode 100644 index e291f6d..0000000 --- a/newspeak.l +++ /dev/null @@ -1,677 +0,0 @@ -%{ -*- Mode:Fundamental -*- -/* - * newspeak.l, version 1.1. - * Lex filter to transform plain English into NewSpeak. - * Copyright (c) 1991 Jamie Zawinski . - * Permission granted for noncommercial use and redistribution. - * - * To compile: - * - * flex newspeak.l - * cc -O -o newspeak lex.yy.c - * rm lex.yy.c - * - * This must be compiled with "flex", not normal "lex". Lex has - * some builtin, unchangable limits which this program exceeds. - * This has been verified to work with flex version 2.3.7, and - * may not work with flex version 2.3.6. - * - * You can get 'flex' by anonymous FTP to prep.ai.mit.edu, or - * anywhere else you get GNU software. - * - * Run this like so: "newspeak < some-text-file | more" - * - * There are some design notes near the end. Suggestions and - * improvements to this code are more than welcome. - * Hail Big Brother! - *--------------------------------------------------------------------------- - */ -#include - -unsigned int fcounter = 0; - -#define Y0 yytext[0] -#define Y1 yytext[1] -#define Y2 yytext[2] -#define Y3 yytext[3] -#define C caseify -#define C1 caseify1 - -#define CAP(string) capstring(0, (string),0) -#define WCAP(string) capstring(Y0,(string),1) - -#define COMP(string1,string2) compstring(0, (string1),(string2),0) -#define WCOMP(string1,string2) compstring(Y0,(string1),(string2),1) - -#define DUMP() printf("%s",yytext) -%} - -%e 8000 -%p 9000 -%n 2000 -%k 3000 -%a 5000 -%o 4000 - -W (([ ]?\n[ ]*)|[ ]|[\"'`]) -ES [.,;:!?/] -EW ({W}|{ES}|"'") - -YOUNG (([Yy]oung|[Ss]mall|[Ll]ittle){W}) -DEAD (([Dd]ead|[Dd]eceased){W}) -THE ([Tt]he{W}?) -ANDOR ({W}(([Aa]nd)|([Oo]r)){W}?) -COLOR (red|green|blue|yellow|cyan|magenta|purple|orange|mauve|pink|turquoise|brown|gr[ae]y) - -%% - -%{ - /****************************** - * PLUSwords * - ******************************/ -%} - -[Qq]uite{EW}/[A-Za-z][A-Za-z] CAP("plus"); -[Rr]ather{EW}/[A-Za-z][A-Za-z][A-Za-z] CAP("plus"); -[Kk]ind{EW}of{EW}/[A-Za-z][A-Za-z][A-Za-z] CAP("plus"); -[Kk]inda{EW}/[A-Za-z][A-Za-z][A-Za-z] CAP("plus"); -[Mm]ore{W}than{W}a{W}(little|bit){W} CAP("plus"); -[Pp]ro- CAP("plus"); - -[Hh]undreds{W}of{W}[Tt]housands | -[Hh]undreds{ANDOR}[Tt]housands | -[Hh]undreds{W}if{W}not{W}[Tt]housands | -[Tt]housands | -[Mm]illions CAP("doubleplusmany"); - -[Dd]ozens CAP("many"); -[Hh]undreds CAP("plusmany"); - -([Bb]right|[Ll]ight|[Ii]ntense){W}/{COLOR} CAP("plus"); -([Dd]im|[Ff]aded|[Dd]ark|[Pp]ale){W}/{COLOR} CAP("plusun"); -([Dd]im|[Ff]aded|[Dd]ark|[Pp]ale) CAP("unlight"); - -[Ee]very DUMP(); -[Vv]ery{W} | -[Rr]eally{W} | -[Tt]erribly{W} | -[Aa]wesome({W})? | -[Aa]wfully{W} CAP("doubleplus"); - -[Ww]hopping{EW} CAP("plusbig"); - -"O.K." | -[Aa]ll({W})?[Rr]ight | -[Oo][Kk][Aa][Yy] CAP("plusgood"); -{W}OK/{W} WCAP("plusgood"); - -([Tt]oo|[Oo]verly|[Tt]hat){W}[Mm]uch CAP("plusmuch"); - -{W}[Bb]ad/{EW} WCAP("ungood"); -{W}[Pp]oor/{EW} WCAP("ungood"); -{W}[Ll]ame/{EW} WCAP("ungood"); -{W}[Pp]itiful/{EW} WCAP("ungood"); -{W}[Nn]asty/{EW} WCAP("plusungood"); -{W}[Hh]orrid/{EW} WCAP("doubleplus ungood"); -{W}[Hh]orrible/{EW} WCAP("doubleplus ungood"); -{W}[Aa]wful/{W} WCAP("doubleplus ungood"); -{W}[Ee]vil/{W} WCAP("doubleplus ungood"); - -%{ - /****************************** - * Titles * - ******************************/ -%} - -{W}[Ss]ir/{EW} WCAP("citizen"); -{W}[Mm]r"."/{EW} WCAP("brother"); -[Mm]ister/{EW} CAP("brother"); -[Mm]adame? CAP("sister"); -{W}[Mm]iss/{EW} WCAP("sister"); -[Mm]a"'"?am/{EW} CAP("sister"); -{W}[Mm]r?s"."/{EW} WCAP("sister"); -Mrs/{EW} CAP("sister"); - -{YOUNG}?[Cc]hildren CAP("young citizens"); -{YOUNG}?[Bb]oys{ANDOR}[Gg]irl/s CAP("young citizens"); -{YOUNG}?([Kk]id|[Gg]irl|[Bb]oy|[Cc]hild)/{EW} CAP("young citizen"); - -[Ff]ellow CAP("citizen"); - -[Nn]on{W}?"-"?citizen CAP("unperson"); -[Nn]on{W}?"-"?member CAP("unperson"); -[Cc]riminal/s? CAP("unperson"); -{DEAD}(man|woman) CAP("unperson"); -{DEAD}(men|women) CAP("unpersons"); - -[Ii]n{W}[Pp]erson DUMP(); - -{W}[Uu]ser WCOMP("party ","worker"); -[Ss]tudent COMP("party ","worker"); -[Cc]itizen/s?{EW} COMP("party ","worker"); -[Pp]erson/s?{EW} COMP("party ","worker"); -[Pp]eople COMP("party ","workers"); - -[Ss]enator | -[Cc]ongressman | -[Ss]upervisor | -[Pp]rofessor printf("Inner Party Member"); -[Pp]rof"."/{EW} printf("Inner Party Member"); -[Pp]rof/{EW} printf("Inner Party Member"); - -Representative/s? printf("Inner Party Member"); -representatives printf("Inner Party Members"); - -[Ww]hite{W}[Cc]ollar | -[Uu]pper{W}[Cc]lass COMP("inner ","party"); -[Mm]iddle{W}[Cc]lass CAP("party"); -[Bb]lue{W}[Cc]ollar | -[Ww]orking{W}[Cc]lass | -[Ll]ower{W}[Cc]lass CAP("prole"); -([Ff]ool|[Ii]diot)/s?{EW} CAP("prole"); -[Ss]tupidity CAP("proleness"); - -%{ - /****************************** - * Organizations * - ******************************/ -%} - -[Aa]?{W}([Ww]hite{W}[Hh]ouse|[Gg]ovt\.?|[Gg]overnment){W}([Ss]ource|[Oo]fficial|[Ss]pokes(man|woman|person)) CAP("an Inner Party Member"); -{THE}?[Rr]epublican{W}[Pp]arty COMP("mini","luv"); -{THE}?[Dd]emocratic{W}[Pp]arty COMP("mini","plenty"); - -{THE}?Congress printf("MiniPax"); -{THE}?[Ss]enate printf("MiniPax"); -{THE}?[Hh]ouse{W}[Oo]f{W}[Rr]epresentatives printf("MiniPax"); -{THE}?[Ss]tate{W}[Dd]epartment printf("MiniPax"); -{THE}?[Ss]tate{W}[Dd]ept"."? printf("MiniPax"); -{THE}?[Dd]efen[cs]e{W}[Dd]epartment | -{THE}?[Dd]efen[cs]e{W}[Dd]ept"."? | -{THE}?[Ww]ar{W}[Dd]epartment | -{THE}?[Ww]ar{W}[Dd]ept"."? | -{THE}?[Hh]ouse{W}of{W}[Cc]ommons | -{THE}?Pentagon | -{THE}?[Ff]eds | -{THE}?FCC | -{THE}?D[Oo]D | -{THE}"D."[Oo]".D." | -{THE}?[Ss]ecret{W}[Ss]ervice COMP("mini","luv"); -{THE}?White{W}House | -{THE}?Kremlin printf("MiniTrue"); -{THE}?(CIA|NSA|FBI|MI"-"?5)/{EW} printf("MiniTrue"); -{THE}?("C.I.A."|"N.S.A."|"F.B.I.")/{EW} printf("MiniTrue"); -{THE}?[Aa]rchive/s? COMP("mini","rec"); -{THE}?[Ll]ibrary COMP("mini","rec"); -{THE}?[Ll]ibraries COMP("mini","recs"); - -[Tt]hought{W}[Pp]olice|[Nn]azis? COMP("think","pol"); -[Vv]ice{W}[Ss]quad COMP("sex","pol"); -PMRC|"P.M.R.C." COMP("sex","pol"); - -[Oo]fficer CAP("minister"); - -{THE}?[Dd]epartment{EW}of{EW}. | -{THE}?[Dd]ept"."?{EW}of{EW}. | -{THE}?[Uu]niversity{EW}of{EW}. | -{THE}?[Uu]niv"."?{EW}of{EW}. | -{THE}?[Dd]ept"."?{EW}of{EW}. | -{THE}?([Ss]ub"-"?)?[Cc]omm?itt?ee{EW}(of|on){EW}. | -{THE}?[Ss]chool{EW}of{EW}. { - if ((yytext[yyleng-1] >= 'A') && (yytext[yyleng-1] <= 'Z')) - /* "the school of Law" --> "MiniLaw" */ - printf("Mini%c",yytext[yyleng-1]); - else if ((yytext[yyleng-1] >= 'a') && (yytext[yyleng-1] <= 'z')) - /* "the school of law" --> "MiniLaw" (not "Minilaw") */ - printf("Mini%c",yytext[yyleng-1] - ('a' - 'A')); - /* "the school of 5 things" --> "Ministry of 5 things" */ - else printf("Ministry of %c",yytext[yyleng-1]); - } - -[Dd]epartment | -[Uu]niversity CAP("ministry"); -[Uu]niv"."?/{W} CAP("ministry"); -[Dd]ept"."?/{W} CAP("ministry"); -([Ss]ub"-"?)?[Cc]omm?itt?ee CAP("ministry"); - -{THE}[Pp]roject/{EW} CAP("the Three Year Plan"); -[Oo]ur{W}[Pp]roject/{EW} CAP("our Three Year Plan"); -[Bb]udget printf("Three Year Plan"); -[Pp]roject/{ES} printf("Three Year Plan"); - -{W}({THE}|([aa]{W}))[Pp]roject printf("%cthe Three Year Plan",Y0); - -[A-Za-z]+"'"[Ss]/{W}(law|Law|LAW|book|Book|BOOK|rule|Rule|RULE){EW} printf("Goldstein's"); - -%{ - /****************************** - * Actions * - ******************************/ -%} - -[Ii]n{W}love{EW} CAP("SexCriming"); -[Ll]ove{W}you/{EW} CAP("love Big Brother"); -[Ll]ove{W}me/{EW} CAP("love Big Brother"); - -[Cc]loning | -[Rr]eproduction | -[Cc]elibacy | -[Pp]rocreation COMP("good","sex"); - -[Cc]elibate | -[Pp]rocreate COMP("good","sexwise"); - -[Tt]elevisions? | -TVs? | -[Tt]"."[Vv]"."s? | -[Rr]adios? | -[Nn]ews{W}?[Pp]apers? | -[Jj]ournalism | -[Mm]ovies? | -[Rr]ock{EW}?"-"?(and|"&"|"'"?n"'"?){EW}?"-"?[Rr]oll({W}[Mm]usic)? | -(([Rr]ock|[Cc]lassical|[Ii]ndustrial|[Pp]op|[Dd]ance|[Rr]ap){W})?[Mm]usic | -[Tt]unes | -[Mm]oney | -[Cc]ash | -[Cc]omic{W}[Bb]ooks? | -([Ss]tar{W}?)?[Tt]rek COMP("prole","feed"); - -[Pp]eace{W}[Mm]ovement | -[Pp]eace{W}[Pp]rotest | -[Aa]nti{EW}[Ww]ar | -([Pp]assive{W})?[Rr]esistance | -[Cc]reativity | -[Tt]reason | -[Rr]esearch COMP("crime","think"); -%{ - /****************************** - * Religion * - ******************************/ -%} - -[Jj]esus{W}[Cc]hrist | -[Jj]esus | -{THE}?[Bb]uddh?a | -[Mm]ohamm?ed | -[Mm]artin{W}[Ll]uther{W}[Kk]ing | -J\.?\ ?R\.?\ \"?Bob\"?\ Dobbs printf("doubleplus crimethinker"); - -([Jj]esse{W})?[Hh]elms | -([RrDd]on(ald)?{W})?[Rr]ea?gan | -[Gg]eorge{W}[Gg]uscoria printf("doubleplus goodthinker"); - -[Jj]ewish COMP("crime","thinkwise"); -[Jj]ew | -[Cc]hristian | -[Mm]oslem | -[Bb]uddhist | -[Aa]thiest | -[Aa]gnostic COMP("crime","thinker"); - -[Ff]aith COMP("belly","feel"); - -%{ - /****************************** - * Places * - ******************************/ -%} - -[Ee]ngland|{THE}?[Uu]nited{W}[Kk]ingdom | -({THE}?[Uu]nited{W}[Ss]tates{W}[Oo]f{W})?[Aa]merica | -{THE}?[Uu]nited{W}[Ss]tates|USA|"U.S.A."|[Cc]anada | -[Gg]ermany|[Ii]srael|[Ee]urope printf("Oceana"); - -Iranian|Iraqu?i|Libyan|Russian|African|Egyptian printf("Eurasian"); -Iran|Iraq|Libya|Russia|Africa|Egypt | -([Ss]audi{W})?Arabia|{THE}?Soviet{W}Union printf("Eurasia"); -[Ss]oviet printf("Eurasian"); - -[Cc]hinese|[Jj]apanese|[Tt]aiwanese | -[Pp]hillipino|[Ii]ndian|[Aa]ustralian|[Mm]exican | -[Nn]icaraguan|[Ss]alvadori?an printf("Eastasian"); -China|[Jj]apan|[Tt]aiwan|{THE}?[Pp]hillipines|[Ii]ndia | -[Aa]ustralia|[Mm]exico|[Nn]icaragua|[Ee]l{W}[Ss]alvador printf("Eastasia"); - -[Kk]uwaiti printf("Eurasian"); -[Kk]uwait printf("The Malabar Front"); - -%{ - /****************************** - * Miscelaneous Translations * - ******************************/ -%} - -{W}[Ff]aster WCAP("plus speedful"); -{W}[Ss]lower WCAP("plus unspeedful"); -{W}[Ff]ast WCAP("speedful"); -{W}[Ss]low WCAP("unspeedful"); - -[Mm]odern CAP("plusnew"); -[Aa]ncient CAP("plusunnew"); -{W}old/{W} WCAP("plusunnew"); - -[Hh]appiness CAP("joyfulness"); -[Hh]appy CAP("joyful"); -[Qq]uick CAP("speedful"); -{W}[Ss]peedy WCAP("speedful"); -[Hh]eavy CAP("weightful"); -[Hh]eavill?y CAP("weightfully"); -[Ss]ick(ly)? CAP("unhealthful"); - -[Gg]ross | -[Ss]ickening | -[Ff]oul | -[Pp]utrid | -[Dd]isgusting COMP("crime","thinkful"); - -[Ss]mash | -[Cc]rush | -[Oo]bliterate | -[Aa]nnihilate | -[Nn]eutralize | -[Dd]emolish | -[Dd]estroy CAP("unbuild"); - -[Ii]nanimate CAP("unlifeful"); -[Ss]ociety|[Cc]ulture printf("IngSoc"); -[A-Za-z]+isi?m/{EW} printf("Goldsteinism"); -[A-Za-z]+ist/{EW} printf("Goldsteinist"); - -{W}[Dd]ead WCAP("unlifeful"); -{W}[Dd]eath WCAP("unlife"); -{W}[Ll]ie WCAP("untruth"); -{W}[Ff]alsehood WCAP("untruth"); -{W}[Mm]istake/{EW} WCAP("untruth"); -{W}[Ww]hisper WCAP("unshout"); -{W}[Pp]roud WCAP("prideful"); - -[Ff]alse CAP("untrue"); -[Dd]ark CAP("unlight"); -[Bb]lack CAP("unwhite"); -[Ff]orbidden CAP("unallowed"); -[Ff]orbid CAP("unallow"); -[Ff]ailure CAP("unsuccess"); -[Ff]ail/{EW} CAP("unwin"); - -[Ss]tatistics?/{EW} CAP("propaganda"); -{W}[Aa]n{W}[Aa]nn?ouncement WCAP("a NewsFlash"); -[Aa]nn?ouncement printf("NewsFlash"); -[Ii]nstructions? printf("B. B. DayOrder"); - -[Aa]lmost|[Nn]early CAP("within measurable distance of"); -[Ff]unny CAP("humorful"); - -[Dd]oom CAP("unsave"); -[Cc]haos CAP("unorder"); -[Cc]haotic CAP("unorderful"); -[Ee]nslaved CAP("protected"); -[Ee]nslave CAP("protect"); -[Dd]angerous CAP("unsafewise"); -[Dd]anger CAP("unsafe"); -([Bb]lind{W})?[Oo]bedience COMP("ing","soc"); -\"?[Nn]ew{W}[Ww]orld{W}[Oo]rder\"? printf("IngSoc"); - -[Pp]rivacy | -[Ii]ndividuality COMP("own","life"); - -IMHO printf("for the love of Big Brother"); - -[Ee]motion(al|s)? | -[Cc]onviction | -[Bb]elie(f|ve) | -[Aa]ccept(ance)? COMP("belly","feel"); - -[Dd]emocracy | -[Ll]iberty | -[Ff]reedom | -[Jj]ustice | -{THE}?[Aa]merican{W}[Ww]ay | -[Ss]ubversion | -[Pp]assion COMP("crime","think"); - -[Oo]bscenity | -[Pp]ornography | -[Oo]rgasm | -[Ee]rotica COMP("sex","crime"); -[Ss]exy | -[Oo]bscene | -[Pp]ornographic | -[Ee]rotic COMP("sex","crimeful"); - -[Cc]ritic/s?{W} COMP("crime","thinker"); - -[Ii]nfant{W}[Mm]ortality COMP("inf","mort"); - -[Ff]amilies | -[Pp]arents COMP("family ","units"); -[Mm]other{ANDOR}[Ff]ather | -[Bb]rother{ANDOR}[Ss]ister COMP("family ","unit"); -{W}[Pp]arent/s?{EW} WCOMP("family ","unit"); -[Ff]amily COMP("family ","unit"); - -God/{EW} printf("Big Brother"); -[Pp]res(ident|".")({W}([Bb]ush|[Rr]eagan))? printf("Big Brother"); -[Pp]rime{W}[Mm]inister printf("Big Brother"); - -([Gg][Nn][Uu]{W}([Ee]macs|EMACS){W})?[Gg]eneral{W}[Pp]ublic{W}[Ll]icense printf("NewSpeak Dictionary"); - -(questioning|murder|ass?ass?ination)/{ES} printf("interrogation"); - -[Ss]keptic/{EW} CAP("unperson"); -[Ss]illy CAP("foolhardy"); -{W}[A-Za-z][A-Za-z]?illy DUMP(); -[Ss]outhern|[Ss]outherly CAP("southwise"); -[Nn]orthern|[Nn]ortherly CAP("northwise"); -[Ee]astern|[Ee]easterly CAP("eastwise"); -[Ww]estern|[Ww]esterly CAP("westwise"); -[Pl]leasant CAP("goodwise"); -[Vv]iolent CAP("unpeacewise"); -[Vv]iolence CAP("unpeaceness"); -[Ii]ndifference CAP("uncarefulness"); -[Ii]ndifferent CAP("uncareful"); -[Bb]elly CAP("abdomen"); -[Cc]omic CAP("humorwise"); -{W}[Uu]nless WCAP("lest"); -usually printf("usualwise"); - -[Gg]uerillas COMP("party ","workers"); - -[Ww]ar/{EW} CAP("engagement"); -[Dd]efen[cs]e/{EW} CAP("peace"); -[Ii]nvasion CAP("liberation"); - -%{ - /****************************** - * Syllable Rewriting * - ****************************** - isn't ___ is un___ - not the ___ the un___ - not my ___ my un___ - anti___ un___ (etc...) - ___cally ___wise - ___ally ___wise - ___lly ___wise - ___ly ___wise - ___aic ___wise - ___lic ___wise - ___nnic ___wise - tric ___wise - ___ic ___wise - ous ___ful - ous ___eful - ___less un___ful - - */ -%} - -[Ii]sn"'"t{W}my{W} CAP("is my un"); -[Ii]s{W}not{W}my{W} CAP("is my un"); -[Ii]sn"'"t{W}[Tt]he{W} CAP("is the un"); -[Ii]s{W}not{W}[Tt]he{W} CAP("is the un"); -[Ii]sn"'"t{W}[Ii]n{W}[Tt]he{W} CAP("is in the un"); -[Ii]s{W}not{W}[Ii]n{W}[Tt]he{W} CAP("is in the un"); -[Ii]t"'"?s{W}not{W}[Tt]he{W} CAP("it's the un"); -[Ii]sn"'"t{W} CAP("is un"); -[Ii]s{W}not{W} CAP("is un"); -[Nn]ot{W}[Tt]he{W} CAP("the un"); -[Nn]ot{W}[Mm]y{W} CAP("my un"); -[Nn]ot{W}[Aa]{W} CAP("an un"); -[Nn]ot{W}have{W} CAP("has un"); -[Nn]ot{W}be{W} CAP("be un"); -[Nn]ot{W}[Oo]nly/{W} CAP("unonly"); /* avoid "unonwise" */ - -[Aa]{W}[Nn]ot{W} | -[Aa]{W}[Nn]on"-"? printf("%cn%cun",Y0,Y1); /* "a non_" -> "an un_" */ - -%{ -/* {W}[Nn]ot{W} | */ -%} -{W}[Ii]l"-"?/[a-z][a-z] WCAP("un"); -{W}[Aa]nti"-"? | -{W}[Nn]on"-"? WCAP("un"); - -robably|ventually|[Oo]bvious|[Bb]asic|{W}[Oo]nly|otally | -[Aa]rctic|holic|{EW}ally|{EW}[Aa]pply|{W}[Tt]opic DUMP(); - -{W}([Tt]raf|[Pp]aci|[Ss]peci)fi/c{W} DUMP(); -{W}(ma|tra)gi/c{W} DUMP(); -{W}(pub|cyc|re|fro|gar)li/c{W} DUMP(); -{W}(eth|cli|to)ni/c{W} DUMP(); -{W}(E|cle|met|cit)ri/c{W} DUMP(); -{W}(ch|ep|tr?op|t|mus|stat|att)i/c{W} DUMP(); -{W}only/{W} DUMP(); -{W}[Aa]tlantic DUMP(); - -[ \t\n][drstwDRSTW]ally printf("%c%cally", Y0, Y1); - -[a-z]ically/{W} printf("%cwise", Y0); -[a-z]ally/{W} printf("%cwise", Y0); -[a-z][a-z]lly/{W} printf("%c%cwise", Y0,Y1); -[a-z][a-z][a-z]ly/{W} printf("%c%c%cwise", Y0,Y1,Y2); -[a-z]ical/{W} printf("%cwise", Y0); - -[a-km-qs-z]aic/{EW} printf("%cwise", Y0); /* not laic, raic */ -[a-z]lic/{EW} printf("%clwise", Y0); -[a-z]nnic/{EW} printf("%cnwise", Y0); -[a-z][aeiou]tric/{EW} printf("%c%ctwise", Y0, Y1); -[a-z]tric/{EW} printf("%cwise", Y0); -[a-z]ic/{EW} printf("%cwise", Y0); -[a-z]lly/{EW} printf("%cwise", Y0); -[a-z]ly/{EW} printf("%cwise", Y0); - -[aeiouy][^aeiouy]ous/{EW} printf("%c%cful",Y0,Y1); -[^aeiouy]ous/{EW} printf("%ceful",Y0); -[^e]ous/{EW} printf("%cful",Y0); - -[A-Za-z]+less/{EW} { yytext[yyleng-4] = '\0'; - if (((yytext[1] < 'A') || (yytext[1] > 'Z')) && - (yytext[0] >= 'A') && (yytext[0] <= 'Z')) - yytext[0] = yytext[0] - ('a' - 'A'); - printf("%cn%sful",C('u'), yytext); - } - -". " { printf("%s",yytext); - fcounter &= 15; - if (14 == fcounter++) printf("(fnord) "); - } - -[.,!?]\"([^\n\".!]+[.!])?\n/[\n\t ] printf("%c Hail Big Brother!\"%s",Y0,yytext+1); -\"([.,!?][^\n\".!]+[.!])?\n/[\n\t ] printf("%c Hail Big Brother!\"%s",Y1,yytext+2); - -. printf(yytext); -\n printf("\n"); - -%{ -/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * - * Brief description of Orwell's NewSpeak: - * --------------------------------------- - * Each word was made to serve as noun, verb, adjective and adverb. In - * particular, nouns and verbs were made exactly the same -- hence "think" - * replaced "thought" as a noun (viz. "crimethink" = thought crime, "thinkpol" - * = thought police). Adjectives were formed by adding "-ful" to a noun/verb; - * adverbs were formed by adding "-wise." Hence "speedful" = fast, - * "speedwise" = quickly, "unspeedwise" = slowly. - * - * The decision on which word should be negated was made fairly randomly; - * "dark" could be "unlight," or "light" could be "undark". But in all cases - * the most important objective (aside from ideological restriction) was - * euphony; the words had to be easily pronounceable. - * - * Most verb inflections were made regular; "he thinked," "he goed," "he - * eated"; only the auxiliaries and modals (to be, to have, may, shall, will, - * etc.) were allowed to inflect irregularly. Plurals were also regularized: - * "mans," "oxes," "childs." [This isn't implemented here.] - * - * There were three sets of words. The A vocabulary was for everyday use: - * car, man, red, good, etc. It was restricted to fairly simple words. - * - * The B vocabulary consisted of political/ideological words with very - * complicated connotations. All of the B words were compound words -- - * bellyfeel (blind emotional acceptance of the ideology), oldthink (the way - * of thought before the Revolution), crimethink, Ingsoc, goodsex (intercourse - * solely for the purpose of making babies and with no physical enjoyment on - * the part of the female), sexcrime (any kind of sex but goodsex, including - * sex for its own sake), goodthink (thinking in accordance with Ingsoc), and - * so on. These words were also subject to the modifications mentioned - * above--hence "goodthinker," "goodthinkful," "goodthinkwise." - * - * The C vocabulary consisted of scientific and technical words (though there - * was no longer any word for "science," any connotation it might have being - * subsumed into "Ingsoc"). - * - * Implementing a translator for all of this would be really complicated -- - * I'd need rather extensive lists of the "irregular" words (so they could be - * regularized), as well as lists of politically meaningful words (so they - * could be excised or translated into either "goodthink" or "crimethink," as - * appropriate). Any kind of sexual topic should become "sexcrime" (it being - * unlikely that any talk of sex these days would fit into "goodsex"). - * - * Basically, the reason it's hard is that NewSpeak was intended to *decrease* - * the vocabulary, and subsume complicated ideas into politically correct - * words so that you wouldn't have to understand the ideas anymore; you'd just - * have to emit the right words. So to properly "translate" anything into - * NewSpeak, you have to cut the vocabulary way down. - * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * - */ -%} - -%% -main() -{ - yylex(); - printf("\nHail Big Brother!\n"); -} - - -capstring(firstchar,string,i) - char firstchar, *string; - int i; -{ - if (firstchar != 0) putchar(firstchar); - putchar( (yytext[i] <= 'Z') ? (string[0] - ' ') : string[0]); - printf("%s",string+1); -} - -compstring(firstchar,string1,string2,i) - char firstchar, *string1, *string2; - int i; -{ - capstring(firstchar,string1,i); - capstring(0,string2,i); -} - -_caseify(c,i) - char c; - int i; -{ - if (yytext[i] <= 'Z') return (c - ' '); - else return (c); -} - -caseify(c) - char c; -{ _caseify(c,0); } - -caseify1(c) - char c; -{ _caseify(c,1); }