rouge 3.2.0 → 3.18.0

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;

data/lib/rouge/demos/terraform

@@ -1,10 +1,3 @@
-# From: https://github.com/terraform-providers/terraform-provider-aws/blob/master/examples/count/main.tf
-
-# Specify the provider and access details
-provider "aws" {
-  region = "${var.aws_region}"
-}
-
 resource "aws_elb" "web" {
   name = "terraform-example-elb"
 
@@ -21,11 +14,3 @@ resource "aws_elb" "web" {
   # The instances are registered automatically
   instances = ["${aws_instance.web.*.id}"]
 }
-
-resource "aws_instance" "web" {
-  instance_type = "m1.small"
-  ami           = "${lookup(var.aws_amis, var.aws_region)}"
-
-  # This will create 4 instances
-  count = 4
-}

data/lib/rouge/demos/ttcn3

@@ -0,0 +1,6 @@
+module DNSTester {
+  type integer Identification( 0..65535 ); // 16-bit integer
+  type enumerated MessageKind {e_Question, e_Answer};
+  type charstring Question;
+  type charstring Answer;
+}

data/lib/rouge/demos/vcl

@@ -0,0 +1,12 @@
+vcl 4.0;
+
+backend server1 {
+      .host = "server1.example.com";
+      .probe = {
+              .url = "/";
+              .timeout = 1s;
+              .interval = 5s;
+              .window = 5;
+              .threshold = 3;
+      }
+}

data/lib/rouge/demos/xojo

@@ -0,0 +1,14 @@
+Dim f As FolderItem
+f = GetOpenFolderItem(FileTypes1.jpeg) // defined in the File Type Set editor
+rem - we should check for nil!
+If not f.Exists Then
+  Beep 'Just for fun
+  MsgBox("The file " + f.NativePath + "doesn't ""exist.""")
+Else // document exists
+  ImageWell1.image=Picture.Open(f)
+End If
+if f isa folderitem then
+  msgbox(f.name)
+end if
+Exception err As NilObjectException
+  MsgBox("Invalid pathname!")