Какая кодировка у BB документов?

[Илья Ермаков]

В обоих.

ББ 1.5 был в плане Framework уже юникодный. Под юникодизацией 1.6 понимается переписывание Host для вызова юникодных WinApi-фукнкций (чтобы с клавиатуры вводился юникод, и т.п.), а также компилятора для поддержки юникодных значений литерных констант. А ещё добавили метаинформацию о сигнатурах процедур (до этого были только фингерпринты от них).

[valexey_u]

В обоих.

ББ 1.5 был в плане Framework уже юникодный. Под юникодизацией 1.6 понимается переписывание Host для вызова юникодных WinApi-фукнкций (чтобы с клавиатуры вводился юникод, и т.п.), а также компилятора для поддержки юникодных значений литерных констант. А ещё добавили метаинформацию о сигнатурах процедур (до этого были только фингерпринты от них).

Гм. Тогда интересно когда они юникод в BB вшили.

[ilovb]

В CP изначально. А в BB в 1.6 

ps некоторый задел уже в 1.5 был

[valexey_u]

В CP изначально. А в BB в 1.6 

ps некоторый задел уже в 1.5 был

Только вот BB не изначально на CP был :-)

[trurl]

Кстати, такая кодировка только у BB 1.6, или у BB 1.5 тоже?

И у 1.3, и даже у 1.2, которая ещё Oberon/F. Документами же надо обмениваться.

[ilovb]

Что будет если ch := CHR(32768) ?

Извиняюсь. На минус не обратил внимание.

Однако минус не помог. Не работает.

[ilovb]

Минус нужно до SHORT'ов ставить, иначе опять INTEGER получается.
И кроме того оно совсем не работает на ch < 256, ибо получается -256

[albobin]

Вот куски из кода и измышлизмы.

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

PROCEDURE (rd: StdReader) Read;
        VAR ...; lc: ARRAY 2 OF BYTE;
    BEGIN
        ...
            rd.reader.ReadBytes(lc, 0, 2);
            rd.char := CHR(lc[0] MOD 256 + 256 * (lc[1] + 128)); rd.view := NIL;

lc[0] MOD 256  - приведение байта к положительному целому с идентичным битовым представлением значимого байта
а вот для старшего байта почему то придуман "трюк" c 128 (для увода из отрицательных значений )  и  тогда соответственно в коде ниже присутствует вычитание 128

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

PROCEDURE (wr: StdWriter) WriteChar (ch: CHAR);
            ...
            fw.WriteByte(SHORT(SHORT(ORD(ch))));
            fw.WriteByte(SHORT(SHORT(ORD(ch) DIV 256 - 128)));

М.б. есть ещё какие нюансы работы в исполняемом коде в двух случаях:
1. SHORT(SHORT(ORG(ch))
2. SHORT(SHORT( от арифм.выражения  ORD(ch) DIV 256 )
И эти нюансы вынудили изощряться со 128 

[igor]

Напомню по результатам обсуждения в соседней ветке, что в данном случае отнимать 128 вообще некошерно, так как это приводит к инвертированию старшего бита у целевого байта. ilovb указал, что сей факт можно учесть при чтении, но на мой взгляд это удар "под перекладину". Тот, кто будет читать не обязан помнить, что при это нужно подправить старший бит.

[albobin]

В лоб всё равно не читают.
Есть придуманный формат, и процедуры чтения/записи учитывающие его.

[ilovb]

М.б. есть ещё какие нюансы работы в исполняемом коде в двух случаях:
1. SHORT(SHORT(ORG(ch))
2. SHORT(SHORT( от арифм.выражения  ORD(ch) DIV 256 )
И эти нюансы вынудили изощряться со 128 

Единственный нюанс - оно не работает без вычитания 128.

[valexey_u]

Кстати, а почему тут не используют SET'ы для манипулирования битиками?

[albobin]

М.б. есть ещё какие нюансы работы в исполняемом коде в двух случаях:
1. SHORT(SHORT(ORG(ch))
2. SHORT(SHORT( от арифм.выражения  ORD(ch) DIV 256 )
И эти нюансы вынудили изощряться со 128 

Единственный нюанс - оно не работает без вычитания 128.

Занудно поясню, что имел ввиду вопрошая.
вот имеем код 

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

SHORT(SHORT(ORD(ch))ch двухбайтный,  ORD(ch) в диапазоне целых 80-FFFF
всё компилится и работает как, видимо, задумано, на выходе байт (в битах 80-FF)
или от -128  до  127 (как BYTE) 

А вот код

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

SHORT(SHORT(ORD(ch) DIV 256)  может быть уже не хочет работать и взбрыкивается (нюансы кодогенерации)  хотя ORD(ch) DIV 256  даёт значения от 0 до FF

И вот тут приходит на помощь волшебное 128  и значения загоняются в диапазон BYTE, хотя в первом случае этого не понадобилось.

[albobin]

на выходе байт (в битах 80-FF)

на выходе байт (в битах 00-FF)

[ilovb]

facepalm...

1. SHORT(SHORT(ORG(ch))
2. SHORT(SHORT( от арифм.выражения  ORD(ch) DIV 256 )

всё компилится и работает как, видимо, задумано, на выходе байт (в битах 80-FF)

Да не работают эти строчки. Ни первая, ни вторая.
ПЕРЕПОЛНЕНИЕ.

С отключенной проверкой ОБЕ РАБОТАЮТ