File: fcode.fs

package info (click to toggle)
openbios-sparc 1.0%2Bsvn640-1
  • links: PTS
  • area: main
  • in suites: squeeze
  • size: 4,412 kB
  • ctags: 12,091
  • sloc: ansic: 57,249; asm: 2,680; xml: 1,335; cpp: 414; makefile: 224; sh: 190
file content (30 lines) | stat: -rw-r--r-- 624 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
 
\ 7.7 FCode Debugging command group

\ The user interface versions of these FCode functions allow
\ the user to debug FCode programs by providing named commands 
\ corresponding to FCode functions.

: headerless    ( -- )
  ;

: headers    ( -- )
  ;

: begin-package ( arg-str arg-len reg-str reg-len dev-str dev-len -- )
  open-dev dup 0= abort" failed opening parent."
  dup to my-self
  ihandle>phandle active-package!
  new-device
  set-args
;

: end-package    ( -- )
  my-parent >r
  finish-device
  0 active-package!
  0 to my-self
  r> close-dev
;

: apply    ( ... "method-name< >device-specifier< >" -- ??? )
  ;