Open (programovací jazyk)

From Necyklopedie
Jump to navigation Jump to search

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ě.

Historie[edit | edit source]

Rok 1997[edit | edit source]

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.

Rok 1998[edit | edit source]

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

Rok 1999[edit | edit source]

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

Rok 2000[edit | edit source]

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

Rok 2001[edit | edit source]

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

Rok 2002[edit | edit source]

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

Příklady[edit | edit source]

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

Hello, World![edit | edit source]

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

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

Mocninátor[edit | edit source]

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);

Zdrojový kód Necyklopedie[edit | edit source]

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
Ělěktronika 666

Počítače: AcerAppleBarbie PCCMEUDellDetektor lžiElektronika 666HPIntelKlapkobřinkostrojLenovoNový JeruzalémRačunik-RTuringův strojUral 2
Hardware: Caps LockCD-RWDěrná páskaF13iPrdKompresorPaměť ROOMScroll lockŠkoda 1000MBŠkvorPaměť WOM
Software: BSODBIOSEmacsKVGRESETЛинуксMicrosoft WordMooreův zákonPoznámkový blokPřekladSvatý TučňákVálka s švábyWindowsVista
Programování: BrainfuckC SharpC++DebuggerJavaLispnOTHINGOpenOSTRAJavaPočítačová lingvistikaProgramátor obecnýVánočková architektura
Aplikace: AhE-mailEndInternetKomprese datRodné čísloTrabant AussichtDOSBoxDvě minuty nenávisti