From 04e68443040c7abad84d66477e98f93bed701760 Mon Sep 17 00:00:00 2001 From: Lars-Dominik Braun Date: Mon, 4 Feb 2019 13:09:03 +0100 Subject: Initial import --- app/schulis/2.2.1/src/5.statistik liste | 27 +++++++++++++++++++++++++++ 1 file changed, 27 insertions(+) create mode 100644 app/schulis/2.2.1/src/5.statistik liste (limited to 'app/schulis/2.2.1/src/5.statistik liste') diff --git a/app/schulis/2.2.1/src/5.statistik liste b/app/schulis/2.2.1/src/5.statistik liste new file mode 100644 index 0000000..f7c00ca --- /dev/null +++ b/app/schulis/2.2.1/src/5.statistik liste @@ -0,0 +1,27 @@ +PACKET statistiklisteDEFINES statlistezeigen,statlistebearbeiten, +statlisteeintrag:LET statistikserver="statistik server",niltext="", +maxstatistiken=200,null="�",eins="�",maxi="�",mlistewirderstellt=7, +mkeinedaten=68;THESAURUS VAR thesauswahl;TEXT VAR theseintrag;INT VAR +thesindex;BOOL VAR theszeigen;PROC statlistezeigen(INT CONST abnr):BOOL VAR +istleer;standardmeldung(mlistewirderstellt,niltext); +thesauruszeigenvorbereiten(allestatistikensortiert(abnr),istleer);IF istleer +THEN standardmeldung(mkeinedaten,niltext);leave(1);ELSE theszeigen:=TRUE ; +thesauruszeigen;FI .END PROC statlistezeigen;PROC statlistebearbeiten(TEXT +CONST standardmaskenname):IF theszeigenTHEN theszeigen:=FALSE ;thesauswahl:= +thesaurusauswahl;thesindex:=0;standardstartproc(standardmaskenname);FI ;get( +thesauswahl,theseintrag,thesindex);IF thesindex=0THEN theseintrag:=niltext; +ELSE theseintrag:=text(int(theseintrag));FI ;END PROC statlistebearbeiten; +TEXT PROC statlisteeintrag:theseintragEND PROC statlisteeintrag;THESAURUS +PROC allestatistikensortiert(INT CONST abnr):THESAURUS VAR verzeichnis:= +allestatistiken(task(statistikserver)),sortiert:=emptythesaurus;INT VAR index +:=0;TEXT VAR eintrag,sorter:=maxstatistiken*null;get(verzeichnis,eintrag, +index);WHILE index>0REP replace(sorter,int(eintrag),code(index));get( +verzeichnis,eintrag,index);PER ;index:=pos(sorter,eins,maxi,max(1,abnr)); +WHILE index>0REP insert(sortiert,name(verzeichnis,code(sorterSUB index))); +index:=pos(sorter,eins,maxi,index+1);PER ;sortiert.END PROC +allestatistikensortiert;LET statistikverzeichnis="statistik verzeichnis"; +DATASPACE VAR ds;THESAURUS PROC allestatistiken(TASK CONST statmanager): +disablestop;forget(ds);fetch(ds,statistikverzeichnis,statmanager);BOUND +THESAURUS VAR res:=ds;THESAURUS VAR result:=CONCR (res);forget(ds);resultEND +PROC allestatistiken;END PACKET statistikliste; + -- cgit v1.2.3