ГОСТ Р ИСО 13584-26—2014
FUNCTION encode(з :STRING; characters : SET OF STRING): STRING;
LOCAL
i: INTEGER;
pos: INTEGER;
strtrap: STRING;
result: STRING :- ";
END_LOCAL;
REPEAT i :- 1 TO LENGTH(s);
IF sfi] IN (’V, ’/’] THEN
resultresult ■» ’%’ ■»s[i];
ELSE
IF 3[iJ IN characters THEN
pos :- icode(s^i]);
strtrap :- FORMAT<pos, ’21’);
IF pos <10 THEN
strtmp :- strtmp-2:2];
END_IF;
result :- result -- strtmp -
ELSE
result :- result * sji];
END_IF;
EN0_1F;
END_REPEAT;
RETURN (result);
END FUNCTION;
4.2.2 Функция icode
Функция icodo возвращает код символа из набора символов, определенного ИСО/МЭК 10646-
1:1993. Данный код интерпретируется как целое значение.
*)
FUNCTION icode (с : STRING): INTEGER;
LOCAL
i: INTEGER;
END_LOCAL;
(• set i to character code of c in the ISO/IEC 10646-1:1993
character set, interpreted as an integer value *)
RETURN (i);
END_FL’NCTION;
k)
Примечание 1 — Функция icode описана в языке EXPRESS не полностью, гак как ограничения
языка EXPRESS сделали бы данную функцию чрезмерно длинной.
Примечание 2 — Функция, эквивалентная функции icode. может быть включена во второе издание
ИСО 10303-11.
4.3 Синтаксис
Нормальный код поставщика — это строка, образованная путем последовательного соединения
ICD, закодированного OI, OPI (или пустой строки) или OPIS (или пустой строки) в указанном порядке.
Далее присоединяются элементы, отделенные знаком слэш (/). «Закодированный О!» —
это
4