pygments.rb 0.3.2 → 0.3.3

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

@@ -0,0 +1,78 @@
+\name{foo}
+\alias{foo}
+% I'm a comment
+\title{The foo function}
+
+\description{It doesn't do much}
+
+\usage{
+foo(x, y)
+}
+
+\arguments{
+  \item{x}{A number}
+  \item{y}{Another number}
+}
+\details{
+  I just adds \code{x} and \code{y}, 
+}
+\value{\code{numeric}. The sum of \code{x} and \code{y}.}
+\references{
+  \href{http://en.wikipedia.org/wiki/Sum}{Sum}
+}
+\author{
+  Anonymous
+}
+\note{
+  Lorem ipsum \dots \R \emph{emp}, \strong{strong}, \bold{bold},
+  \sQuote{single quotes}, \dQuote{double quotes}, \code{code},
+  \preformatted{x <- 2 + 2}, \kbd{type this}, \samp{literal seq},
+  \pkg{base}, \file{foo.txt}, \email{email@hostname},
+  \url{http://cran.r-project.org/}, \var{foo}, \env{HOME},
+  \option{-d}, \dfn{something new}, \acronym{GNU}.
+
+  Escaped symbols: \\ \{ \} \% not comment. \\NotAMacro.
+  
+   \tabular{rlll}{
+         [,1] \tab alpha   \tab numeric \tab A (ppb)\cr
+         [,2] \tab bravo \tab integer \tab B \cr
+         [,3] \tab charlie    \tab character \tab C \cr
+       }
+   \enumerate{
+         \item delta
+         \item echo
+       }
+   \itemize{
+         \item foxtrot
+         \item golf
+       }
+  
+  \deqn{p(x; \mu, \sigma^2) = \frac{1}{\sigma \sqrt{2 \pi}} \exp \frac{-(x - \mu)^2}{2 \sigma}{%
+             p(\mu; x) = 1/\sigma (2 \pi)^(-1/2)  exp( -(x - \mu)^2 / (2 \sigma)) }
+       for \eqn{x = 0, 1, 2, \ldots}.
+  
+  \if{latex}{\out{\beta}}\ifelse{html}{\out{&beta;}}{beta}
+
+#ifdef unix
+Now windows
+#endif
+#ifndef windows
+Using windows
+#endif
+
+}
+\section{Misc}{
+  Stuff.
+}
+
+\seealso{
+  \code{\link{sum}}
+}
+\examples{
+x <- 1
+y <- 2
+z <- foo(x, y)
+\dontrun{plot(z)}
+\dontshow{log(x)}
+}
+\keyword{arith}

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

@@ -0,0 +1,54 @@
+# Alligators: multinomial - logistic regression 
+#  http://www.openbugs.info/Examples/Aligators.html
+model {
+   # PRIORS    
+   alpha[1] <- 0; # zero contrast for baseline food
+   for (k in 2 : K) { 
+     alpha[k] ~ dnorm(0, 0.00001) # vague priors
+   } 
+   # Loop around lakes:
+   for (k in 1 : K){ 
+      beta[1, k] <- 0 
+   } # corner-point contrast with first lake 
+   for (i in 2 : I) { 
+     beta[i, 1] <- 0 ; # zero contrast for baseline food
+     for (k in 2 : K){ 
+       beta[i, k] ~ dnorm(0, 0.00001) # vague priors
+     } 
+   }
+   # Loop around sizes:
+   for (k in 1 : K){ 
+     gamma[1, k] <- 0 # corner-point contrast with first size 
+   } 
+   for (j in 2 : J) { 
+     gamma[j, 1] <- 0 ; # zero contrast for baseline food
+     for ( k in 2 : K){ 
+       gamma[j, k] ~ dnorm(0, 0.00001) # vague priors
+     } 
+   }
+
+   # LIKELIHOOD   
+   for (i in 1 : I) { # loop around lakes
+     for (j in 1 : J) { # loop around sizes
+
+       # Fit standard Poisson regressions relative to baseline
+       lambda[i, j] ~ dflat()   # vague priors 
+       for (k in 1 : K) { # loop around foods
+           X[i, j, k] ~ dpois(mu[i, j, k])
+           log(mu[i, j, k]) <- lambda[i, j] + alpha[k] + beta[i, k] + gamma[j, k]
+           culmative.X[i, j, k] <- culmative(X[i, j, k], X[i, j, k])
+       }
+     }
+   }
+
+   # TRANSFORM OUTPUT TO ENABLE COMPARISON 
+   # WITH AGRESTI'S RESULTS
+   for (k in 1 : K) { # loop around foods
+       for (i in 1 : I) { # loop around lakes
+         b[i, k] <- beta[i, k] - mean(beta[, k]); # sum to zero constraint
+       }
+       for (j in 1 : J) { # loop around sizes
+         g[j, k] <- gamma[j, k] - mean(gamma[, k]); # sum to zero constraint
+       }
+   }
+} 

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

@@ -0,0 +1,33 @@
+doc "A top-level function,
+     with multi-line documentation."
+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)) {
+        nested(s);
+    }
+    value uppers = seqs.sequence[].uppercased;
+    String|Nothing z = a;
+    Sequence<Integer> ints = { 1, 2, 3, 4, 5 };
+}
+
+shared class Example<Element>(name, element) satisfies Comparable<Example<Element>>
+        given Element satisfies Comparable<Element> {
+    shared String name;
+    shared Element element;
+
+    shared actual Comparison compare(Example<Element> other) {
+        return element <=> other.element;
+    }
+
+    shared actual String string {
+        return "Example with " + element.string;
+    }
+}
+
+Example<Integer> instance = Example {
+    name = "Named args call";
+    element = 5;
+};

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

@@ -0,0 +1,48 @@
+# 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.monkey

@@ -0,0 +1,152 @@
+Strict
+
+' single line comment
+
+#rem
+multi
+line
+comment
+#end
+
+#rem
+nested
+#rem
+multi
+line
+#end
+comment
+#end
+
+Import mojo
+
+Const ONECONST:Int = 1
+Const TWOCONST := 2
+Const THREECONST := 3, FOURCONST:Int = 4
+
+Global someVariable:Int = 4
+
+' sample class from the documentation
+Class Game Extends App
+
+    Function New()
+    End
+
+    Function DrawSpiral(clock)
+        Local w=DeviceWidth/2
+        For Local i#=0 Until w*1.5 Step .2
+            Local x#,y#
+            x=w+i*Sin(i*3+clock)
+            y=w+i*Cos(i*2+clock)
+            DrawRect  x,y,1,1
+        Next
+        hitbox.Collide(event.pos)
+    End
+
+    Field updateCount
+
+    Method OnCreate()
+        Print "spiral"
+
+        SetUpdateRate 60
+    End
+
+    Method OnUpdate()
+        updateCount+=1
+    End
+
+    Method OnRender()
+        Cls
+        DrawSpiral updateCount
+        DrawSpiral updateCount*1.1
+    End
+
+End
+
+Class Enemy
+  Method Die () Abstract
+End
+
+' extending
+Class Hoodlum Extends Enemy
+    ' field
+    Field testField:Bool = True
+
+    ' naming class with modulepath
+    Local currentNode:list.Node<Vector2D>
+
+    Method Die ()
+        Print "B'oss, he-- he killed me, b'oss!"
+    End
+End
+
+' extending with generics
+Class VectorNode Extends Node<Vector2D>
+End
+
+' interfaces
+Interface Computer
+  Method Boot ()
+  Method Process ()
+  Method Display ()
+End
+
+Class PC Implements Computer
+End
+
+' array syntax
+Global listOfStuff:String[42]
+Global lessStuff:String[5] = listOfStuff[4..8]
+Global oneStuff:String = listOfStuff[23]
+
+'a comma separated sequence
+Global scores:Int[]=[10,20,30]
+'a comma separated sequence
+Global text:String[]=["Hello","There","World"]
+Global worstCase:worst.List<String[]>
+
+' string type
+Global string1:String = "Hello world"
+Global string2$ = "Hello world"
+
+' escape characers in strings
+Global string3 := "Hello~zWorld"
+Global string4 := "~qHello World~q"
+Global string5 := "~tIndented~n"
+Global string6 := "tilda is wavey... ~~"
+
+' string pseudofunctions
+Print "  Hello World  ~n".Trim()    ' prints "Hello World"
+Print "Hello World".ToUpper()       ' prints "HELLO WORLD"
+
+' Boolean shorttype
+Global boolVariable1:Bool = True
+Global boolVariable2? = False
+
+' number formats
+Global hexNum1:Int = $3d0dead
+Global hexNum2% = $CAFEBABE
+
+Global floatNum1:Float = 3.141516
+Global floatNum2# = 3.141516
+Global floatNum3 := .141516
+
+' preprocessor keywords
+#If TARGET = "android"
+DoStuff()
+#ElseIf TARGET = "ios"
+DoOtherStuff()
+#End
+
+' preprocessor variable
+#SOMETHING = True
+#Print SOMETHING
+#If SOMETHING
+#End
+
+' operators
+Global a = 32
+Global b = 32 ~ 0
+b ~= 16
+b |= 16
+b &= 16
+Global c = a | b

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

@@ -0,0 +1,43 @@
+msc {
+  hscale=5;
+
+  //test comment
+
+  a,b,c,d;
+
+/* another
+comment
+goes here */ /* too */ // now
+
+  ... [label="test1", id="1"];
+  --- [label="test2", id="2"];
+  ||| [label="test3", id="2"];
+  a ABOX b;
+  a--b [label="test4", id="2"];
+  a == b [label="test5", id="2"];
+  a .. b [label="test6", id="2"];
+  a::b [label="test7", id="2"];
+  a<<=>> b [label="test8", id="2"],
+  b <->c [label="test9", id="2"],
+  b RBOX c;
+  a BOX d;
+  a<=> b [label="test10", id="2"];
+  a <<>> b [label="test11", id="2"];
+  a<:>b [label="test12", id="2"];
+  a->b [label="test13", id="2"];
+  a =>> b [label="test14", id="2"],
+  b >> c [label="test15", id="2"],
+  a=>   b [label="test16", id="2"];
+  a :>b [label="test17", id="2"];
+  a-x b [label="test18", id="2"];
+  a -Xb [label="test19", id="2"];
+  a<- b [label="test20", id="2"];
+  a <<=b [label="test21", id="2"];
+  a<< b [label="test22", id="2"];
+  a <= b [label="test23", id="2"];
+  a<: b [label="test24", id="2"];
+  a -xb [label="test25", id="2"];
+  a-X b [ label="test26",id="2" ];
+  a->* [label="test27" , id="2"];
+  *<-b [label="test28",id="28"];
+}

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

@@ -0,0 +1,19 @@
+Windows Registry Editor Version 5.00
+; comment
+
+[HKEY_CURRENT_USER\SOFTWARE\Pygments]
+@="Hello"
+"Key With Spaces"="Something"
+"Key With ="="With Quotes"
+"Key With = 2"=dword:123
+"Key" = "Value"
+"Hex"=hex(0):1,2,3,a,b,f
+"Hex 2"=hex(5):80,00,00,ff
+
+[-HKEY_CURRENT_USER\SOFTWARE\Pygments\Subkey]
+
+[HKEY_CURRENT_USER\SOFTWARE\Pygments\Subkey2]
+; comment
+@=-
+"Foo"=-
+"Foo"="Value"

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

@@ -0,0 +1,95 @@
+#lang racket
+
+; Single-line comment style.
+
+;; Single-line comment style.
+
+#| Multi-line comment style ... on one line |#
+
+#|
+Multi-line comment style ...
+... on multiple lines
+|#
+
+(define (a-function x #:keyword [y 0])
+  (define foo0 'symbol) ; ()
+  [define foo1 'symbol] ; []
+  {define foo2 'symbol} ; {}
+  (and (append (car '(1 2 3))))
+  (regexp-match? #rx"foobar" "foobar")
+  (regexp-match? #px"foobar" "foobar")
+  (define a 1))
+  (let ([b "foo"])
+    (displayln b))
+  (for/list ([x (in-list (list 1 2 (list 3 4)))])
+      (cond
+       [(pair? x) (car x)]
+       [else x])))
+
+;; Literal number examples
+(values
+ ;; #b
+ #b1.1
+ #b-1.1
+ #b1e1
+ #b0/1
+ #b1/1
+ #b1e-1
+ #b101
+ 
+ ;; #d
+ #d-1.23
+ #d1.123
+ #d1e3
+ #d1e-22
+ #d1/2
+ #d-1/2
+ #d1
+ #d-1
+
+ ;; No # reader prefix -- same as #d
+ -1.23
+ 1.123
+ 1e3
+ 1e-22
+ 1/2
+ -1/2
+ 1
+ -1
+
+ ;; #e
+ #e-1.23
+ #e1.123
+ #e1e3
+ #e1e-22
+ #e1
+ #e-1
+ #e1/2
+ #e-1/2
+
+ ;; #i always float
+ #i-1.23
+ #i1.123
+ #i1e3
+ #i1e-22
+ #i1/2
+ #i-1/2
+ #i1
+ #i-1
+
+ ;; #o
+ #o777.777
+ #o-777.777
+ #o777e777
+ #o777e-777
+ #o3/7
+ #o-3/7
+ #o777
+ #o-777
+
+ ;; #x
+ #x-f.f
+ #xf.f
+ #x-f
+ #xf
+ )