pygments.rb 0.5.4 → 0.6.0

data/vendor/pygments-main/tests/examplefiles/livescript-demo.ls

@@ -7,7 +7,9 @@ dashes-identifiers = ->
 underscores_i$d = ->
   /regexp1/
   //regexp2//g
-  'strings' and "strings" and \strings
+  'strings' and "strings" and \strings and \#$-"\'strings
+
+another-word-list = <[ more words ]>
 
 [2 til 10]
   |> map (* 2)

data/vendor/pygments-main/tests/examplefiles/main.cmake

@@ -1,3 +1,5 @@
+CMAKE_MINIMUM_REQUIRED(VERSION 2.6 FATAL_ERROR)
+
 SET( SOURCES back.c io.c main.c )
 MESSAGE( ${SOURCES}   )      # three arguments, prints "back.cio.cmain.c"
 MESSAGE( "${SOURCES}" )      # one argument,    prints "back.c;io.c;main.c"

data/vendor/pygments-main/tests/examplefiles/objc_example.m

@@ -1,32 +1,179 @@
-#import "Somefile.h"
+// Test various types of includes
+#import <Foundation/Foundation.h>
+# import <AppKit/AppKit.h>
+#import "stdio.h"
+#\
+  import \
+  "stdlib.h"
+# /*line1*/ \
+import /* line 2 */ \
+"stdlib.h" // line 3
 
-@implementation ABC
+// Commented out code with preprocessor
+#if 0
+#define MY_NUMBER 3
+#endif
 
-- (id)a:(B)b {
-    return 1;
+ #\
+  if 1
+#define TEST_NUMBER 3
+#endif
+
+// Empty preprocessor
+#
+
+// Class forward declaration
+@class MyClass;
+
+// Empty classes
+@interface EmptyClass
+@end
+@interface EmptyClass2
+{
+}
+@end
+@interface EmptyClass3 : EmptyClass2
+{
+}
+@end
+
+// Custom class inheriting from built-in
+@interface MyClass : NSObject
+{
+@public
+  NSString *myString;
+  __weak NSString *_weakString;
+@protected
+  NSTextField *_textField;
+@private
+  NSDate *privateDate;
 }
 
+// Various property aatributes
+@property(copy, readwrite, nonatomic) NSString *myString;
+@property(weak) NSString *weakString;
+@property(retain, strong, atomic) IBOutlet NSTextField *textField;
+
+// Class methods
++ (void)classMethod1:(NSString *)arg;
++ (void)classMethod2:(NSString *) arg; // Test space before arg
+
 @end
 
-@implementation ABC
+typedef id B;
 
-- (void)xyz;
+#pragma mark MyMarker
 
+// MyClass.m
+// Class extension to declare private property
+@interface MyClass ()
+@property(retain) NSDate *privateDate;
+- (void)hiddenMethod;
 @end
 
-NSDictionary *dictionary = [NSDictionary dictionaryWithObjectsAndKeys:
-    @"quattuor", @"four", @"quinque", @"five", @"sex", @"six", nil];
+// Special category
+@interface MyClass (Special)
+@property(retain) NSDate *specialDate;
+@end
+
+@implementation MyClass
+@synthesize myString;
+@synthesize privateDate;
+
+- (id)a:(B)b {
+  /**
+   * C-style comment
+   */
+
+  // Selector keywords/types
+  SEL someMethod = @selector(hiddenMethod);
+
+  // Boolean types
+  Boolean b1 = FALSE;
+  BOOL b2 = NO;
+  bool b3 = true;
 
+  /**
+   * Number literals
+   */
+  // Int Literal
+  NSNumber *n1 = @( 1 );
+  // Method call
+  NSNumber *n2 = @( [b length] );
+  // Define variable
+  NSNumber *n3 = @( TEST_NUMBER );
+  // Arthimetic expression
+  NSNumber *n4 = @(1 + 2);
+  // From variable
+  int myInt = 5;
+  NSNumber *n5 = @(myInt);
+  // Nest expression
+  NSNumber *n6 = @(1 + (2 + 6.0));
+  // Bool literal
+  NSNumber *n7 = @NO;
+  // Bool expression
+  NSNumber *n8 = @(YES);
+  // Character
+  NSNumber *n9 = @'a';
+  // int
+  NSNumber *n10 = @123;
+  // unsigned
+  NSNumber *n11 = @1234U;
+  // long
+  NSNumber *n12 = @1234567890L;
+  // float
+  NSNumber *n13 = @3.14F;
+  // double
+  NSNumber *n14 = @3.14F;
+  
+  // Array literals
+  NSArray *arr = @[ @"1", @"2" ];
+  arr = @[ @[ @"1", @"2" ], [arr lastObject] ];
+  [arr lastObject];
+  [@[ @"1", @"2" ] lastObject];
+  
+  // Dictionary literals
+  NSDictionary *d = @{ @"key": @"value" };
+  [[d allKeys] lastObject];
+  [[@{ @"key": @"value" } allKeys] lastObject];
+  d = @{ @"key": @{ @"key": @"value" } };
 
-NSString *key;
-for (key in dictionary) {
-    NSLog(@"English: %@, Latin: %@", key, [dictionary valueForKey:key]);
+  [self hiddenMethod];
+  [b length];
+  [privateDate class];
+
+  NSDictionary *dictionary = [NSDictionary dictionaryWithObjectsAndKeys:
+                              @"1", @"one", @"2", @"two", @"3", @"three", nil];
+  
+  NSString *key;
+  for (key in dictionary) {
+    NSLog(@"Number: %@, Word: %@", key, [dictionary valueForKey:key]);
+  }
+
+  // Blocks
+  int (^myBlock)(int arg1, int arg2);
+  NSString *(^myName)(NSString *) = ^(NSString *value) {
+    return value;
+  };
+
+  return nil;
 }
 
-// Literals
-NSArray *a = @[ @"1", @"2" ];
+- (void)hiddenMethod {
+  // Synchronized block
+  @synchronized(self) {
+    [myString retain];
+    [myString release];
+  }
+}
 
-NSDictionary *d = @{ @"key": @"value" };
++ (void)classMethod1:(NSString *)arg {}
++ (void)classMethod2:(NSString *) arg
+{
+  // Autorelease pool block
+  @autoreleasepool {
+    NSLog(@"Hello, World!");
+  }
+}
 
-NSNumber *n1 = @( 1 );
-NSNumber *n2 = @( [a length] );
+@end

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

@@ -0,0 +1,25 @@
+{include.i}
+{nested.i {include.i}}
+
+&SCOPED-DEFINE MY_NAME "Abe"
+
+DEF VAR i AS INT NO-UNDO.
+i = 0xABE + 1337 / (1 * 1.00)
+
+def var clowercasetest as char no-undo.
+DEF VAR vardashtest AS DATETIME-TZ NO-UNDO.
+
+DEFINE TEMP-TABLE ttNames NO-UNDO
+  FIELD cName AS CHAR
+  INDEX IXPK_ttNames IS PRIMARY UNIQUE cName.
+
+/* One-line comment */
+/* Two-line
+   Comment  */
+
+CREATE ttNames.
+ASSIGN ttNames.cName = {&MY_NAME}.
+
+FOR EACH ttNames:
+  MESSAGE "Hello, " + ttNames.cName + '!' VIEW-AS ALERT-BOX.
+END.

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

@@ -0,0 +1,2 @@
+10 print RIGHT$("hi there", 5)
+20 goto 10

data/vendor/pygments-main/tests/examplefiles/r6rs-comments.scm

@@ -0,0 +1,23 @@
+#!r6rs
+
+#|
+
+   The FACT procedure computes the factorial
+
+   of a non-negative integer.
+
+|#
+
+(define fact
+
+  (lambda (n)
+
+    ;; base case
+
+    (if (= n 0)
+
+        #;(= n 1)
+
+        1       ; identity of *
+
+        (* n (fact (- n 1))))))

data/vendor/pygments-main/tests/examplefiles/rql-queries.rql

@@ -0,0 +1,34 @@
+Any N, N2 where N is Note, N2 is Note, N a_faire_par P1, P1 nom 'john', N2 a_faire_par P2, P2 nom 'jane' ;
+DISTINCT Any N, D, C, T, A ORDERBY D DESC LIMIT 40 where N is Note, N diem D, W is Workcase, W concerned_by N, N cost C, N text T, N author A, N diem <= today
+Bookmark B WHERE B owned_by G, G eid 5;
+Any X WHERE E eid 22762, NOT E is_in X, X modification_date D ORDERBY D DESC LIMIT 41;
+Any A, R, SUB ORDERBY R WHERE A is "Workcase", S is Division, S concerned_by A, A subject SUB, S eid 85, A ref R;
+Any D, T, L WHERE D is Document, A concerned_by D,A eid 14533, D title T, D location L;
+Any N,A,B,C,D ORDERBY A DESC WHERE N is Note, W concerned_by N, W eid 14533, N diem A,N author B,N text C,N cost D;
+Any X ORDERBY D DESC LIMIT 41 WHERE E eid 18134, NOT E concerned_by X, X modification_date D
+DISTINCT Any N, D, C, T, A ORDERBY D ASC LIMIT 40 WHERE N is Note, N diem D, P is Person, N to_be_contacted_by G, N cost C, N text T, N author A, G login "john";
+INSERT Person X: X surname "Doe", X firstname "John";
+Workcase W where W ref "ABCD12";
+Workcase W where W ref LIKE "AB%";
+Any X WHERE X X eid 53
+Any X WHERE X Document X occurence_of F, F class C, C name 'Comics' X owned_by U, U login 'syt' X available true
+Person P WHERE P work_for P, S name 'Acme', P interested_by T, T name 'training'
+Note N WHERE N written_on D, D day> (today -10), N written_by P, P name 'joe' or P name 'jack'
+Person P WHERE (P interested_by T, T name 'training') or (P city 'Paris')
+Any N, P WHERE X is Person, X name N, X first_name P
+String N, P WHERE X is Person, X name N, X first_name P
+INSERT Person X: X name 'widget'
+INSERT Person X, Person Y: X name 'foo', Y name 'nice', X friend Y
+INSERT Person X: X name 'foo', X friend  Y WHERE name 'nice'
+SET X name 'bar', X first_name 'original' where X is Person X name 'foo'
+SET X know Y  WHERE X friend Y
+DELETE Person X WHERE X name 'foo'
+DELETE X friend Y WHERE X is Person, X name 'foo'
+Any X WHERE X name LIKE '%lt'
+Any X WHERE X name IN ( 'joe', 'jack', 'william', 'averell')
+Any X, V WHERE X concerns P, P eid 42, X corrected_in V?
+Any C, P WHERE C is Card, P? documented_by C
+Point P where P abs X, P ord Y, P value X+Y
+Document X where X class C, C name 'Cartoon', X owned_by U, U login 'joe', X available true
+(Any X WHERE X is Document) UNION (Any X WHERE X is File)
+Any A,B WHERE A creation_date B WITH A BEING (Any X WHERE X is Document) UNION (Any X WHERE X is File)

data/vendor/pygments-main/tests/examplefiles/scope.cirru

@@ -0,0 +1,43 @@
+
+-- https://github.com/Cirru/cirru-gopher/blob/master/code/scope.cr
+
+set a (int 2)
+
+print (self)
+
+set c (child)
+
+under c
+  under parent
+    print a
+
+print $ get c a
+
+set c x (int 3)
+print $ get c x
+
+set just-print $ code
+  print a
+
+print just-print
+
+eval (self) just-print
+eval just-print
+
+print (string "string with space")
+print (string "escapes \n \"\\")
+
+brackets ((((()))))
+
+"eval" $ string "eval"
+
+print (add $ (int 1) (int 2))
+
+print $ unwrap $
+  map (a $ int 1) (b $ int 2)
+
+print a
+  int 1
+  , b c
+  int 2
+  , d

data/vendor/pygments-main/tests/examplefiles/sparql.rq

@@ -0,0 +1,23 @@
+# This is a test SPARQL query
+
+PREFIX foaf: <http://xmlns.com/foaf/0.1/>
+PREFIX ex: <http://example.org/>
+PREFIX xsd: <http://www.w3.org/2001/XMLSchema#>
+PREFIX dcterms: <http://purl.org/dc/terms/>
+
+SELECT ?person (COUNT(?nick) AS ?nickCount) {
+    ?person foaf:nick ?nick ;
+      foaf:lastName "Smith" ;
+      foaf:age "21"^^xsd:int ;
+      ex:title 'Mr' ; # single-quoted string
+      ex:height 1.80 ; # float
+      ex:distanceToSun +1.4e8 ; # float with exponent
+      ex:ownsACat true ;
+      dcterms:description "Someone with a cat called \"cat\"."@en .
+    OPTIONAL { ?person foaf:isPrimaryTopicOf ?page }
+    OPTIONAL { ?person foaf:name ?name
+               { ?person foaf:depiction ?img }
+               UNION
+               { ?person foaf:firstName ?firstN } }
+    FILTER ( bound(?page) || bound(?img) || bound(?firstN) )
+} GROUP BY ?person ORDER BY ?img 

data/vendor/pygments-main/tests/examplefiles/test.R

@@ -33,10 +33,11 @@ NA_foo_ <- NULL
 123456.78901
 123e3
 123E3
-1.23e-3
-1.23e3
-1.23e-3
-## integer constants
+6.02e23	
+1.6e-35	
+1.E12
+.1234
+## integers
 123L
 1.23L
 ## imaginary numbers
@@ -80,7 +81,7 @@ repeat {1+1}
 ## Switch
 x <- 3
 switch(x, 2+2, mean(1:10), rnorm(5))
-## Function, dot-dot-dot, return
+## Function, dot-dot-dot, return, sum
 foo <- function(...) {
     return(sum(...))
 }
@@ -151,3 +152,34 @@ world!'
 
 ## Backtick strings
 `foo123 +!"bar'baz` <- 2 + 2
+
+## Builtin funcitons
+file.create()
+gamma()
+grep()
+paste()
+rbind()
+rownames()
+R.Version()
+R.version.string()
+sample()
+sapply()
+save.image()
+seq()
+setwd()
+sin()
+
+## Data structures
+servo <- matrix(1:25, nrow = 5)
+numeric()
+vector(servo)
+data.frame()
+list1 <- list(time = 1:40)
+# multidimensional array 
+array(c(c(c(2,300,4),c(8,9,0)),c(c(5,60,0),c(66,7,847))), dim=c(3,2,2))
+
+## Namespace
+library(ggplot2)
+require(plyr)
+attach(cars)
+source("test.R")

data/vendor/pygments-main/tests/examplefiles/test.apl

@@ -0,0 +1,26 @@
+∇ R←M COMBIN N;D;E;F;G;P
+  ⍝ Returns a matrix of every possible
+  ⍝ combination of M elements from the
+  ⍝ vector ⍳N.  That is, returns a
+  ⍝ matrix with M!N rows and N columns.
+  ⍝
+  E←(⍳P←N-R←M-1)-⎕IO
+  D←R+⍳P
+  R←(P,1)⍴D
+  P←P⍴1
+ L1:→(⎕IO>1↑D←D-1)⍴0
+  P←+\P
+  G←+\¯1↓0,F←⌽P
+  E←F/E-G
+  R←(F/D),R[E+⍳⍴E;]
+  E←G
+  →L1
+∇
+
+∇ R←M QUICKEXP N
+  ⍝ Matrix exponentiation
+  B ← ⌊ 1 + 2 ⍟ N
+  V ← (B ⍴ 2) ⊤ N
+  L ← ⊂ M
+  R ← ⊃ +.× / V / L ⊣ { L ← (⊂ A +.× A ← ↑L) , L }¨ ⍳ B-1
+∇