Verified Commit 38bf4040 authored by Bernd Paysan's avatar Bernd Paysan

merged

parents 7f706132 f1edb2ab
Pipeline #1236 failed with stage
in 8 minutes and 9 seconds
......@@ -20,7 +20,7 @@ A [ ] locals
B [x]*saver for images with sections
B [x] loader for images with sections
B [ ]*Header Interface - autodetect duplication, simpler interface, setters have to duplicate if not already
B [ ] Generate header from prototype without duplcation
B [x] Generate header from prototype without duplcation
AB [ ]*locate, view, where & edit
[ ] documented view>*
[x]*help or doc - get documentation of word
......
......@@ -164,6 +164,10 @@ gforth_stackpointers gforth_libcc_init(GFORTH_ARGS)
: 0); \
} while (0);
#define c_str2gforth_str(str,addr,u) \
(addr) = (Char *) str; \
(u) = strlen(str);
#define gforth_ll2ud(ll,lo,hi) \
do { \
UClongest _ll = (ll); \
......
......@@ -522,6 +522,10 @@ create gen-call-types
: gen-wrapped-a ( pars c-name fp-change1 sp-change1 -- fp-change sp-change )
2dup gen-par-sp 2>r ." =(Cell)" gen-wrapped-call 2r> ;
: gen-wrapped-s ( pars c-name fp-change1 sp-change1 -- fp-change sp-change )
." c_str2gforth_str(" gen-wrapped-void
." ," gen-par-sp ." ," gen-par-sp ." )" ;
: gen-wrapped-d ( pars c-name fp-change1 sp-change1 -- fp-change sp-change )
." gforth_ll2d(" gen-wrapped-void
." ," gen-par-sp ." ," gen-par-sp ." )" ;
......@@ -545,7 +549,7 @@ create gen-wrapped-types
' gen-wrapped-r ,
' gen-wrapped-func ,
' gen-wrapped-void ,
' gen-wrapped-a ,
' gen-wrapped-s ,
' gen-wrapped-a ,
' gen-wrapped-void ,
......
......@@ -55,6 +55,9 @@
: ..char ( start end -- ) \ regexp-cg
\G add a range of chars to the current charclass
1+ swap ?DO I +char LOOP ;
: +chars ( addr u -- ) \ regexp-cg
\G add a string of chars to the current charclass
bounds ?DO I c@ +char LOOP ;
: or! ( n addr -- ) dup @ rot or swap ! ;
: and! ( n addr -- ) dup @ rot and swap ! ;
: +class ( class -- ) \ regexp-cg
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment