pygments.rb 0.3.2 → 0.3.3

data/vendor/pygments-main/tests/examplefiles/example.rpf

@@ -0,0 +1,4 @@
+declare xyz true
+declare s "some string"
+i = 2
+f = 0.2

data/vendor/pygments-main/tests/examplefiles/example.stan

@@ -0,0 +1,97 @@
+/* 
+A file for testing Stan syntax highlighting. 
+
+It is not a real model and will not compile
+*/
+# also a comment
+// also a comment
+data {
+     // valid name
+     int abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789_abc;
+     // all types should be highlighed
+     int a3;
+     real foo[2];
+     vector[3] bar;
+     row_vector[3] baz;
+     matrix[3,3] qux;
+     simplex[3] quux;
+     ordered[3] corge;
+     positive_ordered[3] wibble;
+     corr_matrix[3] grault;
+     cov_matrix[3] garply;
+
+     real<lower=-1,upper=1> foo1;
+     real<lower=0> foo2;
+     real<upper=0> foo3;
+
+     // bad names
+     // includes .
+     // real foo.;
+     // beings with number
+     //real 0foo;
+     // begins with _
+     //real _foo;
+}
+transformed data {
+     real xyzzy;
+     int thud;
+     row_vector grault2;
+     matrix qux2;
+
+     // all floating point literals should be recognized
+     // all operators should be recognized
+     // paren should be recognized;
+     xyzzy <- 1234.5687 + .123 - (2.7e3 / 2E-5 * 135e-5);
+     // integer literal
+     thud <- -12309865;
+     // ./ and .* should be recognized as operators
+     grault2 <- grault .* garply ./ garply;
+     // ' and \ should be regognized as operators
+     qux2 <- qux' \ bar;
+     
+}
+parameters {
+    real fred;
+    real plugh;
+    
+}
+transformed parameters {    
+}
+model {
+   // ~, <- are operators, 
+   // T may be be recognized
+   // normal is a function
+   fred ~ normal(0, 1) T(-0.5, 0.5);
+   // interior block
+   { 
+       real tmp;
+       // for, in should be highlighted
+       for (i in 1:10) {
+	   tmp <- tmp + 0.1;
+       }
+   }
+   // lp__ should be highlighted
+   // normal_log as a function
+   lp__ <- lp__ + normal_log(plugh, 0, 1);
+
+   // print statement and string literal
+   print("abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789_~@#$%^&*`'-+={}[].,;: ");
+   print("Hello, world!");
+   print("");
+
+}
+generated quantities {
+   real bar1;
+   bar1 <- foo + 1;
+}
+
+## Baddness
+//foo <- 2.0;
+//foo ~ normal(0, 1);
+//not_a_block {
+//}
+
+/*
+what happens with this? 
+*/
+// */

data/vendor/pygments-main/tests/examplefiles/example.xtend

@@ -0,0 +1,34 @@
+package beer
+
+import static extension beer.BottleSupport.*
+import org.junit.Test
+
+class BottleSong {
+
+	@Test
+	def void singIt() {
+		println(singTheSong(99))
+	}
+	
+	def singTheSong(int all) '''
+		�FOR i : all .. 1�
+			�i.Bottles� of beer on the wall, �i.bottles� of beer.
+			Take one down and pass it around, �(i - 1).bottles� of beer on the wall.
+			
+		�ENDFOR�
+		No more bottles of beer on the wall, no more bottles of beer.
+		Go to the store and buy some more, �all.bottles� of beer on the wall.
+	'''
+
+	def private java.lang.String bottles(int i) {
+		switch i {
+			case 0 : 'no more bottles'
+			case 1 : 'one bottle'
+			default : '''�i� bottles'''
+		}.toString
+	}	
+	
+	def String Bottles(int i) {
+		bottles(i).toFirstUpper
+	}
+}

data/vendor/pygments-main/tests/examplefiles/example2.msc

@@ -0,0 +1,79 @@
+#!/usr/bin/mscgen -Tpng
+#
+# testinput2.msc : Sample msc input file with URLs
+#
+# This file is PUBLIC DOMAIN and may be freely reproduced,  distributed,
+# transmitted, used, modified, built upon, or otherwise exploited by
+# anyone for any purpose, commercial or non-commercial, and in any way,
+# including by methods that have not yet been invented or conceived.
+#
+# This file is provided "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER
+# EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
+# WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
+#
+
+# Note: This is from mscgen-0.20
+
+msc {
+
+A,B;
+
+--- [label="Start", ID="1"];
+
+A->B [label="signal"];
+A<-B [label="signal"];
+
+
+A=>B [label="method"];
+A<=B [label="method"];
+
+A>>B [label="return"];
+A<<B [label="return"];
+
+A=>>B [label="call-back"];
+A<<=B [label="call-back", URL="www.google.com"];
+
+A x- B [label="loss"];
+A -x B [label="loss"];
+
+--- [label="Left arcs", ID="2", IDURL="www.google.co.uk"];
+
+A->A [label="signal"];
+A<-A [label="signal"];
+
+
+A=>A [label="method"];
+A<=A [label="method"];
+
+A>>A [label="return"];
+A<<A [label="return"];
+
+A=>>A [label="call-back"];
+A<<=A [label="call-back", URL="www.google.com", ID="3"];
+
+A x- A [label="loss"];
+A -x A [label="loss"];
+
+--- [label="Right arcs"];
+
+B->B [label="signal"];
+B<-B [label="signal"];
+
+
+B=>B [label="method"];
+B<=B [label="method"];
+
+B>>B [label="return"];
+B<<B [label="return"];
+
+B=>>B [label="call-back", ID="4"];
+B<<=B [label="call-back", URL="www.google.com"];
+
+B x- B [label="loss"];
+B -x B [label="loss"];
+
+--- [label="End of arcs", URL="www.google.com"];
+
+
+... [label="Some time passes", URL="www.google.com"];
+}

data/vendor/pygments-main/tests/examplefiles/garcia-wachs.kk

@@ -0,0 +1,123 @@
+/* This is an example in the Koka Language of the Garcia-Wachs algorithm */
+module garcia-wachs
+
+public fun main()
+{
+  test().print
+}
+
+//----------------------------------------------------
+// Trees
+//----------------------------------------------------
+public type tree<a> {
+  con Leaf(value :a)
+  con Node(left :tree<a>, right :tree<a>)
+}
+
+fun show( t : tree<char> ) : string
+{
+  match(t) {
+    Leaf(c) -> Core.show(c)
+    Node(l,r) -> "Node(" + show(l) + "," + show(r) + ")"
+  }
+}
+
+
+//----------------------------------------------------
+// Non empty lists
+//----------------------------------------------------
+public type list1<a> {
+  Cons1( head : a, tail : list<a> )
+}
+
+
+fun map( xs, f ) {
+  val Cons1(y,ys) = xs
+  return Cons1(f(y), Core.map(ys,f))
+}
+
+fun zip( xs :list1<a>, ys :list1<b> ) : list1<(a,b)> {
+  Cons1( (xs.head, ys.head), zip(xs.tail, ys.tail))
+}
+
+
+
+//----------------------------------------------------
+// Phase 1
+//----------------------------------------------------
+
+fun insert( after : list<(tree<a>,int)>, t : (tree<a>,int), before : list<(tree<a>,int)> ) : div tree<a>
+{
+  match(before) {
+    Nil -> extract( [], Cons1(t,after) )
+    Cons(x,xs) -> {
+      if (x.snd < t.snd) then return insert( Cons(x,after), t, xs )
+      match(xs) {
+        Nil        -> extract( [], Cons1(x,Cons(t,after)) )
+        Cons(y,ys) -> extract( ys, Cons1(y,Cons(x,Cons(t,after))) )
+      }
+    }
+  }
+}
+
+fun extract( before : list<(tree<a>,int)>, after : list1<(tree<a>,int)> ) : div tree<a>
+{
+  val Cons1((t1,w1) as x, xs ) = after
+  match(xs) {
+    Nil -> t1
+    Cons((t2,w2) as y, ys) -> match(ys) {
+      Nil -> insert( [], (Node(t1,t2), w1+w2), before )
+      Cons((_,w3),_zs) ->
+        if (w1 <= w3)
+         then insert(ys, (Node(t1,t2), w1+w2), before)
+         else extract(Cons(x,before), Cons1(y,ys))
+    }
+  }
+}
+
+
+
+fun balance( xs : list1<(tree<a>,int)> ) : div tree<a>
+{
+  extract( [], xs )
+}
+
+fun mark( depth :int, t :tree<(a,ref<h,int>)> ) : <write<h>> ()
+{
+  match(t) {
+    Leaf((_,d)) -> d := depth
+    Node(l,r)   -> { mark(depth+1,l); mark(depth+1,r) }
+  }
+}
+
+
+fun build( depth :int, xs :list1<(a,ref<h,int>)> ) : <read<h>,div> (tree<a>,list<(a,ref<h,int>)>)
+{
+  if (!xs.head.snd == depth) return (Leaf(xs.head.fst), xs.tail)
+
+  l = build(depth+1, xs)
+  match(l.snd) {
+    Nil -> (l.fst, Nil)
+    Cons(y,ys) -> {
+      r = build(depth+1, Cons1(y,ys))
+      (Node(l.fst,r.fst), r.snd)
+    }
+  }
+}
+
+public fun test() {
+  wlist = Cons1(('a',3), [('b',2),('c',1),('d',4),('e',5)])
+  tree  = wlist.garciawachs()
+  tree.show()
+}
+
+public fun garciawachs( xs : list1<(a,int)> ) : div tree<a>
+{
+  refs   = xs.map(fst).map( fun(x) { (x, ref(0)) } )
+  wleafs = zip( refs.map(Leaf), xs.map(snd) )
+
+  tree = balance(wleafs)
+  mark(0,tree)
+  build(0,refs).fst
+}
+

data/vendor/pygments-main/tests/examplefiles/hello.smali

@@ -0,0 +1,40 @@
+# To Recreate:
+#
+# echo -e 'class hello {\n  public static void main(String[] args) {\n
+# System.out.println("hi");\n  }\n}\n' > hello.java
+# javac -target 1.4 -source 1.4 hello.java
+# dx --dex --output=hello.dex hello.class
+# baksmali hello.dex
+# cat out/hello.smali
+
+.class Lhello;
+.super Ljava/lang/Object;
+.source "hello.java"
+
+
+# direct methods
+.method constructor <init>()V
+    .registers 1
+
+    .prologue
+    .line 1
+    invoke-direct {p0}, Ljava/lang/Object;-><init>()V
+
+    return-void
+.end method
+
+.method public static main([Ljava/lang/String;)V
+    .registers 3
+    .parameter
+
+    .prologue
+    .line 3
+    sget-object v0, Ljava/lang/System;->out:Ljava/io/PrintStream;
+
+    const-string v1, "hi"
+
+    invoke-virtual {v0, v1}, Ljava/io/PrintStream;->println(Ljava/lang/String;)V
+
+    .line 4
+    return-void
+.end method

data/vendor/pygments-main/tests/examplefiles/hello.sp

@@ -0,0 +1,9 @@
+#include <sourcemod>
+
+// Single line comment
+/* Multi line
+   comment */
+
+public OnPluginStart() {
+    PrintToServer("Hello.");
+}

data/vendor/pygments-main/tests/examplefiles/http_request_example

@@ -3,7 +3,8 @@ Host: pygments.org
 Connection: keep-alivk
 Cache-Control: max-age=0
 Origin: http://pygments.org
-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
+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/x-www-form-urlencoded
 Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
 Referer: http://pygments.org/

data/vendor/pygments-main/tests/examplefiles/http_response_example

@@ -18,8 +18,10 @@ Expires: Tue, 31 Mar 1981 05:00:00 GMT
 Cache-Control: no-cache, no-store, must-revalidate, pre-check=0, post-check=0
 X-MID: a55f21733bc52bb11d1fc58f9b51b4974fbb8f83
 X-RateLimit-Reset: 1323738416
-Set-Cookie: k=10.34.234.116.1323735104238974; path=/; expires=Tue, 20-Dec-11 00:11:44 GMT; domain=.twitter.com
-Set-Cookie: guest_id=v1%3A13237351042425496; domain=.twitter.com; path=/; expires=Thu, 12-Dec-2013 12:11:44 GMT
+Set-Cookie: k=10.34.234.116.1323735104238974; path=/;
+	expires=Tue, 20-Dec-11 00:11:44 GMT; domain=.twitter.com
+Set-Cookie: guest_id=v1%3A13237351042425496; domain=.twitter.com; path=/;
+	expires=Thu, 12-Dec-2013 12:11:44 GMT
 Set-Cookie: _twitter_sess=BAh7CDoPY3JlYXRlZF9hdGwrCPS6wjQ0AToHaWQiJTFiMTlhY2E1ZjczYThk%250ANDUwMWQxNjMwZGU2YTQ1ODBhIgpmbGFzaElDOidBY3Rpb25Db250cm9sbGVy%250AOjpGbGFzaDo6Rmxhc2hIYXNoewAGOgpAdXNlZHsA--6b502f30a083e8a41a64f10930e142ea362b1561; domain=.twitter.com; path=/; HttpOnly
 Vary: Accept-Encoding
 Server: tfe

data/vendor/pygments-main/tests/examplefiles/inet_pton6.dg

@@ -0,0 +1,71 @@
+re  = import!
+sys = import!
+
+
+# IPv6address    =  hexpart [ ":" IPv4address ]
+# IPv4address    =  1*3DIGIT "." 1*3DIGIT "." 1*3DIGIT "." 1*3DIGIT
+# hexpart        =  [ hexseq ] [ "::" [ hexseq ] ]
+# hexseq         =  hex4 *( ":" hex4)
+# hex4           =  1*4HEXDIG
+hexpart = r'({0}|)(?:::({0}|)|)'.format r'(?:[\da-f]{1,4})(?::[\da-f]{1,4})*'
+addrv4  = r'(\d{1,3})\.(\d{1,3})\.(\d{1,3})\.(\d{1,3})'
+addrv6  = re.compile $ r'(?i)(?:{})(?::{})?$'.format hexpart addrv4
+
+
+# Parse a base-N number given a list of its digits.
+#
+# :param q: the number of digits in that numeral system
+#
+# :param digits: an iterable of integers in range [0..q]
+#
+# :return: a decimal integer
+#
+base_n = (q digits) -> foldl (x y) -> (x * q + y) 0 digits
+
+
+# Parse a sequence of hexadecimal numbers
+#
+# :param q: a string of colon-separated base-16 integers
+#
+# :return: an iterable of Python ints
+#
+unhex = q -> q and map p -> (int p 16) (q.split ':')
+
+
+# Parse an IPv6 address as specified in RFC 4291.
+#
+# :param address: a string, obviously.
+#
+# :return: an integer which, written in binary form, points to the same node.
+#
+inet_pton6 = address ->
+  raise $ ValueError 'not a valid IPv6 address' unless match = addrv6.match address
+  start, end, *ipv4 = match.groups!
+
+  is_ipv4 = not $ None in ipv4
+  shift   = (7 - start.count ':' - 2 * is_ipv4) * 16
+
+  raise $ ValueError 'not a valid IPv6 address' if (end is None and shift) or shift < 0
+  hexaddr = (base_n 0x10000 (unhex start) << shift) + base_n 0x10000 (unhex $ end or '')
+  hexaddr unless is_ipv4 else (hexaddr << 32) + base_n 0x100 (map int ipv4)
+
+
+inet6_type = q -> switch
+  not q = 'unspecified'
+  q == 1 = 'loopback'
+  (q >>  32)              == 0x000000000000ffff = 'IPv4-mapped'
+  (q >>  64)              == 0xfe80000000000000 = 'link-local'
+  (q >> 120)              != 0x00000000000000ff = 'general unicast'
+  (q >> 112) % (1 << 4)   == 0x0000000000000000 = 'multicast w/ reserved scope value'
+  (q >> 112) % (1 << 4)   == 0x000000000000000f = 'multicast w/ reserved scope value'
+  (q >> 112) % (1 << 4)   == 0x0000000000000001 = 'interface-local multicast'
+  (q >> 112) % (1 << 4)   == 0x0000000000000004 = 'admin-local multicast'
+  (q >> 112) % (1 << 4)   == 0x0000000000000005 = 'site-local multicast'
+  (q >> 112) % (1 << 4)   == 0x0000000000000008 = 'organization-local multicast'
+  (q >> 112) % (1 << 4)   == 0x000000000000000e = 'global multicast'
+  (q >> 112) % (1 << 4)   != 0x0000000000000002 = 'multicast w/ unknown scope value'
+  (q >>  24) % (1 << 112) == 0x00000000000001ff = 'solicited-node multicast'
+  True = 'link-local multicast'
+
+
+print $ (x -> (inet6_type x, hex x)) $ inet_pton6 $ sys.stdin.read!.strip!