#include <string.h>
#include <dialog.h>
#include <popen.h>
#include <proto.h>
#include <tlmplib.h>
#include "graph.h"
#include "schema.h"

<mod>
static void sample(int rotate)
{
	<call grmanage>("grnode",rotate);
		<f exec>
			<call grnode>(mode,node);
				<f draw>
					drawrect(mode,node,20,20);
				</f>
				<f right1>
					<call grsteps>(mode,node,true);
						<f step1>
							drawrect(mode,node,30,30);
						</f>
						<f step2>
							drawrect(mode,node,30,30);
						</f>
						<f step3>
							drawrect(mode,node,40,40);
						</f>
						<f step4>
							drawrect(mode,node,50,50);
						</f>
						<f step5>
							<call grnode>(mode,node);
								<f draw>
									drawellipse (mode,node,30,20,"func1","");
								</f>
								<f right1>
									<call grnode>(mode,node);
										<f draw>
											drawellipse (mode,node,30,20,"func2","desc2");
										</f>
									</call>
								</f>
								<f right2>
									<call grnode>(mode,node);
										<f draw>
											drawellipse (mode,node,40,30,"func3","desc3");
										</f>
									</call>
								</f>
							</call>
						</f>
					</call>
				</f>
				<f right2>
					<call grnode>(mode,node);
						<f draw>
							drawellipse (mode,node,40,30);
						</f>
					</call>
				</f>
				<f right3>
					<call grgroup>(mode,node);
						<f group>
							<call grnode>(mode,node);
								<f draw>
									drawellipse (mode,node,6,6);
								</f>
								<f right1>
									drawellipse (mode,node,10,10);
								</f>
								<f right2>
									drawellipse (mode,node,15,15);
								</f>
								<f right3>
									drawellipse (mode,node,15,10);
								</f>
								<f right4>
									drawellipse (mode,node,15,10);
								</f>
								<f right5>
									drawellipse (mode,node,15,10);
								</f>
							</call>
						</f>
						<f draw>
							drawrect (mode,node,node.depth,node.width);
						</f>
					</call>
				</f>
			</call>
		</f>
	</call>
}
</mod>

<mod>
static void view0(int rotate)
{
	<glocal>
		UNIFORM_OBJECT *func;
	</glocal>
	<obj UNIFORM_OBJECT func>();
		<f draw>
			drawellipse (mode,node,w,h,title,desc);
		</f>
	</obj>
	glocal.func = &func;
	<call grmanage>("view 2",rotate);
		<f exec>
			<call grnode>(mode,node);
				<f draw>
					drawellipse (mode,node,40,25,"","main");
				</f>
				<f right1>
					<call grnode>(mode,node);
						<f draw>
							drawellipse (mode,node,20,15,"","update");
						</f>
						<f right1>
							drawellipse (mode,node,20,15);
						</f>
						<f right2>
							<call grnode>(mode,node);
								<f draw>
									drawellipse (mode,node,20,15);
								</f>
								<f right1>
									glocal.func->draw (mode,node,"read commands");
								</f>
								<f right2>
									glocal.func->draw (mode,node,"read data");
								</f>
							</call>
						</f>
						<f right3>
							drawellipse (mode,node,20,15);
						</f>
					</call>
				</f>
				<f right2>
					<call grnode>(mode,node);
						<f draw>
							drawellipse (mode,node,20,15,"","report");
						</f>
						<f right1>
							drawellipse (mode,node,20,15);
						</f>
						<f right2>
							<call grnode>(mode,node);
								<f draw>
									drawellipse (mode,node,20,15);
								</f>
								<f right1>
									glocal.func->draw (mode,node,"print");
								</f>
								<f right2>
									glocal.func->draw (mode,node,"mail");
								</f>
								<f right3>
									glocal.func->draw (mode,node,"fax");
								</f>
							</call>
						</f>
					</call>
				</f>
			</call>
		</f>
	</call>
}
</mod>


<mod>
static void view1(int rotate)
{
	<call grmanage>("Simple program",rotate);
		<f exec>
			<glocal>
			</glocal>
			<call grnode>(mode,node);
				<f draw>
					drawellipse (mode,node,40,25,"","main");
				</f>
				<f right1>
					drawellipse (mode,node,40,25,"","update");
				</f>
				<f right2>
					drawellipse (mode,node,40,25,"","report");
				</f>
			</call>
		</f>
	</call>
}
</mod>

<mod>
static void view2(int rotate)
{
	<call grmanage>("view 2",rotate);
		<f exec>
			<call grnode>(mode,node);
				<f draw>
					drawellipse (mode,node,40,25,"","main");
				</f>
				<f right1>
					<call grgroup>(mode,node);
						<f draw>
							drawrect (mode,node,node.depth,node.width,"update implementation","");
						</f>
						<f group>
							<call grnode>(mode,node);
								<f draw>
									drawellipse (mode,node,20,15,"","update");
								</f>
								<f right1>
									drawellipse (mode,node,20,15);
								</f>
								<f right2>
									<call grnode>(mode,node);
										<f draw>
											drawellipse (mode,node,20,15);
										</f>
										<f right1>
											drawellipse (mode,node,20,15,"","read commands");
										</f>
										<f right2>
											drawellipse (mode,node,20,15,"","read data");
										</f>
									</call>
								</f>
								<f right3>
									drawellipse (mode,node,20,15);
								</f>
							</call>
						</f>
					</call>
				</f>
				<f right2>
					<call grgroup>(mode,node);
						<f draw>
							drawrect (mode,node,node.depth,node.width,"report implementation","");
						</f>
						<f group>
							<call grnode>(mode,node);
								<f draw>
									drawellipse (mode,node,20,15,"","report");
								</f>
								<f right1>
									drawellipse (mode,node,20,15);
								</f>
								<f right2>
									<call grnode>(mode,node);
										<f draw>
											drawellipse (mode,node,20,15);
										</f>
										<f right1>
											drawellipse (mode,node,20,15,"","print");
										</f>
										<f right2>
											drawellipse (mode,node,20,15,"","mail");
										</f>
										<f right3>
											drawellipse (mode,node,20,15,"","fax");
										</f>
									</call>
								</f>
							</call>
						</f>
					</call>
				</f>
			</call>
		</f>
	</call>
}
</mod>

<mod>
static void view3(int rotate)
{
	<call grmanage>("view 3",rotate);
	<f exec>
		<call grnode>(mode,node);
		<f draw>
			drawellipse (mode,node,40,25,"","main");
		</f>
		<f right1>
			<call grnode>(mode,node);
			<f draw>
				node.setz (30);
				<call grgroup>(mode,node);
				<f draw>
					drawrect (mode,node,node.depth,node.width,"update","");
				</f>
				<f group>
					<call grnode>(mode,node);
					<f draw>
						drawellipse (mode,node,20,15,"","update");
					</f>
					<f right1>
						drawellipse (mode,node,20,15);
					</f>
					<f right2>
						drawellipse (mode,node,20,15);
					</f>
					<f right3>
						drawellipse (mode,node,20,15);
					</f>
					</call>
				</f>
				</call>
			</f>
			<f right1>
				drawellipse (mode,node,20,15,"","read commands");
			</f>
			<f right2>
				drawellipse (mode,node,20,15,"","read data");
			</f>
			</call>
		</f>
		<f right2>
			<call grnode>(mode,node);
			<f draw>
				<call grgroup>(mode,node);
				<f draw>
					drawrect (mode,node,node.depth,node.width,"report","");
				</f>
				<f group>
					<call grnode>(mode,node);
					<f draw>
						drawellipse (mode,node,20,15,"","report");
					</f>
					<f right1>
						drawellipse (mode,node,20,15);
					</f>
					<f right2>
						drawellipse (mode,node,20,15);
					</f>
					</call>
				</f>
				</call>
			</f>
			<f right1>
				drawellipse (mode,node,20,15,"","print");
			</f>
			<f right2>
				drawellipse (mode,node,20,15,"","mail");
			</f>
			<f right3>
				drawellipse (mode,node,20,15,"","fax");
			</f>
			</call>
		</f>
		</call>
	</f>
	</call>
}
</mod>

<mod>
static void boss(int rotate)
{
	<call grmanage>("Le boss",rotate);
		<f exec>
			<call grhline>(mode,node);
				<f top>
					drawrect (mode,node,20,20,"","Jacques");
				</f>
				<f item1>
					<call grsteps>(mode,node,true);
						<f step1>
							drawrect (mode,node,20,20,"","Jean");
						</f>
						<f step2>
							drawrect (mode,node,20,20,"","Jean1");
						</f>
						<f step3>
							drawrect (mode,node,20,20,"","Jean2");
						</f>
					</call>
				</f>
				<f item2>
					drawrect (mode,node,20,20,"","Pierre");
				</f>
				<f item3>
					drawparagraph (mode,node
						,"void main()\n"
						 "{\n"
						 "	int a;\n"
						 "}");
				</f>
			</call>
		</f>
	</call>
}
</mod>


<mod>
static void dostar (int rotate)
{
	<glocal>
	int i;
	</glocal>
	<call grmanage>("star",rotate);
		<f exec>
			<call grstar>(mode,node);
				<f center>
					drawellipse (mode,node,50,50,"","C");
				</f>
				<f item1>
					drawellipse (mode,node,10,10,"","1");
				</f>
				<f item2>
					drawrect (mode,node,10,10,"","2");
				</f>
				<f item3>
					drawrect (mode,node,10,10,"","3");
				</f>
				<f item4>
					drawrect (mode,node,10,10,"","4");
				</f>
				<f item5>
					drawrect (mode,node,10,10,"","5");
				</f>
				<f item6>
					drawrect (mode,node,30,30,"","6");
				</f>
			</call>
		</f>
	</call>
}
</mod>

<mod>
static void dobox (int rotate)
{
	<glocal>
	int i;
	</glocal>
	<call grmanage>("box",rotate);
		<f exec>
			<call grbox>(mode,node);
				<f box>
					drawrect (mode,node,250,50,"","Switch");
				</f>
				<f litem>
					drawrect (mode,node,30,30,"","left");
				</f>
				<f ritem>
					drawrect (mode,node,30,20,"","right");
				</f>

				<f titem1>
					drawellipse (mode,node,10,10,"","S1");
				</f>
				<f titem2>
					drawrect (mode,node,10,10,"","S2");
				</f>
				<f titem3>
					drawrect (mode,node,10,10,"","S3");
				</f>
				<f titem4>
					drawrect (mode,node,10,10,"","S4");
				</f>
				<f titem5>
					drawrect (mode,node,10,10,"","S5");
				</f>
				<f titem6>
					drawrect (mode,node,30,30,"","S6");
				</f>
				<f bitem1>
					drawellipse (mode,node,10,10,"","C1");
				</f>
				<f bitem2>
					drawrect (mode,node,10,10,"","C2");
				</f>
				<f bitem3>
					drawrect (mode,node,10,10,"","C3");
				</f>
				<f bitem4>
					drawrect (mode,node,10,10,"","C4");
				</f>
			</call>
		</f>
	</call>
}
</mod>

<mod>
static void dochip (int rotate)
{
	<glocal>
	int i;
	</glocal>
	<call grmanage>("box",rotate);
		<f exec>
			<call grchip>(mode,node);
				<f drawbody>
					node.depth = 40;
					drawrect (mode,node,node.depth,node.width,"","");
				</f>
				<f left>
					if (pin < 3){
						drawrect (mode,node,10,10,"","");
					}
				</f>
				<f top>
					if (pin < 2){
						//	drawrect (mode,node,10,10,"","");
						node.depth = 10;
						node.width = 1;
					}
				</f>
				<f drawtpin>
					// No pin on top
				</f>
				<f right>
					if (pin < 3){
						// drawrect (mode,node,10,10,"","");
						node.width = node.depth = 10;
					}
				</f>
				<f bottom>
					//if (pin < 2){
					//	drawrect (mode,node,10,10,"","");
					//}
				</f>
			</call>
		</f>
	</call>
}
</mod>

static SCHEMA_REGISTER rsample ("grnode",sample);
static SCHEMA_REGISTER rview0 ("view0",view0);
static SCHEMA_REGISTER rview1 ("view1",view1);
static SCHEMA_REGISTER rview2 ("view2",view2);
static SCHEMA_REGISTER rview3 ("view3",view3);
static SCHEMA_REGISTER rboss ("grhline",boss);
static SCHEMA_REGISTER rstar ("star",dostar);
static SCHEMA_REGISTER rbox ("box",dobox);
static SCHEMA_REGISTER rchip ("chip",dochip);