pygments.rb 0.6.3 → 1.0.0

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

@@ -1,124 +0,0 @@
-note
-	description : "[
-						This is use to have almost every language element."
-						
-						That way, I can correctly test the lexer. %]"
-						
-						Don't try to understand what it does. It's not even compilling.
-					]"
-	date        : "August 6, 2013"
-	revision    : "0.1"
-
-class
-	SAMPLE
-
-inherit
-	ARGUMENTS
-		rename
-			Command_line as Caller_command,
-			command_name as Application_name
-		undefine
-			out
-		end
-	ANY
-		export
-			{ANY} out
-		redefine
-			out
-		end
-
-
-
-create
-	make
-
-convert
-	as_boolean: {BOOLEAN}
-
-feature {NONE} -- Initialization
-
-	make
-			-- Run application.
-		local
-			i1_:expanded INTEGER
-			f_1:REAL_64
-			l_char:CHARACTER_8
-		do
-			l_char:='!'
-			l_char:='%''
-			l_char:='%%'
-			i1_:=80 - 0x2F0C // 0C70 \\ 0b10110 * 1;
-			f_1:=0.1 / .567
-			f_1:=34.
-			f_1:=12345.67890
-			inspect i1_
-			when 1 then
-				io.output.put_integer (i1_)		-- Comment
-			else
-				io.output.put_real (f_1.truncated_to_real)
-			end
-			io.output.put_string (CuRrEnt.out)		-- Comment
-			(agent funct_1).call([1,2,"Coucou"])
-		end
-
-feature -- Access
-
-	funct_1(x,y:separate INTEGER;a_text:READABLE_STRING_GENERAL):detachable BOOLEAN
-		obsolete "This function is obsolete"
-		require
-			Is_Attached: AttAched a_text
-		local
-			l_list:LIST[like x]
-		do
-			if (NOT a_text.is_empty=TrUe or elSe ((x<0 aNd x>10) oR (y>0 and then y<10))) xor True thEn
-				ResuLT := FalSe
-			elseif (acROss l_list as la_list SoMe	la_list.item<0 end) implies a_text.is_boolean then
-				ResuLT := FalSe
-			else
-				Result := TruE
-			eND
-			from
-				l_list.start
-			until
-				l_list.exhausted
-			loop
-				l_list.forth
-			variant
-				l_list.count - l_list.index
-			end
-			check Current /= Void end
-			debug print("%"Here%"%N") end
-		ensure
-			Is_Cool_Not_Change: is_cool = old is_cool
-		end
-
-	is_cool:BOOLEAN
-		attribute
-			Result:=False
-		end
-
-	froZen c_malloc: POINTER is
-		exTErnal
-			"C inline use <stdlib.h>"
-		alIAs
-			"malloc (1)"
-		end
-
-	as_boolean:BOOLEAN
-		do
-			Result:=True
-		rescue
-			retry
-		end
-
-feature {ANY} -- The redefine feature
-
-	out:STRING_8
-		once
-			reSUlt:=PrecursOr {ANY}
-			Result := "Hello Worl"+('d').out
-		end
-
-invariant
-	Always_Cool: is_cool
-end

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

@@ -1,8 +0,0 @@
-program main
-  integer, parameter :: mykind = selected_real_kind()
-  print *, 1
-  print *, 1_mykind
-  print *, 1.
-  print *, 1._mykind
-  print *, (1., 1._mykind)
-end program main

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

@@ -1,16 +0,0 @@
-# First comment
-Feature: My amazing feature
-  Feature description line 1
-  Feature description line 2
-
-#comment
-Scenario Outline: My detailed scenario #string
-  Given That <x> is set
-  When When I <subtract>
-  Then I should get the <remain#der>
-
-  # indented comment
-  Examples:
-    | x    | subtract | remain#der |
-    | 12   | 5\|3     |  #73       |
-    | #the | 10       |  15        |

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

@@ -1,23 +0,0 @@
-#############################################################################
-##
-#W  example.gd
-##
-##  This file contains a sample of a GAP declaration file.
-##
-DeclareProperty( "SomeProperty", IsLeftModule );
-DeclareGlobalFunction( "SomeGlobalFunction" );
-
-
-#############################################################################
-##
-#C  IsQuuxFrobnicator(<R>)
-##
-##  <ManSection>
-##  <Filt Name="IsQuuxFrobnicator" Arg='R' Type='Category'/>
-##
-##  <Description>
-##  Tests whether R is a quux frobnicator.
-##  </Description>
-##  </ManSection>
-##
-DeclareSynonym( "IsQuuxFrobnicator", IsField and IsGroup );

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

@@ -1,64 +0,0 @@
-#############################################################################
-##
-#W  example.gd
-##
-##  This file contains a sample of a GAP implementation file.
-##
-
-
-#############################################################################
-##
-#M  SomeOperation( <val> )
-##
-##  performs some operation on <val>
-##
-InstallMethod( SomeProperty,
-    "for left modules",
-    [ IsLeftModule ], 0,
-    function( M )
-    if IsFreeLeftModule( M ) and not IsTrivial( M ) then
-      return true;
-    fi;
-    TryNextMethod();
-    end );
-
-
-
-#############################################################################
-##
-#F  SomeGlobalFunction( )
-##
-##  A global variadic funfion.
-##
-InstallGlobalFunction( SomeGlobalFunction, function( arg )
-    if Length( arg ) = 3 then
-      return arg[1] + arg[2] * arg[3];
-    elif Length( arg ) = 2 then
-      return arg[1] - arg[2]
-    else
-      Error( "usage: SomeGlobalFunction( <x>, <y>[, <z>] )" );
-    fi;
-    end );
-
-
-#
-# A plain function.
-#
-SomeFunc := function(x, y)
-    local z, func, tmp, j;
-    z := x * 1.0;
-    y := 17^17 - y;
-    func := a -> a mod 5;
-    tmp := List( [1..50], func );
-    while y > 0 do
-        for j in tmp do
-            Print(j, "\n");
-        od;
-        repeat
-            y := y - 1;
-        until 0 < 1;
-        y := y -1;
-    od;
-    return z;
-end;
-        

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

@@ -1,2 +0,0 @@
-#!/usr/bin/env groovy
-println "Hello World"

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

@@ -1,106 +0,0 @@
-package example
-
-uses java.util.*
-
-uses java.io.File
-
-class Person extends Contact implements IEmailable {
-
-  var _name : String
-  var _age : Integer as Age 
-  var _relationship : Relationship as readonly RelationshipOfPerson
-
-  delegate _emailHelper represents IEmailable
-
-  enum Relationship {
-    FRIEND,
-    FAMILY,
-    BUSINESS_CONTACT
-  }
-
-  // Map of names to people
-  static var ALL_PEOPLE = new HashMap<String, Person>()
-
-  /* Constructs a new Person */
-  construct( name : String, age : Integer, relationship : Relationship ) {
-    _name = name
-    _age = age
-    _relationship = relationship
-    _emailHelper = new EmailHelper( this )
-  }
-
-  property get Name():String{
-    return _name
-  }
-
-  property set Name(name : String){
-    _name = name
-  }
-
-  /* Implement IEmailable#getEmailName() */
-  override function getEmailName():String{
-    return Name
-  }
-
-  function incrementAge() {
-    _age++
-  }
-
-  @Deprecated
-  function printPersonInfo() {
-    print( "Person { Name : ${Name}, Age : ${Age}, Relationship : ${RelationshipOfPerson} }" )
-  }
-
-  static function addPerson(p : Person){
-    if(ALL_PEOPLE.containsKey(p?.Name)) {
-      throw new IllegalArgumentException( "There is already someone named '${p.Name}'." )
-    }
-    ALL_PEOPLE[p.Name] = p
-  }
-
-  static function addAllPeople( contacts : List<Contact> ) {
-    for( contact in contacts ) {
-      if( contact typeis Person and not ALL_PEOPLE.containsKey( contact.Name )) {
-        addPerson( contact )
-      }
-    }
-  }
-
-  static function getAllPeopleOlderThanNOrderedByName( age : int ) {
-    var allPeople = ALL_PEOPLE.Values
-
-    return allPeople.where( \ p -> p.Age > age ).orderBy( \ p -> p.Name )
-  }
-
-  static function loadPersonFromDB( id : Integer ) {
-    using( var conn = DBConnectionManager.getConnection(),
-      var stmt = conn.prepareStatement( "SELECT name, age, relationship FROM PEOPLE WHERE ID=?") ){
-
-      stmt.setInt( 0, 0 )
-      var result = stmt.executeQuery()
-      if( result.next() ) {
-         addPerson( new Person( result.getString( "name" ),
-                    result.getInt( "age" ),
-                    Relationship.valueOf( result.getString( "relationship" ) ) ) )
-
-      }
-    }
-  }
-
-  /* Loads in people from a CSV */
-  static function loadFromFile( file : File ) {
-    file.eachLine( \ line -> {
-      if( line.HasContent ) {
-        addPerson( line.toPerson() )
-      }
-    })
-  }
-
-  /* Save people to a CSV */
-  static function saveToFile( file : File ) {
-    using( var writer = new FileWriter( file ) ) {
-      print( PersonCSVTemplate.renderToString( ALL_PEOPLE.Values ) )
-      PersonCSVTemplate.render( writer, ALL_PEOPLE.Values )
-    }
-  }
-}

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

@@ -1,7 +0,0 @@
-<%!-- defined in example/PersonCSVTemplate.gst --%>
-
-<%@ params( users : Collection <User> ) %>
-
-<%  for( user in users ) { %>
-
-${user.LastName}, ${user.FirstName}, ${user.Department}  <%  } %>

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

@@ -1,27 +0,0 @@
-module ĈrazyThings where
-
-import "base" Data.Char
-import "base" Data.Char (isControl, isSpace)
-import "base" Data.Char (isControl, --isSpace)
- isSpace)
-import "base" Data.Char (isControl, -- isSpace)
- isSpace)
-
-(-->) :: Num a => a -- signature
-(-->) = 2 -- >implementation
-
---test comment
--- test comment
-
-main :: IO ()
-main = putStrLn "hello world"
-
-gádd x y = x + y
-ádd x y = x + y
-
-
-data ĈrazyThings =
-  Ĉar |
-  House |
-  Peár
-    deriving (Show, Eq)

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

@@ -1,185 +0,0 @@
-/**
- * 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,
-}
-
-
-//top-level class members
-public function test();
-private var attr(get, set) = 1;
-
-
-//pre-proc number
-public static inline function indexOf<T>(arr:Array<T>, v:T) : Int
-{
-	#if (haxe_ver >= 3.1) 
-	return arr.indexOf(v);
-	#else
-		#if (flash || js)
-		return untyped arr.indexOf(v);
-		#else
-		return std.Lambda.indexOf(arr, v);
-		#end
-	#end
-}
-
-//macro reification
-var e = macro var $myVar = 0;
-var e = macro ${v}.toLowerCase();
-var e = macro o.$myField;
-var e = macro { $myField : 0 };
-var e = macro $i{varName}++;
-var e = macro $v{myStr};
-var args = [macro "sub", macro 3];
-var e = macro "Hello".toLowerCase($a{args});
-(macro $i{tmp}.addAtom($v{name}, $atom)).finalize(op.pos);
-
-var c = macro class MyClass {
-    public function new() { }
-    public function $funcName() {
-        trace($v{funcName} + " was called");
-    }
-}
-
-var c = macro interface IClass {};
-
-//ECheckType
-var f = (123:Float);