Home News Examples Demo Downloads FAQ Documentation Mailing Lists License
Support GeSHi!
If you're using GeSHi, why not help GeSHi out? You can link to GeSHi with this image:
Powered by GeSHi
Get the HTML

Project Status
The latest stable version of GeSHi is, released on the 19th of Aug, 2012.

Supported Languages:
*Apache Log
*APT sources.list
*ASM (m68k)
*ASM (pic16)
*ASM (x86)
*ASM (z80)
*Backus-Naur form
*C for Macs
*C++ (with QT)
*Diff File Format
*DOT language
*FourJ's Genero
*INI (Config Files)
*Java 5
*KLone C & C++
*Objective C
*OpenOffice BASIC
*Oracle 8 & 11 SQL
*Pixel Bender
*Progress (OpenEdge ABL)
*Ruby on Rails
*Uno IDL
*VIM Script
*Visual BASIC
*Visual Fox Pro
*Visual Prolog
*Windows Registry Files

GeSHi is the current stable release, with eighteen new languages and bug fixes over the last release.

GeSHi 1.1.2alpha5 is the current latest version from the development branch, with full C support (see the GeSHi development website).
Mailing Lists
HomeNewsExamplesDemoDownloadsFAQDocumentationMailing ListsLicense 
11:30 am GMT

GeSHi - Generic Syntax Highlighter


Latest News

News Archive

Random Screenshot

[small0.png: Click for a larger view]



Runtime Example

    PSet (Snakex, Snakey), vbGreen
    Line (applex - 3, appley - 5)-(applex + 3, appley), vbGreen + 1, BF
    Line (applex, appley)-(applex + 10, appley + 10), applecolor, BF
        For i = 1 To delay: Next
        Snakex = Snakex + SnakexMov
        Snakey = Snakey + SnakeyMov
        colortest = Point(Snakex + SnakexMov, Snakey + SnakeyMov)
        If colortest = vbGreen + 1 Or colortest = applecolor Then
            Line (applex - 3, appley - 5)-(applex + 10, appley + 10), vbWhite, BF
            'Line (10, 10)-(750, 750), vbWhite, BF
            score = score + 10
            delay = delay - 10000
            If score > 30 And score < 60 Then delay = delay + 5000
            If score > 60 Then delay = delay + 7500
            applex = Int(600 * Rnd) + 10
            appley = Int(600 * Rnd) + 10
        ElseIf colortest <> vbWhite Then
        Label1.Left = 250
            Label1.ForeColor = vbBlack
            Label1.BackColor = vbWhite
            Label1.Caption = "                         You Lose                  " & Chr(10) & "                 Your Score was:  " & score & "" & Chr(10) & "Press 'Enter' to play again and 'Esc' to exit"
            Label1.AutoSize = True
            Exit Do
            Exit Sub
        End If