Веб-доступ к исходникам BlackBox CB.

[igor]

оберону не нужен моношир, достаточно шрифта без засечек

Да. Это скорее мои личные пристрастия, чем объективная необходимость.

[valexey]

Это вообще от ЯП не зависит :-)

[Romiras]

Если у кого будет желание переработать документацию BlackBox, можете взять у меня:
BlackBox Tutorial. Там почти готовый вариант. Можно изображения на новые заменить и выставить вместе с исходниками.

[valexey]

Если у кого будет желание переработать документацию BlackBox, можете взять у меня:
BlackBox Tutorial. Там почти готовый вариант. Можно изображения на новые заменить и выставить вместе с исходниками.

Ух как богато!

[Валерий Лаптев]

А почему ссылка не открывается?

[DIzer]

Ух как богато!

Да,  "Димыч" молодец, и Роман М. не промах 

[valexey]

А почему ссылка не открывается?

Какая именно?

[Romiras]

Валерий, ссылка могла не открываться по той причине, что этот сервер работает на моём домашнем ПК (в виртуальной машине) и периодически мне приходится его выключать.

На всякий случай прикрепляю запакованный архив Руководства по BlackBox, BlackBox Tutorial.zip:

[DIzer]

СПС.

[ilovb]

Залил исходники финального BB на github: https://github.com/ilovb/BB16Final
Конвертировано в UTF8 BOM
Табы заменены на 4 пробела.

Утилита для конвертации файлов .odc в текст UTF16:

Код: [Выделить]

MODULE ilovbConvert;
IMPORT
    Log, Files, Views, Converters;

PROCEDURE Do*;
VAR
    bbloc, loc: Files.Locator;
    file: Files.File;
    txt: Converters.Converter;
    fnamelen: INTEGER;
    i, res: INTEGER;
    fname: Files.Name;
    flist: Files.FileInfo;
    dlist: Files.LocInfo;
    rd: Files.Reader;
    view: Views.View;
BEGIN
    txt := Converters.list;
    WHILE (txt.fileType$ # "utf") & (txt.next # NIL) DO
        txt := txt.next;
    END;
    ASSERT(txt.fileType$ = "utf");
    bbloc := Files.dir.This("");
    dlist := Files.dir.LocList(bbloc);
    WHILE dlist # NIL DO
        Log.String(dlist.name); Log.Ln;
        loc := bbloc.This(dlist.name + "\Mod");
        IF loc # NIL THEN
            flist := Files.dir.FileList(loc);
            WHILE flist # NIL DO
                IF flist.type = "odc" THEN
                    fnamelen := LEN(flist.name$) - 4;
                    FOR i := 0 TO fnamelen - 1 DO
                        fname[i] := flist.name[i];
                    END;
                    fname[fnamelen] := 0X;
                    Log.Tab; Log.String(fname); Log.Ln;
                    view := Views.OldView(loc, flist.name);
                    Converters.Export(loc, fname + ".cps", txt, view);
                END;
                flist := flist.next;
            END;
        END;
        dlist := dlist.next;
    END;
   
END Do;
   
BEGIN
END ilovbConvert.

[Romiras]

Залил исходники финального BB на github: https://github.com/ilovb/BB16Final

Раз хранилище названо "BB16Final", значит, развивать его не планируется?

В моём форке "BlackBox-Component-Framework" имеется несколько ветвей, одна из которых называется OmInc. Я складываю туда все выпуски от них, затем остальные ветви сихронизирую с ней.
Также есть ветка community-stable, в которую складываются патчи и некоторая функциональность от сообщества ББ. До сих пор, преимущественно, патчи исходили от OberonCore и частично от остальных пользователей. Теперь, с выпуском от Цинна думаю что делать дальше. Пока интегрировать его выпуск не буду, подожду как сообщество будет дальше выпускать версии ББ.
Ну а ветка "master" включает мои изменения относительно "community-stable".

Есть ещё экспериментальная ветка Linux-Gtk, которая получена путём наложения исходных кодов версии, выпущенной для GTK 1.0 в GNU/Linux. Пока ни одного коммита не было создано, так как ещё не проверял даже компиляцию.

[ilovb]

Раз хранилище названо "BB16Final", значит, развивать его не планируется?

Да. От него планируется только форкаться.

[ilovb]

Там же выложил релиз: https://github.com/ilovb/BB16Final/releases