rouge 3.2.0 → 3.18.0

data/lib/rouge/demos/armasm

@@ -0,0 +1,12 @@
+            GET     common.s
+
+RetVal      *       0x123 :SHL: 4
+
+            AREA    |Area$$Name|, CODE, READONLY
+
+MyFunction  ROUT             ; This is a comment
+            ASSERT  RetVal <> 0
+1           MOVW    r0, #RetVal
+            BX      lr
+
+            END

data/lib/rouge/demos/batchfile

@@ -0,0 +1,3 @@
+@echo off
+setlocal enableextensions enabledelayedexpansion
+for /f "tokens=*" %%a in ("hello !username! hi") do echo %%~a

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

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

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

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

data/lib/rouge/demos/datastudio

@@ -0,0 +1,21 @@
+
+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/lib/rouge/demos/ecl

@@ -0,0 +1,18 @@
+/*
+    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/lib/rouge/demos/eex

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

data/lib/rouge/demos/epp

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

data/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>!>

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

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

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

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

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

data/lib/rouge/demos/liquid

@@ -5,7 +5,6 @@
       Only {{ product.price | format_as_money }}
 
       <p>{{ product.description | prettyprint | truncate: 200  }}</p>
-
     </li>
   {% endfor %}
 </ul>

data/lib/rouge/demos/lustre

@@ -0,0 +1,6 @@
+node count(init: int; reset, event: bool) returns (c: int);
+let
+	c = init -> if reset then init
+					else if event then pre(c)+1
+					else pre(c);
+tel;

data/lib/rouge/demos/lutin

@@ -0,0 +1,18 @@
+node gen_x_v1() returns (x:real) = loop 0.0<x and x<42.0
+
+node gen_x_v2() returns (x:real) = 
+  loop { 0.0<x and x<42.0 fby loop [20] x = pre x }
+
+node gen_x_v3() returns (target:real; x:real=0.0) =
+  run target := gen_x_v2() in
+  loop { x = (pre x + target) / 2.0 }
+
+let inertia=0.6
+
+node gen_x_v4()  returns (target:real; x:real=0.0) =
+  run target := gen_x_v2() in
+  exist px,ppx : real = 0.0 in
+  loop { 
+      px = pre x and ppx = pre px and
+      x = (px+target) / 2.0+inertia*(px-ppx) 
+  }

data/lib/rouge/demos/m68k

@@ -0,0 +1,16 @@
+initialize:                     ; go into super user mode
+   clr.l -(a7)
+   move.w #32,-(a7)
+   trap #1
+   addq.l #6,a7
+   move.l d0,oldstack
+   rts
+
+restore:                        ; go back into user mode
+   move.l oldstack,-(a7)
+   move.w #32,-(a7)
+   trap #1
+   addq.l #6,a7
+   rts
+
+oldstack dc.l 0

data/lib/rouge/demos/magik

@@ -0,0 +1,6 @@
+_private _method test_object.init()
+	## initializer
+	.slot1 << _self.default_value
+	_return _self
+_endmethod
+$

data/lib/rouge/demos/mason

@@ -0,0 +1,22 @@
+<%doc>
+    This is a mason component.
+    # This is a comment.
+</%doc>
+
+<%args>
+    $color         # this argument is required!
+    $size => 20    # default size
+    $country => undef   # this argument is optional, default value is 'undef'
+    @items => (1, 2, 'something else')
+    %pairs => (name => "John", age => 29)
+</%args>
+
+% # A random block of Perl code
+<%perl>
+    my @people = ('mary' 'john' 'pete' 'david');
+</%perl>
+
+% # Note how each line of code begins with the mandatory %
+% foreach my $person (@people) {
+    Name: <% $person %>
+% }

data/lib/rouge/demos/mathematica

@@ -0,0 +1,8 @@
+(* Fibonacci numbers with memoization *)
+
+fib::usage = "f[n] calculates the n'th Fibonacci number.";
+fib[0] = fib[1] = 1;
+fib[n_Integer?Positive]:= fib[n] = fib[n-1] + fib[n-2];
+
+In[4]:= fib[42]
+Out[4]= 433494437

data/lib/rouge/demos/minizinc

@@ -0,0 +1,23 @@
+% from MiniZinc Handbook:
+% https://www.minizinc.org/doc-latest/en/modelling.html
+
+% Colouring Australia using nc colours
+int: nc = 3;
+
+var 1..nc: wa;   var 1..nc: nt;  var 1..nc: sa;   var 1..nc: q;
+var 1..nc: nsw;  var 1..nc: v;   var 1..nc: t;
+
+constraint wa != nt;
+constraint wa != sa;
+constraint nt != sa;
+constraint nt != q;
+constraint sa != q;
+constraint sa != nsw;
+constraint sa != v;
+constraint q != nsw;
+constraint nsw != v;
+solve satisfy;
+
+output ["wa=\(wa)\t nt=\(nt)\t sa=\(sa)\n",
+        "q=\(q)\t nsw=\(nsw)\t v=\(v)\n",
+         "t=", show(t),  "\n"];

data/lib/rouge/demos/msgtrans

@@ -0,0 +1,4 @@
+# Example MessageTrans file
+Token
+Token0x??:Replacement localised %0 text
+Color/Colour:Colour

data/lib/rouge/demos/nasm

@@ -10,12 +10,12 @@
 extern irq_handler
 
 irq_common_stub:
-    pusha           ; Pushes edi,esi,ebp,esp,ebx,edx,ecx,eax
-    mov ax, ds      ; Lower 16-bits of eax = ds.
-    push eax        ; save the data segment descriptor
-    mov ax, 0x10    ; load the kernel data segment descriptor
-    mov edx, eax
-    call irq_handler
+    pusha             ; push all general-purpose registers
+    mov   ax, ds      ; lower 16-bits of eax = ds
+    push  eax         ; save the data segment descriptor
+    mov   ax, 0x10    ; load the kernel data segment descriptor
+    mov   edx, eax
+    call  irq_handler
 
 %assign i 0
 %rep 8