pygments.rb 0.6.3 → 1.0.0

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

@@ -1,51 +0,0 @@
-you_lose_msg = "Either that person does not exist, or has a different password.";
-if (!(caller in {#0, this}))
-  return E_PERM;
-  "...caller isn't :do_login_command...";
-elseif (args && (args[1] == "test"))
-  return this:test(@listdelete(args, 1));
-elseif (!(length(args) in {1, 2}))
-  notify(player, tostr("Usage:  ", verb, " <existing-player-name> <password>"));
-elseif (!valid(candidate = this:_match_player(name = strsub(args[1], " ", "_"))))
-  if (name == "guest")
-    "must be no guests";
-    this:notify_lines(this:registration_text("guest"));
-  else
-    notify(player, you_lose_msg);
-  endif
-  "...unknown player...";
-elseif (is_clear_property(candidate, "password") || ((typeof(candidate.password) == STR) && ((length(candidate.password) < 2) || (crypt({@args, ""}[2], candidate.password) != candidate.password))))
-  notify(player, you_lose_msg);
-  "...bad password...";
-  server_log(tostr("FAILED CONNECT: ", args[1], " (", candidate, ") on ", connection_name(player), ($string_utils:connection_hostname(connection_name(player)) in candidate.all_connect_places) ? "" | "******"));
-elseif (((candidate.name == "guest") && this.sitematch_guests) && valid(foreigner = $country_db:get_guest()))
-  notify(player, tostr("Okay,...  Logging you in as `", foreigner:name(), "'"));
-  this:record_connection(foreigner);
-  return foreigner;
-elseif ((parent(candidate) == $guest) && (!valid(candidate = candidate:defer())))
-  if (candidate == #-3)
-    notify(player, "Sorry, guest characters are not allowed from your site right now.");
-  elseif (candidate == #-2)
-    this:notify_lines(this:registration_text("blacklisted", "Sorry, guest characters are not allowed from your site."));
-  elseif (candidate == #-4)
-    this:notify_lines(this:registration_text("guest"));
-  else
-    notify(player, "Sorry, all of our guest characters are in use right now.");
-  endif
-else
-  if ((!(name in candidate.aliases)) && (name != tostr(candidate)))
-    notify(player, tostr("Okay,... ", name, " is in use.  Logging you in as `", candidate:name(), "'"));
-  endif
-  if (this:is_newted(candidate))
-    notify(player, "");
-    notify(player, this:newt_message_for(candidate));
-    notify(player, "");
-  else
-    this:record_connection(candidate);
-    if (verb[1] == "s")
-      candidate.use_do_command = 0;
-    endif
-    return candidate;
-  endif
-endif
-return 0;

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

@@ -1,166 +0,0 @@
-<%doc>formatting.myt - Provides section formatting elements, syntax-highlighted code blocks, and other special filters.</%doc>
-
-<%global>
-    import string, re
-    import highlight
-</%global>
-
-<%method section>
-<%doc>Main section formatting element.</%doc>
-<%args>
-    toc
-    path
-    description=None
-    onepage=False
-</%args>
-<%init>
-    item = toc.get_by_path(path)
-    if item is None:
-        raise "path: " + path
-</%init>
-
-<A name="<% item.path %>"></a>
-
-<div class="subsection" style="margin-left:<% repr(item.depth * 10) %>px;">
-
-<%python>
-    content = m.content()
-    re2 = re.compile(r"'''PYESC(.+?)PYESC'''", re.S)
-    content = re2.sub(lambda m: m.group(1), content)
-</%python>
-
-% if item.depth > 1:
-<h3><% description or item.description %></h3>
-%
-
-    <div class="sectiontext">
-    <% content %>
-    </div>
-
-% if onepage or item.depth > 1:
-%   if (item.next and item.next.depth >= item.depth):
-    <a href="#<% item.get_page_root().path %>" class="toclink">back to section top</a>
-%
-% else:
-    <a href="#<% item.get_page_root().path %>" class="toclink">back to section top</a>
-    <& nav.myt:pagenav, item=item, onepage=onepage &>
-% 
-</div>
-
-</%method>
-
-
-<%method formatplain>
-    <%filter>
-        import re
-        f = re.sub(r'\n[\s\t]*\n[\s\t]*', '</p>\n<p>', f)
-        f = "<p>" + f + "</p>"
-        return f
-    </%filter>
-<% m.content() | h%>
-</%method>
-
-
-
-
-<%method codeline trim="both">
-<span class="codeline"><% m.content() %></span>
-</%method>
-
-<%method code autoflush=False>
-<%args>
-    title = None
-    syntaxtype = 'python'
-    html_escape = False
-    use_sliders = False
-</%args>
-
-<%init>
-    def fix_indent(f):
-        f =string.expandtabs(f, 4)
-        g = ''
-        lines = string.split(f, "\n")
-        whitespace = None
-        for line in lines:
-            if whitespace is None:
-                match = re.match(r"^([ ]*).+", line)
-                if match is not None:
-                    whitespace = match.group(1)
-
-            if whitespace is not None:
-                line = re.sub(r"^%s" % whitespace, "", line)
-
-            if whitespace is not None or re.search(r"\w", line) is not None:
-                g += (line + "\n")
-
-
-        return g.rstrip()
-
-    p = re.compile(r'<pre>(.*?)</pre>', re.S)
-    def hlight(match):
-        return "<pre>" + highlight.highlight(fix_indent(match.group(1)), html_escape = html_escape, syntaxtype = syntaxtype) + "</pre>"
-    content = p.sub(hlight, "<pre>" + m.content() + "</pre>")
-</%init>
-<div class="<% use_sliders and "sliding_code" or "code" %>">
-% if title is not None:
-    <div class="codetitle"><% title %></div>
-%
-<% content %></div>
-</%method>
-
-
-
-
-<%method popboxlink trim="both"> 
-    <%args>
-        name=None
-        show='show'
-        hide='hide'
-    </%args>
-    <%init>
-        if name is None:
-            name = m.attributes.setdefault('popbox_name', 0)
-        name += 1
-        m.attributes['popbox_name'] = name
-        name = "popbox_" + repr(name)
-    </%init>
-javascript:togglePopbox('<% name %>', '<% show %>', '<% hide %>')
-</%method>
-
-<%method popbox trim="both">
-<%args>
-    name = None
-    class_ = None
-</%args>
-<%init>
-    if name is None:
-        name = 'popbox_' + repr(m.attributes['popbox_name'])
-</%init>
-<div id="<% name %>_div" class="<% class_ %>" style="display:none;"><% m.content().strip() %></div>
-</%method>
-
-<%method poplink trim="both">
-    <%args>
-        link='sql'
-    </%args>
-    <%init>
-        href = m.scomp('SELF:popboxlink')
-    </%init>
-    '''PYESC<& nav.myt:link, href=href, text=link, class_="codepoplink" &>PYESC'''
-</%method>
-
-<%method codepopper trim="both">
-	<%init>
-		c = m.content()
-		c = re.sub(r'\n', '<br/>\n', c.strip())
-	</%init>
-    </pre><&|SELF:popbox, class_="codepop" &><% c %></&><pre>
-</%method>
-
-<%method poppedcode trim="both">
-	<%init>
-		c = m.content()
-		c = re.sub(r'\n', '<br/>\n', c.strip())
-	</%init>
-    </pre><div class="codepop"><% c %></div><pre>
-</%method>

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

@@ -1,93 +0,0 @@
-import re
-
-for x in lines("myfile.txt"):
-  if x =~ re"(\w+)=(.*)":
-    echo "Key: ", matches[0],
-         " Value: ", matches[1]
-
-Echo("What's your name? ")
-var name: string = readLine(stdin)
-if name == "":
-  echo("Poor soul, you lost your name?")
-elif name == "name":
-  echo("Very funny, your name is name.")
-else:
-  Echo("Hi, ", name, "!")
-
-var name = readLine(stdin)
-case name
-of "":
-  echo("Poor soul, you lost your name?")
-of "name":
-  echo("Very funny, your name is name.")
-else:
-  Echo("Hi, ", name, "!")
-
-from strutils import parseInt
-
-Echo("A number please: ")
-var n = parseInt(readLine(stdin))
-case n
-of 0..2, 4..7: Echo("The number is in the set: {0, 1, 2, 4, 5, 6, 7}")
-of 3, 8: Echo("The number is 3 or 8")
-
-Echo("Counting to 10: ")
-var i = 1
-while i <= 10:
-  Echo($i)
-  inc(i)
-
-proc yes(question: string): bool =
-  Echo(question, " (y/n)")
-  while true:
-    case readLine(stdin)
-    of "y", "Y", "yes", "Yes": return true
-    of "n", "N", "no", "No": return false
-    else: Echo("Please be clear: yes or no")
-
-proc even(n: int): bool
-
-proc odd(n: int): bool =
-  if n == 1: return true
-  else: return even(n-1)
-
-iterator countup(a, b: int): int =
-  var res = a
-  while res <= b:
-    yield res
-    inc(res)
-
-type
-  TPerson = object of TObject
-    name*: string  # the * means that `name` is accessible from other modules
-    age: int       # no * means that the field is hidden from other modules
-
-  TStudent = object of TPerson # TStudent inherits from TPerson
-    id: int                    # with an id field
-
-var
-  student: TStudent
-  person: TPerson
-assert(student is TStudent)
-
-echo({'a', 'b', 'c'}.card)
-stdout.writeln("Hallo")
-var
-  f: TFile
-if open(f, "numbers.txt"):
-  try:
-    var a = readLine(f)
-    var b = readLine(f)
-    echo("sum: " & $(parseInt(a) + parseInt(b)))
-  except EOverflow:
-    echo("overflow!")
-  except EInvalidValue:
-    echo("could not convert string to integer")
-  except EIO:
-    echo("IO error!")
-  except:
-    echo("Unknown exception!")
-    # reraise the unknown exception:
-    raise
-  finally:
-    close(f)

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

@@ -1,10 +0,0 @@
-function sample_page() {
-  <header>
-    <h3>HTML in Opa</h3>
-  </header>
-  <article>
-    <div class=container>
-      <p>Learning by examples.</p>
-    </div>
-  </article>
-}

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

@@ -1,252 +0,0 @@
-#!/usr/bin/env perl6
-
-use v6;
-
-my $string = 'I look like a # comment!';
-
-if $string eq 'foo' {
-    say 'hello';
-}
-
-regex http-verb {
-      'GET'
-    | 'POST'
-    | 'PUT'
-    | 'DELETE'
-    | 'TRACE'
-    | 'OPTIONS'
-    | 'HEAD'
-}
-
-# a sample comment
-
-say 'Hello from Perl 6!'
-
-
-#`{
-multi-line comment!
-}
-
-say 'here';
-
-#`(
-multi-line comment!
-)
-
-say 'here';
-
-#`{{{
-I'm a special comment!
-}}}
-
-say 'there';
-
-#`{{
-I'm { even } specialer!
-}}
-
-say 'there';
-
-#`{{
-does {{nesting}} work?
-}}
-
-#`«<
-trying mixed delimiters
-»
-
-my $string = qq<Hooray, arbitrary delimiter!>;
-my $string = qq«Hooray, arbitrary delimiter!»;
-my $string = q <now with whitespace!>;
-my $string = qq<<more strings>>;
-
-my %hash := Hash.new;
-
-=begin pod
-
-Here's some POD!  Wooo
-
-=end pod
-
-=for Testing
-    This is POD (see? role isn't highlighted)
-
-say('this is not!');
-
-=table
-    Of role things
-
-say('not in your table');
-#= A single line declarator "block" (with a keyword like role)
-#| Another single line declarator "block" (with a keyword like role)
-#={
-    A declarator block (with a keyword like role)
-  }
-#|{
-    Another declarator block (with a keyword like role)
-  }
-#= { A single line declarator "block" with a brace (with a keyword like role)
-#=«
-    More declarator blocks! (with a keyword like role)
-  »
-#|«
-    More declarator blocks! (with a keyword like role)
-  »
-
-say 'Moar code!';
-
-my $don't = 16;
-
-sub don't($x) {
-    !$x
-}
-
-say don't 'foo';
-
-my %hash = (
-    :foo(1),
-);
-
-say %hash<foo>;
-say %hash<<foo>>;
-say %hash«foo»;
-
-say %*hash<foo>;
-say %*hash<<foo>>;
-say %*hash«foo»;
-
-say $<todo>;
-say $<todo>;
-
-for (@A Z @B) -> $a, $b {
-    say $a + $b;
-}
-
-Q:PIR {
-    .loadlib "somelib"
-}
-
-my $longstring = q/
-    lots
-    of
-    text
-/;
-
-my $heredoc = q:to/END_SQL/;
-SELECT * FROM Users
-WHERE first_name = 'Rob'
-END_SQL
-my $hello;
-
-# Fun with regexen
-
-if 'food' ~~ /foo/ {
-    say 'match!'
-}
-
-my $re  = /foo/;
-my $re2 = m/ foo /;
-my $re3 = m:i/ FOO /;
-
-call-a-sub(/ foo /);
-call-a-sub(/ foo \/ bar /);
-
-my $re4    = rx/something | something-else/;
-my $result = ms/regexy stuff/;
-my $sub0   = s/regexy stuff/more stuff/;
-my $sub    = ss/regexy stuff/more stuff/;
-my $trans  = tr/regexy stuff/more stuff/;
-
-my @values = <a b c d>;
-call-sub(<a b c d>);
-call-sub <a b c d>;
-
-my $result = $a < $b;
-
-for <a b c d> -> $letter {
-    say $letter;
-}
-
-sub test-sub {
-    say @_;
-    say $!;
-    say $/;
-    say $0;
-    say $1;
-    say @*ARGS;
-    say $*ARGFILES;
-    say &?BLOCK;
-    say ::?CLASS;
-    say $?CLASS;
-    say @=COMMENT;
-    say %?CONFIG;
-    say $*CWD;
-    say $=data;
-    say %?DEEPMAGIC;
-    say $?DISTRO;
-    say $*DISTRO;
-    say $*EGID;
-    say %*ENV;
-    say $*ERR;
-    say $*EUID;
-    say $*EXECUTABLE_NAME;
-    say $?FILE;
-    say $?GRAMMAR;
-    say $*GID;
-    say $*IN;
-    say @*INC;
-    say %?LANG;
-    say $*LANG;
-    say $?LINE;
-    say %*META-ARGS;
-    say $?MODULE;
-    say %*OPTS;
-    say %*OPT;
-    say $?KERNEL;
-    say $*KERNEL;
-    say $*OUT;
-    say $?PACKAGE;
-    say $?PERL;
-    say $*PERL;
-    say $*PID;
-    say %=pod;
-    say $*PROGRAM_NAME;
-    say %*PROTOCOLS;
-    say ::?ROLE;
-    say $?ROLE;
-    say &?ROUTINE;
-    say $?SCOPE;
-    say $*TZ;
-    say $*UID;
-    say $?USAGE;
-    say $?VM;
-    say $?XVM;
-}
-
-say <a b c>;
-
-my $perl5_re = m:P5/ fo{2} /;
-my $re5      = rx«something | something-else»;
-
-my $M := %*COMPILING<%?OPTIONS><M>;
-
-say $M;
-
-sub regex-name { ... }
-my $pair = role-name => 'foo';
-$pair = rolesque => 'foo';
-
-my sub something(Str:D $value) { ... }
-
-my $s = q«<
-some
-string
-stuff
-»;
-
-my $regex = m«< some chars »;
-# after
-
-say $/<foo><bar>;
-
-roleq;