A2 & Oberon GOOGLE trans to English      Помощь      Поиск      Пользователи  Файловый архив


 Страниц (1): [1]   

> Без описания
lit-uriy Супермодератор
Отправлено: 07 Июня, 2009 - 11:15:07
Post Id


Advanced Member


Покинул форум
Сообщений всего: 298
Дата рег-ции: Нояб. 2008  
Откуда: Тюмень / Новосибирск
Репутация: 0




Вот пример кода:

PROCEDURE Byte (VAR w: AosFS.Writer; val: LONGINT);
BEGIN
w.Hex (val MOD 100H, -2);
END Byte;
вторым аргументом в процедуру Hex передаётся отрицательное число. Однако в описании к функции говорится:
Цитата:
Write an integer in hexadecimal right-justified in a field of at least ABS(w) characters.
PROCEDURE Hex(x: HUGEINT; w: LONGINT );
Зачем писать отрицательное число?

Я такое встречал уже неоднократно, может это традиция какая-то?
 
 Top
BohdanT Администратор
Отправлено: 07 Июня, 2009 - 15:10:52
Post Id



Super Member


Покинул форум
Сообщений всего: 606
Дата рег-ции: Июль 2008  
Откуда: Киев, Украина
Репутация: 2




Цитата:
Write "x" as a hexadecimal number. The absolute value of "w" is the field width. If "w" is negative, two hex digits are printed (x MOD 100H), otherwise 8 digits are printed.

т.е. такая маленькая фичка, для того что бы байт вывести

PROCEDURE Hex*(x: HUGEINT; w: LONGINT);
VAR i, j: LONGINT; buf: ARRAY 10 OF CHAR;
BEGIN
IF w >= 0 THEN j := 8 ELSE j := 2; w := -w END;
FOR i := j+1 TO w DO Char(" ") END;
FOR i := j-1 TO 0 BY -1 DO
buf[i] := CHR(x MOD 10H + 48);
IF buf[i] > "9" THEN
buf[i] := CHR(ORD(buf[i]) - 48 + 65 - 10)
END;
x := x DIV 10H
END;
buf[j] := 0X;
String(buf)
END Hex;
 
 Top
lit-uriy Супермодератор
Отправлено: 07 Июня, 2009 - 15:32:55
Post Id


Advanced Member


Покинул форум
Сообщений всего: 298
Дата рег-ции: Нояб. 2008  
Откуда: Тюмень / Новосибирск
Репутация: 0




Спасибо, а коментарий ты где взял, в коде?

Я смотрел в PDF'нике, который собрал из TeX-файла
/Documentation/ShortCourse/A2Qui ckStartGuide.toc
(Взял TeX'ы тут: https://www.ocp.inf.ethz.ch/svn/...es/Documentation
Положил PDF'ники сюда: http://svn.assembla.com/svn/oberonru/trunk/Docs)
 
 Top
BohdanT Администратор
Отправлено: 07 Июня, 2009 - 15:43:52
Post Id



Super Member


Покинул форум
Сообщений всего: 606
Дата рег-ции: Июль 2008  
Откуда: Киев, Украина
Репутация: 2




lit-uriy пишет:
Спасибо, а коментарий ты где взял, в коде?

да
lit-uriy пишет:

Я смотрел в PDF'нике, который собрал из TeX-файла

да, покачто лучше в исдохниках смотреть...
 
 Top
Страниц (1): [1]
Сейчас эту тему просматривают: 1 (гостей: 1, зарегистрированных: 0, скрытых: 0)
« Общеe »


Все гости форума могут просматривать этот раздел.
Только зарегистрированные пользователи могут создавать новые темы в этом разделе.
Только зарегистрированные пользователи могут отвечать на сообщения в этом разделе.
 



Locations of visitors to this page
[Valid RSS]

RSS

Valid CSS!


Powered by ExBB
ExBB FM 1.0 RC1 by TvoyWeb.ru
InvisionExBB Style converted by Markus®

[Script Execution time: 0.0109]     [ Gzipped ]