~ubuntu-branches/ubuntu/utopic/critcl/utopic

« back to all changes in this revision

Viewing changes to doc/figures/architecture.dia

• browse files at revision 1
• compare with another revision
• download diff
• download tarball
• view history from revision 1

Show diffs side-by-side

added

removed

doc/figures/architecture.dia

 

1

# -*- tcl -*- tcl.tk//DSL diagram//EN//1.0

 

2

# Parser Tools Architecture Diagram

 

3

 

 

4

set counter 0

 

5

if {![info exists mark]} { set mark -1 }

 

6

 

 

7

proc xbox {args} {

 

8

    variable mark

 

9

    variable counter

 

10

 

 

11

    if {$mark == $counter} {

 

12

        lappend args color red stroke 2

 

13

    }

 

14

    incr counter

 

15

    return [uplevel 1 [list box {*}$args]]

 

16

}

 

17

 

 

18

proc area {label args} {

 

19

    set E [xbox fillcolor lightyellow {*}$args]

 

20

    group {

 

21

        text text $label with nw at [last box nw]

 

22

    }

 

23

    return $E

 

24

}

 

25

 

 

26

down

 

27

set boxwidth [90 mm]

 

28

set movelength [5 mm]

 

29

 

 

30

set A [area Applications]

 

31

move

 

32

set C [area "Core Packages"]

 

33

move

 

34

set S [area "Support Packages"]

 

35

 

 

36

text at $A "critcl\ncritcl::app"

 

37

text at $C "critcl\ncritcl::util"

 

38

text at $S "stubs::*, md5, platform ..."

• Older »

Loggerhead is a web-based interface for Breezy
Version: 2.0.1