rouge_ecl 0.0.1

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

@@ -0,0 +1,19 @@
+# See https://nixos.org/nix/manual/#sec-expression-syntax
+{ stdenv, fetchurl, perl }: # 1
+
+stdenv.mkDerivation { # 2
+  name = "hello-2.1.1"; # 3
+  builder = ./builder.sh; # 4
+  meta = rec {
+    name = "rouge";
+    version = "${name}-2.1.1";
+    number = 55 + 12;
+    isSmaller = number < 42;
+    bool = true;
+  };
+  src = fetchurl { # 5
+    url = ftp://ftp.nluug.nl/pub/gnu/hello/hello-2.1.1.tar.gz; # path
+    md5 = "70c9ccf9fac07f762c24f2df2290784d";
+  };
+  inherit perl; # 6
+}

data/lib/rouge/demos/objective_c

@@ -0,0 +1,18 @@
+@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];
+NSDictionary *dictLiteral = @{
+  @"hello": @"world",
+  @"goodbye": @"cruel world"
+};

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

@@ -0,0 +1,14 @@
+program FizzBuzz(output);
+var
+  i: Integer;
+begin
+  for i := 1 to 100 do
+    if i mod 15 = 0 then
+      WriteLn('FizzBuzz')
+    else if i mod 3 = 0 then
+      WriteLn('Fizz')
+    else if i mod 5 = 0 then
+      WriteLn('Buzz')
+    else
+      WriteLn(i)
+end.

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

@@ -0,0 +1,142 @@
+// !$*UTF8*$!
+{
+	archiveVersion = 1;
+	classes = {
+	};
+	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/pony

@@ -0,0 +1,17 @@
+use "ponytest"
+
+actor Main is TestList
+  new create(env: Env) => PonyTest(env, this)
+  new make() => None
+
+  fun tag tests(test: PonyTest) =>
+    test(_TestAddition)
+
+class iso _TestAddition is UnitTest
+  """
+  Adding 2 numbers
+  """
+  fun name(): String => "u32/add"
+
+  fun apply(h: TestHelper): TestResult =>
+    h.expect_eq[U32](2 + 2, 4)

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

data/lib/rouge/demos/praat

@@ -0,0 +1,26 @@
+form Copy selected files...
+  word Prefix
+  word Suffix _copy
+  boolean Keep_original 1
+endform
+
+total_objects = numberOfSelected()
+for i to total_objects
+  my_object[i] = selected(i)
+endfor
+for i to total_objects
+  selectObject: my_object[i]
+  @copy()
+  new[i] = selected()
+endfor
+if total_objects
+  selectObject: new[1]
+  for i from 2 to total_objects
+    plusObject: new[i]
+  endfor
+endif
+
+procedure copy ()
+  .name$ = extractWord$(selected$(), " ")
+  Copy: prefix$ + .name$ + suffix$
+endproc

data/lib/rouge/demos/prolog

@@ -0,0 +1,9 @@
+diff(plus(A,B), X, plus(DA, DB))
+   <= diff(A, X, DA) and diff(B, X, DB).
+
+diff(times(A,B), X, plus(times(A, DB), times(DA, B)))
+   <= diff(A, X, DA) and diff(B, X, DB).
+
+equal(X, X).
+diff(X, X, 1).
+diff(Y, X, 0) <= not equal(Y, X).

data/lib/rouge/demos/prometheus

@@ -0,0 +1,9 @@
+"this is a string"
+'these are unescaped: \n \\ \t'
+`these are not unescaped: \n ' " \t`
+
+http_requests_total{environment=~"staging|testing|development", method!="GET"}
+
+http_requests_total offset 5m
+
+sum(http_requests_total{method="GET"}[10m] offset 5m)

data/lib/rouge/demos/properties

@@ -0,0 +1,7 @@
+# You are reading the ".properties" entry.
+! The exclamation mark can also mark text as comments.
+website = http\://en.wikipedia.org/
+language = English
+country : Poland
+continent=Europe
+key.with.dots=This is the value that could be looked up with the key "key.with.dots".

data/lib/rouge/demos/protobuf

@@ -0,0 +1,5 @@
+message Person {
+  required string name = 1;
+  required int32 id = 2;
+  optional string email = 3;
+}

data/lib/rouge/demos/puppet

@@ -0,0 +1,6 @@
+service { 'ntp':
+  name      => $service_name,
+  ensure    => running,
+  enable    => true,
+  subscribe => File['ntp.conf'],
+}

data/lib/rouge/demos/python

@@ -0,0 +1,6 @@
+def fib(n):    # write Fibonacci series up to n
+    """Print a Fibonacci series up to n."""
+    a, b = 0, 1
+    while a < n:
+        print a,
+        a, b = b, a+b

data/lib/rouge/demos/q

@@ -0,0 +1,2 @@
+/ comment
+x: til 10

data/lib/rouge/demos/qml

@@ -0,0 +1,9 @@
+import QtQuick 2.0
+Item {
+    width: 200
+    height: 100
+    MouseArea {
+        anchors.fill: parent
+        onClicked: Qt.quit()
+    }
+}

data/lib/rouge/demos/r

@@ -0,0 +1,8 @@
+dbenford <- function(x){
+    log10(1 + 1/x)
+}
+
+pbenford <- function(q){
+    cumprobs <- cumsum(dbenford(1:9))
+    return(cumprobs[q])
+}

data/lib/rouge/demos/racket

@@ -0,0 +1,24 @@
+#lang racket
+
+;; draw a graph of cos and deriv^3(cos)
+(require plot)
+(define ((deriv f) x)
+  (/ (- (f x) (f (- x 0.001))) 0.001))
+(define (thrice f) (lambda (x) (f (f (f x)))))
+(plot (list (function ((thrice deriv) sin) -5 5)
+            (function cos -5 5 #:color 'blue)))
+
+;; Print the Greek alphabet
+(for ([i (in-range 25)])
+  (displayln
+   (integer->char
+    (+ i (char->integer #\u3B1)))))
+
+;; An echo server
+(define listener (tcp-listen 12345))
+(let echo-server ()
+  (define-values (in out) (tcp-accept listener))
+  (thread (λ ()
+             (copy-port in out)
+             (close-output-port out)))
+  (echo-server))