pygments.rb 0.6.3 → 1.0.0

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

@@ -1,48 +0,0 @@
-# lsat.jags example from classic-bugs examples in JAGS
-# See http://sourceforge.net/projects/mcmc-jags/files/Examples/2.x/
-var
-   response[R,T], m[R], culm[R], alpha[T], a[T], theta[N], r[N,T],
-   p[N,T], beta, theta.new, p.theta[T], p.item[R,T], P.theta[R];
-data {
-   for (j in 1:culm[1]) {
-      r[j, ] <- response[1, ];
-   }
-   for (i in 2:R) {
-      for (j in (culm[i - 1] + 1):culm[i]) {
-         r[j, ] <- response[i, ];
-      }
-   }
-}
-model {
-  # 2-parameter Rasch model
-  for (j in 1:N) {
-     for (k in 1:T) {
-        probit(p[j,k]) <- delta[k]*theta[j] - eta[k];
-        r[j,k] ~ dbern(p[j,k]);
-     }
-     theta[j] ~ dnorm(0,1);
-  }
-
-  # Priors
-  for (k in 1:T) {
-     eta[k] ~ dnorm(0,0.0001);       
-     e[k] <- eta[k] - mean(eta[]);  # sum-to-zero constraint
-
-     delta[k] ~ dnorm(0,1) T(0,);   # constrain variance to 1, slope +ve
-     d[k] <- delta[k]/pow(prod(delta), 1/T); # PRODUCT_k (d_k) = 1
- 
-     g[k] <- e[k]/d[k];   # equivalent to B&A's threshold parameters
-  }
-
-  # Compute probability of response pattern i, for later use in computing G^2
-  theta.new ~ dnorm(0,1);          # ability parameter for random student 
-  for(k in 1:T) {
-       probit(p.theta[k]) <- delta[k]*theta.new - eta[k];
-       for(i in 1:R) {
-          p.item[i,k] <- p.theta[k]^response[i,k] * (1-p.theta[k])^(1-response[i,k]);
-       }
-  } 
-  for(i in 1:R) {    
-     P.theta[i] <- prod(p.item[i,])
-  }
-}

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

@@ -1,16 +0,0 @@
-class _PostUnico$deClassá
-{void fo$o() {}
-
-  void PostUnicodeFunctioná() {
-  láb$el:
-    break láb$el;
-  
-  }
-}
-
-class áPreUnicode$Class
-{
-  public int $foo;
-  public int á$foo;
-  _PostUnico$deClassá áPreUnicodeFunction() { return null; }
-}

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

@@ -1,75 +0,0 @@
-#!/usr/bin/env kal
-
-# This demo executes GET requests in parallel and in series
-# using `for` loops and `wait for` statements.
-
-# Notice how the serial GET requests always return in order
-# and take longer in total. Parallel requests come back in
-# order of receipt.
-
-http = require 'http'
-
-urls = ['http://www.google.com'
-        'http://www.apple.com'
-        'http://www.microsoft.com'
-        'http://www.nodejs.org'
-        'http://www.yahoo.com']
-
-# This function does a GET request for each URL in series
-# It will wait for a response from each request before moving on
-# to the next request. Notice the output will be in the same order as the
-# urls variable every time regardless of response time.
-# It is a task rather than a function because it is called asynchronously
-# This allows us to use `return` to implicitly call back
-task series_demo()
-  # The `series` keyword is optional here (for loops are serial by default)
-  total_time = 0
-
-  for series url in urls
-    timer = new Date
-
-    # we use the `safe` keyword because get is a "nonstandard" task
-    # that does not call back with an error argument
-    safe wait for response from http.get url
-
-    delay = new Date() - timer
-    total_time += delay
-
-    print "GET #{url} - #{response.statusCode} - #{response.connection.bytesRead} bytes - #{delay} ms"
-
-  # because we are in a task rather than a function, this actually exectutes a callback
-  return total_time
-
-# This function does a GET request for each URL in parallel
-# It will NOT wait for a response from each request before moving on
-# to the next request. Notice the output will be determined by the order in which
-# the requests complete!
-task parallel_demo()
-  total_time = 0
-
-  # The `parallel` keyword is only meaningful here because the loop contains
-  # a `wait for` statement (meaning callbacks are used)
-  for parallel url in urls
-    timer = new Date
-
-    # we use the `safe` keyword because get is a "nonstandard" task
-    # that does not call back with an error argument
-    safe wait for response from http.get url
-
-    delay = new Date() - timer
-    total_time += delay
-
-    print "GET #{url} - #{response.statusCode} - #{response.connection.bytesRead} bytes - #{delay}ms"
-
-  # because we are in a task rather than a function, this actually exectutes a callback
-  return total_time
-
-print 'Series Requests...'
-wait for time1 from series_demo()
-print "Total duration #{time1}ms"
-
-print ''
-
-print 'Parallel Requests...'
-wait for time2 from parallel_demo()
-print "Total duration #{time2}ms"

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

@@ -1,47 +0,0 @@
-package addressbook
-
-class Contact(
-  val name : String,
-  val emails : List<EmailAddress>,
-  val addresses : List<PostalAddress>,
-  val phonenums : List<PhoneNumber>
-)
-
-class EmailAddress(
-  val user : String,
-  val host : String
-)
-
-class PostalAddress(
-  val streetAddress : String,
-  val city : String,
-  val zip : String,
-  val state : USState?,
-  val country : Country
-) {
-   assert {(state == null) xor (country == Countries["US"]) }
-}
-
-class PhoneNumber(
-  val country : Country,
-  val areaCode : Int,
-  val number : Long
-)
-
-object Countries {
-  fun get(id : CountryID) : Country = countryTable[id]
-  
-  private var table : Map<String, Country>? = null
-  private val countryTable : Map<String, Country>
-    get() {
-      if (table == null) {
-        table = HashMap()
-        for (line in TextFile("countries.txt").lines(stripWhiteSpace = true)) {
-          table[line] = Country(line)
-        }
-      }
-      return table
-    }
-}
-
-class Country(val name : String)

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

@@ -1,19 +0,0 @@
-\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.liquid

@@ -1,42 +0,0 @@
-# This is an example file. Process it with `./pygmentize -O full -f html -o /liquid-example.html example.liquid`.
-
-{% raw %}
-some {{raw}} liquid syntax
-
-{% raw %}
-{% endraw %}
-
-Just regular text - what happens?
-
-{% comment %}My lovely {{comment}} {% comment %}{% endcomment %}
-
-{% custom_tag params: true %}
-{% custom_block my="abc" c = false %}
-	Just usual {{liquid}}.
-{% endcustom_block %}
-
-{% another_tag "my string param" %}
-
-{{ variable | upcase }}
-{{ var.field | textilize | markdownify }}
-{{ var.field.property | textilize | markdownify }}
-{{ 'string' | truncate: 100 param='df"g' }}
-
-{% cycle '1', 2, var %}
-{% cycle 'group1': '1', var, 2 %}
-{% cycle group2: '1', var, 2 %}
-
-{% if a == 'B' %}
-{% elsif a == 'C%}' %}
-{% else %}
-{% endif %}
-
-{% unless not a %}
-{% else %}
-{% endunless %}
-
-{% case a %}
-{% when 'B' %}
-{% when 'C' %}
-{% else %}
-{% endcase %}

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

@@ -1,250 +0,0 @@
---[[
-	Auctioneer Advanced
-	Version: <%version%> (<%codename%>)
-	Revision: $Id: CoreMain.lua 2233 2007-09-25 03:57:33Z norganna $
-	URL: http://auctioneeraddon.com/
-
-	This is an addon for World of Warcraft that adds statistical history to the auction data that is collected
-	when the auction is scanned, so that you can easily determine what price
-	you will be able to sell an item for at auction or at a vendor whenever you
-	mouse-over an item in the game
-
-	License:
-		This program is free software; you can redistribute it and/or
-		modify it under the terms of the GNU General Public License
-		as published by the Free Software Foundation; either version 2
-		of the License, or (at your option) any later version.
-
-		This program is distributed in the hope that it will be useful,
-		but WITHOUT ANY WARRANTY; without even the implied warranty of
-		MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-		GNU General Public License for more details.
-
-		You should have received a copy of the GNU General Public License
-		along with this program(see GPL.txt); if not, write to the Free Software
-		Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301, USA.
-
-	Note:
-		This AddOn's source code is specifically designed to work with
-		World of Warcraft's interpreted AddOn system.
-		You have an implicit licence to use this AddOn with these facilities
-		since that is its designated purpose as per:
-		http://www.fsf.org/licensing/licenses/gpl-faq.html#InterpreterIncompat
-]]
-
-
---[[
-	See CoreAPI.lua for a description of the modules API
-]]
-
-if (not AucAdvanced) then AucAdvanced = {} end
-if (not AucAdvancedData) then AucAdvancedData = {} end
-if (not AucAdvancedLocal) then AucAdvancedLocal = {} end
-if (not AucAdvancedConfig) then AucAdvancedConfig = {} end
-
-AucAdvanced.Version="<%version%>";
-if (AucAdvanced.Version == "<".."%version%>") then
-	AucAdvanced.Version = "5.0.DEV";
-end
-
-local private = {}
-
--- For our modular stats system, each stats engine should add their
--- subclass to AucAdvanced.Modules.<type>.<name> and store their data into their own
--- data table in AucAdvancedData.Stats.<type><name>
-if (not AucAdvanced.Modules) then AucAdvanced.Modules = {Stat={},Util={},Filter={}} end
-if (not AucAdvancedData.Stats) then AucAdvancedData.Stats = {} end
-if (not AucAdvancedLocal.Stats) then AucAdvancedLocal.Stats = {} end
-
-function private.TooltipHook(vars, ret, frame, name, hyperlink, quality, quantity, cost, additional)
-	if EnhTooltip.LinkType(hyperlink) ~= "item" then
-		return -- Auctioneer hooks into item tooltips only
-	end
-
-	-- Check to see if we need to force load scandata
-	local getter = AucAdvanced.Settings.GetSetting
-	if (getter("scandata.tooltip.display") and getter("scandata.force")) then
-		AucAdvanced.Scan.GetImage()
-	end
-
-	for system, systemMods in pairs(AucAdvanced.Modules) do
-		for engine, engineLib in pairs(systemMods) do
-			if (engineLib.Processor) then engineLib.Processor("tooltip", frame, name, hyperlink, quality, quantity, cost, additional) end
-		end
-	end
-end
-
-function private.HookAH()
-	hooksecurefunc("AuctionFrameBrowse_Update", AucAdvanced.API.ListUpdate)
-	for system, systemMods in pairs(AucAdvanced.Modules) do
-		for engine, engineLib in pairs(systemMods) do
-			if (engineLib.Processor) then
-				engineLib.Processor("auctionui")
-			end
-		end
-	end
-end
-
-function private.OnLoad(addon)
-	addon = addon:lower()
-
-	-- Check if the actual addon itself is loading
-	if (addon == "auc-advanced") then
-		Stubby.RegisterAddOnHook("Blizzard_AuctionUi", "Auc-Advanced", private.HookAH)
-		Stubby.RegisterFunctionHook("EnhTooltip.AddTooltip", 600, private.TooltipHook)
-		for pos, module in ipairs(AucAdvanced.EmbeddedModules) do
-			-- These embedded modules have also just been loaded
-			private.OnLoad(module)
-		end
-	end
-
-	-- Notify the actual module if it exists
-	local auc, sys, eng = strsplit("-", addon)
-	if (auc == "auc" and sys and eng) then
-		for system, systemMods in pairs(AucAdvanced.Modules) do
-			if (sys == system:lower()) then
-				for engine, engineLib in pairs(systemMods) do
-					if (eng == engine:lower() and engineLib.OnLoad) then
-						engineLib.OnLoad(addon)
-					end
-				end
-			end
-		end
-	end
-
-	-- Check all modules' load triggers and pass event to processors
-	for system, systemMods in pairs(AucAdvanced.Modules) do
-		for engine, engineLib in pairs(systemMods) do
-			if (engineLib.LoadTriggers and engineLib.LoadTriggers[addon]) then
-				if (engineLib.OnLoad) then
-					engineLib.OnLoad(addon)
-				end
-			end
-			if (engineLib.Processor and auc == "auc" and sys and eng) then
-				engineLib.Processor("load", addon)
-			end
-		end
-	end
-end
-
-function private.OnUnload()
-	for system, systemMods in pairs(AucAdvanced.Modules) do
-		for engine, engineLib in pairs(systemMods) do
-			if (engineLib.OnUnload) then
-				engineLib.OnUnload()
-			end
-		end
-	end
-end
-
-private.Schedule = {}
-function private.OnEvent(...)
-	local event, arg = select(2, ...)
-	if (event == "ADDON_LOADED") then
-		local addon = string.lower(arg)
-		if (addon:sub(1,4) == "auc-") then
-			private.OnLoad(addon)
-		end
-	elseif (event == "AUCTION_HOUSE_SHOW") then
-		-- Do Nothing for now
-	elseif (event == "AUCTION_HOUSE_CLOSED") then
-		AucAdvanced.Scan.Interrupt()
-	elseif (event == "PLAYER_LOGOUT") then
-		AucAdvanced.Scan.Commit(true)
-		private.OnUnload()
-	elseif event == "UNIT_INVENTORY_CHANGED"
-	or event == "ITEM_LOCK_CHANGED"
-	or event == "CURSOR_UPDATE"
-	or event == "BAG_UPDATE"
-	then
-		private.Schedule["inventory"] = GetTime() + 0.15
-	end
-end
-
-function private.OnUpdate(...)
-	if event == "inventory" then
-		AucAdvanced.Post.AlertBagsChanged()
-	end
-
-	local now = GetTime()
-	for event, time in pairs(private.Schedule) do
-		if time > now then
-			for system, systemMods in pairs(AucAdvanced.Modules) do
-				for engine, engineLib in pairs(systemMods) do
-					if engineLib.Processor then
-						engineLib.Processor(event, time)
-					end
-				end
-			end
-		end
-		private.Schedule[event] = nil
-	end
-end
-
-private.Frame = CreateFrame("Frame")
-private.Frame:RegisterEvent("ADDON_LOADED")
-private.Frame:RegisterEvent("AUCTION_HOUSE_SHOW")
-private.Frame:RegisterEvent("AUCTION_HOUSE_CLOSED")
-private.Frame:RegisterEvent("UNIT_INVENTORY_CHANGED")
-private.Frame:RegisterEvent("ITEM_LOCK_CHANGED")
-private.Frame:RegisterEvent("CURSOR_UPDATE")
-private.Frame:RegisterEvent("BAG_UPDATE")
-private.Frame:RegisterEvent("PLAYER_LOGOUT")
-private.Frame:SetScript("OnEvent", private.OnEvent)
-private.Frame:SetScript("OnUpdate", private.OnUpdate)
-
--- Auctioneer's debug functions
-AucAdvanced.Debug = {}
-local addonName = "Auctioneer" -- the addon's name as it will be displayed in
-                               -- the debug messages
--------------------------------------------------------------------------------
--- Prints the specified message to nLog.
---
--- syntax:
---    errorCode, message = debugPrint([message][, category][, title][, errorCode][, level])
---
--- parameters:
---    message   - (string) the error message
---                nil, no error message specified
---    category  - (string) the category of the debug message
---                nil, no category specified
---    title     - (string) the title for the debug message
---                nil, no title specified
---    errorCode - (number) the error code
---                nil, no error code specified
---    level     - (string) nLog message level
---                         Any nLog.levels string is valid.
---                nil, no level specified
---
--- returns:
---    errorCode - (number) errorCode, if one is specified
---                nil, otherwise
---    message   - (string) message, if one is specified
---                nil, otherwise
--------------------------------------------------------------------------------
-function AucAdvanced.Debug.DebugPrint(message, category, title, errorCode, level)
-	return DebugLib.DebugPrint(addonName, message, category, title, errorCode, level)
-end
-
--------------------------------------------------------------------------------
--- Used to make sure that conditions are met within functions.
--- If test is false, the error message will be written to nLog and the user's
--- default chat channel.
---
--- syntax:
---    assertion = assert(test, message)
---
--- parameters:
---    test    - (any)     false/nil, if the assertion failed
---                        anything else, otherwise
---    message - (string)  the message which will be output to the user
---
--- returns:
---    assertion - (boolean) true, if the test passed
---                          false, otherwise
--------------------------------------------------------------------------------
-function AucAdvanced.Debug.Assert(test, message)
-	return DebugLib.Assert(addonName, test, message)
-end
-
-