Paradiseo-eo sources added

git-svn-id: svn://scm.gforge.inria.fr/svnroot/paradiseo@40 331e1502-861f-0410-8da2-ba01fb791d7f
This commit is contained in:
legrand 2006-12-12 14:49:08 +00:00
commit c3aec878e5
3609 changed files with 342772 additions and 0 deletions

View file

@ -0,0 +1,297 @@
%!PS-Adobe-2.0 EPSF-2.0
%%Title: ClassName
%%Creator: Doxygen
%%CreationDate: Time
%%For:
%Magnification: 1.00
%%Orientation: Portrait
%%BoundingBox: 0 0 500 66.6667
%%Pages: 0
%%BeginSetup
%%EndSetup
%%EndComments
% ----- variables -----
/boxwidth 0 def
/boxheight 40 def
/fontheight 24 def
/marginwidth 10 def
/distx 20 def
/disty 40 def
/boundaspect 7.5 def % aspect ratio of the BoundingBox (width/height)
/boundx 500 def
/boundy boundx boundaspect div def
/xspacing 0 def
/yspacing 0 def
/rows 4 def
/cols 12 def
/scalefactor 0 def
/boxfont /Times-Roman findfont fontheight scalefont def
% ----- procedures -----
/dotted { [1 4] 0 setdash } def
/dashed { [5] 0 setdash } def
/solid { [] 0 setdash } def
/max % result = MAX(arg1,arg2)
{
/a exch def
/b exch def
a b gt {a} {b} ifelse
} def
/xoffset % result = MAX(0,(scalefactor-(boxwidth*cols+distx*(cols-1)))/2)
{
0 scalefactor boxwidth cols mul distx cols 1 sub mul add sub 2 div max
} def
/cw % boxwidth = MAX(boxwidth, stringwidth(arg1))
{
/str exch def
/boxwidth boxwidth str stringwidth pop max def
} def
/box % draws a box with text `arg1' at grid pos (arg2,arg3)
{ gsave
2 setlinewidth
newpath
exch xspacing mul xoffset add
exch yspacing mul
moveto
boxwidth 0 rlineto
0 boxheight rlineto
boxwidth neg 0 rlineto
0 boxheight neg rlineto
closepath
dup stringwidth pop neg boxwidth add 2 div
boxheight fontheight 2 div sub 2 div
rmoveto show stroke
grestore
} def
/mark
{ newpath
exch xspacing mul xoffset add boxwidth add
exch yspacing mul
moveto
0 boxheight 4 div rlineto
boxheight neg 4 div boxheight neg 4 div rlineto
closepath
eofill
stroke
} def
/arrow
{ newpath
moveto
3 -8 rlineto
-6 0 rlineto
3 8 rlineto
closepath
eofill
stroke
} def
/out % draws an output connector for the block at (arg1,arg2)
{
newpath
exch xspacing mul xoffset add boxwidth 2 div add
exch yspacing mul boxheight add
/y exch def
/x exch def
x y moveto
0 disty 2 div rlineto
stroke
1 eq { x y disty 2 div add arrow } if
} def
/in % draws an input connector for the block at (arg1,arg2)
{
newpath
exch xspacing mul xoffset add boxwidth 2 div add
exch yspacing mul disty 2 div sub
/y exch def
/x exch def
x y moveto
0 disty 2 div rlineto
stroke
1 eq { x y disty 2 div add arrow } if
} def
/hedge
{
exch xspacing mul xoffset add boxwidth 2 div add
exch yspacing mul boxheight 2 div sub
/y exch def
/x exch def
newpath
x y moveto
boxwidth 2 div distx add 0 rlineto
stroke
1 eq
{ newpath x boxwidth 2 div distx add add y moveto
-8 3 rlineto
0 -6 rlineto
8 3 rlineto
closepath
eofill
stroke
} if
} def
/vedge
{
/ye exch def
/ys exch def
/xs exch def
newpath
xs xspacing mul xoffset add boxwidth 2 div add dup
ys yspacing mul boxheight 2 div sub
moveto
ye yspacing mul boxheight 2 div sub
lineto
stroke
} def
/conn % connections the blocks from col `arg1' to `arg2' of row `arg3'
{
/ys exch def
/xe exch def
/xs exch def
newpath
xs xspacing mul xoffset add boxwidth 2 div add
ys yspacing mul disty 2 div sub
moveto
xspacing xe xs sub mul 0
rlineto
stroke
} def
% ----- main ------
boxfont setfont
1 boundaspect scale
(Dummy) cw
(EO< double >) cw
(EO< double >) cw
(EO< double >) cw
(EO< double >) cw
(EO< double >) cw
(EO< double >) cw
(eoObject) cw
(eoPersistent) cw
(eoObject) cw
(eoPersistent) cw
(eoObject) cw
(eoPersistent) cw
(eoObject) cw
(eoPersistent) cw
(eoObject) cw
(eoPersistent) cw
(eoObject) cw
(eoPersistent) cw
/boxwidth boxwidth marginwidth 2 mul add def
/xspacing boxwidth distx add def
/yspacing boxheight disty add def
/scalefactor
boxwidth cols mul distx cols 1 sub mul add
boxheight rows mul disty rows 1 sub mul add boundaspect mul
max def
boundx scalefactor div boundy scalefactor div scale
% ----- classes -----
(Dummy) 5 0 box
(EO< double >) 0 1 box
(EO< double >) 2 1 box
(EO< double >) 4 1 box
(EO< double >) 6 1 box
(EO< double >) 8 1 box
(EO< double >) 10 1 box
(eoPersistent) 11 2 box
11 2 mark
(eoObject) 11 3 box
(eoPersistent) 9 2 box
9 2 mark
(eoObject) 9 3 box
(eoPersistent) 7 2 box
7 2 mark
(eoObject) 7 3 box
(eoPersistent) 5 2 box
5 2 mark
(eoObject) 5 3 box
(eoPersistent) 3 2 box
3 2 mark
(eoObject) 3 3 box
(eoPersistent) 1 2 box
1 2 mark
(eoObject) 1 3 box
% ----- relations -----
solid
0 5 0 out
solid
0 10 1 conn
solid
1 0 1 in
solid
0 0 1 out
solid
1 2 1 in
solid
0 2 1 out
solid
1 4 1 in
solid
0 4 1 out
solid
1 6 1 in
solid
0 6 1 out
solid
1 8 1 in
solid
0 8 1 out
solid
1 10 1 in
solid
0 10 1 out
solid
1 0 2.5 hedge
solid
1 0 3.5 hedge
solid
0 2 3.5 vedge
solid
1 2 2.5 hedge
solid
1 2 3.5 hedge
solid
2 2 3.5 vedge
solid
1 4 2.5 hedge
solid
1 4 3.5 hedge
solid
4 2 3.5 vedge
solid
1 6 2.5 hedge
solid
1 6 3.5 hedge
solid
6 2 3.5 vedge
solid
1 8 2.5 hedge
solid
1 8 3.5 hedge
solid
8 2 3.5 vedge
solid
1 10 2.5 hedge
solid
1 10 3.5 hedge
solid
10 2 3.5 vedge