pygments.rb 0.5.2 → 0.5.4

data/vendor/pygments-main/tests/examplefiles/RoleQ.pm6

@@ -0,0 +1,23 @@
+role q {
+    token stopper { \' }
+
+    token escape:sym<\\> { <sym> <item=.backslash> }
+
+    token backslash:sym<qq> { <?before 'q'> <quote=.LANG('MAIN','quote')> }
+    token backslash:sym<\\> { <text=.sym> }
+    token backslash:sym<stopper> { <text=.stopper> }
+
+    token backslash:sym<miscq> { {} . }
+
+    method tweak_q($v) { self.panic("Too late for :q") }
+    method tweak_qq($v) { self.panic("Too late for :qq") }
+}
+
+role qq does b1 does c1 does s1 does a1 does h1 does f1 {
+    token stopper { \" }
+    token backslash:sym<unrec> { {} (\w) { self.throw_unrecog_backslash_seq: $/[0].Str } }
+    token backslash:sym<misc> { \W }
+
+    method tweak_q($v) { self.panic("Too late for :q") }
+    method tweak_qq($v) { self.panic("Too late for :qq") }
+}

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

@@ -1,33 +1,52 @@
+import ceylon.language { parseInteger }
+
 doc "A top-level function,
      with multi-line documentation."
-void topLevel(String? a, Integer b=5, String... seqs) {
+void topLevel(String? a, Integer b=5, String* seqs) {
     function nested(String s) {
         print(s[1..2]);
         return true;
     }
-    for (s in seqs.filter((String x) x.size > 2)) {
+    for (s in seqs.filter((String x) => x.size > 2)) {
         nested(s);
     }
-    value uppers = seqs.sequence[].uppercased;
-    String|Nothing z = a;
-    Sequence<Integer> ints = { 1, 2, 3, 4, 5 };
+    value uppers = seqs.map((String x) {
+        return x.uppercased;
+    });
+    String|Null z = a;
+    {Integer+} ints = { 1, 2, 3, 4, 5 };
+    value numbers = [ 1, #ffff, #ffff_ffff, $10101010, $1010_1010_1010_1010,
+        123_456_789 ];
+    value chars = ['a', '\{#ffff}' ];
 }
 
-shared class Example<Element>(name, element) satisfies Comparable<Example<Element>>
+shared class Example_1<Element>(name, element) satisfies Comparable<Example_1<Element>>
         given Element satisfies Comparable<Element> {
     shared String name;
     shared Element element;
+    shared [Integer,String] tuple = [1, "2"];
+    shared late String lastName;
+    variable Integer cnt = 0;
+
+    shared Integer count => cnt;
+    assign count {
+        assert(count >= cnt);
+        cnt = count;
+    }
 
-    shared actual Comparison compare(Example<Element> other) {
+    shared actual Comparison compare(Example_1<Element> other) {
         return element <=> other.element;
     }
 
     shared actual String string {
-        return "Example with " + element.string;
+        return "Example with ``element.string``";
     }
 }
 
-Example<Integer> instance = Example {
-    name = "Named args call";
+Example_1<Integer> instance = Example_1 {
     element = 5;
+    name = "Named args call \{#0060}";
 };
+
+object example1 extends Example_1<Integer>("object", 5) {
+}

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

@@ -0,0 +1,33 @@
+
+/// @section  StringLiteralRef 
+
+record StringLiteralRef (
+    sizep : Pointer[SizeT],
+);
+
+
+/// @section  predicates 
+
+overload ContiguousSequence?(#StringLiteralRef) : Bool = true;
+[s when StringLiteral?(s)]
+overload ContiguousSequence?(#Static[s]) : Bool = true;
+
+
+
+/// @section  size, begin, end, index 
+
+forceinline overload size(a:StringLiteralRef) = a.sizep^;
+
+forceinline overload begin(a:StringLiteralRef) : Pointer[Char] = Pointer[Char](a.sizep + 1);
+forceinline overload end(a:StringLiteralRef) = begin(a) + size(a);
+
+[I when Integer?(I)]
+forceinline overload index(a:StringLiteralRef, i:I) : ByRef[Char] {
+    assert["boundsChecks"](i >= 0 and i < size(a), "StringLiteralRef index out of bounds");
+    return ref (begin(a) + i)^;
+}
+
+foo() = """
+long\tlong
+story
+"""

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

@@ -0,0 +1,142 @@
+/**
+ * This is not really a valid Haxe file, but just an demo...
+ */
+
+package;
+package net.onthewings;
+
+import net.onthewings.Test;
+import net.onthewings.*;
+
+using Lambda;
+using net.onthewings.Test;
+
+#if flash8
+// Haxe code specific for flash player 8
+#elseif flash
+// Haxe code specific for flash platform (any version)
+#elseif js
+// Haxe code specific for javascript plaform
+#elseif neko
+// Haxe code specific for neko plaform
+#else 
+// do something else
+    #error  // will display an error "Not implemented on this platform"
+    #error "Custom error message" // will display an error "Custom error message"
+#end
+
+0; // Int
+-134; // Int
+0xFF00; // Int
+
+123.0; // Float
+.14179; // Float
+13e50; // Float
+-1e-99; // Float
+
+"hello"; // String
+"hello \"world\" !"; // String
+'hello "world" !'; // String
+
+true; // Bool
+false; // Bool
+
+null; // Unknown<0>
+
+~/[a-z]+/i; // EReg : regular expression
+
+var point = { "x" : 1, "y" : -5 };
+
+{
+    var x;
+    var y = 3;
+    var z : String;
+    var w : String = "";
+    var a, b : Bool, c : Int = 0;
+}
+
+//haxe3 pattern matching
+switch(e.expr) {
+	case EConst(CString(s)) if (StringTools.startsWith(s, "foo")):
+		"1";
+	case EConst(CString(s)) if (StringTools.startsWith(s, "bar")):
+		"2";
+	case EConst(CInt(i)) if (switch(Std.parseInt(i) * 2) { case 4: true; case _: false; }):
+		"3";
+	case EConst(_):
+		"4";
+	case _:
+		"5";
+}
+
+switch [true, 1, "foo"] {
+	case [true, 1, "foo"]: "0";
+	case [true, 1, _]: "1";
+	case _: "_";
+}
+
+
+class Test <T:Void->Void> {
+	private function new():Void {
+		inline function innerFun(a:Int, b:Int):Int {
+			return readOnlyField = a + b;
+		}
+		
+		_innerFun(1, 2.3);
+	}
+	
+	static public var instance(get,null):Test;
+	static function get_instance():Test {
+		return instance != null ? instance : instance = new Test();
+	}
+}
+
+@:native("Test") private class Test2 {}
+
+extern class Ext {}
+
+@:macro class M {
+	@:macro static function test(e:Array<Expr>):ExprOf<String> {
+		return macro "ok";
+	}
+}
+
+enum Color {
+    Red;
+    Green;
+    Blue;
+    Grey( v : Int );
+    Rgb( r : Int, g : Int, b : Int );
+    Alpha( a : Int, col : Color );
+}
+
+class Colors {
+    static function toInt( c : Color ) : Int {
+        return switch( c ) {
+            case Red: 0xFF0000;
+            case Green: 0x00FF00;
+            case Blue: 0x0000FF;
+            case Grey(v): (v << 16) | (v << 8) | v;
+            case Rgb(r,g,b): (r << 16) | (g << 8) | b;
+            case Alpha(a,c): (a << 24) | (toInt(c) & 0xFFFFFF);
+        }
+    }
+}
+
+class EvtQueue<T : (Event, EventDispatcher)> {
+    var evt : T;
+}
+
+typedef DS = Dynamic<String>;
+typedef Pt = {
+	var x:Float;
+	var y:Float;
+	@:optional var z:Float; /* optional z */
+	function add(pt:Pt):Void;
+}
+typedef Pt2 = {
+	x:Float,
+	y:Float,
+	?z:Float, //optional z
+	add : Point -> Void,
+}

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

@@ -0,0 +1,19 @@
+\documentclass{article}
+% this is a LaTeX comment
+\usepackage{agda}
+
+\begin{document}
+
+Here's how you can define \emph{RGB} colors in Agda:
+
+\begin{code}
+module example where
+
+open import Data.Fin
+open import Data.Nat
+
+data Color : Set where
+    RGB : Fin 256 → Fin 256 → Fin 256 → Color
+\end{code}
+
+\end{document}

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

@@ -0,0 +1,50 @@
+/* REXX example. */
+
+/* Some basic constructs. */
+almost_pi = 0.1415 + 3
+if almost_pi < 3 then
+   say 'huh?'
+else do
+   say 'almost_pi=' almost_pi || " - ok"
+end
+x = '"' || "'" || '''' || """" /* quotes */
+
+/* A comment
+ * spawning multiple
+   lines. /* / */
+
+/* Built-in functions. */
+line = 'line containing some short text'
+say WordPos(line, 'some')
+say Word(line, 4)
+
+/* Labels and procedures. */
+some_label :
+
+divide: procedure
+    parse arg some other
+    return some / other
+
+call divide(5, 2)
+
+/* Loops */
+do i = 1 to 5
+    do j = -3 to -9 by -3
+        say i '+' j '=' i + j
+    end j
+end i
+
+do forever
+  leave
+end
+
+/* Print a text file on MVS. */
+ADDRESS TSO
+"ALLOC F(TEXTFILE) DSN('some.text.dsn') SHR REU"
+"EXECIO * DISKR TEXTFILE ( FINIS STEM LINES."
+"FREE F(TEXTFILE)"
+I = 1
+DO WHILE I <= LINES.0
+    SAY ' LINE ' I ' : ' LINES.I
+    I = I + 1
+END

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

@@ -6,92 +6,103 @@ 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;
+  // 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;
 }
 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;
-     
+  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;
-    
+  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);
+  // ~, <- are operators, 
+  // T may be be recognized
+  // normal is a function
+  fred ~ normal(0, 1) T(-0.5, 0.5);
+  real tmp;
+  // C++ reserved
+  real public;
+  
+  // control structures
+  for (i in 1:10) {
+    tmp <- tmp + 0.1;
+  }
+  tmp <- 0.0;
+  while (tmp < 5.0) {
+    tmp <- tmp + 1;
+  }
+  if (tmp > 0.0) {
+    print(tmp);
+  } else {
+    print(tmp);
+  }
 
-   // print statement and string literal
-   print("abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789_~@#$%^&*`'-+={}[].,;: ");
-   print("Hello, world!");
-   print("");
+  // operators
+  tmp || tmp;
+  tmp && tmp;
+  tmp == tmp;
+  tmp != tmp;   
+  tmp < tmp;
+  tmp <= tmp;
+  tmp > tmp;
+  tmp >= tmp;
+  tmp + tmp;
+  tmp - tmp;
+  tmp * tmp;
+  tmp / tmp;
+  tmp .* tmp;
+  tmp ./ tmp;
+  ! tmp;
+  - tmp;
+  + tmp;
+  tmp ';
 
+  // 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;
+  real bar1;
+  bar1 <- foo + 1;
 }
 
-## Baddness
-//foo <- 2.0;
-//foo ~ normal(0, 1);
-//not_a_block {
-//}
-
-/*
-what happens with this? 
-*/
-// */