git.oblomov.eu Git - linux-2.6/blob - fs/openpromfs/inode.c

   1 /* $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
  23 typedef struct {
  24         u16     parent;
  25         u16     next;
  26         u16     child;
  27         u16     first_prop;
  28         u32     node;
  29 } openpromfs_node;
  30
  31 typedef 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
  47 static openpromfs_node *nodes;
  48 static int alloced;
  49 static u16 last_node;
  50 static u16 first_prop;
  51 static u16 options = 0xffff;
  52 static u16 aliases = 0xffff;
  53 static int aliases_nodes;
  54 static 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
  62 static int openpromfs_create (struct inode *, struct dentry *, int, struct nameidata *);
  63 static int openpromfs_readdir(struct file *, void *, filldir_t);
  64 static struct dentry *openpromfs_lookup(struct inode *, struct dentry *dentry, struct nameidata *nd);
  65 static int openpromfs_unlink (struct inode *, struct dentry *dentry);
  66
  67 static 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
  86 static 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
 321 static 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         }
 467 write_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
 533 int 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
 584 static struct file_operations openpromfs_prop_ops = {
 585         .read           = property_read,
 586         .write          = property_write,
 587         .release        = property_release,
 588 };
 589
 590 static struct file_operations openpromfs_nodenum_ops = {
 591         .read           = nodenum_read,
 592 };
 593
 594 static struct file_operations openprom_operations = {
 595         .read           = generic_read_dir,
 596         .readdir        = openpromfs_readdir,
 597 };
 598
 599 static struct inode_operations openprom_alias_inode_operations = {
 600         .create         = openpromfs_create,
 601         .lookup         = openpromfs_lookup,
 602         .unlink         = openpromfs_unlink,
 603 };
 604
 605 static struct inode_operations openprom_inode_operations = {
 606         .lookup         = openpromfs_lookup,
 607 };
 608
 609 static 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
 642 static 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
 775 static 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         }
 852 out:
 853         unlock_kernel();
 854         return 0;
 855 }
 856
 857 static 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
 896 static 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 */
 924 static 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
 944 static 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
1011 static 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
1021 static int openprom_remount(struct super_block *sb, int *flags, char *data)
1022 {
1023         *flags |= MS_NOATIME;
1024         return 0;
1025 }
1026
1027 static struct super_operations openprom_sops = {
1028         .read_inode     = openprom_read_inode,
1029         .statfs         = simple_statfs,
1030         .remount_fs     = openprom_remount,
1031 };
1032
1033 static 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
1051 out_no_root:
1052         printk("openprom_fill_super: get root inode failed\n");
1053         iput(root_inode);
1054         return -ENOMEM;
1055 }
1056
1057 static 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
1063 static 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
1070 static 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
1085 static 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++)
1091                 kfree (alias_names [i]);
1092         nodes = NULL;
1093 }
1094
1095 module_init(init_openprom_fs)
1096 module_exit(exit_openprom_fs)
1097 MODULE_LICENSE("GPL");