Return to tree.fs CVS log

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

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

1.1     ! root        1: 
        !             2: : int-property ( val name -- )
        !             3:        rot encode-int 2swap property
        !             4: ;
        !             5: 
        !             6: 
        !             7: \ -------------------------------------------------------------
        !             8: \ device-tree
        !             9: \ -------------------------------------------------------------
        !            10: 
        !            11: " /" find-device
        !            12: 
        !            13:   " device-tree" device-name
        !            14:        " bootrom" device-type
        !            15: 
        !            16: \ -------------------------------------------------------------
        !            17: \ /memory
        !            18: \ -------------------------------------------------------------
        !            19: 
        !            20: new-device
        !            21:   " memory" device-name
        !            22:        \ 12230 encode-int " reg" property
        !            23:        external
        !            24:        : open true ;
        !            25:        : close ;
        !            26:        \ claim ( phys size align -- base )
        !            27:        \ release ( phys size -- )
        !            28: finish-device
        !            29: 
        !            30: \ -------------------------------------------------------------
        !            31: \ /mol/
        !            32: \ -------------------------------------------------------------
        !            33: 
        !            34: new-device
        !            35:        " mol" device-name
        !            36:        1 " #address-cells" int-property
        !            37:        0 " #size-cells" int-property
        !            38: 
        !            39:        external
        !            40:        : open true ;
        !            41:        : close ;
        !            42: 
        !            43: new-device
        !            44:   " test" device-name
        !            45: 
        !            46:        external
        !            47:   : open
        !            48:                ." /mol/test opened" cr
        !            49:                " argument-str" " ipose" find-package drop interpose
        !            50:                true
        !            51:   ;
        !            52: finish-device
        !            53: finish-device
        !            54: 
        !            55: \ -------------------------------------------------------------
        !            56: \ /cpus/
        !            57: \ -------------------------------------------------------------
        !            58: 
        !            59: new-device
        !            60:        " cpus" device-name
        !            61:        1 " #address-cells" int-property
        !            62:        0 " #size-cells" int-property
        !            63: 
        !            64:        external
        !            65:        : open true ;
        !            66:        : close ;
        !            67:        : decode-unit parse-hex ;
        !            68: 
        !            69: finish-device
        !            70: 
        !            71: \ -------------------------------------------------------------
        !            72: \ /packages
        !            73: \ -------------------------------------------------------------
        !            74: 
        !            75: " /packages" find-device
        !            76: 
        !            77:        " packages" device-name
        !            78:        external
        !            79:        \ allow packages to be opened with open-dev
        !            80:        : open true ;
        !            81:        : close ;
        !            82: 
        !            83: \ /packages/mol-stdout
        !            84: new-device
        !            85:        " mol-stdout" device-name
        !            86:        external
        !            87:        : open true ;
        !            88:        : close ;
        !            89:        : write ( addr len -- actual )
        !            90:                dup -rot type
        !            91:        ;
        !            92: finish-device
        !            93: 
        !            94: \ XXXXXXXXXXXXXXXXXXXXXXX TESTING
        !            95: " /" find-device
        !            96: new-device
        !            97:   " test" device-name
        !            98: finish-device
        !            99: 
        !           100: \ -------------------------------------------------------------
        !           101: \ The END
        !           102: \ -------------------------------------------------------------
        !           103: device-end

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