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]

Rok 1997[edit]

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]

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

Rok 1999[edit]

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

Rok 2000[edit]

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

Rok 2001[edit]

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

Rok 2002[edit]

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

Příklady[edit]

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

Hello, World![edit]

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

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

Mocninátor[edit]

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]

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 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á lingvistikaVánočková architektura
Aplikace: AhE-mailEndInternetKomprese datRodné čísloTrabant AussichtDOSBoxDvě minuty nenávisti