[zwitter]

Сообщение от П.Е.С

Я оценивал по другим форумам.Там с про вирта так ржали особенно сишники.
Напишу для не посвященных.
Все знают язык С- язык системного программирования. По поводу удачности языка спорят до сих пор. Но с главной своей задачей он справился великолепно - написали ось Unix.
Главной идеей разработчиков было тесная интеграция языка и оси.
И вот тут то и появляется Вирт.Решил он повидать чуднай мир Ксерокса(фирма в США такая ) увидел он как там кипит работа по созданию первой персоналки
Приехавши домой решил и себе такое сделать. Создал он язык Modula-2.
Это была сильная альтернатива С. Многим разработчикам нравиться, но С к тому времени все под себя подмял, я модула осталась в умах профессионалов.
Но видел вирт в ксероксе чудо пречудесное - первую в мире графическую оболочку и ООП язык смалтолк(кто-то на нем работает?-вещь супер).
Вскоре ксерокс забракует данный проект. Яблоко купит эту технологию у ксерокса, а микрософт украдет у яблока так и появится тупая винда.(в подробности создания винды не буду вдаваться все и так знают)
А в то время вирт начал новый проект ось и язык оберон.Толчком стали работы ксерокса, но вирт их не крал. Сам язык очень прост и эта простота его сгубила как и академичность вирта. Он хотел чтобы студенты пользовались тем что на рынке будет через несколько лет. Слово аплет придумала комана вирта а не Sun и принципы работы современных браузеров придумал и разработал вирт. Исходники оси и компилятора оберона были бесплатнеы и Sun взяла и все идеи переделала под себя, так появилась ява.
Дальше будет...

слово апплет - согласно википедии, The term was introduced in AppleScript in 1993.
какое отношение вирт имел к эпплу в 1993 ?

оберон и java - согласно той же википедии, java - Influenced by Objective-C, C++, Smalltalk, Eiffel[1], Ada 83, Mesa[2], C#[3]
кто здесь видит оберон ?

и объясните мне тупому - как ЭТО похоже на яву ????

MODULE Test;
  IMPORT Out, Birds, Cuckooo, Ducks;

    TYPE SomeBird* = RECORD ( Birds.Bird ) END;

    VAR sb : SomeBird;
    VAR c  : Cuckoos.Cuckoo;
    VAR d  : Ducks.Duck;
    
    PROCEDURE setSound*( VAR bird : Birds.Bird );
    BEGIN
        WITH bird : Cuckoos.Cuckoo DO
                    bird.sound := "Cuckoo!";
           | bird : Ducks.Duck DO
                    bird.sound := "Quack!";
        ELSE
                    bird.sound := "Tweet!";
        END;
    END setSound;

    PROCEDURE MakeSound* ( VAR b : Birds.Bird );
    BEGIN
    Out.Ln;
    Out.String( b.sound );
    Out.Ln;
    END MakeSound;

и какие там принципы работы современных браузеров он разработал кстати ?