rouge 3.17.0

data/lib/rouge/demos/abap

@@ -0,0 +1,6 @@
+lo_obj ?= lo_obj->do_nothing( 'Char' && ` String` ).
+
+SELECT SINGLE * FROM mara INTO ls_mara WHERE matkl EQ '1324'.
+LOOP AT lt_mara ASSIGNING <mara>.
+  CHECK <mara>-mtart EQ '0001'.
+ENDLOOP.

data/lib/rouge/demos/actionscript

@@ -0,0 +1,4 @@
+function hello(name:String):void
+{
+	trace("hello " + name);
+}

data/lib/rouge/demos/ada

@@ -0,0 +1,26 @@
+with Ada.Directories;
+with Ada.Direct_IO;
+with Ada.Text_IO;
+
+procedure Extra_IO.Read_File (Name : String) is
+
+   package Dirs renames Ada.Directories;
+   package Text_IO renames Ada.Text_IO;
+
+   -- Get the size of the file for a new string.
+   Size : Natural := Natural (Dirs.Size (Name));
+   subtype File_String is String (1 .. Size);
+
+   -- Instantiate Direct_IO for our file type.
+   package FIO is new Ada.Direct_IO (File_String);
+
+   File     : FIO.File_Type;
+   Contents : File_String;
+
+begin
+   FIO.Open (File, FIO.In_File, Name);
+   FIO.Read (File, Contents);
+   FIO.Close (File);
+
+   Text_IO.Put (Contents);
+end Extra_IO.Read_File;

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

@@ -0,0 +1,9 @@
+public class with sharing Trigger {
+    @Deprecated
+    public void resolveSum(int x, int y) {
+        System.debug('x is ' + x);
+        System.debug('y is ' + y);
+
+        System.debug('x + y = ' + (x+y));
+    }
+}

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

@@ -0,0 +1,12 @@
+            GET     common.s
+
+RetVal      *       0x123 :SHL: 4
+
+            AREA    |Area$$Name|, CODE, READONLY
+
+MyFunction  ROUT             ; This is a comment
+            ASSERT  RetVal <> 0
+1           MOVW    r0, #RetVal
+            BX      lr
+
+            END

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

@@ -0,0 +1,3 @@
+@echo off
+setlocal enableextensions enabledelayedexpansion
+for /f "tokens=*" %%a in ("hello !username! hi") do echo %%~a

data/lib/rouge/demos/bbcbasic

@@ -0,0 +1,6 @@
+REM > DefaultFilename
+REM Ordinary comment
+FOR n=1 TO 10
+PRINTTAB(n)"Hello there ";FNnumber(n)DIV3+1
+NEXT:END
+DEFFNnumber(x%)=ABS(x%-4)

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

@@ -0,0 +1,7 @@
+r0 = *(u8 *)skb[23]
+*(u32 *)(r10 - 4) = r0
+r1 = *(u32 *)(r6 + 4)
+r1 = 0 ll
+call 1	/* lookup */
+if r0 == 0 goto +2 <LBB0_3>
+lock *(u64 *)(r0 + 0) += r1

data/lib/rouge/demos/brainfuck

@@ -0,0 +1,5 @@
+[
+	This is a sample
+	comment.
+]
+.[>+<-]>,

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

@@ -0,0 +1,6 @@
+delete :: !a !.(Set a) -> Set a | < a
+delete x Tip = Tip
+delete x (Bin _ y l r)
+  | x < y     = balanceR y (delete x l) r
+  | x > y     = balanceL y l (delete x r)
+  | otherwise = glue l r

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

@@ -0,0 +1,8 @@
+; Header comments
+
+#include "definitions.h"
+
+command-keyword-table:  command_handler
+                        foo(min-args:0, max-args:0,; comment
+                            international:,
+                            invalid-syntax: "syntaxtoken" help-text: "helptoken")

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

@@ -0,0 +1,8 @@
+version 1.1
+@totalColumns 5
+@separator ','
+Transaction_Date: xDate
+Transaction_ID: notEmpty
+Originator_Name: notEmpty
+Originator_Address: any("yes","no")
+Originator_Country: notEmpty

data/lib/rouge/demos/cuda

@@ -0,0 +1,11 @@
+#include <cstdio>
+
+__global__ void helloFromGPU() {
+    std::printf("Hello World\n");
+    __syncthreads();
+}
+
+int main() {
+    dim3 block(1, 10);
+    helloFromGPU<<<1, block>>>();
+}

data/lib/rouge/demos/cython

@@ -0,0 +1,6 @@
+cdef extern from 'foo.h':
+    int foo_int
+    struct foo_struct:
+        pass
+
+ctypedef int word

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);
+  }
+}