mkiss.c
上传用户:jlfgdled
上传日期:2013-04-10
资源大小:33168k
文件大小:25k
源码类别:

Linux/Unix编程

开发平台:

Unix_Linux

  1. /*
  2.  * MKISS Driver
  3.  *
  4.  * This module:
  5.  * This module is free software; you can redistribute it and/or
  6.  * modify it under the terms of the GNU General Public License
  7.  * as published by the Free Software Foundation; either version
  8.  * 2 of the License, or (at your option) any later version.
  9.  *
  10.  *  This module implements the AX.25 protocol for kernel-based
  11.  * devices like TTYs. It interfaces between a raw TTY, and the
  12.  * kernel's AX.25 protocol layers, just like slip.c.
  13.  * AX.25 needs to be separated from slip.c while slip.c is no
  14.  * longer a static kernel device since it is a module.
  15.  * This method clears the way to implement other kiss protocols
  16.  * like mkiss smack g8bpq ..... so far only mkiss is implemented.
  17.  *
  18.  * Hans Alblas <hans@esrac.ele.tue.nl>
  19.  *
  20.  * History
  21.  * Jonathan (G4KLX) Fixed to match Linux networking changes - 2.1.15.
  22.  * Matthias (DG2FEF)       Added support for FlexNet CRC (on special request)
  23.  *                              Fixed bug in ax25_close(): dev_lock_wait() was
  24.  *                              called twice, causing a deadlock.
  25.  */
  26. #include <linux/config.h>
  27. #include <linux/module.h>
  28. #include <asm/system.h>
  29. #include <asm/segment.h>
  30. #include <asm/bitops.h>
  31. #include <asm/uaccess.h>
  32. #include <linux/string.h>
  33. #include <linux/mm.h>
  34. #include <linux/interrupt.h>
  35. #include <linux/in.h>
  36. #include <linux/inet.h>
  37. #include <linux/tty.h>
  38. #include <linux/errno.h>
  39. #include <linux/netdevice.h>
  40. #include <linux/major.h>
  41. #include <linux/init.h>
  42. #include <linux/rtnetlink.h>
  43. #include <linux/etherdevice.h>
  44. #include <linux/skbuff.h>
  45. #include <linux/if_arp.h>
  46. #include <net/ax25.h>
  47. #include "mkiss.h"
  48. #ifdef CONFIG_INET
  49. #include <linux/ip.h>
  50. #include <linux/tcp.h>
  51. #endif
  52. static char banner[] __initdata = KERN_INFO "mkiss: AX.25 Multikiss, Hans Albas PE1AYXn";
  53. #define NR_MKISS 4
  54. #define MKISS_SERIAL_TYPE_NORMAL 1
  55. struct mkiss_channel {
  56. int magic; /* magic word */
  57. int init; /* channel exists? */
  58. struct tty_struct *tty; /* link to tty control structure */
  59. };
  60. typedef struct ax25_ctrl {
  61. struct ax_disp ctrl; /*  */
  62. struct net_device  dev; /* the device */
  63. } ax25_ctrl_t;
  64. static ax25_ctrl_t **ax25_ctrls;
  65. int ax25_maxdev = AX25_MAXDEV; /* Can be overridden with insmod! */
  66. static struct tty_ldisc ax_ldisc;
  67. static int ax25_init(struct net_device *);
  68. static int kiss_esc(unsigned char *, unsigned char *, int);
  69. static int kiss_esc_crc(unsigned char *, unsigned char *, unsigned short, int);
  70. static void kiss_unesc(struct ax_disp *, unsigned char);
  71. /*---------------------------------------------------------------------------*/
  72. static const unsigned short Crc_flex_table[] = {
  73.   0x0f87, 0x1e0e, 0x2c95, 0x3d1c, 0x49a3, 0x582a, 0x6ab1, 0x7b38,
  74.   0x83cf, 0x9246, 0xa0dd, 0xb154, 0xc5eb, 0xd462, 0xe6f9, 0xf770,
  75.   0x1f06, 0x0e8f, 0x3c14, 0x2d9d, 0x5922, 0x48ab, 0x7a30, 0x6bb9,
  76.   0x934e, 0x82c7, 0xb05c, 0xa1d5, 0xd56a, 0xc4e3, 0xf678, 0xe7f1,
  77.   0x2e85, 0x3f0c, 0x0d97, 0x1c1e, 0x68a1, 0x7928, 0x4bb3, 0x5a3a,
  78.   0xa2cd, 0xb344, 0x81df, 0x9056, 0xe4e9, 0xf560, 0xc7fb, 0xd672,
  79.   0x3e04, 0x2f8d, 0x1d16, 0x0c9f, 0x7820, 0x69a9, 0x5b32, 0x4abb,
  80.   0xb24c, 0xa3c5, 0x915e, 0x80d7, 0xf468, 0xe5e1, 0xd77a, 0xc6f3,
  81.   0x4d83, 0x5c0a, 0x6e91, 0x7f18, 0x0ba7, 0x1a2e, 0x28b5, 0x393c,
  82.   0xc1cb, 0xd042, 0xe2d9, 0xf350, 0x87ef, 0x9666, 0xa4fd, 0xb574,
  83.   0x5d02, 0x4c8b, 0x7e10, 0x6f99, 0x1b26, 0x0aaf, 0x3834, 0x29bd,
  84.   0xd14a, 0xc0c3, 0xf258, 0xe3d1, 0x976e, 0x86e7, 0xb47c, 0xa5f5,
  85.   0x6c81, 0x7d08, 0x4f93, 0x5e1a, 0x2aa5, 0x3b2c, 0x09b7, 0x183e,
  86.   0xe0c9, 0xf140, 0xc3db, 0xd252, 0xa6ed, 0xb764, 0x85ff, 0x9476,
  87.   0x7c00, 0x6d89, 0x5f12, 0x4e9b, 0x3a24, 0x2bad, 0x1936, 0x08bf,
  88.   0xf048, 0xe1c1, 0xd35a, 0xc2d3, 0xb66c, 0xa7e5, 0x957e, 0x84f7,
  89.   0x8b8f, 0x9a06, 0xa89d, 0xb914, 0xcdab, 0xdc22, 0xeeb9, 0xff30,
  90.   0x07c7, 0x164e, 0x24d5, 0x355c, 0x41e3, 0x506a, 0x62f1, 0x7378,
  91.   0x9b0e, 0x8a87, 0xb81c, 0xa995, 0xdd2a, 0xcca3, 0xfe38, 0xefb1,
  92.   0x1746, 0x06cf, 0x3454, 0x25dd, 0x5162, 0x40eb, 0x7270, 0x63f9,
  93.   0xaa8d, 0xbb04, 0x899f, 0x9816, 0xeca9, 0xfd20, 0xcfbb, 0xde32,
  94.   0x26c5, 0x374c, 0x05d7, 0x145e, 0x60e1, 0x7168, 0x43f3, 0x527a,
  95.   0xba0c, 0xab85, 0x991e, 0x8897, 0xfc28, 0xeda1, 0xdf3a, 0xceb3,
  96.   0x3644, 0x27cd, 0x1556, 0x04df, 0x7060, 0x61e9, 0x5372, 0x42fb,
  97.   0xc98b, 0xd802, 0xea99, 0xfb10, 0x8faf, 0x9e26, 0xacbd, 0xbd34,
  98.   0x45c3, 0x544a, 0x66d1, 0x7758, 0x03e7, 0x126e, 0x20f5, 0x317c,
  99.   0xd90a, 0xc883, 0xfa18, 0xeb91, 0x9f2e, 0x8ea7, 0xbc3c, 0xadb5,
  100.   0x5542, 0x44cb, 0x7650, 0x67d9, 0x1366, 0x02ef, 0x3074, 0x21fd,
  101.   0xe889, 0xf900, 0xcb9b, 0xda12, 0xaead, 0xbf24, 0x8dbf, 0x9c36,
  102.   0x64c1, 0x7548, 0x47d3, 0x565a, 0x22e5, 0x336c, 0x01f7, 0x107e,
  103.   0xf808, 0xe981, 0xdb1a, 0xca93, 0xbe2c, 0xafa5, 0x9d3e, 0x8cb7,
  104.   0x7440, 0x65c9, 0x5752, 0x46db, 0x3264, 0x23ed, 0x1176, 0x00ff
  105. };
  106. /*---------------------------------------------------------------------------*/
  107. static unsigned short calc_crc_flex(unsigned char *cp, int size)
  108. {
  109.     unsigned short crc = 0xffff;
  110.     
  111.     while (size--)
  112. crc = (crc << 8) ^ Crc_flex_table[((crc >> 8) ^ *cp++) & 0xff];
  113.     return crc;
  114. }
  115. /*---------------------------------------------------------------------------*/
  116. static int check_crc_flex(unsigned char *cp, int size)
  117. {
  118.   unsigned short crc = 0xffff;
  119.   if (size < 3)
  120.       return -1;
  121.   while (size--)
  122.       crc = (crc << 8) ^ Crc_flex_table[((crc >> 8) ^ *cp++) & 0xff];
  123.   if ((crc & 0xffff) != 0x7070) 
  124.       return -1;
  125.   return 0;
  126. }
  127. /*---------------------------------------------------------------------------*/
  128. /* Find a free channel, and link in this `tty' line. */
  129. static inline struct ax_disp *ax_alloc(void)
  130. {
  131. ax25_ctrl_t *axp=NULL;
  132. int i;
  133. for (i = 0; i < ax25_maxdev; i++) {
  134. axp = ax25_ctrls[i];
  135. /* Not allocated ? */
  136. if (axp == NULL)
  137. break;
  138. /* Not in use ? */
  139. if (!test_and_set_bit(AXF_INUSE, &axp->ctrl.flags))
  140. break;
  141. }
  142. /* Sorry, too many, all slots in use */
  143. if (i >= ax25_maxdev)
  144. return NULL;
  145. /* If no channels are available, allocate one */
  146. if (axp == NULL && (ax25_ctrls[i] = kmalloc(sizeof(ax25_ctrl_t), GFP_KERNEL)) != NULL) {
  147. axp = ax25_ctrls[i];
  148. memset(axp, 0, sizeof(ax25_ctrl_t));
  149. /* Initialize channel control data */
  150. set_bit(AXF_INUSE, &axp->ctrl.flags);
  151. sprintf(axp->dev.name, "ax%d", i++);
  152. axp->ctrl.tty      = NULL;
  153. axp->dev.base_addr = i;
  154. axp->dev.priv      = (void *)&axp->ctrl;
  155. axp->dev.next      = NULL;
  156. axp->dev.init      = ax25_init;
  157. }
  158. if (axp != NULL) {
  159. /*
  160.  * register device so that it can be ifconfig'ed
  161.  * ax25_init() will be called as a side-effect
  162.  * SIDE-EFFECT WARNING: ax25_init() CLEARS axp->ctrl !
  163.  */
  164. if (register_netdev(&axp->dev) == 0) {
  165. /* (Re-)Set the INUSE bit.   Very Important! */
  166. set_bit(AXF_INUSE, &axp->ctrl.flags);
  167. axp->ctrl.dev = &axp->dev;
  168. axp->dev.priv = (void *) &axp->ctrl;
  169. return &axp->ctrl;
  170. } else {
  171. clear_bit(AXF_INUSE,&axp->ctrl.flags);
  172. printk(KERN_ERR "mkiss: ax_alloc() - register_netdev() failure.n");
  173. }
  174. }
  175. return NULL;
  176. }
  177. /* Free an AX25 channel. */
  178. static inline void ax_free(struct ax_disp *ax)
  179. {
  180. /* Free all AX25 frame buffers. */
  181. if (ax->rbuff)
  182. kfree(ax->rbuff);
  183. ax->rbuff = NULL;
  184. if (ax->xbuff)
  185. kfree(ax->xbuff);
  186. ax->xbuff = NULL;
  187. if (!test_and_clear_bit(AXF_INUSE, &ax->flags))
  188. printk(KERN_ERR "mkiss: %s: ax_free for already free unit.n", ax->dev->name);
  189. }
  190. static void ax_changedmtu(struct ax_disp *ax)
  191. {
  192. struct net_device *dev = ax->dev;
  193. unsigned char *xbuff, *rbuff, *oxbuff, *orbuff;
  194. int len;
  195. unsigned long flags;
  196. len = dev->mtu * 2;
  197. /*
  198.  * allow for arrival of larger UDP packets, even if we say not to
  199.  * also fixes a bug in which SunOS sends 512-byte packets even with
  200.  * an MSS of 128
  201.  */
  202. if (len < 576 * 2)
  203. len = 576 * 2;
  204. xbuff = kmalloc(len + 4, GFP_ATOMIC);
  205. rbuff = kmalloc(len + 4, GFP_ATOMIC);
  206. if (xbuff == NULL || rbuff == NULL)  {
  207. printk(KERN_ERR "mkiss: %s: unable to grow ax25 buffers, MTU change cancelled.n",
  208.        ax->dev->name);
  209. dev->mtu = ax->mtu;
  210. if (xbuff != NULL)
  211. kfree(xbuff);
  212. if (rbuff != NULL)
  213. kfree(rbuff);
  214. return;
  215. }
  216. save_flags(flags);
  217. cli();
  218. oxbuff    = ax->xbuff;
  219. ax->xbuff = xbuff;
  220. orbuff    = ax->rbuff;
  221. ax->rbuff = rbuff;
  222. if (ax->xleft) {
  223. if (ax->xleft <= len) {
  224. memcpy(ax->xbuff, ax->xhead, ax->xleft);
  225. } else  {
  226. ax->xleft = 0;
  227. ax->tx_dropped++;
  228. }
  229. }
  230. ax->xhead = ax->xbuff;
  231. if (ax->rcount) {
  232. if (ax->rcount <= len) {
  233. memcpy(ax->rbuff, orbuff, ax->rcount);
  234. } else  {
  235. ax->rcount = 0;
  236. ax->rx_over_errors++;
  237. set_bit(AXF_ERROR, &ax->flags);
  238. }
  239. }
  240. ax->mtu      = dev->mtu + 73;
  241. ax->buffsize = len;
  242. restore_flags(flags);
  243. if (oxbuff != NULL)
  244. kfree(oxbuff);
  245. if (orbuff != NULL)
  246. kfree(orbuff);
  247. }
  248. /* Set the "sending" flag.  This must be atomic. */
  249. static inline void ax_lock(struct ax_disp *ax)
  250. {
  251. netif_stop_queue(ax->dev);
  252. }
  253. /* Clear the "sending" flag.  This must be atomic. */
  254. static inline void ax_unlock(struct ax_disp *ax)
  255. {
  256. netif_start_queue(ax->dev);
  257. }
  258. /* Send one completely decapsulated AX.25 packet to the AX.25 layer. */
  259. static void ax_bump(struct ax_disp *ax)
  260. {
  261. struct ax_disp *tmp_ax;
  262. struct sk_buff *skb;
  263. struct mkiss_channel *mkiss;
  264. int count;
  265.         tmp_ax = ax;
  266. if (ax->rbuff[0] > 0x0f) {
  267. if (ax->mkiss != NULL) {
  268. mkiss= ax->mkiss->tty->driver_data;
  269. if (mkiss->magic == MKISS_DRIVER_MAGIC)
  270. tmp_ax = ax->mkiss;
  271. } else if (ax->rbuff[0] & 0x20) {
  272.         ax->crcmode = CRC_MODE_FLEX;
  273. if (check_crc_flex(ax->rbuff, ax->rcount) < 0) {
  274.         ax->rx_errors++;
  275. return;
  276. }
  277. ax->rcount -= 2;
  278. }
  279.   }
  280. count = ax->rcount;
  281. if ((skb = dev_alloc_skb(count)) == NULL) {
  282. printk(KERN_ERR "mkiss: %s: memory squeeze, dropping packet.n", ax->dev->name);
  283. ax->rx_dropped++;
  284. return;
  285. }
  286. skb->dev      = tmp_ax->dev;
  287. memcpy(skb_put(skb,count), ax->rbuff, count);
  288. skb->mac.raw  = skb->data;
  289. skb->protocol = htons(ETH_P_AX25);
  290. netif_rx(skb);
  291. tmp_ax->rx_packets++;
  292. tmp_ax->rx_bytes+=count;
  293. }
  294. /* Encapsulate one AX.25 packet and stuff into a TTY queue. */
  295. static void ax_encaps(struct ax_disp *ax, unsigned char *icp, int len)
  296. {
  297. unsigned char *p;
  298. int actual, count;
  299. struct mkiss_channel *mkiss = ax->tty->driver_data;
  300. if (ax->mtu != ax->dev->mtu + 73) /* Someone has been ifconfigging */
  301. ax_changedmtu(ax);
  302. if (len > ax->mtu) { /* Sigh, shouldn't occur BUT ... */
  303. len = ax->mtu;
  304. printk(KERN_ERR "mkiss: %s: truncating oversized transmit packet!n", ax->dev->name);
  305. ax->tx_dropped++;
  306. ax_unlock(ax);
  307. return;
  308. }
  309. p = icp;
  310. if (mkiss->magic  != MKISS_DRIVER_MAGIC) {
  311.         switch (ax->crcmode) {
  312.          unsigned short crc;
  313. case CRC_MODE_FLEX:
  314.          *p |= 0x20;
  315.          crc = calc_crc_flex(p, len);
  316.  count = kiss_esc_crc(p, (unsigned char *)ax->xbuff, crc, len+2);
  317.  break;
  318. default:
  319.          count = kiss_esc(p, (unsigned char *)ax->xbuff, len);
  320.  break;
  321. }
  322. ax->tty->flags |= (1 << TTY_DO_WRITE_WAKEUP);
  323. actual = ax->tty->driver.write(ax->tty, 0, ax->xbuff, count);
  324. ax->tx_packets++;
  325. ax->tx_bytes+=actual;
  326. ax->dev->trans_start = jiffies;
  327. ax->xleft = count - actual;
  328. ax->xhead = ax->xbuff + actual;
  329. } else {
  330. count = kiss_esc(p, (unsigned char *) ax->mkiss->xbuff, len);
  331. ax->mkiss->tty->flags |= (1 << TTY_DO_WRITE_WAKEUP);
  332. actual = ax->mkiss->tty->driver.write(ax->mkiss->tty, 0, ax->mkiss->xbuff, count);
  333. ax->tx_packets++;
  334. ax->tx_bytes+=actual;
  335. ax->mkiss->dev->trans_start = jiffies;
  336. ax->mkiss->xleft = count - actual;
  337. ax->mkiss->xhead = ax->mkiss->xbuff + actual;
  338. }
  339. }
  340. /*
  341.  * Called by the driver when there's room for more data.  If we have
  342.  * more packets to send, we send them here.
  343.  */
  344. static void ax25_write_wakeup(struct tty_struct *tty)
  345. {
  346. int actual;
  347. struct ax_disp *ax = (struct ax_disp *) tty->disc_data;
  348. struct mkiss_channel *mkiss;
  349. /* First make sure we're connected. */
  350. if (ax == NULL || ax->magic != AX25_MAGIC || !netif_running(ax->dev))
  351. return;
  352. if (ax->xleft <= 0)  {
  353. /* Now serial buffer is almost free & we can start
  354.  * transmission of another packet
  355.  */
  356. tty->flags &= ~(1 << TTY_DO_WRITE_WAKEUP);
  357. if (ax->mkiss != NULL) {
  358. mkiss= ax->mkiss->tty->driver_data;
  359. if (mkiss->magic  == MKISS_DRIVER_MAGIC)
  360. ax_unlock(ax->mkiss);
  361.         }
  362. netif_wake_queue(ax->dev);
  363. return;
  364. }
  365. actual = tty->driver.write(tty, 0, ax->xhead, ax->xleft);
  366. ax->xleft -= actual;
  367. ax->xhead += actual;
  368. }
  369. /* Encapsulate an AX.25 packet and kick it into a TTY queue. */
  370. static int ax_xmit(struct sk_buff *skb, struct net_device *dev)
  371. {
  372. struct ax_disp *ax = (struct ax_disp *) dev->priv;
  373. struct mkiss_channel *mkiss = ax->tty->driver_data;
  374. struct ax_disp *tmp_ax;
  375. tmp_ax = NULL;
  376. if (mkiss->magic  == MKISS_DRIVER_MAGIC) {
  377. if (skb->data[0] < 0x10)
  378. skb->data[0] = skb->data[0] + 0x10;
  379. tmp_ax = ax->mkiss;
  380. }
  381. if (!netif_running(dev))  {
  382. printk(KERN_ERR "mkiss: %s: xmit call when iface is downn", dev->name);
  383. return 1;
  384. }
  385. if (tmp_ax != NULL)
  386. if (netif_queue_stopped(tmp_ax->dev))
  387. return 1;
  388. if (tmp_ax != NULL)
  389. if (netif_queue_stopped(dev)) {
  390. printk(KERN_ERR "mkiss: dev busy while serial dev is freen");
  391. ax_unlock(ax);
  392.         }
  393. if (netif_queue_stopped(dev)) {
  394. /*
  395.  * May be we must check transmitter timeout here ?
  396.  *      14 Oct 1994 Dmitry Gorodchanin.
  397.  */
  398. if (jiffies - dev->trans_start  < 20 * HZ) {
  399. /* 20 sec timeout not reached */
  400. return 1;
  401. }
  402. printk(KERN_ERR "mkiss: %s: transmit timed out, %s?n", dev->name,
  403.        (ax->tty->driver.chars_in_buffer(ax->tty) || ax->xleft) ?
  404.        "bad line quality" : "driver error");
  405. ax->xleft = 0;
  406. ax->tty->flags &= ~(1 << TTY_DO_WRITE_WAKEUP);
  407. ax_unlock(ax);
  408. }
  409. /* We were not busy, so we are now... :-) */
  410. if (skb != NULL) {
  411. ax_lock(ax);
  412. if (tmp_ax != NULL)
  413. ax_lock(tmp_ax);
  414. ax_encaps(ax, skb->data, skb->len);
  415. kfree_skb(skb);
  416. }
  417. return 0;
  418. }
  419. #if defined(CONFIG_AX25) || defined(CONFIG_AX25_MODULE)
  420. /* Return the frame type ID */
  421. static int ax_header(struct sk_buff *skb, struct net_device *dev, unsigned short type,
  422.   void *daddr, void *saddr, unsigned len)
  423. {
  424. #ifdef CONFIG_INET
  425. if (type != htons(ETH_P_AX25))
  426. return ax25_encapsulate(skb, dev, type, daddr, saddr, len);
  427. #endif
  428. return 0;
  429. }
  430. static int ax_rebuild_header(struct sk_buff *skb)
  431. {
  432. #ifdef CONFIG_INET
  433. return ax25_rebuild_header(skb);
  434. #else
  435. return 0;
  436. #endif
  437. }
  438. #endif /* CONFIG_{AX25,AX25_MODULE} */
  439. /* Open the low-level part of the AX25 channel. Easy! */
  440. static int ax_open(struct net_device *dev)
  441. {
  442. struct ax_disp *ax = (struct ax_disp *) dev->priv;
  443. unsigned long len;
  444. if (ax->tty == NULL)
  445. return -ENODEV;
  446. /*
  447.  * Allocate the frame buffers:
  448.  *
  449.  * rbuff Receive buffer.
  450.  * xbuff Transmit buffer.
  451.  */
  452. len = dev->mtu * 2;
  453. /*
  454.  * allow for arrival of larger UDP packets, even if we say not to
  455.  * also fixes a bug in which SunOS sends 512-byte packets even with
  456.  * an MSS of 128
  457.  */
  458. if (len < 576 * 2)
  459. len = 576 * 2;
  460. if ((ax->rbuff = kmalloc(len + 4, GFP_KERNEL)) == NULL)
  461. goto norbuff;
  462. if ((ax->xbuff = kmalloc(len + 4, GFP_KERNEL)) == NULL)
  463. goto noxbuff;
  464. ax->mtu      = dev->mtu + 73;
  465. ax->buffsize = len;
  466. ax->rcount   = 0;
  467. ax->xleft    = 0;
  468. ax->flags   &= (1 << AXF_INUSE);      /* Clear ESCAPE & ERROR flags */
  469. netif_start_queue(dev);
  470. return 0;
  471. noxbuff:
  472. kfree(ax->rbuff);
  473. norbuff:
  474. return -ENOMEM;
  475. }
  476. /* Close the low-level part of the AX25 channel. Easy! */
  477. static int ax_close(struct net_device *dev)
  478. {
  479. struct ax_disp *ax = (struct ax_disp *) dev->priv;
  480. if (ax->tty == NULL)
  481. return -EBUSY;
  482. ax->tty->flags &= ~(1 << TTY_DO_WRITE_WAKEUP);
  483. netif_stop_queue(dev);
  484. return 0;
  485. }
  486. static int ax25_receive_room(struct tty_struct *tty)
  487. {
  488. return 65536;  /* We can handle an infinite amount of data. :-) */
  489. }
  490. /*
  491.  * Handle the 'receiver data ready' interrupt.
  492.  * This function is called by the 'tty_io' module in the kernel when
  493.  * a block of data has been received, which can now be decapsulated
  494.  * and sent on to the AX.25 layer for further processing.
  495.  */
  496. static void ax25_receive_buf(struct tty_struct *tty, const unsigned char *cp, char *fp, int count)
  497. {
  498. struct ax_disp *ax = (struct ax_disp *) tty->disc_data;
  499. if (ax == NULL || ax->magic != AX25_MAGIC || !netif_running(ax->dev))
  500. return;
  501. /*
  502.  * Argh! mtu change time! - costs us the packet part received
  503.  * at the change
  504.  */
  505. if (ax->mtu != ax->dev->mtu + 73)
  506. ax_changedmtu(ax);
  507. /* Read the characters out of the buffer */
  508. while (count--) {
  509. if (fp != NULL && *fp++) {
  510. if (!test_and_set_bit(AXF_ERROR, &ax->flags))
  511. ax->rx_errors++;
  512. cp++;
  513. continue;
  514. }
  515. kiss_unesc(ax, *cp++);
  516. }
  517. }
  518. static int ax25_open(struct tty_struct *tty)
  519. {
  520. struct ax_disp *ax = (struct ax_disp *) tty->disc_data;
  521. struct ax_disp *tmp_ax;
  522. struct mkiss_channel *mkiss;
  523. int err, cnt;
  524. /* First make sure we're not already connected. */
  525. if (ax && ax->magic == AX25_MAGIC)
  526. return -EEXIST;
  527. /* OK.  Find a free AX25 channel to use. */
  528. if ((ax = ax_alloc()) == NULL)
  529. return -ENFILE;
  530. ax->tty = tty;
  531. tty->disc_data = ax;
  532. ax->mkiss = NULL;
  533. tmp_ax    = NULL;
  534. if (tty->driver.flush_buffer)
  535. tty->driver.flush_buffer(tty);
  536. if (tty->ldisc.flush_buffer)
  537. tty->ldisc.flush_buffer(tty);
  538. /* Restore default settings */
  539. ax->dev->type = ARPHRD_AX25;
  540. /* Perform the low-level AX25 initialization. */
  541. if ((err = ax_open(ax->dev)))
  542. return err;
  543. mkiss = ax->tty->driver_data;
  544. if (mkiss->magic  == MKISS_DRIVER_MAGIC) {
  545. for (cnt = 1; cnt < ax25_maxdev; cnt++) {
  546. if (ax25_ctrls[cnt]) {
  547. if (netif_running(&ax25_ctrls[cnt]->dev)) {
  548. if (ax == &ax25_ctrls[cnt]->ctrl) {
  549. cnt--;
  550. tmp_ax = &ax25_ctrls[cnt]->ctrl;
  551. break;
  552. }
  553. }
  554. }
  555. }
  556. }
  557. if (tmp_ax != NULL) {
  558. ax->mkiss     = tmp_ax;
  559. tmp_ax->mkiss = ax;
  560. }
  561. MOD_INC_USE_COUNT;
  562. /* Done.  We have linked the TTY line to a channel. */
  563. return ax->dev->base_addr;
  564. }
  565. static void ax25_close(struct tty_struct *tty)
  566. {
  567. struct ax_disp *ax = (struct ax_disp *) tty->disc_data;
  568. /* First make sure we're connected. */
  569. if (ax == NULL || ax->magic != AX25_MAGIC)
  570. return;
  571. unregister_netdev(ax->dev);
  572. tty->disc_data = 0;
  573. ax->tty        = NULL;
  574. ax_free(ax);
  575. MOD_DEC_USE_COUNT;
  576. }
  577. static struct net_device_stats *ax_get_stats(struct net_device *dev)
  578. {
  579. static struct net_device_stats stats;
  580. struct ax_disp *ax = (struct ax_disp *) dev->priv;
  581. memset(&stats, 0, sizeof(struct net_device_stats));
  582. stats.rx_packets     = ax->rx_packets;
  583. stats.tx_packets     = ax->tx_packets;
  584. stats.rx_bytes      = ax->rx_bytes;
  585. stats.tx_bytes       = ax->tx_bytes;
  586. stats.rx_dropped     = ax->rx_dropped;
  587. stats.tx_dropped     = ax->tx_dropped;
  588. stats.tx_errors      = ax->tx_errors;
  589. stats.rx_errors      = ax->rx_errors;
  590. stats.rx_over_errors = ax->rx_over_errors;
  591. return &stats;
  592. }
  593. /************************************************************************
  594.  *    STANDARD ENCAPSULATION           *
  595.  ************************************************************************/
  596. static int kiss_esc(unsigned char *s, unsigned char *d, int len)
  597. {
  598. unsigned char *ptr = d;
  599. unsigned char c;
  600. /*
  601.  * Send an initial END character to flush out any
  602.  * data that may have accumulated in the receiver
  603.  * due to line noise.
  604.  */
  605. *ptr++ = END;
  606. while (len-- > 0) {
  607. switch (c = *s++) {
  608. case END:
  609. *ptr++ = ESC;
  610. *ptr++ = ESC_END;
  611. break;
  612. case ESC:
  613. *ptr++ = ESC;
  614. *ptr++ = ESC_ESC;
  615. break;
  616. default:
  617. *ptr++ = c;
  618. break;
  619. }
  620. }
  621. *ptr++ = END;
  622. return ptr - d;
  623. }
  624. /*
  625.  * MW:
  626.  * OK its ugly, but tell me a better solution without copying the
  627.  * packet to a temporary buffer :-)
  628.  */
  629. static int kiss_esc_crc(unsigned char *s, unsigned char *d, unsigned short crc, int len)
  630. {
  631. unsigned char *ptr = d;
  632. unsigned char c=0;
  633. *ptr++ = END;
  634. while (len > 0) {
  635. if (len > 2) 
  636. c = *s++;
  637. else if (len > 1)
  638. c = crc >> 8;
  639. else if (len > 0)
  640. c = crc & 0xff;
  641. len--;
  642. switch (c) {
  643.                         case END:
  644.                                 *ptr++ = ESC;
  645.                                 *ptr++ = ESC_END;
  646.                                 break;
  647.                         case ESC:
  648.                                 *ptr++ = ESC;
  649.                                 *ptr++ = ESC_ESC;
  650.                                 break;
  651.                         default:
  652.                                 *ptr++ = c;
  653.                                 break;
  654. }
  655. }
  656. *ptr++ = END;
  657. return ptr - d;
  658. }
  659. static void kiss_unesc(struct ax_disp *ax, unsigned char s)
  660. {
  661. switch (s) {
  662. case END:
  663. /* drop keeptest bit = VSV */
  664. if (test_bit(AXF_KEEPTEST, &ax->flags))
  665. clear_bit(AXF_KEEPTEST, &ax->flags);
  666. if (!test_and_clear_bit(AXF_ERROR, &ax->flags) && (ax->rcount > 2))
  667. ax_bump(ax);
  668. clear_bit(AXF_ESCAPE, &ax->flags);
  669. ax->rcount = 0;
  670. return;
  671. case ESC:
  672. set_bit(AXF_ESCAPE, &ax->flags);
  673. return;
  674. case ESC_ESC:
  675. if (test_and_clear_bit(AXF_ESCAPE, &ax->flags))
  676. s = ESC;
  677. break;
  678. case ESC_END:
  679. if (test_and_clear_bit(AXF_ESCAPE, &ax->flags))
  680. s = END;
  681. break;
  682. }
  683. if (!test_bit(AXF_ERROR, &ax->flags)) {
  684. if (ax->rcount < ax->buffsize) {
  685. ax->rbuff[ax->rcount++] = s;
  686. return;
  687. }
  688. ax->rx_over_errors++;
  689. set_bit(AXF_ERROR, &ax->flags);
  690. }
  691. }
  692. static int ax_set_mac_address(struct net_device *dev, void *addr)
  693. {
  694. if (copy_from_user(dev->dev_addr, addr, AX25_ADDR_LEN))
  695. return -EFAULT;
  696. return 0;
  697. }
  698. static int ax_set_dev_mac_address(struct net_device *dev, void *addr)
  699. {
  700. struct sockaddr *sa = addr;
  701. memcpy(dev->dev_addr, sa->sa_data, AX25_ADDR_LEN);
  702. return 0;
  703. }
  704. /* Perform I/O control on an active ax25 channel. */
  705. static int ax25_disp_ioctl(struct tty_struct *tty, void *file, int cmd, void *arg)
  706. {
  707. struct ax_disp *ax = (struct ax_disp *) tty->disc_data;
  708. unsigned int tmp;
  709. /* First make sure we're connected. */
  710. if (ax == NULL || ax->magic != AX25_MAGIC)
  711. return -EINVAL;
  712. switch (cmd) {
  713.   case SIOCGIFNAME:
  714. if (copy_to_user(arg, ax->dev->name, strlen(ax->dev->name) + 1))
  715. return -EFAULT;
  716. return 0;
  717. case SIOCGIFENCAP:
  718. return put_user(4, (int *)arg);
  719. case SIOCSIFENCAP:
  720. if (get_user(tmp, (int *)arg))
  721. return -EFAULT;
  722. ax->mode = tmp;
  723. ax->dev->addr_len        = AX25_ADDR_LEN;   /* sizeof an AX.25 addr */
  724. ax->dev->hard_header_len = AX25_KISS_HEADER_LEN + AX25_MAX_HEADER_LEN + 3;
  725. ax->dev->type            = ARPHRD_AX25;
  726. return 0;
  727.  case SIOCSIFHWADDR:
  728. return ax_set_mac_address(ax->dev, arg);
  729. default:
  730. return -ENOIOCTLCMD;
  731. }
  732. }
  733. static int ax_open_dev(struct net_device *dev)
  734. {
  735. struct ax_disp *ax = (struct ax_disp *) dev->priv;
  736. if (ax->tty == NULL)
  737. return -ENODEV;
  738. return 0;
  739. }
  740. /* Initialize the driver.  Called by network startup. */
  741. static int ax25_init(struct net_device *dev)
  742. {
  743. struct ax_disp *ax = (struct ax_disp *) dev->priv;
  744. static char ax25_bcast[AX25_ADDR_LEN] =
  745. {'Q'<<1,'S'<<1,'T'<<1,' '<<1,' '<<1,' '<<1,'0'<<1};
  746. static char ax25_test[AX25_ADDR_LEN] =
  747. {'L'<<1,'I'<<1,'N'<<1,'U'<<1,'X'<<1,' '<<1,'1'<<1};
  748. if (ax == NULL) /* Allocation failed ?? */
  749. return -ENODEV;
  750. /* Set up the "AX25 Control Block". (And clear statistics) */
  751. memset(ax, 0, sizeof (struct ax_disp));
  752. ax->magic  = AX25_MAGIC;
  753. ax->dev    = dev;
  754. /* Finish setting up the DEVICE info. */
  755. dev->mtu             = AX_MTU;
  756. dev->hard_start_xmit = ax_xmit;
  757. dev->open            = ax_open_dev;
  758. dev->stop            = ax_close;
  759. dev->get_stats      = ax_get_stats;
  760. dev->set_mac_address = ax_set_dev_mac_address;
  761. dev->hard_header_len = 0;
  762. dev->addr_len        = 0;
  763. dev->type            = ARPHRD_AX25;
  764. dev->tx_queue_len    = 10;
  765. dev->hard_header     = ax_header;
  766. dev->rebuild_header  = ax_rebuild_header;
  767. memcpy(dev->broadcast, ax25_bcast, AX25_ADDR_LEN);
  768. memcpy(dev->dev_addr,  ax25_test,  AX25_ADDR_LEN);
  769. /* New-style flags. */
  770. dev->flags      = IFF_BROADCAST | IFF_MULTICAST;
  771. return 0;
  772. }
  773. /* ******************************************************************** */
  774. /* * Init MKISS driver       * */
  775. /* ******************************************************************** */
  776. static int __init mkiss_init_driver(void)
  777. {
  778. int status;
  779. printk(banner);
  780. if (ax25_maxdev < 4)
  781.   ax25_maxdev = 4; /* Sanity */
  782. if ((ax25_ctrls = kmalloc(sizeof(void *) * ax25_maxdev, GFP_KERNEL)) == NULL) {
  783. printk(KERN_ERR "mkiss: Can't allocate ax25_ctrls[] array!n");
  784. return -ENOMEM;
  785. }
  786. /* Clear the pointer array, we allocate devices when we need them */
  787. memset(ax25_ctrls, 0, sizeof(void*) * ax25_maxdev); /* Pointers */
  788. /* Fill in our line protocol discipline, and register it */
  789. ax_ldisc.magic = TTY_LDISC_MAGIC;
  790. ax_ldisc.name = "mkiss";
  791. ax_ldisc.open = ax25_open;
  792. ax_ldisc.close = ax25_close;
  793. ax_ldisc.ioctl = (int (*)(struct tty_struct *, struct file *,
  794. unsigned int, unsigned long))ax25_disp_ioctl;
  795. ax_ldisc.receive_buf = ax25_receive_buf;
  796. ax_ldisc.receive_room = ax25_receive_room;
  797. ax_ldisc.write_wakeup = ax25_write_wakeup;
  798. if ((status = tty_register_ldisc(N_AX25, &ax_ldisc)) != 0) {
  799. printk(KERN_ERR "mkiss: can't register line discipline (err = %d)n", status);
  800. kfree(ax25_ctrls);
  801. }
  802. return status;
  803. }
  804. static void __exit mkiss_exit_driver(void)
  805. {
  806. int i;
  807. for (i = 0; i < ax25_maxdev; i++) {
  808. if (ax25_ctrls[i]) {
  809. /*
  810. * VSV = if dev->start==0, then device
  811. * unregistered while close proc.
  812. */
  813. if (netif_running(&ax25_ctrls[i]->dev))
  814. unregister_netdev(&ax25_ctrls[i]->dev);
  815. kfree(ax25_ctrls[i]);
  816. }
  817. }
  818. kfree(ax25_ctrls);
  819. ax25_ctrls = NULL;
  820. if ((i = tty_register_ldisc(N_AX25, NULL)))
  821. printk(KERN_ERR "mkiss: can't unregister line discipline (err = %d)n", i);
  822. }
  823. MODULE_AUTHOR("Hans Albas PE1AYX <hans@esrac.ele.tue.nl>");
  824. MODULE_DESCRIPTION("KISS driver for AX.25 over TTYs");
  825. MODULE_PARM(ax25_maxdev, "i");
  826. MODULE_PARM_DESC(ax25_maxdev, "number of MKISS devices");
  827. MODULE_LICENSE("GPL");
  828. module_init(mkiss_init_driver);
  829. module_exit(mkiss_exit_driver);