1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36

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

include" units\tools\doc\core.de"

namespace GOOGLECODE
  DOC-GENERATOR ' \page alias \page
    : str->printable ( B: x -- B: y) ;
    : == " ==" << ;
    : === " ===" << ;
    : ==== " ====" << ;
    : article source-next-name str->printable == << == ;
    ' nop alias \article
    : _ "  " << ;
    : @> source-next-name bdup str->printable " [" << << _ << " ] " << ;
    : header == _ ;
    : \header _ == ;
    : inline " `" << ;
    ' inline alias \inline
    : s( " {{{( " << " )" source-cut << " )}}} " << ;
    ' nop alias list
    ' nop alias \list
    : ** "   # " << ;
    ' nop alias \** 
    : w " {{{" << source-next-name << " }}} " << ;

    : b " *" << ;
    ' b alias \b
    ' nop alias u
    ' u alias \u
    : i " _" << ;
    ' i alias \i
    : code " {{{" << ;
    : \code " }}}" << ;
  ^^^
\namespace