1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

// 2011.10.20 # Doj
// Генератор страниц помощи

namespace DOC-GENERATOR
  variable *doing?
  variable *<<
  : \page *doing? off ;
  : << *<< @ execute ;
\namespace

: <<! ( x) DOC-GENERATOR *<< ^ ! ;
' str. <<!

: {page}
  DOC-GENERATOR
    *doing? on
    begin *doing? @ while
      " {" source-cut <<
      " }" source-cut evaluate
    repeat
  ^ ;