force-lang 0.0.12 → 0.1.0

package/.eslintrc.cjs

@@ -0,0 +1,54 @@
+module.exports = {
+  root: true,
+  env: {
+    es6: true,
+    node: true,
+  },
+  parserOptions: {
+    ecmaVersion: 'latest',
+    sourceType: 'module',
+  },
+  extends: ['airbnb-base', 'prettier'],
+  plugins: ['prettier'],
+  rules: {
+    'prettier/prettier': [
+      'error',
+      {
+        printWidth: 120,
+        tabWidth: 2, // reformat to 2 eventually
+        useTabs: false, // default
+        semi: true, // default
+        singleQuote: true,
+        trailingComma: 'all',
+        bracketSpacing: true, // default
+        jsxBracketSameLine: true,
+        arrowParens: 'avoid', // default
+      },
+    ],
+    indent: ['warn', 2],
+    camelcase: [0, { properties: 'never' }],
+    eqeqeq: ['error', 'always'],
+    curly: ['error', 'all'],
+    'no-prototype-builtins': 0, // refactor and enable
+    'consistent-return': 0, // refactor and enable
+    'no-param-reassign': 0, // refactor and enable
+    'no-unsafe-finally': 0, // refactor and enable
+    'no-use-before-define': 0, // refactor and enable
+    'import/no-unresolved': 0, // some linter import errors
+    'no-underscore-dangle': ['off'],
+    'no-undef': 0,
+    'class-methods-use-this': 0, // refactor and enable
+    'max-len': ['warn', 1000], // usage of SVG
+    'no-restricted-syntax': [
+      'error',
+      {
+        selector: 'LabeledStatement',
+        message: 'Labels are a form of GOTO; using them makes code confusing and hard to maintain and understand.',
+      },
+      {
+        selector: 'WithStatement',
+        message: '`with` is disallowed in strict mode because it makes code impossible to predict and optimize.',
+      },
+    ],
+  },
+};

package/README.md

@@ -25,7 +25,7 @@ Options:
 ```text
 $ cat example.j
 
-#!/usr/local/bin/force
+#!/usr/bin/env force
 
 2 2 + .
 ```
@@ -37,32 +37,30 @@ echo "2 2 + ."|force
 
 ```bash
 $ npm i force-lang
+
+# or
+
+npm install git+https://github.com/elboza/force-lang#master
 ```
 
 ```javascript
-const force = require ('force-lang');
+import force from 'force-lang';
 
 var x = '2 2 + .';
 
 (async function(){
   await force.load_lib();
-  force.exec(x);
+  await force.exec(x);
 })();
 ```
-or using sync functions:
-```javascript
-const force = require ('force-lang');
-
-var x = '2 2 + .';
-
-force.load_lib_sync();
-force.exec(x);
-```
 ## repl multiline
 in the force-lang repl `force -i` you can input multiline by appending `\` (backslash) at the end of the current line before enter
 
 ## language constructs
 ```text
+: word_def ... [exit] ... ;
+           \ word definition
+           \ <exit> returns from function immediately.
 ( ... )       \ lambda func
 example: ( 1 2 + )
 
@@ -114,6 +112,7 @@ m:    for maps (hash)
 f:    for file
 G:    for Globals
 os:   for OS env
+xml:  for xml/dom parser
 ```
 ## functions signatures
 in the comments of the stadard lib section is described the stack consumption and the type that the function requires.
@@ -138,6 +137,7 @@ v       variable name
 ```text
 bye           \ ( -- )
 noop          \ ( -- )
+nop           \ ( -- )
 .s            \ ( -- )
 .e            \ ( -- )
 words         \ ( -- )
@@ -146,6 +146,8 @@ emit          \ ( n -- )
 .?            \ ( x -- )
 !             \ ( x v -- )
 @             \ ( v -- x )
+>r            \ ( x -- )
+r>            \ ( -- x )
 not           \ ( b -- b )
 and           \ ( b -- b )
 or            \ ( b -- b )
@@ -177,13 +179,18 @@ a:@           \ ( a n -- x )
 a:!           \ ( a n x -- a )
 m:@           \ ( o s -- x )
 m:!           \ ( o s x -- a )
-a:length      \ ( a -- n )
+a:len         \ ( a -- n )
+a:nth         \ ( a n -- x )
+a:head        \ ( a -- x )
+a:tail        \ ( a -- a )
 a:push        \ ( a x -- a )
 a:pop         \ ( a -- x )
 m:keys        \ ( o -- a )
 m:values      \ ( o -- a )
 s:split       \ ( s s -- a )
 s:join        \ ( a s -- s )
+s:chomp       \ ( s -- s )
+s:to_num      \ ( s -- n )
 j:stringify   \ ( j -- s )
 j:parse       \ ( s -- j )
 s:@           \ ( s n -- s )
@@ -222,7 +229,23 @@ a:each        \ ( a f -- )
 await         \ ( p -- x )
 os:argv       \ ( -- a )
 os:parse-args \ ( -- o )
-s:format      \ ( s a -- a )
+os:exec       \ ( s -- s )
+os:exec-i     \ ( s -- )
+s:format      \ ( s a -- s )
+s:len         \ ( s -- n )
+s:to_upper    \ ( s -- s )
+s:to_lower    \ ( s -- s )
+f:write       \ ( s1 s2 -- ) s1=data, s2=filename
+f:append      \ ( s1 s2 -- ) s1=data, s2=filename
+f:exists      \ ( s -- b )
+xml:loadDOM   \ ( s -- f_js )
+xml:loadXML   \ ( s -- f_js )
+xml:$         \ ( f_js -- j )
+xml:get_text  \ ( j -- s )
+xml:get_html  \ ( j -- s )
+xml:get_attr  \ ( j s -- s )
+xml:has_class \ ( j s -- b )
+xml:get_val   \ ( j -- s )
 ```
 ## functions descriptions
 
@@ -236,11 +259,13 @@ This function throws an error object on TOS and will trigger the current `handle
 you can throw a string or an object.
 
 ### G:delete \ ( s -- )
-This function removes the latest definition of the wors from the dictionary list restoring the previous definition if present.
+This function removes the latest definition of the word from the dictionary list restoring the previous definition if present.
 
 ### s:format \ ( s a -- s )
 This function if an implementation of vsprintf. It takes a format string (fmt) and an args list [args] and returns a formatted string (char* vsprintf(*fmt, *args)):
 example: 
 `"the number %d and the string %s" [22, "hey"] f:format .`
 
+### TODO 
+other standard lib functions  descriptions coming soon ...
 

package/doc/force-lang.1

@@ -1,13 +1,13 @@
-.TH "FORCE" "" "April 2020" "" ""
+.TH "" "1" "January 2026" "0.1.0"
 .SH "NAME"
-\fBForce\fR
+\fB\fRForce lang
 .SS (force\-lang)
 .SH naming the lang
 .P
 Force is a modern dialect of Forth written in NodeJS and can use the NodeJS packages universe\.
+.br
 It is called Force because of its assonance of Forth and since the Force is the main power of the Jedi the files have \.j (or \.jedi) extension\. So Force is the Jedi programmers language !
 .SH using Force as standalone interpreter
-.P
 .RS 2
 .nf
 $ npm install force\-lang \-g
@@ -25,75 +25,62 @@ Options:
 .fi
 .RE
 .SH using Force in script
-.P
 .RS 2
 .nf
 $ cat example\.j
 
-#!/usr/local/bin/force
+#!/usr/bin/env force
 
 2 2 + \.
 .fi
 .RE
 .SH using force in shell
-.P
 .RS 2
 .nf
 echo "2 2 + \."|force
 .fi
 .RE
 .SH using Force as node module
-.P
 .RS 2
 .nf
 $ npm i force\-lang
+
+# or
+
+npm install git+https://github\.com/elboza/force\-lang#master
 .fi
 .RE
-.P
 .RS 2
 .nf
-const force = require ('force\-lang');
+import force from 'force\-lang';
 
 var x = '2 2 + \.';
 
 (async function(){
   await force\.load_lib();
-  force\.exec(x);
+  await force\.exec(x);
 })();
 .fi
 .RE
-.P
-or using sync functions:
-.P
-.RS 2
-.nf
-const force = require ('force\-lang');
-
-var x = '2 2 + \.';
-
-force\.load_lib_sync();
-force\.exec(x);
-.fi
-.RE
 .SH repl multiline
 .P
 in the force\-lang repl \fBforce \-i\fP you can input multiline by appending \fB\\\fP (backslash) at the end of the current line before enter
 .SH language constructs
-.P
 .RS 2
 .nf
+: word_def \.\.\. [exit] \.\.\. ;
+           \\ word definition
+           \\ <exit> returns from function immediately\.
 ( \.\.\. )       \\ lambda func
 example: ( 1 2 + )
 
 see \.\.\.       \\ see function definition
 example: see cr
-
 \|\.\.\. if \.\.\. else \.\.\. then
               \\ if ( x \-\- )
               \\ else ( \-\- )
               \\ then ( \-\- )
 example: T if "no" \. else "yes" \. then
-
 \|\.\.\. begin \.\.\.while  \.\.\.repeat
               \\ begin ( \-\- )
               \\ repeat ( \-\- )
@@ -123,9 +110,10 @@ endcase
 .SH functions prefix
 .P
 functions name can be prefixed to give more meaningful name to the function and the type it act on\.
+.br
 For example \fB@\fP is applied to normal variables to get values, \fBa:@\fP applies to array, \fBm:@\fP applies to maps (hash)\.
+.br
 The main prefixes are:
-.P
 .RS 2
 .nf
 n:    for numbers
@@ -137,12 +125,12 @@ m:    for maps (hash)
 f:    for file
 G:    for Globals
 os:   for OS env
+xml:  for xml/dom parser
 .fi
 .RE
 .SH functions signatures
 .P
 in the comments of the stadard lib section is described the stack consumption and the type that the function requires\.
-.P
 .RS 2
 .nf
 o       object (map)
@@ -162,11 +150,11 @@ v       variable name
 .fi
 .RE
 .SH standard lib
-.P
 .RS 2
 .nf
 bye           \\ ( \-\- )
 noop          \\ ( \-\- )
+nop           \\ ( \-\- )
 \|\.s            \\ ( \-\- )
 \|\.e            \\ ( \-\- )
 words         \\ ( \-\- )
@@ -175,6 +163,8 @@ emit          \\ ( n \-\- )
 \|\.?            \\ ( x \-\- )
 !             \\ ( x v \-\- )
 @             \\ ( v \-\- x )
+>r            \\ ( x \-\- )
+r>            \\ ( \-\- x )
 not           \\ ( b \-\- b )
 and           \\ ( b \-\- b )
 or            \\ ( b \-\- b )
@@ -206,13 +196,18 @@ a:@           \\ ( a n \-\- x )
 a:!           \\ ( a n x \-\- a )
 m:@           \\ ( o s \-\- x )
 m:!           \\ ( o s x \-\- a )
-a:length      \\ ( a \-\- n )
+a:len         \\ ( a \-\- n )
+a:nth         \\ ( a n \-\- x )
+a:head        \\ ( a \-\- x )
+a:tail        \\ ( a \-\- a )
 a:push        \\ ( a x \-\- a )
 a:pop         \\ ( a \-\- x )
 m:keys        \\ ( o \-\- a )
 m:values      \\ ( o \-\- a )
 s:split       \\ ( s s \-\- a )
 s:join        \\ ( a s \-\- s )
+s:chomp       \\ ( s \-\- s )
+s:to_num      \\ ( s \-\- n )
 j:stringify   \\ ( j \-\- s )
 j:parse       \\ ( s \-\- j )
 s:@           \\ ( s n \-\- s )
@@ -251,25 +246,49 @@ a:each        \\ ( a f \-\- )
 await         \\ ( p \-\- x )
 os:argv       \\ ( \-\- a )
 os:parse\-args \\ ( \-\- o )
-s:format      \\ ( s a \-\- a )
+os:exec       \\ ( s \-\- s )
+os:exec\-i     \\ ( s \-\- )
+s:format      \\ ( s a \-\- s )
+s:len         \\ ( s \-\- n )
+s:to_upper    \\ ( s \-\- s )
+s:to_lower    \\ ( s \-\- s )
+f:write       \\ ( s1 s2 \-\- ) s1=data, s2=filename
+f:append      \\ ( s1 s2 \-\- ) s1=data, s2=filename
+f:exists      \\ ( s \-\- b )
+xml:loadDOM   \\ ( s \-\- f_js )
+xml:loadXML   \\ ( s \-\- f_js )
+xml:$         \\ ( f_js \-\- j )
+xml:get_text  \\ ( j \-\- s )
+xml:get_html  \\ ( j \-\- s )
+xml:get_attr  \\ ( j s \-\- s )
+xml:has_class \\ ( j s \-\- b )
+xml:get_val   \\ ( j \-\- s )
 .fi
 .RE
 .SH functions descriptions
 .SS handle \\ ( e \-\- )
 .P
 This function is called every time there is an error object on top of the stack\.
-You can override this function with you own to provide a custom error handling\. This can be permanent or temporary (by deleting the latest definition with \fB\|'handle' G:delete\fP)\.
+.br
+You can override this function with you own to provide a custom error handling\. This can be permanent or temporary (by deleting the latest definition with \fB&#39;handle&#39; G:delete\fP)\.
+.br
 The first thing that your custom handler function should do is to remove the error object from the TOS\. This can be done by eighter removing it (\fBdrop\fP or print \fB\|\.\fP) or by adding another item on top of it (in case you want to preserve it for future use)\.
 .SS throw \\ ( s \-\- ) or ( o \-\- )
 .P
 This function throws an error object on TOS and will trigger the current \fBhandle\fP function\.
+.br
 you can throw a string or an object\.
 .SS G:delete \\ ( s \-\- )
 .P
-This function removes the latest definition of the wors from the dictionary list restoring the previous definition if present\.
+This function removes the latest definition of the word from the dictionary list restoring the previous definition if present\.
 .SS s:format \\ ( s a \-\- s )
 .P
-This function if an implementation of vsprintf\. It takes a format string (fmt) and an args list [args] and returns a formatted string (char\fI vsprintf(\fRfmt, *args)):
-example: 
-\fB"the number %d and the string %s" [22, "hey"] f:format \.\fP
+This function if an implementation of vsprintf\. It takes a format string (fmt) and an args list [args] and returns a formatted string (char* vsprintf(*fmt, *args)):
+.br
+example:
+.br
+\fB&quot;the number %d and the string %s&quot; [22, &quot;hey&quot;] f:format \.\fP
+.SS TODO
+.P
+other standard lib functions  descriptions coming soon \.\.\.
 

package/doc/force.1

@@ -1,13 +1,13 @@
-.TH "FORCE" "" "April 2020" "" ""
+.TH "" "1" "January 2026" "0.1.0"
 .SH "NAME"
-\fBForce\fR
+\fB\fRForce lang
 .SS (force\-lang)
 .SH naming the lang
 .P
 Force is a modern dialect of Forth written in NodeJS and can use the NodeJS packages universe\.
+.br
 It is called Force because of its assonance of Forth and since the Force is the main power of the Jedi the files have \.j (or \.jedi) extension\. So Force is the Jedi programmers language !
 .SH using Force as standalone interpreter
-.P
 .RS 2
 .nf
 $ npm install force\-lang \-g
@@ -25,75 +25,62 @@ Options:
 .fi
 .RE
 .SH using Force in script
-.P
 .RS 2
 .nf
 $ cat example\.j
 
-#!/usr/local/bin/force
+#!/usr/bin/env force
 
 2 2 + \.
 .fi
 .RE
 .SH using force in shell
-.P
 .RS 2
 .nf
 echo "2 2 + \."|force
 .fi
 .RE
 .SH using Force as node module
-.P
 .RS 2
 .nf
 $ npm i force\-lang
+
+# or
+
+npm install git+https://github\.com/elboza/force\-lang#master
 .fi
 .RE
-.P
 .RS 2
 .nf
-const force = require ('force\-lang');
+import force from 'force\-lang';
 
 var x = '2 2 + \.';
 
 (async function(){
   await force\.load_lib();
-  force\.exec(x);
+  await force\.exec(x);
 })();
 .fi
 .RE
-.P
-or using sync functions:
-.P
-.RS 2
-.nf
-const force = require ('force\-lang');
-
-var x = '2 2 + \.';
-
-force\.load_lib_sync();
-force\.exec(x);
-.fi
-.RE
 .SH repl multiline
 .P
 in the force\-lang repl \fBforce \-i\fP you can input multiline by appending \fB\\\fP (backslash) at the end of the current line before enter
 .SH language constructs
-.P
 .RS 2
 .nf
+: word_def \.\.\. [exit] \.\.\. ;
+           \\ word definition
+           \\ <exit> returns from function immediately\.
 ( \.\.\. )       \\ lambda func
 example: ( 1 2 + )
 
 see \.\.\.       \\ see function definition
 example: see cr
-
 \|\.\.\. if \.\.\. else \.\.\. then
               \\ if ( x \-\- )
               \\ else ( \-\- )
               \\ then ( \-\- )
 example: T if "no" \. else "yes" \. then
-
 \|\.\.\. begin \.\.\.while  \.\.\.repeat
               \\ begin ( \-\- )
               \\ repeat ( \-\- )
@@ -123,9 +110,10 @@ endcase
 .SH functions prefix
 .P
 functions name can be prefixed to give more meaningful name to the function and the type it act on\.
+.br
 For example \fB@\fP is applied to normal variables to get values, \fBa:@\fP applies to array, \fBm:@\fP applies to maps (hash)\.
+.br
 The main prefixes are:
-.P
 .RS 2
 .nf
 n:    for numbers
@@ -137,12 +125,12 @@ m:    for maps (hash)
 f:    for file
 G:    for Globals
 os:   for OS env
+xml:  for xml/dom parser
 .fi
 .RE
 .SH functions signatures
 .P
 in the comments of the stadard lib section is described the stack consumption and the type that the function requires\.
-.P
 .RS 2
 .nf
 o       object (map)
@@ -162,11 +150,11 @@ v       variable name
 .fi
 .RE
 .SH standard lib
-.P
 .RS 2
 .nf
 bye           \\ ( \-\- )
 noop          \\ ( \-\- )
+nop           \\ ( \-\- )
 \|\.s            \\ ( \-\- )
 \|\.e            \\ ( \-\- )
 words         \\ ( \-\- )
@@ -175,6 +163,8 @@ emit          \\ ( n \-\- )
 \|\.?            \\ ( x \-\- )
 !             \\ ( x v \-\- )
 @             \\ ( v \-\- x )
+>r            \\ ( x \-\- )
+r>            \\ ( \-\- x )
 not           \\ ( b \-\- b )
 and           \\ ( b \-\- b )
 or            \\ ( b \-\- b )
@@ -206,13 +196,18 @@ a:@           \\ ( a n \-\- x )
 a:!           \\ ( a n x \-\- a )
 m:@           \\ ( o s \-\- x )
 m:!           \\ ( o s x \-\- a )
-a:length      \\ ( a \-\- n )
+a:len         \\ ( a \-\- n )
+a:nth         \\ ( a n \-\- x )
+a:head        \\ ( a \-\- x )
+a:tail        \\ ( a \-\- a )
 a:push        \\ ( a x \-\- a )
 a:pop         \\ ( a \-\- x )
 m:keys        \\ ( o \-\- a )
 m:values      \\ ( o \-\- a )
 s:split       \\ ( s s \-\- a )
 s:join        \\ ( a s \-\- s )
+s:chomp       \\ ( s \-\- s )
+s:to_num      \\ ( s \-\- n )
 j:stringify   \\ ( j \-\- s )
 j:parse       \\ ( s \-\- j )
 s:@           \\ ( s n \-\- s )
@@ -251,25 +246,49 @@ a:each        \\ ( a f \-\- )
 await         \\ ( p \-\- x )
 os:argv       \\ ( \-\- a )
 os:parse\-args \\ ( \-\- o )
-s:format      \\ ( s a \-\- a )
+os:exec       \\ ( s \-\- s )
+os:exec\-i     \\ ( s \-\- )
+s:format      \\ ( s a \-\- s )
+s:len         \\ ( s \-\- n )
+s:to_upper    \\ ( s \-\- s )
+s:to_lower    \\ ( s \-\- s )
+f:write       \\ ( s1 s2 \-\- ) s1=data, s2=filename
+f:append      \\ ( s1 s2 \-\- ) s1=data, s2=filename
+f:exists      \\ ( s \-\- b )
+xml:loadDOM   \\ ( s \-\- f_js )
+xml:loadXML   \\ ( s \-\- f_js )
+xml:$         \\ ( f_js \-\- j )
+xml:get_text  \\ ( j \-\- s )
+xml:get_html  \\ ( j \-\- s )
+xml:get_attr  \\ ( j s \-\- s )
+xml:has_class \\ ( j s \-\- b )
+xml:get_val   \\ ( j \-\- s )
 .fi
 .RE
 .SH functions descriptions
 .SS handle \\ ( e \-\- )
 .P
 This function is called every time there is an error object on top of the stack\.
-You can override this function with you own to provide a custom error handling\. This can be permanent or temporary (by deleting the latest definition with \fB\|'handle' G:delete\fP)\.
+.br
+You can override this function with you own to provide a custom error handling\. This can be permanent or temporary (by deleting the latest definition with \fB&#39;handle&#39; G:delete\fP)\.
+.br
 The first thing that your custom handler function should do is to remove the error object from the TOS\. This can be done by eighter removing it (\fBdrop\fP or print \fB\|\.\fP) or by adding another item on top of it (in case you want to preserve it for future use)\.
 .SS throw \\ ( s \-\- ) or ( o \-\- )
 .P
 This function throws an error object on TOS and will trigger the current \fBhandle\fP function\.
+.br
 you can throw a string or an object\.
 .SS G:delete \\ ( s \-\- )
 .P
-This function removes the latest definition of the wors from the dictionary list restoring the previous definition if present\.
+This function removes the latest definition of the word from the dictionary list restoring the previous definition if present\.
 .SS s:format \\ ( s a \-\- s )
 .P
-This function if an implementation of vsprintf\. It takes a format string (fmt) and an args list [args] and returns a formatted string (char\fI vsprintf(\fRfmt, *args)):
-example: 
-\fB"the number %d and the string %s" [22, "hey"] f:format \.\fP
+This function if an implementation of vsprintf\. It takes a format string (fmt) and an args list [args] and returns a formatted string (char* vsprintf(*fmt, *args)):
+.br
+example:
+.br
+\fB&quot;the number %d and the string %s&quot; [22, &quot;hey&quot;] f:format \.\fP
+.SS TODO
+.P
+other standard lib functions  descriptions coming soon \.\.\.
 

package/examples/cli-args.j

@@ -1,4 +1,4 @@
-#!/usr/local/bin/force
+#!/usr/bin/env force
 
 
 os:argv @ .
@@ -8,10 +8,10 @@ os:argv @ .
 ['-h','--help','n'],
 ['-k','--kkk','?']
 ]
-os:parse-args
+os:parse-args .s
 
 // run with:
 // ./cli-args.j -x 99
 // the putput will be:
 // ["/usr/local/bin/node","/usr/local/bin/force","./cli-args.j","-x","99"]
-// { argv: [], xray: '99' }
+// { argv: [], xray: '99' }

package/examples/nodejs-js-interaction.j

@@ -1,5 +1,6 @@
-"testjs.js" j:require-js
+"testjs.js" j:require-js await
 
+"default" m:@
 var a          //declare variable a
 a !            // assign the required js to the var a
 a @            // put the content of the var a in TOS

package/examples/testjs.js

@@ -1,4 +1,4 @@
-module.exports= {
+export default {
 	foo:2,
 	bar:"pluto",
 	kk:()=>{return 2;},
@@ -7,4 +7,4 @@ module.exports= {
 	kk2:function(){ return this.bar;},
 	alvaro: function(){return "ww";},
 	pp: function(){return Promise.resolve(2);}
-}
+};

package/examples/web_scrap.j

@@ -0,0 +1,17 @@
+'<div id="kk" class="as">foo</div>'
+xml:loadDOM
+'div' xml:$
+'as' xml:has_class
+.
+
+'<div id="kk" class="as">foo</div>'
+xml:loadDOM
+'#kk' xml:$
+xml:get_text
+.
+
+'<div id="kk" class="as">foo</div>'
+xml:loadDOM
+'div' xml:$
+'class' xml:get_attr
+.