pygments.rb 0.3.2 → 0.3.3

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

@@ -1,119 +1,153 @@
-###################################
-#######  emplikH1.test() ##########
-###################################
-
-emplikH1.test <- function(x, d, theta, fun,
-	              tola = .Machine$double.eps^.25)
-{
-n <- length(x)
-if( n <= 2 ) stop("Need more observations")
-if( length(d) != n ) stop("length of x and d must agree")
-if(any((d!=0)&(d!=1))) stop("d must be 0/1's for censor/not-censor")
-if(!is.numeric(x)) stop("x must be numeric values --- observed times")
-
-#temp<-summary(survfit(Surv(x,d),se.fit=F,type="fleming",conf.type="none"))
-#
-newdata <- Wdataclean2(x,d)
-temp <- DnR(newdata$value, newdata$dd, newdata$weight)
-
-time <- temp$time         # only uncensored time?  Yes.
-risk <- temp$n.risk
-jump <- (temp$n.event)/risk
-
-funtime <- fun(time)
-funh <- (n/risk) * funtime    # that is Zi
-funtimeTjump <- funtime * jump
-
-if(jump[length(jump)] >= 1) funh[length(jump)] <- 0  #for inthaz and weights
-
-inthaz <- function(x, ftj, fh, thet){ sum(ftj/(1 + x * fh)) - thet }
-
-diff <- inthaz(0, funtimeTjump, funh, theta)
-
-if( diff == 0 ) { lam <- 0 } else {
-    step <- 0.2/sqrt(n)
-    if(abs(diff) > 6*log(n)*step )
-    stop("given theta value is too far away from theta0")
-
-    mini<-0
-    maxi<-0
-    if(diff > 0) {
-    maxi <- step
-    while(inthaz(maxi, funtimeTjump, funh, theta) > 0 && maxi < 50*log(n)*step)
-    maxi <- maxi+step
-    }
-    else {
-    mini <- -step
-    while(inthaz(mini, funtimeTjump, funh, theta) < 0 && mini > - 50*log(n)*step)
-    mini <- mini - step
-    }
-
-    if(inthaz(mini, funtimeTjump, funh, theta)*inthaz(maxi, funtimeTjump, funh, theta) > 0 )
-    stop("given theta is too far away from theta0")
-
-    temp2 <- uniroot(inthaz,c(mini,maxi), tol = tola,
-                  ftj=funtimeTjump, fh=funh, thet=theta)
-    lam <- temp2$root
+#!/usr/bin/env Rscript
+### Example R script for syntax highlighting
+
+# This is also a comment
+
+## Valid names
+abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUV0123456789._a <- NULL
+.foo_ <- NULL
+._foo <- NULL
+
+## Invalid names
+0abc <- NULL
+.0abc <- NULL
+abc+cde <- NULL
+
+## Reserved Words
+NA
+NA_integer_
+NA_real_
+NA_character_
+NA_complex_
+NULL
+NaN
+Inf
+## Not reserved
+NULLa <- NULL
+NULL1 <- NULL
+NULL. <- NULL
+NA_foo_ <- NULL
+
+## Numbers
+12345678901
+123456.78901
+123e3
+123E3
+1.23e-3
+1.23e3
+1.23e-3
+## integer constants
+123L
+1.23L
+## imaginary numbers
+123i
+-123i
+123e4i
+123e-4i
+## Hex numbers
+0xabcdefABCDEF01234
+0xabcp123
+0xabcP123
+## Not hex
+0xg
+
+## Special operators %xyz%
+## %xyz%
+1 %% 2
+diag(2) %*% diag(2)
+1 %/% 2
+1 %in% 1:10
+diag(2) %o% diag(2)
+diag(2) %x% diag(2)
+`%foo bar%` <- function(x, y) x + y
+1 %foo bar% 2
+
+## Control Structures (3.2) and Function
+## if, else
+if (TRUE) print("foo") else print("bar")
+## For, in
+for(i in 1:5) {
+    print(i)
 }
-
-onepluslamh<- 1 + lam * funh   ### this is 1 + lam Zi in Ref.
-
-weights <- jump/onepluslamh  #need to change last jump to 1? NO. see above
-
-loglik <- 2*(sum(log(onepluslamh)) - sum((onepluslamh-1)/onepluslamh) )
-#?is that right? YES  see (3.2) in Ref. above. This ALR, or Poisson LR.
-
-#last <- length(jump)    ## to compute loglik2, we need to drop last jump
-#if (jump[last] == 1) {
-#                     risk1 <- risk[-last]
-#                     jump1 <- jump[-last]
-#                     weights1 <- weights[-last]
-#                     } else {
-#                            risk1 <- risk
-#                            jump1 <- jump
-#                            weights1 <- weights
-#                            }
-#loglik2 <- 2*( sum(log(onepluslamh)) +
-#          sum( (risk1 -1)*log((1-jump1)/(1- weights1) ) )  )
-##? this likelihood seems have negative values sometimes???
-
-list( logemlik=loglik,  ### logemlikv2=loglik2,
-      lambda=lam, times=time, wts=weights,
-      nits=temp2$nf, message=temp2$message )
+## While, break
+i <- 1
+while (TRUE) {
+    i <- i + 1
+    if (i > 3) break
 }
-
-library("graphics")
-
-par(mfrow = c(1, 2))
-# plot histogram
-x <- rnorm(100)
-if (max(x) > 100)
-  stop("Quite unexpected.")
-else
-  hist(x, plot=TRUE, col="ivory")
-
-# from doc: lowess
-plot(cars, main = "lowess(cars)")
-     lines(lowess(cars), col = 2)
-     lines(lowess(cars, f=.2), col = 3)
-     legend(5, 120, c(paste("f = ", c("2/3", ".2"))), lty = 1, col = 2:3)
-
-# from doc: is.na
-is.na(c(1, NA))
-
-# from doc: Extract
-y <- list(1,2,a=4,5)
-y[c(3,4)]             # a list containing elements 3 and 4 of y
-y$a                   # the element of y named a
-
-# from doc: for
-for(n in c(2,5,10,20,50)) {
-  x <- stats::rnorm(n)
-  cat(n,":", sum(x2),"\n")
+## Repeat
+repeat {1+1}
+## Switch
+x <- 3
+switch(x, 2+2, mean(1:10), rnorm(5))
+## Function, dot-dot-dot, return
+foo <- function(...) {
+    return(sum(...))
+}
+# Not keywords
+functiona <- 2 + 2
+function. <- 2 + 2
+function1 <- 2 + 2
+
+
+## Grouping Tokens 10.3.7
+## Parentheses
+1 + (2 + 3)
+## brackets
+foo <- function(a) {
+    a + 1
 }
 
-class(fo <- y ~ x1*x2) # "formula"
-
-
-
-
+## Indexing 10.3.8
+## []
+bar <- 1:10
+bar[3]
+## [[]]
+foo <- list(a=1, b=2, c=3)
+foo[["a"]]
+## $
+foo$a
+foo$"a"
+
+## Operators
+2 - 2
+2 + 2
+2 ~ 2
+! TRUE
+?"help"
+1:2
+2 * 2
+2 / 2
+2^2
+2 < 2
+2 > 2
+2 == 2
+2 >= 2
+2 <= 2
+2 != 2
+TRUE & FALSE
+TRUE && FALSE
+TRUE | FALSE
+TRUE || FALSE
+foo <- 2 + 2
+foo = 2 + 2
+2 + 2 -> foo
+foo <<- 2 + 2
+2 + 2 ->> foo
+base:::sum
+base::sum
+
+## Strings
+foo <- "hello, world!"
+foo <- 'hello, world!'
+foo <- "Hello, 'world!"
+foo <- 'Hello, "world!'
+foo <- 'Hello, \'world!\''
+foo <- "Hello, \"world!\""
+foo <- "Hello,
+world!"
+foo <- 'Hello,
+world!'
+
+## Backtick strings
+`foo123 +!"bar'baz` <- 2 + 2

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

@@ -0,0 +1,36 @@
+#include <stdio.h>
+
+// __device__ function
+__device__ void func()
+{
+    short* array0 = (short*)array;
+    float* array1 = (float*)&array0[127];
+}
+
+/* __global__ function */
+__global__ static void reduction(const float* __restrict__ input, float *output, clock_t *timer)
+{
+    // __shared__ float shared[2 * blockDim.x];
+    extern __shared__ float shared[];
+
+    const int tid = threadIdx.x;
+    const int bid = blockIdx.x;
+    
+    if (threadIdx.x == 0) {
+        __threadfence();
+    }
+
+    // Perform reduction to find minimum.
+    for (int d = blockDim.x; d > 0; d /= 2)
+    {
+        __syncthreads();
+    }
+}
+
+int main(int argc, char **argv)
+{
+    dim3 dimBlock(8, 8, 1);
+
+    timedReduction<<<dimBlock, 256, 256, 0>>>(dinput, doutput, dtimer);
+    cudaDeviceReset();
+}

data/vendor/pygments-main/tests/test_basic_api.py

@@ -93,7 +93,7 @@ def test_lexer_options():
             'PythonConsoleLexer', 'RConsoleLexer', 'RubyConsoleLexer',
             'SqliteConsoleLexer', 'MatlabSessionLexer', 'ErlangShellLexer',
             'BashSessionLexer', 'LiterateHaskellLexer', 'PostgresConsoleLexer',
-            'ElixirConsoleLexer', 'JuliaConsoleLexer'):
+            'ElixirConsoleLexer', 'JuliaConsoleLexer', 'RobotFrameworkLexer'):
             inst = cls(ensurenl=False)
             ensure(inst.get_tokens('a\nb'), 'a\nb')
             inst = cls(ensurenl=False, stripall=True)

data/vendor/pygments-main/tests/test_util.py

@@ -7,6 +7,7 @@
     :license: BSD, see LICENSE for details.
 """
 
+import re
 import unittest
 
 from pygments import util
@@ -114,3 +115,20 @@ class UtilTest(unittest.TestCase):
             '<?xml ?><!DOCTYPE html PUBLIC  "-//W3C//DTD XHTML 1.0 Strict//EN">'))
         self.assertTrue(util.looks_like_xml('<html xmlns>abc</html>'))
         self.assertFalse(util.looks_like_xml('<html>'))
+
+    def test_unirange(self):
+        first_non_bmp = u'\U00010000'
+        r = re.compile(util.unirange(0x10000, 0x20000))
+        m = r.match(first_non_bmp)
+        self.assertTrue(m)
+        self.assertEquals(m.end(), len(first_non_bmp))
+        self.assertFalse(r.match(u'\uffff'))
+        self.assertFalse(r.match(u'xxx'))
+        # Tests that end is inclusive
+        r = re.compile(util.unirange(0x10000, 0x10000) + '+')
+        # Tests that the plus works for the entire unicode point, if narrow
+        # build
+        m = r.match(first_non_bmp * 2)
+        self.assertTrue(m)
+        self.assertEquals(m.end(), len(first_non_bmp) * 2)
+    

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification
 name: pygments.rb
 version: !ruby/object:Gem::Version
-  version: 0.3.2
+  version: 0.3.3
   prerelease: 
 platform: ruby
 authors:
@@ -10,7 +10,7 @@ authors:
 autorequire: 
 bindir: bin
 cert_chain: []
-date: 2012-10-17 00:00:00.000000000 Z
+date: 2012-12-17 00:00:00.000000000 Z
 dependencies:
 - !ruby/object:Gem::Dependency
   name: yajl-ruby
@@ -90,7 +90,6 @@ files:
 - vendor/pygments-main/LICENSE
 - vendor/pygments-main/MANIFEST.in
 - vendor/pygments-main/Makefile
-- vendor/pygments-main/REVISION
 - vendor/pygments-main/TODO
 - vendor/pygments-main/docs/generate.py
 - vendor/pygments-main/docs/pygmentize.1
@@ -114,6 +113,7 @@ files:
 - vendor/pygments-main/docs/src/styles.txt
 - vendor/pygments-main/docs/src/tokens.txt
 - vendor/pygments-main/docs/src/unicode.txt
+- vendor/pygments-main/external/lasso-builtins-generator-9.lasso
 - vendor/pygments-main/external/markdown-processor.py
 - vendor/pygments-main/external/moin-parser.py
 - vendor/pygments-main/external/pygments.bashcomp
@@ -142,15 +142,21 @@ files:
 - vendor/pygments-main/pygments/lexers/__init__.py
 - vendor/pygments-main/pygments/lexers/_asybuiltins.py
 - vendor/pygments-main/pygments/lexers/_clbuiltins.py
+- vendor/pygments-main/pygments/lexers/_lassobuiltins.py
 - vendor/pygments-main/pygments/lexers/_luabuiltins.py
 - vendor/pygments-main/pygments/lexers/_mapping.py
+- vendor/pygments-main/pygments/lexers/_openedgebuiltins.py
 - vendor/pygments-main/pygments/lexers/_phpbuiltins.py
 - vendor/pygments-main/pygments/lexers/_postgres_builtins.py
+- vendor/pygments-main/pygments/lexers/_robotframeworklexer.py
 - vendor/pygments-main/pygments/lexers/_scilab_builtins.py
+- vendor/pygments-main/pygments/lexers/_sourcemodbuiltins.py
+- vendor/pygments-main/pygments/lexers/_stan_builtins.py
 - vendor/pygments-main/pygments/lexers/_vimbuiltins.py
 - vendor/pygments-main/pygments/lexers/agile.py
 - vendor/pygments-main/pygments/lexers/asm.py
 - vendor/pygments-main/pygments/lexers/compiled.py
+- vendor/pygments-main/pygments/lexers/dalvik.py
 - vendor/pygments-main/pygments/lexers/dotnet.py
 - vendor/pygments-main/pygments/lexers/functional.py
 - vendor/pygments-main/pygments/lexers/github.py
@@ -214,6 +220,7 @@ files:
 - vendor/pygments-main/tests/examplefiles/AcidStateAdvanced.hs
 - vendor/pygments-main/tests/examplefiles/AlternatingGroup.mu
 - vendor/pygments-main/tests/examplefiles/CPDictionary.j
+- vendor/pygments-main/tests/examplefiles/Config.in.cache
 - vendor/pygments-main/tests/examplefiles/Constants.mo
 - vendor/pygments-main/tests/examplefiles/DancingSudoku.lhs
 - vendor/pygments-main/tests/examplefiles/Errors.scala
@@ -250,30 +257,42 @@ files:
 - vendor/pygments-main/tests/examplefiles/erl_session
 - vendor/pygments-main/tests/examplefiles/escape_semicolon.clj
 - vendor/pygments-main/tests/examplefiles/evil_regex.js
+- vendor/pygments-main/tests/examplefiles/example.Rd
+- vendor/pygments-main/tests/examplefiles/example.bug
 - vendor/pygments-main/tests/examplefiles/example.c
+- vendor/pygments-main/tests/examplefiles/example.ceylon
 - vendor/pygments-main/tests/examplefiles/example.cls
 - vendor/pygments-main/tests/examplefiles/example.cpp
 - vendor/pygments-main/tests/examplefiles/example.gs
 - vendor/pygments-main/tests/examplefiles/example.gst
+- vendor/pygments-main/tests/examplefiles/example.jag
 - vendor/pygments-main/tests/examplefiles/example.kt
 - vendor/pygments-main/tests/examplefiles/example.lua
+- vendor/pygments-main/tests/examplefiles/example.monkey
 - vendor/pygments-main/tests/examplefiles/example.moo
 - vendor/pygments-main/tests/examplefiles/example.moon
+- vendor/pygments-main/tests/examplefiles/example.msc
 - vendor/pygments-main/tests/examplefiles/example.nim
 - vendor/pygments-main/tests/examplefiles/example.ns2
 - vendor/pygments-main/tests/examplefiles/example.p
 - vendor/pygments-main/tests/examplefiles/example.pas
 - vendor/pygments-main/tests/examplefiles/example.rb
+- vendor/pygments-main/tests/examplefiles/example.reg
 - vendor/pygments-main/tests/examplefiles/example.rhtml
+- vendor/pygments-main/tests/examplefiles/example.rkt
+- vendor/pygments-main/tests/examplefiles/example.rpf
 - vendor/pygments-main/tests/examplefiles/example.sh-session
 - vendor/pygments-main/tests/examplefiles/example.sml
 - vendor/pygments-main/tests/examplefiles/example.snobol
+- vendor/pygments-main/tests/examplefiles/example.stan
 - vendor/pygments-main/tests/examplefiles/example.tea
 - vendor/pygments-main/tests/examplefiles/example.u
 - vendor/pygments-main/tests/examplefiles/example.weechatlog
 - vendor/pygments-main/tests/examplefiles/example.xhtml
+- vendor/pygments-main/tests/examplefiles/example.xtend
 - vendor/pygments-main/tests/examplefiles/example.yaml
 - vendor/pygments-main/tests/examplefiles/example2.aspx
+- vendor/pygments-main/tests/examplefiles/example2.msc
 - vendor/pygments-main/tests/examplefiles/example_elixir.ex
 - vendor/pygments-main/tests/examplefiles/example_file.fy
 - vendor/pygments-main/tests/examplefiles/firefox.mak
@@ -283,15 +302,19 @@ files:
 - vendor/pygments-main/tests/examplefiles/fucked_up.rb
 - vendor/pygments-main/tests/examplefiles/function.mu
 - vendor/pygments-main/tests/examplefiles/functional.rst
+- vendor/pygments-main/tests/examplefiles/garcia-wachs.kk
 - vendor/pygments-main/tests/examplefiles/genclass.clj
 - vendor/pygments-main/tests/examplefiles/genshi_example.xml+genshi
 - vendor/pygments-main/tests/examplefiles/genshitext_example.genshitext
 - vendor/pygments-main/tests/examplefiles/glsl.frag
 - vendor/pygments-main/tests/examplefiles/glsl.vert
+- vendor/pygments-main/tests/examplefiles/hello.smali
+- vendor/pygments-main/tests/examplefiles/hello.sp
 - vendor/pygments-main/tests/examplefiles/html+php_faulty.php
 - vendor/pygments-main/tests/examplefiles/http_request_example
 - vendor/pygments-main/tests/examplefiles/http_response_example
 - vendor/pygments-main/tests/examplefiles/import.hs
+- vendor/pygments-main/tests/examplefiles/inet_pton6.dg
 - vendor/pygments-main/tests/examplefiles/intro.ik
 - vendor/pygments-main/tests/examplefiles/ints.php
 - vendor/pygments-main/tests/examplefiles/intsyn.fun
@@ -302,14 +325,18 @@ files:
 - vendor/pygments-main/tests/examplefiles/jbst_example1.jbst
 - vendor/pygments-main/tests/examplefiles/jbst_example2.jbst
 - vendor/pygments-main/tests/examplefiles/jinjadesignerdoc.rst
+- vendor/pygments-main/tests/examplefiles/json.lasso
+- vendor/pygments-main/tests/examplefiles/json.lasso9
 - vendor/pygments-main/tests/examplefiles/lighttpd_config.conf
 - vendor/pygments-main/tests/examplefiles/linecontinuation.py
+- vendor/pygments-main/tests/examplefiles/livescript-demo.ls
 - vendor/pygments-main/tests/examplefiles/ltmain.sh
 - vendor/pygments-main/tests/examplefiles/main.cmake
 - vendor/pygments-main/tests/examplefiles/markdown.lsp
 - vendor/pygments-main/tests/examplefiles/matlab_noreturn
 - vendor/pygments-main/tests/examplefiles/matlab_sample
 - vendor/pygments-main/tests/examplefiles/matlabsession_sample.txt
+- vendor/pygments-main/tests/examplefiles/metagrammar.treetop
 - vendor/pygments-main/tests/examplefiles/minimal.ns2
 - vendor/pygments-main/tests/examplefiles/moin_SyntaxReference.txt
 - vendor/pygments-main/tests/examplefiles/multiline_regexes.rb
@@ -332,6 +359,7 @@ files:
 - vendor/pygments-main/tests/examplefiles/py3_test.txt
 - vendor/pygments-main/tests/examplefiles/pycon_test.pycon
 - vendor/pygments-main/tests/examplefiles/pytb_test2.pytb
+- vendor/pygments-main/tests/examplefiles/pytb_test3.pytb
 - vendor/pygments-main/tests/examplefiles/python25-bsd.mak
 - vendor/pygments-main/tests/examplefiles/qsort.prolog
 - vendor/pygments-main/tests/examplefiles/r-console-transcript.Rout
@@ -339,7 +367,9 @@ files:
 - vendor/pygments-main/tests/examplefiles/ragel-cpp_snippet
 - vendor/pygments-main/tests/examplefiles/regex.js
 - vendor/pygments-main/tests/examplefiles/reversi.lsp
+- vendor/pygments-main/tests/examplefiles/robotframework.txt
 - vendor/pygments-main/tests/examplefiles/ruby_func_def.rb
+- vendor/pygments-main/tests/examplefiles/rust_example.rs
 - vendor/pygments-main/tests/examplefiles/scilab.sci
 - vendor/pygments-main/tests/examplefiles/sibling.prolog
 - vendor/pygments-main/tests/examplefiles/simple.md
@@ -362,6 +392,7 @@ files:
 - vendor/pygments-main/tests/examplefiles/test.bro
 - vendor/pygments-main/tests/examplefiles/test.cs
 - vendor/pygments-main/tests/examplefiles/test.css
+- vendor/pygments-main/tests/examplefiles/test.cu
 - vendor/pygments-main/tests/examplefiles/test.d
 - vendor/pygments-main/tests/examplefiles/test.dart
 - vendor/pygments-main/tests/examplefiles/test.dtd