Return to ipmi-kcs.fs CVS log

Up to [Qemu by Fabrice Bellard] / qemu / roms / SLOF / board-js2x / slof

Annotation of qemu/roms/SLOF/board-js2x/slof/ipmi-kcs.fs, revision 1.1.1.1

1.1       root        1: \ *****************************************************************************
                      2: \ * Copyright (c) 2004, 2008 IBM Corporation
                      3: \ * All rights reserved.
                      4: \ * This program and the accompanying materials
                      5: \ * are made available under the terms of the BSD License
                      6: \ * which accompanies this distribution, and is available at
                      7: \ * http://www.opensource.org/licenses/bsd-license.php
                      8: \ *
                      9: \ * Contributors:
                     10: \ *     IBM Corporation - initial implementation
                     11: \ ****************************************************************************/
                     12: 
                     13: 
                     14: \ IPMI KCS interface to the BMC.
                     15: 
                     16: new-device
                     17:    ca8 1 set-unit
                     18: 
                     19:    : open true ;
                     20:    : close ;
                     21: 
                     22:    create descr-buf 100 allot
                     23: 
                     24:    : rtas-get-bmc-version ( -- adr len )
                     25:       descr-buf 100 rtas-get-blade-descr   ( len status )
                     26:       IF
                     27:          drop 0 0
                     28:       ELSE
                     29:          descr-buf 9 + swap 11 -               ( adr len )
                     30:       THEN
                     31:    ;
                     32: 
                     33:    ' rtas-get-bmc-version to bmc-version
                     34: 
                     35:    s" system-controller" 2dup device-name device-type
                     36:    \ s" IBM,BMC." get-build-name $cat encode-string s" model" property
                     37:    \ s" IBM,BMC.12345" encode-string s" model" property
                     38:    s" IBM,BMC." bmc-version $cat encode-string s" model" property
                     39:    0 0 s" ranges" property
                     40: 
                     41:    new-device
                     42: 
                     43:       : open true ;
                     44:       : close ;
                     45: 
                     46:       s" ipmi" 2dup device-name device-type
                     47:       s" ipmi-kcs" compatible
                     48: 
                     49:       1 encode-int ca8 encode-int+ 1 encode-int+ s" reg" property
                     50:       4 encode-int s" reg-spacing" property
                     51:       s" IBM,BMC." bmc-version $cat encode-string s" model" property
                     52: 
                     53:       s" ipmi"  get-node node>path set-alias
                     54: 
                     55:    finish-device
                     56: 
                     57: finish-device

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