Пример 1

Выражения преобразованы в символьные строки:

expr2text(a + b)

expr2text заключает строки в кавычки. Обратите внимание на то, что кавычкам предшествует наклонная черта влево, когда они распечатаны на экране:

expr2text(["text", 2])

Пример 2

Если больше чем один аргумент дан, аргументы обработаны как последовательность отдельного выражения:

expr2text(a, b, c)

Если никакой аргумент не дан, пустая строка сгенерирована:

expr2text()

Пример 3

expr2text оценивает свои аргументы:

a := b: c := d: expr2text(a, c)

Используйте hold, чтобы предотвратить оценку:

expr2text(hold(a, c));
delete a, c:

Вот другой пример:

expr2text((a := b; c := d));
delete a, c:

e := expr2text(hold((a := b; c := d)))

Последняя строка содержит символ новой строки “\\n”. Используйте print с опцией Unquoted, чтобы расширить это в новую строку:

print(Unquoted, e):

(a := b;
c := d)

Пример 4

expr2text является сверхзагружаемым. Это использует вывод по умолчанию для элементов области, если область не имеет ни слота "print", ни слота "expr2text":

T := newDomain("T"): e := new(T, 1):
e;
print(e):
expr2text(e)

Если слот "print" будет существовать, он будет вызван expr2text, чтобы сгенерировать вывод:

T::print := proc(x) begin
  _concat("foo: ", expr2text(extop(x)))
end_proc:
e;
print(e):
expr2text(e)

Если вы хотите, чтобы expr2text сгенерировал вывод, отличающийся от обычного вывода, сгенерированного print, можно предоставить метод "expr2text":

T::expr2text := proc(x) begin
  _concat("bar: ", expr2text(extop(x)))
end_proc:
e;
print(e):
expr2text(e)

Возвращаемые значения

строка.

Перегруженный

object