gitlab-pygments.rb 0.3.2

data/vendor/pygments-main/tests/examplefiles/example.sh-session

@@ -0,0 +1,19 @@
+user@host:~/path$ ls -a
+.  ..  a  b  c
+user@host:~/path$ diff -u a b
+--- a   2008-07-26 17:10:07.000000000 -0700
++++ b   2008-07-26 17:10:10.000000000 -0700
+@@ -1,3 +1,3 @@
+ a
+-b
++x
+ c
+user@host:~/path$ echo \
+> a
+a
+user@host:~/path$ su
+root@host:~#
+sh-3.1$ # on hardy
+sh$ # on etch
+(virtualenv-name)user@host:~$ ls -a
+

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

@@ -0,0 +1,156 @@
+structure C = struct
+   val a = 12
+   fun f x = x + 5
+end
+
+(*(*(*(*(* This file is all pretty strange Standard ML *)*)*)*) (**)*)
+(* Robert J. Simmons *)
+
+(* Comments (* can be nested *) *)
+structure S = struct
+  val x = (1, 2, "three")
+end
+
+structure Sv = struct
+  (* These look good *)
+  val x = (1, 2, "three")
+  val z = #2 x
+
+  (* Although these look bad (not all the numbers are constants),       *
+   * they never occur in practice, as they are equivalent to the above. *)
+  val x = {1 = 1, 3 = "three", 2 = 2}
+  val z = #
+            2 x
+
+  val || = 12
+end
+
+signature S = sig end
+
+structure S = struct
+  val x = (1, 2, "three")
+  datatype 'a t = T of 'a
+       and u = U of v * v
+  withtype v = {left: int t, right: int t}
+  exception E1 of int and E2
+  fun 'a id (x: 'a) : 'a = x
+
+  val 
+      'a id = fn (x : 'a) => x
+end
+
+signature R = sig
+  type t
+  val x : t
+  val f : t * int -> int
+end
+structure R : R = struct
+  datatype t = T of int
+  val x : t = T 0
+  fun f (T x, i : int) : int = x + i
+  fun 'a id (x: 'a) : 'a = x
+end
+
+signature BA_Z = sig 
+   val s: int
+   include S R
+end 
+
+structure b______ = struct (* What (* A * strange * name *) for ) a ( struct *)
+
+val !%&$#+-/:<=>?@\~`^|* = 3
+
+type struct' = int list
+and 'a sig' = 'a list
+and ('a, 'b) end' = 'b option * 'a list
+
+structure baz = struct
+  structure Bar = struct 
+    val foo = !%&$#+-/:<=>?@\~`^|*
+  end  
+end
+
+infixr +!+ 
+fun (a +!+ b) = (op +) (a, b)
+
+open baz S R
+
+val$$$ = fn x => fn y => fn z => fn w => w
+val (foo, ++, bar, ||) = (4, baz.Bar.foo, !%&$#+-/:<=>?@\~`^|*, Bar.foo)
+val _ = $$$foo++bar||
+
+val val'ue : ' list = []
+val struct3 : (' -> ') = fn x => x
+val end_struct_' : ('a -> 'a) = fn x => x
+val x : (''a -> ''a) = fn x => x
+val x : ('''' -> '''') = fn x => x
+val x : unit = print "Weird, huh?\n"
+val w = {x=1,y=2,##= =3,4=3}
+val {##=, x, 4=a,...} = w
+val z = #4 w
+val z = # ##= w
+
+fun f x y 0 = 4 
+  | f x y z = 4 + Sv.||
+
+exception Foo of int
+datatype ('0, 'b, '_, ') f'o'o = Bar | baZ12' | dsfa_fad | #@$ | Bug
+and (', ''', '''', ''''') bar = 
+   Bee of unit
+ | Ben of (', ''', '''', ''''') f'o'o * int
+ | X of ''' list
+
+fun q x = raise Foo x
+and h x = raise Foo (~x)
+
+val x = 4
+and y = 5
+
+fun q 0 = 4
+  | q 1 = (case 1 of 1 => 2 | 3 => 4 | x => y)
+  | q y = case y of 1 => 2 | 3 => 4 | x => y
+
+val x = ref true
+fun q 0 = 4
+  | q 1 = if false then case 1 of 1 => 2 | 3 => 4 | x => y else 19
+  | q 2 = (while !x handle Match => !x | Fail _ => !x do () ; 2)
+  | q x = (raise Match) handle Domain => 9 | Match => 3
+
+fun p 0 = 12
+  | p 1 = 8
+  | p 2 = r false
+  | p x = r true
+and r true = 19
+  | r false = 12
+
+val _ = 123
+val _ = 0001
+val _ = ~123
+val _ = ~0001
+val _ = 0w12412
+val _ = 0w12412
+val _ = 0xfA0
+val _ = ~0xfA0
+val _ = 0wxfA0
+val _ = 1.4
+val _ = ~1.4
+val _ = 1e~2
+val _ = 1E~2
+val _ = 1e2
+val _ = 1E2
+val _ = 1.4e~2
+val _ = 1.4E~2
+val _ = 1.4e2
+val _ = 1.4E2
+
+val c = #"\000"
+val st = "foo \
+ 	 \ bar" ^ "baz \        
+  	 \ and \ 
+   	 \ such\n"
+
+val () = print st
+
+val _ = foo::bar::4::[++]
+
+end

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

@@ -0,0 +1,15 @@
+-SOME RANDOM DIRECTIVE WOULD GO HERE
+*
+* SNOBOL4 example file for lexer
+*
+ SOME.THING_OR_OTHER32 = 1 + 1.0 - 1E3 * 1E-3 ** 2.718284590E0
++ :F(END)S(IN_LOOP) 
+ PATTERN = LEN(3) ("GAR" | "BAR")
+IN_LOOP THING = INPUT :F(END)
+ THING LEN(3) ("GAR" | "BAR") :S(OK)
+ OUTPUT = THING " : Failure!" :(IN_LOOP)
+OK OUTPUT = THING ' : "Success"!' :(IN_LOOP)
+END
+FOOBAR
+FOOGAR
+THiNIg

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

@@ -0,0 +1,34 @@
+<% template example() {...}
+a = 123
+b = "test";
+c = 4.5
+d = call other()
+f = other2()
+
+define g as String
+
+h = true
+i = false
+j = null
+%>
+<html>
+<head>
+<title>Example<title>
+<body>
+<a href="http://example.com">Test link</a>
+<% // Second block
+if(a == 123 and b == "test") {
+    'yes'
+} else {
+    'no'
+}
+
+foreach(i in 1..10) {
+    i & ","
+}
+
+foreach(i in #(1,2,3) reverse {
+    i & ";"
+}
+
+%>

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

@@ -0,0 +1,548 @@
+ // This is a one line comment. 
+  /* an inner comment */ 
+ 
+ /* nested /* comments */ */ 
+ 
+  /* 
+    /* 
+       Multi-line. 
+    */ 
+  */ 
+
+// Binary blob escape. 
+//"some text \B(3)("\") ouhyeah" == "\"\\\"";
+"some text \B(3)("\") ouhyeah" == "\"\\\"";
+'some text \B(3)('\') ouhyeah' == '\'\\\'';
+
+//"\B(4)()"'()";
+"\B(4)()"'()";
+'\B(4)()'"()';
+
+//blob size limits
+"hey ! \B(0)() oh !"
+
+//blob format is wrong
+"hey ! \B(2)(aaa) oh !"
+"hey ! \B(100)(aaa) oh !"
+
+//multiple blob in a string
+"hey ! \B(3)(aaa) hey ! \B(3)(aaa) oh !"
+
+// multiple digits blob size 
+"hey ! \B(10)(aaaaaaaaaa)  !"
+"hey ! \B(10)(aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa)  !"
+"hey ! \B(100)(a)  !"
+
+// multiple digits blob size 
+"hey ! \B(007)(aaaaaaa)  !"
+"hey ! \B(007)(aa)  !"
+"hey ! \B(007)(aaaaaaaaaaaaaaaaaa)  !"
+
+// deprecated and restricted keyworks 
+emit Event.new;
+static int main();
+
+loopn (2) {echo("a");};
+
+foreach (var i : [1,2,3,4]) {
+	echo(i);
+};
+
+function() {};
+ 
+var 'if'; 
+var this.'else'; 
+ 
+var '%x'; 
+var '1 2 3'; 
+var this.'[]';
+       
+// angles 
+pi == 180deg; 
+pi == 200grad;
+       
+// Dictionary
+[ => ]; // The empty dictionary 
+
+// duration 
+1d   == 24h; 
+0.5d == 12h; 
+1h   == 60min; 
+1min == 60s; 
+1s   == 1000ms; 
+ 
+1s == 1; 
+1s 2s 3s == 6; 
+1s 1ms == 1.001; 
+1ms 1s == 1.001;
+       
+ 
+            1 == 1; 
+            1 == 1.0; 
+          1.2 == 1.2000; 
+      1.234e6 == 1234000; 
+        1e+11 == 1E+11; 
+         1e10 == 10000000000; 
+         1e30 == 1e10 * 1e10 * 1e10;
+       
+ 
+0.000001; 
+ 
+0.0000001; 
+ 
+0.00000000001; 
+ 
+1e+3; 
+ 
+1E-5; 
+       
+
+1.; 
+// [00004701:error] !!! syntax error: unexpected ;
+       
+      0x2a == 42; 
+      0x2A == 42; 
+  0xabcdef == 11259375; 
+  0xABCDEF == 11259375; 
+0xFFFFFFFF == 4294967295;
+       
+ 
+//123foo; 
+//[00005658:error] !!! syntax error: invalid token: '123foo' 
+//12.3foo; 
+//[00018827:error] !!! syntax error: invalid token: '12.3foo' 
+0xabcdef; 
+//[00060432] 11259375 
+//0xabcdefg; 
+//[00061848:error] !!! syntax error: invalid token: '0xabcdefg'
+       
+ 
+[]; // The empty list 
+[1, 2, 3]; 
+ 
+// Special characters. 
+"\"" == "\""; 
+"\\" == "\\"; 
+ 
+// ASCII characters. 
+"\a" == "\007"; "\a" == "\x07"; 
+"\b" == "\010"; "\b" == "\x08"; 
+"\f" == "\014"; "\f" == "\x0c"; 
+"\n" == "\012"; "\n" == "\x0a"; 
+"\r" == "\015"; "\r" == "\x0d"; 
+"\t" == "\011"; "\t" == "\x09"; 
+"\v" == "\013"; "\v" == "\x0b"; 
+ 
+// Octal escapes. 
+"\0" == "\00"; "\0" == "\000"; 
+"\0000" == "\0""0"; 
+"\062\063" == "23"; 
+ 
+// Hexadecimal escapes. 
+"\x00" == "\0"; 
+"\x32\x33" == "23"; 
+ 
+       
+ 
+"foo" "bar" "baz" == "foobarbaz";
+       
+// Tuples 
+(); 
+[00000000] () 
+(1,); 
+[00000000] (1,) 
+(1, 2); 
+[00000000] (1, 2) 
+(1, 2, 3, 4,); 
+[00000000] (1, 2, 3, 4)
+       
+function Global.verboseId(var x) 
+{ 
+  echo(x) | x 
+}|; 
+class verboseId(Global).math : verboseId(Math) 
+{ 
+}; 
+       
+{ 
+  for (3) 
+  { 
+    sleep(1s); 
+    echo("ping"); 
+  }, 
+  sleep(0.5s); 
+  for (3) 
+  { 
+    sleep(1s); 
+    echo("pong"); 
+  }, 
+}; 
+ 
+       1 + 1 ==    2; 
+       1 - 2 ==   -1; 
+       2 * 3 ==    6; 
+      10 / 2 ==    5; 
+     2 ** 10 == 1024; 
+    -(1 + 2) ==   -3; 
+   1 + 2 * 3 ==    7; 
+ (1 + 2) * 3 ==    9; 
+     -2 ** 2 ==   -4; 
+   - - - - 1 ==    1;
+
+a = b
+a += b
+a -= b
+a *= b
+a /= b
+a %= b
+a ^= b
+
+ 
+var value = 0|; 
+var valueAlias = value|; 
+value += 10; 
+valueAlias; 
+var myList = []|; 
+var myList.specialFeature = 42|; 
+myList += [1, 2, 3]; 
+myList.specialFeature; 
+var myOtherList = myList + [4, 5]; 
+myOtherList.specialFeature; 
+var something = []|; 
+var somethingElse = something|; 
+something += [1, 2]; 
+somethingElse += [3, 4]; 
+something; 
+       
+ 
+class Counter 
+{ 
+  var count = 0; 
+  function init (n)   { var this.count = n }; 
+  // Display the value, and the identity. 
+  function asString() { "%s @ %s" % [count, uid ] }; 
+  function '+'(var n) { new(count + n) }; 
+  function '-'(var n) { new(count - n) }; 
+}|;
+       
+ 
+class ImmutableCounter : Counter 
+{ 
+  function '+='(var n) { this + n }; 
+  function '-='(var n) { this - n }; 
+}|; 
+ 
+var ic1 = ImmutableCounter.new(0); 
+var ic2 = ic1; 
+ 
+ic1 += 1; 
+ic1; 
+ic2; 
+       
+
+a << b
+a >> b
+a ^ b
+ 
+4 << 2 == 16; 
+4 >> 2 ==  1;
+       
+!a
+a && b
+a || b
+ 
+true && true; 
+true || false; 
+!true == false; 
+true || (1 / 0); 
+(false && (1 / 0)) == false;
+       
+a == b
+a != b
+a === b
+a !== b
+a ~= b
+a =~= b
+a < b
+a <= b
+a > b
+a >= b
+ 
+assert{ 
+ ! (0 < 0); 
+    0 <= 0; 
+    0 == 0; 
+   0 !== 0; 
+}; 
+
+a in b
+a not in b
+a[args]
+a[args] = v
+ 
+1     in [0, 1, 2]; 
+3 not in [0, 1, 2]; 
+ 
+"one"   in     ["zero" => 0, "one" => 1, "two" => 2]; 
+"three" not in ["zero" => 0, "one" => 1, "two" => 2];
+       
+a.b
+a.b(args)
+a->b
+a->b = v
+a.&b
+ 
+var obj = Object.new|; 
+function obj.f() { 24 }|; 
+ 
+ 
+var f = function(a, b) { 
+  echo(b + a); 
+}| 
+f(1, 0); 
+       
+
+function g3() 
+{ 
+  return; // Stop execution at this point and return void 
+  echo(0); // This is not executed 
+}| 
+       
+Object.setProperty, to define/set a property.
+Object.getProperty, to get a property.
+Object.removeProperty, to delete a property.
+Object.hasProperty, to test for the existence of a property.
+Object.properties, to get all the properties of a slot.
+
+enum Suit 
+{ 
+  hearts, 
+  diamonds, 
+  clubs, 
+  spades, // Last comma is optional 
+}; 
+  
+for (var suit in Suit) 
+  echo("%s the ace of %s." % [find_ace(suit), suit]); 
+       
+switch ( ("foo", [1, 2]) ) 
+{ 
+  // The pattern does not match the values of the list. 
+  case ("foo", [2, 1]): 
+    echo("fail"); 
+ 
+  // The pattern does not match the tuple. 
+  case ["foo", [1, 2]]: 
+    echo("fail"); 
+ 
+  // The pattern matches and binds the variable "l" 
+  // but the condition is not verified. 
+  case ("foo", var l) if l.size == 0: 
+    echo("fail"); 
+ 
+  // The pattern matches. 
+  case ("foo", [var a, var b]): 
+    echo("foo(%s, %s)" % [a, b]); 
+}; 
+//[00000000] *** foo(1, 2)
+       
+{ 
+  ["b" => var b, "a" => var a] = ["a" => 1, "b" => 2, "c" => 3]; 
+  echo("a = %d, b = %d" % [a, b]); 
+}; 
+//[00000000] *** a = 1, b = 2
+       
+ 
+switch (["speed" => 2, "time" => 6s]) 
+{ 
+  case ["speed" => var s] if s > 3: 
+    echo("Too fast"); 
+  case ["speed" => var s, "time" => var t] if s * t > 10: 
+    echo("Too far"); 
+}; 
+//[00000000] *** Too far
+       
+ 
+try 
+{ 
+  throw ("message", 0) 
+} 
+catch (var e if e.isA(Exception)) 
+{ 
+  echo(e.message) 
+} 
+catch ((var msg, var value) if value.isA(Float)) 
+{ 
+  echo("%s: %d" % [msg, value]) 
+}; 
+//[00000000] *** message: 0
+       
+ 
+{ 
+  var e = Event.new; 
+  at (e?(var msg, var value) if value % 2 == 0) 
+    echo("%s: %d" % [msg, value]); 
+ 
+  // Does not trigger the "at" because the guard is not verified. 
+  e!("message", 1); 
+ 
+  // Trigger the "at". 
+  e!("message", 2); 
+}; 
+//[00000000] *** message: 2
+       
+for (var i = 0; i < 8; i++) 
+{ 
+  if (i % 2 != 0) 
+    continue; 
+  echo(i); 
+}; 
+
+do (1024) 
+{ 
+  assert(this == 1024); 
+  assert(sqrt == 32); 
+  setSlot("y", 23); 
+}.y; 
+ 
+{ 
+  var n = 10|; 
+  var res = []|; 
+  loop;{ 
+    n--; 
+    res << n; 
+    if (n == 0) 
+      break 
+  }; 
+  res 
+} 
+       
+ 
+{ 
+  var n = 10|; 
+  var res = []|; 
+  loop|{ 
+    n--; 
+    res << n; 
+    if (n == 0) 
+      break 
+  }; 
+  res 
+} 
+
+ 
+var j = 3| 
+while (0 < j) 
+{ 
+  echo(j); 
+  j--; 
+}; 
+
+ 
+{ 
+  var i = 4| 
+  while| (true) 
+  { 
+    i -= 1; 
+    echo ("in: " + i); 
+    if (i == 1) 
+      break 
+    else if (i == 2) 
+      continue; 
+    echo ("out: " + i); 
+  }; 
+}; 
+
+ 
+ 
+function test(e) 
+{ 
+  try 
+  { throw e;  } 
+  catch (0) 
+  { echo("zero") } 
+  catch ([var x, var y]) 
+  { echo(x + y) } 
+} | {}; 
+ 
+try   { echo("try") } 
+catch { echo("catch")} 
+else  { echo("else")}; 
+ 
+       
+try 
+{ 
+  echo("inside"); 
+} 
+finally 
+{ 
+  echo("finally"); 
+}; 
+//[00000001] *** inside 
+//[00000002] *** finally
+       
+at (e?(var start) ~ 1s) 
+  echo("in : %s" % (time - start).round) 
+onleave 
+  echo("out: %s" % (time - start).round); 
+ 
+// This emission is too short to trigger the at. 
+e!(time); 
+ 
+// This one is long enough. 
+// The body triggers 1s after the emission started. 
+e!(time) ~ 2s; 
+//[00001000] *** in : 1 
+//[00002000] *** out: 2
+       
+
+timeout (2.1s) 
+  every (1s) 
+    echo("Are you still there?"); 
+//[00000000] *** Are you still there? 
+//[00001000] *** Are you still there? 
+//[00002000] *** Are you still there?
+       
+  every| (1s) 
+  { 
+    echo("aba"); 
+  }; 
+
+for, (var i = 3; 0 < i; i -= 1) 
+{ 
+  echo (i); 
+}; 
+ 
+ 
+for& (var i: [0, 1, 2]) 
+{ 
+  echo (i * i); 
+}; 
+ 
+loop,{ 
+}; 
+
+
+waituntil (e?(1, var b)); 
+
+whenever (e?("arg", var arg) if arg % 2) 
+  echo("e (%s) on" % arg) 
+else 
+  echo("e off"); 
+
+
+  while, (i) 
+  { 
+    var j = i -= 1; 
+  }| 
+ 
+ 
+var y = 0; 
+{ 
+  sleep(0.5s); 
+  y = 100 smooth:3s, 
+},
+
+       
+ 
+