Open (programovací jazyk)

Z Necyklopedie

Přejít na: navigace, hledání

Open je programovací jazyk vyvinutý výzkumnou společností pro jednodušší úpravu zdrojového kódu Necyklopedie. Později se bohužel ukázalo, že tento programovací jazyk je pro Necyklopedii nepoužitelný a tak byl zveřejněn pro širší použití. Dnes se používá především pro vytváření interaktivních toalet v Číně.

[editovat] Historie

[editovat] Rok 1997

V roce 1997 bylo vedením Necykloverzity rozhodnuto, že Necyklopedie bude znovuvytvořena a budou odstraněny všechny nekvalitní články. Pro tento účel byl vyvinut jazyk Open.

[editovat] Rok 1998

Probíhá přepisování Necyklopedie...

[editovat] Rok 1999

Probíhá přepisování Necyklopedie...

[editovat] Rok 2000

Probíhá přepisování Necyklopedie...
Vedení Necykloverzity přemýšlí, jestli se na to nevysrat.

[editovat] Rok 2001

Probíhá přepisování Necyklopedie...
Vedení Necykloverzity přemýšlí, jestli se na to nevysrat.

[editovat] Rok 2002

Vedení Necykloverzity se na to vysralo.
Byl zveřejněn programovací jazyk Open.

[editovat] Příklady

Zde jsou příklady pár programů v jazyce Open:

[editovat] Hello, World!

Program vypisující "Hello, World!":

class:Console = load('IO.Stdout');
Console.Print("Hello, World!");
Console.WaitChar();

[editovat] Mocninátor

Program počítací mocniny:

class:Console = load('IO.Stdout');
string:s1 = Console.Input("Zadejte základ mocniny: ");
num:a = num(s1);
string:s2 = Console.Input("Zadejte exponent: ");
num:b = num(s2);
num:c = 1;
repeat(b, {
c = c * a;
});
Console.PrintVar("Výsledek je: $$$", c);

[editovat] Zdrojový kód Necyklopedie

Probíhá kompletní přepis zdrojového kódu Necyklopedie z roku 2001.

classpack:null = load('Experimental.Webutils');
classpack:null = load('Expreimental.MySQL');
WebRedirector:redir = WebRedirector();
RedirectionDump:rdump = RedirectionDump:PasswordAuthorizationRedirectionDump();
rdump.AuthenticationUsername = 'admin';
rdump.AuthenticationPassword = 'pass123';
redir.NewRedirection(URLRedirection("$/Speciální/"), rdump);
RedirectionDump:userdump = RedirectionDump:PasswordAuthorizationRedirectionDump();
!(userdump.AuthorizationEvent){
 SQLAuthenticator:sqla = SQLAuthenticator(SQLTable("users"),SQLCommand(SQLPreparedCommand("SELECT FROM users ALL"), SQLCondition(SQLData("user") == userdump.AuthorizationUsername, SQLData("password") == userdump.AuthorizationPassword))));
 if (sqla.Valid) return true;
 return false;
}
redir.NewRedirection(URLRedirection("$/*/*?action=edit", "$/user/*"), userdump);
Počítače
El666

Počítače: AcerAppleBarbie PCCMEUDellDetektor lžiElektronika 666HPIntelLenovoNový JeruzalémRačunik-RTuringův strojUral 2
Hardware: Caps LockCD-RWDěrná páskaF13iPrdKompresorScroll lockŠkoda 1000MBŠkvorPaměť WOM
Software: BSODEmacsKVGЛинуксMicrosoft WordMooreův zákonPoznámkový blokPřekladSvatý TučňákVálka s švábyWindowsVista
Programování: C SharpLispnOTHINGOpenOSTRAJavaPočítačová lingvistika
Aplikace: AhE-mailEndInternetKomprese datRodné čísloTrabant AussichtDOSBoxDvě minuty nenávisti

uncyclopedia