gitlab-rouge 1.9.2

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/applescript

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

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/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/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/cpp

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

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/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/elixir

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

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/gherkin

@@ -0,0 +1,17 @@
+# language: en
+Feature: Addition
+  In order to avoid silly mistakes
+  As a math idiot
+  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/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/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/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/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/java

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

data/lib/rouge/demos/javascript

@@ -0,0 +1 @@
+$(document).ready(function() { alert('ready!'); });

data/lib/rouge/demos/json

@@ -0,0 +1 @@
+{ "one": 1, "two": 2, "null": null, "simple": true }

data/lib/rouge/demos/json-doc

@@ -0,0 +1 @@
+{ "one": 1, "two": 2, "null": null, "simple": true } // a simple json object

data/lib/rouge/demos/liquid

@@ -0,0 +1,11 @@
+<ul id="products">
+  {% for product in products %}
+    <li>
+      <h2>{{ product.title }}</h2>
+      Only {{ product.price | format_as_money }}
+
+      <p>{{ product.description | prettyprint | truncate: 200  }}</p>
+
+    </li>
+  {% endfor %}
+</ul>

data/lib/rouge/demos/literate_coffeescript

@@ -0,0 +1,3 @@
+Import the helpers we plan to use.
+
+    {extend, last} = require './helpers'

data/lib/rouge/demos/literate_haskell

@@ -0,0 +1,7 @@
+In Bird-style you have to leave a blank before the code.
+
+> fact :: Integer -> Integer
+> fact 0 = 1
+> fact n = n * fact (n-1)
+
+And you have to leave a blank line after the code as well.

data/lib/rouge/demos/llvm

@@ -0,0 +1,20 @@
+; copied from http://llvm.org/docs/LangRef.html#module-structure
+; Declare the string constant as a global constant.
+@.str = private unnamed_addr constant [13 x i8] c"hello world\0A\00"
+
+; External declaration of the puts function
+declare i32 @puts(i8* nocapture) nounwind
+
+; Definition of main function
+define i32 @main() {   ; i32()*
+  ; Convert [13 x i8]* to i8  *...
+  %cast210 = getelementptr [13 x i8]* @.str, i64 0, i64 0
+
+  ; Call puts function to write out the string to stdout.
+  call i32 @puts(i8* %cast210)
+  ret i32 0
+}
+
+; Named metadata
+!1 = metadata !{i32 42}
+!foo = !{!1, null}

data/lib/rouge/demos/lua

@@ -0,0 +1,12 @@
+-- defines a factorial function
+function fact (n)
+  if n == 0 then
+    return 1
+  else
+    return n * fact(n-1)
+  end
+end
+    
+print("enter a number:")
+a = io.read("*number")        -- read a number
+print(fact(a))

data/lib/rouge/demos/make

@@ -0,0 +1,6 @@
+.PHONY: all
+all: $(OBJ)
+
+$(OBJ): $(SOURCE)
+	@echo "compiling..."
+	$(GCC) $(CFLAGS) $< > $@

data/lib/rouge/demos/markdown

@@ -0,0 +1,4 @@
+Markdown has cool [reference links][ref 1]
+and [regular links too](http://example.com)
+
+[ref 1]: http://example.com

data/lib/rouge/demos/matlab

@@ -0,0 +1,6 @@
+A = cat( 3, [1 2 3; 9 8 7; 4 6 5], [0 3 2; 8 8 4; 5 3 5], ...
+                 [6 4 7; 6 8 5; 5 4 3]);
+% The EIG function is applied to each of the horizontal 'slices' of A.
+for i = 1:3
+    eig(squeeze(A(i,:,:)))
+end

data/lib/rouge/demos/moonscript

@@ -0,0 +1,16 @@
+util = require "my.module"
+
+a_table = {
+  foo: 'bar'
+  interpolated: "foo-#{other.stuff 2 + 3}"
+  "string": 2
+  do: 'keyword'
+}
+
+class MyClass extends SomeClass
+  new: (@init, arg2 = 'default') =>
+    @derived = @init + 2
+    super!
+
+  other: =>
+    @foo + 2

data/lib/rouge/demos/nginx

@@ -0,0 +1,5 @@
+server {
+  listen          80;
+  server_name     example.com *.example.com;
+  rewrite ^       http://www.domain.com$request_uri? permanent;
+}

data/lib/rouge/demos/nim

@@ -0,0 +1,27 @@
+import math,strutils
+
+proc fixedWidth(input: string, minFieldSize: int):string {.inline.} =
+  # Note that field size is a minimum- will expand field if input
+  # string is larger
+  if input.startsWith("-"):
+    return(input & repeatchar(count=(abs(minFieldSize-len(input))),c=' '))
+  else:
+    return(" " & input & repeatchar(count=(abs(minFieldSize-len(input))-1),c=' '))
+
+template mathOnInterval(lowbound,highbound:float,counts: int,p:proc) =
+  block:
+    var step:    float = (highbound - lowbound)/(max(counts,1))
+    var current: float = lowbound
+    while current < highbound:
+      echo($fixedWidth($current,25) & ": " & $fixedWidth($p(current),25))
+      current += step
+
+echo "Sine of theta from 0 to 2*PI by PI/12"
+mathOnInterval(0.0,2.0*PI,12,sin)
+echo("\n")
+echo "Cosine of theta from 0 to 2*PI by PI/12"
+mathOnInterval(0.0,2.0*PI,12,cos)
+
+# The first example above is much the same as:
+# for i in 1..100:
+#   echo($sin( (float(i)/100.0) * 2.0*PI ))

data/lib/rouge/demos/objective_c

@@ -0,0 +1,14 @@
+@interface Person : NSObject {
+  @public
+  NSString *name;
+  @private
+  int age;
+}
+
+@property(copy) NSString *name;
+@property(readonly) int age;
+
+-(id)initWithAge:(int)age;
+@end
+
+NSArray *arrayLiteral = @[@"abc", @1];

data/lib/rouge/demos/ocaml

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

data/lib/rouge/demos/perl

@@ -0,0 +1,5 @@
+#!/usr/bin/env perl
+use warnings;
+print "a: ";
+my $a = "foo";
+print $a;

data/lib/rouge/demos/php

@@ -0,0 +1,3 @@
+<?php
+  print("Hello {$world}");
+?>

data/lib/rouge/demos/plaintext

@@ -0,0 +1 @@
+plain text :)

data/lib/rouge/demos/powershell

@@ -0,0 +1,49 @@
+Function Get-IPv4Scopes
+<#
+	.SYNOPSIS
+		Read IPv4Scopes from an array of servers
+	.PARAMETER Servers
+		Specifies an array of servers
+	.EXAMPLE
+		Get-IPv4Scopes
+        
+		Will prompt for all inputs
+#>
+{
+    [CmdletBinding()]
+    Param(
+    # 1
+    [parameter(
+        Mandatory=$true,
+        Position=0,
+        ValueFromPipelineByPropertyName=$true,
+        HelpMessage="Server List"
+        )]
+    [string[]]$Servers,
+    #2
+    [parameter(Mandatory=$false,ValueFromPipeline=$false)]
+    [bool]$Unique=$false
+    )  #EndParam
+
+    Begin {}
+
+    Process {
+        $arrayJobs=@()
+        foreach ($server in $Servers) {
+            $arrayJobs+=Invoke-Command -ComputerName $server -scriptblock {Get-DhcpServerv4Scope}  -AsJob
+        }
+        $complete=$false
+        while (-not $complete) {
+            $arrayJobsInProgress= $arrayJobs | Where-Object { $_.State -match 'running' }
+            if (-not $arrayJobsInProgress) { $complete=$true }
+        }
+        $Scopes=$arrayJobs|Receive-Job
+        $UniqueScopes=$Scopes|Sort-Object -Property ScopeId -Unique
+    }
+
+    End {
+        if ($Unique) { return $UniqueScopes }
+        else { return $Scopes }
+    }
+
+} #end function