rouge 3.17.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/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/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/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/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/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,11 @@
+// !$*UTF8*$!
+{
+	archiveVersion = 1;
+	classes = {
+	};
+	objectVersion = 46;
+	objects = {
+	/* ... */
+	};
+	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,13 @@
+function Verb-Noun
+{
+    <#
+    .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/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,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/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))

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

@@ -0,0 +1,9 @@
+class Greeter
+  def initialize(name="World")
+    @name = name
+  end
+
+  def say_hi
+    puts "Hi #{@name}!"
+  end
+end

data/lib/rouge/demos/rust

@@ -0,0 +1,12 @@
+use core::*;
+
+fn main() {
+    for ["Alice", "Bob", "Carol"].each |&name| {
+        do task::spawn {
+            let v = rand::Rng().shuffle([1, 2, 3]);
+            for v.each |&num| {
+                io::print(fmt!("%s says: '%d'\n", name, num))
+            }
+        }
+    }
+}

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

@@ -0,0 +1,3 @@
+@for $i from 1 through 3
+  .item-#{$i}
+    width: 2em * $i

data/lib/rouge/demos/scala

@@ -0,0 +1,3 @@
+class Greeter(name: String = "World") {
+  def sayHi() { println("Hi " + name + "!") }
+}

data/lib/rouge/demos/scheme

@@ -0,0 +1,4 @@
+(define Y
+  (lambda (m)
+    ((lambda (f) (m (lambda (a) ((f f) a))))
+     (lambda (f) (m (lambda (a) ((f f) a)))))))