nano-max-hub 0.0.1

data/rouge-5.0.0/lib/rouge/demos/factor

@@ -0,0 +1,5 @@
+USING: io kernel sequences ;
+
+4 iota [
+    "Happy Birthday " write 2 = "dear NAME" "to You" ? print
+] each

data/rouge-5.0.0/lib/rouge/demos/fluent

@@ -0,0 +1,13 @@
+# Simple things are simple.
+hello-user = Hello, {$userName}!
+
+# Complex things are possible.
+shared-photos =
+    {$userName} {$photoCount ->
+        [one] added a new photo
+       *[other] added {$photoCount} new photos
+    } to {$userGender ->
+        [male] his stream
+        [female] her stream
+       *[other] their stream
+    }.

data/rouge-5.0.0/lib/rouge/demos/fortran

@@ -0,0 +1,22 @@
+program bottles
+
+    implicit none
+    integer :: nbottles
+
+    do nbottles = 99, 1, -1
+        call print_bottles(nbottles)
+    end do
+
+contains
+
+    subroutine print_bottles(n)
+        implicit none
+        integer, intent(in) :: n
+
+        write(*, "(I0, 1X, 'bottles of beer on the wall,')") n
+        write(*, "(I0, 1X, 'bottles of beer.')") n
+        write(*, "('Take one down, pass it around,')")
+        write(*, "(I0, 1X, 'bottles of beer on the wall.', /)") n - 1
+    end subroutine print_bottles
+
+end program bottles

data/rouge-5.0.0/lib/rouge/demos/freefem

@@ -0,0 +1,16 @@
+include "MUMPS"
+
+// Parameters
+func f = 1.;
+
+// Mesh
+int nn = 25;	//Mesh quality
+mesh Th = square(nn, nn);
+
+// Fespace
+func Pk = P2;
+fespace Uh(Th, Pk);
+Uh u;
+
+// Plot
+plot(u, nbiso=30, fill=true, value=true, cmm="A");

data/rouge-5.0.0/lib/rouge/demos/fsharp

@@ -0,0 +1,12 @@
+(* Binary tree with leaves car­rying an integer. *)
+type Tree = Leaf of int | Node of Tree * Tree
+
+let rec existsLeaf test tree =
+  match tree with
+  | Leaf v -> test v
+  | Node (left, right) ->
+      existsLeaf test left
+      || existsLeaf test right
+
+let hasEvenLeaf tree =
+  existsLeaf (fun n -> n % 2 = 0) tree

data/rouge-5.0.0/lib/rouge/demos/gdscript

@@ -0,0 +1,18 @@
+extends Node
+
+# Variables & Built-in Types
+
+var a = 5
+var b = true
+var s = "Hello"
+var arr = [1, 2, 3]
+
+# Constants & Enums
+
+const ANSWER = 42
+enum { UNIT_NEUTRAL, UNIT_ENEMY, UNIT_ALLY }
+
+# Functions
+
+func _ready():
+    print("Hello, World")

data/rouge-5.0.0/lib/rouge/demos/ghc-cmm

@@ -0,0 +1,23 @@
+[lvl_s4t3_entry() //  [R1]
+         { info_tbls: [(c4uB,
+                        label: lvl_s4t3_info
+                        rep: HeapRep 1 ptrs { Thunk }
+                        srt: Nothing)]
+           stack_info: arg_space: 8 updfr_space: Just 8
+         }
+     {offset
+       c4uB: // global
+           if ((Sp + -32) < SpLim) (likely: False) goto c4uC; else goto c4uD;
+       c4uC: // global
+           R1 = R1;
+           call (stg_gc_enter_1)(R1) args: 8, res: 0, upd: 8;
+       c4uD: // global
+           I64[Sp - 16] = stg_upd_frame_info;
+           P64[Sp - 8] = R1;
+           R2 = P64[R1 + 16];
+           I64[Sp - 32] = stg_ap_p_info;
+           P64[Sp - 24] = Main.fib3_closure+1;
+           Sp = Sp - 32;
+           call GHC.Num.fromInteger_info(R2) args: 40, res: 0, upd: 24;
+     }
+ }

data/rouge-5.0.0/lib/rouge/demos/ghc-core

@@ -0,0 +1,26 @@
+Rec {
+-- RHS size: {terms: 24, types: 3, coercions: 0, joins: 0/0}
+Main.fib_fib [Occ=LoopBreaker] :: Integer -> Integer
+[GblId, Arity=1, Str=<S,U>, Unf=OtherCon []]
+Main.fib_fib
+  = \ (ds_d2OU :: Integer) ->
+      case integer-gmp-1.0.2.0:GHC.Integer.Type.eqInteger#
+             ds_d2OU Main.fib1
+      of {
+        __DEFAULT ->
+          case integer-gmp-1.0.2.0:GHC.Integer.Type.eqInteger#
+                 ds_d2OU Main.fib3
+          of {
+            __DEFAULT ->
+              integer-gmp-1.0.2.0:GHC.Integer.Type.plusInteger
+                (Main.fib_fib
+                   (integer-gmp-1.0.2.0:GHC.Integer.Type.minusInteger
+                      ds_d2OU Main.fib3))
+                (Main.fib_fib
+                   (integer-gmp-1.0.2.0:GHC.Integer.Type.minusInteger
+                      ds_d2OU Main.fib2));
+            1# -> Main.fib3
+          };
+        1# -> Main.fib1
+      }
+end Rec }

data/rouge-5.0.0/lib/rouge/demos/gherkin

@@ -0,0 +1,17 @@
+# language: en
+Feature: Addition
+  In order to avoid silly mistakes
+  As someone who has trouble with mental math
+  I want to be told the sum of two numbers
+
+  Scenario Outline: Add two numbers
+    Given I have entered <input_1> into the calculator
+    And I have entered <input_2> into the calculator
+    When I press <button>
+    Then the result should be <output> on the screen
+
+  Examples:
+    | input_1 | input_2 | button | output |
+    | 20      | 30      | add    | 50     |
+    | 2       | 5       | add    | 7      |
+    | 0       | 40      | add    | 40     |

data/rouge-5.0.0/lib/rouge/demos/gjs

@@ -0,0 +1,23 @@
+import { LinkTo } from '@ember/routing';
+import { local } from 'embroider-css-modules';
+
+import styles from './navigation-menu.css';
+
+const NavigationMenu = <template>
+  <nav aria-label={{@name}} data-test-nav={{@name}}>
+    <ul class={{styles.list}}>
+      {{#each @menuItems as |menuItem|}}
+        <li>
+          <LinkTo
+            class={{local styles "link"}}
+            data-test-link={{menuItem.label}}
+          >
+            {{menuItem.label}}
+          </LinkTo>
+        </li>
+      {{/each}}
+    </ul>
+  </nav>
+</template>;
+
+export default NavigationMenu;

data/rouge-5.0.0/lib/rouge/demos/glsl

@@ -0,0 +1,14 @@
+#version 330 core
+
+uniform mat4 worldMatrix;
+
+layout(location = 0) in vec2 position;
+layout(location = 1) in vec4 color;
+
+out vec4 vertexColor;
+
+void main()
+{
+    vertexColor = color;
+    gl_Position = vec4(position, 0.0, 1.0);
+}

data/rouge-5.0.0/lib/rouge/demos/go

@@ -0,0 +1,7 @@
+package main
+
+import "fmt"
+
+func main() {
+	fmt.Println("Hello, 世界")
+}

data/rouge-5.0.0/lib/rouge/demos/gradle

@@ -0,0 +1,10 @@
+apply plugin: 'java'
+
+repositories {
+  jcenter()
+}
+
+dependencies {
+  compile 'org.openjdk.jmh:jmh-core:1.12'
+  compile 'org.openjdk.jmh:jmh-generator-annprocess:1.12'
+}

data/rouge-5.0.0/lib/rouge/demos/graphql

@@ -0,0 +1,17 @@
+query myQuery($variable: Boolean) {
+  # Queries can have comments!
+  friends(ids: ["a1", "a2"]) {
+    id
+    name
+
+    ...someFields
+
+    ... @include(if: $variable) {
+      foo
+    }
+
+    ... @skip(if: true) {
+      bar
+    }
+  }
+}

data/rouge-5.0.0/lib/rouge/demos/groovy

@@ -0,0 +1,9 @@
+class Greet {
+  def name
+  Greet(who) { name = who[0].toUpperCase() +
+                      who[1..-1] }
+  def salute() { println "Hello $name!" }
+}
+
+g = new Greet('world')  // create object
+g.salute()               // output "Hello World!"

data/rouge-5.0.0/lib/rouge/demos/gts

@@ -0,0 +1,36 @@
+import type { TOC } from '@ember/component/template-only';
+import { LinkTo } from '@ember/routing';
+import { local } from 'embroider-css-modules';
+
+import styles from './navigation-menu.css';
+
+type MenuItem = {
+  label: string;
+  route: string;
+};
+
+interface NavigationMenuSignature {
+  Args: {
+    menuItems: MenuItem[];
+    name?: string;
+  };
+}
+
+const NavigationMenu = <template>
+  <nav aria-label={{@name}} data-test-nav={{@name}}>
+    <ul class={{styles.list}}>
+      {{#each @menuItems as |menuItem|}}
+        <li>
+          <LinkTo
+            class={{local styles "link"}}
+            data-test-link={{menuItem.label}}
+          >
+            {{menuItem.label}}
+          </LinkTo>
+        </li>
+      {{/each}}
+    </ul>
+  </nav>
+</template> satisfies TOC<NavigationMenuSignature>;
+
+export default NavigationMenu;

data/rouge-5.0.0/lib/rouge/demos/hack

@@ -0,0 +1,5 @@
+<?hh // strict
+
+async function foo(): Awaitable<string> {
+  return await (() ==> 'Hello, world')();
+}

data/rouge-5.0.0/lib/rouge/demos/haml

@@ -0,0 +1,5 @@
+%section.container
+  %h1= post.title
+  %h2= post.subtitle
+  .content
+    = post.content

data/rouge-5.0.0/lib/rouge/demos/handlebars

@@ -0,0 +1,7 @@
+<div class="entry">
+  <h1>{{title}}</h1>
+  {{#with story}}
+    <div class="intro">{{{intro}}}</div>
+    <div class="body">{{{body}}}</div>
+  {{/with}}
+</div>

data/rouge-5.0.0/lib/rouge/demos/haskell

@@ -0,0 +1,6 @@
+quicksort :: Ord a => [a] -> [a]
+quicksort []     = []
+quicksort (p:xs) = (quicksort lesser) ++ [p] ++ (quicksort greater)
+    where
+        lesser  = filter (< p) xs
+        greater = filter (>= p) xs

data/rouge-5.0.0/lib/rouge/demos/haxe

@@ -0,0 +1,4 @@
+// hello world!
+public static function hello(arg : String) {
+    return 'Hello $arg';
+}

data/rouge-5.0.0/lib/rouge/demos/hcl

@@ -0,0 +1,7 @@
+service {
+    key = "value"
+}
+
+variable "ami" {
+    description = "the AMI to use"
+}

data/rouge-5.0.0/lib/rouge/demos/hlsl

@@ -0,0 +1,20 @@
+struct PSInput
+{
+    float4 position : SV_POSITION;
+    float4 color : COLOR;
+};
+
+// Vertex shader
+PSInput VSMain(float4 position : POSITION, float4 color : COLOR)
+{
+    PSInput result;
+    result.position = position;
+    result.color = color;
+    return result;
+}
+
+// Pixel shader
+float4 PSMain(PSInput input) : SV_TARGET
+{
+    return input.color;
+}

data/rouge-5.0.0/lib/rouge/demos/hocon

@@ -0,0 +1,8 @@
+# These are our own config values defined by the app
+simple-app {
+    answer = 42
+}
+
+# Here we override some values used by a library
+simple-lib.foo = "This value comes from simple-app's application.conf"
+simple-lib.whatever = "This value comes from simple-app's application.conf"

data/rouge-5.0.0/lib/rouge/demos/hql

@@ -0,0 +1,5 @@
+SELECT e.first_name, e.last_name, d.department_name
+FROM   employees e
+JOIN   departments d ON e.department_id = d.department_id;
+
+update `table` set name='abc', date=${date}, test_interpolation="${var1}.${var2}" where xyz is null;

data/rouge-5.0.0/lib/rouge/demos/html

@@ -0,0 +1,8 @@
+<html>
+  <head><title>Title!</title></head>
+  <body>
+    <p id="foo">Hello, World!</p>
+    <script type="text/javascript">var a = 1;</script>
+    <style type="text/css">#foo { font-weight: bold; }</style>
+  </body>
+</html>

data/rouge-5.0.0/lib/rouge/demos/http

@@ -0,0 +1,14 @@
+POST /demo/submit/ HTTP/1.1
+Host: rouge.jneen.net
+Cache-Control: max-age=0
+Origin: http://rouge.jayferd.us
+User-Agent: Mozilla/5.0 (Macintosh; Intel Mac OS X 10_7_2)
+    AppleWebKit/535.7 (KHTML, like Gecko) Chrome/16.0.912.63 Safari/535.7
+Content-Type: application/json
+Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
+Referer: http://pygments.org/
+Accept-Encoding: gzip,deflate,sdch
+Accept-Language: en-US,en;q=0.8
+Accept-Charset: windows-949,utf-8;q=0.7,*;q=0.3
+
+{"name":"test","lang":"text","boring":true}

data/rouge-5.0.0/lib/rouge/demos/hylang

@@ -0,0 +1,10 @@
+(defn simple-conversation []
+   (print "Hello!  I'd like to get to know you.  Tell me about yourself!")
+   (setv name (input "What is your name? "))
+   (let [age (input "What is your age? ")]
+     (if (and age
+              name)
+       (print (+ "Hello " name "!  I see you are "
+                 age " years old.")))))
+
+(simple-conversation)

data/rouge-5.0.0/lib/rouge/demos/idlang

@@ -0,0 +1,8 @@
+for i = 99L, 0, -1 do begin
+
+  print, i, format="(I0, 1X, 'bottles of beer on the wall,')"
+  print, i, format="(I0, 1X, 'bottles of beer.')"
+  print, 'Take one down, pass it around,'
+  print, i, format="(I0, 1X, 'bottles of beer on the wall.', /)"
+
+endfor

data/rouge-5.0.0/lib/rouge/demos/idris

@@ -0,0 +1,13 @@
+import Data.Vect
+
+insert : Ord elem =>
+         (x : elem) -> (xsSorted : Vect len elem) -> Vect (S len) elem
+insert x [] = [x]
+insert x (y :: xs) = case x < y of
+                          True => x :: y :: xs
+                          False => y :: insert x xs
+
+insSort : Ord elem => Vect n elem -> Vect n elem
+insSort [] = []
+insSort (x :: xs) = let xsSorted = insSort xs in
+                        insert x xsSorted

data/rouge-5.0.0/lib/rouge/demos/iecst

@@ -0,0 +1,21 @@
+// first-order lag derivative term
+(*
+  Parameter K must be set to T / (T + T1)
+*)
+FUNCTION_BLOCK DT2
+
+VAR_INPUT
+  IN : REAL;
+  K : REAL;
+END_VAR
+VAR_OUTPUT
+  Q : REAL;
+END_VAR
+VAR
+  H : REAL := 0.0;
+END_VAR
+
+BEGIN
+  Q := IN - H;
+  H := H + K * Q;
+END_FUNCTION_BLOCK

data/rouge-5.0.0/lib/rouge/demos/igorpro

@@ -0,0 +1,9 @@
+#pragma TextEncoding = "UTF-8"
+#pragma rtGlobals=3		// Use modern global access method and strict wave access.
+
+Function/WAVE MakeWave(name)
+	String name
+
+	Make/N=(8,8) root:$name/WAVE=wv = p^2 + q^2
+	return wv
+End

data/rouge-5.0.0/lib/rouge/demos/ini

@@ -0,0 +1,4 @@
+; last modified 1 April 2001 by John Doe
+[owner]
+name=John Doe
+organization=Acme Widgets Inc.

data/rouge-5.0.0/lib/rouge/demos/io

@@ -0,0 +1,11 @@
+bottle := method(i,
+  if(i==0, return "no more bottles of beer")
+  if(i==1, return "1 bottle of beer")
+  return i asString .. " bottles of beer"
+)
+
+for(i, 99, 1, -1,
+  write(bottle(i), " on the wall, ", bottle(i), ",\n")
+  write("take one down, pass it around,\n")
+  write(bottle(i - 1), " on the wall.\n\n")
+)

data/rouge-5.0.0/lib/rouge/demos/irb

@@ -0,0 +1,4 @@
+irb(main):001:0> puts "Hello, world!"
+Hello, world!
+irb(main):002:0> Object.new
+=> #<Object:0x0056182cb182b8>

data/rouge-5.0.0/lib/rouge/demos/irb_output

@@ -0,0 +1,2 @@
+hello world
+=> #<Object:0x0056182cb182b8 @foo=#<Object:0x0056182cb63100 @bar=3>>

data/rouge-5.0.0/lib/rouge/demos/isabelle

@@ -0,0 +1,16 @@
+theory demo imports Main begin
+
+section ‹Inductive predicates for lists›
+
+datatype 'a list = Nil ("[]") | Cons 'a "'a list" ("_ # _")
+
+fun length :: "'a list ⇒ nat" where
+  "length [] = 0" | "length (x # xs) = 1 + length xs"
+
+inductive ζ :: "'a list ⇒ nat ⇒ bool" where
+Nil[intro!]:  "ζ [] 0" |
+Cons[intro]: "ζ xs l ⟹ ζ (x # xs) (1 + l)"
+
+(* Not the answer? *)
+lemma "ζ xs 42"
+  oops

data/rouge-5.0.0/lib/rouge/demos/isbl

@@ -0,0 +1,4 @@
+NameReq = Object.Requisites(SYSREQ_NAME)
+if Assigned(NameReq.AsString)
+  ShowMessage("Привет мир")
+endif

data/rouge-5.0.0/lib/rouge/demos/j

@@ -0,0 +1,12 @@
+NB. Procedural programming
+fizzbuzz=: monad define
+  for_i. >:i.y do.
+    if.     0 = 15 | i do. echo'FizzBuzz'
+    elseif. 0 =  3 | i do. echo'Fizz'
+    elseif. 0 =  5 | i do. echo'Buzz'
+    else.                  echo i
+    end.
+  end.
+)
+NB. Loopless programming
+fizzbuzz=: echo@(, ::] ('Fizz' ; 'Buzz') ;@#~ 0 = 3 5&|)@>:@i.

data/rouge-5.0.0/lib/rouge/demos/janet

@@ -0,0 +1,3 @@
+(defn a-fun
+  "A function"
+  (do-something))

data/rouge-5.0.0/lib/rouge/demos/java

@@ -0,0 +1,5 @@
+public class java {
+    public static void main(String[] args) {
+        System.out.println("Hello World");
+    }
+}

data/rouge-5.0.0/lib/rouge/demos/javascript

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

data/rouge-5.0.0/lib/rouge/demos/jinja

@@ -0,0 +1,9 @@
+{% extends "layout.html" %}
+
+{% block body %}
+  <ul>
+  {% for user in users %}
+    <li><a href="{{ user.url }}">{{ user.username }}</a></li>
+  {% endfor %}
+  </ul>
+{% endblock %}

data/rouge-5.0.0/lib/rouge/demos/jsl

@@ -0,0 +1,3 @@
+// Create Distribution of Big Class
+dt = open( "$sample_data\big class.jmp" );
+dt << Distribution( Column( :age ), Histograms Only( 1 ) );

data/rouge-5.0.0/lib/rouge/demos/json

@@ -0,0 +1 @@
+{ "one": 1, "two": 2, "null": null, "simple": true }

data/rouge-5.0.0/lib/rouge/demos/json-doc

@@ -0,0 +1 @@
+{ "one": 1, "two": 2, "null": null, "simple": true } // a simple json object

data/rouge-5.0.0/lib/rouge/demos/json5

@@ -0,0 +1,12 @@
+{
+  // comments
+  unquoted: 'and you can quote me on that',
+  singleQuotes: 'I can use "double quotes" here',
+  lineBreaks: "Look, Mom! \
+No \\n's!",
+  hexadecimal: 0xdecaf,
+  leadingDecimalPoint: .8675309, andTrailing: 8675309.,
+  positiveSign: +1,
+  trailingComma: 'in objects', andIn: ['arrays',],
+  "backwardsCompatible": "with JSON",
+}

data/rouge-5.0.0/lib/rouge/demos/jsonnet

@@ -0,0 +1,28 @@
+// Compiler template
+local CCompiler = {
+  cFlags: [],
+  out: "a.out",
+  local flags_str = std.join(" ", self.cFlags),
+  local files_str = std.join(" ", self.files),
+  cmd: "%s %s %s -o %s" % [self.compiler, flags_str, files_str, self.out],
+};
+
+// GCC specialization
+local Gcc = CCompiler { compiler: "gcc" };
+
+// Another specialization
+local Clang = CCompiler { compiler: "clang" };
+
+// Mixins - append flags
+local Opt = { cFlags: super.cFlags + ["-O3", "-DNDEBUG"] };
+local Dbg = { cFlags: super.cFlags + ["-g"] };
+
+// Output:
+{
+  targets: [
+    Gcc { files: ["a.c", "b.c"] },
+    Clang { files: ["test.c"], out: "test" },
+    Clang + Opt { files: ["test2.c"], out: "test2" },
+    Gcc + Opt + Dbg { files: ["foo.c", "bar.c"], out: "baz" },
+  ]
+}

data/rouge-5.0.0/lib/rouge/demos/jsp

@@ -0,0 +1,29 @@
+<%@ page contentType="text/html;charset=UTF-8" language="java" %>
+<%@ page import="java.time.LocalDateTime" %>
+
+<%! int day = 3; %> 
+
+<!DOCTYPE html>
+<html>
+	<head>
+		<title>Simple JSP Application</title>
+	</head>
+	<body>
+        <%-- This is a JSP comment --%>
+		<h1>Hello world!</h1>
+		<h2>Current time is <%= LocalDateTime.now() %></h2>
+
+        <% if (day == 1 || day == 7) { %>
+            <p> Today is weekend</p>
+        <% } else { %>
+            <p> Today is not weekend</p>
+        <% } %>
+
+        h2>Using JavaBeans in JSP</h2>
+        <jsp:useBean id="test" class="action.TestBean" />
+        <jsp:setProperty name="test"  property="message"  value="Hello JSP..." />
+        
+        <p>Got message:</p>
+        <jsp:getProperty name="test" property="message" />
+	</body>
+</html>