← Back to branch summary

~ubuntu-branches/ubuntu/wily/slof/wily

« back to all changes in this revision

Viewing changes to board-js2x/slof/ipmi-kcs.fs

  • Committer: Package Import Robot
  • Author(s): Aurelien Jarno
  • Date: 2012-09-16 23:05:23 UTC
  • Revision ID: package-import@ubuntu.com-20120916230523-r2ynulqmp2tyu2e5
Tags: upstream-20120217+dfsg
Import upstream version 20120217+dfsg

Show diffs side-by-side

added added

removed removed

Lines of Context:
board-js2x/slof/ipmi-kcs.fs
 
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