开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Linux/Unix编程 > 查看源码
ds1302.c
资源名称：linux-2.4.20.tar.gz　[点击查看]
上传用户：jlfgdled
上传日期：2013-04-10
资源大小：33168k
文件大小：12k
源码类别：

Linux/Unix编程

开发平台：

Unix_Linux

ds1302.c：源码内容
  1. /*!***************************************************************************
  2. *!
  3. *! FILE NAME  : ds1302.c
  4. *!
  5. *! DESCRIPTION: Implements an interface for the DS1302 RTC through Etrax I/O
  6. *!
  7. *! Functions exported: ds1302_readreg, ds1302_writereg, ds1302_init, get_rtc_status
  8. *!
  9. *! $Log: ds1302.c,v $
  10. *! Revision 1.13  2002/05/29 15:16:08  johana
  11. *! Removed unused variables.
  12. *!
  13. *! Revision 1.12  2002/04/10 15:35:25  johana
  14. *! Moved probe function closer to init function and marked it __init.
  15. *!
  16. *! Revision 1.11  2001/06/14 12:35:52  jonashg
  17. *! The ATA hack is back. It is unfortunately the only way to set g27 to output.
  18. *!
  19. *! Revision 1.9  2001/06/14 10:00:14  jonashg
  20. *! No need for tempudelay to be inline anymore (had to adjust the usec to
  21. *! loops conversion because of this to make it slow enough to be a udelay).
  22. *!
  23. *! Revision 1.8  2001/06/14 08:06:32  jonashg
  24. *! Made tempudelay delay usecs (well, just a tad more).
  25. *!
  26. *! Revision 1.7  2001/06/13 14:18:11  jonashg
  27. *! Only allow processes with SYS_TIME capability to set time and charge.
  28. *!
  29. *! Revision 1.6  2001/06/12 15:22:07  jonashg
  30. *! * Made init function __init.
  31. *! * Parameter to out_byte() is unsigned char.
  32. *! * The magic number 42 has got a name.
  33. *! * Removed comment about /proc (nothing is exported there).
  34. *!
  35. *! Revision 1.5  2001/06/12 14:35:13  jonashg
  36. *! Gave the module a name and added it to printk's.
  37. *!
  38. *! Revision 1.4  2001/05/31 14:53:40  jonashg
  39. *! Made tempudelay() inline so that the watchdog doesn't reset (see
  40. *! function comment).
  41. *!
  42. *! Revision 1.3  2001/03/26 16:03:06  bjornw
  43. *! Needs linux/config.h
  44. *!
  45. *! Revision 1.2  2001/03/20 19:42:00  bjornw
  46. *! Use the ETRAX prefix on the DS1302 options
  47. *!
  48. *! Revision 1.1  2001/03/20 09:13:50  magnusmn
  49. *! Linux 2.4 port
  50. *!
  51. *! Revision 1.10  2000/07/05 15:38:23  bjornw
  52. *! Dont update kernel time when a RTC_SET_TIME is done
  53. *!
  54. *! Revision 1.9  2000/03/02 15:42:59  macce
  55. *! * Hack to make RTC work on all 2100/2400
  56. *!
  57. *! Revision 1.8  2000/02/23 16:59:18  torbjore
  58. *! added setup of R_GEN_CONFIG when RTC is connected to the generic port.
  59. *!
  60. *! Revision 1.7  2000/01/17 15:51:43  johana
  61. *! Added RTC_SET_CHARGE ioctl to enable trickle charger.
  62. *!
  63. *! Revision 1.6  1999/10/27 13:19:47  bjornw
  64. *! Added update_xtime_from_cmos which reads back the updated RTC into the kernel.
  65. *! /dev/rtc calls it now.
  66. *!
  67. *! Revision 1.5  1999/10/27 12:39:37  bjornw
  68. *! Disabled superuser check. Anyone can now set the time.
  69. *!
  70. *! Revision 1.4  1999/09/02 13:27:46  pkj
  71. *! Added shadow for R_PORT_PB_CONFIG.
  72. *! Renamed port_g_shadow to port_g_data_shadow.
  73. *!
  74. *! Revision 1.3  1999/09/02 08:28:06  pkj
  75. *! Made it possible to select either port PB or the generic port for the RST
  76. *! signal line to the DS1302 RTC.
  77. *! Also make sure the RST bit is configured as output on Port PB (if used).
  78. *!
  79. *! Revision 1.2  1999/09/01 14:47:20  bjornw
  80. *! Added support for /dev/rtc operations with ioctl RD_TIME and SET_TIME to read
  81. *! and set the date. Register as major 121.
  82. *!
  83. *! Revision 1.1  1999/09/01 09:45:29  bjornw
  84. *! Implemented a DS1302 RTC driver.
  85. *!
  86. *!
  87. *! ---------------------------------------------------------------------------
  88. *!
  89. *! (C) Copyright 1999, 2000, 2001  Axis Communications AB, LUND, SWEDEN
  90. *!
  91. *! $Id: ds1302.c,v 1.13 2002/05/29 15:16:08 johana Exp $
  92. *!
  93. *!***************************************************************************/
  95. #include <linux/config.h>
  97. #include <linux/fs.h>
  98. #include <linux/init.h>
  99. #include <linux/mm.h>
  100. #include <linux/module.h>
  101. #include <linux/miscdevice.h>
  102. #include <linux/delay.h>
  104. #include <asm/uaccess.h>
  105. #include <asm/system.h>
  106. #include <asm/svinto.h>
  107. #include <asm/io.h>
  108. #include <asm/rtc.h>
  110. #define RTC_MAJOR_NR 121 /* local major, change later */
  112. static const char ds1302_name[] = "ds1302";
  114. /* The DS1302 might be connected to different bits on different products. 
  115.  * It has three signals - SDA, SCL and RST. RST and SCL are always outputs,
  116.  * but SDA can have a selected direction.
  117.  * For now, only PORT_PB is hardcoded.
  118.  */
  120. /* The RST bit may be on either the Generic Port or Port PB. */
  121. #ifdef CONFIG_ETRAX_DS1302_RST_ON_GENERIC_PORT
  122. #define TK_RST_OUT(x) REG_SHADOW_SET(R_PORT_G_DATA,  port_g_data_shadow,  CONFIG_ETRAX_DS1302_RSTBIT, x)
  123. #define TK_RST_DIR(x)
  124. #else
  125. #define TK_RST_OUT(x) REG_SHADOW_SET(R_PORT_PB_DATA, port_pb_data_shadow, CONFIG_ETRAX_DS1302_RSTBIT, x)
  126. #define TK_RST_DIR(x) REG_SHADOW_SET(R_PORT_PB_DIR,  port_pb_dir_shadow,  CONFIG_ETRAX_DS1302_RSTBIT, x)
  127. #endif
  130. #define TK_SDA_OUT(x) REG_SHADOW_SET(R_PORT_PB_DATA, port_pb_data_shadow, CONFIG_ETRAX_DS1302_SDABIT, x)
  131. #define TK_SCL_OUT(x) REG_SHADOW_SET(R_PORT_PB_DATA, port_pb_data_shadow, CONFIG_ETRAX_DS1302_SCLBIT, x)
  133. #define TK_SDA_IN()   ((*R_PORT_PB_READ >> CONFIG_ETRAX_DS1302_SDABIT) & 1)
  134. /* 1 is out, 0 is in */
  135. #define TK_SDA_DIR(x) REG_SHADOW_SET(R_PORT_PB_DIR,  port_pb_dir_shadow,  CONFIG_ETRAX_DS1302_SDABIT, x)
  136. #define TK_SCL_DIR(x) REG_SHADOW_SET(R_PORT_PB_DIR,  port_pb_dir_shadow,  CONFIG_ETRAX_DS1302_SCLBIT, x)
  139. /*
  140.  * The reason for tempudelay and not udelay is that loops_per_usec
  141.  * (used in udelay) is not set when functions here are called from time.c 
  142.  */
  144. static void tempudelay(int usecs) 
  145. {
  146. volatile int loops;
  148. for(loops = usecs * 12; loops > 0; loops--)
  149. /* nothing */;
  150. }
  153. /* Send 8 bits. */
  154. static void
  155. out_byte(unsigned char x) 
  156. {
  157. int i;
  158. TK_SDA_DIR(1);
  159. for (i = 8; i--;) {
  160. /* The chip latches incoming bits on the rising edge of SCL. */
  161. TK_SCL_OUT(0);
  162. TK_SDA_OUT(x & 1);
  163. tempudelay(1);
  164. TK_SCL_OUT(1);
  165. tempudelay(1);
  166. x >>= 1;
  167. }
  168. TK_SDA_DIR(0);
  169. }
  171. static unsigned char
  172. in_byte(void) 
  173. {
  174. unsigned char x = 0;
  175. int i;
  177. /* Read byte. Bits come LSB first, on the falling edge of SCL.
  178.  * Assume SDA is in input direction already.
  179.  */
  180. TK_SDA_DIR(0);
  182. for (i = 8; i--;) {
  183. TK_SCL_OUT(0);
  184. tempudelay(1);
  185. x >>= 1;
  186. x |= (TK_SDA_IN() << 7);
  187. TK_SCL_OUT(1);
  188. tempudelay(1);
  189. }
  191. return x;
  192. }
  194. /* Prepares for a transaction by de-activating RST (active-low). */
  196. static void
  197. start(void) 
  198. {
  199. TK_SCL_OUT(0);
  200. tempudelay(1);
  201. TK_RST_OUT(0);
  202. tempudelay(5);
  203. TK_RST_OUT(1);
  204. }
  206. /* Ends a transaction by taking RST active again. */
  208. static void
  209. stop(void) 
  210. {
  211. tempudelay(2);
  212. TK_RST_OUT(0);
  213. }
  215. /* Enable writing. */
  217. static void
  218. ds1302_wenable(void) 
  219. {
  220. start(); 
  221. out_byte(0x8e); /* Write control register  */
  222. out_byte(0x00); /* Disable write protect bit 7 = 0 */
  223. stop();
  224. }
  226. /* Disable writing. */
  228. static void
  229. ds1302_wdisable(void) 
  230. {
  231. start();
  232. out_byte(0x8e); /* Write control register  */
  233. out_byte(0x80); /* Disable write protect bit 7 = 0 */
  234. stop();
  235. }
  239. /* Read a byte from the selected register in the DS1302. */
  241. unsigned char
  242. ds1302_readreg(int reg) 
  243. {
  244. unsigned char x;
  246. start();
  247. out_byte(0x81 | (reg << 1)); /* read register */
  248. x = in_byte();
  249. stop();
  251. return x;
  252. }
  254. /* Write a byte to the selected register. */
  256. void
  257. ds1302_writereg(int reg, unsigned char val) 
  258. {
  259. ds1302_wenable();
  260. start();
  261. out_byte(0x80 | (reg << 1)); /* write register */
  262. out_byte(val);
  263. stop();
  264. ds1302_wdisable();
  265. }
  267. void
  268. get_rtc_time(struct rtc_time *rtc_tm) 
  269. {
  270. unsigned long flags;
  272. save_flags(flags);
  273. cli();
  275. rtc_tm->tm_sec = CMOS_READ(RTC_SECONDS);
  276. rtc_tm->tm_min = CMOS_READ(RTC_MINUTES);
  277. rtc_tm->tm_hour = CMOS_READ(RTC_HOURS);
  278. rtc_tm->tm_mday = CMOS_READ(RTC_DAY_OF_MONTH);
  279. rtc_tm->tm_mon = CMOS_READ(RTC_MONTH);
  280. rtc_tm->tm_year = CMOS_READ(RTC_YEAR);
  282. restore_flags(flags);
  284. BCD_TO_BIN(rtc_tm->tm_sec);
  285. BCD_TO_BIN(rtc_tm->tm_min);
  286. BCD_TO_BIN(rtc_tm->tm_hour);
  287. BCD_TO_BIN(rtc_tm->tm_mday);
  288. BCD_TO_BIN(rtc_tm->tm_mon);
  289. BCD_TO_BIN(rtc_tm->tm_year);
  291. /*
  292.  * Account for differences between how the RTC uses the values
  293.  * and how they are defined in a struct rtc_time;
  294.  */
  296. if (rtc_tm->tm_year <= 69)
  297. rtc_tm->tm_year += 100;
  299. rtc_tm->tm_mon--;
  300. }
  302. static unsigned char days_in_mo[] = 
  303.     {0, 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31};
  305. /* ioctl that supports RTC_RD_TIME and RTC_SET_TIME (read and set time/date). */
  307. static int
  308. rtc_ioctl(struct inode *inode, struct file *file, unsigned int cmd,
  309.   unsigned long arg) 
  310. {
  311.         unsigned long flags;
  313. switch(cmd) {
  314. case RTC_RD_TIME: /* read the time/date from RTC */
  315. {
  316. struct rtc_time rtc_tm;
  318. get_rtc_time(&rtc_tm);
  319. if (copy_to_user((struct rtc_time*)arg, &rtc_tm, sizeof(struct rtc_time)))
  320. return -EFAULT;
  321. return 0;
  322. }
  324. case RTC_SET_TIME: /* set the RTC */
  325. {
  326. struct rtc_time rtc_tm;
  327. unsigned char mon, day, hrs, min, sec, leap_yr;
  328. unsigned int yrs;
  330. if (!capable(CAP_SYS_TIME))
  331. return -EPERM;
  333. if (copy_from_user(&rtc_tm, (struct rtc_time*)arg, sizeof(struct rtc_time)))
  334. return -EFAULT;    
  336. yrs = rtc_tm.tm_year + 1900;
  337. mon = rtc_tm.tm_mon + 1;   /* tm_mon starts at zero */
  338. day = rtc_tm.tm_mday;
  339. hrs = rtc_tm.tm_hour;
  340. min = rtc_tm.tm_min;
  341. sec = rtc_tm.tm_sec;
  344. if ((yrs < 1970) || (yrs > 2069))
  345. return -EINVAL;
  347. leap_yr = ((!(yrs % 4) && (yrs % 100)) || !(yrs % 400));
  349. if ((mon > 12) || (day == 0))
  350. return -EINVAL;
  352. if (day > (days_in_mo[mon] + ((mon == 2) && leap_yr)))
  353. return -EINVAL;
  355. if ((hrs >= 24) || (min >= 60) || (sec >= 60))
  356. return -EINVAL;
  358. if (yrs >= 2000)
  359. yrs -= 2000; /* RTC (0, 1, ... 69) */
  360. else
  361. yrs -= 1900; /* RTC (70, 71, ... 99) */
  363. BIN_TO_BCD(sec);
  364. BIN_TO_BCD(min);
  365. BIN_TO_BCD(hrs);
  366. BIN_TO_BCD(day);
  367. BIN_TO_BCD(mon);
  368. BIN_TO_BCD(yrs);
  370. save_flags(flags);
  371. cli();
  372. CMOS_WRITE(yrs, RTC_YEAR);
  373. CMOS_WRITE(mon, RTC_MONTH);
  374. CMOS_WRITE(day, RTC_DAY_OF_MONTH);
  375. CMOS_WRITE(hrs, RTC_HOURS);
  376. CMOS_WRITE(min, RTC_MINUTES);
  377. CMOS_WRITE(sec, RTC_SECONDS);
  378. restore_flags(flags);
  380. /* Notice that at this point, the RTC is updated but
  381.  * the kernel is still running with the old time.
  382.  * You need to set that separately with settimeofday
  383.  * or adjtimex.
  384.  */
  385. return 0;
  386. }
  388. case RTC_SET_CHARGE: /* set the RTC TRICKLE CHARGE register */
  389. {
  390. int tcs_val;                        
  392. if (!capable(CAP_SYS_TIME))
  393. return -EPERM;
  395. if(copy_from_user(&tcs_val, (int*)arg, sizeof(int)))
  396. return -EFAULT;
  398. tcs_val = RTC_TCR_PATTERN | (tcs_val & 0x0F);
  399. ds1302_writereg(RTC_TRICKLECHARGER, tcs_val);
  400. return 0;
  401. }                
  402. default:
  403. return -ENOIOCTLCMD;
  404. }
  405. }
  407. int
  408. get_rtc_status(char *buf) 
  409. {
  410. char *p;
  411. struct rtc_time tm;
  413. p = buf;
  415. get_rtc_time(&tm);
  417. /*
  418.  * There is no way to tell if the luser has the RTC set for local
  419.  * time or for Universal Standard Time (GMT). Probably local though.
  420.  */
  422. p += sprintf(p,
  423. "rtc_timet: %02d:%02d:%02dn"
  424. "rtc_datet: %04d-%02d-%02dn",
  425. tm.tm_hour, tm.tm_min, tm.tm_sec,
  426. tm.tm_year + 1900, tm.tm_mon + 1, tm.tm_mday);
  428. return  p - buf;
  429. }
  432. /* The various file operations we support. */
  434. static struct file_operations rtc_fops = {
  435.         owner:          THIS_MODULE,
  436.         ioctl:          rtc_ioctl,
  437. }; 
  439. /* Probe for the chip by writing something to its RAM and try reading it back. */
  441. #define MAGIC_PATTERN 0x42
  443. static int __init
  444. ds1302_probe(void) 
  445. {
  446. int retval, res; 
  448. TK_RST_DIR(1);
  449. TK_SCL_DIR(1);
  450. TK_SDA_DIR(0);
  452. /* Try to talk to timekeeper. */
  454. ds1302_wenable();  
  455. start();
  456. out_byte(0xc0); /* write RAM byte 0 */
  457. out_byte(MAGIC_PATTERN); /* write something magic */
  458. start();
  459. out_byte(0xc1); /* read RAM byte 0 */
  461. if((res = in_byte()) == MAGIC_PATTERN) {
  462. char buf[100];
  463. stop();
  464. ds1302_wdisable();
  465. printk("%s: RTC found.n", ds1302_name);
  466. printk("%s: SDA, SCL, RST on PB%i, PB%i, %s%in",
  467.        ds1302_name,
  468.        CONFIG_ETRAX_DS1302_SDABIT,
  469.        CONFIG_ETRAX_DS1302_SCLBIT,
  470. #ifdef CONFIG_ETRAX_DS1302_RST_ON_GENERIC_PORT
  471.        "GENIO",
  472. #else
  473.        "PB",
  474. #endif
  475.        CONFIG_ETRAX_DS1302_RSTBIT);
  476.                 get_rtc_status(buf);
  477.                 printk(buf);
  478. retval = 1;
  479. } else {
  480. stop();
  481. printk("%s: RTC not found.n", ds1302_name);
  482. retval = 0;
  483. }
  485. return retval;
  486. }
  489. /* Just probe for the RTC and register the device to handle the ioctl needed. */
  491. int __init
  492. ds1302_init(void) 
  493. { 
  494. if (!ds1302_probe()) {
  495. #ifdef CONFIG_ETRAX_DS1302_RST_ON_GENERIC_PORT
  496. /*
  497.  * The only way to set g27 to output is to enable ATA.
  498.  *
  499.  * Make sure that R_GEN_CONFIG is setup correct.
  500.  */
  501.      genconfig_shadow = ((genconfig_shadow &
  502.      ~IO_MASK(R_GEN_CONFIG, ata))
  503.    | 
  504.    (IO_STATE(R_GEN_CONFIG, ata, select)));    
  505.      *R_GEN_CONFIG = genconfig_shadow;
  506.      if (!ds1302_probe())
  507.        return -1;
  508. #else
  509.      return -1;
  510. #endif
  511.    }
  512.   
  513. if (register_chrdev(RTC_MAJOR_NR, ds1302_name, &rtc_fops)) {
  514. printk(KERN_INFO "%s: unable to get major %d for rtcn", 
  515.        ds1302_name, RTC_MAJOR_NR);
  516. return -1;
  517. }
  518. return 0;
  519. }