/MirOS/dist/jupp/joe-3.1jupp30.tgz
[alioth/jupp.git] / builtins.c
index b8b00fe..bc3a8eb 100644 (file)
@@ -16,7 +16,6 @@
 
 const unsigned char * const builtins[] = {
        US JUPPRC_BUILTIN_NAME, US
-               "-asis\n"
                "-assume_color\n"
                "-dopadding\n"
                "--force\n"
@@ -149,15 +148,15 @@ const unsigned char * const builtins[] = {
                "\\i \\i go to \\uhttp://sf.net/projects/joe-editor/\\u for upstream bug reports. JUPP 2.8 \\i \\i\n"
                "\\i \\i for DOS compiled by A. Totlis, packed with LHarc 2.13; JUPP 3.x for UNIX\\d(R)\\d \\i \\i\n"
                "\\i \\i at \\uhttp://mirbsd.de/jupp\\u and by \\bThorsten \"\\dmirabilos\\d\" Glaser <\\utg@mirbsd.org\\u>\\b \\i \\i\n"
-               "\\i \\i @(#) blt_in 2016-10-08; 3.1; autoCR-LF; UTF-8 via locale; per-file encoding \\i \\i\n"
+               "\\i \\i @(#) blt_in 2017-01-11; 3.1; autoCR-LF; UTF-8 via locale; per-file encoding \\i \\i\n"
                "}\n"
                "\n"
                "{CharTable\n"
                "\\i   Help Screen    turn off with ^J     prev. screen ^[,    \\uCharacter Map\\u       \\i\n"
                "\\i \\i Dec Hex  \\u 0123 4567  89AB CDEF    0123 4567  89AB CDEF \\u  Hex Dec            \\i \\i\n"
                "\\i \\i         |                                              |                    \\i \\i\n"
-               "\\i \\i   0  00 | \\u@ABC\\u \\uDEFG\\u  \\uHIJK\\u \\uLMNO\\u    \\i\\u@ABC\\u\\i \\i\\uDEFG\\u\\i  \\i\\uHIJK\\u\\i \\i\\uLMNO\\u\\i | 80  128            \\i \\i\n"
-               "\\i \\i  16  10 | \\uPQRS\\u \\uTUVW\\u  \\uXYZ[\\u \\u\\\\]^_\\u    \\i\\uPQRS\\u\\i \\i\\uTUVW\\u\\i  \\i\\uXYZ[\\u\\i \\i\\u\\\\]^_\\u\\i | 90  144            \\i \\i\n"
+               "\\i \\i   0  00 | \\u@ABC\\u \\uDEFG\\u  \\uHIJK\\u \\uLMNO\\u    \x80\x81\x82\x83 \x84\x85\x86\x87  \x88\x89\x8A\x8B \x8C\x8D\x8E\x8F | 80  128            \\i \\i\n"
+               "\\i \\i  16  10 | \\uPQRS\\u \\uTUVW\\u  \\uXYZ[\\u \\u\\\\]^_\\u    \x90\x91\x92\x93 \x94\x95\x96\x97  \x98\x99\x9A\x9B \x9C\x9D\x9E\x9F | 90  144            \\i \\i\n"
                "\\i \\i  32  20 |  !\"# $%&'  ()*+ ,-./    \xA0\xA1\xA2\xA3 \xA4\xA5\xA6\xA7  \xA8\xA9\xAA\xAB \xAC\xAD\xAE\xAF | A0  160            \\i \\i\n"
                "\\i \\i  48  30 | 0123 4567  89:; <=>?    \xB0\xB1\xB2\xB3 \xB4\xB5\xB6\xB7  \xB8\xB9\xBA\xBB \xBC\xBD\xBE\xBF | B0  176            \\i \\i\n"
                "\\i \\i  64  40 | @ABC DEFG  HIJK LMNO    \xC0\xC1\xC2\xC3 \xC4\xC5\xC6\xC7  \xC8\xC9\xCA\xCB \xCC\xCD\xCE\xCF | C0  192            \\i \\i\n"
@@ -233,17 +232,10 @@ const unsigned char * const builtins[] = {
                "\n"
                ":main\n"
                ":inherit windows\n"
+               ":def freedroidz splitw,prevw,scratch,\"nbc-Output\",rtn,nextw,save,markk,bol,markb,prevw,prevw,blkcpy,nextw,nextw,rtn,prevw,eol,\"'\",bol,qrepl,\"'\",rtn,rtn,\"'\\\\\\\\''\",rtn,\"r\",backs,backs,backs,bol,\"LC_ALL=C; export LC_ALL; fn='\",eol,rtn,\"p=--posix; sed $p -e q </dev/null >/dev/null 2>&1 || p=; fns=$(echo \\\"$fn\\\" | sed $p -e 's\ 1[^^]\ 1[&]\ 1g; s\ 1\\\\^\ 1\\\\\\\\^\ 1g'); (case $fn in\",rtn,\"*.nxc) ;;\",rtn,\"*) echo '==> Error: filename not *.nxc'; exit ;;\",rtn,\"esac\",rtn,\"echo \\\"Compiling $fn\\\"\",rtn,\"nbc -sm- -d \\\"$fn\\\" 2>&1; x=$?\",rtn,\"if test $x = 0; then echo '==> OK'; else echo '==> Error code:' $x; fi\",rtn,\") | tr '\\\\n' '\ 1' | sed $p -e 's!\ 1# *\\\\([^\ 1]*\\\\)\ 1File \\\"[^\\\"]*/\\\\('\\\"$fns\\\"'\\\\)\\\" ; line \\\\([0-9]*\\\\)\ 1!\ 1\\\\2:\\\\3: \\\\1\ 1!g' -e 's!\ 1#\\\\([^\ 1]*\\\\)\ 1File \\\"\\\\([^\\\"]*\\\\)\\\" ; line \\\\([0-9]*\\\\)\ 1!\ 1\\\\2:\\\\3: \\\\1\ 1!g' | tr '\ 1' '\\\\n'\",rtn,nmark,filt,\"sh\",rtn,rtn,\"Press ^KQ to close this window!\",rtn,parserr\n"
+               ":def docompile edit,rtn,filt,query,parserr\n"
                "bof,qrepl,\"\\\\[\",quote,\"i\",quote,\"k\",quote,\"l\",quote,\"m ]\\\\+\\\\[\",quote,\"i\",quote,\"k\",quote,\"l\",quote,\"m ]\\\\$\",rtn,rtn,rtn,\"r\",eof   ^K ]\n"
                "ffirst,\"\\\\^\\\\[<>=]\\\\[<>=]\\\\[<>=]\\\\[<>=]\\\\[<>=]\\\\[<>=]\\\\[<>=]\\\\[ \\\\n]\",rtn,rtn,ltarw                                                      ^Q =\n"
-               "splitw,prevw,scratch,\"nbc-Output\",rtn,nextw,save,markk,bol,markb,prevw,prevw,blkcpy,nextw,nextw,rtn,prevw,eol,\"'\",bol,qrepl,\"'\",rtn,rtn,\"'\\\\\\\\''\",rtn,\"r\",backs,backs,backs,bol,\"fn='\",eol,rtn,\"case $fn in\",rtn,\"*.nxc) ;;\",rtn,\"*) echo '==> Error: filename not *.nxc'; exit ;;\",rtn,\"esac\",rtn,\"nbc -d \\\"$fn\\\"; x=$?\",rtn,\"if test $x = 0; then echo '==> OK'; else echo '==> Error code:' $x; fi\",rtn,nmark,filt,\"sh\",rtn,rtn,\"Press ^KQ to close this window!\",rtn   ^K F\n"
-               "splitw,prevw,scratch,\"nbc-Output\",rtn,nextw,save,markk,bol,markb,prevw,prevw,blkcpy,nextw,nextw,rtn,prevw,eol,\"'\",bol,qrepl,\"'\",rtn,rtn,\"'\\\\\\\\''\",rtn,\"r\",backs,backs,backs,bol,\"fn='\",eol,rtn,\"case $fn in\",rtn,\"*.nxc) ;;\",rtn,\"*) echo '==> Error: filename not *.nxc'; exit ;;\",rtn,\"esac\",rtn,\"nbc -d \\\"$fn\\\"; x=$?\",rtn,\"if test $x = 0; then echo '==> OK'; else echo '==> Error code:' $x; fi\",rtn,nmark,filt,\"sh\",rtn,rtn,\"Press ^KQ to close this window!\",rtn   ^K f\n"
-               "splitw,prevw,scratch,\"nbc-Output\",rtn,nextw,save,markk,bol,markb,prevw,prevw,blkcpy,nextw,nextw,rtn,prevw,eol,\"'\",bol,qrepl,\"'\",rtn,rtn,\"'\\\\\\\\''\",rtn,\"r\",backs,backs,backs,bol,\"fn='\",eol,rtn,\"case $fn in\",rtn,\"*.nxc) ;;\",rtn,\"*) echo '==> Error: filename not *.nxc'; exit ;;\",rtn,\"esac\",rtn,\"nbc -d \\\"$fn\\\"; x=$?\",rtn,\"if test $x = 0; then echo '==> OK'; else echo '==> Error code:' $x; fi\",rtn,nmark,filt,\"sh\",rtn,rtn,\"Press ^KQ to close this window!\",rtn   ^K ^F\n"
-               "edit,rtn,filt,query,parserr    ^[ C\n"
-               "edit,rtn,filt,query,parserr    ^[ c\n"
-               "helpcard,\"Paste\",rtn,keymap,\"Paste\",rtn    ^[ P\n"
-               "helpcard,\"Paste\",rtn,keymap,\"Paste\",rtn    ^[ p\n"
-               "helpcard,\"Paste\",rtn,keymap,\"Paste\",rtn    ^[ [ 2 0 0 ~\n"
-               "nop                                    ^[ [ 2 0 1 ~\n"
                "begin_marking,uparw,toggle_marking     ^[ [ 1 ; 2 A\n"
                "begin_marking,dnarw,toggle_marking     ^[ [ 1 ; 2 B\n"
                "begin_marking,rtarw,toggle_marking     ^[ [ 1 ; 2 C\n"
@@ -252,6 +244,11 @@ const unsigned char * const builtins[] = {
                "begin_marking,eol,toggle_marking       ^[ [ 1 ; 2 F\n"
                "begin_marking,bof,toggle_marking       ^[ [ 1 ; 6 H\n"
                "begin_marking,eof,toggle_marking       ^[ [ 1 ; 6 F\n"
+               ":def pastemain helpcard,\"Paste\",rtn,keymap,\"Paste\",rtn\n"
+               "pastemain      ^[ P\n"
+               "pastemain      ^[ p\n"
+               "pastemain      ^[ [ 2 0 0 ~\n"
+               "nop            ^[ [ 2 0 1 ~\n"
                "backs          ^?\n"
                "backs          ^H\n"
                "backw          ^[ o\n"
@@ -399,8 +396,13 @@ const unsigned char * const builtins[] = {
                "nxterr         ^[ M\n"
                "nxterr         ^[ m\n"
                "open           ^[ b\n"
+               "docompile      ^[ C\n"
+               "docompile      ^[ c\n"
                "parserr                ^[ E\n"
                "parserr                ^[ e\n"
+               "freedroidz     ^K F\n"
+               "freedroidz     ^K ^F\n"
+               "freedroidz     ^K f\n"
                "pgdn           .kN\n"
                "pgdn           ^C\n"
                "pgdn           ^[ [ 6 ~\n"
@@ -473,12 +475,13 @@ const unsigned char * const builtins[] = {
                "\n"
                ":prompt\n"
                ":inherit main\n"
+               ":def pasteprompt keymap,\"Pasteprompt\",rtn,msg,\"Entered bracketed paste mode\",rtn\n"
                "abort          ^C\n"
                "complete       ^I\n"
                "nop            ^L\n"
-               "keymap,\"Pasteprompt\",rtn,msg,\"Entered bracketed paste mode\",rtn    ^[ P\n"
-               "keymap,\"Pasteprompt\",rtn,msg,\"Entered bracketed paste mode\",rtn    ^[ p\n"
-               "keymap,\"Pasteprompt\",rtn,msg,\"Entered bracketed paste mode\",rtn    ^[ [ 2 0 0 ~\n"
+               "pasteprompt    ^[ P\n"
+               "pasteprompt    ^[ p\n"
+               "pasteprompt    ^[ [ 2 0 0 ~\n"
                "\n"
                ":menu\n"
                ":inherit windows\n"
@@ -542,5 +545,5 @@ const unsigned char * const builtins[] = {
                ":querysr\n"
                "type           ^@ TO \xFF\n"
 ,      NULL
-,      "@(#) $MirOS: contrib/code/jupp/builtins.c,v 1.23 2016/10/29 21:42:56 tg Exp $"
+,      "@(#) $MirOS: contrib/code/jupp/builtins.c,v 1.24 2017/01/11 22:23:45 tg Exp $"
 };