mortar-pygments.rb 0.5.5

data/vendor/pygments-main/tests/examplefiles/demo.ahk

@@ -0,0 +1,181 @@
+/*
+multiline comment
+msgbox(comment)
+*/
+send, key[pgdn]
+string := "hello" . x . "world!"
+string := "hello ""world""! "
+string := "hello `"world""! "
+; single line comment1
+;;;  single line comment2
+
+::stopi::viper_off()  
+
+a::send, ^a
+mylabel:send, ^{space}  ;; set mark
+e::send, ^e
+n::
+  send, ^n
+  return
+!i::     
+viper("iviper")   ; stdlib
+x = "viper"" "  ; escaped quote
+Return
+#If WinExist("iviper" )
+indexdir = %A_ScriptDir%\%dir%
+FileCreateDir, % indexdir
+fileindex = %indexdir%\_files
+FileSelectFile, file,,, Select an image:, Images (*.gif; *.jpg; *.bmp; *.png; *.tif; *.ico; *.cur; *.ani; *.exe; *.dll)
+
+; viper
+
+
+i::viper_off() 
+#If
+
+;; keybindings
+#If WinExist("iviper") and WinActive("ahk_class Emacs")
+
+p::
+k::
+send, ^p
+return
+,::send, +!,  ;; beginning of page
+.::send, +!.  ;; end of page
+[::send, !a
+]::send, !e  
+d:: ^k  ;; kill line
+x:: send ^d
+\:: ^!k  ;; kill next word or sexp
+
+
+#IfWinActive
+#Persistent
+  
+F2::     ;; hotkey
+start:   ;; label
+start2:   ; label
+  ppm := ppm_new(50, 50, 255)    
+  ppm_fill(ppm, 80, 90, 95)      
+  msgbox % getPixel(ppm, 1, 1)    
+  setPixel(90, 90, 90, ppm, 1, 1)
+  msgbox % getPixel(ppm, 1, 1)
+  ListVars  ; command
+  msgbox % ppm
+  return
+  
+  
+  ppm_read(file)
+  {
+	fileread, ppm, % file
+ return ppm
+}
+
+::hotstring::
+::hot3::
+ppm_width(ppm)
+{
+ regexmatch(ppm, "\R(\d+)\s(\d+)", dim)
+ return dim1
+}
+ppm_height(ppm)
+{
+ regexmatch(ppm, "\R(\d+)\s(\d+)", dim)
+    return dim2
+} 
+
+ppm_colors(ppm)
+{
+regexmatch(ppm, "\R(\d+)\D*\R", colors)  ; \R stands for any
+return colors1
+}
+
+ppm_data(ppm)
+{
+pos :=  regexmatch(ppm, "\R(\d+)\D*\R", colors)  ; \R stands for any newline
+stringtrimleft, data, ppm, pos + strlen(colors1)
+return data
+}
+ppm_header(ppm)
+{
+pos :=  regexmatch(ppm, "\R(\d+)\D*\R", colors)  ; \R stands for any newline
+stringleft, header, ppm, pos + strlen(colors1)
+return header
+}
+
+ppm_fill(ByRef ppm, r, g, b)
+{
+  width := ppm_width(ppm)	
+  height := ppm_height(ppm)
+  header := ppm_header(ppm)
+  headerLength := strlen(header) 
+  varsetcapacity(data, width * height, 0)
+  loop, % (width * height)
+  {
+	if r
+   numput(r, data, (A_Index - 1) * 3, "uchar")
+ if g
+   numput(g, data, (A_Index - 1) * 3 + 1, "uchar")
+ if b
+   numput(b, data, (A_Index - 1) * 3 + 2, "uchar")
+}
+VarCopy(&ppm + headerLength, &data, width * height)
+
+}
+
+ppm_new(width, height, colors)
+{
+  header = P6`n%width% %height%`n%colors%`n
+  headerLength := strlen(header)
+  varsetcapacity(ppm, width * height + headerLength, 1)
+  varsetcapacity(data, width * height, 0)
+  VarCopy(&ppm, &header, headerLength)
+  VarCopy(&ppm + headerLength, &data, width * height)
+  return ppm
+}
+
+heredoc = 
+(
+  P6
+  # lasdjkf
+  87 09
+  255
+  color data...
+)
+
+; Example: Simple image viewer:
+
+Gui, +Resize
+Gui, Add, Button, default, &Load New Image
+Gui, Add, Radio, ym+5 x+10 vRadio checked, Load &actual size
+Gui, Add, Radio, ym+5 x+10, Load to &fit screen
+Gui, Add, Pic, xm vPic
+Gui, Show
+return
+
+ButtonLoadNewImage:
+FileSelectFile, file,,, Select an image:, Images (*.gif; *.jpg; *.bmp; *.png; *.tif; *.ico; *.cur; *.ani; *.exe; *.dll)
+if file =
+    return
+Gui, Submit, NoHide ; Save the values of the radio buttons.
+if Radio = 1  ; Display image at its actual size.
+{
+    Width = 0
+    Height = 0
+}
+else ; Second radio is selected: Resize the image to fit the screen.
+{
+    Width := A_ScreenWidth - 28  ; Minus 28 to allow room for borders and margins inside.
+    Height = -1  ; "Keep aspect ratio" seems best.
+}
+GuiControl,, Pic, *w%width% *h%height% %file%  ; Load the image.
+Gui, Show, xCenter y0 AutoSize, %file%  ; Resize the window to match the picture size.
+return
+
+GuiClose:
+ExitApp
+; Example: Simple text editor with menu bar.
+
+; Create the sub-menus for the menu bar:
+Menu, FileMenu, Add, &New, FileNew
+

data/vendor/pygments-main/tests/examplefiles/demo.cfm

@@ -0,0 +1,38 @@
+<!--- cfcomment --->
+<!-- html comment -->
+<html>
+<head>
+<title>Date Functions</title>
+</head>
+<body>
+<cfset RightNow = Now()>
+<cfoutput>
+ #RightNow#<br />
+ #DateFormat(RightNow)#<br />
+ #DateFormat(RightNow,"mm/dd/yy")#<br />
+ #TimeFormat(RightNow)#<br />
+ #TimeFormat(RightNow,"hh:mm tt")#<br />
+ #IsDate(RightNow)#<br />
+ #IsDate("January 31, 2007")#<br />
+ #IsDate("foo")#<br />
+ #DaysInMonth(RightNow)#
+</cfoutput>
+<cfoutput group="x">
+    #x#
+    <cfoutput>#y#</cfoutput>
+    #z#
+</cfoutput>
+</body>
+</html>
+
+<cfset person = "Paul">
+<cfset greeting = "Hello #person#">
+
+<cfset greeting = "Hello" & " world!">
+<cfset c = a^b>
+<cfset c = a MOD b>
+<cfset c = a / b>
+<cfset c = a * b>
+<cfset c = a + b>
+<cfset c = a - b>
+

data/vendor/pygments-main/tests/examplefiles/django_sample.html+django

@@ -0,0 +1,68 @@
+{% extends "admin/base_site.html" %}
+{% load i18n admin_modify adminmedia %}
+{% block extrahead %}{{ block.super }}
+<script type="text/javascript" src="../../../jsi18n/"></script>
+{% for js in javascript_imports %}{% include_admin_script js %}{% endfor %}
+{% endblock %}
+{% block stylesheet %}{% admin_media_prefix %}css/forms.css{% endblock %}
+{% block coltype %}{% if ordered_objects %}colMS{% else %}colM{% endif %}{% endblock %}
+{% block bodyclass %}{{ opts.app_label }}-{{ opts.object_name.lower }} change-form{% endblock %}
+{% block userlinks %}<a href="../../../doc/">{% trans 'Documentation' %}</a> / <a href="../../../password_change/">{% trans 'Change password' %}</a> / <a href="../../../logout/">{% trans 'Log out' %}</a>{% endblock %}
+{% block breadcrumbs %}{% if not is_popup %}
+<div class="breadcrumbs">
+     <a href="../../../">{% trans "Home" %}</a> &rsaquo;
+     <a href="../">{{ opts.verbose_name_plural|capfirst|escape }}</a> &rsaquo;
+     {% if add %}{% trans "Add" %} {{ opts.verbose_name|escape }}{% else %}{{ original|truncatewords:"18"|escape }}{% endif %}
+</div>
+{% endif %}{% endblock %}
+{% block content %}<div id="content-main">
+{% if change %}{% if not is_popup %}
+  <ul class="object-tools"><li><a href="history/" class="historylink">{% trans "History" %}</a></li>
+  {% if has_absolute_url %}<li><a href="../../../r/{{ content_type_id }}/{{ object_id }}/" class="viewsitelink">{% trans "View on site" %}</a></li>{% endif%}
+  </ul>
+{% endif %}{% endif %}
+<form {% if has_file_field %}enctype="multipart/form-data" {% endif %}action="{{ form_url }}" method="post" id="{{ opts.module_name }}_form">{% block form_top %}{% endblock %}
+<div>
+{% if is_popup %}<input type="hidden" name="_popup" value="1" />{% endif %}
+{% if opts.admin.save_on_top %}{% submit_row %}{% endif %}
+{% if form.error_dict %}
+    <p class="errornote">
+    {% blocktrans count form.error_dict.items|length as counter %}Please correct the error below.{% plural %}Please correct the errors below.{% endblocktrans %}
+    </p>
+{% endif %}
+{% for bound_field_set in bound_field_sets %}
+   <fieldset class="module aligned {{ bound_field_set.classes }}">
+    {% if bound_field_set.name %}<h2>{{ bound_field_set.name }}</h2>{% endif %}
+    {% if bound_field_set.description %}<div class="description">{{ bound_field_set.description }}</div>{% endif %}
+    {% for bound_field_line in bound_field_set %}
+        {% admin_field_line bound_field_line %}
+        {% for bound_field in bound_field_line %}
+            {% filter_interface_script_maybe bound_field %}
+        {% endfor %}
+    {% endfor %}
+   </fieldset>
+{% endfor %}
+{% block after_field_sets %}{% endblock %}
+{% if change %}
+   {% if ordered_objects %}
+   <fieldset class="module"><h2>{% trans "Ordering" %}</h2>
+   <div class="form-row{% if form.order_.errors %} error{% endif %} ">
+   {% if form.order_.errors %}{{ form.order_.html_error_list }}{% endif %}
+   <p><label for="id_order_">{% trans "Order:" %}</label> {{ form.order_ }}</p>
+   </div></fieldset>
+   {% endif %}
+{% endif %}
+{% for related_object in inline_related_objects %}{% edit_inline related_object %}{% endfor %}
+{% block after_related_objects %}{% endblock %}
+{% submit_row %}
+{% if add %}
+   <script type="text/javascript">document.getElementById("{{ first_form_field_id }}").focus();</script>
+{% endif %}
+{% if auto_populated_fields %}
+   <script type="text/javascript">
+   {% auto_populated_field_script auto_populated_fields change %}
+   </script>
+{% endif %}
+</div>
+</form></div>
+{% endblock %}

data/vendor/pygments-main/tests/examplefiles/dwarf.cw

@@ -0,0 +1,17 @@
+;redcode
+;name          Dwarf
+;author        A. K. Dewdney
+;version       94.1
+;date          April 29, 1993
+;strategy      Bombs every fourth instruction.
+        ORG     start              ; Indicates the instruction with
+                                   ; the label "start" should be the
+                                   ; first to execute.
+step    EQU      4                 ; Replaces all occurrences of "step"
+                                   ; with the character "4".
+target  DAT.F   #0,     #0         ; Pointer to target instruction.
+start   ADD.AB  #step,   target    ; Increments pointer by step.
+        MOV.AB  #0,     @target    ; Bombs target instruction.
+        JMP.A    start             ; Same as JMP.A -2.  Loops back to
+                                   ; the instruction labelled "start".
+        END

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

@@ -0,0 +1,10 @@
+1> io:format("Hello\n").
+Hello
+ok
+2> fun(X) -> X + 1 end.
+#Fun<erl_eval.6.13229925>
+3> 123 + 234.
+357
+4> X = Y.
+* 1: variable 'Y' is unbound
+5> 

data/vendor/pygments-main/tests/examplefiles/escape_semicolon.clj

@@ -0,0 +1 @@
+(= c (int \;)) (do (.readLine s) :line-start)

data/vendor/pygments-main/tests/examplefiles/evil_regex.js

@@ -0,0 +1,48 @@
+/regexp/.test(foo) || x = [/regexp/,/regexp/, /regexp/, // comment
+// comment
+/regexp/];
+if (/regexp/.test(string))
+{/regexp/.test(string);};
+x =/regexp/;
+x = /regexp/;
+if (0</regexp/.exec(string) || 1>/regexp/.exec(string))
+x = { u:/regexp/, v: /regexp/ };
+foo();/regexp/.test(string); /regexp/.test(string);
+if (!/regexp/) foobar();
+x = u %/regexp/.exec(string) */regexp/.exec(string) / /regexp/.exec(string);
+x = u?/regexp/.exec(string) : v +/regexp/.exec(string) -/regexp/.exec(string);
+a = u^/regexp/.exec(string) &/regexp/.exec(string) |/regexp/.exec(string) +~/regexp/.exec(string);
+x = /regexp/ /* a comment */ ;
+x = /[reg/exp]/;
+x = 4/2/i;
+x = (a == b) ?/* this is a comment */ c : d;
+/// a comment //
+a = /regex//2/1; //syntactically correct, returns NaN
+
+
+
+
+/* original examples */
+
+// regex
+
+blah(/abc/);
+x = /abc/;
+x = /abc/.match;
+
+// math
+
+blah(1/2); //comment
+x = 1 / 2 / 3;
+x = 1/1/.1;
+
+// broken
+
+x=/1/;
+x=1/a/g;
+x=a/a/g;
+
+// real-world
+
+var x = 1/(1+Math.sqrt(sum)); // convert to number between 1-0
+return Math.round((num / den) * 100)/100;

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
+       }
+   }
+}