Mercurial > repo
comparison paste/paste.27233 @ 2408:6123a6a16020
<Gregor> echo WORDS | gforth | paste
author | HackBot |
---|---|
date | Fri, 08 Mar 2013 19:26:47 +0000 |
parents | |
children |
comparison
equal
deleted
inserted
replaced
2407:34a42bd1bd03 | 2408:6123a6a16020 |
---|---|
1 Gforth 0.7.0, Copyright (C) 1995-2008 Free Software Foundation, Inc. | |
2 Gforth comes with ABSOLUTELY NO WARRANTY; for details type `license' | |
3 Type `bye' to exit | |
4 WORDS | |
5 mov-regv-Iv mov-reg8-Ib xchg-ax jcc-short conditions pop-reg push-reg | |
6 set-add-likes set-add-like set-noarg rAX,Iz AL,Ib Gv,Ev Gb,Eb Ev,Gv | |
7 Eb,Gb Iv Jz Iz immz Jb Ib Ev Ed Eb Ext mem-modRM mem-SIB | |
8 print-base base-regnum masksx displacement-info Ox Gv .width*2 | |
9 .width/2 .width .regv Sw Gb Gnum .invalid .sreg .reg64 .reg32 | |
10 .reg16 .reg8 .regn dec.- sreg-names reg16-names reg8-names-norex | |
11 reg8-names address-size-disasm operand-size-disasm immediate-prefix | |
12 rex-prefix-disasm repeat-prefix-disasm illegal-inst print-rep disasm | |
13 disasm-addr disasm-addr1 def-opcode1 opcode1-table clear-prefixes | |
14 rex-prefix repeat-prefix address-size operand-size string-table | |
15 save-mem-here cell-fill th c@+ dffield: sffield: ffield: 2field: | |
16 field: cfield: end-structure begin-structure +field init-libcc | |
17 end-c-library c-library c-library-name c-library-incomplete clear-libs | |
18 c-function c-function-rt c-function-ft link-wrapper-function | |
19 compile-wrapper-function1 compile-wrapper-function .lib-error | |
20 c-source-file-execute notype-execute c-source-file init-c-source-file | |
21 lib-handle c-tmp-library-name c-named-library-name c-library-name-create | |
22 c-library-name-setup open-wrappers prepend-dirname libcc-tmp-dir | |
23 libcc-named-dir gen-filename basename dirname scan-back | |
24 gen-wrapper-function wrapper-function-name gen-wrapped-stmt | |
25 gen-wrapped-types gen-wrapped-func gen-wrapped-r gen-wrapped-d | |
26 gen-wrapped-a gen-wrapped-n gen-wrapped-void gen-wrapped-call gen-par | |
27 gen-par-types gen-par-void gen-par-func gen-par-r gen-par-d gen-par-a | |
28 gen-par-n count-stacks count-stacks-types count-stacks-void | |
29 count-stacks-func count-stacks-r count-stacks-d count-stacks-a | |
30 count-stacks-n type-letter parse-function-types parse-libcc-type | |
31 libcc-types \c save-c-prefix-line print-c-prefix-lines | |
32 print-c-prefix-line c-prefix-lines-end c-prefix-lines c-prefix% | |
33 c-prefix-chars c-prefix-count append-l add-lib c-libs c-lib% | |
34 c-lib-string list-map list-append list-insert list% list-payload | |
35 list-next append s+ front-char front-string const+ .nb replace-rpath | |
36 libcc-path libcc-named-dir-v lib-modulename lib-filename lib-handle-addr | |
37 c-source-file-id cff% cff-ptypes cff-np cff-rtype cff-lha cff-deferred | |
38 cff-cfr mkdir-parents disasm-gdb append-extend-string end-code ;code | |
39 (;code) code init-asm assembler break" (break") break: (break:) | |
40 break:, dbg (debug) (_debug) D-KEY Unnest Nesting nestXT | |
41 nestXT-checkSpecial Body restore-bp set-bp DT BP breaker breaker-size | |
42 DebugLoop jump get-next disp-step Leave-D NoFine d.s .n scanword | |
43 restore-see-flags save-see-flags dbg-ip see-code see-code-range | |
44 see-code-next-inline simple-see simple-see-range simple-see-word | |
45 print-backtrace print-bt-entry backtrace-return-stack init-backtrace | |
46 backtrace-rs-buffer adjust-buffer init-buffer buffer% buffer-maxlength | |
47 buffer-address buffer-length buffer-descriptor c-extend1 c-lp+!# | |
48 c-laddr# c-f@local# c-flit c-@local# c-branch-lp+!# c-?branch-lp+!# | |
49 c-loop-lp+!# see name-see (.immediate) (xt-see-xt) xt-see seefield | |
50 seecol seedoes see-threaded seedefer seevalue seecon seeuser seevar | |
51 seecode next-prim next-head discode .defname xt-see-xt makepass c-init | |
52 analyse BranchTo? DoTable c-extender C-Table c-(compile) c-does> | |
53 c-abort" c-exit c-?do c-do c-loop c-for c-?branch DebugBranch | |
54 c-branch RepeatCheck Forward? c-string? c-c" .name-without c-lit+ | |
55 c-lit c-callxt c-call .word back? Debug? Display? Scan? DebugMode | |
56 DisplayMode ScanMode C-Pass NoOutput Branch! Type! ,Branch CheckWhile | |
57 MyBranch CheckEnd MoreBranchAddr? BranchAddr? (BranchAddr?) FirstBranch | |
58 MaxTable BranchTable SearchPointer BranchPointer Branches C-Stop | |
59 LeaveCode Disable WhileCode2 AheadCode ElseCode UntilCode AgainCode | |
60 RepeatCode .struc c-\type (.string) .string cemit ctype warp? (nl) | |
61 nl nlcount uppercase nlflag level- level+ Format Level YPos XPos | |
62 C-Clearline C-Highlight C-Formated C-Output .\" s\" \"-parse \-escape | |
63 \-escape-table parse-num parse-num-x char/ ekey? ekey>fkey ekey>char | |
64 ekey clear-ekey-buffer esc-sequence esc-prefix ekey-buffered ekey-buffer | |
65 esc-sequences unkeys unkey char-append-buffer key-buffered key-buffer | |
66 s-k12 s-k11 s-k10 s-k9 s-k8 s-k7 s-k6 s-k5 s-k4 s-k3 s-k2 s-k1 | |
67 k12 k11 k10 k9 k8 k7 k6 k5 k4 k3 k2 k1 k-f12 k-f11 k-f10 k-f9 | |
68 k-f8 k-f7 k-f6 k-f5 k-f4 k-f3 k-f2 k-f1 k-delete k-insert k-next | |
69 k-prior k-end k-home k-down k-up k-right k-left k-alt-mask | |
70 k-ctrl-mask k-shift-mask keycode table tablesearch-map table-find | |
71 savesystem dump-fi update-image-included-files delete-prefix | |
72 save-mem-dict <compilation compilation> (compilation>1) <interpretation | |
73 interpretation> (interpretation>1) fix-does-code create-interpret/compile | |
74 no-interpretation-does-code no-compilation-does-code bye block-included | |
75 --> +thru +load thru load block-input list updated? scr buffer | |
76 block get-buffer flush empty-buffers save-buffers empty-buffer | |
77 save-buffer update block-position get-block-fid use open-blocks | |
78 flush-blocks block-cold offset block-offset block-fid block-limit | |
79 buffers last-block block-buffers buffer-struct next-buffer block-buffer | |
80 buffer-dirty buffer-fid buffer-block ) (end-assert) assert( assert3( | |
81 assert2( assert1( assert0( assertn assert-level ~~ .debugline-stderr | |
82 (.debugline) .debugline printdebugdata .sourcepos compile-sourcepos | |
83 current-sourcepos str>loadfilename# loadfilename#>str vt100-decode tcode | |
84 trans: transcode translate history-cold get-history xchar-history | |
85 xtab-expand insert xkill-expand (xenter) xclear-tib xclear-line | |
86 xend-pos xfirst-pos xeof <xdel> ?xdel (xdel) xforw xback (xins) | |
87 <xins> xretype .all .rest xback-restore xcur-correct at-deltaxy #esc | |
88 kill-prefix tib-full? search-prefix prefix-string prefix-off search-voc | |
89 word-lex capscomp sgn prefix-found extract-word (enter) prev-line | |
90 find-prev-line next-line get-line hist-setpos hist-pos clear-line | |
91 linew-off screenw linew cur-correct back-restore history-file | |
92 force-open end^ backward^ forward^ history bindkey >string ctrl | |
93 ctrl-i utf-8-cold set-encoding-utf-8 u8width -u8trailing-garbage | |
94 u8addrlen u8!+? u8@ u8\string- +u8/string u8emit u8key check-xy u8<< | |
95 u8>> u8!+ u8@+ u8len max-single-byte UTF-8-err O-PNT@ O-DEINIT O-INIT | |
96 TypeXT EmitXT O-EMIT O-TYPE O-PNT O-Buffer page at-xy ESC[ ;pn pn | |
97 WordInfo InfoTable Com# Str# Ali# Use# Col# Def# Doe# Val# Var# | |
98 Con# Pri# prim? xtprim? colon? defered? does? user? con? var? | |
99 alias? >head >name threaded>name look prim>name PrimStart threaded>xt | |
100 search-name xt>threaded base-execute infile-execute outfile-execute l@ | |
101 w@ /l /w typewhite what's action-of f.s f.rdp f>str-rdp f>buf-rdp | |
102 f>buf-rdp-try push-right ]] postponer1 [[ compile-compile-2literal | |
103 compile-2literal compile-compile-literal compile-literal slurp-fid | |
104 slurp-file const-does> (const-does>) compile-fliterals compile-literals | |
105 in-return-stack? ]L sh system $? dmax dmin ?CSP !CSP CSP needs | |
106 locals| TO definer! >definer (local) (exit-like) (until-like) | |
107 (again-like) (begin-like) (then-like) locals-;-hook locals-:-hook | |
108 endscope adjust-locals-list scope { old-dpp new-locals-wl | |
109 new-locals-map new-locals-reveal new-locals-find some-wlocal some-flocal | |
110 some-dlocal some-clocal locals-types lp-offset, lp-offset create-local | |
111 compile-pushlocal-c compile-pushlocal-d compile-pushlocal-f check-begin | |
112 set-locals-size-list list-size sub-list? common-list compile-pushlocal-w | |
113 alignlp-f alignlp-w locals-dp locals-buffer locals adjust-locals-size | |
114 compile-lp+! compile-f@local compile-@local FMOD FTRUNC f~ f~rel f~abs | |
115 1/f f2/ f2* pi fvariable sfnumber fs. fe. f. f$ -zeros zeros | |
116 scratch set-precision precision FLiteral fdepth fconstant f, dfloat+ | |
117 sfloat+ dfalign sfalign .words hash-cold make-hash (hashsearch-map) | |
118 hashdouble (rehash) rehashall clearhash addall inithash hash-reveal | |
119 (reveal lastlink! hash-find bucket NewFix DelFix hash-alloc | |
120 hashsearch-map HashTable HashPop HashIndex HashPointer revealed insRule | |
121 hash Hashlen hashbits reserve-mem marker marker! marker, | |
122 included-files-mark expect span search blank erase convert [compile] | |
123 C" endcase endof of case m*/ d>s .( broken-pipe-error exception | |
124 next-exception errstring linked include-ffi.h-string libffi-present | |
125 ffcall-present libtool-flags libtool-cc libtool-command has? $has? e? | |
126 environment? environment-wordlist environment vocs order .voc .name | |
127 .id id. seal set-order get-order init-vp update-image-order Only Root | |
128 Forth vocsearch (localsvocfind) locals-wordlist (vocfind) previous also | |
129 >order check-maxvp Vocabulary wordlist mappedwordlist slowvoc | |
130 definitions vp! set-current get-current vp maxvp-limit maxvp %alloc | |
131 %allocate %allot %align %size %alignment double% sfloat% dfloat% | |
132 float% char% cell% struct end-struct field create-field field, | |
133 dozerofield nalign naligned endtry-iferror endtry restore iferror | |
134 handler-intro, (endtry) try (try) nothrow first-throw store-backtrace | |
135 dodoes: dofield: dodefer: douser: dovar: docol: dovalue: docon: vlist | |
136 words wordlist-words cols rows ? dump .line .chars .4 /dump .s | |
137 maxdepth-.s [WHILE] [AGAIN] [REPEAT] [UNTIL] [BEGIN] [I] [NEXT] [FOR] | |
138 [LOOP] [+LOOP] [?DO] [DO] (i) [ENDIF] [THEN] [ELSE] [IFUNDEF] | |
139 [IFDEF] [IF] [undefined] defined [defined] ?if [struct]-voc | |
140 [struct]-search scanIF >exec dummy countif ." S" abort" SLiteral | |
141 CLiteral ?EXIT EXIT exit-like NEXT S+LOOP -LOOP +LOOP LOOP loop-like | |
142 FOR U-DO -DO U+DO +DO ?DO ?do-like DO ?LEAVE LEAVE DONE leave> | |
143 >leave clear-leave-stack leave-sp leave-stack leave-stack-size REPEAT | |
144 WHILE UNTIL until-like AGAIN again-like BEGIN begin-like ELSE ENDIF | |
145 THEN cs>addr then-like ?DUP-0=-IF ?DUP-IF IF AHEAD YET BUT <resolve | |
146 >resolve >mark sys? ?struc other-control-flow cs-push-orig cs-push-part | |
147 CS-ROLL CS-PICK cs-item-size cs-item? non-orig? scope? do-dest? dest? | |
148 orig? def? scopestart do-dest dest dead-orig live-orig ASSUME-LIVE | |
149 UNREACHABLE backedge-locals dead-code locals-list .included .strings | |
150 require include required included included1 add-included-file included? | |
151 init-included-files sourceline# sourcefilename image-included-files | |
152 included-files open-fpath-file open-path-file check-path open-ofile | |
153 reworkdir compact-filename skip-..-prefixes preserve-root del-./s | |
154 del-string expandtopic remove~+ extractpath need/ pathsep? tfile ofile | |
155 absolut-path? .fpath .path previous-path next-path path>string fpath= | |
156 path= fpath+ path+ only-path clear-path also-path os-cold make-path | |
157 fpath +place path-allot ( write-line bin r/o r/w w/o os-boot | |
158 (process-args) process-option args-evaluate args-required args-required1 | |
159 os-execute-parsing next-arg shift-args script? argc argv pathdirs | |
160 pathstring #! arg cstring>sstring set-encoding-fixed-width c-size c!+? | |
161 string- +string char- xhold x@+/string -trailing-garbage x-width | |
162 x-size xc-size xc@+ xc!+? xc@ x\string- +x/string xchar- xchar+ xkey | |
163 xemit license include-file execute-parsing-file | |
164 execute-parsing-named-file read-loop line-end-hook query clear-tibstack | |
165 evaluate execute-parsing execute-parsing-wrapper create-input | |
166 restore-input save-input pop-file push-file expand-tib new-tib | |
167 file-input read-line evaluate-input terminal-input input-start-line | |
168 input-lexeme! tib+ tib loadfilename #fill-bytes blk loadfile loadline | |
169 old-input max#tib #tib input-lexeme >in (restore-input) (save-input) | |
170 source-id refill source input-var input-method accept edit-line decode | |
171 everyline everychar insert-char ctrlkeys (ret) (bs) (ins) recursive | |
172 rehash reveal check-shadow (reveal) warnings last? ; :noname : | |
173 (:noname) defstart ;-hook :-hook interpret/compile? TO IS [IS] <IS> | |
174 defer! DOES> Defers defer@ Defer defer-default interpret/compile: | |
175 interpret/compile-struct interpret/compile-comp interpret/compile-int | |
176 (Field) 2Constant AValue Value AConstant Constant (Value) (Constant) | |
177 AUser User uallot 2Variable AVariable Variable Create Alias | |
178 compile-only restrict immediate lastflags ctoggle creset cset ," mem, | |
179 S, ] [ compiler1 recurse POSTPONE postpone, [COMP'] COMP' ['] [(')] | |
180 name>comp (compile) dodoes, (does>2) (does>) !does compile-to-prims, | |
181 peephole-compile, basic-block-end compile, cfa, [char] char char@ | |
182 ALiteral 2Literal Literal latest lastxt latestxt noname noname-header | |
183 nextname nextname-header nextname-string input-stream input-stream-header | |
184 header, longstring, string, header (header) const A, cfalign maxalign | |
185 falign align 2, , c, allot bye boot cold 'cold process-args | |
186 bootmessage (bootmessage) quit (DoError) .error-frame .error-line | |
187 part-type mark-end mark-start umin .error-string dobacktrace DOERROR | |
188 -trailing hex. dec.r dec. input-error-data >error error> error-stack | |
189 /error max-errors (quit) prompt .status 'quit extend-mem free-mem-var | |
190 save-mem interpreter1 interpret interpret1 before-word no.extensions | |
191 interpreter-notfound1 compiler-notfound1 name parse-word parse-name | |
192 parser parser1 ' (') find sfind /does-handler does-handler! | |
193 does-code! code-address! flashc! flash! >does-code >code-address body> | |
194 >body >head-noprim head? ??? (name>intn) (name>comp) name?int name>int | |
195 (name>x) ((name>)) name>string (x>int) (cfa>int) compile-only-error | |
196 ticking-compile-only-error flag-sign lcount-mask restrict-mask | |
197 immediate-mask alias-mask find-name search-wordlist (search-wordlist) | |
198 context voclink current lookup forth-wordlist f83search initvoc | |
199 f83find wordlist-struct wordlist-extend wordlist-link wordlist-id | |
200 wordlist-map wordlist-map-struct hash-method rehash-method reveal-method | |
201 find-method \G \ ( number number? snumber? s>number s>number? | |
202 s>unumber? s'>unumber? ?dnegate sign? getbase bases name-too-long? | |
203 name-too-short? (name) parse word sword (word) version-string .error | |
204 >stderr ErrLink u. . ud. d. u.r .r ud.r d.r #s # sign #>> <<# | |
205 #> <# hold pad backspaces spaces space cr bell #lf #ff #cr #del | |
206 #tab #bs #bell #eof (S") (.") key? key emit type (key?) (key) | |
207 (emit) (type) infile-id outfile-id hex decimal "lit clearstacks | |
208 clearstack depth ?stack abort (abort") c(abort") throw catch lp@ | |
209 ud/mod s>d >number accumulate digit? skip scan bounds place roll | |
210 dabs off on here dp in-dictionary? unused usable-dictionary-end | |
211 dictionary-end A! chars cfaligned maxaligned r@ NIL str< | |
212 string-prefix? str= locals-size max-name-length Last LastCFA dpp | |
213 normal-dp state dpl base includefilename current-input "error | |
214 errorhandler backtrace-rp0 handler lp0 fp0 rp0 sp0 save-task | |
215 prev-task next-task udp main-task def#tib pad-minsize holdend holdptr | |
216 holdbuf-end holdbuf word-pno-size chars/block l/s c/l /line bl float | |
217 cell false true forthstart image-header tag-offsets call2 | |
218 set-next-code decompile-prim forget-dyncode finish-code compile-prim1 | |
219 lib-error l! sl@ ul@ w! sw@ uw@ wcall lib-sym open-lib fpick f>l | |
220 >l lp! lp+2 lp+ lp- lp+!# laddr# f@local1 f@local0 f@local# @local3 | |
221 @local2 @local1 @local0 @local# faxpy v* dfaligned sfaligned dfloats | |
222 sfloats fatanh facosh fasinh ftanh fcosh fsinh ftan fsqrt fsincos | |
223 fsin falog flog flnp1 fln fexpm1 fexp fcos fatan2 fatan fasin | |
224 facos fabs >float represent fmin fmax fround floor floats float+ | |
225 ftuck fnip frot fover fswap fdup fdrop fnegate f**2 fm*/ fm/ fm* | |
226 f** f/ f* f- f+ sf! sf@ df! df@ f@ f! f>s f>d d>f s>f f0>= | |
227 f0<= f0> f0< f0<> f0= f>= f<= f> f< f<> f= cputime utime newline | |
228 =mkdir get-dir set-dir filename-match close-dir read-dir open-dir | |
229 file-eof? file-status flush-file emit-file write-file (read-line) | |
230 read-file resize-file file-size reposition-file file-position | |
231 rename-file delete-file create-file open-file close-file call-c | |
232 strsignal strerror resize free allocate ms time&date close-pipe | |
233 open-pipe getenv (system) (bye) flush-icache wcwidth form stderr | |
234 stdout stdin key?-file key-file threading-method faligned aligned | |
235 (parse-white) (hashkey1) (tablelfind) (hashlfind) (listlfind) count | |
236 (chars) char+ cells cell+ 2@ 2! c! c@ +! ! lit@ @ 2tuck 2nip | |
237 2rot 2swap 2over 2dup 2drop pick ?dup tuck nip -rot rot dup swap | |
238 drop over 2rdrop 2r@ 2r> 2>r rdrop r> >r fp! fp@ rp! rp@ sp! | |
239 sp@ up! useraddr within du>= du<= du> du< du<> du= d0>= d0<= d0> | |
240 d0< d0<> d0= d>= d<= d> d< d<> d= u>= u<= u> u< u<> u= >= <= | |
241 > < <> = 0>= 0<= 0> 0< 0<> 0= lshift rshift invert xor or and | |
242 d2/ d2* dnegate d- d+ m+ um/mod um* m* sm/rem fm/mod 2/ 2* */ | |
243 */mod /mod mod / * abs min max 1- 1+ negate - under+ lit+ + | |
244 lit /string capscompare toupper compare fill cmove> cmove move k j | |
245 i' i (u-do) (-do) (u+do) (+do) (?do) (do) (for) (s+loop)-lp+!# | |
246 (s+loop) (-loop)-lp+!# (-loop) (+loop)-lp+!# (+loop) (loop)-lp+!# | |
247 (loop) (next)-lp+!# (next) ?dup-0=-?branch ?dup-?branch ?branch-lp+!# | |
248 ?branch branch branch-lp+!# does-exec lit-perform unloop ;s perform | |
249 execute call noop ok | |
250 |