Máirín Duffy a Brian Smith v článku pro Fedora Magazine ukazují použití LLM pro diagnostiku systému (Fedora Linuxu) přes Model Context Protocol od firmy Anthropic. I ukázkové výstupy v samotném článku obsahují AI vygenerované nesmysly, např. doporučení přeinstalovat balíček pomocí správce balíčků APT z Debianu místo DNF nativního na Fedoře.
Projekt D7VK dospěl do verze 1.0. Jedná se o fork DXVK implementující překlad volání Direct3D 7 na Vulkan. DXVK zvládá Direct3D 8, 9, 10 a 11.
Byla vydána nová verze 2025.4 linuxové distribuce navržené pro digitální forenzní analýzu a penetrační testování Kali Linux (Wikipedie). Přehled novinek se seznamem nových nástrojů v oficiálním oznámení na blogu.
Národní úřad pro kybernetickou a informační bezpečnost (NÚKIB) zveřejnil Národní politiku koordinovaného zveřejňování zranitelností (pdf), jejímž cílem je nejen zvyšování bezpečnosti produktů informačních a komunikačních technologií (ICT), ale také ochrana objevitelů zranitelností před negativními právními dopady. Součástí je rovněž vytvoření „koordinátora pro účely CVD“, jímž je podle nového zákona o kybernetické … více »
Vývojáři KDE oznámili vydání balíku aplikací KDE Gear 25.12. Přehled novinek i s náhledy a videi v oficiálním oznámení.
Společnost System76 vydala Pop!_OS 24.04 LTS s desktopovým prostředím COSMIC. Videoukázky na YouTube.
Byla vydána verze 1.92.0 programovacího jazyka Rust (Wikipedie). Podrobnosti v poznámkách k vydání. Vyzkoušet Rust lze například na stránce Rust by Example.
Free Software Foundation zveřejnila ocenění Free Software Awards za rok 2024. Oceněni byli Andy Wingo, jeden ze správců GNU Guile, Alx Sa za příspěvky do Gimpu a Govdirectory jako společensky prospěšný projekt.
Bylo vydáno Eclipse IDE 2025-12 aneb Eclipse 4.38. Představení novinek tohoto integrovaného vývojového prostředí také na YouTube.
U příležitosti oslav osmi let prací na debianím balíčku vyšlo GPXSee 15.6. Nová verze přináší především podporu pro geotagované MP4 soubory, včetně GoPro videí. Kdo nechce čekat, až nová verze dorazí do jeho distribuce, nalezne zdrojové kódy na GitHubu.
27.11.2007 17:09
| Přečteno: 1106×
| 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:
