rouge 3.0.0 → 3.18.0

data/lib/rouge/demos/mathematica

@@ -0,0 +1,8 @@
+(* Fibonacci numbers with memoization *)
+
+fib::usage = "f[n] calculates the n'th Fibonacci number.";
+fib[0] = fib[1] = 1;
+fib[n_Integer?Positive]:= fib[n] = fib[n-1] + fib[n-2];
+
+In[4]:= fib[42]
+Out[4]= 433494437

data/lib/rouge/demos/minizinc

@@ -0,0 +1,23 @@
+% from MiniZinc Handbook:
+% https://www.minizinc.org/doc-latest/en/modelling.html
+
+% Colouring Australia using nc colours
+int: nc = 3;
+
+var 1..nc: wa;   var 1..nc: nt;  var 1..nc: sa;   var 1..nc: q;
+var 1..nc: nsw;  var 1..nc: v;   var 1..nc: t;
+
+constraint wa != nt;
+constraint wa != sa;
+constraint nt != sa;
+constraint nt != q;
+constraint sa != q;
+constraint sa != nsw;
+constraint sa != v;
+constraint q != nsw;
+constraint nsw != v;
+solve satisfy;
+
+output ["wa=\(wa)\t nt=\(nt)\t sa=\(sa)\n",
+        "q=\(q)\t nsw=\(nsw)\t v=\(v)\n",
+         "t=", show(t),  "\n"];

data/lib/rouge/demos/msgtrans

@@ -0,0 +1,4 @@
+# Example MessageTrans file
+Token
+Token0x??:Replacement localised %0 text
+Color/Colour:Colour

data/lib/rouge/demos/nasm

@@ -10,12 +10,12 @@
 extern irq_handler
 
 irq_common_stub:
-    pusha           ; Pushes edi,esi,ebp,esp,ebx,edx,ecx,eax
-    mov ax, ds      ; Lower 16-bits of eax = ds.
-    push eax        ; save the data segment descriptor
-    mov ax, 0x10    ; load the kernel data segment descriptor
-    mov edx, eax
-    call irq_handler
+    pusha             ; push all general-purpose registers
+    mov   ax, ds      ; lower 16-bits of eax = ds
+    push  eax         ; save the data segment descriptor
+    mov   ax, 0x10    ; load the kernel data segment descriptor
+    mov   edx, eax
+    call  irq_handler
 
 %assign i 0
 %rep 8

data/lib/rouge/demos/nesasm

@@ -0,0 +1,11 @@
+  .bank 0
+  .org $C000
+Reset:	
+        jsr WaitSync	; wait for VSYNC
+        jsr ClearRAM	; clear RAM
+        jsr WaitSync	; wait for VSYNC (and PPU warmup)
+
+	lda #$3f	; $3F -> A register
+        ldy #$00	; $00 -> Y register
+        sta PPU_ADDR	; write #HIGH byte first
+        sty PPU_ADDR    ; $3F00 -> PPU address

data/lib/rouge/demos/objective_cpp

@@ -0,0 +1,17 @@
+@import Foundation;
+#import <array>
+#include <vector>
+
+@interface IntegerArray : NSObject {
+    std::vector<NSUInteger> _numbers;
+}
+@property(readonly) NSUInteger count;
+
+- (instancetype)initWithNumbers:(NSUInteger *)numbers count:(NSUInteger)count;
+- (NSUInteger)numberAtIndex:(NSUInteger)index;
+@end
+
+int main(int argc, char **argv) {
+    auto numbers = std::array<NSUInteger, 3>{1, 2, 3};
+    NSLog(@"%@", [[IntegerArray alloc] initWithNumbers:numbers.data() count:numbers.size()]);
+}

data/lib/rouge/demos/openedge

@@ -0,0 +1,4 @@
+FORM
+    "Hello World!" VIEW-AS TEXT AT COL 20 ROW 2
+    btnOK AT COL 20 ROW 4
+    WITH FRAME f SIZE 50 BY 5 NO-BOX THREE-D.

data/lib/rouge/demos/opentype_feature_file

@@ -0,0 +1,6 @@
+languagesystem DFLT dflt;
+
+feature liga {
+    sub f i by f_i;
+} liga;
+

data/lib/rouge/demos/plist

@@ -5,138 +5,7 @@
 	};
 	objectVersion = 46;
 	objects = {
-
-/* Begin PBXGroup section */
-		1D67B9537FE4C81097096F85 /* Frameworks */ = {
-			isa = PBXGroup;
-			children = (
-			);
-			name = Frameworks;
-			sourceTree = "<group>";
-		};
-		74946460D3EE9E1FA4792785 = {
-			isa = PBXGroup;
-			children = (
-				E3060171E73473A889949AB5 /* Products */,
-				1D67B9537FE4C81097096F85 /* Frameworks */,
-			);
-			sourceTree = "<group>";
-		};
-		E3060171E73473A889949AB5 /* Products */ = {
-			isa = PBXGroup;
-			children = (
-			);
-			name = Products;
-			sourceTree = "<group>";
-		};
-/* End PBXGroup section */
-
-/* Begin PBXProject section */
-		B3A67937542EC2041CBF1CA2 /* Project object */ = {
-			isa = PBXProject;
-			attributes = {
-				LastSwiftUpdateCheck = 0730;
-				LastUpgradeCheck = 0700;
-			};
-			buildConfigurationList = 442CE273DD7DF2DFDC620C8B /* Build configuration list for PBXProject "foo" */;
-			compatibilityVersion = "Xcode 3.2";
-			developmentRegion = English;
-			hasScannedForEncodings = 0;
-			knownRegions = (
-				en,
-			);
-			mainGroup = 74946460D3EE9E1FA4792785;
-			productRefGroup = E3060171E73473A889949AB5 /* Products */;
-			projectDirPath = "";
-			projectRoot = "";
-			targets = (
-			);
-		};
-/* End PBXProject section */
-
-/* Begin XCBuildConfiguration section */
-		09AC0D63F19B6944E1045E60 /* Release */ = {
-			isa = XCBuildConfiguration;
-			buildSettings = {
-				ALWAYS_SEARCH_USER_PATHS = NO;
-				CLANG_ANALYZER_NONNULL = YES;
-				CLANG_CXX_LANGUAGE_STANDARD = "gnu++0x";
-				CLANG_CXX_LIBRARY = "libc++";
-				CLANG_ENABLE_MODULES = YES;
-				CLANG_ENABLE_OBJC_ARC = YES;
-				CLANG_WARN_BOOL_CONVERSION = YES;
-				CLANG_WARN_CONSTANT_CONVERSION = YES;
-				CLANG_WARN_DIRECT_OBJC_ISA_USAGE = YES;
-				CLANG_WARN_EMPTY_BODY = YES;
-				CLANG_WARN_ENUM_CONVERSION = YES;
-				CLANG_WARN_INT_CONVERSION = YES;
-				CLANG_WARN_OBJC_ROOT_CLASS = YES;
-				CLANG_WARN_UNREACHABLE_CODE = YES;
-				CLANG_WARN__DUPLICATE_METHOD_MATCH = YES;
-				COPY_PHASE_STRIP = YES;
-				ENABLE_NS_ASSERTIONS = NO;
-				GCC_C_LANGUAGE_STANDARD = gnu99;
-				GCC_WARN_64_TO_32_BIT_CONVERSION = YES;
-				GCC_WARN_ABOUT_RETURN_TYPE = YES;
-				GCC_WARN_UNDECLARED_SELECTOR = YES;
-				GCC_WARN_UNINITIALIZED_AUTOS = YES;
-				GCC_WARN_UNUSED_FUNCTION = YES;
-				GCC_WARN_UNUSED_VARIABLE = YES;
-				VALIDATE_PRODUCT = YES;
-			};
-			name = Release;
-		};
-		4D494CA5F82DCCAB3194BA09 /* Debug */ = {
-			isa = XCBuildConfiguration;
-			buildSettings = {
-				ALWAYS_SEARCH_USER_PATHS = NO;
-				CLANG_ANALYZER_NONNULL = YES;
-				CLANG_CXX_LANGUAGE_STANDARD = "gnu++0x";
-				CLANG_CXX_LIBRARY = "libc++";
-				CLANG_ENABLE_MODULES = YES;
-				CLANG_ENABLE_OBJC_ARC = YES;
-				CLANG_WARN_BOOL_CONVERSION = YES;
-				CLANG_WARN_CONSTANT_CONVERSION = YES;
-				CLANG_WARN_DIRECT_OBJC_ISA_USAGE = YES;
-				CLANG_WARN_EMPTY_BODY = YES;
-				CLANG_WARN_ENUM_CONVERSION = YES;
-				CLANG_WARN_INT_CONVERSION = YES;
-				CLANG_WARN_OBJC_ROOT_CLASS = YES;
-				CLANG_WARN_UNREACHABLE_CODE = YES;
-				CLANG_WARN__DUPLICATE_METHOD_MATCH = YES;
-				COPY_PHASE_STRIP = NO;
-				ENABLE_TESTABILITY = YES;
-				GCC_C_LANGUAGE_STANDARD = gnu99;
-				GCC_DYNAMIC_NO_PIC = NO;
-				GCC_OPTIMIZATION_LEVEL = 0;
-				GCC_PREPROCESSOR_DEFINITIONS = (
-					"DEBUG=1",
-					"$(inherited)",
-				);
-				GCC_SYMBOLS_PRIVATE_EXTERN = NO;
-				GCC_WARN_64_TO_32_BIT_CONVERSION = YES;
-				GCC_WARN_ABOUT_RETURN_TYPE = YES;
-				GCC_WARN_UNDECLARED_SELECTOR = YES;
-				GCC_WARN_UNINITIALIZED_AUTOS = YES;
-				GCC_WARN_UNUSED_FUNCTION = YES;
-				GCC_WARN_UNUSED_VARIABLE = YES;
-				ONLY_ACTIVE_ARCH = YES;
-			};
-			name = Debug;
-		};
-/* End XCBuildConfiguration section */
-
-/* Begin XCConfigurationList section */
-		442CE273DD7DF2DFDC620C8B /* Build configuration list for PBXProject "foo" */ = {
-			isa = XCConfigurationList;
-			buildConfigurations = (
-				4D494CA5F82DCCAB3194BA09 /* Debug */,
-				09AC0D63F19B6944E1045E60 /* Release */,
-			);
-			defaultConfigurationIsVisible = 0;
-			defaultConfigurationName = Release;
-		};
-/* End XCConfigurationList section */
+	/* ... */
 	};
 	rootObject = B3A67937542EC2041CBF1CA2 /* Project object */;
 }

data/lib/rouge/demos/powershell

@@ -1,49 +1,13 @@
-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
-#>
+function Verb-Noun
 {
-    [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
+    <#
+    .SYNOPSIS
+    Tells you what it does
+
+    .DESCRIPTION
+    Tells you what it does with more detail.
+    #>
+    param ([string]$Name, [string]$Extension = "txt", [string]$foo="bar")
+    $name = $name + "." + $extension
+    $name
+}

data/lib/rouge/demos/q

@@ -1,2 +1,8 @@
 / comment
 x: til 10
+
+tab:([]a:1 2 3;b:`a `b `c);
+
+function:{[table]
+	select from table where b=`c
+	};

data/lib/rouge/demos/reasonml

@@ -0,0 +1,12 @@
+/* I like a teacher who gives you something to take
+   home to think about besides homework. */
+let gpa_score = 5.0;
+type schoolPerson = Teacher | Director | Student(string);
+
+let greeting = person =>
+  switch (person) {
+  | Teacher => "Hey Professor!"
+  | Director => "Hello Director."
+  | Student("Richard") => "Still here Ricky?"
+  | Student(anyOtherName) => "Hey, " ++ anyOtherName ++ "."
+  };

data/lib/rouge/demos/rego

@@ -0,0 +1,8 @@
+package httpapi.authz
+
+subordinates = {"alice": [], "charlie": [], "bob": ["alice"], "betty": ["charlie"]}
+
+# HTTP API request
+import input
+
+default allow = false

data/lib/rouge/demos/robot_framework

@@ -0,0 +1,27 @@
+*** Settings ***
+Document	  Example taken from http://robotframework.org/
+Suite Setup       Open Browser To Login Page
+Suite Teardown    Close Browser
+Test Setup        Go To Login Page
+Test Template     Login With Invalid Credentials Should Fail
+Resource          resource.txt
+
+*** Test Cases ***               User Name        Password
+Invalid Username                 invalid          ${VALID PASSWORD}
+Invalid Password                 ${VALID USER}    invalid
+Invalid Username And Password    invalid          whatever
+Empty Username                   ${EMPTY}         ${VALID PASSWORD}
+Empty Password                   ${VALID USER}    ${EMPTY}
+Empty Username And Password      ${EMPTY}         ${EMPTY}
+
+*** Keywords ***
+Login With Invalid Credentials Should Fail
+    [Arguments]    ${username}    ${password}
+    Input Username    ${username}
+    Input Password    ${password}
+    Submit Credentials
+    Login Should Have Failed
+
+Login Should Have Failed
+    Location Should Be    ${ERROR URL}
+    Title Should Be    Error Page

data/lib/rouge/demos/sas

@@ -0,0 +1,13 @@
+data sim;
+    do i = 1 to 100;
+        x1 = rand("Normal");
+        x2 = rand("Binomial", 0.5, 100);
+        output;
+    end;
+run;
+
+proc means data=sashelp.class;
+    class sex;
+    var height weight;
+    output out = mean_by_sex;
+run;

data/lib/rouge/demos/slice

@@ -0,0 +1,10 @@
+// Printer.ice
+module Demo
+{
+    interface Printer
+    {
+        // A client can invoke this operation on a server.
+        // In this example we print the string s
+        void printString(string s);
+    }
+}

data/lib/rouge/demos/solidity

@@ -0,0 +1,13 @@
+pragma solidity ~0.4.15;
+
+interface IMirror {
+    function reflect() external payable returns(bool /* ain't I pretty?.. */);
+}
+
+contract Mirror is IMirror {
+    event logMessage(address indexed sender, uint256 value, uint256 gas, bytes data);
+
+    function () { // no funny stuff
+       revert();
+    }
+}

data/lib/rouge/demos/sparql

@@ -0,0 +1,6 @@
+SELECT ?item ?itemLabel
+WHERE
+{
+  ?item wdt:P31 wd:Q146.
+  SERVICE wikibase:label { bd:serviceParam wikibase:language "[AUTO_LANGUAGE],en". }
+}

data/lib/rouge/demos/sqf

@@ -0,0 +1,14 @@
+// Creates a dot marker at the given position
+#include "script_component.hpp"
+params ["_pos", "_txt"];
+
+if (isNil QGVAR(markerID)) then {
+    GVAR(markerID) = 0;
+};
+
+_markerstr = createMarker [QGVAR(marker) + str GVAR(markerID), _pos];
+_markerstr setMarkerShape "ICON";
+_markerstr setMarkerType "hd_dot";
+_markerstr setMarkerText _txt;
+
+GVAR(markerID) = GVAR(markerID) + 1;

data/lib/rouge/demos/supercollider

@@ -0,0 +1,11 @@
+// modulate a sine frequency and a noise amplitude with another sine
+// whose frequency depends on the horizontal mouse pointer position
+~myFunction = {
+        var x = SinOsc.ar(MouseX.kr(1, 100));
+        SinOsc.ar(300 * x + 800, 0, 0.1)
+        +
+        PinkNoise.ar(0.1 * x + 0.1)
+};
+
+~myFunction.play;
+"that's all, folks!".postln;