Scripting:Lib prettyprint

Aus STNE-Wiki

Das Problem:

Die Script-Engine erlaubt einem einige echt komfortable und nette Dinge, aber irgendwann ist man an dem Punkt, wo Portale schön aussehen sollen. An diesem Punkt wird man merken, dass man viele Verrenkungen machen muss, damit man Text fett bekommt oder andere Sachen damit machen kann.

Diesem Problem habe ich nun hier Abhilfe geschaffen und die Library "PrettyPrint" eingeführt. Diesen Haufen an Funktionen schiebt man einfach bei sich in das Portal und steuert es so an, wie ganz unten im Beispiel angegeben. Nun kann man den Text, den man in die Funktion steckt schon fast so formatieren wie in einer IGM. Folgende Tags funktionieren: br, b, i, u, img, ul, li, small, font

Es wird derzeit noch geplant, [Spieler:] und solche Kurztags einzubauen, sowieso <a href="">hyperlinks</a>.

Library "PrettyPrint"

#UseInterface Web;

/**
 * prettyPrint
 * Formatiert einen Text gemäß der in IGMs möglichen Funktionen
 * Gibt ein Objekt zurück, dass an das Response-Objekt gehangen werden kann.
 * Wichtig: hier wird nur valides XML-artiges zeug geparst!
 *          HTML-durcheinander-Verdreckungen werden mit Fehlermeldung beantwortet.
 */
Function prettyPrint(text As String) As CHtmlControl {
  Var stack As New CObjectList(); // Stack für die Verschachtelung
  Var tmpObj As CObject; // Damit diese blöde Engine damit klar kommt.
  Var element As New Stackelement(); // Oberste Ebene definieren, macht die Schleife einfacher
  Var textStart As Integer = 0;
  Var nextTagAuf As Integer = text.IndexOf("<"); // Such den ersten HTML-Tag
  Var nextTagZu As Integer = text.IndexOf(">"); // Auch gleich die Position, wo es zu geht
  nextTagAuf = Math.Min(nextTagAuf, nextTagZu); // Das Minimum der beiden ist -1, wenn etwas nicht gefunden wurde, sonst nextTagAuf
  Var tag As String;
  
  While(nextTagAuf > 0) {
    If(textStart < nextTagAuf) {
      // Erstmal ist da Text, hinzufügen
      element.e.Add(text.Substring(textStart, nextTagAuf - textStart));
    }
    
    // Den Tag isolieren
    tag = text.Substring(nextTagAuf + 1, nextTagZu - nextTagAuf - 1); // <dies hier>
    If(String.Compare(tag, 0, "/", 0, 1) = 0) { // Wenn das erste Zeichen innerhalb des Tags "/" ist --> Endtag
      // Wenn der Tag ein schließender Tag ist
      If(tag = element.tag) { // element.tag sieht schon gleich so aus: "/tag"
        tmpObj = stack.Item(stack.Count - 1);
        element = tmpObj;
        stack.RemoveAt(stack.Count - 1); // Letzten vom Stack poppen
      } Else {
        // Hier ist was kaputt im Quellcode
        element.e.Add("[Fehler: schließender Tag " + element.tag + " erwartet, " + tag + "gefunden. Abbruch.]");
        Exit While; // While verlassen
      }
    } Elseif(is_singleTag(tag)) {
      // Wenns ein BR oder dergl ist, ersetzen
      element.e.Add(replaceSingleTag(tag));
    } Else {
      // Ist scheinbar ein umschließender Tag, also verarbeiten
      tmpObj = element;
      stack.Add(tmpObj); // Alten aktuellsten Tag auf den Stack schieben
      element = replaceTag(tag, element); // Baut ein neues Stackelement mit element und endtag
    }
    
    // Lege die neuen Limits fest
    textStart = nextTagZu + 1;
    nextTagAuf = text.IndexOf("<", textStart);
    nextTagZu = text.IndexOf(">", textStart);
    nextTagAuf = Math.Min(nextTagAuf, nextTagZu); // Das Minimum der beiden ist -1, wenn etwas nicht gefunden wurde, sonst nextTagAuf
    
  }
  
  // Letzten Text hinzufügen
  if(textStart < text.Length) { // Wenn da noch Text ist
    element.e.Add(text.Substring(textStart,text.Length - textStart));
  }
  
  Return element.e; // oberste Ebene zurückgeben
}

          
/**
 * replaceTag
 * Bekommt einen Tag und entscheidet dann, was für Formatierungen usw. es daraus macht.
 * Gibt ein HTML-Objekt zurück, in das der Inhalt reingeschoben werden kann
 */
Function replaceTag(text As String, element As Stackelement) As Stackelement {
  text = text.ToLower();
  Var tagType As String = text;
  Var retHtmlPart As New CHtmlSpan();
  Var newHtmlPart As New CHtmlSpan(); // Neues Element, in dem weiterer Inhalt reinkommt.- Wird manchmal gebraucht
  element.e.Add(retHtmlPart);
  
  If(text.IndexOf(" ") > 0) { // Checken, ob der Tag Parameter hat
    tagType = text.Substring(0, text.IndexOf(" "));
    If(tagType = "font") {
      Var firstquote_index As Integer = text.IndexOf("color='");
      Var secondquote_index As Integer = text.IndexOf("'", firstquote_index + 7);
      If(firstquote_index > 0 AND secondquote_index > 0) {
        retHtmlPart.Style.Add('color', text.Substring(firstquote_index + 7, secondquote_index - firstquote_index -7));
      } Else {
        retHtmlPart.Add("[Fehler: Konnte das Font-Tag nicht korrekt Parsen. Quotes checken?]");
      }
    } Else {
      // Unbekannter Tag, gib Fehlermeldung aber nerv nicht weiter.
      retHtmlPart.Add("[Fehler: unbekannter Tag - " + tagType + " - ignoriert.]");
    }
    
  } Else { // Keine Parameter, erstmal diese Tags implementieren
    If(tagType = "b") {
      retHtmlPart.Style.Add('font-weight', 'bold');
    } elseif(tagType = "u") {
      retHtmlPart.Style.Add('font-decoration', 'underline');
    } elseif(tagType = "i") {
      retHtmlPart.Style.Add('font-style', 'italic');
    } elseif(tagType = "small") {
      retHtmlPart.Style.Add('font-size', 'smaller');
    } elseif(tagType = "ul") { // Einen UL-Tag simulieren, indem das SPAN drumherum manipuliert wird.
      retHtmlPart.Style.Add('display', 'block');
      retHtmlPart.Style.Add('margin', '13px 39px');
      retHtmlPart.Add(newHtmlPart);
      retHtmlPart = newHtmlPart; // Hier überschreiben, damit das neue Inhaltselement auch zurückgegeben wird.+
    } elseif(tagType = "li") { // Einen LI-Tag simulieren, indem das SPAN drumherum manipuliert wird.
      retHtmlPart.Style.Add('display', 'list-item');
      retHtmlPart.Style.Add('list-style-image', 'url(http://game.stne.net/t/1/s/li.gif)');
    } Else {
      // Unbekannter Tag, gib Fehlermeldung aber nerv nicht weiter.
      retHtmlPart.Add("[Fehler: unbekannter Tag - " + tagType + " - ignoriert.]");
    }
  }
  
  // Jetzt sollten auf dem retHtmlPart alle passenden Formatierungen usw. drauf sein. Gib mal zurück.
  Return New Stackelement(retHtmlPart, "/" + tagType);
}

/**
 * replaceSingleTag
 * Ersetzt Tags, die man nicht schließen muss direkt und gibt ein CHtmlControl zurück.
 */
Function replaceSingleTag(text As String) As CHtmlControl {
  text = text.ToLower();
  text = text.Replace("""", "'"); // Damit ich nur nach einer Sorte suchen muss
  Var retHtmlPart As New CHtmlSpan();
  
  If(text.StartsWith("img")) {
    Var firstquote_index As Integer = text.IndexOf("src='");
    Var secondquote_index As Integer = text.IndexOf("'", firstquote_index + 5);
    If(firstquote_index > 0 AND secondquote_index > 0) {
      Return New CHtmlImage(text.Substring(firstquote_index + 5, secondquote_index - firstquote_index-5));
    } Else {
      retHtmlPart.Add("[Fehler: Konnte das IMG-Tag nicht korrekt Parsen. Quotes checken?]");
    }
  } Elseif(text = "br") {
    Return New CHtmlBreak();
  } Else {
    retHtmlPart.Add("[Fehler: Unbekanntes Tag - " + text + " ]");
  }
  
  Return retHtmlPart;
}

/**
 * is_singleTag
 * Checkt, ob ein Tag mit einem als single-Tag bekannten Tag anfängt.
 */
Var singleTags[] As String = {"br", "img"}; // Enthält alle einfachen Tags, die keine Ebenen aufspannen
Function is_singleTag(text As String) As Boolean {
  Var walkstring As String;
  For(Each walkstring In singleTags) {
    If(String.Compare(walkstring, 0, text, 0, walkstring.Length) = 0) {
      Return true;
    }
  }
  Return false;
}

/* Ist eine komplexe Datenstruktur, damit mehr als ein Ding aufm Stack liegen kann */
Class Stackelement {
  Var e As CHtmlControl;
  Var tag As String;
  
  Function New() {
    This.e = New CHtmlControl();
    This.tag = "/none";
  }
  
  Function New(e As CHtmlControl, tag As String) {
    This.e = e;
    This.tag = tag;
  }
}

Var test As String = "hier ist ein <b>fetter<font color='red'> roter </font><u>unterstrichener</u> <i>Testtext</i></b>";
Response.Add(prettyPrint(test));