File Manager

003 File Manager

Current Path: /usr/src/stand/ficl/softwords

📁 ..
📄 classes.fr(3.69 KB)
📄 ficlclass.fr(1.87 KB)
📄 ficllocal.fr(916 B)
📄 fileaccess.fr(353 B)
📄 forml.fr(1.4 KB)
📄 freebsd.fr(1.62 KB)
📄 ifbrack.fr(1.29 KB)
📄 jhlocal.fr(2.35 KB)
📄 marker.fr(766 B)
📄 oo.fr(21.22 KB)
📄 prefix.fr(1.42 KB)
📄 softcore.awk(5.57 KB)
📄 softcore.fr(5.49 KB)
📄 string.fr(3.46 KB)

Editing: forml.fr

\ examples from FORML conference paper Nov 98
\ sadler
\
\ $FreeBSD$

.( loading FORML examples ) cr
object --> sub c-example
             cell: .cell0
    c-4byte   obj: .nCells
  4 c-4byte array: .quad
       c-byte obj: .length
         79 chars: .name

: init   ( inst class -- )
        2dup  object => init
        s" aardvark"  2swap  --> set-name
    ;

: get-name  ( inst class -- c-addr u )
        2dup 
        --> .name  -rot      ( c-addr inst class )
        --> .length --> get
    ;

: set-name  { c-addr u 2:this -- }
        u       this --> .length --> set
        c-addr  this --> .name  u move
    ;

: ?  ( inst class ) c-example => get-name type cr ;
end-class

: test ." this is a test" cr ;
' test
c-word --> ref testref

\ add a method to c-word...
c-word --> get-wid ficl-set-current
\ list dictionary thread
: list  ( inst class )
    begin
        2dup --> get-name type cr 
        --> next over 
    0= until
    2drop
;
set-current

object subclass c-led
    c-byte obj: .state

: on   { led# 2:this -- }
        this --> .state --> get
        1 led# lshift or dup !oreg
        this --> .state --> set
    ;

: off   { led# 2:this -- }
        this --> .state --> get
        1 led# lshift invert and dup !oreg
        this --> .state --> set
    ;

end-class

object subclass c-switch

: ?on   { bit# 2:this -- flag }
        
        1 bit# lshift
    ;
end-class

003 File Manager

Editing: forml.fr

Upload File

Create Folder