OberonCore
https://forum.oberoncore.ru/

"Опечатки" в модулях (наведение красоты)
https://forum.oberoncore.ru/viewtopic.php?f=131&t=2416
Страница 1 из 1

Автор:  Евгений Темиргалеев [ Четверг, 04 Март, 2010 10:49 ]
Заголовок сообщения:  "Опечатки" в модулях (наведение красоты)

StdStamps.Restore
Код:
c := v.context;
      IF (c # NIL) & (c IS TextModels.Context) THEN
         a := v.context(TextModels.Context).Attr();
         ...
Заменить соотв. строку на
Код:
         a := c(TextModels.Context).Attr();

Автор:  Иван Кузьмицкий [ Четверг, 04 Март, 2010 11:45 ]
Заголовок сообщения:  Re: Мелкое улучшение StdStamps.Restore

А что это даст?

Автор:  Евгений Темиргалеев [ Четверг, 04 Март, 2010 12:11 ]
Заголовок сообщения:  Re: Мелкое улучшение StdStamps.Restore

Исправление опечатки, так сказать. В StdLinks.RestoreView так и записано.

Кстати: там оформление хромает:
Код:
      ...
      IF coloredBackg THEN
      f.DrawRect(f.l, f.t, f.r, f.b, Ports.fill, Ports.grey25) END;
      ...

Автор:  Евгений Темиргалеев [ Пятница, 16 Июль, 2010 19:33 ]
Заголовок сообщения:  Re: "Опечатки" в модулях

HostFiles

PROCEDURE (r: Reader) SetPos (pos: INTEGER);
PROCEDURE (r: Reader) ReadBytes (VAR x: ARRAY OF BYTE; beg, len: INTEGER);
PROCEDURE (w: Writer) SetPos (pos: INTEGER);
PROCEDURE (w: Writer) WriteBytes (IN x: ARRAY OF BYTE; beg, len: INTEGER);
Коды предусловий не соотв. документации.

PROCEDURE (d: Directory) SameFile* (loc0: Files.Locator; name0: Files.Name; loc1: Files.Locator; name1: Files.Name): BOOLEAN;
Не проверяются предусловия 22, 23.

Автор:  Евгений Темиргалеев [ Пятница, 16 Июль, 2010 23:44 ]
Заголовок сообщения:  Re: "Опечатки" в модулях

HostFiles

Old: отстуствует ветка ELSE в WITH (трэп на неродном локаторе)
в прочих процедурах, напр. New, Delete, на неродной Locator выставляется res = 1 (invalid name or locator)

Автор:  Евгений Темиргалеев [ Понедельник, 13 Июнь, 2011 11:40 ]
Заголовок сообщения:  Re: "Опечатки" в модулях (наведение красоты)

Код:
   PROCEDURE StdFolds.InsertionAttr (text: TextModels.Model; pos: INTEGER): TextModels.Attributes;
      VAR rd: TextModels.Reader; ch: CHAR;
   BEGIN
      rd := text.NewReader(NIL);
      rd.SetPos(pos); rd.ReadChar(ch);
      RETURN rd.attr
   END InsertionAttr;
Достаточно rd.Read. ch: CHAR не нужен.

Страница 1 из 1 Часовой пояс: UTC + 3 часа
Powered by phpBB® Forum Software © phpBB Group
https://www.phpbb.com/