rouge-alda 3.3.0

data/lib/rouge/demos/apache

@@ -0,0 +1,21 @@
+AddDefaultCharset UTF-8
+
+RewriteEngine On
+
+# Serve gzipped version if available and accepted
+AddEncoding x-gzip .gz
+RewriteCond %{HTTP:Accept-Encoding} gzip
+RewriteCond %{REQUEST_FILENAME}.gz -f
+RewriteRule ^(.*)$ $1.gz [QSA,L]
+<FilesMatch \.css\.gz$>
+  ForceType text/css
+  Header append Vary Accept-Encoding
+</FilesMatch>
+<FilesMatch \.js\.gz$>
+  ForceType application/javascript
+  Header append Vary Accept-Encoding
+</FilesMatch>
+<FilesMatch \.html\.gz$>
+  ForceType text/html
+  Header append Vary Accept-Encoding
+</FilesMatch>

data/lib/rouge/demos/apiblueprint

@@ -0,0 +1,33 @@
+FORMAT: 1A
+HOST: http://polls.apiblueprint.org/
+
+# Polls
+
+Polls is a simple API allowing consumers to view polls and vote in them.
+
+# Polls API Root [/]
+
+## Group Question
+
+Resources related to questions in the API.
+
+## Question [/questions/{question_id}]
+
++ Parameters
+    + question_id: 1 (number, required) - ID of the Question in form of an integer
+
++ Attributes
+    + question: `Favourite programming language?` (required)
+    + published_at: `2014-11-11T08:40:51.620Z` - An ISO8601 date when the question was published
+    + choices (array[Choice], required) - An array of Choice objects
+    + url: /questions/1
+
+### View a Questions Detail [GET]
+
++ Response 200 (application/json)
+    + Attributes (Question)
+
+### Delete a Question [DELETE]
+
++ Relation: delete
++ Response 204

data/lib/rouge/demos/applescript

@@ -0,0 +1,2 @@
+-- AppleScript playing with iTunes
+tell application "iTunes" to get current selection

data/lib/rouge/demos/awk

@@ -0,0 +1,4 @@
+BEGIN     {    # Simulate echo(1)
+     for (i = 1; i < ARGC; i++) printf "%s ", ARGV[i]
+     printf "\n"
+     exit }

data/lib/rouge/demos/biml

@@ -0,0 +1,38 @@
+<#@ template language="C#" #>
+<#@ import namespace="System.Data" #>
+<Biml xmlns="http://schemas.varigence.com/biml.xsd">
+    <Connections>
+        <!-- Creates a connection to the Adventure Works database -->
+        <Connection
+            Name="AdventureWorks"
+            ConnectionString="Provider=SQLNCLI10.1;Data Source=Localhost;Persist Security Info=False;Integrated Security=SSPI;Initial Catalog=AdventureWorksDW" 
+            />
+    </Connections>
+    <!-- Packages Collection -->
+    <Packages>
+        <!-- A Package -->
+        <Package
+            Name="MyFirstPackage"
+            ConstraintMode="Linear"
+            >
+            <!-- A Package's Tasks -->
+            <Tasks>
+                <ExecuteSQL Name="ExecuteStoredProc" ConnectionName="AdventureWorks">
+                    <DirectInput>EXEC usp_StoredProc</DirectInput>
+                </ExecuteSQL>
+                <# foreach (var table in RootNode.Tables) { #>
+                    <Dataflow Name="Duplicate <#=table.Name#> Data">
+                        <Transformations>
+                            <OleDbSource Name="Retrieve Data" ConnectionName="AdventureWorks">
+                                <DirectInput>SELECT * FROM <#=table.Name#></DirectInput>
+                            </OleDbSource>
+                            <OleDbDestination Name="Insert Data" ConnectionName="AdventureWorks">
+                                <ExternalTableOutput Table="<#=table.Name#>" />
+                            </OleDbDestination>
+                        </Transformations>
+                    </Dataflow>
+                <# } #>
+            </Tasks>
+        </Package>
+    </Packages>
+</Biml>

data/lib/rouge/demos/bsl

@@ -0,0 +1,7 @@
+#Область ПрограммныйИнтерфейс
+
+Процедура ПриветМир() Экспорт
+    Сообщить("Привет мир");
+КонецПроцедуры
+
+#КонецОбласти

data/lib/rouge/demos/c

@@ -0,0 +1,8 @@
+#include "ruby/ruby.h"
+
+static int
+clone_method_i(st_data_t key, st_data_t value, st_data_t data)
+{
+    clone_method((VALUE)data, (ID)key, (const rb_method_entry_t *)value);
+    return ST_CONTINUE;
+}

data/lib/rouge/demos/ceylon

@@ -0,0 +1,7 @@
+shared class CeylonClass<Parameter>()
+    given Parameter satisfies Object {
+    
+    shared String name => "CeylonClass";
+} 
+
+shared void run() => CeylonClass();

data/lib/rouge/demos/cfscript

@@ -0,0 +1,18 @@
+component accessors="true" {
+
+  property type="string" name="firstName" default="";
+  property string username;
+
+  function init(){
+    return this;
+  }
+
+  public any function submitOrder( required product, coupon="", boolean results=true ){
+
+    var foo = function( required string baz, x=true, y=false ){
+      return "bar!";
+    };
+
+    return foo;
+  }
+}

data/lib/rouge/demos/clojure

@@ -0,0 +1,5 @@
+(defn make-adder [x]
+  (let [y x]
+    (fn [z] (+ y z))))
+(def add2 (make-adder 2))
+(add2 4)

data/lib/rouge/demos/cmake

@@ -0,0 +1,7 @@
+cmake_minimum_required(VERSION 2.8.3)
+
+project(foo C)
+
+# some note
+add_executable(foo utils.c "foo.c")
+target_link_libraries(foo ${LIBRARIES})

data/lib/rouge/demos/coffeescript

@@ -0,0 +1,5 @@
+# Objects:
+math =
+  root:   Math.sqrt
+  square: square
+  cube:   (x) -> x * square x

data/lib/rouge/demos/common_lisp

@@ -0,0 +1 @@
+(defun square (x) (* x x))

data/lib/rouge/demos/conf

@@ -0,0 +1,4 @@
+# A generic configuration file
+option1 "val1"
+option2 23
+option3 'val3'

data/lib/rouge/demos/console

@@ -0,0 +1,6 @@
+# prints "hello, world" to the screen
+~# echo Hello, World
+Hello, World
+
+# don't run this
+~# rm -rf --no-preserve-root /

data/lib/rouge/demos/coq

@@ -0,0 +1,13 @@
+Require Import Coq.Lists.List.
+
+Section with_T.
+  Context {T : Type}.
+
+  Fixpoint length (ls : list T) : nat :=
+    match ls with
+    | nil => 0
+    | _ :: ls => S (length ls)
+    end.
+End with_T.
+
+Definition a_string := "hello \" world".

data/lib/rouge/demos/cpp

@@ -0,0 +1,8 @@
+#include<iostream>
+
+using namespace std;
+
+int main()
+{
+    cout << "Hello World" << endl;
+}

data/lib/rouge/demos/crystal

@@ -0,0 +1,45 @@
+lib LibC
+  WNOHANG = 0x00000001
+
+  @[ReturnsTwice]
+  fun fork : PidT
+  fun getpgid(pid : PidT) : PidT
+  fun kill(pid : PidT, signal : Int) : Int
+  fun getpid : PidT
+  fun getppid : PidT
+  fun exit(status : Int) : NoReturn
+
+  ifdef x86_64
+    alias ClockT = UInt64
+  else
+    alias ClockT = UInt32
+  end
+
+  SC_CLK_TCK = 3
+
+  struct Tms
+    utime : ClockT
+    stime : ClockT
+    cutime : ClockT
+    cstime : ClockT
+  end
+
+  fun times(buffer : Tms*) : ClockT
+  fun sysconf(name : Int) : Long
+end
+
+class Process
+  def self.exit(status = 0)
+    LibC.exit(status)
+  end
+
+  def self.pid
+    LibC.getpid
+  end
+
+  def self.getpgid(pid : Int32)
+    ret = LibC.getpgid(pid)
+    raise Errno.new(ret) if ret < 0
+    ret
+  end
+end

data/lib/rouge/demos/csharp

@@ -0,0 +1,5 @@
+// reverse byte order (16-bit)
+public static UInt16 ReverseBytes(UInt16 value)
+{
+  return (UInt16)((value & 0xFFU) << 8 | (value & 0xFF00U) >> 8);
+}

data/lib/rouge/demos/css

@@ -0,0 +1,4 @@
+body {
+    font-size: 12pt;
+    background: #fff url(temp.png) top left no-repeat;
+}

data/lib/rouge/demos/d

@@ -0,0 +1,16 @@
+import std.algorithm, std.conv, std.functional,
+    std.math, std.regex, std.stdio;
+
+alias round = pipe!(to!real, std.math.round, to!string);
+static reFloatingPoint = ctRegex!`[0-9]+\.[0-9]+`;
+
+void main()
+{
+    // Replace anything that looks like a real
+    // number with the rounded equivalent.
+    stdin
+        .byLine
+        .map!(l => l.replaceAll!(c => c.hit.round)
+                                (reFloatingPoint))
+        .each!writeln;
+}

data/lib/rouge/demos/dart

@@ -0,0 +1,6 @@
+void main() {
+  var collection=[1,2,3,4,5];
+  for(var a in collection){
+    print(a);
+  }
+}

data/lib/rouge/demos/diff

@@ -0,0 +1,7 @@
+--- file1	2012-10-16 15:07:58.086886874 +0100
++++ file2	2012-10-16 15:08:07.642887236 +0100
+@@ -1,3 +1,3 @@
+ a b c
+-d e f
++D E F
+ g h i

data/lib/rouge/demos/digdag

@@ -0,0 +1,19 @@
+# this is digdag task definitions
+timezone: UTC
+
++setup:
+  echo>: start ${session_time}
+
++disp_current_date:
+  echo>: ${moment(session_time).utc().format('YYYY-MM-DD HH:mm:ss Z')}
+
++repeat:
+  for_each>:
+    order: [first, second, third]
+    animal: [dog, cat]
+  _do:
+    echo>: ${order} ${animal}
+  _parallel: true
+
++teardown:
+  echo>: finish ${session_time}

data/lib/rouge/demos/docker

@@ -0,0 +1,9 @@
+maintainer First O'Last
+
+run echo \
+  123 $bar
+# comment
+onbuild add . /app/src
+onbuild run echo \
+  123 $bar
+CMD /bin/bash

data/lib/rouge/demos/dot

@@ -0,0 +1,5 @@
+// The graph name and the semicolons are optional
+graph G {
+	a -- b -- c;
+	b -- d;
+}

data/lib/rouge/demos/eiffel

@@ -0,0 +1,30 @@
+note
+  description: "Represents a person."
+
+class
+  PERSON
+
+create
+  make, make_unknown
+
+feature {NONE} -- Creation
+
+  make (a_name: like name)
+      -- Create a person with `a_name' as `name'.
+    do
+      name := a_name
+    ensure
+      name = a_name
+    end
+
+  make_unknown
+    do ensure
+      name = Void
+    end
+
+feature -- Access
+
+  name: detachable STRING
+      -- Full name or Void if unknown.
+
+end

data/lib/rouge/demos/elixir

@@ -0,0 +1 @@
+Enum.map([1,2,3], fn(x) -> x * 2 end)

data/lib/rouge/demos/elm

@@ -0,0 +1,4 @@
+import Html exposing (text)
+
+main =
+  text "Hello, World!"

data/lib/rouge/demos/erb

@@ -0,0 +1 @@
+<title><%= @title %></title>

data/lib/rouge/demos/erlang

@@ -0,0 +1,7 @@
+%%% Geometry module.
+-module(geometry).
+-export([area/1]).
+
+%% Compute rectangle and circle area.
+area({rectangle, Width, Ht}) -> Width * Ht;
+area({circle, R})            -> 3.14159 * R * R.

data/lib/rouge/demos/factor

@@ -0,0 +1,5 @@
+USING: io kernel sequences ;
+
+4 iota [
+    "Happy Birthday " write 2 = "dear NAME" "to You" ? print
+] each

data/lib/rouge/demos/fortran

@@ -0,0 +1,22 @@
+program bottles
+
+    implicit none
+    integer :: nbottles
+
+    do nbottles = 99, 1, -1
+        call print_bottles(nbottles)
+    end do
+
+contains
+
+    subroutine print_bottles(n)
+        implicit none
+        integer, intent(in) :: n
+
+        write(*, "(I0, 1X, 'bottles of beer on the wall,')") n
+        write(*, "(I0, 1X, 'bottles of beer.')") n
+        write(*, "('Take one down, pass it around,')")
+        write(*, "(I0, 1X, 'bottles of beer on the wall.', /)") n - 1
+    end subroutine print_bottles
+
+end program bottles

data/lib/rouge/demos/fsharp

@@ -0,0 +1,12 @@
+(* Binary tree with leaves car­rying an integer. *)
+type Tree = Leaf of int | Node of Tree * Tree
+
+let rec existsLeaf test tree =
+  match tree with
+  | Leaf v -> test v
+  | Node (left, right) ->
+      existsLeaf test left
+      || existsLeaf test right
+
+let hasEvenLeaf tree =
+  existsLeaf (fun n -> n % 2 = 0) tree

data/lib/rouge/demos/gherkin

@@ -0,0 +1,17 @@
+# language: en
+Feature: Addition
+  In order to avoid silly mistakes
+  As someone who has trouble with mental math
+  I want to be told the sum of two numbers
+
+  Scenario Outline: Add two numbers
+    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
+
+  Examples:
+    | input_1 | input_2 | button | output |
+    | 20      | 30      | add    | 50     |
+    | 2       | 5       | add    | 7      |
+    | 0       | 40      | add    | 40     |

data/lib/rouge/demos/glsl

@@ -0,0 +1,14 @@
+#version 330 core
+
+uniform mat4 worldMatrix;
+
+layout(location = 0) in vec2 position;
+layout(location = 1) in vec4 color;
+
+out vec4 vertexColor;
+
+void main()
+{
+    vertexColor = color;
+    gl_Position = vec4(position, 0.0, 1.0);
+}

data/lib/rouge/demos/go

@@ -0,0 +1,7 @@
+package main
+
+import "fmt"
+
+func main() {
+	fmt.Println("Hello, 世界")
+}

data/lib/rouge/demos/gradle

@@ -0,0 +1,10 @@
+apply plugin: 'java'
+
+repositories {
+  jcenter()
+}
+
+dependencies {
+  compile 'org.openjdk.jmh:jmh-core:1.12'
+  compile 'org.openjdk.jmh:jmh-generator-annprocess:1.12'
+}

data/lib/rouge/demos/graphql

@@ -0,0 +1,17 @@
+query myQuery($variable: Boolean) {
+  # Queries can have comments!
+  friends(ids: ["a1", "a2"]) {
+    id
+    name
+
+    ...someFields
+
+    ... @include(if: $variable) {
+      foo
+    }
+
+    ... @skip(if: true) {
+      bar
+    }
+  }
+}

data/lib/rouge/demos/groovy

@@ -0,0 +1,9 @@
+class Greet {
+  def name
+  Greet(who) { name = who[0].toUpperCase() +
+                      who[1..-1] }
+  def salute() { println "Hello $name!" }
+}
+
+g = new Greet('world')  // create object
+g.salute()               // output "Hello World!"

data/lib/rouge/demos/hack

@@ -0,0 +1,5 @@
+<?hh // strict
+
+async function foo(): Awaitable<string> {
+  return await (() ==> 'Hello, world')();
+}

data/lib/rouge/demos/haml

@@ -0,0 +1,5 @@
+%section.container
+  %h1= post.title
+  %h2= post.subtitle
+  .content
+    = post.content

data/lib/rouge/demos/handlebars

@@ -0,0 +1,7 @@
+<div class="entry">
+  <h1>{{title}}</h1>
+  {{#with story}}
+    <div class="intro">{{{intro}}}</div>
+    <div class="body">{{{body}}}</div>
+  {{/with}}
+</div>

data/lib/rouge/demos/haskell

@@ -0,0 +1,6 @@
+quicksort :: Ord a => [a] -> [a]
+quicksort []     = []
+quicksort (p:xs) = (quicksort lesser) ++ [p] ++ (quicksort greater)
+    where
+        lesser  = filter (< p) xs
+        greater = filter (>= p) xs

data/lib/rouge/demos/hcl

@@ -0,0 +1,7 @@
+service {
+    key = "value"
+}
+
+variable "ami" {
+    description = "the AMI to use"
+}

data/lib/rouge/demos/html

@@ -0,0 +1,8 @@
+<html>
+  <head><title>Title!</title></head>
+  <body>
+    <p id="foo">Hello, World!</p>
+    <script type="text/javascript">var a = 1;</script>
+    <style type="text/css">#foo { font-weight: bold; }</style>
+  </body>
+</html>

data/lib/rouge/demos/http

@@ -0,0 +1,14 @@
+POST /demo/submit/ HTTP/1.1
+Host: rouge.jneen.net
+Cache-Control: max-age=0
+Origin: http://rouge.jayferd.us
+User-Agent: Mozilla/5.0 (Macintosh; Intel Mac OS X 10_7_2)
+    AppleWebKit/535.7 (KHTML, like Gecko) Chrome/16.0.912.63 Safari/535.7
+Content-Type: application/json
+Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
+Referer: http://pygments.org/
+Accept-Encoding: gzip,deflate,sdch
+Accept-Language: en-US,en;q=0.8
+Accept-Charset: windows-949,utf-8;q=0.7,*;q=0.3
+
+{"name":"test","lang":"text","boring":true}

data/lib/rouge/demos/hylang

@@ -0,0 +1,10 @@
+(defn simple-conversation []
+   (print "Hello!  I'd like to get to know you.  Tell me about yourself!")
+   (setv name (input "What is your name? "))
+   (let [age (input "What is your age? ")]
+     (if (and age
+              name)
+       (print (+ "Hello " name "!  I see you are "
+                 age " years old.")))))
+
+(simple-conversation)

data/lib/rouge/demos/idlang

@@ -0,0 +1,8 @@
+for i = 99L, 0, -1 do begin
+
+  print, i, format="(I0, 1X, 'bottles of beer on the wall,')"
+  print, i, format="(I0, 1X, 'bottles of beer.')"
+  print, 'Take one down, pass it around,'
+  print, i, format="(I0, 1X, 'bottles of beer on the wall.', /)"
+
+endfor

data/lib/rouge/demos/igorpro

@@ -0,0 +1,9 @@
+#pragma TextEncoding = "UTF-8"
+#pragma rtGlobals=3		// Use modern global access method and strict wave access.
+
+Function/WAVE MakeWave(name)
+	String name
+
+	Make/N=(8,8) root:$name/WAVE=wv = p^2 + q^2
+	return wv
+End

data/lib/rouge/demos/ini

@@ -0,0 +1,4 @@
+; last modified 1 April 2001 by John Doe
+[owner]
+name=John Doe
+organization=Acme Widgets Inc.

data/lib/rouge/demos/io

@@ -0,0 +1,11 @@
+bottle := method(i,
+  if(i==0, return "no more bottles of beer")
+  if(i==1, return "1 bottle of beer")
+  return i asString .. " bottles of beer"
+)
+
+for(i, 99, 1, -1,
+  write(bottle(i), " on the wall, ", bottle(i), ",\n")
+  write("take one down, pass it around,\n")
+  write(bottle(i - 1), " on the wall.\n\n")
+)

data/lib/rouge/demos/irb

@@ -0,0 +1,4 @@
+irb(main):001:0> puts "Hello, world!"
+Hello, world!
+irb(main):002:0> Object.new
+=> #<Object:0x0056182cb182b8>

data/lib/rouge/demos/irb_output

@@ -0,0 +1,2 @@
+hello world
+=> #<Object:0x0056182cb182b8 @foo=#<Object:0x0056182cb63100 @bar=3>>

data/lib/rouge/demos/java

@@ -0,0 +1,5 @@
+public class java {
+    public static void main(String[] args) {
+        System.out.println("Hello World");
+    }
+}