rouge 3.17.0

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/slice

@@ -0,0 +1,10 @@
+// Printer.ice
+module Demo
+{
+    interface Printer
+    {
+        // A client can invoke this operation on a server.
+        // In this example we print the string s
+        void printString(string s);
+    }
+}

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/sparql

@@ -0,0 +1,6 @@
+SELECT ?item ?itemLabel
+WHERE
+{
+  ?item wdt:P31 wd:Q146.
+  SERVICE wikibase:label { bd:serviceParam wikibase:language "[AUTO_LANGUAGE],en". }
+}

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/supercollider

@@ -0,0 +1,11 @@
+// modulate a sine frequency and a noise amplitude with another sine
+// whose frequency depends on the horizontal mouse pointer position
+~myFunction = {
+        var x = SinOsc.ar(MouseX.kr(1, 100));
+        SinOsc.ar(300 * x + 800, 0, 0.1)
+        +
+        PinkNoise.ar(0.1 * x + 0.1)
+};
+
+~myFunction.play;
+"that's all, folks!".postln;

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,16 @@
+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}"]
+}

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/ttcn3

@@ -0,0 +1,6 @@
+module DNSTester {
+  type integer Identification( 0..65535 ); // 16-bit integer
+  type enumerated MessageKind {e_Question, e_Answer};
+  type charstring Question;
+  type charstring Answer;
+}

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/vcl

@@ -0,0 +1,12 @@
+vcl 4.0;
+
+backend server1 {
+      .host = "server1.example.com";
+      .probe = {
+              .url = "/";
+              .timeout = 1s;
+              .interval = 5s;
+              .window = 5;
+              .threshold = 3;
+      }
+}

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/xojo

@@ -0,0 +1,14 @@
+Dim f As FolderItem
+f = GetOpenFolderItem(FileTypes1.jpeg) // defined in the File Type Set editor
+rem - we should check for nil!
+If not f.Exists Then
+  Beep 'Just for fun
+  MsgBox("The file " + f.NativePath + "doesn't ""exist.""")
+Else // document exists
+  ImageWell1.image=Picture.Open(f)
+End If
+if f isa folderitem then
+  msgbox(f.name)
+end if
+Exception err As NilObjectException
+  MsgBox("Invalid pathname!")

data/lib/rouge/demos/xpath

@@ -0,0 +1,2 @@
+(: Authors named Bob Joe who didn't graduate from Harvard :)
+//author[first-name = "Joe" and last-name = "Bob"][degree/@from != "Harvard"]

data/lib/rouge/demos/xquery

@@ -0,0 +1,22 @@
+declare namespace html = "http://www.w3.org/1999/xhtml";
+
+declare function local:test-function($catalog as document-node()) {
+  <html>
+    <head>
+      <title>XQuery example for the Rouge highlighter</title>
+      <link href="style.css"/>
+    </head>
+    <body>
+      <h1>List</h1>
+      <ul>
+        {for $product in $catalog/items/product[@sell-by > current-date()] return
+        <li>
+          <ul>
+            <li>{data($product/name)}</li>
+            <li>{$product/price * (1 + $product/tax)}$</li>
+          </ul>
+        </li>}
+      </ul>
+    </body>
+  </html>
+};

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,112 @@
+# -*- 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
+
+    def self.with_escape
+      Thread.current[:'rouge/with-escape'] = true
+      yield
+    ensure
+      Thread.current[:'rouge/with-escape'] = false
+    end
+
+    def self.escape_enabled?
+      !!(((defined? @escape_enabled) && @escape_enabled) || Thread.current[:'rouge/with-escape'])
+    end
+
+    def self.enable_escape!
+      @escape_enabled = true
+    end
+
+    def self.disable_escape!
+      @escape_enabled = false
+      Thread.current[:'rouge/with-escape'] = false
+    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
+
+    def escape?(tok)
+      tok == Token::Tokens::Escape
+    end
+
+    def filter_escapes(tokens)
+      tokens.each do |t, v|
+        if t == Token::Tokens::Escape
+          yield Token::Tokens::Error, v
+        else
+          yield t, v
+        end
+      end
+    end
+
+    # Format a token stream.
+    def format(tokens, &b)
+      tokens = enum_for(:filter_escapes, tokens) unless Formatter.escape_enabled?
+
+      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 %r/\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