gambas-source-code/benchmark/benchmark.gbs
Benoît Minisini 4c1be18584 [DEVELOPMENT ENVIRONMENT]
* NEW: The IDE now can edit *.gbs Gambas scripts. But there is no automatic 
  completion.
* NEW: Use labels instead of buttons inside project items.

[WEBSITE MAKER]
* NEW: Update for 3.6.1 version.

[GB.EVAL]
* NEW: Lines beginning with '#!' are highlighted like comments. It's the
  'shebang' of Gambas scripts.


git-svn-id: svn://localhost/gambas/trunk@6608 867c0c6c-44f3-4631-809d-bfa615b0a4ec
2014-11-03 19:33:05 +00:00

100 lines
2.8 KiB
Text

#!/usr/bin/env gbs3
Private Sub RunScript(sScript As String, sRun As String) As Float
Dim sResult As String
Dim fTime As Float
Print "<!-- Running benchmark: '"; sRun; " "; sScript; "' -->"
Shell "/usr/bin/time -v " & sRun & " " & sScript & " 2>&1 >/dev/null" To sResult
If Not sResult Then Error.Raise("Script '" & sRun & " " & sScript & "' failed!")
For Each sResult In Split(sResult, "\n")
sResult = Trim(sResult)
If sResult Begins "User time" Or If sResult Begins "System time" Then
fTime += CFloat(Mid$(sResult, InStr(sResult, ":") + 2))
Endif
Next
Return fTime
End
Private Sub FormatResult(cResult As Collection, sLang As String) As String
Dim bBetter As Boolean = True
Dim sFormat As String
Dim sTest As String
For Each sTest In ["python", "perl", "gambas"]
If cResult[sTest] < cResult[sLang] Then
bBetter = False
Break
Endif
Next
sFormat = Format(cResult[sLang], "0.00")
If bBetter Then sFormat = "<b>" & sFormat & "</b>"
Return sFormat
End
Dim sBenchmark As String
Dim cResult As Collection
Dim aResult As New Collection[]
Dim sLang As String
Dim sResult As String
Dim iPos As Integer
For Each sBenchmark In Dir(Application.Dir, "*.gbs")
sBenchmark = File.BaseName(sBenchmark)
If sBenchmark = "benchmark" Then Continue
If Args[1] And If sBenchmark <> Args[1] Then Continue
cResult = New Collection
aResult.Add(cResult)
cResult!name = sBenchmark
cResult!gambasjit = RunScript(sBenchmark & ".gbs", "gbs3 -f -c")
cResult!gambas = RunScript(sBenchmark & ".gbs", "gbs3 -c")
cResult!python = RunScript(sBenchmark & ".py", "python")
cResult!perl = RunScript(sBenchmark & ".pl", "perl")
Next
' Print "<div style=\"border:solid 1px gray;padding:8px;display:inline-table;background:\">"
'
' Exec ["uname", "-srv"] To sResult
' Print "<b>Kernel:</b> ";Html(sResult);"<br>"
'
' Exec ["cat", "/proc/cpuinfo"] To sResult
' For Each sResult In Split(sResult, "\n")
' If sResult Begins "model name" Then
' iPos = Instr(sResult, ":")
' If iPos Then
' Print "<b>CPU:</b> ";Html(Mid$(sResult, iPos+1));"<br>"
' Endif
' Break
' Endif
' Next
'
' Print "</div>"
Print "<table class=\"table\">"
Print "<tr>\n<th>Benchmark</th>"
For Each sLang In ["Python", "Perl", "Gambas", "Gambas + JIT"]
Print "<th style=\"width:12em;\">"; Html(sLang); "</th>"
Next
Print "</tr>"
For Each cResult In aResult
Print "<tr>"
Print "<td><tt>"; cResult!name; "</tt></td>"
Print "<td align=\"right\">"; FormatResult(cResult, "python"); "&nbsp;</td>"
Print "<td align=\"right\">"; FormatResult(cResult, "perl"); "&nbsp;</td>"
Print "<td align=\"right\">"; FormatResult(cResult, "gambas"); "&nbsp;</td>"
Print "<td align=\"right\">"; Format(cResult!gambasjit, "0.00"); "&nbsp;</td>"
Print "</tr>"
Next
Print "</table>"