Онлайн компилятор Oberon-07/11
Путеводитель по Оберон-проектам.
Логи jabber-конференции.
Онлайн исходники BlackBox: тут:WeBB и на github
Исходники Project Oberon V4 на github.
Сборник решений задач книги "Современное программирование с нуля!" тут. А обсуждение здесь.
Последние сообщения
Спасибо! Поправил. Буду бдителен на этот счет впредь.https://models.molpit.org/model/49
У тебя глобальный String перекрывается твоей собственной функцией String. Обратиться к глобальному можно так: JS.String.fromCharCode
https://models.molpit.org/model/49
Приведи весь сгенеренный код или минимальный пример, где оно не работает.Вот погляди.
Еще прошу поделиться опытом, как быть с динамическими объектами. Скажем, если мне надо создать массив под данные из файла.
NEW нельзя получается, массивы объявить тоже только по константе возможно.
Только статические типы получается? То есть заранее делать огномный буфер под предполагаемый размер?
Или есть какие-то варианты?
По мне так никакого глубинного смысла в этом нет вообще - Вирт сэкономил в очередной раз на простоте компилятора при том, что динамические массивы ему все равно не нужны были для очередной задачи.Firefox почему-то ругаетсяКод: [Выделить]String.fromCharCode is not a function
Модуль JS вместо SYSTEM. Но в твоем случае можно обойтись обычным обероном:Спасибо, попдправилКод: [Выделить]result := b1 + LSL(b2, 8) + LSL(b3, 16) + LSL(b4, 24);
PROCEDURE GetInt4(a: ARRAY OF CHAR; pos: INTEGER): INTEGER;
BEGIN
RETURN ORD(a[pos]) + LSL(ORD(a[pos+1]), 8) + LSL(ORD(a[pos+2]), 16) + LSL(ORD(a[pos+3]), 24)
END GetInt4;
PROCEDURE GetInt2(a: ARRAY OF CHAR; pos: INTEGER): INTEGER;
BEGIN
RETURN ORD(a[pos]) + LSL(ORD(a[pos+1]), 8)
END GetInt2;Firefox почему-то ругаетсяСтолкнулся с тем, что CHAR транслятор понимает как числа.
На это были причины. Для твоего случая надо просто сделать String.fromCharCode(arg)
String.fromCharCode is not a functionЕще хочется понять как выполнять преобразования типов. Мне надо четыре байта переделать в INTEGER.
В вики написано:
No SYSTEM module
А как делать тогда?
result := b1 + LSL(b2, 8) + LSL(b3, 16) + LSL(b4, 24);
PROCEDURE GetInt4(a: ARRAY OF CHAR; pos: INTEGER): INTEGER;
BEGIN
ASSERT(ORD(a[pos + 3]) < 128)
RETURN ORD(a[pos]) + (ORD(a[pos+1]) + (ORD(a[pos+2]) + ORD(a[pos+3]) * 0100H ) * 0100H) * 0100H
END GetInt4;
PROCEDURE GetInt2(a: ARRAY OF CHAR; pos: INTEGER): INTEGER;
BEGIN
ASSERT(ORD(a[pos + 1]) < 128)
RETURN ORD(a[pos]) + ORD(a[pos+1]) * 0100H
END GetInt2;