nano-max-hub 0.0.1

data/rouge-5.0.0/lib/rouge/demos/pascal

@@ -0,0 +1,14 @@
+program FizzBuzz(output);
+var
+  i: Integer;
+begin
+  for i := 1 to 100 do
+    if i mod 15 = 0 then
+      WriteLn('FizzBuzz')
+    else if i mod 3 = 0 then
+      WriteLn('Fizz')
+    else if i mod 5 = 0 then
+      WriteLn('Buzz')
+    else
+      WriteLn(i)
+end.

data/rouge-5.0.0/lib/rouge/demos/pdf

@@ -0,0 +1,29 @@
+%PDF-1.6
+%©©©©
+
+1 0 obj<</Type/Catalog/Pages 2 0 R/StructTreeRoot null/MarkInfo<</Marked false>>>>
+endobj
+2 0 obj<</Type/Pages/Kids[3 0 R]/Count 1>>
+endobj
+3 0 obj<</Type/Page/Parent 2 0 R/MediaBox[.0 0 200 200]/Contents 4 0 R/Resources<<>>>>
+endobj
+4 0 obj<</Length 60>>
+stream
+  +8 w 1 j
+  1.0 0 0 rg
+  0 0 1 RG
+  10 10 180 180 re B
+endstream
+endobj
+xref
+0 5
+0000000000 65535 f
+0000000021 00000 n
+0000000113 00000 n
+0000000165 00000 n
+0000000261 00000 n
+trailer
+<</Root 1 0 R/Size 5/ID[<18D6B641245C03F28E67D93AD879D6EC><18D6B641245C03F28E67D93AD879D6EC>]>>
+startxref
+371
+%%EOF

data/rouge-5.0.0/lib/rouge/demos/perl

@@ -0,0 +1,5 @@
+#!/usr/bin/env perl
+use warnings;
+print "a: ";
+my $a = "foo";
+print $a;

data/rouge-5.0.0/lib/rouge/demos/php

@@ -0,0 +1,3 @@
+<?php
+  print("Hello {$world}");
+?>

data/rouge-5.0.0/lib/rouge/demos/plaintext

@@ -0,0 +1 @@
+plain text :)

data/rouge-5.0.0/lib/rouge/demos/plist

@@ -0,0 +1,11 @@
+// !$*UTF8*$!
+{
+	archiveVersion = 1;
+	classes = {
+	};
+	objectVersion = 46;
+	objects = {
+	/* ... */
+	};
+	rootObject = B3A67937542EC2041CBF1CA2 /* Project object */;
+}

data/rouge-5.0.0/lib/rouge/demos/plsql

@@ -0,0 +1,2 @@
+SELECT q'{a quoted string}' AS s, TO_CHAR(SYSDATE,'MM/DD/YYYY') AS "Current Date" FROM DUAL
+WHERE 1=1;

data/rouge-5.0.0/lib/rouge/demos/pony

@@ -0,0 +1,17 @@
+use "ponytest"
+
+actor Main is TestList
+  new create(env: Env) => PonyTest(env, this)
+  new make() => None
+
+  fun tag tests(test: PonyTest) =>
+    test(_TestAddition)
+
+class iso _TestAddition is UnitTest
+  """
+  Adding 2 numbers
+  """
+  fun name(): String => "u32/add"
+
+  fun apply(h: TestHelper): TestResult =>
+    h.expect_eq[U32](2 + 2, 4)

data/rouge-5.0.0/lib/rouge/demos/postscript

@@ -0,0 +1,9 @@
+%!PS
+/Courier             % name the desired font
+20 selectfont        % choose the size in points and establish
+                     % the font as the current one
+72 500 moveto        % position the current point at
+                     % coordinates 72, 500 (the origin is at the
+                     % lower-left corner of the page)
+(Hello world!) show  % stroke the text in parentheses
+showpage             % print all on the page

data/rouge-5.0.0/lib/rouge/demos/powershell

@@ -0,0 +1,13 @@
+function Verb-Noun
+{
+    <#
+    .SYNOPSIS
+    Tells you what it does
+
+    .DESCRIPTION
+    Tells you what it does with more detail.
+    #>
+    param ([string]$Name, [string]$Extension = "txt", [string]$foo="bar")
+    $name = $name + "." + $extension
+    $name
+}

data/rouge-5.0.0/lib/rouge/demos/praat

@@ -0,0 +1,26 @@
+form Copy selected files...
+  word Prefix
+  word Suffix _copy
+  boolean Keep_original 1
+endform
+
+total_objects = numberOfSelected()
+for i to total_objects
+  my_object[i] = selected(i)
+endfor
+for i to total_objects
+  selectObject: my_object[i]
+  @copy()
+  new[i] = selected()
+endfor
+if total_objects
+  selectObject: new[1]
+  for i from 2 to total_objects
+    plusObject: new[i]
+  endfor
+endif
+
+procedure copy ()
+  .name$ = extractWord$(selected$(), " ")
+  Copy: prefix$ + .name$ + suffix$
+endproc

data/rouge-5.0.0/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/rouge-5.0.0/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/rouge-5.0.0/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/rouge-5.0.0/lib/rouge/demos/protobuf

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

data/rouge-5.0.0/lib/rouge/demos/puppet

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

data/rouge-5.0.0/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/rouge-5.0.0/lib/rouge/demos/q

@@ -0,0 +1,8 @@
+/ comment
+x: til 10
+
+tab:([]a:1 2 3;b:`a `b `c);
+
+function:{[table]
+	select from table where b=`c
+	};

data/rouge-5.0.0/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/rouge-5.0.0/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/rouge-5.0.0/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/rouge-5.0.0/lib/rouge/demos/reasonml

@@ -0,0 +1,12 @@
+/* I like a teacher who gives you something to take
+   home to think about besides homework. */
+let gpa_score = 5.0;
+type schoolPerson = Teacher | Director | Student(string);
+
+let greeting = person =>
+  switch (person) {
+  | Teacher => "Hey Professor!"
+  | Director => "Hello Director."
+  | Student("Richard") => "Still here Ricky?"
+  | Student(anyOtherName) => "Hey, " ++ anyOtherName ++ "."
+  };

data/rouge-5.0.0/lib/rouge/demos/rego

@@ -0,0 +1,8 @@
+package httpapi.authz
+
+subordinates = {"alice": [], "charlie": [], "bob": ["alice"], "betty": ["charlie"]}
+
+# HTTP API request
+import input
+
+default allow = false

data/rouge-5.0.0/lib/rouge/demos/rescript

@@ -0,0 +1,26 @@
+module Person = {
+  type t = Teacher | Director | Student(string)
+
+  let greeting = person =>
+    switch person {
+    | Teacher => "Hey Professor!"
+    | Director => "Hello Director."
+    | Student("Richard") => "Still here Ricky?"
+    | Student(other) => "Hey, " ++ other ++ "."
+    }
+}
+
+module Button = {
+  @react.component
+  let make = (~count: int, ~onClick) => {
+    let times = switch count {
+    | 1 => "once"
+    | 2 => "twice"
+    | n => Belt.Int.toString(n) ++ " times"
+    }
+
+    let msg = "Click me " ++ times
+
+    <button onClick> {msg->React.string} </button>
+  }
+}

data/rouge-5.0.0/lib/rouge/demos/rml

@@ -0,0 +1,33 @@
+// A system agnostic domain specific language for runtime monitoring and verification
+// Basic events
+
+insert(index,elem) matches {event:'func_pre',name:'my_insert',args:[index,elem]};
+
+relevant matches insert(_,_)|remove(_,_)|size(_)|get(_,_);
+
+insert_in_bounds(size) matches insert(index,_) with index >= 0 && index <= size;
+
+del_false matches del(_,false);
+not_add_true_del(el) not matches add(el,true) | del(el,_);
+
+Main = relevant >> (CheckIndex<0> /\ add_rm_get >> CheckElem)!;
+CheckIndex<size> =
+    get_size(size)* (insert_in_bounds(size) CheckIndex<size+1> \/ remove_in_bounds(size) CheckIndex<size-1>);
+
+Msg<inf,sup> = if(inf<=sup) msg(inf) Msg<inf+1,sup> else empty;
+Main=relevant>>Msg<1,4>*!;
+
+acquire(id) matches {event:'func_pre',name:'acquire',args:[_,id,...]};
+
+Main = relevant >> Resources;
+Resources =
+    {let id; acquire(id)
+        ((Resources | use(id)* release(id)) /\
+        acqRel(id) >> release(id) all)
+    }?;
+
+msg(ty) matches {event:'func_pre',name:'msg',args:[ty]};
+relevant matches msg(_);
+
+Msg<inf,sup> = if(inf<=sup) msg(inf) Msg<inf+1,sup> else empty;
+Main=relevant>>Msg<1,4>*!;

data/rouge-5.0.0/lib/rouge/demos/robot_framework

@@ -0,0 +1,27 @@
+*** Settings ***
+Document	  Example taken from http://robotframework.org/
+Suite Setup       Open Browser To Login Page
+Suite Teardown    Close Browser
+Test Setup        Go To Login Page
+Test Template     Login With Invalid Credentials Should Fail
+Resource          resource.txt
+
+*** Test Cases ***               User Name        Password
+Invalid Username                 invalid          ${VALID PASSWORD}
+Invalid Password                 ${VALID USER}    invalid
+Invalid Username And Password    invalid          whatever
+Empty Username                   ${EMPTY}         ${VALID PASSWORD}
+Empty Password                   ${VALID USER}    ${EMPTY}
+Empty Username And Password      ${EMPTY}         ${EMPTY}
+
+*** Keywords ***
+Login With Invalid Credentials Should Fail
+    [Arguments]    ${username}    ${password}
+    Input Username    ${username}
+    Input Password    ${password}
+    Submit Credentials
+    Login Should Have Failed
+
+Login Should Have Failed
+    Location Should Be    ${ERROR URL}
+    Title Should Be    Error Page

data/rouge-5.0.0/lib/rouge/demos/rocq

@@ -0,0 +1,16 @@
+Require Import Coq.Lists.List.
+
+Section with_T.
+  Context {T : Type}.
+
+  Fixpoint length (ls : list T) : nat :=
+    match ls with
+    | nil => 0
+    | _ :: ls => S (length ls)
+    end.
+End with_T.
+
+Definition a_string := "hello
+world".
+Definition escape_string := "0123".
+Definition zero_string := "0".

data/rouge-5.0.0/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/rouge-5.0.0/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/rouge-5.0.0/lib/rouge/demos/sas

@@ -0,0 +1,13 @@
+data sim;
+    do i = 1 to 100;
+        x1 = rand("Normal");
+        x2 = rand("Binomial", 0.5, 100);
+        output;
+    end;
+run;
+
+proc means data=sashelp.class;
+    class sex;
+    var height weight;
+    output out = mean_by_sex;
+run;

data/rouge-5.0.0/lib/rouge/demos/sass

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

data/rouge-5.0.0/lib/rouge/demos/scala

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

data/rouge-5.0.0/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/rouge-5.0.0/lib/rouge/demos/scss

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

data/rouge-5.0.0/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/rouge-5.0.0/lib/rouge/demos/shell

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

data/rouge-5.0.0/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/rouge-5.0.0/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/rouge-5.0.0/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/rouge-5.0.0/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/rouge-5.0.0/lib/rouge/demos/smarty

@@ -0,0 +1,11 @@
+{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/rouge-5.0.0/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/rouge-5.0.0/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/rouge-5.0.0/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/rouge-5.0.0/lib/rouge/demos/sql

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

data/rouge-5.0.0/lib/rouge/demos/ssh

@@ -0,0 +1,4 @@
+Host example
+    Hostname example.com
+    User user
+    Port 1234

data/rouge-5.0.0/lib/rouge/demos/stan

@@ -0,0 +1,13 @@
+data {
+  int<lower=0> N;
+  vector[N] x;
+  vector[N] y;
+}
+parameters {
+  real alpha;
+  real beta;
+  real<lower=0> sigma;
+}
+model {
+  y ~ normal(alpha + beta * x, sigma);
+}

data/rouge-5.0.0/lib/rouge/demos/stata

@@ -0,0 +1,14 @@
+* Run a series of linear regressions
+sysuse auto, clear
+foreach v of varlist mpg weight-turn {
+	regress price `v', robust
+}
+
+regress price i.foreign
+local num_obs = e(N)
+global myglobal = 4
+
+* Generate and manipulate variables
+generate newvar1 = "string"
+generate newvar2 = 34 - `num_obs'
+replace newvar2 = $myglobal

data/rouge-5.0.0/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/rouge-5.0.0/lib/rouge/demos/svelte

@@ -0,0 +1,29 @@
+<!-- This file is made up from several examples on https://svelte.dev/examples and is not expected to function. -->
+<script lang="ts">
+    import Image from './Image.svelte';
+
+    let src: string = '/tutorial/image.gif';
+    let count: number = 1;
+    $: doubled = count * 2;  // the `$:` is special in svelte
+</script>
+
+<Image {src} bind:alt="{name.capitalize()} dancing" user={name.toUpperCase(false, 42, {key: 'value'})}
+       tooltip="I'm helping" false text=asdf on:message={handleMessage} />
+
+{#await loadSrc(src)}
+    loading...
+{:then data}
+    {#each cats as { name }, i}
+        <li>{name}</li>
+    {/each}
+
+    <!-- Keyed Each Block -->
+    {#each cats as cat (cat.id)}
+        <li>{cat.name}</li>
+    {/each}
+{:catch err}
+    {@debug err}
+    {#await solveErr(err, {x: 'asdf'}) then reason}{@html reason}{/await}
+{/await}
+
+<style>p {font-family: 'Comic Sans MS', cursive;}</style>

data/rouge-5.0.0/lib/rouge/demos/swift

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

data/rouge-5.0.0/lib/rouge/demos/systemd

@@ -0,0 +1,4 @@
+[Unit]
+Description=Snap Daemon
+Requires=snapd.socket
+OnFailure=snapd.failure.service