luisgulo/gambas-source-code
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

[BENCHMARKS]

Browse source 
* NEW: Update the 'benchmark.gbs' script.


git-svn-id: svn://localhost/gambas/trunk@6606 867c0c6c-44f3-4631-809d-bfa615b0a4ec
This commit is contained in:
Benoît Minisini 2014-11-02 23:10:47 +00:00
parent 0c9d0a4585
commit 42e99b376c
1 changed files with 44 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

48
benchmark/benchmark.gbs
View file

@ -20,15 +20,37 @@ Private Sub RunScript(sScript As String, sRun As String) As Float
End 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 sBenchmark As String
Dim cResult As Collection Dim cResult As Collection
Dim aResult As New Collection[] Dim aResult As New Collection[]
Dim sLang As String Dim sLang As String
Dim sResult As String
Dim iPos As Integer
For Each sBenchmark In Dir(Application.Dir, "*.gbs") For Each sBenchmark In Dir(Application.Dir, "*.gbs")
sBenchmark = File.BaseName(sBenchmark) sBenchmark = File.BaseName(sBenchmark)
If sBenchmark = "benchmark" Then Continue If sBenchmark = "benchmark" Then Continue
If Args[1] And If sBenchmark <> Args[1] Then Continue
cResult = New Collection cResult = New Collection
aResult.Add(cResult) aResult.Add(cResult)
@ -41,6 +63,24 @@ For Each sBenchmark In Dir(Application.Dir, "*.gbs")
Next 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 "<table class=\"table\">"
Print "<tr>\n<th>Benchmark</th>" Print "<tr>\n<th>Benchmark</th>"
For Each sLang In ["Python","Perl","Gambas","Gambas + JIT"] For Each sLang In ["Python","Perl","Gambas","Gambas + JIT"]
@ -49,10 +89,10 @@ Next
Print "</tr>" Print "</tr>"
For Each cResult In aResult For Each cResult In aResult
Print "<tr>" Print "<tr>"
Print "<td>[./";cResult!name; "]</td>" Print "<td><tt>";cResult!name; "</tt></td>"
Print "<td align=\"right\">"; Format(cResult!python, "0.00");"&nbsp;</td>" Print "<td align=\"right\">"; FormatResult(cResult, "python");"&nbsp;</td>"
Print "<td align=\"right\">"; Format(cResult!perl, "0.00");"&nbsp;</td>" Print "<td align=\"right\">"; FormatResult(cResult, "perl");"&nbsp;</td>"
Print "<td align=\"right\">"; Format(cResult!gambas, "0.00");"&nbsp;</td>" Print "<td align=\"right\">"; FormatResult(cResult, "gambas");"&nbsp;</td>"
Print "<td align=\"right\">"; Format(cResult!gambasjit, "0.00");"&nbsp;</td>" Print "<td align=\"right\">"; Format(cResult!gambasjit, "0.00");"&nbsp;</td>"
Print "</tr>" Print "</tr>"
Next Next