GNU Source-Highlight 3.1.2

In this new version of GNU Source-Highlight some new features were added:

• infer language for files starting with <? and <!doctype
• qmake based build system available is available to be used as an alternative to the configure based one; this is useful to compile source-highlight with MSVC for instance
• searches for home directory correctly also on Windows systems

Besides this, many new language definitions were added:

asm

; ; screen handling primitives ; .model large .data vseg dw 0b000h vmode db ? x dw 0 y dw 0 color db 07h ofs dw 0 xhite db 8 ; video information block

applescript

(* TODO just a comment foo bar *) displayName(choose file with prompt "Select a file:") --if double-clicked return -- not needed, but shows that the script stops here when "run" on open of finderObjects -- "open" handler triggered by drag'n'drop launches repeat with i in (finderObjects) -- in case multiple objects dropped on applet displayName(i) -- show file/folder's info if folder of (info for i) is true then -- process folder's contents too tell application "Finder" to set temp to (entire contents of i) repeat with j in (temp) display dialog j as string -- example of doing something with each item end repeat end if end repeat end open if CurState is 0 then connect configuration "pccard-serial" end if on GetParentPath(myPath) set oldDelimiters to AppleScript's text item delimiters -- always preserve original delimiters set AppleScript's text item delimiters to {":"} set pathItems to text items of (myPath as text) if last item of pathItems is "" then set pathItems to items 1 thru -2 of pathItems -- its a folder set parentPath to ((reverse of the rest of reverse of pathItems) as string) & ":" (* The above line works better than the more obvious set parentPath to ((items 1 thru -2 of pathItems) as string) & ":" because it will not return an error when passed a path for a volume, i.e., "Macintosh HD:", but rather will return ":" indicating the desktop is the root of the given path. Andy Bachorski <andyb@APPLE.COM> *) set AppleScript's text item delimiters to oldDelimiters -- always restore original delimiters return parentPath end GetParentPath

awk

$6 !~ /^ack/ && $5 !~ /[SFR]/ { # given a tcpdump ftp trace, output one line for each send # in the form # <send time> <seq no> # where <send time> is the time packet was sent (in seconds with # zero at time of first packet) and <seq no> is the tcp sequence # number of the packet divided by 1024 (i.e., Kbytes sent). # # convert time to seconds n = split ($1,t,":") tim = t[1]*3600 + t[2]*60 + t[3] if (! tzero) { tzero = tim OFS = "\t" } # get packet sequence number i = index($6,":") printf "%7.2f\t%g\n", tim-tzero, substr($6,1,i-1)/1024 } BEGIN{ buffer = ""; } /\015*$/ { gsub(/\015*$/, ""); } /^%%S NL/ { print ""; next; }

bat

@ECHO OFF REM - LABEL INDICATING THE BEGINNING OF THE DOCUMENT. :BEGIN CLS REM - THE BELOW LINE GIVES THE USER 3 CHOICES (DEFINED AFTER /C:) CHOICE /N /C:123 PICK A NUMBER (1, 2, or 3)%1 REM - THE NEXT THREE LINES ARE DIRECTING USER DEPENDING UPON INPUT IF ERRORLEVEL ==3 GOTO THREE IF ERRORLEVEL ==2 GOTO TWO IF ERRORLEVEL ==1 GOTO ONE GOTO END :THREE ECHO YOU HAVE PRESSED THREE GOTO END :TWO ECHO YOU HAVE PRESSED TWO GOTO END :ONE ECHO YOU HAVE PRESSED ONE :END :: Renames a Text File with the Current Date as the Name :: The File Extension is Kept :: C:\BATCH\DOS\XSET CUR-DATE DATE YY-MM-DD REN %1.* %CUR-DATE%.* IF "%1" == "" XCOPY B:\*.* IF NOT "%1" == "" XCOPY B:\%1 ECHO. C:\BATCH\DR FOR %%F IN (%1 %2 %3 %4 %5 %6 %7 %8 %9) DO DEL %%F

clipper

Function MAIN() LOCAL number INPUT "Key in a number: " TO number IF number % 2 = 0 ? "You keyed in an even number" ? "I can prove it:" ? "the result of ",number," % 2 = 0 is ", number % 2 = 0 ELSE ? "You keyed in an odd number" ? "I can prove it:" ? "the result of ",number," % 2 = 0 is ", number % 2 = 0 ENDIF RETURN /* Load the table.dbf and table.cdx, on unix, you should ensure that file extensions are on lowercase.*/ USE table INDEX table VIA "DBFCDX" REINDEX

cobol

$ SET SOURCEFORMAT "FREE" IDENTIFICATION DIVISION. PROGRAM-ID. ShortestProgram. PROCEDURE DIVISION. DisplayPrompt. DISPLAY "I did it". STOP RUN. * Uses the ACCEPT and DISPLAY verbs to accept a student record * from the user and display some of the fields. Also shows how * the ACCEPT may be used to get the system date and time. WORKING-STORAGE SECTION. 01 Num1 PIC 9 VALUE ZEROS. 01 Num2 PIC 9 VALUE ZEROS. 01 Result PIC 99 VALUE ZEROS. PROCEDURE DIVISION. DISPLAY "Enter first number (1 digit) : " WITH NO ADVANCING. ACCEPT Num1. DISPLAY "Enter second number (1 digit) : " WITH NO ADVANCING. ACCEPT Num2. MULTIPLY Num1 BY Num2 GIVING Result. DISPLAY "Result is = ", Result. STOP RUN.

D

#!/usr/bin/dmd -run /* sh style script syntax is supported */ /* Hello World in D To compile: dmd hello.d or to optimize: dmd -O -inline -release hello.d */ /+ a nested /+ comment +/ +/ a = /+ // +/ 1; // parses as if 'a = 1;' a = /+ "+/" +/ 1"; // parses as if 'a = " +/ 1";' a = /+ /* +/ */ 3; // parses as if 'a = */ 3;' r"hello" r"c:\root\foo.exe" r"ab\n" // string is 4 characters, 'a', 'b', '\', 'n' `hello` `c:\root\foo.exe` `ab\n` // string is 4 characters, 'a', 'b', '\', 'n' x"0A" // same as "\x0A" x"00 FBCD 32FD 0A" // same as "\x00\xFB\xCD\x32\xFD\x0A" "hello"c // char[] "hello"w // wchar[] "hello"d // dchar[] import std.stdio; void main(string[] args) { writefln("Hello World, Reloaded"); // auto type inference and built-in foreach foreach (argc, argv; args) { // Object Oriented Programming auto cl = new CmdLin(argc, argv); // Improved typesafe printf writeln(cl.argnum, cl.suffix, " arg: ", cl.argv); // Automatic or explicit memory management delete cl; } // Nested structs and classes struct specs { // all members automatically initialized int count, allocated; } // Nested functions can refer to outer // variables like args specs argspecs() { specs* s = new specs; // no need for '->' s.count = args.length; // get length of array with .length s.allocated = typeof(args).sizeof; // built-in native type properties foreach (argv; args) s.allocated += argv.length * typeof(argv[0]).sizeof; return *s; } // built-in string and common string operations writefln("argc = %d, " ~ "allocated = %d", argspecs().count, argspecs().allocated); } class CmdLin { private int _argc; private string _argv; public: this(int argc, string argv) // constructor { _argc = argc; _argv = argv; } int argnum() { return _argc + 1; } string argv() { return _argv; } string suffix() { string suffix = "th"; switch (_argc) { case 0: suffix = "st"; break; case 1: suffix = "nd"; break; case 2: suffix = "rd"; break; default: break; } return suffix; } }

erlang

-module(sudoku). -author(vmiklos@frugalware.org). -vsn('2009-11-10'). -compile(export_all). % Return the value of Fun or an empty list based on the value of If. % @spec fun_or_empty(If::bool(), Fun::fun() -> [any()]) -> Ret::[any()] % Ret = Fun() if If is true, [] otherwise. fun_or_empty(If, Fun) -> case If of true -> Fun(); _ -> [] end. % Return a cell from a field. % @spec field(I::integer(), J::integer(), Table::[any()], M::integer()) -> % Ret::any() % Table is a flatten list of lists, M is the length of a row, % representing a matrix, Ret is the cell in the Ith row and Jth column. field(I, J, Table, M) -> P = (I-1)*M+J, case P > length(Table) of true -> 0; _ -> lists:nth((I-1)*M+J, Table) end. % Return a cell from a field. % @spec field(I::integer(), J::integer(), Table::[[any()]]) -> % Ret::any() % Ret is the cell in the Ith row and Jth column of Table. field(I, J, Table) -> lists:nth(J, lists:nth(I, Table)).

compiler output

no need to highlight this c:\f\g\Makefile:1346:10: warning: overriding commands for target `styleformatter.h.texinfo' foo /f/g/Makefile:1346:10: warning: overriding commands for target `styleformatter.h.texinfo' foo /foo/bar/Makefile:1337: error: ignoring old commands for target 'styleformatter.h.texinfo' bar \foo\bar\Makefile:1346: warning: overriding commands for target `styleformatter.h.texinfo' Makefile:1337: warning: ignoring old commands for target `styleformatter.h.texinfo'

manifest files

Manifest-Version: 1.0 Bundle-ManifestVersion: 2 Bundle-Name: %pluginName Bundle-SymbolicName: org.eclipse.mindmap.diagram; singleton:=true Bundle-Version: 1.0.0.qualifier Bundle-ClassPath: . Bundle-Activator: org.eclipse.mindmap.diagram.part.MindmapDiagramEditorPlugin Bundle-Vendor: %providerName Bundle-Localization: plugin Export-Package: org.eclipse.mindmap.diagram.edit.parts, org.eclipse.mindmap.diagram.part, org.eclipse.mindmap.diagram.providers Require-Bundle: org.eclipse.core.runtime, org.eclipse.core.resources, org.eclipse.core.expressions, org.eclipse.draw2d;visibility:=reexport, org.eclipse.gmf.runtime.draw2d.ui;visibility:=reexport, org.eclipse.mindmap;visibility:=reexport, org.eclipse.mindmap.edit;visibility:=reexport, org.eclipse.gef;visibility:=reexport, org.eclipse.ocl.ecore;visibility:=reexport, org.eclipse.emf.validation;visibility:=reexport, org.eclipse.emf.validation.ocl;visibility:=reexport Eclipse-LazyStart: true

vbscript

' The script can be called via <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> if AQresponse <> "" then response.write(AQresponse) else response.write("ERROR") end if %> ' Actual script follows. This could be placed in a separate file, ' such as the smslib.asp file described above <% Dim method, secured, error_on_length, username, password, AQresponse ' User Editable Variables secured = 0 ' Set to either 1 for SSL connection ' or 0 for normal connection. error_on_length = 1 ' Whether to give and error on messages over 160 chracters. ' 1 for true, 0 for false. username = "testusername" ' Your aql username, can either be set here ' or done on a per call basis from the function. password = "testpassword" ' Your aql password, can either be set here ' or done on a per call basis from the function. Dim objXMLHTTP, xml message = replace(message," ","+") Set xml = Server.CreateObject("Microsoft.XMLHTTP") if secured = null or secured = 0 then xml.Open "POST", "http://gw1.aql.com/sms/sms_gw.php", False xml.setRequestHeader "Content-Type", "application/x-www-form-urlencoded" xml.Send "username=" & username & "&password=" & password & "&destination=" & destination & "&message=" & message & "&originator=" & originator & "&flash=" & flash else if secured = 1 then xml.Open "POST", "https://gw1.aql.com/sms/sms_gw.php", False xml.setRequestHeader "Content-Type", "application/x-www-form-urlencoded" xml.Send "username=" & username & "&password=" & password & "&destination=" & destination & "&message=" & message & "&originator=" & originator & "&flash=" & flash else call senderror(7) end if end if AQresponse = xml.responseText Set xml = nothing End Function %>

That's all for now :)