patch-2.4.0-test3 linux/drivers/ieee1394/video1394.c

Next file: linux/drivers/ieee1394/video1394.h
Previous file: linux/drivers/ieee1394/raw1394.h
Back to the patch index
Back to the overall index

diff -u --recursive --new-file v2.4.0-test2/linux/drivers/ieee1394/video1394.c linux/drivers/ieee1394/video1394.c
@@ -0,0 +1,1266 @@
+/*
+ * video1394.c - video driver for OHCI 1394 boards
+ * Copyright (C)1999,2000 Sebastien Rougeaux <sebastien.rougeaux@anu.edu.au>
+ *
+ * This program is free software; you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation; either version 2 of the License, or
+ * (at your option) any later version.
+ *
+ * This program is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with this program; if not, write to the Free Software Foundation,
+ * Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+ */
+
+#include <linux/config.h>
+#include <linux/kernel.h>
+#include <linux/slab.h>
+#include <linux/interrupt.h>
+#include <linux/wait.h>
+#include <linux/errno.h>
+#include <linux/module.h>
+#include <linux/pci.h>
+#include <linux/fs.h>
+#include <linux/poll.h>
+#include <asm/byteorder.h>
+#include <asm/atomic.h>
+#include <asm/io.h>
+#include <asm/uaccess.h>
+#include <linux/proc_fs.h>
+#include <linux/tqueue.h>
+#include <linux/delay.h>
+
+#include <asm/pgtable.h>
+#include <asm/page.h>
+#include <linux/sched.h>
+#include <asm/segment.h>
+#include <linux/types.h>
+#include <linux/wrapper.h>
+#include <linux/vmalloc.h>
+
+#include "ieee1394.h"
+#include "ieee1394_types.h"
+#include "hosts.h"
+#include "ieee1394_core.h"
+#include "video1394.h"
+
+#include "ohci1394.h"
+
+#define VIDEO1394_MAJOR 172
+#define ISO_CHANNELS 64
+#define ISO_RECEIVE 0
+#define ISO_TRANSMIT 1
+
+struct it_dma_prg {
+	struct dma_cmd begin;
+	quadlet_t data[4];
+	struct dma_cmd end;
+	quadlet_t pad[4]; /* FIXME: quick hack for memory alignment */
+};
+
+struct dma_iso_ctx {
+	struct ti_ohci *ohci;
+	int ctx;
+	int channel;
+	int last_buffer;
+	unsigned int num_desc;
+	unsigned int buf_size;
+	unsigned int frame_size;
+	unsigned int packet_size;
+	unsigned int left_size;
+	unsigned int nb_cmd;
+	unsigned char *buf;
+        struct dma_cmd **ir_prg;
+	struct it_dma_prg **it_prg;
+	unsigned int *buffer_status;
+	int ctrlClear;
+	int ctrlSet;
+	int cmdPtr;
+	int ctxMatch;
+	wait_queue_head_t waitq;
+};
+
+struct video_card {
+	struct ti_ohci *ohci;
+
+	struct dma_iso_ctx **ir_context;
+	struct dma_iso_ctx **it_context;
+	struct dma_iso_ctx *current_ctx;
+};
+
+#ifdef CONFIG_IEEE1394_VERBOSEDEBUG
+#define VIDEO1394_DEBUG
+#endif
+
+#ifdef DBGMSG
+#undef DBGMSG
+#endif
+
+#ifdef VIDEO1394_DEBUG
+#define DBGMSG(card, fmt, args...) \
+printk(KERN_INFO "video1394_%d: " fmt "\n" , card , ## args)
+#else
+#define DBGMSG(card, fmt, args...)
+#endif
+
+/* print general (card independent) information */
+#define PRINT_G(level, fmt, args...) \
+printk(level "video1394: " fmt "\n" , ## args)
+
+/* print card specific information */
+#define PRINT(level, card, fmt, args...) \
+printk(level "video1394_%d: " fmt "\n" , card , ## args)
+
+void irq_handler(int card, quadlet_t isoRecvIntEvent, 
+		 quadlet_t isoXmitIntEvent);
+
+static struct video_card video_cards[MAX_OHCI1394_CARDS];
+static int num_of_video_cards = 0;
+static struct video_template video_tmpl = { irq_handler };
+
+/* Taken from bttv.c */
+/*******************************/
+/* Memory management functions */
+/*******************************/
+
+#define MDEBUG(x)	do { } while(0)		/* Debug memory management */
+
+/* [DaveM] I've recoded most of this so that:
+ * 1) It's easier to tell what is happening
+ * 2) It's more portable, especially for translating things
+ *    out of vmalloc mapped areas in the kernel.
+ * 3) Less unnecessary translations happen.
+ *
+ * The code used to assume that the kernel vmalloc mappings
+ * existed in the page tables of every process, this is simply
+ * not guarenteed.  We now use pgd_offset_k which is the
+ * defined way to get at the kernel page tables.
+ */
+
+#if LINUX_VERSION_CODE < KERNEL_VERSION(2,3,0)
+#define page_address(x)	(x)
+#endif
+
+/* Given PGD from the address space's page table, return the kernel
+ * virtual mapping of the physical memory mapped at ADR.
+ */
+static inline unsigned long uvirt_to_kva(pgd_t *pgd, unsigned long adr)
+{
+        unsigned long ret = 0UL;
+	pmd_t *pmd;
+	pte_t *ptep, pte;
+  
+	if (!pgd_none(*pgd)) {
+                pmd = pmd_offset(pgd, adr);
+                if (!pmd_none(*pmd)) {
+                        ptep = pte_offset(pmd, adr);
+                        pte = *ptep;
+                        if(pte_present(pte))
+				ret = (page_address(pte_page(pte))|
+				       (adr&(PAGE_SIZE-1)));
+                }
+        }
+        MDEBUG(printk("uv2kva(%lx-->%lx)", adr, ret));
+	return ret;
+}
+
+static inline unsigned long uvirt_to_bus(unsigned long adr) 
+{
+        unsigned long kva, ret;
+
+        kva = uvirt_to_kva(pgd_offset(current->mm, adr), adr);
+	ret = virt_to_bus((void *)kva);
+        MDEBUG(printk("uv2b(%lx-->%lx)", adr, ret));
+        return ret;
+}
+
+static inline unsigned long kvirt_to_bus(unsigned long adr) 
+{
+        unsigned long va, kva, ret;
+
+        va = VMALLOC_VMADDR(adr);
+        kva = uvirt_to_kva(pgd_offset_k(va), va);
+	ret = virt_to_bus((void *)kva);
+        MDEBUG(printk("kv2b(%lx-->%lx)", adr, ret));
+        return ret;
+}
+
+/* Here we want the physical address of the memory.
+ * This is used when initializing the contents of the
+ * area and marking the pages as reserved.
+ */
+static inline unsigned long kvirt_to_pa(unsigned long adr) 
+{
+        unsigned long va, kva, ret;
+
+        va = VMALLOC_VMADDR(adr);
+        kva = uvirt_to_kva(pgd_offset_k(va), va);
+	ret = __pa(kva);
+        MDEBUG(printk("kv2pa(%lx-->%lx)", adr, ret));
+        return ret;
+}
+
+static void * rvmalloc(unsigned long size)
+{
+	void * mem;
+	unsigned long adr, page;
+        
+	mem=vmalloc(size);
+	if (mem) 
+	{
+		memset(mem, 0, size); /* Clear the ram out, 
+					 no junk to the user */
+	        adr=(unsigned long) mem;
+		while (size > 0) 
+                {
+	                page = kvirt_to_pa(adr);
+			mem_map_reserve(MAP_NR(__va(page)));
+			adr+=PAGE_SIZE;
+			size-=PAGE_SIZE;
+		}
+	}
+	return mem;
+}
+
+static void rvfree(void * mem, unsigned long size)
+{
+        unsigned long adr, page;
+        
+	if (mem) 
+	{
+	        adr=(unsigned long) mem;
+		while (size > 0) 
+                {
+	                page = kvirt_to_pa(adr);
+			mem_map_unreserve(MAP_NR(__va(page)));
+			adr+=PAGE_SIZE;
+			size-=PAGE_SIZE;
+		}
+		vfree(mem);
+	}
+}
+
+static int free_dma_iso_ctx(struct dma_iso_ctx **d)
+{
+	int i;
+	struct ti_ohci *ohci;
+	
+	if ((*d)==NULL) return -1;
+
+	ohci = (struct ti_ohci *)(*d)->ohci;
+
+	DBGMSG(ohci->id, "Freeing dma_iso_ctx %d", (*d)->ctx);
+
+	ohci1394_stop_context(ohci, (*d)->ctrlClear, NULL);
+
+	if ((*d)->buf) rvfree((void *)(*d)->buf, 
+			      (*d)->num_desc * (*d)->buf_size);
+
+	if ((*d)->ir_prg) {
+		for (i=0;i<(*d)->num_desc;i++) 
+			if ((*d)->ir_prg[i]) kfree((*d)->ir_prg[i]);
+		kfree((*d)->ir_prg);
+	}
+
+	if ((*d)->it_prg) {
+		for (i=0;i<(*d)->num_desc;i++) 
+			if ((*d)->it_prg[i]) kfree((*d)->it_prg[i]);
+		kfree((*d)->it_prg);
+	}
+
+	if ((*d)->buffer_status)
+		kfree((*d)->buffer_status);
+	
+	kfree(*d);
+	*d = NULL;
+
+	return 0;
+}
+
+static struct dma_iso_ctx *
+alloc_dma_iso_ctx(struct ti_ohci *ohci, int type, int ctx, int num_desc,
+		  int buf_size, int channel, unsigned int packet_size)
+{
+	struct dma_iso_ctx *d=NULL;
+	int i;
+
+	d = (struct dma_iso_ctx *)kmalloc(sizeof(struct dma_iso_ctx), 
+					  GFP_KERNEL);
+	memset(d, 0, sizeof(struct dma_iso_ctx));
+
+	if (d==NULL) {
+		PRINT(KERN_ERR, ohci->id, "failed to allocate dma_iso_ctx");
+		return NULL;
+	}
+
+	d->ohci = (void *)ohci;
+	d->ctx = ctx;
+	d->channel = channel;
+	d->num_desc = num_desc;
+	d->frame_size = buf_size;
+	if (buf_size%PAGE_SIZE) 
+		d->buf_size = buf_size + PAGE_SIZE - (buf_size%PAGE_SIZE);
+	else
+		d->buf_size = buf_size;
+	d->last_buffer = -1;
+	d->buf = NULL;
+	d->ir_prg = NULL;
+	init_waitqueue_head(&d->waitq);
+
+	d->buf = rvmalloc(d->num_desc * d->buf_size);
+
+	if (d->buf == NULL) {
+		PRINT(KERN_ERR, ohci->id, "failed to allocate dma buffer");
+		free_dma_iso_ctx(&d);
+		return NULL;
+	}
+	memset(d->buf, 0, d->num_desc * d->buf_size);
+
+	if (type == ISO_RECEIVE) {
+		d->ctrlSet = OHCI1394_IsoRcvContextControlSet+32*d->ctx;
+		d->ctrlClear = OHCI1394_IsoRcvContextControlClear+32*d->ctx;
+		d->cmdPtr = OHCI1394_IsoRcvCommandPtr+32*d->ctx;
+		d->ctxMatch = OHCI1394_IsoRcvContextMatch+32*d->ctx;
+
+		d->ir_prg = kmalloc(d->num_desc * sizeof(struct dma_cmd *), 
+				    GFP_KERNEL);
+
+		if (d->ir_prg == NULL) {
+			PRINT(KERN_ERR, ohci->id, 
+			      "failed to allocate dma ir prg");
+			free_dma_iso_ctx(&d);
+			return NULL;
+		}
+		memset(d->ir_prg, 0, d->num_desc * sizeof(struct dma_cmd *));
+	
+		d->nb_cmd = d->buf_size / PAGE_SIZE + 1;
+		d->left_size = (d->frame_size % PAGE_SIZE) ?
+			d->frame_size % PAGE_SIZE : PAGE_SIZE;
+
+		for (i=0;i<d->num_desc;i++) {
+			d->ir_prg[i] = kmalloc(d->nb_cmd * 
+					       sizeof(struct dma_cmd), 
+					       GFP_KERNEL);
+			if (d->ir_prg[i] == NULL) {
+				PRINT(KERN_ERR, ohci->id, 
+				      "failed to allocate dma ir prg");
+				free_dma_iso_ctx(&d);
+				return NULL;
+			}
+		}
+	}
+	else {  /* ISO_TRANSMIT */
+		d->ctrlSet = OHCI1394_IsoXmitContextControlSet+16*d->ctx;
+		d->ctrlClear = OHCI1394_IsoXmitContextControlClear+16*d->ctx;
+		d->cmdPtr = OHCI1394_IsoXmitCommandPtr+16*d->ctx;
+
+		d->it_prg = kmalloc(d->num_desc * sizeof(struct it_dma_prg *), 
+				    GFP_KERNEL);
+
+		if (d->it_prg == NULL) {
+			PRINT(KERN_ERR, ohci->id, 
+			      "failed to allocate dma it prg");
+			free_dma_iso_ctx(&d);
+			return NULL;
+		}
+		memset(d->it_prg, 0, d->num_desc*sizeof(struct it_dma_prg *));
+		
+		d->packet_size = packet_size;
+
+		if (PAGE_SIZE % packet_size || packet_size>2048) {
+			PRINT(KERN_ERR, ohci->id, 
+			      "Packet size %d not yet supported\n",
+			      packet_size);
+			free_dma_iso_ctx(&d);
+			return NULL;
+		}
+
+		d->nb_cmd = d->frame_size / d->packet_size;
+		if (d->frame_size % d->packet_size) {
+			d->nb_cmd++;
+			d->left_size = d->frame_size % d->packet_size;
+		}
+		else
+			d->left_size = d->packet_size;
+
+		for (i=0;i<d->num_desc;i++) {
+			d->it_prg[i] = kmalloc(d->nb_cmd * 
+					       sizeof(struct it_dma_prg), 
+					       GFP_KERNEL);
+			if (d->it_prg[i] == NULL) {
+				PRINT(KERN_ERR, ohci->id, 
+				      "failed to allocate dma it prg");
+				free_dma_iso_ctx(&d);
+				return NULL;
+			}
+		}
+	}
+
+	d->buffer_status = kmalloc(d->num_desc * sizeof(unsigned int),
+				   GFP_KERNEL);
+
+	if (d->buffer_status == NULL) {
+		PRINT(KERN_ERR, ohci->id, "failed to allocate dma ir prg");
+		free_dma_iso_ctx(&d);
+		return NULL;
+	}
+	memset(d->buffer_status, 0, d->num_desc * sizeof(unsigned int));
+	
+	PRINT(KERN_INFO, ohci->id, "Iso %s DMA: %d buffers "
+	      "of size %d allocated for a frame size %d, each with %d prgs",
+	      (type==ISO_RECEIVE) ? "receive" : "transmit",
+	      d->num_desc, d->buf_size, d->frame_size, d->nb_cmd);
+
+	return d;
+}
+
+static void reset_ir_status(struct dma_iso_ctx *d, int n)
+{
+	int i;
+	d->ir_prg[n][0].status = 4;
+	d->ir_prg[n][1].status = PAGE_SIZE-4;
+	for (i=2;i<d->nb_cmd-1;i++)
+		d->ir_prg[n][i].status = PAGE_SIZE;
+	d->ir_prg[n][i].status = d->left_size;
+}
+
+static void initialize_dma_ir_prg(struct dma_iso_ctx *d, int n)
+{
+	struct dma_cmd *ir_prg = d->ir_prg[n];
+	unsigned long buf = (unsigned long)d->buf+n*d->buf_size;
+	int i;
+	
+	/* the first descriptor will sync and read only 4 bytes */
+	ir_prg[0].control = (0x280F << 16) | 4;
+	ir_prg[0].address = kvirt_to_bus(buf);
+	ir_prg[0].branchAddress =  (virt_to_bus(&(ir_prg[1].control)) 
+				    & 0xfffffff0) | 0x1;
+
+	/* the second descriptor will read PAGE_SIZE-4 bytes */
+	ir_prg[1].control = (0x280C << 16) | (PAGE_SIZE-4);
+	ir_prg[1].address = kvirt_to_bus(buf+4);
+	ir_prg[1].branchAddress =  (virt_to_bus(&(ir_prg[2].control)) 
+				    & 0xfffffff0) | 0x1;
+	
+	for (i=2;i<d->nb_cmd-1;i++) {
+		ir_prg[i].control = (0x280C << 16) | PAGE_SIZE;
+		ir_prg[i].address = kvirt_to_bus(buf+(i-1)*PAGE_SIZE);
+
+		ir_prg[i].branchAddress =  
+			(virt_to_bus(&(ir_prg[i+1].control)) 
+			 & 0xfffffff0) | 0x1;
+	}
+
+	/* the last descriptor will generate an interrupt */
+	ir_prg[i].control = (0x283C << 16) | d->left_size;
+	ir_prg[i].address = kvirt_to_bus(buf+(i-1)*PAGE_SIZE);
+}
+	
+static void initialize_dma_ir_ctx(struct dma_iso_ctx *d, int tag)
+{
+	struct ti_ohci *ohci = (struct ti_ohci *)d->ohci;
+	int i;
+
+	ohci1394_stop_context(ohci, d->ctrlClear, NULL);
+
+	for (i=0;i<d->num_desc;i++) {
+		initialize_dma_ir_prg(d, i);
+		reset_ir_status(d, i);
+	}
+	
+	/* Set bufferFill, no header */
+	reg_write(ohci, d->ctrlSet, 0x80000000);
+			
+	/* Set the context match register to match on all tags, 
+	   sync for sync tag, and listen to d->channel */
+	reg_write(ohci, d->ctxMatch, 0xf0000000|((tag&0xf)<<8)|d->channel);
+	
+	/* Set up isoRecvIntMask to generate interrupts */
+	reg_write(ohci, OHCI1394_IsoRecvIntMaskSet, 1<<d->ctx);
+}
+
+/* find which context is listening to this channel */
+int ir_ctx_listening(struct video_card *video, int channel)
+{
+	int i;
+	struct ti_ohci *ohci = video->ohci;
+
+	for (i=0;i<ohci->nb_iso_rcv_ctx-1;i++) 
+		if (video->ir_context[i]) {
+			if (video->ir_context[i]->channel==channel)
+				return i;
+		}
+		
+	PRINT(KERN_ERR, ohci->id, 
+	      "no iso context is listening to channel %d",
+	      channel);
+	return -1;
+}
+
+int it_ctx_talking(struct video_card *video, int channel)
+{
+	int i;
+	struct ti_ohci *ohci = video->ohci;
+
+	for (i=0;i<ohci->nb_iso_xmit_ctx;i++) 
+		if (video->it_context[i]) {
+			if (video->it_context[i]->channel==channel)
+				return i;
+		}
+		
+	PRINT(KERN_ERR, ohci->id, 
+	      "no iso context is talking to channel %d",
+	      channel);
+	return -1;
+}
+
+int wakeup_dma_ir_ctx(struct ti_ohci *ohci, struct dma_iso_ctx *d) 
+{
+	int i;
+
+	if (d==NULL) {
+		PRINT(KERN_ERR, ohci->id, "Iso receive event received but "
+		      "context not allocated");
+		return -EFAULT;
+	}
+
+	for (i=0;i<d->num_desc;i++) {
+		if (d->ir_prg[i][d->nb_cmd-1].status & 0xFFFF0000) {
+			reset_ir_status(d, i);
+			d->buffer_status[i] = VIDEO1394_BUFFER_READY;
+		}
+	}
+	if (waitqueue_active(&d->waitq)) wake_up_interruptible(&d->waitq);
+	return 0;
+}
+
+int wakeup_dma_it_ctx(struct ti_ohci *ohci, struct dma_iso_ctx *d) 
+{
+	int i;
+
+	if (d==NULL) {
+		PRINT(KERN_ERR, ohci->id, "Iso transmit event received but "
+		      "context not allocated");
+		return -EFAULT;
+	}
+
+	for (i=0;i<d->num_desc;i++) {
+		if (d->it_prg[i][d->nb_cmd-1].end.status & 0xFFFF0000) {
+			d->it_prg[i][d->nb_cmd-1].end.status = 0;
+			d->buffer_status[i] = VIDEO1394_BUFFER_READY;
+		}
+	}
+	if (waitqueue_active(&d->waitq)) wake_up_interruptible(&d->waitq);
+	return 0;
+}
+
+static void initialize_dma_it_prg(struct dma_iso_ctx *d, int n, int sync_tag)
+{
+	struct it_dma_prg *it_prg = d->it_prg[n];
+	unsigned long buf = (unsigned long)d->buf+n*d->buf_size;
+	int i;
+	
+	for (i=0;i<d->nb_cmd;i++) {
+				 
+		it_prg[i].begin.control = OUTPUT_MORE_IMMEDIATE | 8 ;
+		it_prg[i].begin.address = 0;
+		
+		it_prg[i].begin.status = 0;
+		
+		/* FIXME: what is the tag value + speed selection */
+		it_prg[i].data[0] = 
+			(DMA_SPEED_400<<16) | (d->channel<<8) | 0xa0;
+		if (i==0) it_prg[i].data[0] |= sync_tag;
+		it_prg[i].data[1] = d->packet_size << 16;
+		it_prg[i].data[2] = 0;
+		it_prg[i].data[3] = 0;
+		
+		it_prg[i].end.control = 0x100c0000;
+		it_prg[i].end.address =
+			kvirt_to_bus(buf+i*d->packet_size);
+
+		if (i<d->nb_cmd-1) {
+			it_prg[i].end.control |= d->packet_size;
+			it_prg[i].begin.branchAddress = 
+				(virt_to_bus(&(it_prg[i+1].begin.control)) 
+				 & 0xfffffff0) | 0x3;
+			it_prg[i].end.branchAddress = 
+				(virt_to_bus(&(it_prg[i+1].begin.control)) 
+				 & 0xfffffff0) | 0x3;
+		}
+		else {
+			/* the last prg generates an interrupt */
+			it_prg[i].end.control |= 0x08300000 | d->left_size;
+			/* the last prg doesn't branch */
+			it_prg[i].begin.branchAddress = 0;
+			it_prg[i].end.branchAddress = 0;
+		}
+		it_prg[i].end.status = 0;
+
+#if 0
+		printk("%d:%d: %08x-%08x ctrl %08x brch %08x d0 %08x d1 %08x\n",n,i,
+		       virt_to_bus(&(it_prg[i].begin.control)),
+		       virt_to_bus(&(it_prg[i].end.control)),
+		       it_prg[i].end.control,
+		       it_prg[i].end.branchAddress,
+		       it_prg[i].data[0], it_prg[i].data[1]);
+#endif
+	}
+}
+
+static void initialize_dma_it_ctx(struct dma_iso_ctx *d, int sync_tag)
+{
+	struct ti_ohci *ohci = (struct ti_ohci *)d->ohci;
+	int i;
+
+	ohci1394_stop_context(ohci, d->ctrlClear, NULL);
+
+	for (i=0;i<d->num_desc;i++)
+		initialize_dma_it_prg(d, i, sync_tag);
+	
+	/* Set up isoRecvIntMask to generate interrupts */
+	reg_write(ohci, OHCI1394_IsoXmitIntMaskSet, 1<<d->ctx);
+}
+
+static int do_iso_mmap(struct ti_ohci *ohci, struct dma_iso_ctx *d, 
+		       const char *adr, unsigned long size)
+{
+        unsigned long start=(unsigned long) adr;
+        unsigned long page,pos;
+
+        if (size>d->num_desc * d->buf_size) {
+		PRINT(KERN_ERR, ohci->id, 
+		      "iso context %d buf size is different from mmap size", 
+		      d->ctx);
+                return -EINVAL;
+	}
+        if (!d->buf) {
+		PRINT(KERN_ERR, ohci->id, 
+		      "iso context %d is not allocated", d->ctx);
+		return -EINVAL;
+	}
+
+        pos=(unsigned long) d->buf;
+        while (size > 0) {
+                page = kvirt_to_pa(pos);
+                if (remap_page_range(start, page, PAGE_SIZE, PAGE_SHARED))
+                        return -EAGAIN;
+                start+=PAGE_SIZE;
+                pos+=PAGE_SIZE;
+                size-=PAGE_SIZE;
+        }
+        return 0;
+}
+
+static int video1394_ioctl(struct inode *inode, struct file *file,
+			   unsigned int cmd, unsigned long arg)
+{
+	struct video_card *video = &video_cards[MINOR(inode->i_rdev)];
+	struct ti_ohci *ohci= video->ohci;
+
+	switch(cmd)
+	{
+	case VIDEO1394_LISTEN_CHANNEL:
+	case VIDEO1394_TALK_CHANNEL:
+	{
+		struct video1394_mmap v;
+		int i;
+
+		if(copy_from_user(&v, (void *)arg, sizeof(v)))
+			return -EFAULT;
+		if (v.channel<0 || v.channel>(ISO_CHANNELS-1)) {
+			PRINT(KERN_ERR, ohci->id, 
+			      "iso channel %d out of bound", v.channel);
+			return -EFAULT;
+		}
+                if (test_and_set_bit(v.channel, &ohci->IR_channel_usage)) {
+			PRINT(KERN_ERR, ohci->id, 
+			      "channel %d is already taken", v.channel);
+			return -EFAULT;
+		}
+
+		if (v.buf_size<=0) {
+			PRINT(KERN_ERR, ohci->id,
+			      "Invalid %d length buffer requested",v.buf_size);
+			return -EFAULT;
+		}
+
+		if (v.nb_buffers<=0) {
+			PRINT(KERN_ERR, ohci->id,
+			      "Invalid %d buffers requested",v.nb_buffers);
+			return -EFAULT;
+		}
+
+		if (v.nb_buffers * v.buf_size > VIDEO1394_MAX_SIZE) {
+			PRINT(KERN_ERR, ohci->id, 
+			      "%d buffers of size %d bytes is too big", 
+			      v.nb_buffers, v.buf_size);
+			return -EFAULT;
+		}
+
+		if (cmd == VIDEO1394_LISTEN_CHANNEL) {
+			/* find a free iso receive context */
+			for (i=0;i<ohci->nb_iso_rcv_ctx-1;i++) 
+				if (video->ir_context[i]==NULL) break;
+			    
+			if (i==(ohci->nb_iso_rcv_ctx-1)) {
+				PRINT(KERN_ERR, ohci->id, 
+				      "no iso context available");
+				return -EFAULT;
+			}
+
+			video->ir_context[i] = 
+				alloc_dma_iso_ctx(ohci, ISO_RECEIVE, i+1, 
+						  v.nb_buffers, v.buf_size, 
+						  v.channel, 0);
+
+			if (video->ir_context[i] == NULL) {
+				PRINT(KERN_ERR, ohci->id, 
+				      "Couldn't allocate ir context");
+				return -EFAULT;
+			}
+			initialize_dma_ir_ctx(video->ir_context[i], 
+					      v.sync_tag);
+
+			video->current_ctx = video->ir_context[i];
+
+			v.buf_size = video->ir_context[i]->buf_size;
+
+			PRINT(KERN_INFO, ohci->id, 
+			      "iso context %d listen on channel %d", i+1, 
+			      v.channel);
+		}
+		else {
+			/* find a free iso transmit context */
+			for (i=0;i<ohci->nb_iso_xmit_ctx;i++) 
+				if (video->it_context[i]==NULL) break;
+			    
+			if (i==ohci->nb_iso_xmit_ctx) {
+				PRINT(KERN_ERR, ohci->id, 
+				      "no iso context available");
+				return -EFAULT;
+			}
+			
+			video->it_context[i] = 
+				alloc_dma_iso_ctx(ohci, ISO_TRANSMIT, i, 
+						  v.nb_buffers, v.buf_size, 
+						  v.channel, v.packet_size);
+
+			if (video->it_context[i] == NULL) {
+				PRINT(KERN_ERR, ohci->id, 
+				      "Couldn't allocate it context");
+				return -EFAULT;
+			}
+			initialize_dma_it_ctx(video->it_context[i], 
+					      v.sync_tag);
+
+			video->current_ctx = video->it_context[i];
+
+			v.buf_size = video->it_context[i]->buf_size;
+
+			PRINT(KERN_INFO, ohci->id, 
+			      "iso context %d talk on channel %d", i, 
+			      v.channel);
+		}
+
+		if(copy_to_user((void *)arg, &v, sizeof(v)))
+			return -EFAULT;
+
+		return 0;
+	}
+	case VIDEO1394_UNLISTEN_CHANNEL: 
+	case VIDEO1394_UNTALK_CHANNEL:
+	{
+		int channel;
+		int i;
+
+		if(copy_from_user(&channel, (void *)arg, sizeof(int)))
+			return -EFAULT;
+
+                if (!test_and_clear_bit(channel, &ohci->IR_channel_usage)) {
+			PRINT(KERN_ERR, ohci->id, 
+			      "channel %d is not being used", channel);
+			return -EFAULT;
+		}
+
+		if (cmd == VIDEO1394_UNLISTEN_CHANNEL) {
+			i = ir_ctx_listening(video, channel);
+			if (i<0) return -EFAULT;
+
+			free_dma_iso_ctx(&video->ir_context[i]);
+
+			PRINT(KERN_INFO, ohci->id, 
+			      "iso context %d stop listening on channel %d", 
+			      i+1, channel);
+		}
+		else {
+			i = it_ctx_talking(video, channel);
+			if (i<0) return -EFAULT;
+
+			free_dma_iso_ctx(&video->it_context[i]);
+
+			PRINT(KERN_INFO, ohci->id, 
+			      "iso context %d stop talking on channel %d", 
+			      i, channel);
+		}
+		
+		return 0;
+	}
+	case VIDEO1394_LISTEN_QUEUE_BUFFER:
+	{
+		struct video1394_wait v;
+		struct dma_iso_ctx *d;
+		int i;
+
+		if(copy_from_user(&v, (void *)arg, sizeof(v)))
+			return -EFAULT;
+
+		i = ir_ctx_listening(video, v.channel);
+		if (i<0) return -EFAULT;
+		d = video->ir_context[i];
+
+		if ((v.buffer<0) || (v.buffer>d->num_desc)) {
+			PRINT(KERN_ERR, ohci->id, 
+			      "buffer %d out of range",v.buffer);
+			return -EFAULT;
+		}
+		
+		if (d->buffer_status[v.buffer]!=VIDEO1394_BUFFER_FREE) {
+			PRINT(KERN_ERR, ohci->id, 
+			      "buffer %d is already used",v.buffer);
+			return -EFAULT;
+		}
+		
+		d->buffer_status[v.buffer]=VIDEO1394_BUFFER_QUEUED;
+
+		if (d->last_buffer>=0) 
+			d->ir_prg[d->last_buffer][d->nb_cmd-1].branchAddress = 
+				(virt_to_bus(&(d->ir_prg[v.buffer][0].control)) 
+				 & 0xfffffff0) | 0x1;
+
+		d->last_buffer = v.buffer;
+
+		d->ir_prg[d->last_buffer][d->nb_cmd-1].branchAddress = 0;
+
+		if (!(reg_read(ohci, d->ctrlSet) & 0x8000)) 
+		{
+			DBGMSG(ohci->id, "Starting iso DMA ctx=%d",d->ctx);
+
+			/* Tell the controller where the first program is */
+			reg_write(ohci, d->cmdPtr, 
+				  virt_to_bus(&(d->ir_prg[v.buffer][0]))|0x1);
+			
+			/* Run IR context */
+			reg_write(ohci, d->ctrlSet, 0x8000);
+		}
+		else {
+			/* Wake up dma context if necessary */
+			if (!(reg_read(ohci, d->ctrlSet) & 0x400)) {
+				PRINT(KERN_INFO, ohci->id, 
+				      "Waking up iso dma ctx=%d", d->ctx);
+				reg_write(ohci, d->ctrlSet, 0x1000);
+			}
+		}
+		return 0;
+		
+	}
+	case VIDEO1394_LISTEN_WAIT_BUFFER:
+	{
+		struct video1394_wait v;
+		struct dma_iso_ctx *d;
+		int i;
+
+		if(copy_from_user(&v, (void *)arg, sizeof(v)))
+			return -EFAULT;
+
+		i = ir_ctx_listening(video, v.channel);
+		if (i<0) return -EFAULT;
+		d = video->ir_context[i];
+
+		if ((v.buffer<0) || (v.buffer>d->num_desc)) {
+			PRINT(KERN_ERR, ohci->id, 
+			      "buffer %d out of range",v.buffer);
+			return -EFAULT;
+		}
+
+		switch(d->buffer_status[v.buffer]) {
+		case VIDEO1394_BUFFER_READY:
+			d->buffer_status[v.buffer]=VIDEO1394_BUFFER_FREE;
+			return 0;
+		case VIDEO1394_BUFFER_QUEUED:
+#if 1
+			while(d->buffer_status[v.buffer]!=
+			      VIDEO1394_BUFFER_READY) {
+				interruptible_sleep_on(&d->waitq);
+				if(signal_pending(current)) return -EINTR;
+			}
+#else
+			if (wait_event_interruptible(d->waitq, 
+						     d->buffer_status[v.buffer]
+						     == VIDEO1394_BUFFER_READY)
+			    == -ERESTARTSYS)
+				return -EINTR;
+#endif
+			d->buffer_status[v.buffer]=VIDEO1394_BUFFER_FREE;
+			return 0;
+		default:
+			PRINT(KERN_ERR, ohci->id, 
+			      "buffer %d is not queued",v.buffer);
+			return -EFAULT;
+		}
+	}
+	case VIDEO1394_TALK_QUEUE_BUFFER:
+	{
+		struct video1394_wait v;
+		struct dma_iso_ctx *d;
+		int i;
+
+		if(copy_from_user(&v, (void *)arg, sizeof(v)))
+			return -EFAULT;
+
+		i = it_ctx_talking(video, v.channel);
+		if (i<0) return -EFAULT;
+		d = video->it_context[i];
+
+		if ((v.buffer<0) || (v.buffer>d->num_desc)) {
+			PRINT(KERN_ERR, ohci->id, 
+			      "buffer %d out of range",v.buffer);
+			return -EFAULT;
+		}
+		
+		if (d->buffer_status[v.buffer]!=VIDEO1394_BUFFER_FREE) {
+			PRINT(KERN_ERR, ohci->id, 
+			      "buffer %d is already used",v.buffer);
+			return -EFAULT;
+		}
+		
+		d->buffer_status[v.buffer]=VIDEO1394_BUFFER_QUEUED;
+
+		if (d->last_buffer>=0) {
+			d->it_prg[d->last_buffer]
+				[d->nb_cmd-1].end.branchAddress = 
+				(virt_to_bus(&(d->it_prg[v.buffer][0].begin.control)) 
+				 & 0xfffffff0) | 0x3;
+
+			d->it_prg[d->last_buffer]
+				[d->nb_cmd-1].begin.branchAddress = 
+				(virt_to_bus(&(d->it_prg[v.buffer][0].begin.control)) 
+				 & 0xfffffff0) | 0x3;
+		}
+		d->last_buffer = v.buffer;
+
+		d->it_prg[d->last_buffer][d->nb_cmd-1].end.branchAddress = 0;
+
+		if (!(reg_read(ohci, d->ctrlSet) & 0x8000)) 
+		{
+			DBGMSG(ohci->id, "Starting iso transmit DMA ctx=%d",
+			       d->ctx);
+
+			/* Tell the controller where the first program is */
+			reg_write(ohci, d->cmdPtr, 
+				  virt_to_bus(&(d->it_prg[v.buffer][0]))|0x3);
+			
+			/* Run IT context */
+			reg_write(ohci, d->ctrlSet, 0x8000);
+		}
+		else {
+			/* Wake up dma context if necessary */
+			if (!(reg_read(ohci, d->ctrlSet) & 0x400)) {
+				PRINT(KERN_INFO, ohci->id, 
+				      "Waking up iso transmit dma ctx=%d", 
+				      d->ctx);
+				reg_write(ohci, d->ctrlSet, 0x1000);
+			}
+		}
+		return 0;
+		
+	}
+	case VIDEO1394_TALK_WAIT_BUFFER:
+	{
+		struct video1394_wait v;
+		struct dma_iso_ctx *d;
+		int i;
+
+		if(copy_from_user(&v, (void *)arg, sizeof(v)))
+			return -EFAULT;
+
+		i = it_ctx_talking(video, v.channel);
+		if (i<0) return -EFAULT;
+		d = video->it_context[i];
+
+		if ((v.buffer<0) || (v.buffer>d->num_desc)) {
+			PRINT(KERN_ERR, ohci->id, 
+			      "buffer %d out of range",v.buffer);
+			return -EFAULT;
+		}
+
+		switch(d->buffer_status[v.buffer]) {
+		case VIDEO1394_BUFFER_READY:
+			d->buffer_status[v.buffer]=VIDEO1394_BUFFER_FREE;
+			return 0;
+		case VIDEO1394_BUFFER_QUEUED:
+#if 1
+			while(d->buffer_status[v.buffer]!=
+			      VIDEO1394_BUFFER_READY) {
+				interruptible_sleep_on(&d->waitq);
+				if(signal_pending(current)) return -EINTR;
+			}
+#else
+			if (wait_event_interruptible(d->waitq, 
+						     d->buffer_status[v.buffer]
+						     == VIDEO1394_BUFFER_READY)
+			    == -ERESTARTSYS)
+				return -EINTR;
+#endif
+			d->buffer_status[v.buffer]=VIDEO1394_BUFFER_FREE;
+			return 0;
+		default:
+			PRINT(KERN_ERR, ohci->id, 
+			      "buffer %d is not queued",v.buffer);
+			return -EFAULT;
+		}
+	}
+	default:
+		return -EINVAL;
+	}
+}
+
+/*
+ *	This maps the vmalloced and reserved buffer to user space.
+ *
+ *  FIXME: 
+ *  - PAGE_READONLY should suffice!?
+ *  - remap_page_range is kind of inefficient for page by page remapping.
+ *    But e.g. pte_alloc() does not work in modules ... :-(
+ */
+
+int video1394_mmap(struct file *file, struct vm_area_struct *vma)
+{
+	struct video_card *video = 
+		&video_cards[MINOR(file->f_dentry->d_inode->i_rdev)];
+	struct ti_ohci *ohci= video->ohci;
+
+	PRINT(KERN_INFO, ohci->id, "mmap");
+	if (video->current_ctx == NULL) {
+		PRINT(KERN_ERR, ohci->id, "current iso context not set");
+		return -EINVAL;
+	}
+	
+	return do_iso_mmap(ohci, video->current_ctx, 
+			   (char *)vma->vm_start, 
+			   (unsigned long)(vma->vm_end-vma->vm_start));
+	return 0;
+}
+
+static int video1394_open(struct inode *inode, struct file *file)
+{
+	int i = MINOR(inode->i_rdev);
+
+	if (i<0 || i>=num_of_video_cards) {
+		PRINT(KERN_ERR, i, "ohci card %d not found", i);
+		return -EIO;
+	}
+
+	V22_COMPAT_MOD_INC_USE_COUNT;
+
+	PRINT(KERN_INFO, i, "open");
+
+	return 0;
+}
+
+static int video1394_release(struct inode *inode, struct file *file)
+{
+	struct video_card *video = &video_cards[MINOR(inode->i_rdev)];
+	struct ti_ohci *ohci= video->ohci;
+	int i;
+
+	for (i=0;i<ohci->nb_iso_rcv_ctx-1;i++) 
+		if (video->ir_context[i]) {
+			if (!test_and_clear_bit(
+				video->ir_context[i]->channel,
+				&ohci->IR_channel_usage)) {
+				PRINT(KERN_ERR, ohci->id, 
+				      "channel %d is not being used", 
+				      video->ir_context[i]->channel);
+			}
+			PRINT(KERN_INFO, ohci->id, 
+			      "iso receive context %d stop listening "
+			      "on channel %d", i+1, 
+			      video->ir_context[i]->channel);
+			free_dma_iso_ctx(&video->ir_context[i]);
+		}
+
+	for (i=0;i<ohci->nb_iso_xmit_ctx;i++) 
+		if (video->it_context[i]) {
+			if (!test_and_clear_bit(
+				video->it_context[i]->channel,
+				&ohci->IR_channel_usage)) {
+				PRINT(KERN_ERR, ohci->id, 
+				      "channel %d is not being used", 
+				      video->it_context[i]->channel);
+			}
+			PRINT(KERN_INFO, ohci->id, 
+			      "iso transmit context %d stop talking "
+			      "on channel %d", i+1, 
+			      video->it_context[i]->channel);
+			free_dma_iso_ctx(&video->it_context[i]);
+		}
+
+
+	V22_COMPAT_MOD_DEC_USE_COUNT;
+
+	PRINT(KERN_INFO, ohci->id, "release");
+	return 0;
+}
+
+void irq_handler(int card, quadlet_t isoRecvIntEvent, 
+		 quadlet_t isoXmitIntEvent)
+{
+	int i;
+	struct video_card *video = &video_cards[card];
+	
+	DBGMSG(card, "Iso event Recv: %08x Xmit: %08x",
+	       isoRecvIntEvent, isoXmitIntEvent);
+
+	for (i=0;i<video->ohci->nb_iso_rcv_ctx-1;i++)
+		if (isoRecvIntEvent & (1<<(i+1))) 
+			wakeup_dma_ir_ctx(video->ohci,
+					  video->ir_context[i]);
+
+	for (i=0;i<video->ohci->nb_iso_xmit_ctx;i++)
+		if (isoXmitIntEvent & (1<<i)) 
+			wakeup_dma_it_ctx(video->ohci,
+					  video->it_context[i]);
+}
+
+static struct file_operations video1394_fops=
+{
+        OWNER_THIS_MODULE
+	ioctl:		video1394_ioctl,
+	mmap:		video1394_mmap,
+	open:		video1394_open,
+	release:	video1394_release
+};
+
+static int video1394_init(int i, struct ti_ohci *ohci)
+{
+	struct video_card *video = &video_cards[i];
+
+	if (ohci1394_register_video(ohci, &video_tmpl)<0) {
+		PRINT(KERN_ERR, i, "register_video failed");
+		return -1;
+	}
+
+	video->ohci = ohci;
+
+	/* Iso receive dma contexts */
+	video->ir_context = (struct dma_iso_ctx **)
+		kmalloc((ohci->nb_iso_rcv_ctx-1)*
+			sizeof(struct dma_iso_ctx *), GFP_KERNEL);
+	if (video->ir_context) 
+		memset(video->ir_context, 0,
+		       (ohci->nb_iso_rcv_ctx-1)*sizeof(struct dma_iso_ctx *));
+	else {
+		PRINT(KERN_ERR, ohci->id, "Cannot allocate ir_context");
+		return -1;
+	}
+
+	/* Iso transmit dma contexts */
+	video->it_context = (struct dma_iso_ctx **)
+		kmalloc(ohci->nb_iso_xmit_ctx *
+			sizeof(struct dma_iso_ctx *), GFP_KERNEL);
+	if (video->it_context) 
+		memset(video->it_context, 0,
+		       ohci->nb_iso_xmit_ctx * sizeof(struct dma_iso_ctx *));
+	else {
+		PRINT(KERN_ERR, ohci->id, "Cannot allocate it_context");
+		return -1;
+	}
+
+	return 0;
+}
+
+static void remove_card(struct video_card *video)
+{
+	int i;
+
+	ohci1394_unregister_video(video->ohci, &video_tmpl);
+
+	/* Free the iso receive contexts */
+	if (video->ir_context) {
+		for (i=0;i<video->ohci->nb_iso_rcv_ctx-1;i++) {
+			free_dma_iso_ctx(&video->ir_context[i]);
+		}
+		kfree(video->ir_context);
+	}
+
+	/* Free the iso transmit contexts */
+	if (video->it_context) {
+		for (i=0;i<video->ohci->nb_iso_xmit_ctx;i++) {
+			free_dma_iso_ctx(&video->it_context[i]);
+		}
+		kfree(video->it_context);
+	}
+}
+
+#ifdef MODULE
+
+/* EXPORT_NO_SYMBOLS; */
+
+MODULE_AUTHOR("Sebastien Rougeaux <sebastien.rougeaux@anu.edu.au>");
+MODULE_DESCRIPTION("driver for digital video on OHCI board");
+MODULE_SUPPORTED_DEVICE("video1394");
+
+void cleanup_module(void)
+{
+	int i;
+        unregister_chrdev(VIDEO1394_MAJOR, VIDEO1394_DRIVER_NAME);
+
+	for (i=0; i<num_of_video_cards; i++)
+		remove_card(&video_cards[i]);
+
+	printk(KERN_INFO "removed " VIDEO1394_DRIVER_NAME " module\n");
+}
+
+int init_module(void)
+{
+	struct ti_ohci *ohci;
+	int i;
+	
+	memset(video_cards, 0, MAX_OHCI1394_CARDS * sizeof(struct video_card));
+	num_of_video_cards = 0;
+
+	for (i=0; i<MAX_OHCI1394_CARDS; i++) {
+		ohci=ohci1394_get_struct(i);
+		if (ohci) {
+			num_of_video_cards++;
+			video1394_init(i, ohci);
+		}
+	}
+
+	if (!num_of_video_cards) {
+		PRINT_G(KERN_INFO, "no ohci card found... init failed");
+		return -EIO;
+	}
+
+	if (register_chrdev(VIDEO1394_MAJOR, VIDEO1394_DRIVER_NAME, 
+			    &video1394_fops)) {
+		printk("video1394: unable to get major %d\n", 
+		       VIDEO1394_MAJOR);
+		return -EIO;
+	}
+
+	PRINT_G(KERN_INFO, "initialized with %d ohci cards", 
+		num_of_video_cards);
+
+	return 0;
+}
+
+#endif /* MODULE */
+
+

FUNET's LINUX-ADM group, linux-adm@nic.funet.fi
TCL-scripts by Sam Shen (who was at: slshen@lbl.gov)