blob: aeb0106890e4f1db6dc903f3d5e94f3724278ab0 [file] [log] [blame]
Linus Torvalds1da177e2005-04-16 15:20:36 -07001/* $Id: inode.c,v 1.15 2001/11/12 09:43:39 davem Exp $
2 * openpromfs.c: /proc/openprom handling routines
3 *
4 * Copyright (C) 1996-1999 Jakub Jelinek (jakub@redhat.com)
5 * Copyright (C) 1998 Eddie C. Dost (ecd@skynet.be)
6 */
7
8#include <linux/module.h>
9#include <linux/types.h>
10#include <linux/string.h>
11#include <linux/fs.h>
12#include <linux/openprom_fs.h>
13#include <linux/init.h>
14#include <linux/slab.h>
15#include <linux/smp_lock.h>
16
17#include <asm/openprom.h>
18#include <asm/oplib.h>
19#include <asm/uaccess.h>
20
21#define ALIASES_NNODES 64
22
23typedef struct {
24 u16 parent;
25 u16 next;
26 u16 child;
27 u16 first_prop;
28 u32 node;
29} openpromfs_node;
30
31typedef struct {
32#define OPP_STRING 0x10
33#define OPP_STRINGLIST 0x20
34#define OPP_BINARY 0x40
35#define OPP_HEXSTRING 0x80
36#define OPP_DIRTY 0x01
37#define OPP_QUOTED 0x02
38#define OPP_NOTQUOTED 0x04
39#define OPP_ASCIIZ 0x08
40 u32 flag;
41 u32 alloclen;
42 u32 len;
43 char *value;
44 char name[8];
45} openprom_property;
46
47static openpromfs_node *nodes;
48static int alloced;
49static u16 last_node;
50static u16 first_prop;
51static u16 options = 0xffff;
52static u16 aliases = 0xffff;
53static int aliases_nodes;
54static char *alias_names [ALIASES_NNODES];
55
56#define OPENPROM_ROOT_INO 16
57#define OPENPROM_FIRST_INO OPENPROM_ROOT_INO
58#define NODE(ino) nodes[ino - OPENPROM_FIRST_INO]
59#define NODE2INO(node) (node + OPENPROM_FIRST_INO)
60#define NODEP2INO(no) (no + OPENPROM_FIRST_INO + last_node)
61
62static int openpromfs_create (struct inode *, struct dentry *, int, struct nameidata *);
63static int openpromfs_readdir(struct file *, void *, filldir_t);
64static struct dentry *openpromfs_lookup(struct inode *, struct dentry *dentry, struct nameidata *nd);
65static int openpromfs_unlink (struct inode *, struct dentry *dentry);
66
67static ssize_t nodenum_read(struct file *file, char __user *buf,
68 size_t count, loff_t *ppos)
69{
70 struct inode *inode = file->f_dentry->d_inode;
71 char buffer[10];
72
73 if (count < 0 || !inode->u.generic_ip)
74 return -EINVAL;
75 sprintf (buffer, "%8.8x\n", (u32)(long)(inode->u.generic_ip));
76 if (file->f_pos >= 9)
77 return 0;
78 if (count > 9 - file->f_pos)
79 count = 9 - file->f_pos;
80 if (copy_to_user(buf, buffer + file->f_pos, count))
81 return -EFAULT;
82 *ppos += count;
83 return count;
84}
85
86static ssize_t property_read(struct file *filp, char __user *buf,
87 size_t count, loff_t *ppos)
88{
89 struct inode *inode = filp->f_dentry->d_inode;
90 int i, j, k;
91 u32 node;
92 char *p, *s;
93 u32 *q;
94 openprom_property *op;
95 char buffer[64];
96
97 if (!filp->private_data) {
98 node = nodes[(u16)((long)inode->u.generic_ip)].node;
99 i = ((u32)(long)inode->u.generic_ip) >> 16;
100 if ((u16)((long)inode->u.generic_ip) == aliases) {
101 if (i >= aliases_nodes)
102 p = NULL;
103 else
104 p = alias_names [i];
105 } else
106 for (p = prom_firstprop (node, buffer);
107 i && p && *p;
108 p = prom_nextprop (node, p, buffer), i--)
109 /* nothing */ ;
110 if (!p || !*p)
111 return -EIO;
112 i = prom_getproplen (node, p);
113 if (i < 0) {
114 if ((u16)((long)inode->u.generic_ip) == aliases)
115 i = 0;
116 else
117 return -EIO;
118 }
119 k = i;
120 if (i < 64) i = 64;
121 filp->private_data = kmalloc (sizeof (openprom_property)
122 + (j = strlen (p)) + 2 * i,
123 GFP_KERNEL);
124 if (!filp->private_data)
125 return -ENOMEM;
126 op = (openprom_property *)filp->private_data;
127 op->flag = 0;
128 op->alloclen = 2 * i;
129 strcpy (op->name, p);
130 op->value = (char *)(((unsigned long)(op->name + j + 4)) & ~3);
131 op->len = k;
132 if (k && prom_getproperty (node, p, op->value, i) < 0)
133 return -EIO;
134 op->value [k] = 0;
135 if (k) {
136 for (s = NULL, p = op->value; p < op->value + k; p++) {
137 if ((*p >= ' ' && *p <= '~') || *p == '\n') {
138 op->flag |= OPP_STRING;
139 s = p;
140 continue;
141 }
142 if (p > op->value && !*p && s == p - 1) {
143 if (p < op->value + k - 1)
144 op->flag |= OPP_STRINGLIST;
145 else
146 op->flag |= OPP_ASCIIZ;
147 continue;
148 }
149 if (k == 1 && !*p) {
150 op->flag |= (OPP_STRING|OPP_ASCIIZ);
151 break;
152 }
153 op->flag &= ~(OPP_STRING|OPP_STRINGLIST);
154 if (k & 3)
155 op->flag |= OPP_HEXSTRING;
156 else
157 op->flag |= OPP_BINARY;
158 break;
159 }
160 if (op->flag & OPP_STRINGLIST)
161 op->flag &= ~(OPP_STRING);
162 if (op->flag & OPP_ASCIIZ)
163 op->len--;
164 }
165 } else
166 op = (openprom_property *)filp->private_data;
167 if (!count || !(op->len || (op->flag & OPP_ASCIIZ)))
168 return 0;
169 if (*ppos >= 0xffffff || count >= 0xffffff)
170 return -EINVAL;
171 if (op->flag & OPP_STRINGLIST) {
172 for (k = 0, p = op->value; p < op->value + op->len; p++)
173 if (!*p)
174 k++;
175 i = op->len + 4 * k + 3;
176 } else if (op->flag & OPP_STRING) {
177 i = op->len + 3;
178 } else if (op->flag & OPP_BINARY) {
179 i = (op->len * 9) >> 2;
180 } else {
181 i = (op->len << 1) + 1;
182 }
183 k = *ppos;
184 if (k >= i) return 0;
185 if (count > i - k) count = i - k;
186 if (op->flag & OPP_STRING) {
187 if (!k) {
188 if (put_user('\'', buf))
189 return -EFAULT;
190 k++;
191 count--;
192 }
193
194 if (k + count >= i - 2)
195 j = i - 2 - k;
196 else
197 j = count;
198
199 if (j >= 0) {
200 if (copy_to_user(buf + k - *ppos,
201 op->value + k - 1, j))
202 return -EFAULT;
203 count -= j;
204 k += j;
205 }
206
207 if (count) {
208 if (put_user('\'', &buf [k++ - *ppos]))
209 return -EFAULT;
210 }
211 if (count > 1) {
212 if (put_user('\n', &buf [k++ - *ppos]))
213 return -EFAULT;
214 }
215 } else if (op->flag & OPP_STRINGLIST) {
216 char *tmp;
217
218 tmp = kmalloc (i, GFP_KERNEL);
219 if (!tmp)
220 return -ENOMEM;
221
222 s = tmp;
223 *s++ = '\'';
224 for (p = op->value; p < op->value + op->len; p++) {
225 if (!*p) {
226 strcpy(s, "' + '");
227 s += 5;
228 continue;
229 }
230 *s++ = *p;
231 }
232 strcpy(s, "'\n");
233
234 if (copy_to_user(buf, tmp + k, count))
235 return -EFAULT;
236
237 kfree(tmp);
238 k += count;
239
240 } else if (op->flag & OPP_BINARY) {
241 char buffer[10];
242 u32 *first, *last;
243 int first_off, last_cnt;
244
245 first = ((u32 *)op->value) + k / 9;
246 first_off = k % 9;
247 last = ((u32 *)op->value) + (k + count - 1) / 9;
248 last_cnt = (k + count) % 9;
249 if (!last_cnt) last_cnt = 9;
250
251 if (first == last) {
252 sprintf (buffer, "%08x.", *first);
253 if (copy_to_user(buf, buffer + first_off,
254 last_cnt - first_off))
255 return -EFAULT;
256 buf += last_cnt - first_off;
257 } else {
258 for (q = first; q <= last; q++) {
259 sprintf (buffer, "%08x.", *q);
260 if (q == first) {
261 if (copy_to_user(buf, buffer + first_off,
262 9 - first_off))
263 return -EFAULT;
264 buf += 9 - first_off;
265 } else if (q == last) {
266 if (copy_to_user(buf, buffer, last_cnt))
267 return -EFAULT;
268 buf += last_cnt;
269 } else {
270 if (copy_to_user(buf, buffer, 9))
271 return -EFAULT;
272 buf += 9;
273 }
274 }
275 }
276
277 if (last == (u32 *)(op->value + op->len - 4) && last_cnt == 9) {
278 if (put_user('\n', (buf - 1)))
279 return -EFAULT;
280 }
281
282 k += count;
283
284 } else if (op->flag & OPP_HEXSTRING) {
285 char buffer[3];
286
287 if ((k < i - 1) && (k & 1)) {
288 sprintf (buffer, "%02x",
289 (unsigned char) *(op->value + (k >> 1)) & 0xff);
290 if (put_user(buffer[1], &buf[k++ - *ppos]))
291 return -EFAULT;
292 count--;
293 }
294
295 for (; (count > 1) && (k < i - 1); k += 2) {
296 sprintf (buffer, "%02x",
297 (unsigned char) *(op->value + (k >> 1)) & 0xff);
298 if (copy_to_user(buf + k - *ppos, buffer, 2))
299 return -EFAULT;
300 count -= 2;
301 }
302
303 if (count && (k < i - 1)) {
304 sprintf (buffer, "%02x",
305 (unsigned char) *(op->value + (k >> 1)) & 0xff);
306 if (put_user(buffer[0], &buf[k++ - *ppos]))
307 return -EFAULT;
308 count--;
309 }
310
311 if (count) {
312 if (put_user('\n', &buf [k++ - *ppos]))
313 return -EFAULT;
314 }
315 }
316 count = k - *ppos;
317 *ppos = k;
318 return count;
319}
320
321static ssize_t property_write(struct file *filp, const char __user *buf,
322 size_t count, loff_t *ppos)
323{
324 int i, j, k;
325 char *p;
326 u32 *q;
327 void *b;
328 openprom_property *op;
329
330 if (*ppos >= 0xffffff || count >= 0xffffff)
331 return -EINVAL;
332 if (!filp->private_data) {
333 i = property_read (filp, NULL, 0, NULL);
334 if (i)
335 return i;
336 }
337 k = *ppos;
338 op = (openprom_property *)filp->private_data;
339 if (!(op->flag & OPP_STRING)) {
340 u32 *first, *last;
341 int first_off, last_cnt;
342 u32 mask, mask2;
343 char tmp [9];
344 int forcelen = 0;
345
346 j = k % 9;
347 for (i = 0; i < count; i++, j++) {
348 if (j == 9) j = 0;
349 if (!j) {
350 char ctmp;
351 if (get_user(ctmp, &buf[i]))
352 return -EFAULT;
353 if (ctmp != '.') {
354 if (ctmp != '\n') {
355 if (op->flag & OPP_BINARY)
356 return -EINVAL;
357 else
358 goto write_try_string;
359 } else {
360 count = i + 1;
361 forcelen = 1;
362 break;
363 }
364 }
365 } else {
366 char ctmp;
367 if (get_user(ctmp, &buf[i]))
368 return -EFAULT;
369 if (ctmp < '0' ||
370 (ctmp > '9' && ctmp < 'A') ||
371 (ctmp > 'F' && ctmp < 'a') ||
372 ctmp > 'f') {
373 if (op->flag & OPP_BINARY)
374 return -EINVAL;
375 else
376 goto write_try_string;
377 }
378 }
379 }
380 op->flag |= OPP_BINARY;
381 tmp [8] = 0;
382 i = ((count + k + 8) / 9) << 2;
383 if (op->alloclen <= i) {
384 b = kmalloc (sizeof (openprom_property) + 2 * i,
385 GFP_KERNEL);
386 if (!b)
387 return -ENOMEM;
388 memcpy (b, filp->private_data,
389 sizeof (openprom_property)
390 + strlen (op->name) + op->alloclen);
391 memset (((char *)b) + sizeof (openprom_property)
392 + strlen (op->name) + op->alloclen,
393 0, 2 * i - op->alloclen);
394 op = (openprom_property *)b;
395 op->alloclen = 2*i;
396 b = filp->private_data;
397 filp->private_data = (void *)op;
398 kfree (b);
399 }
400 first = ((u32 *)op->value) + (k / 9);
401 first_off = k % 9;
402 last = (u32 *)(op->value + i);
403 last_cnt = (k + count) % 9;
404 if (first + 1 == last) {
405 memset (tmp, '0', 8);
406 if (copy_from_user(tmp + first_off, buf,
407 (count + first_off > 8) ?
408 8 - first_off : count))
409 return -EFAULT;
410 mask = 0xffffffff;
411 mask2 = 0xffffffff;
412 for (j = 0; j < first_off; j++)
413 mask >>= 1;
414 for (j = 8 - count - first_off; j > 0; j--)
415 mask2 <<= 1;
416 mask &= mask2;
417 if (mask) {
418 *first &= ~mask;
419 *first |= simple_strtoul (tmp, NULL, 16);
420 op->flag |= OPP_DIRTY;
421 }
422 } else {
423 op->flag |= OPP_DIRTY;
424 for (q = first; q < last; q++) {
425 if (q == first) {
426 if (first_off < 8) {
427 memset (tmp, '0', 8);
428 if (copy_from_user(tmp + first_off,
429 buf,
430 8 - first_off))
431 return -EFAULT;
432 mask = 0xffffffff;
433 for (j = 0; j < first_off; j++)
434 mask >>= 1;
435 *q &= ~mask;
436 *q |= simple_strtoul (tmp,NULL,16);
437 }
438 buf += 9;
439 } else if ((q == last - 1) && last_cnt
440 && (last_cnt < 8)) {
441 memset (tmp, '0', 8);
442 if (copy_from_user(tmp, buf, last_cnt))
443 return -EFAULT;
444 mask = 0xffffffff;
445 for (j = 0; j < 8 - last_cnt; j++)
446 mask <<= 1;
447 *q &= ~mask;
448 *q |= simple_strtoul (tmp, NULL, 16);
449 buf += last_cnt;
450 } else {
451 char tchars[17]; /* XXX yuck... */
452
453 if (copy_from_user(tchars, buf, 16))
454 return -EFAULT;
455 *q = simple_strtoul (tchars, NULL, 16);
456 buf += 9;
457 }
458 }
459 }
460 if (!forcelen) {
461 if (op->len < i)
462 op->len = i;
463 } else
464 op->len = i;
465 *ppos += count;
466 }
467write_try_string:
468 if (!(op->flag & OPP_BINARY)) {
469 if (!(op->flag & (OPP_QUOTED | OPP_NOTQUOTED))) {
470 char ctmp;
471
472 /* No way, if somebody starts writing from the middle,
473 * we don't know whether he uses quotes around or not
474 */
475 if (k > 0)
476 return -EINVAL;
477 if (get_user(ctmp, buf))
478 return -EFAULT;
479 if (ctmp == '\'') {
480 op->flag |= OPP_QUOTED;
481 buf++;
482 count--;
483 (*ppos)++;
484 if (!count) {
485 op->flag |= OPP_STRING;
486 return 1;
487 }
488 } else
489 op->flag |= OPP_NOTQUOTED;
490 }
491 op->flag |= OPP_STRING;
492 if (op->alloclen <= count + *ppos) {
493 b = kmalloc (sizeof (openprom_property)
494 + 2 * (count + *ppos), GFP_KERNEL);
495 if (!b)
496 return -ENOMEM;
497 memcpy (b, filp->private_data,
498 sizeof (openprom_property)
499 + strlen (op->name) + op->alloclen);
500 memset (((char *)b) + sizeof (openprom_property)
501 + strlen (op->name) + op->alloclen,
502 0, 2*(count - *ppos) - op->alloclen);
503 op = (openprom_property *)b;
504 op->alloclen = 2*(count + *ppos);
505 b = filp->private_data;
506 filp->private_data = (void *)op;
507 kfree (b);
508 }
509 p = op->value + *ppos - ((op->flag & OPP_QUOTED) ? 1 : 0);
510 if (copy_from_user(p, buf, count))
511 return -EFAULT;
512 op->flag |= OPP_DIRTY;
513 for (i = 0; i < count; i++, p++)
514 if (*p == '\n') {
515 *p = 0;
516 break;
517 }
518 if (i < count) {
519 op->len = p - op->value;
520 *ppos += i + 1;
521 if ((p > op->value) && (op->flag & OPP_QUOTED)
522 && (*(p - 1) == '\''))
523 op->len--;
524 } else {
525 if (p - op->value > op->len)
526 op->len = p - op->value;
527 *ppos += count;
528 }
529 }
530 return *ppos - k;
531}
532
533int property_release (struct inode *inode, struct file *filp)
534{
535 openprom_property *op = (openprom_property *)filp->private_data;
536 int error;
537 u32 node;
538
539 if (!op)
540 return 0;
541 lock_kernel();
542 node = nodes[(u16)((long)inode->u.generic_ip)].node;
543 if ((u16)((long)inode->u.generic_ip) == aliases) {
544 if ((op->flag & OPP_DIRTY) && (op->flag & OPP_STRING)) {
545 char *p = op->name;
546 int i = (op->value - op->name) - strlen (op->name) - 1;
547 op->value [op->len] = 0;
548 *(op->value - 1) = ' ';
549 if (i) {
550 for (p = op->value - i - 2; p >= op->name; p--)
551 p[i] = *p;
552 p = op->name + i;
553 }
554 memcpy (p - 8, "nvalias ", 8);
555 prom_feval (p - 8);
556 }
557 } else if (op->flag & OPP_DIRTY) {
558 if (op->flag & OPP_STRING) {
559 op->value [op->len] = 0;
560 error = prom_setprop (node, op->name,
561 op->value, op->len + 1);
562 if (error <= 0)
563 printk (KERN_WARNING "openpromfs: "
564 "Couldn't write property %s\n",
565 op->name);
566 } else if ((op->flag & OPP_BINARY) || !op->len) {
567 error = prom_setprop (node, op->name,
568 op->value, op->len);
569 if (error <= 0)
570 printk (KERN_WARNING "openpromfs: "
571 "Couldn't write property %s\n",
572 op->name);
573 } else {
574 printk (KERN_WARNING "openpromfs: "
575 "Unknown property type of %s\n",
576 op->name);
577 }
578 }
579 unlock_kernel();
580 kfree (filp->private_data);
581 return 0;
582}
583
584static struct file_operations openpromfs_prop_ops = {
585 .read = property_read,
586 .write = property_write,
587 .release = property_release,
588};
589
590static struct file_operations openpromfs_nodenum_ops = {
591 .read = nodenum_read,
592};
593
594static struct file_operations openprom_operations = {
595 .read = generic_read_dir,
596 .readdir = openpromfs_readdir,
597};
598
599static struct inode_operations openprom_alias_inode_operations = {
600 .create = openpromfs_create,
601 .lookup = openpromfs_lookup,
602 .unlink = openpromfs_unlink,
603};
604
605static struct inode_operations openprom_inode_operations = {
606 .lookup = openpromfs_lookup,
607};
608
609static int lookup_children(u16 n, const char * name, int len)
610{
611 int ret;
612 u16 node;
613 for (; n != 0xffff; n = nodes[n].next) {
614 node = nodes[n].child;
615 if (node != 0xffff) {
616 char buffer[128];
617 int i;
618 char *p;
619
620 while (node != 0xffff) {
621 if (prom_getname (nodes[node].node,
622 buffer, 128) >= 0) {
623 i = strlen (buffer);
624 if ((len == i)
625 && !strncmp (buffer, name, len))
626 return NODE2INO(node);
627 p = strchr (buffer, '@');
628 if (p && (len == p - buffer)
629 && !strncmp (buffer, name, len))
630 return NODE2INO(node);
631 }
632 node = nodes[node].next;
633 }
634 } else
635 continue;
636 ret = lookup_children (nodes[n].child, name, len);
637 if (ret) return ret;
638 }
639 return 0;
640}
641
642static struct dentry *openpromfs_lookup(struct inode * dir, struct dentry *dentry, struct nameidata *nd)
643{
644 int ino = 0;
645#define OPFSL_DIR 0
646#define OPFSL_PROPERTY 1
647#define OPFSL_NODENUM 2
648 int type = 0;
649 char buffer[128];
650 char *p;
651 const char *name;
652 u32 n;
653 u16 dirnode;
654 unsigned int len;
655 int i;
656 struct inode *inode;
657 char buffer2[64];
658
659 inode = NULL;
660 name = dentry->d_name.name;
661 len = dentry->d_name.len;
662 lock_kernel();
663 if (name [0] == '.' && len == 5 && !strncmp (name + 1, "node", 4)) {
664 ino = NODEP2INO(NODE(dir->i_ino).first_prop);
665 type = OPFSL_NODENUM;
666 }
667 if (!ino) {
668 u16 node = NODE(dir->i_ino).child;
669 while (node != 0xffff) {
670 if (prom_getname (nodes[node].node, buffer, 128) >= 0) {
671 i = strlen (buffer);
672 if (len == i && !strncmp (buffer, name, len)) {
673 ino = NODE2INO(node);
674 type = OPFSL_DIR;
675 break;
676 }
677 p = strchr (buffer, '@');
678 if (p && (len == p - buffer)
679 && !strncmp (buffer, name, len)) {
680 ino = NODE2INO(node);
681 type = OPFSL_DIR;
682 break;
683 }
684 }
685 node = nodes[node].next;
686 }
687 }
688 n = NODE(dir->i_ino).node;
689 dirnode = dir->i_ino - OPENPROM_FIRST_INO;
690 if (!ino) {
691 int j = NODEP2INO(NODE(dir->i_ino).first_prop);
692 if (dirnode != aliases) {
693 for (p = prom_firstprop (n, buffer2);
694 p && *p;
695 p = prom_nextprop (n, p, buffer2)) {
696 j++;
697 if ((len == strlen (p))
698 && !strncmp (p, name, len)) {
699 ino = j;
700 type = OPFSL_PROPERTY;
701 break;
702 }
703 }
704 } else {
705 int k;
706 for (k = 0; k < aliases_nodes; k++) {
707 j++;
708 if (alias_names [k]
709 && (len == strlen (alias_names [k]))
710 && !strncmp (alias_names [k], name, len)) {
711 ino = j;
712 type = OPFSL_PROPERTY;
713 break;
714 }
715 }
716 }
717 }
718 if (!ino) {
719 ino = lookup_children (NODE(dir->i_ino).child, name, len);
720 if (ino)
721 type = OPFSL_DIR;
722 else {
723 unlock_kernel();
724 return ERR_PTR(-ENOENT);
725 }
726 }
727 inode = iget (dir->i_sb, ino);
728 unlock_kernel();
729 if (!inode)
730 return ERR_PTR(-EINVAL);
731 switch (type) {
732 case OPFSL_DIR:
733 inode->i_mode = S_IFDIR | S_IRUGO | S_IXUGO;
734 if (ino == OPENPROM_FIRST_INO + aliases) {
735 inode->i_mode |= S_IWUSR;
736 inode->i_op = &openprom_alias_inode_operations;
737 } else
738 inode->i_op = &openprom_inode_operations;
739 inode->i_fop = &openprom_operations;
740 inode->i_nlink = 2;
741 break;
742 case OPFSL_NODENUM:
743 inode->i_mode = S_IFREG | S_IRUGO;
744 inode->i_fop = &openpromfs_nodenum_ops;
745 inode->i_nlink = 1;
746 inode->u.generic_ip = (void *)(long)(n);
747 break;
748 case OPFSL_PROPERTY:
749 if ((dirnode == options) && (len == 17)
750 && !strncmp (name, "security-password", 17))
751 inode->i_mode = S_IFREG | S_IRUSR | S_IWUSR;
752 else {
753 inode->i_mode = S_IFREG | S_IRUGO;
754 if (dirnode == options || dirnode == aliases) {
755 if (len != 4 || strncmp (name, "name", 4))
756 inode->i_mode |= S_IWUSR;
757 }
758 }
759 inode->i_fop = &openpromfs_prop_ops;
760 inode->i_nlink = 1;
761 if (inode->i_size < 0)
762 inode->i_size = 0;
763 inode->u.generic_ip = (void *)(long)(((u16)dirnode) |
764 (((u16)(ino - NODEP2INO(NODE(dir->i_ino).first_prop) - 1)) << 16));
765 break;
766 }
767
768 inode->i_gid = 0;
769 inode->i_uid = 0;
770
771 d_add(dentry, inode);
772 return NULL;
773}
774
775static int openpromfs_readdir(struct file * filp, void * dirent, filldir_t filldir)
776{
777 struct inode *inode = filp->f_dentry->d_inode;
778 unsigned int ino;
779 u32 n;
780 int i, j;
781 char buffer[128];
782 u16 node;
783 char *p;
784 char buffer2[64];
785
786 lock_kernel();
787
788 ino = inode->i_ino;
789 i = filp->f_pos;
790 switch (i) {
791 case 0:
792 if (filldir(dirent, ".", 1, i, ino, DT_DIR) < 0) goto out;
793 i++;
794 filp->f_pos++;
795 /* fall thru */
796 case 1:
797 if (filldir(dirent, "..", 2, i,
798 (NODE(ino).parent == 0xffff) ?
799 OPENPROM_ROOT_INO : NODE2INO(NODE(ino).parent), DT_DIR) < 0)
800 goto out;
801 i++;
802 filp->f_pos++;
803 /* fall thru */
804 default:
805 i -= 2;
806 node = NODE(ino).child;
807 while (i && node != 0xffff) {
808 node = nodes[node].next;
809 i--;
810 }
811 while (node != 0xffff) {
812 if (prom_getname (nodes[node].node, buffer, 128) < 0)
813 goto out;
814 if (filldir(dirent, buffer, strlen(buffer),
815 filp->f_pos, NODE2INO(node), DT_DIR) < 0)
816 goto out;
817 filp->f_pos++;
818 node = nodes[node].next;
819 }
820 j = NODEP2INO(NODE(ino).first_prop);
821 if (!i) {
822 if (filldir(dirent, ".node", 5, filp->f_pos, j, DT_REG) < 0)
823 goto out;
824 filp->f_pos++;
825 } else
826 i--;
827 n = NODE(ino).node;
828 if (ino == OPENPROM_FIRST_INO + aliases) {
829 for (j++; i < aliases_nodes; i++, j++) {
830 if (alias_names [i]) {
831 if (filldir (dirent, alias_names [i],
832 strlen (alias_names [i]),
833 filp->f_pos, j, DT_REG) < 0) goto out;
834 filp->f_pos++;
835 }
836 }
837 } else {
838 for (p = prom_firstprop (n, buffer2);
839 p && *p;
840 p = prom_nextprop (n, p, buffer2)) {
841 j++;
842 if (i) i--;
843 else {
844 if (filldir(dirent, p, strlen(p),
845 filp->f_pos, j, DT_REG) < 0)
846 goto out;
847 filp->f_pos++;
848 }
849 }
850 }
851 }
852out:
853 unlock_kernel();
854 return 0;
855}
856
857static int openpromfs_create (struct inode *dir, struct dentry *dentry, int mode,
858 struct nameidata *nd)
859{
860 char *p;
861 struct inode *inode;
862
863 if (!dir)
864 return -ENOENT;
865 if (dentry->d_name.len > 256)
866 return -EINVAL;
867 p = kmalloc (dentry->d_name.len + 1, GFP_KERNEL);
868 if (!p)
869 return -ENOMEM;
870 strncpy (p, dentry->d_name.name, dentry->d_name.len);
871 p [dentry->d_name.len] = 0;
872 lock_kernel();
873 if (aliases_nodes == ALIASES_NNODES) {
874 kfree(p);
875 unlock_kernel();
876 return -EIO;
877 }
878 alias_names [aliases_nodes++] = p;
879 inode = iget (dir->i_sb,
880 NODEP2INO(NODE(dir->i_ino).first_prop) + aliases_nodes);
881 if (!inode) {
882 unlock_kernel();
883 return -EINVAL;
884 }
885 inode->i_mode = S_IFREG | S_IRUGO | S_IWUSR;
886 inode->i_fop = &openpromfs_prop_ops;
887 inode->i_nlink = 1;
888 if (inode->i_size < 0) inode->i_size = 0;
889 inode->u.generic_ip = (void *)(long)(((u16)aliases) |
890 (((u16)(aliases_nodes - 1)) << 16));
891 unlock_kernel();
892 d_instantiate(dentry, inode);
893 return 0;
894}
895
896static int openpromfs_unlink (struct inode *dir, struct dentry *dentry)
897{
898 unsigned int len;
899 char *p;
900 const char *name;
901 int i;
902
903 name = dentry->d_name.name;
904 len = dentry->d_name.len;
905 lock_kernel();
906 for (i = 0; i < aliases_nodes; i++)
907 if ((strlen (alias_names [i]) == len)
908 && !strncmp (name, alias_names[i], len)) {
909 char buffer[512];
910
911 p = alias_names [i];
912 alias_names [i] = NULL;
913 kfree (p);
914 strcpy (buffer, "nvunalias ");
915 memcpy (buffer + 10, name, len);
916 buffer [10 + len] = 0;
917 prom_feval (buffer);
918 }
919 unlock_kernel();
920 return 0;
921}
922
923/* {{{ init section */
924static int __init check_space (u16 n)
925{
926 unsigned long pages;
927
928 if ((1 << alloced) * PAGE_SIZE < (n + 2) * sizeof(openpromfs_node)) {
929 pages = __get_free_pages (GFP_KERNEL, alloced + 1);
930 if (!pages)
931 return -1;
932
933 if (nodes) {
934 memcpy ((char *)pages, (char *)nodes,
935 (1 << alloced) * PAGE_SIZE);
936 free_pages ((unsigned long)nodes, alloced);
937 }
938 alloced++;
939 nodes = (openpromfs_node *)pages;
940 }
941 return 0;
942}
943
944static u16 __init get_nodes (u16 parent, u32 node)
945{
946 char *p;
947 u16 n = last_node++, i;
948 char buffer[64];
949
950 if (check_space (n) < 0)
951 return 0xffff;
952 nodes[n].parent = parent;
953 nodes[n].node = node;
954 nodes[n].next = 0xffff;
955 nodes[n].child = 0xffff;
956 nodes[n].first_prop = first_prop++;
957 if (!parent) {
958 char buffer[8];
959 int j;
960
961 if ((j = prom_getproperty (node, "name", buffer, 8)) >= 0) {
962 buffer[j] = 0;
963 if (!strcmp (buffer, "options"))
964 options = n;
965 else if (!strcmp (buffer, "aliases"))
966 aliases = n;
967 }
968 }
969 if (n != aliases)
970 for (p = prom_firstprop (node, buffer);
971 p && p != (char *)-1 && *p;
972 p = prom_nextprop (node, p, buffer))
973 first_prop++;
974 else {
975 char *q;
976 for (p = prom_firstprop (node, buffer);
977 p && p != (char *)-1 && *p;
978 p = prom_nextprop (node, p, buffer)) {
979 if (aliases_nodes == ALIASES_NNODES)
980 break;
981 for (i = 0; i < aliases_nodes; i++)
982 if (!strcmp (p, alias_names [i]))
983 break;
984 if (i < aliases_nodes)
985 continue;
986 q = kmalloc (strlen (p) + 1, GFP_KERNEL);
987 if (!q)
988 return 0xffff;
989 strcpy (q, p);
990 alias_names [aliases_nodes++] = q;
991 }
992 first_prop += ALIASES_NNODES;
993 }
994 node = prom_getchild (node);
995 if (node) {
996 parent = get_nodes (n, node);
997 if (parent == 0xffff)
998 return 0xffff;
999 nodes[n].child = parent;
1000 while ((node = prom_getsibling (node)) != 0) {
1001 i = get_nodes (n, node);
1002 if (i == 0xffff)
1003 return 0xffff;
1004 nodes[parent].next = i;
1005 parent = i;
1006 }
1007 }
1008 return n;
1009}
1010
1011static void openprom_read_inode(struct inode * inode)
1012{
1013 inode->i_mtime = inode->i_atime = inode->i_ctime = CURRENT_TIME;
1014 if (inode->i_ino == OPENPROM_ROOT_INO) {
1015 inode->i_op = &openprom_inode_operations;
1016 inode->i_fop = &openprom_operations;
1017 inode->i_mode = S_IFDIR | S_IRUGO | S_IXUGO;
1018 }
1019}
1020
1021static int openprom_remount(struct super_block *sb, int *flags, char *data)
1022{
1023 *flags |= MS_NOATIME;
1024 return 0;
1025}
1026
1027static struct super_operations openprom_sops = {
1028 .read_inode = openprom_read_inode,
1029 .statfs = simple_statfs,
1030 .remount_fs = openprom_remount,
1031};
1032
1033static int openprom_fill_super(struct super_block *s, void *data, int silent)
1034{
1035 struct inode * root_inode;
1036
1037 s->s_flags |= MS_NOATIME;
1038 s->s_blocksize = 1024;
1039 s->s_blocksize_bits = 10;
1040 s->s_magic = OPENPROM_SUPER_MAGIC;
1041 s->s_op = &openprom_sops;
1042 s->s_time_gran = 1;
1043 root_inode = iget(s, OPENPROM_ROOT_INO);
1044 if (!root_inode)
1045 goto out_no_root;
1046 s->s_root = d_alloc_root(root_inode);
1047 if (!s->s_root)
1048 goto out_no_root;
1049 return 0;
1050
1051out_no_root:
1052 printk("openprom_fill_super: get root inode failed\n");
1053 iput(root_inode);
1054 return -ENOMEM;
1055}
1056
1057static struct super_block *openprom_get_sb(struct file_system_type *fs_type,
1058 int flags, const char *dev_name, void *data)
1059{
1060 return get_sb_single(fs_type, flags, data, openprom_fill_super);
1061}
1062
1063static struct file_system_type openprom_fs_type = {
1064 .owner = THIS_MODULE,
1065 .name = "openpromfs",
1066 .get_sb = openprom_get_sb,
1067 .kill_sb = kill_anon_super,
1068};
1069
1070static int __init init_openprom_fs(void)
1071{
1072 nodes = (openpromfs_node *)__get_free_pages(GFP_KERNEL, 0);
1073 if (!nodes) {
1074 printk (KERN_WARNING "openpromfs: can't get free page\n");
1075 return -EIO;
1076 }
1077 if (get_nodes (0xffff, prom_root_node) == 0xffff) {
1078 printk (KERN_WARNING "openpromfs: couldn't setup tree\n");
1079 return -EIO;
1080 }
1081 nodes[last_node].first_prop = first_prop;
1082 return register_filesystem(&openprom_fs_type);
1083}
1084
1085static void __exit exit_openprom_fs(void)
1086{
1087 int i;
1088 unregister_filesystem(&openprom_fs_type);
1089 free_pages ((unsigned long)nodes, alloced);
1090 for (i = 0; i < aliases_nodes; i++)
Jesper Juhlf99d49a2005-11-07 01:01:34 -08001091 kfree (alias_names [i]);
Linus Torvalds1da177e2005-04-16 15:20:36 -07001092 nodes = NULL;
1093}
1094
1095module_init(init_openprom_fs)
1096module_exit(exit_openprom_fs)
1097MODULE_LICENSE("GPL");