Zahlen oder andere Datentypen die in einen String gecastet werden sollen müssen mit leerem String abgeschlossen werden:
real zahl = 4.555;print "Die Zahl lautet: " zahl " ";
Jedes Attribut sollte bei einem String-Vergleich immer mit Doppelanführungszeichen abgeschlossen werden.
Auf Abschnitte aus einem String zugreifen:
string ganzerString = "Hello world";string meinSubstring = ganzerString[0:6];string vonVierBisEnde = ganzerString[4:];print meinSubstring " " vonVierBisEnde;
Es können auch Funktionen und Variablen in die eckigen Stringklammern geschrieben werden.
int i=2;string einString = "Hello world";print einString[i: (length(einString)-4)];
if("Hallo" > "hallo") print "Hallo ist groesser uppercase first";string einString = „Hello world“;
if (matches(„Hello“,einString))
{
print „Is drinn!“;
}
string eineZahl= „12.3“
int iType = intOf(eineZahl);
real rType = realOf(eineZahl);
char cType = charOf(iType); // Konvertiert in den Ascii-Wert
Date heute = today();
Date einDatum = „1/1/2000 0:0:0“;
if(heute>einDatum)
{
print „Das Jahr 2000 ist vorbei!“;
}
for i in 0 : 100 do{ print "Hello world! " i "";}for (x=0; x<100; x++){ print "Hello world";}Folgendes Statement im Kopf der Schleife setzt den Skript-Timeout auf unendlich:
pragma runLim,0 // 0 bedeutet unendlich
halt: Das gesamte DXL Programm wird abgebrochen
continue: Vergiss den Rest der Schleife und beginne mit nächster Iteration
break: Brich die Schleife komplett ab
string leftTrim(string einString){ int dieLetztePosition=-1; for (x=0; x<length(einString); x++) { if( einString[x:x] != " " ) { dieLetztePosition=x; break; } } return einString[dieLetztePosition:];}print leftTrim(" Hello world!");DXL ist sehr rudimentär was String Manipulationen angeht.
Ich empfehle meine String Bibliothek mit den gängigsten String Functions zu verwenden:
Zum Beitrag über String Functions
a: Call by Value
b: Call by Reference
Bei Call by Reference wird die Zahl nach der Übergabe auch im Context außerhalb des FUnktionsaufrufs geändert.
void myfunction (int a, int<b){ b=a+100; a=b+1; return(a);}string biers[]={"Becks", "Licher", "Jever", "Heineken"};// sortiere die Biers lexikographischsort(biers);int i=0;for (i=0; i<sizeof(biers); i++){ print biers[i] "\n";}Dynamische Arrays sind in DXL immer 2-dimensional.
// Eine Spalte, eine Zeile arrayArray einArray = create(1,1);put(einArray, "Huhuhuhu", 0,0);// Das Array passt sich automatisch anput(a,23,10,10);string huhuString = (string get(einString,0,0));real eineZahl = (real get(10,10));// Speicher wieder freigebendelete(einArray);
Anmerkung zu dyn. Arrays:
Es gibt die Möglichkeit ein statisches Array dynamisch zu alloziieren, allerdings nicht zur Laufzeit anzupassen.
int hallo = 10;int i;string test[hallo];for (i=0; i<10; i++){test[i]=i "";}for (i=0; i<10; i++){print test[i] "\n";}Da ein dynamisches Array allemöglichen Datentypen enthalten kann, gibt es hier keine Standardfunktion um dieses zur sortieren. Die eingetragenen Daten können von beliebigem Typ sein ; z.B. kann auf (1,1) ein String stehen, auf (2,1) ein Object, auf (3,1) eine Attributdefinition etc. Man könnte die Spalte in ein Standard-Array (z.B. string myArray) wie im obigen Beispiel übertragen, darin sortieren und danach zurückkopieren.
Es gibt keine Möglichkeit die Größe eines dynamischen Arrays (Anzahl Zeilen) zu ermitteln.
Da man aber das Array im Verlauf des Programms mit „put“ gefüllt hat, wurden dort zwangsläufig die maximalen Koordinaten verwendet; wenn man die größte Koordinate also nach der Befüllung speichert (typischerweise in globalen Variablen myMaxX, myMaxY), kann man sie apäter wieder nutzen.
Skip Listen sind assoziative Arrays (PHP), HashMaps (Java) oder Dictionaries (C#) . Laut IBM sind dies sehr effiziente Datenstrukturen.
Skip idStringList = createString; // Für String DatentypenSkip idList = create; // Für nicht-String Datentypen// put Paramater: skip-list, key, valueput (idList, "234-22-2345", "Hallo");// PUT liefert falls zurück falls der Wert schon vorhanden istput (idList, "123-45-6789", "Welt");string gleichZuweisen;// find nutzen um zu testen ob in Skip List vorhandenif( find(idList, "234-22.2345", gleichZuweisen) ){ print gleichZuweisen; delete (idList, "234-22.2345");}put(idList "234-222-2222", "world");Beispiel um Dubletten mit Skip-Listen rauzufiltern:
Skip myList = create;int numList[] = {1,6,2,3,1,2,1,4,2,5,6,7,2,1,3,4,8};int i;for (i=0; i<sizeof(numList); i++){ put (myList, numList[i], numList[i]);}// Iteration durch SkipListfor i in myList do { print i;}Iteration durch SkipList mit DxlObject.
Anmerkung: DxlObject eignet sich prima als Ersatz für ein Model/Value-Object. Hierzu folgendermaßen d
…
Skip result = create;
DxlObject obj = new();
obj->“alarm_id“ = „Bla!“; ….
put(result, alarm_id, obj);
….
// Iteration durch SkipListfor myIterator in result do { string keyValue = (string key(result)); DxlObject currentObject = null; if(find(result, keyValue, currentObject)) { // Just put the column names here.. it will work print (string currentObject->"alarm_id") " "; print (string currentObject->"subsystem") " "; print (string currentObject->"bitnumber") " "; print (string currentObject->"eqwinid") " "; print (string currentObject->"eqwintextid") " "; print (string currentObject->"eqwinhandling ") "\n"; }}Current ist eine Referenz auf das momentan selektierte / markierte Element und kann ein Project, Folder, Module oder Object sein.
Wenn man über mehrere Objekte eines Moduls iterierts muss es oft explizit das current gesetzt werden.
Project p = current;
Folder f = current;
Module m = current;
Object o = current;
current = f;
Project p = create("/Project1","");for name in p do { print name;}current = folder "/" for itemRef in current do { print name(itemRef) " " type(itemRef) " \n";}Eine Baseline ist ein eingefrorener Stand für ein Modul. Ein Baseline Set ist ein eingefrorener Stand für die gesamte Maschine / das Projekt / alle Module des Projekts.
Module m = null;m=read("/Projekt/Modul", true);string modulName = m."Name";string attributName = "Created On";Date createdOn = m.attributeName;current = folder("/New Family Car Project/Requirements");Module m = edit("System Requirements", true);m."Description" = "Capri Soft- System requirements";save(m);close(m);refreshDBExplorer();ManyToMany beliebig viele Inlinks beliebig viele Outlinks
OneToMany beliebig viele Inlinks maximal ein Outlink
manyToOne beliebig viele Outlinks maximal ein Inlink
OneToOne maximal ein Outlink maximal ein Inlink
identifier(o): Die Doors-Containernummer (z.B. UR12)
number(o): Sagt was aus über die Stellung in der Hierarchie
level(o): Gibt die Tiefe der Schachtelung zurück
leaf(o): Gibt true zurück, wenn das Objekt keine Unterobjekte hat.
// Modul manuell öffnen und im Modul-Menü Tools -> "Edit DXL" Module m = current;Object o;for o in m do { print number(o) " \t\t"identifier(o) " "; print o."Object Heading" " "; print o."Object Text" "\n"}Object erstesKind = first(o);
Object letztesKind = last(o);
Object vorherige = previous(o);
… next(o)
… first sibling(o)
… last sibling(o)
… next sibling(o)
Bsp.: Zähle alle Kinder eines Kapitels:
Module m = current;Object oChild, o = current;int count = 0;for oChild in o do { count++;}print count " ";Folgendes Beispiel iteriert über die Outgoing links (->) jedes Linkmoduls („*“)
// Modul öffnen und auf Tools -> Edit DXL Module m = current;Link derLink;Object objekt ;int linkAnzahl = 0;Skip eindeutigeZielModule;for objekt in m do{ for derLink in objekt->"*" do { linkAnzahl++; // Der Name des Ziel Moduls; print fullName target(derLink) " \n"; }}print "Es gibt " linkAnzahl " Outgoing Links!";Mit diesem Beispiel kann man sich die Outgoing Links in einem Layout DXL ausgeben lassen
Link lnk;string textToShow = "";bool isFirst = true;for lnk in obj->"*" do{string tmn=fullName target(lnk);if(!open module tmn){read(tmn,false);}Object tgt = target(lnk);if(isFirst){textToShow = identifier(tgt) "" textToShow ;}else{textToShow = identifier(tgt) "\n" textToShow;}isFirst = false;}displayRich (textToShow "");Bei Incoming Links muss das SourceModul immer geöffnet werden:
// Modul öffnen und auf Tools -> Edit DXL void handleInLinks(Object einObjekt){ LinkRef eineLinkReferenz; string modulWoDerIncomingLinkHerkommt; print identifier(einObjekt) " \n"; for eineLinkReferenz in einObjekt<-"*" do { modulWoDerIncomingLinkHerkommt= fullName source (eineLinkReferenz); print modulWoDerIncomingLinkHerkommt; }}Module m = current;Link lnk;LinkRef lref;Object o;int numLinks = 0;string srcModuleName;for o in current Module do { for lref in o<-"*" do { srcModuleName = fullName source (lref); if (!open module srcModuleName) { read(srcModuleName, false); } }}for o in m do{ handleInLinks(o);}Eine weitere Möglichkeit bietet das Iterieren über die Module der Inlinks. Man kann sie z.B. in einer Schleife öffnen.
string srcModName;for srcModName in o<-"*" do{ print srcModName "\n";}// Voller Pfad der Module zu den IncomingLinksModName_ srcModReffor srcModRef in o<-"*" do{ print fullName(srcModRef) "\n";}Hier ein Beispiel für ein Layout DXL, das alle Incoming Link Objekte ausgibt
LinkRef lRef;Link aLink;ModName_ srcModRef;int inCount = 0;Object anObj = obj;for lRef in anObj <- "*" do { string smn = fullName(source(lRef)) if (! open(module(smn))) { oMod = read(smn, false) } } for aLink in anObj <- "*" do { Object src = source aLink; displayRich( identifier(src) "");} Module m=read("System Requirements", false);AttrDef adRec;for adRec in m do { if(!adRec.system) { print adRec.typeName " attribute: " adRec.name " \n"; }}Wenn man auf einer Spaltenüberschrift in einem Doors Modul rechte Maustaste -> Properties -> Layout DXL -> Browse öffnet, kann man in eine Spalte hinzufügen um z.B. zu rechnen.
Die Variable obj ist die aktuelle Zeile.
real cost, result;int noPerDay;cost = obj."Cost";noPerDay = obj."No per day";result = cost * realOf(noPerDay);display result "";
Filter und Sortierungen können miteinander verknüpft werden
Module m=read("Stakeholder Requirements", false);Filter f, f1, f2;Sort s1,s2,s;s1 = descending("Cost");s2 = ascending("Priority");f1 = attribute "Cost" > "1000.0"f2 = attribute "Cost" < "2000.0"f3 = contains (attribute "Object Text", "shall", false);// Filter verknüpfenf = f1 << f2 << f3;// Sortierungen verknüpfens = s1 << s2;set(m,f);set(m,s);filtering on;Stream output = write("c:\\datafile.txt");Object o;real cost;for o in current Module do{ cost = o."Cost"; output << cost "\n";}Lesen…
print fileExists("C:\\meinedate.txt") " ";Stream eingabe = read "C:\\meinedate.txt";string costLine;while(!end(eingabe)){ input >> costLine; print costLine "\n";}close(eingabe);DB: Dialog Box
DBE: Dialog Box Element
OnChange-Ereignisse über callback()-Funktion, die mit Set auf das DBE gesetzt wird. set(DBE dbe, callbackfkt)
DB bierDialogBox = create ("Bier Type", styleStandard);string meineRadioButtonListe[] = {"Heineken", "Becks", "Krombacher", "Licher"};DBE bierName=field(bierDialogBox, "Biername:", "Schnaps", 20,false);DBE radioButton = radioBox (bierDialogBox, "Biersche:", meineRadioButtonListe, 0);DBE datumFeld = date (bierDialogBox, 30, today, true);DBE slider = slider (bierDialogBox, "", 5,0,10);void printOrder(DB win){ string customer = get bierName; int radioButtonNummer = get radioButton; string radioButtonStyle=meineRadioButtonListe[radioButtonNummer]; print "Ein " radioButtonStyle " bier vom " customer "";}apply (bierDialogBox, "Print", printOrder);show bierDialogBox;Die History wird mit einer Baseline abgespeichert und beginnt von vorne. D.h. das History-Objekt ist auf einem gerade gebaselintem Modul leer.
Bsp.-Anwendungsfälle
- Änderungsreports
- Recherche über Änderungen
Eine Chatähnliche Option sind Discussions. Sie werden in der Baseline abgelegt aber nicht ins Archiv eingepackt. Discussions setzen nur Leserechte voraus. Derjenige der die Discussion ausgelöst hat ist der einzige, der sie schließen kann.
Wenn man keine Zugriffsrechte auf ein Objekt hat kann mit
inherited(o);
Das Objekt auf die Rechte des parents gesetzt werden.
bool isNumeric(string einString){ int x; for (x=0; x<length(einString); x++) { if( (!isdigit(einString[x]) ) << (einString[x]!='.' ) << (einString[x]!='-' ) ) {return false; } } return true;}string eineZahl = "12.345";print isNumeric(eineZahl) "";int d;int installed=0;int supported=0;print "INSTALLED:\n";for d in installedCodepages do{print d "\n";installed++;}print "\n\n\nSUPPORTED:\n";for d in supportedCodepages do{print d "\n";supported++;}print "Installed: " installed "\n";print "Supported: " supported "\n";