PureBoard

STARGÅTE hat geschrieben:@TroaX:
Es wäre aber auch eine Zumutung für den Traffic, wenn das Syntaxhighlighting auf der Serverseite erstellt wird, und Übertragen wird. Eine Client-seitige Lösung wäre da besser.

TroaX hat geschrieben:

STARGÅTE hat geschrieben:@TroaX:
Es wäre aber auch eine Zumutung für den Traffic, wenn das Syntaxhighlighting auf der Serverseite erstellt wird, und Übertragen wird. Eine Client-seitige Lösung wäre da besser.

Sei mir nicht böse. Aber ich sehe das völlig anders. Für mich persönlich ist es eine Zumutung, wenn ich jemanden helfen möchte und dafür jedesmal den Code erst extrahieren und durch ein externes Tool Hightlighten muss. Ich würde es wenn sowieso per Copy und Paste machen und durch das Highlight-Tool von Andre Simon jagen. Es unterstützt den Import auch aus der Zwischenablage. Bezogen auf den Traffic ist das in der Summe kaum spürbar. Das sind pro Thread-Seite vielleicht zwischen 1 und 10 KB mehr. Ein Javascript, das dies nach dem Laden der Seite macht, ist meist größer.

• Verbesserter Regulärer Ausdruck für die Syntax-Suche
• Unterstützung von Modulen (ModuleName::BlaBla)
• Unterstützung von Maskierten Strings (~" \" ")
• Ein paar Bug-Fixes: Zahlen mit e, Fehlende Schlüsselwörter, Labels uvm.

EnableExplicit

Procedure.s HTMLColor(Color)
  ProcedureReturn "#"+RSet(Hex(Red(Color)),2,"0")+RSet(Hex(Green(Color)),2,"0")+RSet(Hex(Blue(Color)),2,"0")
EndProcedure

Procedure Export(PreferencesFileName.s)
  Protected Keyword.s, String.s
  If OpenPreferences(PreferencesFileName)
    PreferenceGroup("Global")
    Debug "PBSH_Highlight['EnableKeywordBolding'] = "+ReadPreferenceString("EnableKeywordBolding", "1")+";"
    PreferenceGroup("Editor")
    Restore PreferenceKeys
    Repeat
      Read.s Keyword
      If Keyword
        String = ReplaceString(ReadPreferenceString(Keyword, ""), ",", " ")
        If Right(Keyword, 5) = "Color" : String = HTMLColor(Val(String)) : EndIf
        If ReadPreferenceInteger(Keyword+"_Disabled", 0)
          Debug "//PBSH_Highlight['"+Keyword+"'] = '"+String+"';"
        Else
          Debug "PBSH_Highlight['"+Keyword+"'] = '"+String+"';"
        EndIf
      EndIf  
    Until Keyword = ""
    ProcedureReturn #True
  EndIf
EndProcedure

Define PreferencesFileName.s

If Not Export(GetUserDirectory(#PB_Directory_ProgramData)+"PureBasic\PureBasic.prefs")
  PreferencesFileName = OpenFileRequester("Preference File", GetHomeDirectory(), "PureBasic.prefs", 0)
  Export(PreferencesFileName)
EndIf

DataSection
  PreferenceKeys:
  Data.s "EditorFontName", "EditorFontSize", "EditorFontStyle", "BackgroundColor", "NormalTextColor"
  Data.s "BasicKeywordColor", "CommentColor", "ConstantColor", "StringColor", "PureKeywordColor"
  Data.s "ASMKeywordColor", "PointerColor", "NumberColor", "StructureColor", "LabelColor", "ModuleColor"
  Data.s "OperatorColor", "SeparatorColor", ""
EndDataSection

SyntaxError: invalid regexp group viewtopic.php:1:1091

CompilerWarning
DeclareC

STARGÅTE hat geschrieben:Kannst du mir den Link geben, wo der Fehler auftauch?

(?<=) Warning: The "positive lookbehind" feature may not be supported in all browsers.
(?<!) Warning: The "negative lookbehind" feature may not be supported in all browsers.

STARGÅTE hat geschrieben:Da ich den Code hier aus dem Forum aber nicht parsen will, sondern nur Einfärben, mache ich das wie PB und erlaube keine Leerzeichen (beim Einfärben!).

STARGÅTE hat geschrieben:

Code: Alles auswählen

regEx$ = "[0-9]+(?:\.[0-9]+)?(?:e(?:[ \t]*[+\-][ \t]*)?[0-9]+)?" + ; Integers, decimal numbers and binary numbers

Wie soll der Ausdruck Binärzahlen erkenne, die mit % anfangen und nur 0 und 1 erlauben?

value = 10 % 10
value = 10% 10
value = 10 %10
value = 10%10

Außerdem ist in PureBasic auch keine Ziffer nach dem Dezimalpunkt erlaubt

value.f = 1. + 1.5

[COMPILER] Line 1: Syntax error.

(?<=) Warning: The "positive lookbehind" feature may not be supported in all browsers.
(?<!) Warning: The "negative lookbehind" feature may not be supported in all browsers.