rouge 3.18.0

data/lib/rouge/demos/http

@@ -0,0 +1,14 @@
+POST /demo/submit/ HTTP/1.1
+Host: rouge.jneen.net
+Cache-Control: max-age=0
+Origin: http://rouge.jayferd.us
+User-Agent: Mozilla/5.0 (Macintosh; Intel Mac OS X 10_7_2)
+    AppleWebKit/535.7 (KHTML, like Gecko) Chrome/16.0.912.63 Safari/535.7
+Content-Type: application/json
+Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
+Referer: http://pygments.org/
+Accept-Encoding: gzip,deflate,sdch
+Accept-Language: en-US,en;q=0.8
+Accept-Charset: windows-949,utf-8;q=0.7,*;q=0.3
+
+{"name":"test","lang":"text","boring":true}

data/lib/rouge/demos/hylang

@@ -0,0 +1,10 @@
+(defn simple-conversation []
+   (print "Hello!  I'd like to get to know you.  Tell me about yourself!")
+   (setv name (input "What is your name? "))
+   (let [age (input "What is your age? ")]
+     (if (and age
+              name)
+       (print (+ "Hello " name "!  I see you are "
+                 age " years old.")))))
+
+(simple-conversation)

data/lib/rouge/demos/idlang

@@ -0,0 +1,8 @@
+for i = 99L, 0, -1 do begin
+
+  print, i, format="(I0, 1X, 'bottles of beer on the wall,')"
+  print, i, format="(I0, 1X, 'bottles of beer.')"
+  print, 'Take one down, pass it around,'
+  print, i, format="(I0, 1X, 'bottles of beer on the wall.', /)"
+
+endfor

data/lib/rouge/demos/igorpro

@@ -0,0 +1,9 @@
+#pragma TextEncoding = "UTF-8"
+#pragma rtGlobals=3		// Use modern global access method and strict wave access.
+
+Function/WAVE MakeWave(name)
+	String name
+
+	Make/N=(8,8) root:$name/WAVE=wv = p^2 + q^2
+	return wv
+End

data/lib/rouge/demos/ini

@@ -0,0 +1,4 @@
+; last modified 1 April 2001 by John Doe
+[owner]
+name=John Doe
+organization=Acme Widgets Inc.

data/lib/rouge/demos/io

@@ -0,0 +1,11 @@
+bottle := method(i,
+  if(i==0, return "no more bottles of beer")
+  if(i==1, return "1 bottle of beer")
+  return i asString .. " bottles of beer"
+)
+
+for(i, 99, 1, -1,
+  write(bottle(i), " on the wall, ", bottle(i), ",\n")
+  write("take one down, pass it around,\n")
+  write(bottle(i - 1), " on the wall.\n\n")
+)

data/lib/rouge/demos/irb

@@ -0,0 +1,4 @@
+irb(main):001:0> puts "Hello, world!"
+Hello, world!
+irb(main):002:0> Object.new
+=> #<Object:0x0056182cb182b8>

data/lib/rouge/demos/irb_output

@@ -0,0 +1,2 @@
+hello world
+=> #<Object:0x0056182cb182b8 @foo=#<Object:0x0056182cb63100 @bar=3>>

data/lib/rouge/demos/isbl

@@ -0,0 +1,4 @@
+NameReq = Object.Requisites(SYSREQ_NAME)
+if Assigned(NameReq.AsString)
+  ShowMessage("Привет мир")
+endif

data/lib/rouge/demos/java

@@ -0,0 +1,5 @@
+public class java {
+    public static void main(String[] args) {
+        System.out.println("Hello World");
+    }
+}

data/lib/rouge/demos/javascript

@@ -0,0 +1 @@
+$(document).ready(function() { alert('ready!'); });

data/lib/rouge/demos/jinja

@@ -0,0 +1,9 @@
+{% extends "layout.html" %}
+
+{% block body %}
+  <ul>
+  {% for user in users %}
+    <li><a href="{{ user.url }}">{{ user.username }}</a></li>
+  {% endfor %}
+  </ul>
+{% endblock %}

data/lib/rouge/demos/jsl

@@ -0,0 +1,3 @@
+// Create Distribution of Big Class
+dt = open( "$sample_data\big class.jmp" );
+dt << Distribution( Column( :age ), Histograms Only( 1 ) );

data/lib/rouge/demos/json

@@ -0,0 +1 @@
+{ "one": 1, "two": 2, "null": null, "simple": true }

data/lib/rouge/demos/json-doc

@@ -0,0 +1 @@
+{ "one": 1, "two": 2, "null": null, "simple": true } // a simple json object

data/lib/rouge/demos/jsonnet

@@ -0,0 +1,28 @@
+// Compiler template
+local CCompiler = {
+  cFlags: [],
+  out: "a.out",
+  local flags_str = std.join(" ", self.cFlags),
+  local files_str = std.join(" ", self.files),
+  cmd: "%s %s %s -o %s" % [self.compiler, flags_str, files_str, self.out],
+};
+
+// GCC specialization
+local Gcc = CCompiler { compiler: "gcc" };
+
+// Another specialization
+local Clang = CCompiler { compiler: "clang" };
+
+// Mixins - append flags
+local Opt = { cFlags: super.cFlags + ["-O3", "-DNDEBUG"] };
+local Dbg = { cFlags: super.cFlags + ["-g"] };
+
+// Output:
+{
+  targets: [
+    Gcc { files: ["a.c", "b.c"] },
+    Clang { files: ["test.c"], out: "test" },
+    Clang + Opt { files: ["test2.c"], out: "test2" },
+    Gcc + Opt + Dbg { files: ["foo.c", "bar.c"], out: "baz" },
+  ]
+}

data/lib/rouge/demos/jsp

@@ -0,0 +1,29 @@
+<%@ page contentType="text/html;charset=UTF-8" language="java" %>
+<%@ page import="java.time.LocalDateTime" %>
+
+<%! int day = 3; %> 
+
+<!DOCTYPE html>
+<html>
+	<head>
+		<title>Simple JSP Application</title>
+	</head>
+	<body>
+        <%-- This is a JSP comment --%>
+		<h1>Hello world!</h1>
+		<h2>Current time is <%= LocalDateTime.now() %></h2>
+
+        <% if (day == 1 || day == 7) { %>
+            <p> Today is weekend</p>
+        <% } else { %>
+            <p> Today is not weekend</p>
+        <% } %>
+
+        h2>Using JavaBeans in JSP</h2>
+        <jsp:useBean id="test" class="action.TestBean" />
+        <jsp:setProperty name="test"  property="message"  value="Hello JSP..." />
+        
+        <p>Got message:</p>
+        <jsp:getProperty name="test" property="message" />
+	</body>
+</html>

data/lib/rouge/demos/jsx

@@ -0,0 +1,17 @@
+var HelloWorld = React.createClass({
+  render: function() {
+    return (
+      <p>
+        Hello, <input type="text" placeholder="Your name here" />!
+        It is {this.props.date.toTimeString()}
+      </p>
+    );
+  }
+});
+
+setInterval(function() {
+  ReactDOM.render(
+    <HelloWorld date={new Date()} />,
+    document.getElementById('example')
+  );
+}, 500);

data/lib/rouge/demos/julia

@@ -0,0 +1,11 @@
+function mandel(z)
+    c = z
+    maxiter = 80
+    for n = 1:maxiter
+        if abs(z) > 2
+            return n-1
+        end
+        z = z^2 + c
+    end
+    return maxiter
+end

data/lib/rouge/demos/kotlin

@@ -0,0 +1,3 @@
+fun main(args: Array<String>) {
+    println("Hello, world!")
+}

data/lib/rouge/demos/lasso

@@ -0,0 +1,12 @@
+/**!
+  Inserts all of the elements from #rhs into the array.
+*/
+define array->+(rhs::trait_forEach) => { 
+  local(a = .asCopy);
+  #rhs->forEach => {
+    #a->insert(#1)
+  }
+  return (#a)
+}
+
+define array->onCompare(n::null) => 1

data/lib/rouge/demos/liquid

@@ -0,0 +1,10 @@
+<ul id="products">
+  {% for product in products %}
+    <li>
+      <h2>{{ product.title }}</h2>
+      Only {{ product.price | format_as_money }}
+
+      <p>{{ product.description | prettyprint | truncate: 200  }}</p>
+    </li>
+  {% endfor %}
+</ul>

data/lib/rouge/demos/literate_coffeescript

@@ -0,0 +1,3 @@
+Import the helpers we plan to use.
+
+    {extend, last} = require './helpers'

data/lib/rouge/demos/literate_haskell

@@ -0,0 +1,7 @@
+In Bird-style you have to leave a blank before the code.
+
+> fact :: Integer -> Integer
+> fact 0 = 1
+> fact n = n * fact (n-1)
+
+And you have to leave a blank line after the code as well.

data/lib/rouge/demos/llvm

@@ -0,0 +1,20 @@
+; copied from http://llvm.org/docs/LangRef.html#module-structure
+; Declare the string constant as a global constant.
+@.str = private unnamed_addr constant [13 x i8] c"hello world\0A\00"
+
+; External declaration of the puts function
+declare i32 @puts(i8* nocapture) nounwind
+
+; Definition of main function
+define i32 @main() {   ; i32()*
+  ; Convert [13 x i8]* to i8  *...
+  %cast210 = getelementptr [13 x i8]* @.str, i64 0, i64 0
+
+  ; Call puts function to write out the string to stdout.
+  call i32 @puts(i8* %cast210)
+  ret i32 0
+}
+
+; Named metadata
+!1 = metadata !{i32 42}
+!foo = !{!1, null}

data/lib/rouge/demos/lua

@@ -0,0 +1,12 @@
+-- defines a factorial function
+function fact (n)
+  if n == 0 then
+    return 1
+  else
+    return n * fact(n-1)
+  end
+end
+    
+print("enter a number:")
+a = io.read("*number")        -- read a number
+print(fact(a))

data/lib/rouge/demos/lustre

@@ -0,0 +1,6 @@
+node count(init: int; reset, event: bool) returns (c: int);
+let
+	c = init -> if reset then init
+					else if event then pre(c)+1
+					else pre(c);
+tel;

data/lib/rouge/demos/lutin

@@ -0,0 +1,18 @@
+node gen_x_v1() returns (x:real) = loop 0.0<x and x<42.0
+
+node gen_x_v2() returns (x:real) = 
+  loop { 0.0<x and x<42.0 fby loop [20] x = pre x }
+
+node gen_x_v3() returns (target:real; x:real=0.0) =
+  run target := gen_x_v2() in
+  loop { x = (pre x + target) / 2.0 }
+
+let inertia=0.6
+
+node gen_x_v4()  returns (target:real; x:real=0.0) =
+  run target := gen_x_v2() in
+  exist px,ppx : real = 0.0 in
+  loop { 
+      px = pre x and ppx = pre px and
+      x = (px+target) / 2.0+inertia*(px-ppx) 
+  }

data/lib/rouge/demos/m68k

@@ -0,0 +1,16 @@
+initialize:                     ; go into super user mode
+   clr.l -(a7)
+   move.w #32,-(a7)
+   trap #1
+   addq.l #6,a7
+   move.l d0,oldstack
+   rts
+
+restore:                        ; go back into user mode
+   move.l oldstack,-(a7)
+   move.w #32,-(a7)
+   trap #1
+   addq.l #6,a7
+   rts
+
+oldstack dc.l 0

data/lib/rouge/demos/magik

@@ -0,0 +1,6 @@
+_private _method test_object.init()
+	## initializer
+	.slot1 << _self.default_value
+	_return _self
+_endmethod
+$

data/lib/rouge/demos/make

@@ -0,0 +1,6 @@
+.PHONY: all
+all: $(OBJ)
+
+$(OBJ): $(SOURCE)
+	@echo "compiling..."
+	$(GCC) $(CFLAGS) $< > $@

data/lib/rouge/demos/markdown

@@ -0,0 +1,4 @@
+Markdown has cool [reference links][ref 1]
+and [regular links too](http://example.com)
+
+[ref 1]: http://example.com

data/lib/rouge/demos/mason

@@ -0,0 +1,22 @@
+<%doc>
+    This is a mason component.
+    # This is a comment.
+</%doc>
+
+<%args>
+    $color         # this argument is required!
+    $size => 20    # default size
+    $country => undef   # this argument is optional, default value is 'undef'
+    @items => (1, 2, 'something else')
+    %pairs => (name => "John", age => 29)
+</%args>
+
+% # A random block of Perl code
+<%perl>
+    my @people = ('mary' 'john' 'pete' 'david');
+</%perl>
+
+% # Note how each line of code begins with the mandatory %
+% foreach my $person (@people) {
+    Name: <% $person %>
+% }

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

@@ -0,0 +1,6 @@
+A = cat( 3, [1 2 3; 9 8 7; 4 6 5], [0 3 2; 8 8 4; 5 3 5], ...
+                 [6 4 7; 6 8 5; 5 4 3]);
+% The EIG function is applied to each of the horizontal 'slices' of A.
+for i = 1:3
+    eig(squeeze(A(i,:,:)))
+end

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

@@ -0,0 +1,16 @@
+util = require "my.module"
+
+a_table = {
+  foo: 'bar'
+  interpolated: "foo-#{other.stuff 2 + 3}"
+  "string": 2
+  do: 'keyword'
+}
+
+class MyClass extends SomeClass
+  new: (@init, arg2 = 'default') =>
+    @derived = @init + 2
+    super!
+
+  other: =>
+    @foo + 2

data/lib/rouge/demos/mosel

@@ -0,0 +1,10 @@
+(!******************************************************
+   Mosel Example Problems
+*******************************************************!)
+
+! Objective function: total daily cost
+ Cost:= sum(p in TYPES, t in TIME) (CSTART(p)*start(p,t) +
+          LEN(t)*(CMIN(p)*work(p,t) + CADD(p)*padd(p,t)))
+
+! Limit on power production above minimum level
+ forall(p in TYPES, t in TIME) padd(p,t) <= (PMAX(p)-PMIN(p))*work(p,t)