' Gambas module file

' Private Sub FixCssProperty()
' 
'   Dim aProp As String[]
'   Dim I As Integer
'   Dim iPos As Integer
' 
'   aProp = Split(File.Load("highlight/css.property"), "\n", "", True)
'   
'   For I = 0 To aProp.Max
'     iPos = InStr(aProp[I], " ")
'     If iPos Then aProp[I] = Left(aProp[I], iPos - 1)
'   Next
'   
'   File.Save(Application.Path &/ "highlight/css.property", aProp.Join("\n"))
' 
' End
' 
Public Sub Main()

  'FixCssProperty
  'Return

  'Dim aState As New Byte[]
  
  'File.Save("~/test.html", hCSS.ToHTML(File.Load("test/style.css")))
  'TextHighlighter.CanRewrite = False
  'File.Save("~/test.html", TextHighlighter["webpage"].ToHTML(File.Load("~/gambas/git/master/comp/src/gb.form.editor/test.html")))

  'Print TextHighlighter.List.Join()

  'TextHighlighter.CanRewrite = True
  'TextHighlighter["gambas"].Run("  \"CTRL+A\": \"SelectAll\",\n", aState)
  'File.Save("~/test.html", TextHighlighter["html"].ToHTML(File.Load("test/page.html")))
  'File.Save("~/test.html", TextHighlighter["c"].ToHTML(File.Load("~/gambas/main/share/gambas.h")))
  'File.Save("~/test.html", TextHighlighter["diff"].ToHTML(File.Load(Application.Path &/ ".hidden/test/diff.txt")))
  'TextHighlighter.Register("~/gambas/git/master/app/src/gambas3/highlight/conflict.highlight")
  'File.Save("~/test.html", TextHighlighter["conflict"].ToHTML(File.Load("test/conflict.txt")))
  'File.Save("~/test.html", TextHighlighter["webpage"].ToHTML(File.Load(Application.Path &/ ".hidden/test/Webpage1.webpage")))
  'File.Save("~/test.html", TextHighlighter["sh"].ToHTML(File.Load("~/gambas/git/master/acinclude.m4")))
  
  'Print TextHighlighter["highlight"].ToANSI(File.Load("highlight/javascript.highlight"))
  Print TextHighlighter["javascript"].ToANSI(File.Load("~/asap/omogen/master/src/kernel/guygle.cgi/javascript/lib.js"))
  ' With TextHighlighter["webpage"]
  '   'Print .Colors.Join()
  '   'Print .ToANSI(File.Load("~/asap/omogen/master/src/kernel/guygle.cgi/style/style-modern.css"))
  '   'Print .ToANSI(File.Load("~/gambas/git/master/comp/src/gb.desktop/.src/Desktop.class"))
  '   File.Save("~/test.html", .ToHTML(File.Load("~/asap/omogen/master/src/kernel/guygle.cgi/.src/Site/Page.webpage")))
  '   'File.Save("~/test.html", .ToHTML(File.Load("~/asap/omogen/master/src/kernel/guygle.cgi/javascript/selectr.js")))
  '   'File.Save("~/test.html", .ToHTML(File.Load("highlight/webpage.highlight")))
  '   'Print .ToANSI("'ceci est une chaîne avec \\\'function(toto){}'")
  '   'File.Save("~/test.html", .ToHTML(File.Load("~/asap/omogen/master/src/kernel/guygle.cgi/.src/Site/CloseMe.webpage")))
  ' End With

End
