Open (programovací jazyk)

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

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.

Rok 1998

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

Rok 1999

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

Rok 2000

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

Rok 2001

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

Rok 2002

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

Příklady

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

Hello, World!

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

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

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

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