drivers/acpi/proc.c

   1 #include <linux/proc_fs.h>
   2 #include <linux/seq_file.h>
   3 #include <linux/suspend.h>
   4 #include <linux/bcd.h>
   5 #include <asm/uaccess.h>
   6
   7 #include <acpi/acpi_bus.h>
   8 #include <acpi/acpi_drivers.h>
   9
  10 #ifdef CONFIG_X86
  11 #include <linux/mc146818rtc.h>
  12 #endif
  13
  14 #include "sleep.h"
  15
  16 #define _COMPONENT              ACPI_SYSTEM_COMPONENT
  17
  18 /*
  19  * this file provides support for:
  20  * /proc/acpi/sleep
  21  * /proc/acpi/alarm
  22  * /proc/acpi/wakeup
  23  */
  24
  25 ACPI_MODULE_NAME("sleep")
  26 #ifdef  CONFIG_ACPI_PROCFS
  27 static int acpi_system_sleep_seq_show(struct seq_file *seq, void *offset)
  28 {
  29         int i;
  30
  31         for (i = 0; i <= ACPI_STATE_S5; i++) {
  32                 if (sleep_states[i]) {
  33                         seq_printf(seq, "S%d ", i);
  34                 }
  35         }
  36
  37         seq_puts(seq, "\n");
  38
  39         return 0;
  40 }
  41
  42 static int acpi_system_sleep_open_fs(struct inode *inode, struct file *file)
  43 {
  44         return single_open(file, acpi_system_sleep_seq_show, PDE(inode)->data);
  45 }
  46
  47 static ssize_t
  48 acpi_system_write_sleep(struct file *file,
  49                         const char __user * buffer, size_t count, loff_t * ppos)
  50 {
  51         char str[12];
  52         u32 state = 0;
  53         int error = 0;
  54
  55         if (count > sizeof(str) - 1)
  56                 goto Done;
  57         memset(str, 0, sizeof(str));
  58         if (copy_from_user(str, buffer, count))
  59                 return -EFAULT;
  60
  61         /* Check for S4 bios request */
  62         if (!strcmp(str, "4b")) {
  63                 error = acpi_suspend(4);
  64                 goto Done;
  65         }
  66         state = simple_strtoul(str, NULL, 0);
  67 #ifdef CONFIG_HIBERNATION
  68         if (state == 4) {
  69                 error = hibernate();
  70                 goto Done;
  71         }
  72 #endif
  73         error = acpi_suspend(state);
  74       Done:
  75         return error ? error : count;
  76 }
  77 #endif                          /* CONFIG_ACPI_PROCFS */
  78
  79 #if defined(CONFIG_RTC_DRV_CMOS) || defined(CONFIG_RTC_DRV_CMOS_MODULE) || !defined(CONFIG_X86)
  80 /* use /sys/class/rtc/rtcX/wakealarm instead; it's not ACPI-specific */
  81 #else
  82 #define HAVE_ACPI_LEGACY_ALARM
  83 #endif
  84
  85 #ifdef  HAVE_ACPI_LEGACY_ALARM
  86
  87 static u32 cmos_bcd_read(int offset, int rtc_control);
  88
  89 static int acpi_system_alarm_seq_show(struct seq_file *seq, void *offset)
  90 {
  91         u32 sec, min, hr;
  92         u32 day, mo, yr, cent = 0;
  93         u32 today = 0;
  94         unsigned char rtc_control = 0;
  95         unsigned long flags;
  96
  97         spin_lock_irqsave(&rtc_lock, flags);
  98
  99         rtc_control = CMOS_READ(RTC_CONTROL);
 100         sec = cmos_bcd_read(RTC_SECONDS_ALARM, rtc_control);
 101         min = cmos_bcd_read(RTC_MINUTES_ALARM, rtc_control);
 102         hr = cmos_bcd_read(RTC_HOURS_ALARM, rtc_control);
 103
 104         /* If we ever get an FACP with proper values... */
 105         if (acpi_gbl_FADT.day_alarm) {
 106                 /* ACPI spec: only low 6 its should be cared */
 107                 day = CMOS_READ(acpi_gbl_FADT.day_alarm) & 0x3F;
 108                 if (!(rtc_control & RTC_DM_BINARY) || RTC_ALWAYS_BCD)
 109                         day = bcd2bin(day);
 110         } else
 111                 day = cmos_bcd_read(RTC_DAY_OF_MONTH, rtc_control);
 112         if (acpi_gbl_FADT.month_alarm)
 113                 mo = cmos_bcd_read(acpi_gbl_FADT.month_alarm, rtc_control);
 114         else {
 115                 mo = cmos_bcd_read(RTC_MONTH, rtc_control);
 116                 today = cmos_bcd_read(RTC_DAY_OF_MONTH, rtc_control);
 117         }
 118         if (acpi_gbl_FADT.century)
 119                 cent = cmos_bcd_read(acpi_gbl_FADT.century, rtc_control);
 120
 121         yr = cmos_bcd_read(RTC_YEAR, rtc_control);
 122
 123         spin_unlock_irqrestore(&rtc_lock, flags);
 124
 125         /* we're trusting the FADT (see above) */
 126         if (!acpi_gbl_FADT.century)
 127                 /* If we're not trusting the FADT, we should at least make it
 128                  * right for _this_ century... ehm, what is _this_ century?
 129                  *
 130                  * TBD:
 131                  *  ASAP: find piece of code in the kernel, e.g. star tracker driver,
 132                  *        which we can trust to determine the century correctly. Atom
 133                  *        watch driver would be nice, too...
 134                  *
 135                  *  if that has not happened, change for first release in 2050:
 136                  *        if (yr<50)
 137                  *                yr += 2100;
 138                  *        else
 139                  *                yr += 2000;   // current line of code
 140                  *
 141                  *  if that has not happened either, please do on 2099/12/31:23:59:59
 142                  *        s/2000/2100
 143                  *
 144                  */
 145                 yr += 2000;
 146         else
 147                 yr += cent * 100;
 148
 149         /*
 150          * Show correct dates for alarms up to a month into the future.
 151          * This solves issues for nearly all situations with the common
 152          * 30-day alarm clocks in PC hardware.
 153          */
 154         if (day < today) {
 155                 if (mo < 12) {
 156                         mo += 1;
 157                 } else {
 158                         mo = 1;
 159                         yr += 1;
 160                 }
 161         }
 162
 163         seq_printf(seq, "%4.4u-", yr);
 164         (mo > 12) ? seq_puts(seq, "**-") : seq_printf(seq, "%2.2u-", mo);
 165         (day > 31) ? seq_puts(seq, "** ") : seq_printf(seq, "%2.2u ", day);
 166         (hr > 23) ? seq_puts(seq, "**:") : seq_printf(seq, "%2.2u:", hr);
 167         (min > 59) ? seq_puts(seq, "**:") : seq_printf(seq, "%2.2u:", min);
 168         (sec > 59) ? seq_puts(seq, "**\n") : seq_printf(seq, "%2.2u\n", sec);
 169
 170         return 0;
 171 }
 172
 173 static int acpi_system_alarm_open_fs(struct inode *inode, struct file *file)
 174 {
 175         return single_open(file, acpi_system_alarm_seq_show, PDE(inode)->data);
 176 }
 177
 178 static int get_date_field(char **p, u32 * value)
 179 {
 180         char *next = NULL;
 181         char *string_end = NULL;
 182         int result = -EINVAL;
 183
 184         /*
 185          * Try to find delimeter, only to insert null.  The end of the
 186          * string won't have one, but is still valid.
 187          */
 188         if (*p == NULL)
 189                 return result;
 190
 191         next = strpbrk(*p, "- :");
 192         if (next)
 193                 *next++ = '\0';
 194
 195         *value = simple_strtoul(*p, &string_end, 10);
 196
 197         /* Signal success if we got a good digit */
 198         if (string_end != *p)
 199                 result = 0;
 200
 201         if (next)
 202                 *p = next;
 203         else
 204                 *p = NULL;
 205
 206         return result;
 207 }
 208
 209 /* Read a possibly BCD register, always return binary */
 210 static u32 cmos_bcd_read(int offset, int rtc_control)
 211 {
 212         u32 val = CMOS_READ(offset);
 213         if (!(rtc_control & RTC_DM_BINARY) || RTC_ALWAYS_BCD)
 214                 val = bcd2bin(val);
 215         return val;
 216 }
 217
 218 /* Write binary value into possibly BCD register */
 219 static void cmos_bcd_write(u32 val, int offset, int rtc_control)
 220 {
 221         if (!(rtc_control & RTC_DM_BINARY) || RTC_ALWAYS_BCD)
 222                 val = bin2bcd(val);
 223         CMOS_WRITE(val, offset);
 224 }
 225
 226 static ssize_t
 227 acpi_system_write_alarm(struct file *file,
 228                         const char __user * buffer, size_t count, loff_t * ppos)
 229 {
 230         int result = 0;
 231         char alarm_string[30] = { '\0' };
 232         char *p = alarm_string;
 233         u32 sec, min, hr, day, mo, yr;
 234         int adjust = 0;
 235         unsigned char rtc_control = 0;
 236
 237         if (count > sizeof(alarm_string) - 1)
 238                 return -EINVAL;
 239
 240         if (copy_from_user(alarm_string, buffer, count))
 241                 return -EFAULT;
 242
 243         alarm_string[count] = '\0';
 244
 245         /* check for time adjustment */
 246         if (alarm_string[0] == '+') {
 247                 p++;
 248                 adjust = 1;
 249         }
 250
 251         if ((result = get_date_field(&p, &yr)))
 252                 goto end;
 253         if ((result = get_date_field(&p, &mo)))
 254                 goto end;
 255         if ((result = get_date_field(&p, &day)))
 256                 goto end;
 257         if ((result = get_date_field(&p, &hr)))
 258                 goto end;
 259         if ((result = get_date_field(&p, &min)))
 260                 goto end;
 261         if ((result = get_date_field(&p, &sec)))
 262                 goto end;
 263
 264         spin_lock_irq(&rtc_lock);
 265
 266         rtc_control = CMOS_READ(RTC_CONTROL);
 267
 268         if (adjust) {
 269                 yr += cmos_bcd_read(RTC_YEAR, rtc_control);
 270                 mo += cmos_bcd_read(RTC_MONTH, rtc_control);
 271                 day += cmos_bcd_read(RTC_DAY_OF_MONTH, rtc_control);
 272                 hr += cmos_bcd_read(RTC_HOURS, rtc_control);
 273                 min += cmos_bcd_read(RTC_MINUTES, rtc_control);
 274                 sec += cmos_bcd_read(RTC_SECONDS, rtc_control);
 275         }
 276
 277         spin_unlock_irq(&rtc_lock);
 278
 279         if (sec > 59) {
 280                 min += sec/60;
 281                 sec = sec%60;
 282         }
 283         if (min > 59) {
 284                 hr += min/60;
 285                 min = min%60;
 286         }
 287         if (hr > 23) {
 288                 day += hr/24;
 289                 hr = hr%24;
 290         }
 291         if (day > 31) {
 292                 mo += day/32;
 293                 day = day%32;
 294         }
 295         if (mo > 12) {
 296                 yr += mo/13;
 297                 mo = mo%13;
 298         }
 299
 300         spin_lock_irq(&rtc_lock);
 301         /*
 302          * Disable alarm interrupt before setting alarm timer or else
 303          * when ACPI_EVENT_RTC is enabled, a spurious ACPI interrupt occurs
 304          */
 305         rtc_control &= ~RTC_AIE;
 306         CMOS_WRITE(rtc_control, RTC_CONTROL);
 307         CMOS_READ(RTC_INTR_FLAGS);
 308
 309         /* write the fields the rtc knows about */
 310         cmos_bcd_write(hr, RTC_HOURS_ALARM, rtc_control);
 311         cmos_bcd_write(min, RTC_MINUTES_ALARM, rtc_control);
 312         cmos_bcd_write(sec, RTC_SECONDS_ALARM, rtc_control);
 313
 314         /*
 315          * If the system supports an enhanced alarm it will have non-zero
 316          * offsets into the CMOS RAM here -- which for some reason are pointing
 317          * to the RTC area of memory.
 318          */
 319         if (acpi_gbl_FADT.day_alarm)
 320                 cmos_bcd_write(day, acpi_gbl_FADT.day_alarm, rtc_control);
 321         if (acpi_gbl_FADT.month_alarm)
 322                 cmos_bcd_write(mo, acpi_gbl_FADT.month_alarm, rtc_control);
 323         if (acpi_gbl_FADT.century) {
 324                 if (adjust)
 325                         yr += cmos_bcd_read(acpi_gbl_FADT.century, rtc_control) * 100;
 326                 cmos_bcd_write(yr / 100, acpi_gbl_FADT.century, rtc_control);
 327         }
 328         /* enable the rtc alarm interrupt */
 329         rtc_control |= RTC_AIE;
 330         CMOS_WRITE(rtc_control, RTC_CONTROL);
 331         CMOS_READ(RTC_INTR_FLAGS);
 332
 333         spin_unlock_irq(&rtc_lock);
 334
 335         acpi_clear_event(ACPI_EVENT_RTC);
 336         acpi_enable_event(ACPI_EVENT_RTC, 0);
 337
 338         *ppos += count;
 339
 340         result = 0;
 341       end:
 342         return result ? result : count;
 343 }
 344 #endif                          /* HAVE_ACPI_LEGACY_ALARM */
 345
 346 extern struct list_head acpi_wakeup_device_list;
 347 extern spinlock_t acpi_device_lock;
 348
 349 static int
 350 acpi_system_wakeup_device_seq_show(struct seq_file *seq, void *offset)
 351 {
 352         struct list_head *node, *next;
 353
 354         seq_printf(seq, "Device\tS-state\t  Status   Sysfs node\n");
 355
 356         spin_lock(&acpi_device_lock);
 357         list_for_each_safe(node, next, &acpi_wakeup_device_list) {
 358                 struct acpi_device *dev =
 359                     container_of(node, struct acpi_device, wakeup_list);
 360                 struct device *ldev;
 361
 362                 if (!dev->wakeup.flags.valid)
 363                         continue;
 364                 spin_unlock(&acpi_device_lock);
 365
 366                 ldev = acpi_get_physical_device(dev->handle);
 367                 seq_printf(seq, "%s\t  S%d\t%c%-8s  ",
 368                            dev->pnp.bus_id,
 369                            (u32) dev->wakeup.sleep_state,
 370                            dev->wakeup.flags.run_wake ? '*' : ' ',
 371                            dev->wakeup.state.enabled ? "enabled" : "disabled");
 372                 if (ldev)
 373                         seq_printf(seq, "%s:%s",
 374                                    ldev->bus ? ldev->bus->name : "no-bus",
 375                                    dev_name(ldev));
 376                 seq_printf(seq, "\n");
 377                 put_device(ldev);
 378
 379                 spin_lock(&acpi_device_lock);
 380         }
 381         spin_unlock(&acpi_device_lock);
 382         return 0;
 383 }
 384
 385 static void physical_device_enable_wakeup(struct acpi_device *adev)
 386 {
 387         struct device *dev = acpi_get_physical_device(adev->handle);
 388
 389         if (dev && device_can_wakeup(dev))
 390                 device_set_wakeup_enable(dev, adev->wakeup.state.enabled);
 391 }
 392
 393 static ssize_t
 394 acpi_system_write_wakeup_device(struct file *file,
 395                                 const char __user * buffer,
 396                                 size_t count, loff_t * ppos)
 397 {
 398         struct list_head *node, *next;
 399         char strbuf[5];
 400         char str[5] = "";
 401         int len = count;
 402         struct acpi_device *found_dev = NULL;
 403
 404         if (len > 4)
 405                 len = 4;
 406
 407         if (copy_from_user(strbuf, buffer, len))
 408                 return -EFAULT;
 409         strbuf[len] = '\0';
 410         sscanf(strbuf, "%s", str);
 411
 412         spin_lock(&acpi_device_lock);
 413         list_for_each_safe(node, next, &acpi_wakeup_device_list) {
 414                 struct acpi_device *dev =
 415                     container_of(node, struct acpi_device, wakeup_list);
 416                 if (!dev->wakeup.flags.valid)
 417                         continue;
 418
 419                 if (!strncmp(dev->pnp.bus_id, str, 4)) {
 420                         dev->wakeup.state.enabled =
 421                             dev->wakeup.state.enabled ? 0 : 1;
 422                         found_dev = dev;
 423                         break;
 424                 }
 425         }
 426         if (found_dev) {
 427                 physical_device_enable_wakeup(found_dev);
 428                 list_for_each_safe(node, next, &acpi_wakeup_device_list) {
 429                         struct acpi_device *dev = container_of(node,
 430                                                                struct
 431                                                                acpi_device,
 432                                                                wakeup_list);
 433
 434                         if ((dev != found_dev) &&
 435                             (dev->wakeup.gpe_number ==
 436                              found_dev->wakeup.gpe_number)
 437                             && (dev->wakeup.gpe_device ==
 438                                 found_dev->wakeup.gpe_device)) {
 439                                 printk(KERN_WARNING
 440                                        "ACPI: '%s' and '%s' have the same GPE, "
 441                                        "can't disable/enable one seperately\n",
 442                                        dev->pnp.bus_id, found_dev->pnp.bus_id);
 443                                 dev->wakeup.state.enabled =
 444                                     found_dev->wakeup.state.enabled;
 445                                 physical_device_enable_wakeup(dev);
 446                         }
 447                 }
 448         }
 449         spin_unlock(&acpi_device_lock);
 450         return count;
 451 }
 452
 453 static int
 454 acpi_system_wakeup_device_open_fs(struct inode *inode, struct file *file)
 455 {
 456         return single_open(file, acpi_system_wakeup_device_seq_show,
 457                            PDE(inode)->data);
 458 }
 459
 460 static const struct file_operations acpi_system_wakeup_device_fops = {
 461         .owner = THIS_MODULE,
 462         .open = acpi_system_wakeup_device_open_fs,
 463         .read = seq_read,
 464         .write = acpi_system_write_wakeup_device,
 465         .llseek = seq_lseek,
 466         .release = single_release,
 467 };
 468
 469 #ifdef  CONFIG_ACPI_PROCFS
 470 static const struct file_operations acpi_system_sleep_fops = {
 471         .owner = THIS_MODULE,
 472         .open = acpi_system_sleep_open_fs,
 473         .read = seq_read,
 474         .write = acpi_system_write_sleep,
 475         .llseek = seq_lseek,
 476         .release = single_release,
 477 };
 478 #endif                          /* CONFIG_ACPI_PROCFS */
 479
 480 #ifdef  HAVE_ACPI_LEGACY_ALARM
 481 static const struct file_operations acpi_system_alarm_fops = {
 482         .owner = THIS_MODULE,
 483         .open = acpi_system_alarm_open_fs,
 484         .read = seq_read,
 485         .write = acpi_system_write_alarm,
 486         .llseek = seq_lseek,
 487         .release = single_release,
 488 };
 489
 490 static u32 rtc_handler(void *context)
 491 {
 492         acpi_clear_event(ACPI_EVENT_RTC);
 493         acpi_disable_event(ACPI_EVENT_RTC, 0);
 494
 495         return ACPI_INTERRUPT_HANDLED;
 496 }
 497 #endif                          /* HAVE_ACPI_LEGACY_ALARM */
 498
 499 int __init acpi_sleep_proc_init(void)
 500 {
 501 #ifdef  CONFIG_ACPI_PROCFS
 502         /* 'sleep' [R/W] */
 503         proc_create("sleep", S_IFREG | S_IRUGO | S_IWUSR,
 504                     acpi_root_dir, &acpi_system_sleep_fops);
 505 #endif                          /* CONFIG_ACPI_PROCFS */
 506
 507 #ifdef  HAVE_ACPI_LEGACY_ALARM
 508         /* 'alarm' [R/W] */
 509         proc_create("alarm", S_IFREG | S_IRUGO | S_IWUSR,
 510                     acpi_root_dir, &acpi_system_alarm_fops);
 511
 512         acpi_install_fixed_event_handler(ACPI_EVENT_RTC, rtc_handler, NULL);
 513         /*
 514          * Disable the RTC event after installing RTC handler.
 515          * Only when RTC alarm is set will it be enabled.
 516          */
 517         acpi_clear_event(ACPI_EVENT_RTC);
 518         acpi_disable_event(ACPI_EVENT_RTC, 0);
 519 #endif                          /* HAVE_ACPI_LEGACY_ALARM */
 520
 521         /* 'wakeup device' [R/W] */
 522         proc_create("wakeup", S_IFREG | S_IRUGO | S_IWUSR,
 523                     acpi_root_dir, &acpi_system_wakeup_device_fops);
 524
 525         return 0;
 526 }