highlight.js test

This is a demo/test page showing all languages supported by highlight.js. Most snippets do not contain working code :-).

## Styles

## Automatically detected languages

...

Python |
    @requires_authorization
    def somefunc(param1='', param2=0):
        r'''A docstring'''
        if param1 > param2: # interesting
            print 'Gre\'ater'
        return (param2 - param1 + 1 + 0b10l) or None

    class SomeClass:
        pass

    >>> message = '''interpreter
    ... prompt'''
Python's profiler output |
           261917242 function calls in 686.251 CPU seconds

           ncalls  tottime  filename:lineno(function)
           152824  513.894  {method 'sort' of 'list' objects}
        129590630   83.894  rrule.py:842(__cmp__)
        129590630   82.439  {cmp}
           153900    1.296  rrule.py:399(_iter)
    304393/151570    0.963  rrule.py:102(_iter_cached)
Ruby |
    class A < B; def self.create(object = User) object end end
    class Zebra; def inspect; "X#{2 + self.object_id}" end end

    module ABC::DEF
      include Comparable

      # @param test
      # @return [String] nothing
      def foo(test)
        Thread.new do |blockvar|
          ABC::DEF.reverse(:a_symbol, :'a symbol', :<=>, 'test' + ?\012)
          answer = valid?4 && valid?CONST && ?A && ?A.ord
        end.join
      end

      def [](index) self[index] end
      def ==(other) other == self end
    end

    class Car < ActiveRecord::Base
      has_many :wheels, :class_name => 'Wheel', :foreign_key => 'car_id'
      has_many :wheels, class_name: 'Wheel', foreign_key: 'car_id'
      scope :available, -> { where(available: true) }
    end
    omega = -> { 'alpha' }
    alpha = ->(arg) { arg*2 }
    hash = {1 => 'one', 2 => 'two'}

    anIdentifier = an_identifier
    Constant = 1
    render action: :new

    str =~ /^(?:foo)$/
    str =~ %r{foo|bar|buz$}
    str =~ %r!foo|bar$!
    str =~ %r[foo|bar$]
    str =~ %r(\(foo|bar\)$)

    2.0.0p0 :001 > ['some']
     => ["some"]
    2.0.0p0 :002 > if true
    2.0.0p0 :003?>   "yop"
    2.0.0p0 :004?>   end
     => "yop"

    >> obj = OpenStruct.new :integer => 987, :symbol => :so_great
    => #<OpenStruct integer=987, symbol=:so_great>
    >> [obj,obj,obj]
    => [#<OpenStruct integer=987, symbol=:so_great>, #<OpenStruct integer=987, symbol=:so_great>, #<OpenStruct integer=987, symbol=:so_great>]
    >> {1 => obj, 2 => obj}
    => {1=>#<OpenStruct integer=987, symbol=:so_great>, 2=>#<OpenStruct integer=987, symbol=:so_great>}
    >> if 10 > 20
    >> "YEAH"
    >> else
    ?> "NO"
    >> end
    => "NO"
Haml |
    !!! XML
    %html
      %body
        %h1.jumbo{:id=>"a", :style=>'font-weight: normal', :title=>title} highlight.js
        /html comment
        -# ignore this line
        %ul(style='margin: 0')
        -items.each do |i|
          %i= i
        = variable
        =variable2
        ~ variable3
        ~variable4
        The current year is #{DataTime.now.year}.
Nix |
    { stdenv, foo, bar ? false, ... }:

    /*
     * foo
     */

    let
      a = 1; # just a comment
      b = null;
      c = toString 10;
    in stdenv.mkDerivation rec {
      name = "foo-${version}";
      version = "1.3";

      configureFlags = [ "--with-foo2" ] ++ stdenv.lib.optional bar "--with-foo=${ with stdenv.lib; foo }"

      postInstall = ''
        ${ if true then "--${test}" else false }
      '';

      meta = with stdenv.lib; {
        homepage = https://nixos.org;
      };
    }
Perl |
    # loads object
    sub load
    {
      my $flds = $c->db_load($id,@_) || do {
        Carp::carp "Can`t load (class: $c, id: $id): '$!'"; return undef
      };
      my $o = $c->_perl_new();
      $id12 = $id / 24 / 3600;
      $o->{'ID'} = $id12 + 123;
      #$o->{'SHCUT'} = $flds->{'SHCUT'};
      my $p = $o->props;
      my $vt;
      $string =~ m/^sought_text$/;
      $items = split //, 'abc';
      $string //= "bar";
      for my $key (keys %$p)
      {
        if(${$vt.'::property'}) {
          $o->{$key . '_real'} = $flds->{$key};
          tie $o->{$key}, 'CMSBuilder::Property', $o, $key;
        }
      }
      $o->save if delete $o->{'_save_after_load'};

      # GH-117
      my $g = glob("/usr/bin/*");

      return $o;
    }

    =head1 NAME
    POD till the end of file
PHP |
    require_once 'Zend/Uri/Http.php';

    namespace Location\Web;

    interface Factory
    {
        static function _factory();
    }

    abstract class URI extends BaseURI implements Factory
    {
        abstract function test();

        public static $st1 = 1;
        const ME = "Yo";
        var $list = NULL;
        private $var;

        /**
         * Returns a URI
         *
         * @return URI
         */
        static public function _factory($stats = array(), $uri = 'http')
        {
            echo __METHOD__;
            $uri = explode(':', $uri, 0b10);
            $schemeSpecific = isset($uri[1]) ? $uri[1] : '';
            $desc = 'Multi
    line description';

            // Security check
            if (!ctype_alnum($scheme)) {
                throw new Zend_Uri_Exception('Illegal scheme');
            }

           	$this->var = 0 - self::$st;
            $this->list = list(Array("1"=> 2, 2=>self::ME));

            return [
                'uri'   => $uri,
                'value' => null,
            ];
        }
    }

    echo URI::ME . URI::$st1;

    __halt_compiler () ; datahere
    datahere
    datahere */
    datahere
Scala |
    case class Person(name: String, age: Int)

    def absoluteValue(n: Int): Int =
      if (n < 0) -n else n

    val hux = "hux"
    def mux = "mux"
    def qux: String = "qux"

    type ξ[A] = (A, A)

    trait Hist { lhs =>
      def ⊕(rhs: Hist): Hist
    }

    def gsum[A: Ring](as: Seq[A]): A =
      as.foldLeft(Ring[A].zero)(_ + _)

    sealed trait Compass
    case object North extends Compass
    case object South extends Compass
    case object East extends Compass
    case object West extends Compass

    trait Cake {
      type T;
      val things: Seq[T]

      abstract class Spindler

      def spindle(s: Spindler, ts: Seq[T], reversed: Boolean = false): Seq[T]
    }

    val colors = Map(
      "red" -> 0xFF0000,
      "turquoise" -> 0x00FFFF,
      "black" -> 0x000000,
      "orange" -> 0xFF8040,
      "brown" -> 0x804000)

    lazy val ns = for {
      x <- 0 until 100
      y <- 0 until 100
    } yield (x + y) * 33.33
Groovy |
    #!/usr/bin/env groovy
    package model

    import groovy.transform.CompileStatic
    import java.util.List as MyList

    trait Distributable {
        void distribute(String version) {}
    }

    @CompileStatic
    class Distribution implements Distributable {
        double number = 1234.234 / 567
        def otherNumber = 3 / 4
        boolean archivable = condition ?: true
        def ternary = a ? b : c
        String name = "Guillaume"
        Closure description = null
        List<DownloadPackage> packages = []
        String regex = ~/.*foo.*/
        String multi = '''
            multi line string
        ''' + """
            now with double quotes and ${gstring}
        """ + $/
            even with dollar slashy strings
        /$

        /**
         * description method
         * @param cl the closure
         */
        void description(Closure cl) { this.description = cl }

        void version(String name, Closure versionSpec) {
            def closure = { println "hi" } as Runnable

            MyList ml = [1, 2, [a: 1, b:2,c :3]]
            for (ch in "name") {}

            // single line comment
            DownloadPackage pkg = new DownloadPackage(version: name)

            check that: true

            label:
            def clone = versionSpec.rehydrate(pkg, pkg, pkg)
            /*
                now clone() in a multiline comment
            */
            clone()
            packages.add(pkg)

            assert 4 / 2 == 2
        }
    }
Go |
    package main

    import (
        "fmt"
        "os"
    )

    const (
        Sunday = iota
        numberOfDays  // this constant is not exported
    )

    type Foo interface {
        FooFunc(int, float32) (complex128, []int)
    }

    type Bar struct {
        os.File /* multi-line
                   comment */
        PublicData chan int
    }

    func main() {
        ch := make(chan int)
        ch <- 1
        x, ok := <- ch
        ok = true
        float_var := 1.0e10
        defer fmt.Println('\'')
        defer fmt.Println(`exitting now\`)
        var fv1 float64 = 0.75
        go println(len("hello world!"))
        return
    }
XML |
    <?xml version="1.0"?>
    <response value="ok" xml:lang="en">
      <text>Ok</text>
      <comment html_allowed="true"/>
      <ns1:description><![CDATA[
      CDATA is <not> magical.
      ]]></ns1:description>
      <a></a> <a/>
    </response>
HTML (with inline css and javascript) |
    <!DOCTYPE html>
    <title>Title</title>

    <style>body {width: 500px;}</style>

    <script type="application/javascript">
      function $init() {return true;}
    </script>

    <body>
      <p checked class="title" id='title'>Title</p>
      <!-- here goes the rest of the page -->
    </body>
Lasso |
    <?LassoScript
    /* Lasso 8 */
      local('query' = 'SELECT * FROM `'+var:'table'+'` WHERE `id` > 10
        ORDER BY `Name` LIMIT 30');
      Inline: -Username=$DBuser, -Password=$DBpass, -Database=$DBname, -sql=#query;
        var("class1.name" = (found_count != 0 ? "subtotal" | "nonefound"),
            "total_amount" = found_count);
        records;
          output: "<tr>"loop_count"</tr>";
        /records;
      /Inline;
    ?><div class="[$class1.name]">[$total_amount]</div>
    <?lasso
    /* Lasso 9 */ ?>
    [noprocess] causes [delimiters] to be <?=skipped?> until the next [/noprocess]
    [
      define strings_combine(value::string, ...other)::string => {
        local(result = #value->append(#other->asString&trim))
        return #result
      }
      /**! descriptive text */
      define person => type {
        parent entity
        data name::string, protected nickname, birthdate :: date
        data private ssn = null
        private showAge() => { return ..age }
        protected fullName() => `"` + .nickname + `"` + .'name'
        public ssnListed::boolean => .ssn() ? true | false
      }
      define person->name=(value) => {
        .'name' = #value
        return self->'name'
      }
    ] <!-- an HTML comment <?=disables delimiters?> as well -->
    [no_square_brackets] disables [square brackets] for the rest of the file
    <?=
      // query expression
      with n in array((:-12, 0xABCD, 3.14159e14), (:NaN, -infinity, .57721))
      let swapped = pair(#n->second, #n->first)
      group #swapped by #n->first into t
      let key = #t->key
      order by #key
      select pair(#key, #1)
      do {^
        #n->upperCase
      ^}
    ?>
Markdown |
    # hello world

    you can write text [with links](http://example.com) inline or [link references][1].

    * one _thing_ has *em*phasis
    * two __things__ are **bold**

    [1]: http://example.com

    ---

    hello world
    ===========

    <this_is inline="xml"></this_is>

    > markdown is so cool

        so are code segments

    1. one thing (yeah!)
    2. two thing `i can write code`, and `more` wipee!
AsciiDoc |
    Hello, World!
    ============
    Author Name, <author@domain.foo>

    you can write text http://example.com[with links], optionally
    using an explicit link:http://example.com[link prefix].

    * single quotes around a phrase place 'emphasis'
    ** alternatively, you can put underlines around a phrase to add _emphasis_
    * astericks around a phrase make the text *bold*
    * pluses around a phrase make it +monospaced+
    * `smart' quotes using a leading backtick and trailing single quote
    ** use two of each for double ``smart'' quotes

    - escape characters are supported
    - you can escape a quote inside emphasized text like 'here\'s johnny!'

    term:: definition
     another term:: another definition

    // this is just a comment

    Let's make a break.

    '''

    ////
    we'll be right with you

    after this brief interruption.
    ////

    == We're back!

    Want to see a image::images/tiger.png[Tiger]?

    .Nested highlighting
    ++++
    <this_is inline="xml"></this_is>
    ++++

    ____
    asciidoc is so powerful.
    ____

    another quote:

    [quote, Sir Arthur Conan Doyle, The Adventures of Sherlock Holmes]
    ____
    When you have eliminated all which is impossible, then whatever remains, however improbable, must be the truth.
    ____

    Getting Literal
    ---------------

     want to get literal? prefix a line with a space.

    ....
    I'll join that party, too.
    ....

    . one thing (yeah!)
    . two thing `i can write code`, and `more` wipee!

    NOTE: AsciiDoc is quite cool, you should try it.
Django templates |
    {% if articles|length %}
    {% for article in articles %}

    {# Striped table #}
    <tr class="{% cycle odd,even %}">
      <td>{{ article|default:"Hi... "|escape }}</td>
      <td {% if article.today %}class="today"{% endif %}>{{ article.date|date:'d.m.Y' }}</td>
    </tr>

    {% endfor %}
    {% endif %}

    {% comment %}
    Comments may be long and multiline.
    Markup is <em>not</em> highlighted within comments.
    {% endcomment %}
Handlebars |
    <h3>Hours</h3>

    <ul>
      {{#each content.users}}
      <li {{bindAttr hello="world"}}>{{firstName}}</li>
      {{/each}}
    </ul>
Dust.js |
    <h3>Hours</h3>

    <ul>
      {#users}
      <li {hello}}>{firstName}</li>{~n}
      {/users}
    </ul>
CSS |
    @media screen and (-webkit-min-device-pixel-ratio: 0) {
      body:first-of-type pre::after {
        content: 'highlight: ' attr(class);
      }
      body {
        background: linear-gradient(45deg, blue, red);
      }
    }

    @import url('print.css');
    @page:right {
     margin: 1cm 2cm 1.3cm 4cm;
    }

    @font-face {
      font-family: Chunkfive; src: url('Chunkfive.otf');
    }

    div.text,
    #content,
    li[lang=ru] {
      font: Tahoma, Chunkfive, sans-serif;
      background: url('hatch.png') /* wtf? */;  color: #F0F0F0 !important;
      width: 100%;
    }
SCSS |
    @import "compass/reset";

    // variables
    $colorGreen: #008000;
    $colorGreenDark: darken($colorGreen, 10);

    @mixin container {
        max-width: 980px;
    }

    // mixins with parameters
    @mixin button($color:green) {
        @if ($color == green) {
            background-color: #008000;
        }
        @else if ($color == red) {
            background-color: #B22222;
        }
    }

    button {
        @include button(red);
    }

    div,
    .navbar,
    #header,
    input[type="input"] {
        font-family: "Helvetica Neue", Arial, sans-serif;
        width: auto;
        margin: 0 auto;
        display: block;
    }

    .row-12 > [class*="spans"] {
        border-left: 1px solid #B5C583;
    }

    // nested definitions
    ul {
        width: 100%;
        padding: {
            left: 5px; right: 5px;
        }
      li {
          float: left; margin-right: 10px;
          .home {
              background: url('http://placehold.it/20') scroll no-repeat 0 0;
        }
      }
    }

    .banner {
        @extend .container;
    }

    a {
      color: $colorGreen;
      &:hover { color: $colorGreenDark; }
      &:visited { color: #c458cb; }
    }

    @for $i from 1 through 5 {
        .span#{$i} {
            width: 20px*$i;
        }
    }

    @mixin mobile {
      @media screen and (max-width : 600px) {
        @content;
      }
    }
JSON |
    [
      {
        "title": "apples",
        "count": [12000, 20000],
        "description": {"text": "...", "sensitive": false}
      },
      {
        "title": "oranges",
        "count": [17500, null],
        "description": {"text": "...", "sensitive": false}
      }
    ]
JavaScript |
    function $initHighlight(block, flags) {
      try {
        if (block.className.search(/\bno\-highlight\b/) != -1)
          return processBlock(block.function, true, 0x0F) + ' class=""';
      } catch (e) {
        /* handle exception */
        var e4x =
            <div>Example
                <p>1234</p></div>;
      }
      for (var i = 0 / 2; i < classes.length; i++) { // "0 / 2" should not be parsed as regexp
        if (checkCondition(classes[i]) === undefined)
          return /\d+[\s/]/g;
      }
      console.log(Array.every(classes, Boolean));
    }
TypeScript |
    class MyClass {
        public static myValue: string;
        constructor(init: string) {
          this.myValue = init;
        }
      }
      import fs = require("fs");
      module MyModule {
        export interface MyInterface extends OtherInterface {
          myProperty: any;
        }
      }
      declare magicNumber number;
      myArray.forEach(() => {
        // fat arrow syntax
      });
CoffeeScript |
    # Divisions
    x = 6/foo/i
    x = 6 /foo
    x = 6 / foo
    x = 6 /foo * 2/gm
    x = f /foo
    x = f / foo / gm
    x = f /foo * 2/6

    # Regexps
    x = /\//
    x = /\n/
    x = /ab\/ ab/
    x = f /6 * 2/ - 3
    x = f /foo * 2/gm
    x = if true then /\n/ else /[.,]+/
    x = ///^key-#{key}-\d+///

    grade = (student, period=(if b? then 7 else 6), messages={"A": "Excellent"}) ->
      if student.excellentWork
        "A+"
      else if student.okayStuff
        if student.triedHard then "B" else "B-"
      else
        "C"

    square = (x) -> x * x

    two = -> 2

    math =
      root:   Math.sqrt
      square: square
      cube:   (x) -> x * square x

    race = (winner, runners...) ->
      print winner, runners

    class Animal extends Being
      constructor: (@name) ->

      move: (meters) ->
        alert @name + " moved #{meters}m."

    hi = `function() {
      return [document.title, "Hello JavaScript"].join(": ");
    }`

    heredoc = """
    CoffeeScript subst test #{ 010 + 0xf / 0b10 + "nested string #{ /\n/ }"}
    """

    ###
    CoffeeScript Compiler v1.2.0
    Released under the MIT License
    ###

    OPERATOR = /// ^ (
    ?: [-=]>             # function
    ) ///
Dart |
    library app;
    import 'dart:html';

    part 'app2.dart';

    /**
     * Class description and [link](http://dartlang.org/).
     */
    @Awesome('it works!')
    class SomeClass<S extends Iterable> extends BaseClass<S> implements Comparable {
      factory SomeClass(num param);
      SomeClass._internal(int q) : super() {
        assert(q != 1);
        double z = 0.0;
      }

      /// **Sum** function
      int sum(int a, int b) => a + b;

      ElementList els() => querySelectorAll('.dart');
    }

    String str = ' (${'parameter' + 'zxc'})';
    String str = " (${true ? 2 + 2 / 2 : null})";
    String str = r'\nraw\';
    String str = r"\nraw\";
    var str = '''
    Something ${2+3}
    ''';
    var str = r"""
    Something ${2+3}
    """;
ActionScript |
    package org.example.dummy {
        import org.dummy.*;

        /*define package inline interface*/
        public interface IFooBarzable {
            public function foo(... pairs):Array;
        }

        public class FooBar implements IFooBarzable {
            static private var cnt:uint = 0;
            private var bar:String;

            //constructor
            public function TestBar(bar:String):void {
                bar = bar;
                ++cnt;
            }

            public function foo(... pairs):Array {
                pairs.push(bar);
                return pairs;
            }
        }
    }
Haxe |
    // quicksort example from http://haxe.org/doc/snip/quicksort
    class Quicksort {

        static var arr = [4,8,0,3,9,1,5,2,6,7];

        static function quicksort( lo : Int, hi : Int ) : Void {
            var i = lo;
            var j = hi;
            var buf = arr;
            var p = buf[(lo+hi)>>1];
            while( i <= j ) {
                while( arr[i] > p ) i++;
                while( arr[j] < p ) j--;
                if( i <= j ) {
                    var t = buf[i];
                    buf[i++] = buf[j];
                    buf[j--] = t;
                }
            }
            if( lo < j ) quicksort( lo, j );
            if( i < hi ) quicksort( i, hi );
        }

        static function main() {
            quicksort( 0, arr.length-1 );
            trace(arr);
        }
    }
VBScript |
    ' creating configuration storage and initializing with default values
    Set cfg = CreateObject("Scripting.Dictionary")

    ' reading ini file
    for i = 0 to ubound(ini_strings)
        s = trim(ini_strings(i))

        ' skipping empty strings and comments
        if mid(s, 1, 1) <> "#" and len(s) > 0 then
          ' obtaining key and value
          parts = split(s, "=", -1, 1)

          if ubound(parts)+1 = 2 then
            parts(0) = trim(parts(0))
            parts(1) = trim(parts(1))

            ' reading configuration and filenames
            select case lcase(parts(0))
              case "uncompressed""_postfix" cfg.item("uncompressed""_postfix") = parts(1)
              case "f"
                        options = split(parts(1), "|", -1, 1)
                        if ubound(options)+1 = 2 then
                          ' 0: filename,  1: options
                          ff.add trim(options(0)), trim(options(1))
                        end if
            end select
          end if
        end if
    next
VB.NET |
    Import System
    Import System.IO
    #Const DEBUG = True

    Namespace Highlighter.Test
      ''' <summary>This is an example class.</summary>
      Public Class Program
        Protected Shared hello As Integer = 3
        Private Const ABC As Boolean = False

    #Region "Code"
        ' Cheers!
        <STAThread()> _
        Public Shared Sub Main(ByVal args() As String, ParamArray arr As Object) Handles Form1.Click
          On Error Resume Next
          If ABC Then
            While ABC : Console.WriteLine() : End While
            For i As Long = 0 To 1000 Step 123
              Try
                System.Windows.Forms.MessageBox.Show(CInt("1").ToString())
              Catch ex As Exception       ' What are you doing? Well...
                Dim exp = CType(ex, IOException)
                REM ORZ
                Return
              End Try
            Next
          Else
            Dim l As New System.Collections.List<String>()
            SyncLock l
              If TypeOf l Is Decimal And l IsNot Nothing Then
                RemoveHandler button1.Paint, delegate
              End If
              Dim d = New System.Threading.Thread(AddressOf ThreadProc)
              Dim a = New Action(Sub(x, y) x + y)
              Static u = From x As String In l Select x.Substring(2, 4) Where x.Length > 0
            End SyncLock
            Do : Laugh() : Loop Until hello = 4
          End If
        End Sub
    #End Region
      End Class
    End Namespace
Protocol Buffers |
    package languages.protobuf;

    option java_package = "org.highlightjs.languages.protobuf";

    message Customer {
      required int64 customer_id = 1;
      optional string name = 2;
      optional string real_name = 3 [default = "Anonymous"];
      optional Gender gender = 4;
      repeated string email_addresses = 5;

      optional bool is_admin = 6 [default = false]; // or should this be a repeated field in Account?

      enum Gender {
        MALE = 1,
        FEMALE = 2
      }
    }

    service CustomerSearch {
      rpc FirstMatch(CustomerRequest) returns (CustomerResponse);
      rpc AllMatches(CustomerRequest) returns (CustomerResponse);
    }
Cap’n Proto |
    @0xdbb9ad1f14bf0b36;  # unique file ID, generated by `capnp id`

    struct Person {
      name @0 :Text;
      birthdate @3 :Date;

      email @1 :Text;
      phones @2 :List(PhoneNumber);

      struct PhoneNumber {
        number @0 :Text;
        type @1 :Type;

        enum Type {
          mobile @0;
          home @1;
          work @2;
        }
      }
    }

    struct Date {
      year @0 :Int16;
      month @1 :UInt8;
      day @2 :UInt8;
      flags @3 :List(Bool) = [ true, false, false, true ];
    }

    interface Node {
      isDirectory @0 () -> (result :Bool);
    }

    interface Directory extends(Node) {
      list @0 () -> (list: List(Entry));
      struct Entry {
        name @0 :Text;
        node @1 :Node;
      }

      create @1 (name :Text) -> (file :File);
      mkdir @2 (name :Text) -> (directory :Directory)
      open @3 (name :Text) -> (node :Node);
      delete @4 (name :Text);
      link @5 (name :Text, node :Node);
    }

    interface File extends(Node) {
      size @0 () -> (size: UInt64);
      read @1 (startAt :UInt64 = 0, amount :UInt64 = 0xffffffffffffffff)
           -> (data: Data);
      # Default params = read entire file.

      write @2 (startAt :UInt64, data :Data);
      truncate @3 (size :UInt64);
    }
Thrift |
    namespace * thrift.test

    /**
     * Docstring!
     */
    enum Numberz
    {
      ONE = 1,
      TWO,
      THREE,
      FIVE = 5,
      SIX,
      EIGHT = 8
    }

    const Numberz myNumberz = Numberz.ONE;
    // the following is expected to fail:
    // const Numberz urNumberz = ONE;

    typedef i64 UserId

    struct Msg
    {
      1: string message,
      2: i32 type
    }
    struct NestedListsI32x2
    {
      1: list<list<i32>> integerlist
    }
    struct NestedListsI32x3
    {
      1: list<list<list<i32>>> integerlist
    }
    service ThriftTest
    {
      void        testVoid(),
      string      testString(1: string thing),
      oneway void testInit()
    }
HTTP |
    POST /task?id=1 HTTP/1.1
    Host: example.org
    Content-Type: application/json; charset=utf-8
    Content-Length: 19

    {"status": "ok", "extended": true}
Lua |
    --[[
    Simple signal/slot implementation
    ]]
    local signal_mt = {
        __index = {
            register = table.insert
        }
    }
    function signal_mt.__index:emit(... --[[ Comment in params ]])
        for _, slot in ipairs(self) do
            slot(self, ...)
        end
    end
    local function create_signal()
        return setmetatable({}, signal_mt)
    end

    -- Signal test
    local signal = create_signal()
    signal:register(function(signal, ...)
        print(...)
    end)
    signal:emit('Answer to Life, the Universe, and Everything:', 42)

    --[==[ [=[ [[
    Nested ]]
    multi-line ]=]
    comment ]==]
    [==[ Nested
    [=[ multi-line
    [[ string
    ]] ]=] ]==]
AppleScript |
    repeat 5 times
        if foo is greater than bar then
            display dialog "Hello there"
        else
            beep
        end if
    end repeat

    (* comment (*nested comment*) *)
    on do_something(s, y)
        return {s + pi, y mod 4}
    end do_something

    do shell script "/bin/echo 'hello'"
Vim Script |
    if foo > 2 || has("gui_running")
      syntax on
      set hlsearch
    endif

    set autoindent

    " switch on highlighting
    function UnComment(fl, ll)
      while idx >= a:ll
        let srclines=getline(idx)
        let dstlines=substitute(srclines, b:comment, "", "")
        call setline(idx, dstlines)
      endwhile
    endfunction
Delphi |
    TList = Class(TObject)
    Private
      Some: String;
    Public
      Procedure Inside; // Suxx
    End;{TList}

    Procedure CopyFile(InFileName, var OutFileName: String);
    Const
      BufSize = 4096; (* Huh? *)
    Var
      InFile, OutFile: TStream;
      Buffer: Array[1..BufSize] Of Byte;
      ReadBufSize: Integer;
    Begin
      InFile := Nil;
      OutFile := Nil;
      Try
        InFile := TFileStream.Create(InFileName, fmOpenRead);
        OutFile := TFileStream.Create(OutFileName, fmCreate);
        Repeat
          ReadBufSize := InFile.Read(Buffer, BufSize);
          OutFile.Write(Buffer, ReadBufSize);
        Until ReadBufSize<>BufSize;
        Log('File ''' + InFileName + ''' copied'#13#10);
      Finally
        InFile.Free;
        OutFile.Free;
      End;{Try}
    End;{CopyFile}
Oxygene |
    namespace LinkedList;

    interface

    uses
      System.Text;

    type
      List<T> = public class
        where T is Object;
      private
        method AppendToString(aBuilder: StringBuilder);
      public
        constructor(aData: T);
        constructor(aData: T; aNext: List<T>);
        property Next: List<T>;
        property Data: T;

        method ToString: string; override;
      end;

    implementation

    constructor List<T>(aData: T);
    begin
      Data := aData;
    end;

    constructor List<T>(aData: T; aNext: List<T>);
    begin
      constructor(aData);
      Next := aNext;
    end;

    method List<T>.ToString: string;
    begin
      with lBuilder := new StringBuilder do begin
        AppendToString(lBuilder);
        result := lBuilder.ToString();
      end;
    end;

    method List<T>.AppendToString(aBuilder: StringBuilder);
    begin
      if assigned(Data) then
        aBuilder.Append(Data.ToString)
      else
        aBuilder.Append('nil');

      if assigned(Next) then begin
        aBuilder.Append(', ');
        Next.AppendToString(aBuilder);
      end;
    end;

    end.
Java |
    /**
     * @author John Smith <john.smith@example.com>
     * @version 1.0
    */
    package l2f.gameserver.model;

    import java.util.ArrayList;

    public abstract class L2Character extends L2Object {
      public static final Short ABNORMAL_EFFECT_BLEEDING = 0x0001; // not sure

      public void moveTo(int x, int y, int z) {
        _ai = null;
        _log.warning("Should not be called");
        if (1 > 5) {
          return;
        }
      }

      /** Task of AI notification */
      @SuppressWarnings( { "nls", "unqualified-field-access", "boxing" })
      public class NotifyAITask implements Runnable {
        private final CtrlEvent _evt;

        List<String> mList = new ArrayList<String>()

        public void run() {
          try {
            getAI().notifyEvent(_evt, _evt.class, null);
          } catch (Throwable t) {
            t.printStackTrace();
          }
        }
      }
    }
C++ |
    #include <iostream>
    #define IABS(x) ((x) < 0 ? -(x) : (x))

    int main(int argc, char *argv[]) {

      /* An annoying "Hello World" example */
      for (auto i = 0; i < 0xFFFF; i++)
        cout << "Hello, World!" << endl;

      char c = '\n';
      unordered_map <string, vector<string> > m;
      m["key"] = "\\\\"; // this is an error

      return -2e3 + 12l;
    }
Objective C |
    #import <UIKit/UIKit.h>
    #import "Dependency.h"

    @protocol WorldDataSource
    @optional
    - (NSString*)worldName;
    @required
    - (BOOL)allowsToLive;
    @end

    @interface Test : NSObject <HelloDelegate, WorldDataSource> {
      NSString *_greeting;
    }

    @property (nonatomic, readonly) NSString *greeting;
    - (IBAction) show;
    @end

    @implementation Test

    @synthesize test=_test;

    + (id) test {
      return [self testWithGreeting:@"Hello, world!\nFoo bar!"];
    }

    + (id) testWithGreeting:(NSString*)greeting {
      return [[[self alloc] initWithGreeting:greeting] autorelease];
    }

    - (id) initWithGreeting:(NSString*)greeting {
      if ( (self = [super init]) ) {
        _greeting = [greeting retain];
      }
      return self;
    }

    - (void) dealloc {
      [_greeting release];
      [super dealloc];
    }

    @end
Vala |
    using DBus;

    namespace Test {
      class Foo : Object {
        public signal void some_event ();   // definition of the signal
        public void method () {
          some_event ();                    // emitting the signal (callbacks get invoked)
        }
      }
    }

    /* defining a class */
    class Track : GLib.Object, Test.Foo {              /* subclassing 'GLib.Object' */
      public double mass;                  /* a public field */
      public double name { get; set; }     /* a public property */
      private bool terminated = false;     /* a private field */
      public void terminate() {            /* a public method */
        terminated = true;
      }
    }

    const ALL_UPPER_CASE = "you should follow this convention";

    var t = new Track();      // same as: Track t = new Track();
    var s = "hello";          // same as: string s = "hello";
    var l = new List<int>();       // same as: List<int> l = new List<int>();
    var i = 10;               // same as: int i = 10;

    #if (ololo)
    Regex regex = /foo/;
    #endif

    /*
     * Entry point can be outside class
     */
    void main () {
      var long_string = """
        Example of "verbatim string".
        Same as in @"string" in C#
      """
      var foo = new Foo ();
      foo.some_event.connect (callback_a);      // connecting the callback functions
      foo.some_event.connect (callback_b);
      foo.method ();
    }
C# |
    using System;

    #pragma warning disable 414, 3021

    public class Program
    {
        /// <summary>The entry point to the program.</summary>
        public static int Main(string[] args)
        {
            Console.WriteLine("Hello, World!");
            string s = @"This
    ""string""
    spans
    multiple
    lines!";
            return 0;
        }
    }

    async Task<int> AccessTheWebAsync()
    {
        // ...
        string urlContents = await getStringTask;
        return urlContents.Length;
    }
F# |
    open System

    // Single line comment...
    (*
      This is a
      multiline comment.
    *)
    let checkList alist =
        match alist with
        | [] -> 0
        | [a] -> 1
        | [a; b] -> 2
        | [a; b; c] -> 3
        | _ -> failwith "List is too big!"

    let text = "Some text..."
    let text2 = @"A ""verbatim"" string..."
    let catalog = """
    Some "long" string...
    """

    let rec fib x = if x <= 2 then 1 else fib(x-1) + fib(x-2)

    let fibs =
        Async.Parallel [ for i in 0..40 -> async { return fib(i) } ]
        |> Async.RunSynchronously

    type Sprocket(gears) =
      member this.Gears : int = gears

    [<AbstractClass>]
    type Animal =
      abstract Speak : unit -> unit

    type Widget =
      | RedWidget
      | GreenWidget

    type Point = {X: float; Y: float;}

    [<Measure>]
    type s
    let minutte = 60<s>

    type DefaultMailbox<'a>() =
        let mutable inbox = ConcurrentQueue<'a>()
        let awaitMsg = new AutoResetEvent(false)
OCaml |
    (* This is a
    multiline, (* nested *) comment *)
    type point = { x: float; y: float };;
    let some_string = "this is a string";;
    let rec length lst =
        match lst with
          [] -> 0
        | head :: tail -> 1 + length tail
      ;;
    exception Test;;
    type expression =
          Const of float
        | Var of string
        | Sum of expression * expression    (* e1 + e2 *)
        | Diff of expression * expression   (* e1 - e2 *)
        | Prod of expression * expression   (* e1 * e2 *)
        | Quot of expression * expression   (* e1 / e2 *)
    class point =
        object
          val mutable x = 0
          method get_x = x
          method private move d = x <- x + d
        end;;
D |
    #!/usr/bin/rdmd
    // Computes average line length for standard input.
    import std.stdio;

    /+
      this is a /+ nesting +/ comment
    +/

    enum COMPILED_ON = __TIMESTAMP__;  // special token

    enum character = '©';
    enum copy_valid = '&copy;';
    enum backslash_escaped = '\\';

    // string literals
    enum str = `hello "world"!`;
    enum multiline = r"lorem
    ipsum
    dolor";  // wysiwyg string, no escapes here allowed
    enum multiline2 = "sit
    amet
    \"adipiscing\"
    elit.";
    enum hex = x"66 6f 6f";   // same as "foo"

    #line 5

    // float literals
    enum f = [3.14f, .1, 1., 1e100, 0xc0de.01p+100];

    static if (something == true) {
       import std.algorithm;
    }

    void main() pure nothrow @safe {
        ulong lines = 0;
        double sumLength = 0;
        foreach (line; stdin.byLine()) {
            ++lines;
            sumLength += line.length;
        }
        writeln("Average line length: ",
            lines ? sumLength / lines : 0);
    }
RenderMan RSL |
    #define TEST_DEFINE 3.14
    /*  plastic surface shader
     *
     *  Pixie is:
     *  (c) Copyright 1999-2003 Okan Arikan. All rights reserved.
     */

    surface plastic (float Ka = 1, Kd = 0.5, Ks = 0.5, roughness = 0.1;
                     color specularcolor = 1;) {
      normal Nf = faceforward (normalize(N),I);
      Ci = Cs * (Ka*ambient() + Kd*diffuse(Nf)) + specularcolor * Ks *
           specular(Nf,-normalize(I),roughness);
      Oi = Os;
      Ci *= Oi;
    }
RenderMan RIB |
    FrameBegin 0
    Display "Scene" "framebuffer" "rgb"
    Option "searchpath" "shader" "+&:/home/kew"
    Option "trace" "int maxdepth" [4]
    Attribute "visibility" "trace" [1]
    Attribute "irradiance" "maxerror" [0.1]
    Attribute "visibility" "transmission" "opaque"
    Format 640 480 1.0
    ShadingRate 2
    PixelFilter "catmull-rom" 1 1
    PixelSamples 4 4
    Projection "perspective" "fov" 49.5502811377
    Scale 1 1 -1

    WorldBegin

    ReadArchive "Lamp.002_Light/instance.rib"
    Surface "plastic"
    ReadArchive "Cube.004_Mesh/instance.rib"
    # ReadArchive "Sphere.010_Mesh/instance.rib"
    # ReadArchive "Sphere.009_Mesh/instance.rib"
    ReadArchive "Sphere.006_Mesh/instance.rib"

    WorldEnd
    FrameEnd
MEL (Maya Embedded Language) |
    proc string[] getSelectedLights()

    {
      string $selectedLights[];

      string $select[] = `ls -sl -dag -leaf`;

      for ( $shape in $select )
      {
        // Determine if this is a light.
        //
        string $class[] = getClassification( `nodeType $shape` );

        if ( ( `size $class` ) > 0 && ( "light" == $class[0] ) )
        {
          $selectedLights[ `size $selectedLights` ] = $shape;
        }
      }

      // Result is an array of all lights included in

      // current selection list.
      return $selectedLights;
    }
GLSL |
    // vertex shader
    #version 150
    in  vec2 in_Position;
    in  vec3 in_Color;

    out vec3 ex_Color;
    void main(void) {
        gl_Position = vec4(in_Position.x, in_Position.y, 0.0, 1.0);
        ex_Color = in_Color;
    }

    // geometry shader
    #version 150

    layout(triangles) in;
    layout(triangle_strip, max_vertices = 3) out;

    void main() {
      for(int i = 0; i < gl_in.length(); i++) {
        gl_Position = gl_in[i].gl_Position;
        EmitVertex();
      }
      EndPrimitive();
    }

    // fragment shader
    #version 150
    precision highp float;

    in  vec3 ex_Color;
    out vec4 gl_FragColor;

    void main(void) {
        gl_FragColor = vec4(ex_Color, 1.0);
    }
SQL |
    BEGIN;
    CREATE TABLE "topic" (
        -- This is the greatest table of all time
        "id" serial NOT NULL PRIMARY KEY,
        "forum_id" integer NOT NULL,
        "subject" varchar(255) NOT NULL -- Because nobody likes an empty subject
    );
    ALTER TABLE "topic" ADD CONSTRAINT forum_id FOREIGN KEY ("forum_id") REFERENCES "forum" ("id");

    -- Initials
    insert into "topic" ("forum_id", "subject") values (2, 'D''artagnian');

    select /* comment */ count(*) from cicero_forum;

    -- this line lacks ; at the end to allow people to be sloppy and omit it in one-liners
    /*
    but who cares?
    */
    COMMIT
SmallTalk |
    Object>>method: num
        "comment 123"
        | var1 var2 |
        (1 to: num) do: [:i | |var| ^i].
        Klass with: var1.
        Klass new.
        arr := #('123' 123.345 #hello Transcript var $@).
        arr := #().
        var2 = arr at: 3.
        ^ self abc

    heapExample
        "HeapTest new heapExample"
        "Multiline
        decription"
        | n rnd array time sorted |
        n := 5000.
        "# of elements to sort"
        rnd := Random new.
        array := (1 to: n)
                    collect: [:i | rnd next].
        "First, the heap version"
        time := Time
                    millisecondsToRun: [sorted := Heap withAll: array.
        1
            to: n
            do: [:i |
                sorted removeFirst.
                sorted add: rnd next]].
        Transcript cr; show: 'Time for Heap: ' , time printString , ' msecs'.
        "The quicksort version"
        time := Time
                    millisecondsToRun: [sorted := SortedCollection withAll: array.
        1
            to: n
            do: [:i |
                sorted removeFirst.
                sorted add: rnd next]].
        Transcript cr; show: 'Time for SortedCollection: ' , time printString , ' msecs'
Lisp |
    #!/usr/bin/env csi

    (defun prompt-for-cd ()
       "Prompts
        for CD"
       (prompt-read "Title" 1.53 1 2/4 1.7 1.7e0 2.9E-4 +42 -7 #b001 #b001/100 #o777 #O777 #xabc55 #c(0 -5.6))
       (prompt-read "Artist" &rest)
       (or (parse-integer (prompt-read "Rating") :junk-allowed t) 0)
      (if x (format t "yes") (format t "no" nil) ;and here comment
      )
      ;; second line comment
      '(+ 1 2)
      (defvar *lines*)                ; list of all lines
      (position-if-not #'sys::whitespacep line :start beg))
      (quote (privet 1 2 3))
      '(hello world)
      (* 5 7)
      (1 2 34 5)
      (:use "aaaa")
      (let ((x 10) (y 20))
        (print (+ x y))
      )
Clojure |
    ; Comment

    (def
      ^{:macro true
        :added "1.0"}
      let (fn* let [&form &env & decl] (cons 'let* decl)))

    (def ^:dynamic chunk-size 17)

    (defn next-chunk [rdr]
      (let [buf (char-array chunk-size)
            s (.read rdr buf)]
      (when (pos? s)
        (java.nio.CharBuffer/wrap buf 0 s))))

    (defn chunk-seq [rdr]
      (when-let [chunk (next-chunk rdr)]
        (cons chunk (lazy-seq (chunk-seq rdr)))))
Scheme |
    ;; Calculation of Hofstadter's male and female sequences as a list of pairs

    (define (hofstadter-male-female n)
    (letrec ((female (lambda (n)
               (if (= n 0)
               1
               (- n (male (female (- n 1)))))))
         (male (lambda (n)
             (if (= n 0)
                 0
                 (- n (female (male (- n 1))))))))
      (let loop ((i 0))
        (if (> i n)
        '()
        (cons (cons (female i)
                (male i))
          (loop (+ i 1)))))))

    (hofstadter-male-female 8)

    (define (find-first func lst)
    (call-with-current-continuation
     (lambda (return-immediately)
       (for-each (lambda (x)
           (if (func x)
               (return-immediately x)))
             lst)
       #f)))
Ini file |
    ;Settings relating to the location and loading of the database
    [Database]
    ProfileDir=.
    ShowProfileMgr=smart
    Profile1_Name[] = "\|/_-=MegaDestoyer=-_\|/"
    DefaultProfile=True
    AutoCreate = no

    [AutoExec]
    use-prompt="prompt"
    Glob=autoexec_*.ini
    AskAboutIgnoredPlugins=0
Apache |
    # rewrite`s rules for wordpress pretty url
    LoadModule rewrite_module  modules/mod_rewrite.so
    RewriteCond %{REQUEST_FILENAME} !-f
    RewriteCond %{REQUEST_FILENAME} !-d
    RewriteRule . index.php [NC,L]

    ExpiresActive On
    ExpiresByType application/x-javascript  "access plus 1 days"

    Order Deny,Allow
    Allow from All

    <Location /maps/>
      RewriteMap map txt:map.txt
      RewriteMap lower int:tolower
      RewriteCond %{REQUEST_URI} ^/([^/.]+)\.html$ [NC]
      RewriteCond ${map:${lower:%1}|NOT_FOUND} !NOT_FOUND
      RewriteRule .? /index.php?q=${map:${lower:%1}} [NC,L]
    </Location>
nginx |
    user  www www;
    worker_processes  2;
    pid /var/run/nginx.pid;
    error_log  /var/log/nginx.error_log  debug | info | notice | warn | error | crit;

    events {
        connections   2000;
        use kqueue | rtsig | epoll | /dev/poll | select | poll;
    }

    http {
        log_format main      '$remote_addr - $remote_user [$time_local] '
                             '"$request" $status $bytes_sent '
                             '"$http_referer" "$http_user_agent" '
                             '"$gzip_ratio"';

        send_timeout 3m;
        client_header_buffer_size 1k;

        gzip on;
        gzip_min_length 1100;

        #lingering_time 30;

        server {
            server_name www.example.com;
            return 301 http://www.example.com$request_uri;
        }

        server {
            server_name   example.com;
            access_log   /var/log/nginx.access_log  main;

            rewrite (.*) /index.php?page=$1 break;

            location / {
                proxy_pass         http://127.0.0.1/;
                proxy_redirect     off;
                proxy_set_header   Host             $host;
                proxy_set_header   X-Real-IP        $remote_addr;
                charset            koi8-r;
            }

            location /api/ {
                fastcgi_pass 127.0.0.1:9000;
            }

            location ~* \.(jpg|jpeg|gif)$ {
                root         /spool/www;
            }
        }
    }
Diff |
    Index: languages/ini.js
    ===================================================================
    --- languages/ini.js    (revision 199)
    +++ languages/ini.js    (revision 200)
    @@ -1,8 +1,7 @@
     hljs.LANGUAGES.ini =
     {
       case_insensitive: true,
    -  defaultMode:
    -  {
    +  defaultMode: {
         contains: ['comment', 'title', 'setting'],
         illegal: '[^\\s]'
       },

    *** /path/to/original timestamp
    --- /path/to/new      timestamp
    ***************
    *** 1,3 ****
    --- 1,9 ----
    + This is an important
    + notice! It should
    + therefore be located at
    + the beginning of this
    + document!

    ! compress the size of the
    ! changes.

      It is important to spell
DOS batch files |
    cd \
    copy a b
    ping 192.168.0.1
    @rem ping 192.168.0.1
    net stop sharedaccess
    del %tmp% /f /s /q
    del %temp% /f /s /q
    ipconfig /flushdns
    taskkill /F /IM JAVA.EXE /T

    cd Photoshop/Adobe Photoshop CS3/AMT/
    if exist application.sif (
        ren application.sif _application.sif
    ) else (
        ren _application.sif application.sif
    )

    taskkill /F /IM proquota.exe /T

    sfc /SCANNOW

    set path = test

    xcopy %1\*.* %2
Bash |
    #!/bin/bash

    ###### BEGIN CONFIG
    ACCEPTED_HOSTS="/root/.hag_accepted.conf"
    BE_VERBOSE=false
    ###### END CONFIG

    if [ "$UID" -ne 0 ]
    then
     echo "Superuser rights is required"
     echo 'Printing the # sign'
     exit 2
    fi

    if test $# -eq 0
    then
    elif test [ $1 == 'start' ]
    else
    fi

    genApacheConf(){
     if [[ "$2" = "www" ]]
     then
      full_domain=$1
     else
      full_domain=$2.$1
     fi
     host_root="${APACHE_HOME_DIR}$1/$2/$(title)"
     echo -e "# Host $1/$2 :"
    }
Makefile |
    # Makefile

    BUILDDIR      = _build
    EXTRAS       ?= $(BUILDDIR)/extras

    .PHONY: main clean

    main:
    	@echo "Building main facility..."
    	build_main $(BUILDDIR)

    clean:
    	rm -rf $(BUILDDIR)/*
CMake |
    cmake_minimum_required(VERSION 2.8.8)
    project(cmake_example)

    # Show message on Linux platform
    if (${CMAKE_SYSTEM_NAME} MATCHES Linux)
        message("Good choice, bro!")
    endif()

    # Tell CMake to run moc when necessary:
    set(CMAKE_AUTOMOC ON)
    # As moc files are generated in the binary dir,
    # tell CMake to always look for includes there:
    set(CMAKE_INCLUDE_CURRENT_DIR ON)

    # Widgets finds its own dependencies.
    find_package(Qt5Widgets REQUIRED)

    add_executable(myproject main.cpp mainwindow.cpp)
    qt5_use_modules(myproject Widgets)
NSIS |
    /*
      NSIS Scheme
      for highlight.js
    */

    ; Includes
    !include MUI2.nsh

    ; Settings
    Name "installer_name"
    OutFile "installer_name.exe"
    RequestExecutionLevel user
    CRCCheck on
    !ifdef x64
      InstallDir "$PROGRAMFILES64\installer_name"
    !else
      InstallDir "$PROGRAMFILES\installer_name"
    !endif

    ; Pages
    !insertmacro MUI_PAGE_INSTFILES

    ; Sections
    Section "section_name" section_index
      # your code here
    SectionEnd

    ; Functions
    Function .onInit

      MessageBox MB_OK "Here comes a$\n$\rline-break!"

    FunctionEnd
Axapta |
    class ExchRateLoadBatch extends RunBaseBatch {
      ExchRateLoad rbc;
      container currencies;
      boolean actual;
      boolean overwrite;
      date beg;
      date end;

      #define.CurrentVersion(5)

      #localmacro.CurrentList
        currencies,
        actual,
        beg,
        end
      #endmacro
    }

    public boolean unpack(container packedClass) {
      container       base;
      boolean         ret;
      Integer         version    = runbase::getVersion(packedClass);

      switch (version) {
        case #CurrentVersion:
          [version, #CurrentList] = packedClass;
          return true;
        default:
          return false;
      }
      return ret;
    }
Oracle Rules Language |
    //This is a comment
    ABORT "You experienced an abort.";
    WARN "THIS IS A WARNING";
    CALL "RIDER_X";
    DONE;
    FOR EACH X IN CSV_FILE "d:\lodestar\user\d377.lse"
     LEAVE FOR;
    END FOR;
    IF ((BILL_KW = 0) AND (KW > 0)) THEN
    END IF;
    INCLUDE "R1";
    LEAVE RIDER;
    SELECT BILL_PERIOD
       WHEN "WINTER"
          BLOCK KWH
          FROM 0 TO 400 CHARGE $0.03709
          FROM 400 CHARGE $0.03000
          TOTAL $ENERGY_CHARGE_WIN;
       WHEN "SUMMER"
          $VOLTAGE_DISCOUNT_SUM = $0.00
       OTHERWISE
          $VOLTAGE_DISCOUNT_SUM = $1.00
    END SELECT;
    /* Report top five peaks */
    LABEL PK.NM "Peak Number";
    SAVE_UPDATE MV TO TABLE "METERVALUE";

    FOR EACH INX IN ARRAYUPPERBOUND(#MYARRAY[])
      #MYARRAY[INX].VALUE = 2;
      CLEAR #MYARRAY[];
    END FOR

    //Interval Data
    HNDL_1_ADD_EDI = INTDADDATTRIBUTE(HNDL_1, "EDI_TRANSACTION", EDI_ID);
    HNDL_1_ADD_VAL_MSG = INTDADDVMSG(HNDL_1,"Missing (Status Code 9) values found");
    EMPTY_HNDL = INTDCREATEHANDLE('05/03/2006 00:00:00', '05/03/2006 23:59:59', 3600, "Y", "0", " ");
1С |
    #Если Клиент Тогда
    Перем СимвольныйКодКаталога = "ля-ля-ля"; //комментарий
    Функция Сообщить(Знач ТекстСообщения, ТекстСообщения2) Экспорт //комментарий к функции
      x=ТекстСообщения+ТекстСообщения2+"
      |строка1
      |строка2
      |строка3";
    КонецФункции
    #КонецЕсли

    // Процедура ПриНачалеРаботыСистемы
    //
    Процедура ПриНачалеРаботыСистемы()
      Обработки.Помощник.ПолучитьФорму("Форма").Открыть();
      d = '21.01.2008'
    КонецПроцедуры
AVR Assembler |
    ;* Title:       Block Copy Routines
    ;* Version:     1.1

    .include "8515def.inc"

        rjmp    RESET   ;reset handle

    .def    flashsize=r16       ;size of block to be copied

    flash2ram:
        lpm         ;get constant
        st  Y+,r0       ;store in SRAM and increment Y-pointer
        adiw    ZL,1        ;increment Z-pointer
        dec flashsize
        brne    flash2ram   ;if not end of table, loop more
        ret

    .def    ramtemp =r1     ;temporary storage register
    .def    ramsize =r16        ;size of block to be copied
VHDL |
    /*
     * RS-trigger with assynch. reset
     */

    library ieee;
    use ieee.std_logic_1164.all;

    entity RS_trigger is
        generic (T: Time := 0ns);
        port ( R, S  : in  std_logic;
               Q, nQ : out std_logic;
               reset, clock : in  std_logic );
    end RS_trigger;

    architecture behaviour of RS_trigger is
        signal QT: std_logic; -- Q(t)
    begin
        process(clock, reset) is
            subtype RS is std_logic_vector (1 downto 0);
        begin
            if reset = '0' then
                QT <= '0';
            else
                if rising_edge(C) then
                    if not (R'stable(T) and S'stable(T)) then
                        QT <= 'X';
                    else
                        case RS'(R&S) is
                            when "01" => QT <= '1';
                            when "10" => QT <= '0';
                            when "11" => QT <= 'X';
                            when others => null;
                        end case;
                    end if;
                end if;
            end if;
        end process;

        Q  <= QT;
        nQ <= not QT;
    end architecture behaviour;
Parser 3 |
    @CLASS
    base

    @USE
    module.p

    @BASE
    class

    # Comment for code
    @create[aParam1;aParam2][local1;local2]
      ^connect[mysql://host/database?ClientCharset=windows-1251]
      ^for[i](1;10){
        <p class="paragraph">^eval($i+10)</p>
        ^connect[mysql://host/database]{
          $tab[^table::sql{select * from `table` where a='1'}]
          $var_Name[some${value}]
        }
      }

      ^rem{
        Multiline comment with code: $var
        ^while(true){
          ^for[i](1;10){
            ^sleep[]
          }
        }
      }
      ^taint[^#0A]

    @GET_base[]
    ## Comment for code
      # Isn't comment
      $result[$.hash_item1[one] $.hash_item2[two]]
LiveCode Server |
    <?rev

    global gControllerHandlers, gData
    local sTest
    put "blog,index" into gControllerHandlers

    command blog
      -- simple comment
      put "Hello World!" into sTest
      # ANOTHER COMMENT
      put "form,url,asset" into tHelpers
      rigLoadHelper tHelpers
    end blog

    /*Hello
    block comment!*/

    function myFunction
      if the secs > 2000000000 then
        put "Welcome to the future!"
      else
        return "something"
      end if
    end myFunction

    --| END OF blog.lc
    --| Location: ./system/application/controllers/blog.lc
    ----------------------------------------------------------------------
TeX |
    \documentclass{article}
    \usepackage[koi8-r]{inputenc}
    \hoffset=0pt
    \voffset=.3em
    \tolerance=400
    \newcommand{\eTiX}{\TeX}
    \begin{document}
    \section*{Highlight.js}
    \begin{table}[c|c]
    $\frac 12\, + \, \frac 1{x^3}\text{Hello \! world}$ & \textbf{Goodbye\~ world} \\\eTiX $ \pi=400 $
    \end{table}
    Ch\'erie, \c{c}a ne me pla\^\i t pas! % comment \b
    G\"otterd\"ammerung~45\%=34.
    $$
        \int\limits_{0}^{\pi}\frac{4}{x-7}=3
    $$
    \end{document}
BrainFuck |
    ++++++++++
    [ 3*10 and 10*10
      ->+++>++++++++++<<
    ]>>
    [ filling cells
      ->++>>++>++>+>++>>++>++>++>++>++>++>++>++>++>++>++[</]<[<]<[<]>>
    ]<
    +++++++++<<
    [ rough codes correction loop
      ->>>+>+>+>+++>+>+>+>+>+>+>+>+>+>+>+>+>+>+[<]<
    ]
    more accurate сodes correction
    >>>++>
    -->+++++++>------>++++++>++>+++++++++>++++++++++>++++++++>--->++++++++++>------>++++++>
    ++>+++++++++++>++++++++++++>------>+++
    rewind and output
    [<]>[.>]
Haskell |
    {-# LANGUAGE TypeSynonymInstances #-}
    module Network.UDP
    ( DataPacket(..)
    , openBoundUDPPort
    , openListeningUDPPort
    , pingUDPPort
    , sendUDPPacketTo
    , recvUDPPacket
    , recvUDPPacketFrom
    ) where

    {- this is a {- nested -} comment -}

    import qualified Data.ByteString as Strict (ByteString, concat, singleton)
    import qualified Data.ByteString.Lazy as Lazy (ByteString, toChunks, fromChunks)
    import Data.ByteString.Char8 (pack, unpack)
    import Network.Socket hiding (sendTo, recv, recvFrom)
    import Network.Socket.ByteString (sendTo, recv, recvFrom)

    infix 3 `foo`
    infixl 6 `bar`
    infixr 9 `baz`

    -- Type class for converting StringLike types to and from strict ByteStrings
    class DataPacket a where
      toStrictBS :: a -> Strict.ByteString
      fromStrictBS :: Strict.ByteString -> a

    instance DataPacket Strict.ByteString where
      toStrictBS = id
      {-# INLINE toStrictBS #-}
      fromStrictBS = id
      {-# INLINE fromStrictBS #-}

    openBoundUDPPort :: String -> Int -> IO Socket
    openBoundUDPPort uri port = do
      s <- getUDPSocket
      bindAddr <- inet_addr uri
      let a = SockAddrInet (toEnum port) bindAddr
      bindSocket s a
      return s

    pingUDPPort :: Socket -> SockAddr -> IO ()
    pingUDPPort s a = sendTo s (Strict.singleton 0) a >> return ()
Erlang |
    -module(ssh_cli).

    -behaviour(ssh_channel).

    -include("ssh.hrl").
    %% backwards compatibility
    -export([listen/1, listen/2, listen/3, listen/4, stop/1]).

    if L =/= [] ->      % If L is not empty
        sum(L) / count(L);
    true ->
        error
    end.

    %% state
    -record(state, {
        cm,
        channel
       }).

    -spec foo(integer()) -> integer().
    foo(X) -> 1 + X.

    test(Foo)->Foo.

    init([Shell, Exec]) ->
        {ok, #state{shell = Shell, exec = Exec}};
    init([Shell]) ->
        false = not true,
        io:format("Hello, \"~p!~n", [atom_to_list('World')]),
        {ok, #state{shell = Shell}}.

    concat([Single]) -> Single;
    concat(RList) ->
        EpsilonFree = lists:filter(
            fun (Element) ->
                case Element of
                    epsilon -> false;
                    _ -> true
                end
            end,
            RList),
        case EpsilonFree of
            [Single] -> Single;
            Other -> {concat, Other}
        end.

    union_dot_union({union, _}=U1, {union, _}=U2) ->
        union(lists:flatten(
            lists:map(
                fun (X1) ->
                    lists:map(
                        fun (X2) ->
                            concat([X1, X2])
                        end,
                        union_to_list(U2)
                    )
                end,
                union_to_list(U1)
            ))).
Erlang REPL |
    1> Str = "abcd".
    "abcd"
    2> L = test:length(Str).
    4
    3> Descriptor = {L, list_to_atom(Str)}.
    {4,abcd}
    4> L.
    4
    5> b().
    Descriptor = {4,abcd}
    L = 4
    Str = "abcd"
    ok
    6> f(L).
    ok
    7> b().
    Descriptor = {4,abcd}
    Str = "abcd"
    ok
    8> {L, _} = Descriptor.
    {4,abcd}
    9> L.
    4
    10> 2#101.
    5
    11> 1.85e+3.
    1850
Elixir |
    defrecord Person, first_name: nil, last_name: "Dudington" do
      def name record do # huh ?
        "#{record.first_name} #{record.last_name}"
      end
    end

    defrecord User, name: "José", age: 25

    guy = Person.new first_name: "Guy"
    guy.name

    defmodule ListServer do
      @moduledoc """
      This module provides an easy to use ListServer, useful for keeping
      lists of things.
      """
      use GenServer.Behaviour
      alias Foo.Bar

      ### Public API
      @doc """
      Starts and links a new ListServer, returning {:ok, pid}

      ## Example

        iex> {:ok, pid} = ListServer.start_link

      """
      def start_link do
        :gen_server.start_link({:local, :list}, __MODULE__, [], [])
      end

      ### GenServer API
      def init(list) do
        {:ok, list}
      end

      # Clear the list
      def handle_cast :clear, list do
        {:noreply, []}
      end
    end

    {:ok, pid} = ListServer.start_link
    pid <- {:foo, "bar"}

    greeter = fn(x) -> IO.puts "hey #{x}" end
    greeter.("Bob")
Rust |
    use std;

    123;                               // type int
    123u;                              // type uint
    123_u;                             // type uint
    0xff00;                            // type int
    0xff_u8;                           // type u8
    0b1111_1111_1001_0000_i32;         // type i32
    123.0;                             // type float
    0.1;                               // type float
    3f;                                // type float
    0.1f32;                            // type f32
    12E+99_f64;                        // type f64

    'a';
    '\n';
    '\x1A';
    '\u12AS';
    '\U1234ASDF';

    r"hello";
    r###"world"###;
    r##" "### "# "##;

    /* Factorial */
    fn fac(n: int) -> int {
        let s: str = "This is
    a multi-line string.

    It ends with an unescaped '\"'.";
        let c: char = 'Ф';
        let r: str = r##" raw string "##;

        let result = 1, i = 1;
        while i <= n { // No parens around the condition
            result *= i;
            i += 1;
        }
        assert!(i == n);
        ret result;
    }

    pure fn pure_length<T>(ls: list<T>) -> uint { /* ... */ }

    type t = map::hashtbl<int,str>;
    let x = id::<int>(10);

    // Define some modules.
    #[path = "foo.rs"]
    mod foo;

    impl <T> Seq<T> for [T] {
        fn len() -> uint { vec::len(self) }
        fn iter(b: fn(T)) {
            for elt in self { b(elt); }
        }
    }

    enum list<T> {
        Nil;
        Cons(T, @list<T>);
    }

    let a: list<int> = Cons(7, @cons(13, @nil));

    struct Baz<'a> {
        baz: &'a str,
    }

    'h: for i in range(0,10) {
        'g: loop {
            if i % 2 == 0 { continue 'h; }
            if i == 9 { break 'h; }
            break 'g;
        }
    }
Matlab |
    n = 20; % number of points
    points = [random('unid', 100, n, 1), random('unid', 100, n, 1)];
    len = zeros(1, n - 1);
    points = sortrows(points);
    %% Initial set of points
    plot(points(:,1),points(:,2));
    for i = 1: n-1
        len(i) = points(i + 1, 1) - points(i, 1);
    end
    while(max(len) > 2 * min(len))
        [d, i] = max(len);
        k = on_margin(points, i, d, -1);
        m = on_margin(points, i + 1, d, 1);
        xm = 0; ym = 0;
    %% New point
        if(i == 1 || i + 1 == n)
            xm = mean(points([i,i+1],1))
            ym = mean(points([i,i+1],2))
        else
            [xm, ym] = dlg1(points([k, i, i + 1, m], 1), ...
                points([k, i, i + 1, m], 2))
        end

        points = [ points(1:i, :); [xm, ym]; points(i + 1:end, :)];
    end

    function [net] = get_fit_network(inputs, targets)
        % Create Network
        numHiddenNeurons = 20;  % Adjust as desired
        net = newfit(inputs,targets,numHiddenNeurons);
        net.trainParam.goal = 0.01;
        net.trainParam.epochs = 1000;
        % Train and Apply Network
        [net,tr] = train(net,inputs,targets);
    end

    foo_matrix = [1, 2, 3; 4, 5, 6]''';
    foo_cell = {1, 2, 3; 4, 5, 6}''.'.';
Scilab |
    // A comment
    function I = foo(dims, varargin)
      d=[1; matrix(dims(1:$-1),-1,1)]
      for i=1:size(varargin)
        if varargin(i)==[] then
           I=[],
           return;
        end
      end
    endfunction

    b = cos(a) + cosh(a);
    bar_matrix = [ "Hello", "world" ];
    foo_matrix = [1, 2, 3; 4, 5, 6];
R |
    library(ggplot2)

    centre <- function(x, type, ...) {
      switch(type,
             mean = mean(x),
             median = median(x),
             trimmed = mean(x, trim = .1))
    }

    myVar1
    myVar.2
    data$x
    foo "bar" baz
    # test "test"
    "test # test"

    (123) (1) (10) (0.1) (.2) (1e-7)
    (1.2e+7) (2e) (3e+10) (0x0) (0xa)
    (0xabcdef1234567890) (123L) (1L)
    (0x10L) (10000000L) (1e6L) (1.1L)
    (1e-3L) (4123.381E-10i)
    (3.) (3.E10) # BUG: .E10 should be part of number

    # Numbers in some different contexts
    1L
    0x40
    .234
    3.
    1L + 30
    plot(cars, xlim=20)
    plot(cars, xlim=0x20)
    foo<-30
    my.data.3 <- read() # not a number
    c(1,2,3)
    1%%2

    "this is a quote that spans
    multiple lines
    \"

    is this still a quote? it should be.
    # even still!

    " # now we're done.

    'same for
    single quotes #'

    # keywords
    NULL, NA, TRUE, FALSE, Inf, NaN, NA_integer_,
    NA_real_, NA_character_, NA_complex_, function,
    while, repeat, for, if, in, else, next, break,
    ..., ..1, ..2

    # not keywords
    the quick brown fox jumped over the lazy dogs
    null na true false inf nan na_integer_ na_real_
    na_character_ na_complex_ Function While Repeat
    For If In Else Next Break .. .... "NULL" `NULL` 'NULL'

    # operators
    +, -, *, /, %%, ^, >, >=, <, <=, ==, !=, !, &, |, ~,
    ->, <-, <<-, $, :, ::

    # infix operator
    foo %union% bar
    %"test"%
    `"test"`
Mizar |
    ::: ## Lambda calculus

    environ

      vocabularies LAMBDA,
          NUMBERS,
          NAT_1, XBOOLE_0, SUBSET_1, FINSEQ_1, XXREAL_0, CARD_1,
          ARYTM_1, ARYTM_3, TARSKI, RELAT_1, ORDINAL4, FUNCOP_1;

      :: etc...

    begin

    reserve D for DecoratedTree,
            p,q,r for FinSequence of NAT,
            x for set;

    definition
      let D;

      attr D is LambdaTerm-like means
        (dom D qua Tree) is finite &
    ::>                          *143,306
        for r st r in dom D holds
          r is FinSequence of {0,1} &
          r^<*0*> in dom D implies D.r = 0;
    end;

    registration
      cluster LambdaTerm-like for DecoratedTree of NAT;
      existence;
    ::>       *4
    end;

    definition
      mode LambdaTerm is LambdaTerm-like DecoratedTree of NAT;
    end;

    ::: Then we extend this ordinary one-step beta reduction, that is,
    :::  any subterm is also allowed to reduce.
    definition
      let M,N;

      pred M beta N means
        ex p st
          M|p beta_shallow N|p &
          for q st not p is_a_prefix_of q holds
            [r,x] in M iff [r,x] in N;
    end;

    theorem Th4:
      ProperPrefixes (v^<*x*>) = ProperPrefixes v \/ {v}
    proof
      thus ProperPrefixes (v^<*x*>) c= ProperPrefixes v \/ {v}
      proof
        let y;
        assume y in ProperPrefixes (v^<*x*>);
        then consider v1 such that
    A1: y = v1 and
    A2: v1 is_a_proper_prefix_of v^<*x*> by TREES_1:def 2;
     v1 is_a_prefix_of v & v1 <> v or v1 = v by A2,TREES_1:9;
    then
     v1 is_a_proper_prefix_of v or v1 in {v} by TARSKI:def 1,XBOOLE_0:def 8;
    then  y in ProperPrefixes v or y in {v} by A1,TREES_1:def 2;
        hence thesis by XBOOLE_0:def 3;
      end;
      let y;
      assume y in ProperPrefixes v \/ {v};
    then A3: y in ProperPrefixes v or y in {v} by XBOOLE_0:def 3;
    A4: now
        assume y in ProperPrefixes v;
        then consider v1 such that
    A5: y = v1 and
    A6: v1 is_a_proper_prefix_of v by TREES_1:def 2;
     v is_a_prefix_of v^<*x*> by TREES_1:1;
    then  v1 is_a_proper_prefix_of v^<*x*> by A6,XBOOLE_1:58;
        hence thesis by A5,TREES_1:def 2;
      end;
     v^{} = v by FINSEQ_1:34;
      then
     v is_a_prefix_of v^<*x*> & v <> v^<*x*> by FINSEQ_1:33,TREES_1:1;
    then  v is_a_proper_prefix_of v^<*x*> by XBOOLE_0:def 8;
    then  y in ProperPrefixes v or y = v & v in ProperPrefixes (v^<*x*>)
      by A3,TARSKI:def 1,TREES_1:def 2;
      hence thesis by A4;
    end;
Mathematica |
    (* ::Package:: *)

    (* Mathematica Package *)

    BeginPackage["SomePkg`"]

    Begin["`Private`"]

    SomeFn[ns_List] := Fold[Function[{x, y}, x + y], 0, Map[# * 2 &, ns]];
    Print[$ActivationKey];

    End[] (* End Private Context *)

    EndPackage[]
AutoHotkey |
    ; hotkeys and hotstrings
    #a::WinSet, AlwaysOnTop, Toggle, A
    #Space::
      MsgBox, Percent sign (`%) need to be escaped.
      Run "C:\Program Files\some\program.exe"
      Gosub, label1
    return
    ::btw::by the way
    ; volume
    #Numpad8::Send {Volume_Up}
    #Numpad5::Send {Volume_Mute}
    #Numpad2::Send {Volume_Down}

    label1:
      if (Clipboard = "")
      {
        MsgBox, , Clipboard, Empty!
      }
      else
      {
        StringReplace, temp, Clipboard, old, new, All
        MsgBox, , Clipboard, %temp%
      }
    return
FIX |
    8=FIX.4.2␁9=0␁35=8␁49=SENDERTEST␁56=TARGETTEST␁34=00000001526␁52=20120429-13:30:08.137␁1=ABC12345␁11=2012abc1234␁14=100␁17=201254321␁20=0␁30=NYSE␁31=108.20␁32=100␁38=100␁39=2␁40=1␁47=A␁54=5␁55=BRK␁59=2␁60=20120429-13:30:08.000␁65=B␁76=BROKER␁84=0␁100=NYSE␁111=100␁150=2␁151=0␁167=CS␁377=N␁10000=SampleCustomTag␁10=123␁

    8=FIX.4.29=035=849=SENDERTEST56=TARGETTEST34=0000000152652=20120429-13:30:08.1371=ABC1234511=2012abc123414=10017=20125432120=030=NYSE31=108.2032=10038=10039=240=147=A54=555=BRK59=260=20120429-13:30:08.00065=B76=BROKER84=0100=NYSE111=100150=2151=0167=CS377=N10000=SampleCustomTag10=123
x86asm |
    section .text
    extern  _MessageBoxA@16
    %if     __NASM_VERSION_ID__ >= 0x02030000
    safeseh handler         ; register handler as "safe handler"
    %endif

    handler:
            push    dword 1 ; MB_OKCANCEL
            push    dword caption
            push    dword text
            push    dword 0
            call    _MessageBoxA@16
            sub     eax,1   ; incidentally suits as return value
                            ; for exception handler
            ret

    global  _main
    _main:  push    dword handler
            push    dword [fs:0]
            mov     dword [fs:0], esp
            xor     eax,eax
            mov     eax, dword[eax]   ; cause exception
            pop     dword [fs:0]      ; disengage exception handler
            add     esp, 4
            ret

    avx2:   vzeroupper
            push      rbx
            mov       rbx,   rsp
            sub       rsp,   0h20
            vmovdqa   ymm0,  [rcx]
            vpaddb    ymm0,  [rdx]
            leave
            ret

    text:   db      'OK to rethrow, CANCEL to generate core dump',0
    caption:db      'SEGV',0

    section .drectve info
            db      '/defaultlib:user32.lib /defaultlib:msvcrt.lib '
Q/KDB+ |
    select time, price by date,stock from quote where price=(max;price)fby stock
    data:raze value flip trade
    select vwap:size wavg price by 5 xbar time.minute from aapl where date within (.z.d-10;.z.d)
    f1:{[x;y;z] show (x;y+z);sum 1 2 3}
    .z.pc:{[handle] show -3!(`long$.z.p;"Closed";handle)}
    // random normal distribution, e.g. nor 10
    nor:{$[x=2*n:x div 2;raze sqrt[-2*log n?1f]*/:(sin;cos)@\:(2*pi)*n?1f;-1_.z.s 1+x]}

    mode:{where g=max g:count each group x}		// mode function
Monkey |
    #IMAGE_FILES="*.png|*.jpg"
    #SOUND_FILES="*.wav|*.ogg"
    #MUSIC_FILES="*.wav|*.ogg"
    #BINARY_FILES="*.bin|*.dat"

    Import mojo

    ' The main class which expends Mojo's 'App' class:
    Class GameApp Extends App
        Field player:Player

        Method OnCreate:Int()
            Local img:Image = LoadImage("player.png")
            Self.player = New Player()
            SetUpdateRate(60)

            Return 0
        End

        Method OnUpdate:Int()
            player.x += HALFPI

            If (player.x > 100) Then
                player.x = 0
            Endif

            Return 0
        End

        Method OnRender:Int()
            Cls(32, 64, 128)
            player.Draw()

            player = Null
            Return 0
        End
    End
Gherkin |
    # language: en
    Feature: Addition
      In order to avoid silly mistakes
      As a math idiot
      I want to be told the sum of two numbers

      @this_is_a_tag
      Scenario Outline: Add two numbers
        * I have a calculator
        Given I have entered <input_1> into the calculator
        And I have entered <input_2> into the calculator
        When I press <button>
        Then the result should be <output> on the screen
        And I have a string like
        """
        Here is
        some
        multiline text
        """

      Examples:
        | input_1 | input_2 | button | output |
        | 20      | 30      | add    | 50     |
        | 2       | 5       | add    | 7      |
        | 0       | 40      | add    | 40     |
Nimrod |
    import module1, module2, module3
    from module4 import nil

    type
      TFoo = object ## Doc comment
        a: int32
      PFoo = ref TFoo

    proc do_stuff314(param_1: TFoo, par2am: var PFoo): PFoo {.exportc: "dostuff" .} =
      # Regular comment
      discard """
      dfag
    sdfg""
    """
      result = nil

    method abc(a: TFoo) = discard 1u32 + 0xabcdefABCDEFi32 + 0o01234567i8 + 0b010

    discard rawstring"asdf""adfa"
    var normalstring = "asdf"
    let a: uint32 = 0xFFaF'u32
Swift |
    extension MyClass : Interface {
        class func unarchiveFromFile<A>(file : A, (Int,Int) -> B) -> SKNode? {
            let path: String = bundle.pathForResource(file, ofType: "file\(name + 5).txt")
            let funnyNumber = 3 + 0xC2.15p2 * (1_000_000.000_000_1 - 000123.456) + 0o21
            var sceneData = NSData.dataWithContentsOfFile(path, options: .DataReadingMappedIfSafe, error: nil)
            /* a comment /* with a nested comment */ and the end */
        }
        @objc override func shouldAutorotate() {
            return true
        }
    }
Gradle |
    apply plugin: 'android'

    android {
        compileSdkVersion 19
        buildToolsVersion "19.1"

        defaultConfig {
            minSdkVersion 15
            targetSdkVersion 19
            versionCode 5
            versionName "0.4.4"
        }

        compileOptions {
            sourceCompatibility JavaVersion.VERSION_1_7
            targetCompatibility JavaVersion.VERSION_1_7
        }
        signingConfigs {
            release
        }
        buildTypes {
            release {
                // runProguard true
                proguardFiles getDefaultProguardFile('proguard-android.txt'), 'proguard-rules.txt'
                signingConfig signingConfigs.release
            }
        }
    }

    dependencies {
        compile fileTree(dir: 'libs', include: ['*.jar'])

        compile 'com.example:example-lib:1.0.0'
    }

    def propFile = file('../signing.properties')
    if( propFile.canRead() ) {
        def Properties p = new Properties()
        p.load(new FileInputStream(propFile))

        if( p!=null
        &&  p.containsKey("STORE_FILE")
        &&  p.containsKey('STORE_PASSWORD')
        &&  p.containsKey('KEY_ALIAS')
        &&  p.containsKey('KEY_PASSWORD')
        ) {
            println "RELEASE_BUILD: Signing..."

            android.signingConfigs.release.storeFile = file( p['STORE_FILE'] )
            android.signingConfigs.release.storePassword = p['STORE_PASSWORD']
            android.signingConfigs.release.keyAlias = p['KEY_ALIAS']
            android.signingConfigs.release.keyPassword = p['KEY_PASSWORD']
        } else {
            println "RELEASE_BUILD: Required properties in signing.properties are missing"
            android.buildTypes.release.signingConfig = null
        }
    } else {
        println "RELEASE_BUILD: signing.properties not found"
        android.buildTypes.release.signingProperties = null
    }
G-code |
    O003 (DIAMOND SQUARE)
    N2 G54 G90 G49 G80
    N3 M6 T1 (1.ENDMILL)
    N4 M3 S1800
    N5 G0 X-.6 Y2.050
    N6 G43  H1  Z.1
    N7 G1 Z-.3 F50.
    N8 G41 D1 Y1.45
    N9 G1 X0 F20.
    N10 G2 J-1.45
    (CUTTER COMP CANCEL)
    N11 G1 Z-.2 F50.
    N12 Y-.990
    N13 G40
    N14 G0 X-.6 Y1.590
    N15 G0 Z.1
    N16 M5 G49 G28 G91 Z0
    N17 CALL O9456
    N18 #500=0.004
    N19 #503=[#500+#501]
    N20 VC45=0.0006
    VS4=0.0007
    N21 G90 G10 L20 P3 X5.Y4. Z6.567
    N22 G0 X5000
    N23 IF [#1 LT 0.370] GOTO 49
    N24 X-0.678 Y+.990
    N25 G84.3 X-0.1
    N26 #4=#5*COS[45]
    N27 #4=#5*SIN[45]
    N28 VZOFZ=652.9658
    %

## Special tests

Explicit Python highlighting |
    for x in [1, 2, 3]:
      count(x)
Language set on <pre> |
    for x in [1, 2, 3]:
      count(x)
HTML5-style language class (language-python) |
    for x in [1, 2, 3]:
      count(x)
Replacing TAB with 4 spaces |
    for x in [1, 2, 3]:
    	count(x)
Custom markup |
    <div id="contents">
      <p>Hello, World!Goodbye, cruel world!
    </div>
Custom markup + TAB replacement |
    for x in [1, 2, 3]:
    	count(x)
    	if x == 3:
    		count(x + 1)
Language alias |
    var x = '<p>this should <b>not</b> be highlighted as <em>HTML</em>';
Shortened language prefix (lang) |
    def add_one(x):
        return x + 1
Disabled highlighting |
    <div id="contents">
      <p>Hello, World!c
    </div>
Non-code <pre> |
    Computer output

## Highlighted code export

Write a code snippet | Get HTML to paste anywhere (for actual styles and colors see sample.css)