lose the battle, win the war

We'll just support smart quotes because auto-"correcting" clients aren't going away.
rakudo · Feb 23, 2015 · a2a1afb · a2a1afb
1 parent 0966e98
commit a2a1afb
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 0 deletions.
diff --git a/src/Perl6/Actions.nqp b/src/Perl6/Actions.nqp
@@ -6038,7 +6038,9 @@ class Perl6::Actions is HLL::Actions does STDActions {
     }
 
     method quote:sym<apos>($/) { make $<nibble>.ast; }
+    method quote:sym<sapos>($/){ make $<nibble>.ast; }
     method quote:sym<dblq>($/) { make $<nibble>.ast; }
+    method quote:sym<sdblq>($/){ make $<nibble>.ast; }
     method quote:sym<crnr>($/) { make $<nibble>.ast; }
     method quote:sym<qq>($/)   { make $<quibble>.ast; }
     method quote:sym<q>($/)    { make $<quibble>.ast; }

diff --git a/src/Perl6/Grammar.nqp b/src/Perl6/Grammar.nqp
@@ -3442,7 +3442,9 @@ grammar Perl6::Grammar is HLL::Grammar does STD {
 
     proto token quote { <...> }
     token quote:sym<apos>  { :dba('single quotes') "'" ~ "'" <nibble(self.quote_lang(%*LANG<Q>, "'", "'", ['q']))> }
+    token quote:sym<sapos> { :dba('smart single quotes') "‘" ~ "’" <nibble(self.quote_lang(%*LANG<Q>, "‘", "’", ['q']))> }
     token quote:sym<dblq>  { :dba('double quotes') '"' ~ '"' <nibble(self.quote_lang(%*LANG<Q>, '"', '"', ['qq']))> }
+    token quote:sym<sdblq> { :dba('smart double quotes') '“' ~ '”' <nibble(self.quote_lang(%*LANG<Q>, '“', '”', ['qq']))> }
     token quote:sym<crnr>  { :dba('corner quotes') '｢' ~ '｣' <nibble(self.quote_lang(%*LANG<Q>, '｢', '｣'))> }
     token quote:sym<q> {
         :my $qm;
@@ -4611,9 +4613,15 @@ grammar Perl6::QGrammar is HLL::Grammar does STD {
         token escape:sym<' '> {
             <?[']> <quote=.LANG('MAIN','quote')>
         }
+        token escape:sym<‘ ’> {
+            <?[‘]> <quote=.LANG('MAIN','quote')>
+        }
         token escape:sym<" "> {
             <?["]> <quote=.LANG('MAIN','quote')>
         }
+        token escape:sym<“ ”> {
+            <?[“]> <quote=.LANG('MAIN','quote')>
+        }
         token escape:sym<colonpair> {
             <?[:]> <colonpair=.LANG('MAIN','colonpair')>
         }