nano-clean-pkg 0.0.1

data/rouge-5.0.0/lib/rouge/demos/bbcbasic

@@ -0,0 +1,6 @@
+REM > DefaultFilename
+REM Ordinary comment
+FOR n=1 TO 10
+PRINTTAB(n)"Hello there ";FNnumber(n)DIV3+1
+NEXT:END
+DEFFNnumber(x%)=ABS(x%-4)

data/rouge-5.0.0/lib/rouge/demos/bibtex

@@ -0,0 +1,12 @@
+@article{Witten:1988hf,
+      author         = "Witten, Edward",
+      title          = "{Quantum Field Theory and the Jones Polynomial}",
+      journal        = "Commun. Math. Phys.",
+      volume         = "121",
+      year           = "1989",
+      pages          = "351-399",
+      doi            = "10.1007/BF01217730",
+      note           = "[,233(1988)]",
+      reportNumber   = "IASSNS-HEP-88-33",
+      SLACcitation   = "%%CITATION = CMPHA,121,351;%%"
+}

data/rouge-5.0.0/lib/rouge/demos/bicep

@@ -0,0 +1,10 @@
+targetScope = 'subscription' // To create a resource group
+
+@description('The Azure region to create the resources in.')
+param location string
+
+// Create a resource group
+resource rg 'Microsoft.Resources/resourceGroups@2021-04-01' = {
+  name: 'rg-sample'
+  location: location
+}

data/rouge-5.0.0/lib/rouge/demos/biml

@@ -0,0 +1,38 @@
+<#@ template language="C#" #>
+<#@ import namespace="System.Data" #>
+<Biml xmlns="http://schemas.varigence.com/biml.xsd">
+    <Connections>
+        <!-- Creates a connection to the Adventure Works database -->
+        <Connection
+            Name="AdventureWorks"
+            ConnectionString="Provider=SQLNCLI10.1;Data Source=Localhost;Persist Security Info=False;Integrated Security=SSPI;Initial Catalog=AdventureWorksDW" 
+            />
+    </Connections>
+    <!-- Packages Collection -->
+    <Packages>
+        <!-- A Package -->
+        <Package
+            Name="MyFirstPackage"
+            ConstraintMode="Linear"
+            >
+            <!-- A Package's Tasks -->
+            <Tasks>
+                <ExecuteSQL Name="ExecuteStoredProc" ConnectionName="AdventureWorks">
+                    <DirectInput>EXEC usp_StoredProc</DirectInput>
+                </ExecuteSQL>
+                <# foreach (var table in RootNode.Tables) { #>
+                    <Dataflow Name="Duplicate <#=table.Name#> Data">
+                        <Transformations>
+                            <OleDbSource Name="Retrieve Data" ConnectionName="AdventureWorks">
+                                <DirectInput>SELECT * FROM <#=table.Name#></DirectInput>
+                            </OleDbSource>
+                            <OleDbDestination Name="Insert Data" ConnectionName="AdventureWorks">
+                                <ExternalTableOutput Table="<#=table.Name#>" />
+                            </OleDbDestination>
+                        </Transformations>
+                    </Dataflow>
+                <# } #>
+            </Tasks>
+        </Package>
+    </Packages>
+</Biml>

data/rouge-5.0.0/lib/rouge/demos/bpf

@@ -0,0 +1,7 @@
+r0 = *(u8 *)skb[23]
+*(u32 *)(r10 - 4) = r0
+r1 = *(u32 *)(r6 + 4)
+r1 = 0 ll
+call 1	/* lookup */
+if r0 == 0 goto +2 <LBB0_3>
+lock *(u64 *)(r0 + 0) += r1

data/rouge-5.0.0/lib/rouge/demos/brainfuck

@@ -0,0 +1,5 @@
+[
+	This is a sample
+	comment.
+]
+.[>+<-]>,

data/rouge-5.0.0/lib/rouge/demos/brightscript

@@ -0,0 +1,6 @@
+function main(args as dynamic) as void
+    screen = CreateObject("roSGScreen")
+    'Create a scene and load /components/helloworld.xml'
+    scene = screen.CreateScene("HelloWorld")
+    screen.show()
+end function

data/rouge-5.0.0/lib/rouge/demos/bsl

@@ -0,0 +1,7 @@
+#Область ПрограммныйИнтерфейс
+
+Процедура ПриветМир() Экспорт
+    Сообщить("Привет мир");
+КонецПроцедуры
+
+#КонецОбласти

data/rouge-5.0.0/lib/rouge/demos/c

@@ -0,0 +1,8 @@
+#include "ruby/ruby.h"
+
+static int
+clone_method_i(st_data_t key, st_data_t value, st_data_t data)
+{
+    clone_method((VALUE)data, (ID)key, (const rb_method_entry_t *)value);
+    return ST_CONTINUE;
+}

data/rouge-5.0.0/lib/rouge/demos/ceylon

@@ -0,0 +1,7 @@
+shared class CeylonClass<Parameter>()
+    given Parameter satisfies Object {
+    
+    shared String name => "CeylonClass";
+} 
+
+shared void run() => CeylonClass();

data/rouge-5.0.0/lib/rouge/demos/cfscript

@@ -0,0 +1,18 @@
+component accessors="true" {
+
+  property type="string" name="firstName" default="";
+  property string username;
+
+  function init(){
+    return this;
+  }
+
+  public any function submitOrder( required product, coupon="", boolean results=true ){
+
+    var foo = function( required string baz, x=true, y=false ){
+      return "bar!";
+    };
+
+    return foo;
+  }
+}

data/rouge-5.0.0/lib/rouge/demos/cisco_ios

@@ -0,0 +1,19 @@
+interface FastEthernet0.20
+    encapsulation dot1Q 20
+    no ip route-cache
+    bridge-group 1
+    no bridge-group 1 source-learning
+    bridge-group 1 spanning-disabled
+
+! Supports shortened versions of config words, too
+inter gi0.10
+encap dot1q 10 native
+inter gi0
+
+banner login # Authenticate yourself! #
+
+! Supports #, $ and % to delimit banners, and multiline
+banner motd $
+Attention!
+We will be having scheduled system maintenance on this device.
+$

data/rouge-5.0.0/lib/rouge/demos/clean

@@ -0,0 +1,6 @@
+delete :: !a !.(Set a) -> Set a | < a
+delete x Tip = Tip
+delete x (Bin _ y l r)
+  | x < y     = balanceR y (delete x l) r
+  | x > y     = balanceL y l (delete x r)
+  | otherwise = glue l r

data/rouge-5.0.0/lib/rouge/demos/clojure

@@ -0,0 +1,5 @@
+(defn make-adder [x]
+  (let [y x]
+    (fn [z] (+ y z))))
+(def add2 (make-adder 2))
+(add2 4)

data/rouge-5.0.0/lib/rouge/demos/cmake

@@ -0,0 +1,7 @@
+cmake_minimum_required(VERSION 2.8.3)
+
+project(foo C)
+
+# some note
+add_executable(foo utils.c "foo.c")
+target_link_libraries(foo ${LIBRARIES})

data/rouge-5.0.0/lib/rouge/demos/cmhg

@@ -0,0 +1,8 @@
+; Header comments
+
+#include "definitions.h"
+
+command-keyword-table:  command_handler
+                        foo(min-args:0, max-args:0,; comment
+                            international:,
+                            invalid-syntax: "syntaxtoken" help-text: "helptoken")

data/rouge-5.0.0/lib/rouge/demos/cobol

@@ -0,0 +1,103 @@
+      *-----------------------
+      * This file was sourced from https://github.com/openmainframeproject/cobol-programming-course
+      * Credits:
+      * The course materials were made available through a joint collaboration between IBM, its clients, and
+      * American River College and proposed as a new project by IBM.
+      *-----------------------
+      * Copyright Contributors to the COBOL Programming Course
+      * SPDX-License-Identifier: CC-BY-4.0
+      *-----------------------
+       IDENTIFICATION DIVISION.
+      *-----------------------
+       PROGRAM-ID.    CBL0001
+       AUTHOR.        Otto B. Fun.
+      *--------------------
+       ENVIRONMENT DIVISION.
+      *--------------------
+       INPUT-OUTPUT SECTION.
+       FILE-CONTROL.
+           SELECT PRINT-LINE ASSIGN TO PRTLINE.
+           SELECT ACCT-REC   ASSIGN TO ACCTREC.
+      *SELECT clause creates an internal file name
+      *ASSIGN clause creates a name for an external data source,
+      *which is associated with the JCL DDNAME used by the z/OS
+      *e.g. ACCTREC is linked in JCL file CBL0001J to &SYSUID..DATA
+      *where &SYSUID. stands for Your z/OS user id
+      *e.g. if Your user id is Z54321,
+      *the data set used for ACCTREC is Z54321.DATA
+      *-------------
+       DATA DIVISION.
+      *-------------
+       FILE SECTION.
+       FD  PRINT-LINE RECORDING MODE F.
+       01  PRINT-REC.
+           05  ACCT-NO-O      PIC X(8).
+           05  ACCT-LIMIT-O   PIC $$,$$$,$$9.99.
+           05  ACCT-BALANCE-O PIC $$,$$$,$$9.99.
+      * PIC $$,$$$,$$9.99 -- Alternative for PIC on chapter 7.2.3,
+      * using $ to allow values of different amounts of digits
+      * and .99 instead of v99 to allow period display on output
+           05  LAST-NAME-O    PIC X(20).
+           05  FIRST-NAME-O   PIC X(15).
+           05  COMMENTS-O     PIC X(50).
+      * since the level 05 is higher than level 01,
+      * all variables belong to PRINT-REC (see chapter 7.3.3)
+      *
+       FD  ACCT-REC RECORDING MODE F.
+       01  ACCT-FIELDS.
+           05  ACCT-NO            PIC X(8).
+           05  ACCT-LIMIT         PIC S9(7)V99 COMP-3.
+           05  ACCT-BALANCE       PIC S9(7)V99 COMP-3.
+      * PIC S9(7)v99 -- seven-digit plus a sign digit value
+      * COMP-3 -- packed BCD (binary coded decimal) representation
+           05  LAST-NAME          PIC X(20).
+           05  FIRST-NAME         PIC X(15).
+           05  CLIENT-ADDR.
+               10  STREET-ADDR    PIC X(25).
+               10  CITY-COUNTY    PIC X(20).
+               10  USA-STATE      PIC X(15).
+           05  RESERVED           PIC X(7).
+           05  COMMENTS           PIC X(50).
+      *
+       WORKING-STORAGE SECTION.
+       01 FLAGS.
+         05 LASTREC           PIC X VALUE SPACE.
+      *------------------
+       PROCEDURE DIVISION.
+      *------------------
+       OPEN-FILES.
+           OPEN INPUT  ACCT-REC.
+           OPEN OUTPUT PRINT-LINE.
+      *
+       READ-NEXT-RECORD.
+           PERFORM READ-RECORD
+      *     The previous statement is needed before entering the loop.
+      *     Both the loop condition LASTREC = 'Y'
+      *     and the call to WRITE-RECORD depend on READ-RECORD having
+      *     been executed before.
+      *     The loop starts at the next line with PERFORM UNTIL
+           PERFORM UNTIL LASTREC = 'Y'
+               PERFORM WRITE-RECORD
+               PERFORM READ-RECORD
+           END-PERFORM
+           .
+      *
+       CLOSE-STOP.
+           CLOSE ACCT-REC.
+           CLOSE PRINT-LINE.
+           GOBACK.
+      *
+       READ-RECORD.
+           READ ACCT-REC
+               AT END MOVE 'Y' TO LASTREC
+           END-READ.
+      *
+       WRITE-RECORD.
+           MOVE ACCT-NO      TO  ACCT-NO-O.
+           MOVE ACCT-LIMIT   TO  ACCT-LIMIT-O.
+           MOVE ACCT-BALANCE TO  ACCT-BALANCE-O.
+           MOVE LAST-NAME    TO  LAST-NAME-O.
+           MOVE FIRST-NAME   TO  FIRST-NAME-O.
+           MOVE COMMENTS     TO  COMMENTS-O.
+           WRITE PRINT-REC.
+      *

data/rouge-5.0.0/lib/rouge/demos/codeowners

@@ -0,0 +1,6 @@
+# Specify a default Code Owner by using a wildcard:
+* @default-codeowner
+
+/docs/ @all-docs
+
+[Development] @dev-team

data/rouge-5.0.0/lib/rouge/demos/coffeescript

@@ -0,0 +1,5 @@
+# Objects:
+math =
+  root:   Math.sqrt
+  square: square
+  cube:   (x) -> x * square x

data/rouge-5.0.0/lib/rouge/demos/common_lisp

@@ -0,0 +1 @@
+(defun square (x) (* x x))

data/rouge-5.0.0/lib/rouge/demos/conf

@@ -0,0 +1,4 @@
+# A generic configuration file
+option1 "val1"
+option2 23
+option3 'val3'

data/rouge-5.0.0/lib/rouge/demos/console

@@ -0,0 +1,6 @@
+# prints "hello, world" to the screen
+~# echo Hello, World
+Hello, World
+
+# don't run this
+~# rm -rf --no-preserve-root /

data/rouge-5.0.0/lib/rouge/demos/cpp

@@ -0,0 +1,8 @@
+#include<iostream>
+
+using namespace std;
+
+int main()
+{
+    cout << "Hello World" << endl;
+}

data/rouge-5.0.0/lib/rouge/demos/crystal

@@ -0,0 +1,45 @@
+lib LibC
+  WNOHANG = 0x00000001
+
+  @[ReturnsTwice]
+  fun fork : PidT
+  fun getpgid(pid : PidT) : PidT
+  fun kill(pid : PidT, signal : Int) : Int
+  fun getpid : PidT
+  fun getppid : PidT
+  fun exit(status : Int) : NoReturn
+
+  ifdef x86_64
+    alias ClockT = UInt64
+  else
+    alias ClockT = UInt32
+  end
+
+  SC_CLK_TCK = 3
+
+  struct Tms
+    utime : ClockT
+    stime : ClockT
+    cutime : ClockT
+    cstime : ClockT
+  end
+
+  fun times(buffer : Tms*) : ClockT
+  fun sysconf(name : Int) : Long
+end
+
+class Process
+  def self.exit(status = 0)
+    LibC.exit(status)
+  end
+
+  def self.pid
+    LibC.getpid
+  end
+
+  def self.getpgid(pid : Int32)
+    ret = LibC.getpgid(pid)
+    raise Errno.new(ret) if ret < 0
+    ret
+  end
+end

data/rouge-5.0.0/lib/rouge/demos/csharp

@@ -0,0 +1,5 @@
+// reverse byte order (16-bit)
+public static UInt16 ReverseBytes(UInt16 value)
+{
+  return (UInt16)((value & 0xFFU) << 8 | (value & 0xFF00U) >> 8);
+}

data/rouge-5.0.0/lib/rouge/demos/css

@@ -0,0 +1,4 @@
+body {
+    font-size: 12pt;
+    background: #fff url(temp.png) top left no-repeat;
+}

data/rouge-5.0.0/lib/rouge/demos/csvs

@@ -0,0 +1,8 @@
+version 1.1
+@totalColumns 5
+@separator ','
+Transaction_Date: xDate
+Transaction_ID: notEmpty
+Originator_Name: notEmpty
+Originator_Address: any("yes","no")
+Originator_Country: notEmpty

data/rouge-5.0.0/lib/rouge/demos/cuda

@@ -0,0 +1,11 @@
+#include <cstdio>
+
+__global__ void helloFromGPU() {
+    std::printf("Hello World\n");
+    __syncthreads();
+}
+
+int main() {
+    dim3 block(1, 10);
+    helloFromGPU<<<1, block>>>();
+}

data/rouge-5.0.0/lib/rouge/demos/cypher

@@ -0,0 +1,5 @@
+// Cypher Mode for Rouge
+CREATE (john:Person {name: 'John'})
+MATCH (user)-[:friend]->(follower)
+WHERE user.name IN ['Joe', 'John', 'Sara', 'Maria', 'Steve'] AND follower.name =~ 'S.*'
+RETURN user.name, follower.name

data/rouge-5.0.0/lib/rouge/demos/cython

@@ -0,0 +1,6 @@
+cdef extern from 'foo.h':
+    int foo_int
+    struct foo_struct:
+        pass
+
+ctypedef int word

data/rouge-5.0.0/lib/rouge/demos/d

@@ -0,0 +1,16 @@
+import std.algorithm, std.conv, std.functional,
+    std.math, std.regex, std.stdio;
+
+alias round = pipe!(to!real, std.math.round, to!string);
+static reFloatingPoint = ctRegex!`[0-9]+\.[0-9]+`;
+
+void main()
+{
+    // Replace anything that looks like a real
+    // number with the rounded equivalent.
+    stdin
+        .byLine
+        .map!(l => l.replaceAll!(c => c.hit.round)
+                                (reFloatingPoint))
+        .each!writeln;
+}

data/rouge-5.0.0/lib/rouge/demos/dafny

@@ -0,0 +1,16 @@
+module A {
+  const i: int := 56_78
+}
+
+method m(b: bool, s: string) {
+  var x: string;
+  var i: int;
+  if b then i := 1; else i := 2;
+  i := if b 1 else 2;
+  assert b;
+  assume b;
+  print s;
+  expect b;
+}
+
+function f(i: int): int { i + 1 }

data/rouge-5.0.0/lib/rouge/demos/dart

@@ -0,0 +1,6 @@
+void main() {
+  var collection=[1,2,3,4,5];
+  for(var a in collection){
+    print(a);
+  }
+}

data/rouge-5.0.0/lib/rouge/demos/datastudio

@@ -0,0 +1,20 @@
+
+Get_Variable("EUSER","ENV","USERNAME");
+
+Message("Le Login Windows est : %EUSER%");
+
+Get_Variable("st","JOB","FOLDER1.date_err.SYSTEM.STATUS");
+
+
+AFFECT("filter1", '%%/"t"');
+AFFECT("filter2", '%%/"pi"');
+JSONTOSQL("%{jsonpath}%/file.json", "",
+        " JSONPATH like '%filter1%' ", "a = JSONVALUE",
+        " JSONPATH like '%filter2%' ", "b = JSONVALUE; output(json_data, a, b)");
+
+
+Affect(VAR1,'%TEST%'); //Créer et affecter la variable VAR1 avec une chaîne
+select * from TABLE1 where COL1 like %VAR1%; //utiliser la variable VAR1 dans une requête
+
+select * from TEST_TABLE; //exécution d'une requête Select pour ramener des valeurs
+Affect_LastColumns("TEST1"); //création du paramètre TEST1

data/rouge-5.0.0/lib/rouge/demos/diff

@@ -0,0 +1,7 @@
+--- file1	2012-10-16 15:07:58.086886874 +0100
++++ file2	2012-10-16 15:08:07.642887236 +0100
+@@ -1,3 +1,3 @@
+ a b c
+-d e f
++D E F
+ g h i

data/rouge-5.0.0/lib/rouge/demos/digdag

@@ -0,0 +1,19 @@
+# this is digdag task definitions
+timezone: UTC
+
++setup:
+  echo>: start ${session_time}
+
++disp_current_date:
+  echo>: ${moment(session_time).utc().format('YYYY-MM-DD HH:mm:ss Z')}
+
++repeat:
+  for_each>:
+    order: [first, second, third]
+    animal: [dog, cat]
+  _do:
+    echo>: ${order} ${animal}
+  _parallel: true
+
++teardown:
+  echo>: finish ${session_time}

data/rouge-5.0.0/lib/rouge/demos/docker

@@ -0,0 +1,9 @@
+maintainer First O'Last
+
+run echo \
+  123 $bar
+# comment
+onbuild add . /app/src
+onbuild run echo \
+  123 $bar
+CMD /bin/bash

data/rouge-5.0.0/lib/rouge/demos/dot

@@ -0,0 +1,5 @@
+// The graph name and the semicolons are optional
+graph G {
+	a -- b -- c;
+	b -- d;
+}

data/rouge-5.0.0/lib/rouge/demos/dylan

@@ -0,0 +1,8 @@
+// Various keywords and constants
+define method demo(x :: <integer>, #key y = "demo") => ()
+  let z = #xFEE8 + #o277;
+  let w = '\n';
+  format-out("%d %s %d %c", x + 100, y, z, w);
+end method;
+
+demo(99, y: "hello");

data/rouge-5.0.0/lib/rouge/demos/ecl

@@ -0,0 +1,17 @@
+/*
+    Example code - use without restriction.  
+*/
+Layout_Person := RECORD
+  UNSIGNED1 PersonID;
+  STRING15  FirstName;
+  STRING25  LastName;
+END;
+
+allPeople := DATASET([ {1,'Fred','Smith'},
+                       {2,'Joe','Blow'},
+                       {3,'Jane','Smith'}],Layout_Person);
+
+somePeople := allPeople(LastName = 'Smith');
+
+//  Outputs  ---
+somePeople;

data/rouge-5.0.0/lib/rouge/demos/eex

@@ -0,0 +1 @@
+<title><%= @title %></title>

data/rouge-5.0.0/lib/rouge/demos/eiffel

@@ -0,0 +1,30 @@
+note
+  description: "Represents a person."
+
+class
+  PERSON
+
+create
+  make, make_unknown
+
+feature {NONE} -- Creation
+
+  make (a_name: like name)
+      -- Create a person with `a_name' as `name'.
+    do
+      name := a_name
+    ensure
+      name = a_name
+    end
+
+  make_unknown
+    do ensure
+      name = Void
+    end
+
+feature -- Access
+
+  name: detachable STRING
+      -- Full name or Void if unknown.
+
+end

data/rouge-5.0.0/lib/rouge/demos/elixir

@@ -0,0 +1 @@
+Enum.map([1,2,3], fn(x) -> x * 2 end)

data/rouge-5.0.0/lib/rouge/demos/elm

@@ -0,0 +1,4 @@
+import Html exposing (text)
+
+main =
+  text "Hello, World!"

data/rouge-5.0.0/lib/rouge/demos/email

@@ -0,0 +1,11 @@
+From: Me <me@example.com>
+To: You <you@example.com>
+Date: Tue, 21 Jul 2020 15:14:03 +0000
+Subject: A very important message
+
+> Please investigate.  Thank you.
+
+I have investigated.
+
+-- 
+This message is highly confidential and will self-destruct.

data/rouge-5.0.0/lib/rouge/demos/epp

@@ -0,0 +1,4 @@
+<%- |
+    Optional[String] $title,
+| -%>
+<title><%= $title %></title>

data/rouge-5.0.0/lib/rouge/demos/erb

@@ -0,0 +1 @@
+<title><%= @title %></title>

data/rouge-5.0.0/lib/rouge/demos/erlang

@@ -0,0 +1,7 @@
+%%% Geometry module.
+-module(geometry).
+-export([area/1]).
+
+%% Compute rectangle and circle area.
+area({rectangle, Width, Ht}) -> Width * Ht;
+area({circle, R})            -> 3.14159 * R * R.

data/rouge-5.0.0/lib/rouge/demos/escape

@@ -0,0 +1,3 @@
+If Formatter.enable_escape! is called, this allows escaping into html
+or the parent format with a special delimiter. For example:
+<!<span style="text-decoration: underline">!>underlined text!<!</span>!>