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