1 /* $Id: tree.c,v 1.26 2000/08/26 02:38:03 anton Exp $
2 * tree.c: Basic device tree traversal/scanning for the Linux
5 * Copyright (C) 1995 David S. Miller (davem@caip.rutgers.edu)
8 #define PROMLIB_INTERNAL
10 #include <linux/string.h>
11 #include <linux/types.h>
12 #include <linux/kernel.h>
13 #include <linux/sched.h>
14 #include <linux/ctype.h>
16 #include <asm/openprom.h>
17 #include <asm/oplib.h>
19 extern void restore_current(void);
21 static char promlib_buf
[128];
23 /* Internal version of prom_getchild that does not alter return values. */
24 int __prom_getchild(int node
)
29 spin_lock_irqsave(&prom_lock
, flags
);
30 cnode
= prom_nodeops
->no_child(node
);
32 spin_unlock_irqrestore(&prom_lock
, flags
);
37 /* Return the child of node 'node' or zero if no this node has no
40 int prom_getchild(int node
)
47 cnode
= __prom_getchild(node
);
48 if (cnode
== 0 || cnode
== -1)
54 /* Internal version of prom_getsibling that does not alter return values. */
55 int __prom_getsibling(int node
)
60 spin_lock_irqsave(&prom_lock
, flags
);
61 cnode
= prom_nodeops
->no_nextnode(node
);
63 spin_unlock_irqrestore(&prom_lock
, flags
);
68 /* Return the next sibling of node 'node' or zero if no more siblings
69 * at this level of depth in the tree.
71 int prom_getsibling(int node
)
78 sibnode
= __prom_getsibling(node
);
79 if (sibnode
== 0 || sibnode
== -1)
85 /* Return the length in bytes of property 'prop' at node 'node'.
88 int prom_getproplen(int node
, char *prop
)
93 if((!node
) || (!prop
))
96 spin_lock_irqsave(&prom_lock
, flags
);
97 ret
= prom_nodeops
->no_proplen(node
, prop
);
99 spin_unlock_irqrestore(&prom_lock
, flags
);
103 /* Acquire a property 'prop' at node 'node' and place it in
104 * 'buffer' which has a size of 'bufsize'. If the acquisition
105 * was successful the length will be returned, else -1 is returned.
107 int prom_getproperty(int node
, char *prop
, char *buffer
, int bufsize
)
112 plen
= prom_getproplen(node
, prop
);
113 if((plen
> bufsize
) || (plen
== 0) || (plen
== -1))
115 /* Ok, things seem all right. */
116 spin_lock_irqsave(&prom_lock
, flags
);
117 ret
= prom_nodeops
->no_getprop(node
, prop
, buffer
);
119 spin_unlock_irqrestore(&prom_lock
, flags
);
123 /* Acquire an integer property and return its value. Returns -1
126 int prom_getint(int node
, char *prop
)
130 if(prom_getproperty(node
, prop
, (char *) &intprop
, sizeof(int)) != -1)
136 /* Acquire an integer property, upon error return the passed default
139 int prom_getintdefault(int node
, char *property
, int deflt
)
143 retval
= prom_getint(node
, property
);
144 if(retval
== -1) return deflt
;
149 /* Acquire a boolean property, 1=TRUE 0=FALSE. */
150 int prom_getbool(int node
, char *prop
)
154 retval
= prom_getproplen(node
, prop
);
155 if(retval
== -1) return 0;
159 /* Acquire a property whose value is a string, returns a null
160 * string on error. The char pointer is the user supplied string
163 void prom_getstring(int node
, char *prop
, char *user_buf
, int ubuf_size
)
167 len
= prom_getproperty(node
, prop
, user_buf
, ubuf_size
);
168 if(len
!= -1) return;
174 /* Does the device at node 'node' have name 'name'?
177 int prom_nodematch(int node
, char *name
)
179 static char namebuf
[128];
180 prom_getproperty(node
, "name", namebuf
, sizeof(namebuf
));
181 if(strcmp(namebuf
, name
) == 0) return 1;
185 /* Search siblings at 'node_start' for a node with name
186 * 'nodename'. Return node if successful, zero if not.
188 int prom_searchsiblings(int node_start
, char *nodename
)
193 for(thisnode
= node_start
; thisnode
;
194 thisnode
=prom_getsibling(thisnode
)) {
195 error
= prom_getproperty(thisnode
, "name", promlib_buf
,
196 sizeof(promlib_buf
));
197 /* Should this ever happen? */
198 if(error
== -1) continue;
199 if(strcmp(nodename
, promlib_buf
)==0) return thisnode
;
205 /* Gets name in the form prom v2+ uses it (name@x,yyyyy or name (if no reg)) */
206 int prom_getname (int node
, char *buffer
, int len
)
209 struct linux_prom_registers reg
[PROMREG_MAX
];
211 i
= prom_getproperty (node
, "name", buffer
, len
);
212 if (i
<= 0) return -1;
215 i
= prom_getproperty (node
, "reg", (char *)reg
, sizeof (reg
));
216 if (i
<= 0) return 0;
217 if (len
< 11) return -1;
218 buffer
= strchr (buffer
, 0);
219 sprintf (buffer
, "@%x,%x", reg
[0].which_io
, (uint
)reg
[0].phys_addr
);
223 /* Interal version of nextprop that does not alter return values. */
224 char * __prom_nextprop(int node
, char * oprop
)
229 spin_lock_irqsave(&prom_lock
, flags
);
230 prop
= prom_nodeops
->no_nextprop(node
, oprop
);
232 spin_unlock_irqrestore(&prom_lock
, flags
);
237 /* Return the first property name for node 'node'. */
238 /* buffer is unused argument, but as v9 uses it, we need to have the same interface */
239 char * prom_firstprop(int node
, char *bufer
)
241 if (node
== 0 || node
== -1)
244 return __prom_nextprop(node
, "");
247 /* Return the property type string after property type 'oprop'
248 * at node 'node' . Returns empty string if no more
249 * property types for this node.
251 char * prom_nextprop(int node
, char *oprop
, char *buffer
)
253 if (node
== 0 || node
== -1)
256 return __prom_nextprop(node
, oprop
);
259 int prom_finddevice(char *name
)
263 int node
= prom_root_node
, node2
;
264 unsigned int which_io
, phys_addr
;
265 struct linux_prom_registers reg
[PROMREG_MAX
];
268 if (!*s
) return node
; /* path '.../' is legal */
269 node
= prom_getchild(node
);
271 for (d
= nbuf
; *s
!= 0 && *s
!= '@' && *s
!= '/';)
275 node
= prom_searchsiblings(node
, nbuf
);
280 if (isxdigit(s
[1]) && s
[2] == ',') {
281 which_io
= simple_strtoul(s
+1, NULL
, 16);
282 phys_addr
= simple_strtoul(s
+3, &d
, 16);
283 if (d
!= s
+ 3 && (!*d
|| *d
== '/')
286 while (node2
&& node2
!= -1) {
287 if (prom_getproperty (node2
, "reg", (char *)reg
, sizeof (reg
)) > 0) {
288 if (which_io
== reg
[0].which_io
&& phys_addr
== reg
[0].phys_addr
) {
293 node2
= prom_getsibling(node2
);
294 if (!node2
|| node2
== -1)
296 node2
= prom_searchsiblings(prom_getsibling(node2
), nbuf
);
300 while (*s
!= 0 && *s
!= '/') s
++;
306 int prom_node_has_property(int node
, char *prop
)
308 char *current_property
= "";
311 current_property
= prom_nextprop(node
, current_property
, NULL
);
312 if(!strcmp(current_property
, prop
))
314 } while (*current_property
);
318 /* Set property 'pname' at node 'node' to value 'value' which has a length
319 * of 'size' bytes. Return the number of bytes the prom accepted.
321 int prom_setprop(int node
, char *pname
, char *value
, int size
)
326 if(size
== 0) return 0;
327 if((pname
== 0) || (value
== 0)) return 0;
328 spin_lock_irqsave(&prom_lock
, flags
);
329 ret
= prom_nodeops
->no_setprop(node
, pname
, value
, size
);
331 spin_unlock_irqrestore(&prom_lock
, flags
);
335 int prom_inst2pkg(int inst
)
340 spin_lock_irqsave(&prom_lock
, flags
);
341 node
= (*romvec
->pv_v2devops
.v2_inst2pkg
)(inst
);
343 spin_unlock_irqrestore(&prom_lock
, flags
);
344 if (node
== -1) return 0;
348 /* Return 'node' assigned to a particular prom 'path'
349 * FIXME: Should work for v0 as well
351 int prom_pathtoinode(char *path
)
355 inst
= prom_devopen (path
);
356 if (inst
== -1) return 0;
357 node
= prom_inst2pkg (inst
);
358 prom_devclose (inst
);
359 if (node
== -1) return 0;