rouge-alda 3.3.0

data/lib/rouge/demos/prolog

@@ -0,0 +1,9 @@
+diff(plus(A,B), X, plus(DA, DB))
+   <= diff(A, X, DA) and diff(B, X, DB).
+
+diff(times(A,B), X, plus(times(A, DB), times(DA, B)))
+   <= diff(A, X, DA) and diff(B, X, DB).
+
+equal(X, X).
+diff(X, X, 1).
+diff(Y, X, 0) <= not equal(Y, X).

data/lib/rouge/demos/prometheus

@@ -0,0 +1,9 @@
+"this is a string"
+'these are unescaped: \n \\ \t'
+`these are not unescaped: \n ' " \t`
+
+http_requests_total{environment=~"staging|testing|development", method!="GET"}
+
+http_requests_total offset 5m
+
+sum(http_requests_total{method="GET"}[10m] offset 5m)

data/lib/rouge/demos/properties

@@ -0,0 +1,7 @@
+# You are reading the ".properties" entry.
+! The exclamation mark can also mark text as comments.
+website = http\://en.wikipedia.org/
+language = English
+country : Poland
+continent=Europe
+key.with.dots=This is the value that could be looked up with the key "key.with.dots".

data/lib/rouge/demos/protobuf

@@ -0,0 +1,5 @@
+message Person {
+  required string name = 1;
+  required int32 id = 2;
+  optional string email = 3;
+}

data/lib/rouge/demos/puppet

@@ -0,0 +1,6 @@
+service { 'ntp':
+  name      => $service_name,
+  ensure    => running,
+  enable    => true,
+  subscribe => File['ntp.conf'],
+}

data/lib/rouge/demos/python

@@ -0,0 +1,6 @@
+def fib(n):    # write Fibonacci series up to n
+    """Print a Fibonacci series up to n."""
+    a, b = 0, 1
+    while a < n:
+        print a,
+        a, b = b, a+b

data/lib/rouge/demos/q

@@ -0,0 +1,2 @@
+/ comment
+x: til 10

data/lib/rouge/demos/qml

@@ -0,0 +1,9 @@
+import QtQuick 2.0
+Item {
+    width: 200
+    height: 100
+    MouseArea {
+        anchors.fill: parent
+        onClicked: Qt.quit()
+    }
+}

data/lib/rouge/demos/r

@@ -0,0 +1,8 @@
+dbenford <- function(x){
+    log10(1 + 1/x)
+}
+
+pbenford <- function(q){
+    cumprobs <- cumsum(dbenford(1:9))
+    return(cumprobs[q])
+}

data/lib/rouge/demos/racket

@@ -0,0 +1,24 @@
+#lang racket
+
+;; draw a graph of cos and deriv^3(cos)
+(require plot)
+(define ((deriv f) x)
+  (/ (- (f x) (f (- x 0.001))) 0.001))
+(define (thrice f) (lambda (x) (f (f (f x)))))
+(plot (list (function ((thrice deriv) sin) -5 5)
+            (function cos -5 5 #:color 'blue)))
+
+;; Print the Greek alphabet
+(for ([i (in-range 25)])
+  (displayln
+   (integer->char
+    (+ i (char->integer #\u3B1)))))
+
+;; An echo server
+(define listener (tcp-listen 12345))
+(let echo-server ()
+  (define-values (in out) (tcp-accept listener))
+  (thread (λ ()
+             (copy-port in out)
+             (close-output-port out)))
+  (echo-server))

data/lib/rouge/demos/ruby

@@ -0,0 +1,9 @@
+class Greeter
+  def initialize(name="World")
+    @name = name
+  end
+
+  def say_hi
+    puts "Hi #{@name}!"
+  end
+end

data/lib/rouge/demos/rust

@@ -0,0 +1,12 @@
+use core::*;
+
+fn main() {
+    for ["Alice", "Bob", "Carol"].each |&name| {
+        do task::spawn {
+            let v = rand::Rng().shuffle([1, 2, 3]);
+            for v.each |&num| {
+                io::print(fmt!("%s says: '%d'\n", name, num))
+            }
+        }
+    }
+}

data/lib/rouge/demos/sass

@@ -0,0 +1,3 @@
+@for $i from 1 through 3
+  .item-#{$i}
+    width: 2em * $i

data/lib/rouge/demos/scala

@@ -0,0 +1,3 @@
+class Greeter(name: String = "World") {
+  def sayHi() { println("Hi " + name + "!") }
+}

data/lib/rouge/demos/scheme

@@ -0,0 +1,4 @@
+(define Y
+  (lambda (m)
+    ((lambda (f) (m (lambda (a) ((f f) a))))
+     (lambda (f) (m (lambda (a) ((f f) a)))))))

data/lib/rouge/demos/scss

@@ -0,0 +1,5 @@
+@for $i from 1 through 3 {
+  .item-#{$i} {
+    width: 2em * $i;
+  }
+}

data/lib/rouge/demos/sed

@@ -0,0 +1,4 @@
+/begin/,/end/ {
+  /begin/n # skip over the line that has "begin" on it
+  s/old/new/
+}

data/lib/rouge/demos/shell

@@ -0,0 +1,2 @@
+# If not running interactively, don't do anything
+[[ -z "$PS1" ]] && return

data/lib/rouge/demos/sieve

@@ -0,0 +1,10 @@
+require "fileinto";
+require "imap4flags";
+
+if header :is "X-Spam" "Yes" {
+    fileinto "Junk";
+    setflag "\\seen";
+    stop;
+}
+
+/* Other messages get filed into Inbox or to user's scripts */

data/lib/rouge/demos/slim

@@ -0,0 +1,17 @@
+doctype html
+html
+  body
+    h1 Markup examples   
+    #content
+      p 
+      | Slim can have #{ruby_code} interpolated!
+      /[if IE]
+        javascript:
+          alert('Slim supports embedded javascript!')
+
+      - unless items.empty?
+        table
+          - for item in items do
+            tr
+              td.name = item.name
+              td.price = item.price

data/lib/rouge/demos/smalltalk

@@ -0,0 +1,6 @@
+quadMultiply: i1 and: i2 
+    "This method multiplies the given numbers by each other
+    and the result by 4."
+    | mul |
+    mul := i1 * i2.
+    ^mul * 4

data/lib/rouge/demos/smarty

@@ -0,0 +1,12 @@
+{foo bar='single quotes' baz="double quotes" test3=$test3}
+
+<ul>
+  {foreach from=$myvariable item=data}
+    <li>{$data.field}</li>
+  {foreachelse}
+    <li>No Data</li>
+  {/foreach}
+</ul>
+
+<div class="{if $foo}class1{else}class2{/if}">{$foo.bar.baz}</div>
+

data/lib/rouge/demos/sml

@@ -0,0 +1,4 @@
+datatype shape
+   = Circle   of loc * real      (* center and radius *)
+   | Square   of loc * real      (* upper-left corner and side length; axis-aligned *)
+   | Triangle of loc * loc * loc (* corners *)

data/lib/rouge/demos/sqf

@@ -0,0 +1,14 @@
+// Creates a dot marker at the given position
+#include "script_component.hpp"
+params ["_pos", "_txt"];
+
+if (isNil QGVAR(markerID)) then {
+    GVAR(markerID) = 0;
+};
+
+_markerstr = createMarker [QGVAR(marker) + str GVAR(markerID), _pos];
+_markerstr setMarkerShape "ICON";
+_markerstr setMarkerType "hd_dot";
+_markerstr setMarkerText _txt;
+
+GVAR(markerID) = GVAR(markerID) + 1;

data/lib/rouge/demos/sql

@@ -0,0 +1 @@
+SELECT * FROM `users` WHERE `user`.`id` = 1

data/lib/rouge/demos/swift

@@ -0,0 +1,5 @@
+// Say hello to poeple
+func sayHello(personName: String) -> String {
+    let greeting = "Hello, " + personName + "!"
+    return greeting
+}

data/lib/rouge/demos/tap

@@ -0,0 +1,5 @@
+ok 1 - Input file opened
+not ok 2 - First line of the input valid
+ok 3 - Read the rest of the file
+not ok 4 - Summarized correctly # TODO Not written yet
+1..4

data/lib/rouge/demos/tcl

@@ -0,0 +1 @@
+proc cross_sum {s} {expr [join [split $s ""] +]}

data/lib/rouge/demos/terraform

@@ -0,0 +1,31 @@
+# From: https://github.com/terraform-providers/terraform-provider-aws/blob/master/examples/count/main.tf
+
+# Specify the provider and access details
+provider "aws" {
+  region = "${var.aws_region}"
+}
+
+resource "aws_elb" "web" {
+  name = "terraform-example-elb"
+
+  # The same availability zone as our instances
+  availability_zones = ["${aws_instance.web.*.availability_zone}"]
+
+  listener {
+    instance_port     = 80
+    instance_protocol = "http"
+    lb_port           = 80
+    lb_protocol       = "http"
+  }
+
+  # The instances are registered automatically
+  instances = ["${aws_instance.web.*.id}"]
+}
+
+resource "aws_instance" "web" {
+  instance_type = "m1.small"
+  ami           = "${lookup(var.aws_amis, var.aws_region)}"
+
+  # This will create 4 instances
+  count = 4
+}

data/lib/rouge/demos/tex

@@ -0,0 +1 @@
+To write \LaTeX\ you would type \verb:\LaTeX:.

data/lib/rouge/demos/toml

@@ -0,0 +1,9 @@
+# This is a TOML document. Boom.
+
+title = "TOML Example"
+
+[owner]
+name = "Tom Preston-Werner"
+organization = "GitHub"
+bio = "GitHub Cofounder & CEO\nLikes tater tots and beer."
+dob = 1979-05-27T07:32:00Z # First class dates? Why not?

data/lib/rouge/demos/tsx

@@ -0,0 +1,17 @@
+class HelloWorld extends React.Component<{date: Date}, void> {
+  render() {
+    return (
+      <p>
+        Hello, <input type="text" placeholder="Your name here" />!
+        It is {this.props.date.toTimeString()}
+      </p>
+    );
+  }
+}
+
+setInterval(function() {
+  ReactDOM.render(
+    <HelloWorld date={new Date()} />,
+    document.getElementById('example')
+  );
+}, 500);

data/lib/rouge/demos/tulip

@@ -0,0 +1,13 @@
+@module ref
+
+ref value = Ref (spawn [ ! => loop value ])
+
+loop value = receive [
+  .set new-value => loop new-value
+  p, id, .get => { send p (id, value); loop value }
+]
+
+@object Ref pid [
+  set val = .set val > send pid
+  get! = .get > send-wait pid
+]

data/lib/rouge/demos/turtle

@@ -0,0 +1,26 @@
+@prefix xsd:          <http://www.w3.org/2001/XMLSchema#>
+@prefix dcat:         <http://www.w3.org/ns/dcat#> .
+@prefix dcterms:      <http://purl.org/dc/terms/> .
+@prefix foaf:         <http://xmlns.com/foaf/0.1/> .
+@base                 <http://base.of.relative.iris> .
+
+PREFIX  test:         <http://example.org>
+PrEfIx  insensitive:  <http://insensitive.example.org>
+
+GRAPH <https://trig.testing.graph> {
+    <https://example.org/resource/dataset> a dcat:Dataset ; 
+
+#-----Mandatory-----#
+
+    dcterms:title 'Test title'@cs, "Test title"@en ;
+    dcterms:description """Multiline
+        string"""@cs, '''Another
+        multiline string '''@en ;
+
+#-----Recommended-----#
+    dcat:contactPoint [ a foaf:Person ] ;
+    test:list ( <http://ex.org> 1 1.1 +1 -1 1.2E+4 "Test" "\"Quote\"" ) ;
+    test:datatype "2016-07-20"^^xsd:date ;
+    test:text """next multiline""";
+    .
+}

data/lib/rouge/demos/twig

@@ -0,0 +1,9 @@
+{% include 'header.html' %}
+
+{% for user in users %}
+  * {{ user.name }}
+{% else %}
+  No users have been found.
+{% endfor %}
+
+{% include 'footer.html' %}

data/lib/rouge/demos/typescript

@@ -0,0 +1 @@
+$(document).ready(function() { alert('ready!'); });

data/lib/rouge/demos/vala

@@ -0,0 +1,8 @@
+class Demo.HelloWorld : GLib.Object
+{
+    public static int main (String[] args)
+    {
+        stdout.printf("Hello World\n");
+        return 0;
+    }
+}

data/lib/rouge/demos/vb

@@ -0,0 +1,4 @@
+Private Sub Form_Load()
+    ' Execute a simple message box that says "Hello, World!"
+    MsgBox "Hello, World!"
+End Sub

data/lib/rouge/demos/verilog

@@ -0,0 +1,27 @@
+/**
+ * Verilog Lexer
+ */
+module Foo(
+  input logic Clk_CI,
+  input logic Rst_RBI,
+  input logic A,
+  input logic B,
+  output logic C
+);
+  logic C_DN, C_DP;
+
+  assign C = C_DP;
+
+  always_comb begin : proc_next_state
+    C_DN = A + B;
+  end
+
+  // Clocked process
+  always_ff @(posedge Clk_CI, negedge Rst_RBI) begin
+    if(~Rst_RBI) begin
+      C_DP <= 1'b0;
+    end else begin
+      C_DP <= C_DN;
+    end
+  end
+endmodule

data/lib/rouge/demos/vhdl

@@ -0,0 +1,23 @@
+entity toggle_demo is
+	port (
+		clk_in : in  std_logic; -- System Clock
+		data_q : out std_logic	-- Toggling Port
+	);
+end entity toggle_demo;
+
+architecture RTL of toggle_demo is
+	signal data : std_logic := '0';
+begin
+
+	data_q <= data;
+
+	data_proc : process (clk_in)
+	begin
+	
+		if (rising_edge(clk_in)) then
+			data <= not data;
+		end if;
+	
+	end process; 
+
+end architecture RTL;

data/lib/rouge/demos/viml

@@ -0,0 +1,14 @@
+function! s:Make(dir, make, format, name) abort
+  let cd = exists('*haslocaldir') && haslocaldir() ? 'lcd' : 'cd'
+  let cwd = getcwd()
+  let [mp, efm, cc] = [&l:mp, &l:efm, get(b:, 'current_compiler', '')]
+  try
+    execute cd fnameescape(dir)
+    let [&l:mp, &l:efm, b:current_compiler] = [a:make, a:format, a:compiler]
+    execute (exists(':Make') == 2 ? 'Make' : 'make')
+  finally
+    let [&l:mp, &l:efm, b:current_compiler] = [mp, efm, cc]
+    if empty(cc) | unlet! b:current_compiler | endif
+    execute cd fnameescape(cwd)
+  endtry
+endfunction

data/lib/rouge/demos/vue

@@ -0,0 +1,11 @@
+<template>
+  <div id="app">
+    {{ message }}
+  </div>
+</template>
+
+<script lang=coffee>
+  app = new Vue
+    el: '#app'
+    data: { message: 'Hello Vue!' }
+</script>

data/lib/rouge/demos/wollok

@@ -0,0 +1,11 @@
+object pepita {
+    var energy = 100
+
+    method energy() = energy
+
+    method fly(kilometers) {
+        energy -= kilometers + 10
+    }
+
+    method sayHi() = "Coo!"
+}

data/lib/rouge/demos/xml

@@ -0,0 +1,2 @@
+<?xml version="1.0" encoding="utf-8"?>
+<xsl:template match="/"></xsl:template>

data/lib/rouge/demos/yaml

@@ -0,0 +1,4 @@
+---
+one: Mark McGwire
+two: Sammy Sosa
+three: Ken Griffey

data/lib/rouge/formatter.rb

@@ -0,0 +1,76 @@
+# -*- coding: utf-8 -*- #
+# frozen_string_literal: true
+
+module Rouge
+  # A Formatter takes a token stream and formats it for human viewing.
+  class Formatter
+    # @private
+    REGISTRY = {}
+
+    # Specify or get the unique tag for this formatter.  This is used
+    # for specifying a formatter in `rougify`.
+    def self.tag(tag=nil)
+      return @tag unless tag
+      REGISTRY[tag] = self
+
+      @tag = tag
+    end
+
+    # Find a formatter class given a unique tag.
+    def self.find(tag)
+      REGISTRY[tag]
+    end
+
+    # Format a token stream.  Delegates to {#format}.
+    def self.format(tokens, *a, &b)
+      new(*a).format(tokens, &b)
+    end
+
+    def initialize(opts={})
+      # pass
+    end
+
+    # Format a token stream.
+    def format(tokens, &b)
+      return stream(tokens, &b) if block_given?
+
+      out = String.new('')
+      stream(tokens) { |piece| out << piece }
+
+      out
+    end
+
+    # @deprecated Use {#format} instead.
+    def render(tokens)
+      warn 'Formatter#render is deprecated, use #format instead.'
+      format(tokens)
+    end
+
+    # @abstract
+    # yield strings that, when concatenated, form the formatted output
+    def stream(tokens, &b)
+      raise 'abstract'
+    end
+
+  protected
+    def token_lines(tokens, &b)
+      return enum_for(:token_lines, tokens) unless block_given?
+
+      out = []
+      tokens.each do |tok, val|
+        val.scan /\n|[^\n]+/ do |s|
+          if s == "\n"
+            yield out
+            out = []
+          else
+            out << [tok, s]
+          end
+        end
+      end
+
+      # for inputs not ending in a newline
+      yield out if out.any?
+    end
+
+  end
+end

data/lib/rouge/formatters/html.rb

@@ -0,0 +1,38 @@
+# -*- coding: utf-8 -*- #
+# frozen_string_literal: true
+
+module Rouge
+  module Formatters
+    # Transforms a token stream into HTML output.
+    class HTML < Formatter
+      tag 'html'
+
+      # @yield the html output.
+      def stream(tokens, &b)
+        tokens.each { |tok, val| yield span(tok, val) }
+      end
+
+      def span(tok, val)
+        safe_span(tok, val.gsub(/[&<>]/, TABLE_FOR_ESCAPE_HTML))
+      end
+
+      def safe_span(tok, safe_val)
+        if tok == Token::Tokens::Text
+          safe_val
+        else
+          shortname = tok.shortname \
+            or raise "unknown token: #{tok.inspect} for #{safe_val.inspect}"
+
+          "<span class=\"#{shortname}\">#{safe_val}</span>"
+        end
+      end
+
+
+      TABLE_FOR_ESCAPE_HTML = {
+        '&' => '&amp;',
+        '<' => '&lt;',
+        '>' => '&gt;',
+      }
+    end
+  end
+end

data/lib/rouge/formatters/html_inline.rb

@@ -0,0 +1,31 @@
+# -*- coding: utf-8 -*- #
+# frozen_string_literal: true
+
+module Rouge
+  module Formatters
+    class HTMLInline < HTML
+      tag 'html_inline'
+
+      def initialize(theme)
+        if theme.is_a?(Class) && theme < Rouge::Theme
+          @theme = theme.new
+        elsif theme.is_a?(Rouge::Theme)
+          @theme = theme
+        elsif theme.is_a?(String)
+          @theme = Rouge::Theme.find(theme).new
+        else
+          raise ArgumentError, "invalid theme: #{theme.inspect}"
+        end
+      end
+
+      def safe_span(tok, safe_val)
+        return safe_val if tok == Token::Tokens::Text
+
+        rules = @theme.style_for(tok).rendered_rules
+
+        "<span style=\"#{rules.to_a.join(';')}\">#{safe_val}</span>"
+      end
+    end
+  end
+end
+