// Presentation unigiciel, 2000
#include "graph.h"
#include "tledit.h"
#include "schema.h"
<mod>
static void api1()
{
	<call grmanage>("Les APIs système");
		<f exec>
			<call grhline>(mode,node);
				<f top>
					drawparagraph (mode,node,"Les APIs système");
				</f>
				<f item1>
					<call grsteps>(mode,node,true);
						<f step1>
							drawrect (mode,node,20,20,"","Entrées/Sorties");
						</f>
						<f step2>
							drawparagraph (mode,node,"Synchrone\nAsyncrhone");
						</f>
					</call>
				</f>
				<f item2>
					<call grsteps>(mode,node,true);
						<f step1>
							drawrect (mode,node,20,20,"","Système de fichiers");
						</f>
						<f step2>
							drawparagraph (mode,node,"Volumes\nRépertoires et fichiers\nFichiers spéciaux");
						</f>
					</call>
				</f>
				<f item3>
					<call grsteps>(mode,node,true);
						<f step1>
							drawrect (mode,node,20,20,"","Communications");
						</f>
						<f step2>
							drawparagraph (mode,node,"Réseaux\nInternes\nAnonyme");
						</f>
					</call>
				</f>
				<f item4>
					<call grsteps>(mode,node,true);
						<f step1>
							drawrect (mode,node,20,20,"","Ressources");
						</f>
						<f step2>
							drawparagraph (mode,node,"Mémoire\nProcessus\n/proc");
						</f>
					</call>
				</f>
				<f item5>
					<call grsteps>(mode,node,true);
						<f step1>
							drawrect (mode,node,20,20,"","Sécurité");
						</f>
						<f step2>
							drawparagraph (mode,node,"Accès\nSetuid");
						</f>
					</call>
				</f>
			</call>
		</f>
	</call>
}
</mod>
<mod>
static void api2()
{
	<call grmanage>("Les APIs système");
		<f exec>
			<call grhline>(mode,node);
				<f top>
					drawparagraph (mode,node,"Les APIs système");
				</f>
				<f item1>
					<call grhline>(mode,node);
						<f top>
							drawparagraph (mode,node,"Entrées/Sorties");
						</f>
						<f item1>
							<call grsteps>(mode,node,true);
								<f step1>
									drawrect (mode,node,20,20,"","Entrées/Sorties");
								</f>
								<f step2>
									drawparagraph (mode,node,"Synchrone\nAsyncrhone");
								</f>
							</call>
						</f>
						<f item2>
							<call grsteps>(mode,node,true);
								<f step1>
									drawrect (mode,node,20,20,"","Système de fichiers");
								</f>
								<f step2>
									drawparagraph (mode,node,"Volumes\nRépertoires et fichiers\nFichiers spéciaux");
								</f>
								<f step3>
									drawrect (mode,node,20,20,"","Communications");
								</f>
								<f step4>
									drawparagraph (mode,node,"Réseaux\nInternes\nAnonyme");
								</f>
							</call>
						</f>
					</call>
				</f>
				<f item2>
					<call grhline>(mode,node);
						<f top>
							drawparagraph (mode,node,"Divers");
						</f>
						<f item1>
							<call grsteps>(mode,node,true);
								<f step1>
									drawrect (mode,node,20,20,"","Ressources");
								</f>
								<f step2>
									drawparagraph (mode,node,"Mémoire\nProcessus\n/proc");
								</f>
							</call>
						</f>
						<f item2>
							<call grsteps>(mode,node,true);
								<f step1>
									drawrect (mode,node,20,20,"","Sécurité");
								</f>
								<f step2>
									drawparagraph (mode,node,"Accès\nSetuid");
								</f>
							</call>
						</f>
					</call>
				</f>
			</call>
		</f>
	</call>
}
</mod>
<mod>
static void api3()
{
	<call grmanage>("Entrées sorties");
		<f exec>
			<call grhline>(mode,node);
				<f top>
					drawparagraph (mode,node,"Entrées/Sorties");
				</f>
				<f link1>
				</f>
				<f link2>
				</f>
				<f item1>
					<call grsteps>(mode,node,false);
						<f link1>
						</f>
						<f step1>
							drawrect (mode,node,20,20,"","Synchrone");
						</f>
						<f step2>
							drawparagraph (mode,node,
						 		"select\n"
						 		"read,write,pread,pwrite\n"
						 		"readv,writev\n"
						 		"mmap\n"
								"pause\n"
						 		"flock");
						</f>
					</call>
				</f>
				<f item2>
					<call grsteps>(mode,node,false);
						<f link1>
						</f>
						<f step1>
							drawrect (mode,node,20,20,"","Asynchrone");
						</f>
						<f step2>
						 	drawparagraph (mode,node,
						 		"kill\n");
						</f>
					</call>
				</f>
			</call>
		</f>
	</call>
}
</mod>
<mod>
static void api4()
{
	<call grmanage>("Fichiers et répertoires");
		<f exec>
			<call grhline>(mode,node);
				<f top>
					drawparagraph (mode,node,"Système de fichiers");
				</f>
				<f link1>
				</f>
				<f item1>
					drawparagraph (mode,node,
						"Volumes\n"
						"\tstatfs\n"
						"Répertoires et fichiers\n"
						"\tstat\n"
						"\topendir,readdir,closedir\n"
						"fichiers spéciaux\n"
						"\tsymlink,readlink\n"
						"\tmknod\n"
						"\tlink\n"
						"\tlstat");
				</f>
			</call>
		</f>
	</call>
}
</mod>
<mod>
static void api5()
{
	<call grmanage>("Communications");
		<f exec>
			<call grhline>(mode,node);
				<f top>
					drawparagraph (mode,node,"Communications");
				</f>
				<f link1>
				</f>
				<f link2>
				</f>
				<f link3>
				</f>
				<f item1>
					<call grsteps>(mode,node,false);
						<f link1>
						</f>
						<f step1>
							drawrect (mode,node,20,20,"","Réseaux");
						</f>
						<f step2>
							drawparagraph (mode,node,
								"bind\n"
								"connect\n"
								"socket\n"
								"listen\n"
								"accept\n"
								"getpeername\n"
								"getsockname");
						</f>
					</call>
				</f>
				<f item2>
					<call grsteps>(mode,node,false);
						<f link1>
						</f>
						<f step1>
							drawrect (mode,node,20,20,"","Locales");
						</f>
						<f step2>
							drawparagraph (mode,node,
								"named pipe\n"
								"mknod\n"
								"Unix domain socket");
						</f>
					</call>
				</f>
				<f item3>
					drawparagraph (mode,node,
						"anonyme\n"
						"pipe");
				</f>
			</call>
		</f>
	</call>
}
</mod>

<mod>
static void api6()
{
	<call grmanage>("Ressources");
		<f exec>
			<call grhline>(mode,node);
				<f top>
					drawparagraph (mode,node,"Ressources");
				</f>
				<f link1>
				</f>
				<f link2>
				</f>
				<f link3>
				</f>
				<f item1>
					<call grsteps>(mode,node,false);
						<f link1>
						</f>
						<f step1>
							drawrect (mode,node,20,20,"","Mémoire");
						</f>
						<f step2>
							drawparagraph (mode,node,
								"Mémoire partagé\n"
								"mmap anonyme");
						</f>
					</call>
				</f>
				<f item2>
					<call grsteps>(mode,node,false);
						<f link1>
						</f>
						<f step1>
							drawrect (mode,node,20,20,"","Processus");
						</f>
						<f step2>
							drawparagraph (mode,node,
								"fork\n"
								"pthread\n"
								"system\n"
								"exec\n"
								"sleep\n"
								"nanosleep");
						</f>
					</call>
				</f>
				<f item3>
					drawparagraph (mode,node,
						"/proc\n"
						"uname");
				</f>
			</call>
		</f>
	</call>
}
</mod>
<mod>
static void api7()
{
	<call grmanage>("Sécurité");
		<f exec>
			<call grhline>(mode,node);
				<f top>
					drawparagraph (mode,node,"Sécurité");
				</f>
				<f link1>
				</f>
				<f link2>
				</f>
				<f link3>
				</f>
				<f item1>
					<call grsteps>(mode,node,false);
						<f link1>
						</f>
						<f step1>
							drawrect (mode,node,20,20,"","Accès");
						</f>
						<f step2>
							drawparagraph (mode,node,
								"access\n"
								"chroot");
						</f>
					</call>
				</f>
				<f item2>
					<call grsteps>(mode,node,false);
						<f link1>
						</f>
						<f step1>
							drawrect (mode,node,20,20,"","Setuid");
						</f>
						<f step2>
							drawparagraph (mode,node,
								"getuid\n"
								"geteuid");
						</f>
					</call>
				</f>
			</call>
		</f>
	</call>
}
</mod>

static const char *float_get(int val)
{
	static char line[100];
	char cmd[100];
	sprintf (cmd,"echo \"2^-%d\" | /usr/bin/bc -l",val);
	POPEN pop (cmd);
	line[0] = '\0';
	if (pop.isok()){
		pop.wait(10);
		pop.readout (line,sizeof(line));
	}
	return line;
}


<mod>
static void dofloat ()
{
	<glocal>
	int i;
	</glocal>
	<call grmanage>("intro float","float00");
		<f exec>
			<call grhline>(mode,node);
				<f top>
					drawparagraph (mode,node,"Point flottant 101");
				</f>
				<f item1>
					drawparagraph (mode,node
						,"Representation d'un nombre point flottant\n"
						 "\n"
						 "1010101010101... * 2**N"
						);
				</f>
			</call>
		</f>
	</call>
					
	for (glocal.i=1; glocal.i<56; glocal.i+=5){
		SSTRING s;
		s.setfromf ("float%02d",glocal.i);
		<call grmanage>("Sécurité",s.get());
			<f exec>
				<call grsteps>(mode,node,false);
					<f link1>
					</f>
					<f link2>
					</f>
					<f link3>
					</f>
					<f link4>
					</f>
					<f link5>
					</f>
					<f step1>
						drawparagraph (mode,node,float_get(glocal.i));
					</f>
					<f step2>
						drawparagraph (mode,node,float_get(glocal.i+1));
					</f>
					<f step3>
						drawparagraph (mode,node,float_get(glocal.i+2));
					</f>
					<f step4>
						drawparagraph (mode,node,float_get(glocal.i+3));
					</f>
					<f step5>
						drawparagraph (mode,node,float_get(glocal.i+4));
					</f>
				</call>
			</f>
		</call>
	}
}
</mod>
<mod>
static void unix1()
{
	<glocal>
		UNIFORM_OBJECT *subject;
	</glocal>
	<obj UNIFORM_OBJECT subject>();
		<f draw>
			drawellipse (mode,node,w,h,title,desc);
		</f>
	</obj>
	glocal.subject = &subject;
	<call grmanage>("unix 1");
		<f exec>
			<call grnode>(mode,node);
				<f draw>
					drawellipse (mode,node,20,20,"","Les APIs");
				</f>
				<f right1>
					<call grgroup>(mode,node);
						<f draw>
							drawrect (mode,node,node.depth,node.width,"Programmation mondaine","");
						</f>
						<f group>
							<call grsteps>(mode,node,false);
								<f step1>
									<call grnode>(mode,node);
										<f draw>
											glocal.subject->draw (mode,node,"Interfaces usager");
										</f>
										<f right1>
											drawellipse (mode,node,20,20,"","Gnome/GTK");
										</f>
										<f right2>
											drawellipse (mode,node,20,20,"","KDE/Qt");
										</f>
										<f right3>
											drawellipse (mode,node,20,20,"","Motif/Xt/TclTk/...");
										</f>
									</call>
								</f>
								<f link1>
								</f>
								<f step2>
									<call grnode>(mode,node);
										<f draw>
											glocal.subject->draw (mode,node,"Base de données");
										</f>
										<f right1>
											drawellipse (mode,node,20,20,"","SQL");
										</f>
										<f right2>
											drawellipse (mode,node,20,20,"","DB");
										</f>
										<f right3>
											drawellipse (mode,node,20,20,"","Fichier texte");
										</f>
									</call>
								</f>
							</call>
						</f>
					</call>
				</f>
				<f right2>
					<call grgroup>(mode,node);
						<f draw>
							drawrect (mode,node,node.depth,node.width,"Programmation système","");
						</f>
						<f group>
							<call grsteps>(mode,node,false);
								<f step1>
									<call grnode>(mode,node);
										<f draw>
											glocal.subject->draw (mode,node,"Entrées/Sorties");
										</f>
										<f right1>
											drawellipse (mode,node,20,20,"","Synchrone");
										</f>
										<f right2>
											drawellipse (mode,node,20,20,"","Asynchrone");
										</f>
									</call>
								</f>
								<f link1>
								</f>
								<f step2>
									<call grnode>(mode,node);
										<f draw>
											glocal.subject->draw (mode,node,"Système de fichiers");
										</f>
										<f right1>
											drawellipse (mode,node,20,20,"","Volumes");
										</f>
										<f right2>
											drawellipse (mode,node,20,20,"","Répertoires et fichiers");
										</f>
										<f right3>
											drawellipse (mode,node,20,20,"","Fichiers spéciaux");
										</f>
									</call>
								</f>
								<f link2>
								</f>
								<f step3>
									<call grnode>(mode,node);
										<f draw>
											glocal.subject->draw (mode,node,"Communications");
										</f>
										<f right1>
											drawellipse (mode,node,20,20,"","Réseaux");
										</f>
										<f right2>
											drawellipse (mode,node,20,20,"","Locales");
										</f>
										<f right3>
											drawellipse (mode,node,20,20,"","Anonymes");
										</f>
									</call>

								</f>
								<f link3>
								</f>
								<f step4>
									<call grnode>(mode,node);
										<f draw>
											glocal.subject->draw (mode,node,"Ressources");
										</f>
										<f right1>
											drawellipse (mode,node,20,20,"","Mémoire");
										</f>
										<f right2>
											drawellipse (mode,node,20,20,"","Processus");
										</f>
										<f right3>
											drawellipse (mode,node,20,20,"","/proc");
										</f>
									</call>
								</f>
								<f link4>
								</f>
								<f step5>
									<call grnode>(mode,node);
										<f draw>
											glocal.subject->draw (mode,node,"Sécurité");
										</f>
										<f right1>
											drawellipse (mode,node,20,20,"","Accès");
										</f>
										<f right2>
											drawellipse (mode,node,20,20,"","Setuid");
										</f>
										<f right3>
											drawellipse (mode,node,20,20,"","");
										</f>
									</call>
								</f>
							</call>
						</f>
					</call>
				</f>
				<f right3>
					<call grgroup>(mode,node);
						<f draw>
							drawrect (mode,node,node.depth,node.width,"Outils","");
						</f>
						<f group>
							<call grsteps>(mode,node,false);
								<f step1>
									glocal.subject->draw (mode,node,"DLLs");
								</f>
								<f link1>
								</f>
								<f step2>
									glocal.subject->draw (mode,node,"Performance");
								</f>
								<f link2>
								</f>
								<f step3>
									glocal.subject->draw (mode,node,"Debug");
								</f>
							</call>
						</f>
					</call>
				</f>
			</call>
		</f>
	</call>
}
</mod>
<mod>
static void unix2()
{
	<call grmanage>("Entrées/Sorties");
		<f exec>
			<call grsteps>(mode,node,false);
				<f step1>
					<call grnode>(mode,node);
						<f draw>
							drawellipse (mode,node,20,20,"","Synchrone");
						</f>
						<f link1>
						</f>
						<f right1>
							<call grsteps>(mode,node,true);
								<f step1>
									drawrect (mode,node,50,50,"","");
								</f>
								<f link1>
								</f>
								<f step2>
									drawrect (mode,node,50,50,"","");
								</f>
							</call>
						</f>
					</call>
				</f>
				<f link1>
				</f>
				<f step2>
					drawellipse (mode,node,20,20,"","Asynchrone");
				</f>
			</call>
		</f>
	</call>
}
</mod>
<mod>
static void unix3()
{
	<call grmanage>("unix 3");
		<f exec>
			<call grnode>(mode,node);
				<f draw>
				</f>
				<f right1>
				</f>
				<f right2>
				</f>
			</call>
		</f>
	</call>
}
</mod>
<mod>
static void unix4()
{
	<call grmanage>("unix 4");
		<f exec>
			<call grnode>(mode,node);
				<f draw>
				</f>
				<f right1>
				</f>
				<f right2>
				</f>
			</call>
		</f>
	</call>
}
</mod>


static SCHEMA_REGISTER rapi1 ("api1",api1);
static SCHEMA_REGISTER rapi2 ("api2",api2);
static SCHEMA_REGISTER rapi3 ("api3",api3);
static SCHEMA_REGISTER rapi4 ("api4",api4);
static SCHEMA_REGISTER rapi5 ("api5",api5);
static SCHEMA_REGISTER rapi6 ("api6",api6);
static SCHEMA_REGISTER rapi7 ("api7",api7);
static SCHEMA_REGISTER rfloat ("float",dofloat);
static SCHEMA_REGISTER runix1 ("unix1",unix1);
static SCHEMA_REGISTER runix2 ("unix2",unix2);
static SCHEMA_REGISTER runix3 ("unix3",unix3);
static SCHEMA_REGISTER runix4 ("unix4",unix4);