----
{{#t|Contribute to Pugs}}
----
Contribute to {{#x|Pugs}}
向{{#x|Pugs}}贡献
  
☺{{#author|Agent Zhang (章亦春)}}☺
{{#date|2007.6}}
----
{{#x|☺}} {{#ci|What}} is {{#x|Pugs}}?
  
{{#x|什么}}是 {{#t|Pugs}}?
----
Audrey Tang's {{#ci|first}} mail to p6l
for {{#x|Pugs's birth}}
  
唐凤发送到 p6l 的
宣告{{#x|Pugs 诞生}}的{{#ci|第一封}}邮件
----
{{img src="#" width="0" height="0"}}
{{img src="images/first_mail.png" width="812" height="519"}}
----
It's {{#ci|no longer}}
a {{#x|featherweight}} Perl 6.
   
它不再是
轻量级的 Perl 6 了
----
{{img src="images/pugscode.png" width="692" height="540"}}
----
Pugs 是用 {{#ci|Haskell}} 编写的一个 {{#x|Perl 6}} 的实现。
它旨在实现“纲要”定义的{{#ci|整个}} Perl 6 规格。
----
It even {{#ci|runs}}
in your {{#x|web browser}}!
   
它甚至能运行在
你的浏览器中！
----
{{img src="images/runpugs.png" width="1032" height="639"}}
----
...unlike how it was with Perl 5, {{#ci|none}} of these projects
(Pugs, parrot, and others) is designed to be the {{#x|Official Perl}}.
Perl 6 is {{#ci|anything}} that passes the {{#x|official test suite}}.
      
             -- Perl 6 Synopsis 1
   
和 Perl 5 不同的是，这些项目（Pugs, parrot 及其他）
中{{#ci|没有一个}}被设计为{{#x|官方的 Perl 6}}.
任何东西，只要通过了{{#x|官方测试集}}, 都是 Perl 6.
----
{{#x|☺}} {{#ci|Why}} contribute to Pugs?
  
{{#x|为什么}}向 Pugs 贡献？
----
We {{#ci|are}} implementing
{{#x|Perl 6}}!
   
我们{{#ci|正在}}实现{{#x|Perl 6}}!
----
 {{#cm|# Hyper operators}}
 {{#kw|use v6}};
 {{#kw|my}} {{#v|@res}} =
      (1,2,3,4) {{#x|>>}}+{{#x|<<}} (1,2,3,4);
  
 {{#cm|@res now is (2,4,6,8)}}
----
 {{#cm|# Junctions}}
 {{#kw|use v6}};
 {{#kw|if}} {{#v|$num}} == 3 {{#x||}} 7 {{#x||}} 9 {
     {{#cm|# ...}}
 }
  
+ {{#kw|use v5}};
 {{#kw|if}} ({{#v|$num}} == 3 {{#x|||}} {{#v|$num}} == 7 {{#x|||}} {{#v|$num}} == 9) {
    {{#cm|# ...}}
 }
----
  {{#cm|# subroutine signature}}
  {{#kw|use v6}};
  {{#kw|sub}} add ({{#v|$a}}, {{#v|$b}}) {
      {{#v|$a}} + {{#v|$b}};
  }
----
  {{#cm|# modern OO support}}
  {{#kw|use v6}};
  {{#kw|class}} Dog {
      {{#kw|has}} {{#v|$.tail}} {{#kw|is rw}};
      {{#kw|has}} {{#v|@.legs}};
      {{#kw|has}} {{#v|$!brain}};
    
      {{#kw|method}} set_legs ({{#v|@legs}}) {
          {{#v|@.legs}} = {{#v|@legs}};
      }
  }
----
  {{#cm|# Rules and grammars}}
  {{#kw|rule}} {{#v|statement_list}} {
    {{#v|<statement>}}*
  }
  
  {{#kw|rule}} {{#v|statement}} {
    {{#v|<label>}}*
      [
        | {{#v|<statement_control>}}
        | {{#v|<block>}}
        | {{#v|<EXPR>}}
            [{{#v|<statement_mod_cond>}} {{#v|<EXPR>}} ]?
            [{{#v|<statement_mod_loop>}} {{#v|<EXPR>}} ]?
      ]
  }
----
We have the {{#ci|coolest}} {{#x|people}}
in the world.
  
我们拥有世界上最酷的人。
----
{{#x|#perl6}} on {{#t|irc.freenode.net}}
is our {{#ci|room}}!
  
{{#t|irc.freenode.net}} 上的 {{#x|#perl6}}
是我们的房间！
----
{{img src="images/irc-cgi.png" width="1036" height="653"}}
----
  {{#v|<xinming>}} GeJ: Could you ask on {{#ci|#perl}}?
  {{#v|<GeJ>}} Already did that, but as the summarizer
        often says \"Warnock applies\"
  {{#v|<GeJ>}} hence my desperate attempt to ask
        {{#x|the-best-of-the-best-of-the-best}}
        {{#x|of the perl community}}.
----
We have {{#x|Audrey Tang}}!
  
我们拥有{{#c|唐凤}}！
----
{{img src="images/audrey.jpg" width="480" height="403"}}
----
  {{#v|<xinming>}} make: *** [pugs] Error 2
  {{#v|<xinming>}} audreyt: I got this while compiling
  {{#v|<dakkar>}} xinming: me too, trying after a make distclean
  {{#v|<audreyt>}} {{#x|fixed}}
  {{#v|<audreyt>}} the Syck_stub nightmare is fixed too
  {{#v|<audreyt>}} there's no need to rm Syck every build, yay
  {{#v|<gaal>}} audreyt++
  {{#v|<dakkar>}} audreyt: you're {{#ci|faster}} than my compiler!
----
 {{#v|<TimToady>}} P6 is a functional language like haskell, sorta... :)
 {{#v|<ludan>}} TimToady: i'm not an active part of P6 :(
 {{#v|<TimToady>}} don't let audreyt hear you say that, or you'll have a commit bit before you know it...
 {{#v|<ludan>}} ok :)
 [snip]
 {{#v|<audreyt>}} ludan: danieleludovici at email.it ?
 {{#v|<ludan>}} audreyt: nooooooooo :)
 {{#v|<TimToady>}} oops, too late...
----
We have {{#x|Larry Wall}}!
  
我们拥有 {{#c|Larry Wall}}!
----
{{img src="images/larry.jpg" width="240" height="392"}}
----
  {{#v|<TimToady>}} would you like a {{#x|commit bit}} to pugs?
  {{#v|<zafoeta>}} yes. that is my intention
  {{#v|<TimToady>}} msg me your email and I'll get one sent
  {{#v|<TimToady>}} to /msg rather. or just mail to larry@wall.org
  {{#v|<zafoeta>}} wow, i am now talking to {{#ci|larry wall}}??
  {{#v|<TimToady>}} I'll never tell...
  {{#v|<zafoeta>}} *honoured*
----
We have {{#c|Flavio Glock}}!
  
我们拥有 Flavio Glock!
----
We have the {{#x|Perl 6 project manager}}!
   
我们拥有 {{#ci|Perl 6 项目经理}}！
----
 {{#v|<fglock>}} {{#ci|obra}}: I'd like some help from the
               {{#x|Perl 6 project manager}}
 {{#v|<obra>}} Ok. What can I do for you?
 {{#v|<fglock>}} help making a roadmap for v6/mp6/kp6
 {{#v|<obra>}} Ok. You know more about the technology
              than me. How can I help with the roadmap
----
We have the {{#x|p5p}} people!
  
我们拥有 {{#x|p5p}} 的人们！
----
 {{#v|<lichtkind>}} {{#ci|dmq}}: i was really impressed
              from your work
 {{#v|<dmq>}} welches?
 {{#v|<lichtkind>}} dmq on {{#x|per5 regex engine}}
 {{#v|<dmq>}} ach, danke.
 {{#v|<dmq>}} :-)
 {{#v|<dmq>}} we all stand on the {{#ci|shoulders}}
        {{#ci|of giants}}
----
{{#v|☺}} {{#ci|How}} to {{#x|contribute}} to Pugs?
   
{{#x|如何}}向 Pugs 贡献？
----
{{#tag|☆}} {{#x|Contribute}} to Pugs
by writing {{#ci|Perl 6}} code
  
通过编写 {{#ci|Perl 6}} 代码
向 Pugs {{#x|贡献}}
----
Our {{#ci|test suite}} is
in pure {{#x|Perl 6}}!
  
我们的{{#ci|测试集}}是用
纯的 {{#x|Perl 6}} 写成的!
----
  {{#kw|use v6}};
  {{#kw|use Test}};
  {{#void|plan 1;}}
   
  {{#cm|# L<S04/Closure traits/INIT "at run time" ASAP>}}
  {{#kw|my}} {{#v|$str}};
  {{#void|is}} {{#v|$str}}, {{#x|'begin'}}, {{#x|'BEGIN block'}};
   
  {{#kw|INIT}} {
    {{#v|$str}} ~= {{#x|'begin'}};
  }
----
{{#ci|Tag}} a group of tests with a {{#x|smartlink}}!
  
+{{#cm|# L<S04/Closure traits/INIT "at run time" ASAP>}}
----
{{img src="images/smartlink.png" width="748" height="555"}}
----
{{img src="images/smoke.png" width="1074" height="533"}}
----
Some part of {{#x|Pugs}} is written in {{#ci|Perl 6}}.
{{#ci|Example}}: {{#t|src/perl6/Prelude.pm}}
----
  {{#cm|# Prelude.pm}}
  {{#kw|use v6-alpha}};
  {{#kw|module}} Prelude-0.0.1;
  
  {{#cm|=kwid}}
  
  {{#cm|There are a couple of things going on here.}}
  {{#cm|* These are perl6 implementations of /builtins/}}
  {{#cm|* They sometimes use Pugs internals to do the job}}
  {{#cm|* Some of this had not been specced yet (need S29 work).}}
----
Perl 6 in Perl 6
MiniPerl6
KindaPerl6
----
{{#tag|☆}} {{#x|Contribute}} to Pugs
by writing {{#ci|Perl 5}} code
----
Pugs::Compiler::Rule
  
{{http://search.cpan.org/perldoc?Pugs::Compiler::Rule}}
----
smartlinks.pl
----
Moritz Lenz's {{#ci|irclogs}}
  
{{http://moritz.faui2k3.org/irclog/}}
----
{{img src="images/irclog.png" width="941" height="545"}}
----
{{#tag|☆}} {{#x|Contribute}} to Pugs
by writing {{#ci|Haskell}} code
----
{{#x|Contact}} me via email
{{#c|♨}}
  
{{agentzh@gmail.com}}
----
These slides are {{#ci|powered}} by
{{#x|Sporx}} and {{img src="images/grin.png" width="41" height="41"}}{{#ci|Takahashi}}{{#x|++}}
----
{{#c|Thank you!}}
☺