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

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.