Return to tree.fs CVS log

Up to [Qemu by Fabrice Bellard] / qemu / roms / openbios / arch / unix

Annotation of qemu/roms/openbios/arch/unix/tree.fs, revision 1.1

1.1     ! root        1: :noname 
        !             2:   ."   Type 'help' for detailed information" cr
        !             3:   ; DIAG-initializer
        !             4: 
        !             5: " /" find-device
        !             6: 
        !             7: new-device
        !             8:   " memory" device-name
        !             9:   \ 12230 encode-int " reg" property
        !            10:   external
        !            11:   : open true ;
        !            12:   : close ;
        !            13:   \ claim ( phys size align -- base )
        !            14:   \ release ( phys size -- )
        !            15: finish-device
        !            16: 
        !            17: new-device
        !            18:   " cpus" device-name
        !            19:   1 " #address-cells" int-property
        !            20:   0 " #size-cells" int-property
        !            21: 
        !            22:   external
        !            23:   : open true ;
        !            24:   : close ;
        !            25:   : decode-unit parse-hex ;
        !            26: 
        !            27: finish-device
        !            28: 
        !            29: : make-openable ( path )
        !            30:   find-dev if
        !            31:     begin ?dup while
        !            32:       \ install trivial open and close methods
        !            33:       dup active-package! is-open
        !            34:       parent
        !            35:     repeat
        !            36:   then
        !            37: ;
        !            38: 
        !            39: : preopen ( chosen-str node-path )
        !            40:   2dup make-openable
        !            41:     
        !            42:   " /chosen" find-device
        !            43:   open-dev ?dup if
        !            44:     encode-int 2swap property
        !            45:   else
        !            46:     2drop
        !            47:   then
        !            48: ;
        !            49:  
        !            50: :noname
        !            51:   set-defaults
        !            52: ; SYSTEM-initializer
        !            53:   
        !            54: 
        !            55: \ preopen device nodes (and store the ihandles under /chosen)
        !            56: :noname
        !            57:   " memory" " /memory" preopen
        !            58:   " mmu" " /cpus/@0" preopen
        !            59:   " stdout" " /builtin/console" preopen
        !            60:   " stdin" " /builtin/console" preopen
        !            61:   device-end
        !            62: ; SYSTEM-initializer
        !            63: 
        !            64: \ use the tty interface if available
        !            65: :noname
        !            66:   " /builtin/console" find-dev if drop
        !            67:     " /builtin/console" " input-device" $setenv
        !            68:     " /builtin/console" " output-device" $setenv
        !            69:   then
        !            70: ; SYSTEM-initializer
        !            71:            
        !            72: :noname
        !            73:   " keyboard" input
        !            74: ; CONSOLE-IN-initializer
        !            75: 
        !            76: dev /
        !            77: 
        !            78: \ node suitable for non-PCI devices 
        !            79: new-device
        !            80:   " unix" device-name
        !            81:        0 encode-int " #address-cells" property
        !            82:        0 encode-int " #size-cells" property
        !            83:        
        !            84:        external
        !            85:   : open true ;
        !            86:   : close ;
        !            87: 
        !            88: \ block device node
        !            89: new-device
        !            90:   " block" device-name
        !            91:   " unix-block" device-type
        !            92:        1 " #address-cells" int-property
        !            93:        0 " #size-cells" int-property
        !            94:        
        !            95:        external
        !            96:   : open true ;
        !            97:   : close ;
        !            98:   : decode-unit parse-hex ;
        !            99: 
        !           100: \ testnode
        !           101: \ new-device
        !           102: \   " kappa" device-name
        !           103: \ 
        !           104: \   1 encode-int " reg" property
        !           105: \   external
        !           106: \   : open true ;
        !           107: \   : close ;
        !           108: \ finish-device
        !           109: 
        !           110: finish-device
        !           111: finish-device
        !           112: 
        !           113: dev /aliases
        !           114: " /unix/block/disk" encode-string " hd" property
        !           115: 
        !           116: device-end

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.