abclinuxu.cz AbcLinuxu.cz itbiz.cz ITBiz.cz HDmag.cz HDmag.cz abcprace.cz AbcPráce.cz
AbcLinuxu hledá autory!
Inzerujte na AbcPráce.cz od 950 Kč
Rozšířené hledání
×
    včera 16:55 | Nová verze

    Svobodný nemocniční informační systém GNU Health Hospital Information System (HIS) (Wikipedie) byl vydán ve verzi 5.0 (Mastodon).

    Ladislav Hagara | Komentářů: 0
    včera 16:22 | Komunita

    Open source mapová a navigační aplikace OsmAnd (OpenStreetMap Automated Navigation Directions, Wikipedie, GitHub) oslavila 15 let.

    Ladislav Hagara | Komentářů: 0
    včera 11:55 | Zajímavý software

    Vývojář Spytihněv, autor počítačové hry Hrot (Wikipedie, ProtonDB), pracuje na nové hře Brno Transit. Jedná se o příběhový psychologický horor o strojvedoucím v zácviku, uvězněném v nejzatuchlejším metru východně od všeho, na čem záleží. Vydání je plánováno na čtvrté čtvrtletí letošního roku.

    Ladislav Hagara | Komentářů: 28
    1.7. 18:22 | IT novinky

    V uplynulých dnech byla v depu Českých drah v Brně-Maloměřicích úspěšně dokončena zástavba speciální antény satelitního internetu Starlink od společnosti SpaceX do jednotky InterPanter 660 004 Českých drah. Zástavbu provedla Škoda Group. Cestující se s InterPanterem, vybaveným vysokorychlostním satelitním internetem, setkají například na linkách Svitava Brno – Česká Třebová – Praha nebo Moravan Brno – Břeclav – Přerov – Olomouc.

    Ladislav Hagara | Komentářů: 19
    1.7. 13:11 | Nová verze

    Byla vydána nová verze 8.7.0 správce sbírky fotografií digiKam (Wikipedie). Přehled novinek i s náhledy v oficiálním oznámení (NEWS). Nejnovější digiKam je ke stažení také jako balíček ve formátu AppImage. Stačí jej stáhnout, nastavit právo ke spuštění a spustit.

    Ladislav Hagara | Komentářů: 0
    1.7. 12:22 | IT novinky

    Před 30 lety, k 1. 7. 1995, byl v ČR liberalizován Internet - tehdejší Eurotel přišel o svou exkluzivitu a mohli začít vznikat první komerční poskytovatelé přístupu k Internetu [𝕏].

    Ladislav Hagara | Komentářů: 4
    1.7. 11:33 | Nová verze

    Byla vydána (𝕏) nová verze 7.4 open source monitorovacího systému Zabbix (Wikipedie). Přehled novinek v oznámení na webu, v poznámkách k vydání a v aktualizované dokumentaci.

    Ladislav Hagara | Komentářů: 0
    1.7. 05:44 | Bezpečnostní upozornění

    Balíček s příkazem sudo byl vydán ve verzi 1.9.17p1. Řešeny jsou zranitelnosti CVE-2025-32462 (lokální eskalace práv prostřednictvím volby host) a CVE-2025-32463 (lokální eskalace práv prostřednictvím volby chroot).

    Ladislav Hagara | Komentářů: 10
    1.7. 05:22 | IT novinky

    Do služeb Seznam.cz se lze nově přihlásit pomocí služby MojeID [𝕏].

    Ladislav Hagara | Komentářů: 5
    1.7. 03:33 | Bezpečnostní upozornění

    Bezpečnostní výzkumníci zveřejnili informace o osmi zranitelnostech, které postihují více než 700 modelů tiskáren, skenerů a štítkovačů značky Brother. Bezpečnostní upozornění vydali také další výrobci jako Fujifilm, Ricoh, Konica Minolta a Toshiba. Nejzávažnější zranitelnost CVE-2024-51978 umožňuje útočníkovi vzdáleně a bez přihlášení získat administrátorská oprávnění prostřednictvím výchozího hesla, které lze odvodit ze

    … více »
    Ladislav Hagara | Komentářů: 0
    Jaký je váš oblíbený skriptovací jazyk?
     (59%)
     (28%)
     (6%)
     (2%)
     (0%)
     (1%)
     (3%)
    Celkem 339 hlasů
     Komentářů: 16, poslední 8.6. 21:05
    Rozcestník

    Kompilátor jazyka BC pro Parrot VM

    27.11.2007 17:09 | Přečteno: 1087× | Perl 6 a Parrot | Výběrový blog | poslední úprava: 27.11.2007 17:22

    BC je taková složitější kalkulačka. Od včerejška je napsání kompilátoru jazyka bc pro virtuální stroj Parrot maličkost. Stačí napsat: Stáhneme aktuální revizi Parrotu a přidáme abc do adresáře s jazyky, doladíme Makefiles a spustíme kompilaci.

    Vytvoříme test jazyka:

    abc> cat in.abc
    
    (1 + 3) * 2
    

    Překontrolujeme syntaktický strom:

    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.

           

    Hodnocení: 82 %

            špatnédobré        

    Tiskni Sdílej: Linkuj Jaggni to Vybrali.sme.sk Google Del.icio.us Facebook

    Komentáře

    Vložit další komentář

    ISSN 1214-1267   www.czech-server.cz
    © 1999-2015 Nitemedia s. r. o. Všechna práva vyhrazena.