Second Life Wiki - User contributions [en]

RPN Interpreter

2013-06-23T09:24:32Z

Subus Tremor: Created page with "(http://www.gnu.org/copyleft/fdl.html) in the spirit of which this script is GPL'd. Copyright (C) 2013 Subus Tremor This program is free software; you can redistribute it and/or…"

(http://www.gnu.org/copyleft/fdl.html) in the spirit of which this script is GPL'd. Copyright (C) 2013 Subus Tremor

This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details.

This is a reverse polish notation interpreter - it's also called 0-address-machine as it does not need addressable storage locations for it's operation .
It interprets rpn expressions. (see the code which operands are supported- feel free to change/extend it)
There is no debugging etc. provided.

Create a box, and drop this script in it. Then edit the script and assign a rpn input expression to the input list - or even better :-) add an Input routine to it.
Save the script and touch your box to run the code.

<lsl>
// Simple RPN calculator as lsl plugin sample for my Real Inworld Computer - by Subus Tremor
// made to compare it to the Real Inworld Computers rpn batch domme program notecard

list inlist; // Input as list
list stack; // our stack

push(string val) {
stack = val + stack;
}
string pop() {
string ret = llList2String(stack,0);
stack = llDeleteSubList(stack,0,0);
return ret;
}
string abop (string a, string b, string func) { // does rout = a op b
string rout;
integer iout;
float fout;
if((~llSubStringIndex(a,"."))||(~llSubStringIndex(b,"."))) { //float
float fa = (float)a;
float fb = (float)b;
integer fia;
if(func=="+") fout = fa + fb;
if(func=="-") fout = fa - fb;
if(func=="*") fout = fa * fb;
if(func=="/") fout = fa / fb;
if(func=="sin") fout = llSin(fa);
if(func=="cos") fout = llCos(fa);
if(func=="abs") fout = llFabs(fa);
rout = (string)fout;
if(func=="round") {iout = llRound(fa); rout = (string)iout;}
}
else { //integer
integer ia = (integer)a;
integer ib = (integer)b;
if(func=="+") iout = ia + ib;
if(func=="-") iout = ia - ib;
if(func=="*") iout = ia * ib;
if(func=="/") iout = ia / ib;
if(func=="%") iout = ia % ib;
if(func=="abs") iout = llAbs(ia);
if(func=="ceil") iout = llCeil((float)a);
if(func=="floor") iout = llFloor((float)a);
rout = (string)iout;
}
return rout;
}

// two calculation samples - implement your own clever input providing to the calculator
list rpntask1 = [ "3", "4", "+", "2", "1", "+", "+", "2", "*", "20", "-"]; // sample 1
// does: (((3+4)+(2+1))*2)-20
list rpntask2 = [ "3.14", "sin", "0.001593", "/", "1", "-"]; // sample 2
// does: (sin(3.14)/0.001593)-1

default
{
state_entry() { // provide some input to the calculator
inlist = rpntask2;
}
touch_start(integer num_detected) { // start calculation when touched
state running;
}
}
state running
{
state_entry() { //RPN calculation :-) do what we have to do while we are active
integer inpointer=0; // point to an item in inlist
string _out; // the special variable _out
string b; // the second operator variable
string _last; // keep the last input token till calculation
//by intention written with jumps to make it compareable to the rpn domme program - the batch language of my Inworld computers
@next;
_out=llList2String(inlist,inpointer); // take next
_last=_out;
inpointer++;
if(_out=="") jump end;
if(llSubStringIndex("+-*/%",_out)>=0) jump args2; // ifin _out +-*/% args2
if(llSubStringIndex("sincosroundceilfloor",_out)>=0) jump args1; // ifin _out sincosroundceilfloor args1
push(_out); // push _out
jump next;
@args2;
b=pop(); // pop , var b _out
@args1;
_out=pop(); // pop
_out=abop(_out,b,_last);// abop _out b _last
llSay(0,_out); // out
push(_out); // push _out
jump next;
@end;
llSay(0,"RPN calculation finished"); // finished
llResetScript();
}
}
</lsl>

CatInterpreters

2013-06-23T09:14:03Z

Subus Tremor:

{{LSL Header|ml=*}}{{RightToc}}
==Interpreters and Emulators==

{| class="sortable" {{Prettytable}}
|- {{Hl2}}
! '''Name'''
! '''Creator'''
! '''Description'''
|-
||[[Assembly Programming Language|Assembly-Like Programming Language]]
||[[User:Xaviar Czervik|Xaviar Czervik]]
||A compiler that runs assembly-like programs.
|-
||[[Computer:jaycoonlanguage]]
||[[User:jayco121 Bing|jayco121 Bing]]
|| A language written in LSL that is meant for my computer (available at the shop).
|-
||[[Scheme_Interpreter|Scheme Interpreter]]
||[[User:Xaviar Czervik|Xaviar Czervik]]
||A scheme interpreter capable of handling most scheme expressions, including lambda and lists.
|-
||[[Brainf***_Interpreter|Brainf*** Interpreter]]
||[[User:Subus Tremor|Subus Tremor]]
||A Brainf*** interpreter capable of handling short correct Brainf*** code.
|-
||[[RPN_Interpreter|RPN Interpreter]]
||[[User:Subus Tremor|Subus Tremor]]
||A RPN (reverse polish notation) interpreter for calculation of rpn expressions.
|}

{{LSLC|}}

Brainf*** Interpreter

2013-06-23T09:08:59Z

Subus Tremor:

(http://www.gnu.org/copyleft/fdl.html) in the spirit of which this script is GPL'd. Copyright (C) 2013 Subus Tremor

This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details.

This is an esoteric language - that implies a useless programming language (except for the fun of it).
It interprets correct Brainf*** code.
There is no debugging etc. provided.

Create a box, and drop this script in it. Then edit the script and assign a valid Brainf*** program code to variable program.
Save the script and touch your box to run the code

<lsl>
// The esoteric computer language Brainf*** - Interpreter for SL by Subus Tremor
//
// Data to the Interpreter - replace the string by any valid Brainf*** program
// if it's a valid progam AND has correct syntax AND does not run out of space -
// then it runs :-) otherwise not :-( have fun.

//sample program1
string program1 = "Hello World program
++++++++++ initialize
[ start loop
>+++++++>++++++++++>+++>+<<<<- set some values
] end loop
>++. H out
>+. e out
+++++++. l out
. l out
+++. o out
>++. blank out
<<+++++++++++++++. W out
>. o out
+++. r out
------. l out
--------. d out
>+. ! out
>. lineend
";

//sample program2
string program2 = "this brainf*** program asks for your name and then greets you
>+++++++++++[<++++++++>-]<-.>++++[<++++>-]<+.-------.>+++++
[<++++>-]<-.[-]>++++++++[<++++>-]<.>+++++++++[<++++++++>-]<
+.++++++++++.[-]>++++++++[<++++>-]<.>+++++++++++[<++++++++>
-]<+.----------.++++++.---.[-]>++++++++[<++++>-]<.>++++++++
+++++[<++++++>-]<.-------------.++++++++++++.--------.>++++
++[<------>-]<--.[-]+++++++++++++.---.[-]+[>,-------------]
>+++++++++[<++++++++>-]<.>+++++++[<++++>-]<+.+++++++..+++.[
-]>++++++++[<++++>-]<.[-]<-[<-]>[++++++++++++++.>]+++++++++
+.";

list input = [82, 117, 116, 104, 13]; // input Ruth (the "name" the program is asking for)
integer n=0;

// The Brainf*** interpreter
integer commandpointer = 0; //point to 0 at start
string command = "";
list storage = ["0"]; //first storage cell inizialized to 0
integer cellpointer = 0;
integer cell=0;

string bfelements = "+-><[].,"; //the Brainf*** commands
integer pl=0; //program lenght
integer pc=0; //blockcounter
integer si=0; //stackindex
string program; //contains the progeam to be interpreted

list blocklist;
integer waitforchar=FALSE;

makeblocklist() { // to avoid searching - loop structure [ ] is evaluated in advance
integer i=0;
list stack;
integer s;
integer ie = llStringLength(program);
for(; i < ie; i+=1) {
if(llGetSubString(program, i, i)=="[") { //begin
stack = i + stack;
}
if(llGetSubString(program, i, i)=="]") { //end
if(llGetListLength(stack)>0) {
s = llList2Integer(stack,0);
stack = llDeleteSubList(stack,0,0);
blocklist = blocklist + s + i;
}
}
}
}

default
{
state_entry()
{
program=program1; // assign valid Brainf*** code to the variable program
// either program1 or program2 or your own code
makeblocklist(); // build the loop structure in advance
}
touch_start(integer total_number)
{
llSay(0,"Interpreter start");
state interpret;
}
}

state interpret {
state_entry() // run the Brainf*** Interpreter
{
do { // interpret the Brainf*** code in variable program
command = llGetSubString( program, commandpointer, commandpointer );
if(command=="+") { // increment cell at cellpointer
cell = llList2Integer(storage,cellpointer)+1;
storage = llListReplaceList(storage, [cell], cellpointer, cellpointer);
}
if(command=="-") { // decrement cell at cellpointer
cell = llList2Integer(storage,cellpointer)-1;
storage = llListReplaceList(storage, [cell], cellpointer, cellpointer);
}
if(command==">") { // point at next cell
if((llGetListLength(storage)-1)==cellpointer) storage += 0;
cellpointer+=1;
cell = llList2Integer(storage,cellpointer);
}
if(command=="<") { // point ar previous cell
cellpointer-=1;
cell = llList2Integer(storage,cellpointer);
}
if(command==".") { // output one character
cell = llList2Integer(storage,cellpointer);
llSay(0,llGetSubString(llBase64ToString(llIntegerToBase64((integer)cell << 24)),0,0));
}
if(command==",") { // input one character
if(waitforchar==FALSE) {
waitforchar=TRUE;
llSay(0,"reading 1 input char now");
state waitchar;
}
else {
waitforchar = FALSE;
storage = llListReplaceList(storage, [cell], cellpointer, cellpointer);
}
}
if(((command=="]")&&(cell!=0))||((command=="[")&&(cell==0))) { // handle loops
integer bindex = llListFindList(blocklist,[commandpointer]);
if(command=="[") bindex++; else bindex--;
commandpointer = llList2Integer(blocklist, bindex)+1;
}
else commandpointer++; // point at next instruction
} while (commandpointer<llStringLength(program)-1);
llSay(0,"Interpreter finished");
llResetScript();
}
}
state waitchar {
state_entry() // get inputcharacters, input ends if char hex 13 is detected
{
if(n<llGetListLength(input)) {
cell = llList2Integer(input,n);
n++;
}
state interpret;
}
}
</lsl>

Brainf*** Interpreter

2013-06-22T17:12:23Z

(http://www.gnu.org/copyleft/fdl.html) in the spirit of which this script is GPL'd. Copyright (C) 2013 Subus Tremor

This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details.

This is an esoteric language - that implies a useless programming language (except for the fun of it).
It interprets correct Brainf*** code.
There is no debugging etc. provided.

Create a box, and drop this script in it. Then edit the script and assign a valid Brainf*** program code to variable program.
Save the script and touch your box to run the code

<lsl>
// The esoteric computer language Brainf*** - Interpreter for SL by Subus Tremor
//
// Data to the Interpreter - replace the string by any valid Brainf*** program
// if it's a valid progam AND has correct syntax AND does not run out of space -
// then it runs :-) otherwise not :-( have fun.

//sample program1
string program1 = "Hello World program
++++++++++ initialize
[ start loop
>+++++++>++++++++++>+++>+<<<<- set some values
] end loop
>++. H out
>+. e out
+++++++. l out
. l out
+++. o out
>++. blank out
<<+++++++++++++++. W out
>. o out
+++. r out
------. l out
--------. d out
>+. ! out
>. lineend
";

//sample program2
string program2 = "this brainf*** program asks for your name and then greets you
>+++++++++++[<++++++++>-]<-.>++++[<++++>-]<+.-------.>+++++
[<++++>-]<-.[-]>++++++++[<++++>-]<.>+++++++++[<++++++++>-]<
+.++++++++++.[-]>++++++++[<++++>-]<.>+++++++++++[<++++++++>
-]<+.----------.++++++.---.[-]>++++++++[<++++>-]<.>++++++++
+++++[<++++++>-]<.-------------.++++++++++++.--------.>++++
++[<------>-]<--.[-]+++++++++++++.---.[-]+[>,-------------]
>+++++++++[<++++++++>-]<.>+++++++[<++++>-]<+.+++++++..+++.[
-]>++++++++[<++++>-]<.[-]<-[<-]>[++++++++++++++.>]+++++++++
+.";

list input = [82, 117, 116, 104, 13]; // input Ruth (the "name" the program is asking for)
integer n=0;

// The Brainf*** interpreter
integer commandpointer = 0; //point to 0 at start
string command = "";
list storage = ["0"]; //first storage cell inizialized to 0
integer cellpointer = 0;
integer cell=0;

string bfelements = "+-><[].,"; //the Brainf*** commands
integer pl=0; //program lenght
integer pc=0; //blockcounter
integer si=0; //stackindex
string program; //contains the progeam to be interpreted

list blocklist;
integer waitforchar=FALSE;

makeblocklist() { // to avoid searching - loop structure [ ] is evaluated in advance
integer i=0;
list stack;
integer s;
integer ie = llStringLength(program);
for(; i < ie; i+=1) {
if(llGetSubString(program, i, i)=="[") { //begin
stack = i + stack;
}
if(llGetSubString(program, i, i)=="]") { //end
if(llGetListLength(stack)>0) {
s = llList2Integer(stack,0);
stack = llDeleteSubList(stack,0,0);
blocklist = blocklist + s + i;
}
}
}
}

default
{
state_entry()
{
program=program1; // assign valid Brainf*** code to the variable program
// either program1 or program2 or your own code
makeblocklist(); // build the loop structure in advance
}
touch_start(integer total_number)
{
llSay(0,"Interpreter start");
state interpret;
}
}

state interpret {
state_entry() // run the Brainf*** Interpreter
{
do { // interpret the Brainf*** code in variable program
command = llGetSubString( program, commandpointer, commandpointer );
if(command=="+") { // increment cell at cellpointer
cell = llList2Integer(storage,cellpointer)+1;
storage = llListReplaceList(storage, [cell], cellpointer, cellpointer);
}
if(command=="-") { // decrement cell at cellpointer
cell = llList2Integer(storage,cellpointer)-1;
storage = llListReplaceList(storage, [cell], cellpointer, cellpointer);
}
if(command==">") { // point at next cell
if((llGetListLength(storage)-1)==cellpointer) storage += 0;
cellpointer+=1;
cell = llList2Integer(storage,cellpointer);
}
if(command=="<") { // point ar previous cell
cellpointer-=1;
cell = llList2Integer(storage,cellpointer);
}
if(command==".") { // output one character
cell = llList2Integer(storage,cellpointer);
llSay(0,llGetSubString(llBase64ToString(llIntegerToBase64((integer)cell << 24)),0,0));
}
if(command==",") { // input one character
if(waitforchar==FALSE) {
waitforchar=TRUE;
llSay(0,"reading 1 input char now");
state waitchar;
}
else {
waitforchar = FALSE;
storage = llListReplaceList(storage, [cell], cellpointer, cellpointer);
}
}
if(((command=="]")&&(cell!=0))||((command=="[")&&(cell==0))) { // handle loops
integer bindex = llListFindList(blocklist,[commandpointer]);
if(command=="[") bindex++; else bindex--;
commandpointer = llList2Integer(blocklist, bindex)+1;
}
else commandpointer++; // point at next instruction
} while (commandpointer<llStringLength(program)-1);
llSay(0,"Interpreter finished");
llResetScript();
}
}
state waitchar {
state_entry() // get inputcharacters, input ends if char hex 13 is detected
{
if(n<llGetListLength(input)) {
cell = llList2Integer(input,n);
n++;
state interpret;
}
state interpret;
}
}
</lsl>

CatInterpreters

2013-06-22T16:48:28Z

Subus Tremor: /* Interpreters and Emulators */