Americký výrobce čipů Intel propustí 15 procent zaměstnanců (en), do konce roku by jich v podniku mělo pracovat zhruba 75.000. Firma se potýká s výrobními problémy a opouští také miliardový plán na výstavbu továrny v Německu a Polsku.
MDN (Wikipedie), dnes MDN Web Docs, původně Mozilla Developer Network, slaví 20 let. V říjnu 2004 byl ukončen provoz serveru Netscape DevEdge, který byl hlavním zdrojem dokumentace k webovým prohlížečům Netscape a k webovým technologiím obecně. Mozille se po jednáních s AOL povedlo dokumenty z Netscape DevEdge zachránit a 23. července 2005 byl spuštěn MDC (Mozilla Developer Center). Ten byl v roce 2010 přejmenován na MDN.
Wayback byl vydán ve verzi 0.1. Wayback je "tak akorát Waylandu, aby fungoval Xwayland". Jedná se o kompatibilní vrstvu umožňující běh plnohodnotných X11 desktopových prostředí s využitím komponent z Waylandu. Cílem je nakonec nahradit klasický server X.Org, a tím snížit zátěž údržby aplikací X11.
Byla vydána nová verze 6.18 živé linuxové distribuce Tails (The Amnesic Incognito Live System), jež klade důraz na ochranu soukromí uživatelů a anonymitu. Nově se lze k síti Tor připojit pomocí mostu WebTunnel. Tor Browser byl povýšen na verzi 14.5.5. Thunderbird na verzi 128.12.0. Další změny v příslušném seznamu.
Meta představila prototyp náramku, který snímá elektrickou aktivity svalů (povrchová elektromyografie, EMG) a umožňuje jemnými gesty ruky a prstů ovládat počítač nebo různá zařízení. Získané datové sady emg2qwerty a emg2pose jsou open source.
Byla vydána (𝕏) nová verze 25.7 open source firewallové a routovací platformy OPNsense (Wikipedie). Jedná se o fork pfSense postavený na FreeBSD. Kódový název OPNsense 25.7 je Visionary Viper. Přehled novinek v příspěvku na fóru.
Před 40 lety, 23. července 1985, společnost Commodore představila první počítač Amiga. Jednalo se o počítač "Amiga od Commodore", jenž byl později pojmenován Amiga 1000. Mělo se jednat o přímou konkurenci počítače Apple Macintosh uvedeného na trh v lednu 1984.
T‑Mobile USA ve spolupráci se Starlinkem spustil službu T-Satellite. Uživatelé služby mohou v odlehlých oblastech bez mobilního signálu aktuálně využívat satelitní síť s více než 650 satelity pro posílání a příjem zpráv, sdílení polohy, posílání zpráv na 911 a příjem upozornění, posílání obrázků a krátkých hlasových zpráv pomocí aplikace Zprávy Google. V plánu jsou také satelitní data.
Společnost Proxmox Server Solutions stojící za virtualizační platformou Proxmox Virtual Environment věnovala 10 000 eur nadaci The Perl and Raku Foundation (TPRF).
Byla vydána nová verze 2.4.65 svobodného multiplatformního webového serveru Apache (httpd). Řešena je bezpečnostní chyba CVE-2025-54090.
27.11.2007 17:09
| Přečteno: 1087×
| Perl 6 a Parrot
| 
| poslední úprava: 27.11.2007 17:22
Vytvoříme test jazyka:
abc> cat in.abc (1 + 3) * 2
Překontrolujeme syntaktický strom:
AbcLinuxu.cz
ITBiz.cz
HDmag.cz
AbcPráce.cz
abc>../../parrot abc.pbc --target=parse in.abc
"parse" => PMC 'ABC::Grammar' => "(1 + 3) * 2" @ 0 {
<statement_list> => PMC 'ABC::Grammar' => "(1 + 3) * 2" @ 0 {
<statement> => ResizablePMCArray (size:1) [
PMC 'ABC::Grammar' => "(1 + 3) * 2" @ 0 {
<expression> => PMC 'ABC::Grammar' => "(1 + 3) * 2" @ 0 {
<expr> => PMC 'PGE::Match' => "*" @ 8 {
<type> => "infix:*"
<top> => Hash {
"arity" => 2,
"assoc" => "left",
"expect" => 258,
"looser" => "infix:^",
"match" => "PGE::Match",
"name" => "infix:*",
"pirop" => "n_mul",
"precclose" => "<<<<=",
"precedence" => \parse[0]["precclose"],
"syncat" => 96
}
[0] => PMC 'PGE::Match' => "(" @ 0 {
<type> => "circumfix:( )"
<top> => Hash {
"arity" => 1,
"assoc" => "left",
"equiv" => "term:",
"expect" => 257,
"keyclose" => ")",
"match" => "PGE::Match",
"name" => "circumfix:( )",
"pirop" => "set",
"precclose" => "=",
"precedence" => \parse[0]["precclose"],
"syncat" => 144
}
[0] => PMC 'PGE::Match' => "+" @ 3 {
<type> => "infix:+"
<top> => Hash {
"arity" => 2,
"assoc" => "left",
"expect" => 258,
"looser" => "infix:*",
"match" => "PGE::Match",
"name" => "infix:+",
"pirop" => "n_add",
"precclose" => "<<<<<=",
"precedence" => \parse[0]["precclose"],
"syncat" => 96
}
[0] => PMC 'ABC::Grammar' => "1" @ 1 {
<integer> => PMC 'ABC::Grammar' => "1" @ 1
<type> => "term:"
<top> => Hash {
"assoc" => "left",
"expect" => 513,
"match" => "PGE::Match",
"name" => "term:",
"parsed" => PMC 'Sub' { ... },
"precclose" => "=",
"precedence" => \parse[0]["precclose"],
"syncat" => 16
}
}
[1] => PMC 'ABC::Grammar' => "3" @ 5 {
<integer> => PMC 'ABC::Grammar' => "3" @ 5
<type> => "term:"
<top> => \parse[0]
}
}
}
[1] => PMC 'ABC::Grammar' => "2" @ 10 {
<integer> => PMC 'ABC::Grammar' => "2" @ 10
<type> => "term:"
<top> => \parse[0]
}
}
}
}
]
}
}
Překontrolujeme AST:
abc>../../parrot abc.pbc --target=past in.abc
"past" => PMC 'PAST::Stmts' {
<source> => "(1 + 3) * 2"
<pos> => 0
[0] => PMC 'PAST::Op' {
<name> => "saynum"
<pasttype> => "call"
[0] => PMC 'PAST::Op' {
<pasttype> => "bind"
[0] => PMC 'PAST::Var' {
<name> => "last"
<scope> => "package"
<lvalue> => 1
}
[1] => PMC 'PAST::Op' {
<name> => "infix:*"
<pasttype> => undef
<pirop> => "n_mul"
<lvalue> => undef
<source> => "*"
<pos> => 8
[0] => PMC 'PAST::Op' {
<name> => "circumfix:( )"
<pasttype> => undef
<pirop> => "set"
<lvalue> => undef
<source> => "("
<pos> => 0
[0] => PMC 'PAST::Op' {
<name> => "infix:+"
<pasttype> => undef
<pirop> => "n_add"
<lvalue> => undef
<source> => "+"
<pos> => 3
[0] => PMC 'PAST::Val' {
<value> => "1"
<returns> => "Integer"
<source> => "1"
<pos> => 1
}
[1] => PMC 'PAST::Val' {
<value> => "3"
<returns> => "Integer"
<source> => "3"
<pos> => 5
}
}
}
[1] => PMC 'PAST::Val' {
<value> => "2"
<returns> => "Integer"
<source> => "2"
<pos> => 10
}
}
}
}
}
Případně překontrolujeme i POST:
abc>../../parrot abc.pbc --target=post in.abc
"post" => PMC 'POST::Ops' {
<source> => "(1 + 3) * 2"
<pos> => 0
<result> => PMC 'POST::Ops' {
<source> => null
<pos> => \post
<result> => "$P14"
[0] => PMC 'POST::Ops' {
<source> => \post
<pos> => \post
<result> => PMC 'POST::Op' {
<pirop> => "set_global"
<result> => PMC 'POST::Ops' {
<source> => "*"
<pos> => 8
<result> => "$P13"
[0] => PMC 'POST::Ops' {
<source> => "("
<pos> => 0
<result> => "$P12"
[0] => PMC 'POST::Ops' {
<source> => "+"
<pos> => 3
<result> => "$P11"
[0] => PMC 'POST::Ops' {
<source> => "1"
<pos> => 1
<result> => "$P10"
[0] => PMC 'POST::Op' {
<pirop> => "new"
[0] => "$P10"
[1] => "\"Integer\""
}
[1] => PMC 'POST::Op' {
<pirop> => "assign"
[0] => "$P10"
[1] => "1"
}
}
[1] => PMC 'POST::Ops' {
<source> => "3"
<pos> => 5
<result> => "3"
}
[2] => PMC 'POST::Op' {
<pirop> => "n_add"
[0] => "$P11"
[1] => \post
[2] => \post
}
}
[1] => PMC 'POST::Op' {
<pirop> => "set"
[0] => "$P12"
[1] => \post
}
}
[1] => PMC 'POST::Ops' {
<source> => "2"
<pos> => 10
<result> => "2"
}
[2] => PMC 'POST::Op' {
<pirop> => "n_mul"
[0] => "$P13"
[1] => \post
[2] => \post
}
}
[0] => "\"last\""
[1] => \post
}
[0] => \post
[1] => \post
}
[1] => PMC 'POST::Op' {
<result> => "$P14"
<pirop> => "call"
[0] => "\"saynum\""
[1] => "$P13"
}
}
[0] => \post
}
Koukneme na "výsledný" PIR pro Parrot VM:
abc>../../parrot abc.pbc --target=pir in.abc
.sub "anon"
new $P10, "Integer"
assign $P10, 1
n_add $P11, $P10, 3
set $P12, $P11
n_mul $P13, $P12, 2
set_global "last", $P13
$P14 = "saynum"($P13)
.end
A spustíme test:
abc>../../parrot abc.pbc in.abc 8
A to je vše, přátelé. Funguje to. Tádí dádí da.
Nyní se můžeme vrhnout na kompilátor dalšího jazyka, dodělat něco z TODO pro abc nebo jen sledovat další pokrok Patricka R. Michauda a dalších na cestě k Perlu 6.
Tiskni
Sdílej:
