URL
https://opencores.org/ocsvn/or1k/or1k/trunk
Subversion Repositories or1k
[/] [or1k/] [tags/] [before_ORP/] [uclinux/] [uClinux-2.0.x/] [drivers/] [sound/] [soundcard.c] - Rev 1765
Compare with Previous | Blame | View Log
/* * linux/kernel/chr_drv/sound/soundcard.c * * Soundcard driver for Linux */ /* * Copyright (C) by Hannu Savolainen 1993-1996 * * USS/Lite for Linux is distributed under the GNU GENERAL PUBLIC LICENSE (GPL) * Version 2 (June 1991). See the "COPYING" file distributed with this software * for more info. */ #include <linux/config.h> #include "sound_config.h" #include <linux/major.h> int *sound_global_osp = NULL; static int chrdev_registered = 0; static int sound_major = SOUND_MAJOR; static int is_unloading = 0; /* * Table for permanently allocated memory (used when unloading the module) */ caddr_t sound_mem_blocks[1024]; int sound_nblocks = 0; static int soundcard_configured = 0; static struct fileinfo files[SND_NDEVS]; static char dma_alloc_map[8] = {0}; #define DMA_MAP_UNAVAIL 0 #define DMA_MAP_FREE 1 #define DMA_MAP_BUSY 2 int snd_ioctl_return (int *addr, int value) { if (value < 0) return value; put_user (value, addr); return 0; } static int sound_read (inode_handle * inode, file_handle * file, char *buf, int count) { int dev; dev = MINOR (inode_get_rdev (inode)); files[dev].flags = file_get_flags (file); return sound_read_sw (dev, &files[dev], buf, count); } static int sound_write (inode_handle * inode, file_handle * file, const char *buf, int count) { int dev; dev = MINOR (inode_get_rdev (inode)); files[dev].flags = file_get_flags (file); return sound_write_sw (dev, &files[dev], buf, count); } static int sound_lseek (inode_handle * inode, file_handle * file, off_t offset, int orig) { return -(EPERM); } static int sound_open (inode_handle * inode, file_handle * file) { int dev, retval; struct fileinfo tmp_file; if (is_unloading) { printk ("Sound: Driver partially removed. Can't open device\n"); return -(EBUSY); } dev = MINOR (inode_get_rdev (inode)); if (!soundcard_configured && dev != SND_DEV_CTL && dev != SND_DEV_STATUS) { printk ("Sound Card Error: The soundcard system has not been configured\n"); return -(ENXIO); } tmp_file.mode = 0; tmp_file.flags = file_get_flags (file); if ((tmp_file.flags & O_ACCMODE) == O_RDWR) tmp_file.mode = OPEN_READWRITE; if ((tmp_file.flags & O_ACCMODE) == O_RDONLY) tmp_file.mode = OPEN_READ; if ((tmp_file.flags & O_ACCMODE) == O_WRONLY) tmp_file.mode = OPEN_WRITE; if ((retval = sound_open_sw (dev, &tmp_file)) < 0) return retval; #ifdef MODULE MOD_INC_USE_COUNT; #endif memcpy ((char *) &files[dev], (char *) &tmp_file, sizeof (tmp_file)); return retval; } static void sound_release (inode_handle * inode, file_handle * file) { int dev; dev = MINOR (inode_get_rdev (inode)); files[dev].flags = file_get_flags (file); sound_release_sw (dev, &files[dev]); #ifdef MODULE MOD_DEC_USE_COUNT; #endif } static int sound_ioctl (inode_handle * inode, file_handle * file, unsigned int cmd, unsigned long arg) { int dev, err; dev = MINOR (inode_get_rdev (inode)); files[dev].flags = file_get_flags (file); if (_IOC_DIR (cmd) != _IOC_NONE) { /* * Have to validate the address given by the process. */ int len; len = _IOC_SIZE (cmd); if (_IOC_DIR (cmd) & _IOC_WRITE) { if ((err = verify_area (VERIFY_READ, (void *) arg, len)) < 0) return err; } if (_IOC_DIR (cmd) & _IOC_READ) { if ((err = verify_area (VERIFY_WRITE, (void *) arg, len)) < 0) return err; } } err = sound_ioctl_sw (dev, &files[dev], cmd, (caddr_t) arg); return err; } static int sound_select (inode_handle * inode, file_handle * file, int sel_type, select_table_handle * wait) { int dev; dev = MINOR (inode_get_rdev (inode)); files[dev].flags = file_get_flags (file); DEB (printk ("sound_select(dev=%d, type=0x%x)\n", dev, sel_type)); switch (dev & 0x0f) { #ifdef CONFIG_SEQUENCER case SND_DEV_SEQ: case SND_DEV_SEQ2: return sequencer_select (dev, &files[dev], sel_type, wait); break; #endif #ifdef CONFIG_MIDI case SND_DEV_MIDIN: return MIDIbuf_select (dev, &files[dev], sel_type, wait); break; #endif #ifdef CONFIG_AUDIO case SND_DEV_DSP: case SND_DEV_DSP16: case SND_DEV_AUDIO: return audio_select (dev, &files[dev], sel_type, wait); break; #endif default: return 0; } return 0; } static int sound_mmap (inode_handle * inode, file_handle * file, vm_area_handle * vma) { int dev, dev_class; unsigned long size; struct dma_buffparms *dmap = NULL; dev = MINOR (inode_get_rdev (inode)); files[dev].flags = file_get_flags (file); dev_class = dev & 0x0f; dev >>= 4; if (dev_class != SND_DEV_DSP && dev_class != SND_DEV_DSP16 && dev_class != SND_DEV_AUDIO) { printk ("Sound: mmap() not supported for other than audio devices\n"); return -EINVAL; } if ((vma_get_flags (vma) & (VM_READ | VM_WRITE)) == (VM_READ | VM_WRITE)) { printk ("Sound: Cannot do read/write mmap()\n"); return -EINVAL; } if (vma_get_flags (vma) & VM_READ) { dmap = audio_devs[dev]->dmap_in; } else if (vma_get_flags (vma) & VM_WRITE) { dmap = audio_devs[dev]->dmap_out; } else { printk ("Sound: Undefined mmap() access\n"); return -EINVAL; } if (dmap == NULL) { printk ("Sound: mmap() error. dmap == NULL\n"); return -EIO; } if (dmap->raw_buf == NULL) { printk ("Sound: mmap() called when raw_buf == NULL\n"); return -EIO; } if (dmap->mapping_flags) { printk ("Sound: mmap() called twice for the same DMA buffer\n"); return -EIO; } if (vma_get_offset (vma) != 0) { printk ("Sound: mmap() offset must be 0.\n"); return -EINVAL; } size = vma_get_end (vma) - vma_get_start (vma); if (size != dmap->bytes_in_use) { printk ("Sound: mmap() size = %ld. Should be %d\n", size, dmap->bytes_in_use); } if (remap_page_range (vma_get_start (vma), (unsigned long)dmap->raw_buf, vma_get_end (vma) - vma_get_start (vma), vma_get_page_prot (vma))) return -EAGAIN; vma_set_inode (vma, inode); inode_inc_count (inode); dmap->mapping_flags |= DMA_MAP_MAPPED; memset (dmap->raw_buf, dmap->neutral_byte, dmap->bytes_in_use); return 0; } static struct file_operation_handle sound_fops = { sound_lseek, sound_read, sound_write, NULL, /* sound_readdir */ sound_select, sound_ioctl, sound_mmap, sound_open, sound_release }; void soundcard_init (void) { #ifndef MODULE module_register_chrdev (sound_major, "sound", &sound_fops); chrdev_registered = 1; #endif soundcard_configured = 1; sndtable_init (); /* Initialize call tables and detect cards */ #ifdef CONFIG_LOWLEVEL_SOUND { extern void sound_init_lowlevel_drivers (void); sound_init_lowlevel_drivers (); } #endif if (sndtable_get_cardcount () == 0) return; /* No cards detected */ #ifdef CONFIG_AUDIO if (num_audiodevs) /* Audio devices present */ { DMAbuf_init (); audio_init (); } #endif #ifdef CONFIG_MIDI if (num_midis) MIDIbuf_init (); #endif #ifdef CONFIG_SEQUENCER if (num_midis + num_synths) sequencer_init (); #endif } static unsigned int irqs = 0; #ifdef MODULE static void free_all_irqs (void) { int i; for (i = 0; i < 31; i++) if (irqs & (1ul << i)) { printk ("Sound warning: IRQ%d was left allocated - fixed.\n", i); snd_release_irq (i); } irqs = 0; } char kernel_version[] = UTS_RELEASE; #endif static int debugmem = 0; /* switched off by default */ static int sound[20] = {0}; int init_module (void) { int err; int ints[21]; int i; if (connect_wrapper (WRAPPER_VERSION) < 0) { printk ("Sound: Incompatible kernel (wrapper) version\n"); return -EINVAL; } /* * "sound=" command line handling by Harald Milz. */ i = 0; while (i < 20 && sound[i]) ints[i + 1] = sound[i++]; ints[0] = i; if (i) sound_setup ("sound=", ints); err = module_register_chrdev (sound_major, "sound", &sound_fops); if (err) { printk ("sound: driver already loaded/included in kernel\n"); return err; } chrdev_registered = 1; soundcard_init (); if (sound_nblocks >= 1024) printk ("Sound warning: Deallocation table was too small.\n"); return 0; } #ifdef MODULE void cleanup_module (void) { int i; if (MOD_IN_USE) { return; } if (chrdev_registered) module_unregister_chrdev (sound_major, "sound"); #ifdef CONFIG_SEQUENCER sound_stop_timer (); #endif #ifdef CONFIG_LOWLEVEL_SOUND { extern void sound_unload_lowlevel_drivers (void); sound_unload_lowlevel_drivers (); } #endif sound_unload_drivers (); for (i = 0; i < sound_nblocks; i++) vfree (sound_mem_blocks[i]); free_all_irqs (); /* If something was left allocated by accident */ for (i = 0; i < 8; i++) if (dma_alloc_map[i] != DMA_MAP_UNAVAIL) { printk ("Sound: Hmm, DMA%d was left allocated - fixed\n", i); sound_free_dma (i); } } #endif void tenmicrosec (int *osp) { int i; for (i = 0; i < 16; i++) inb (0x80); } int snd_set_irq_handler (int interrupt_level, void (*iproc) (int, void *, struct pt_regs *), char *name, int *osp) { int retcode; unsigned long flags; save_flags (flags); cli (); retcode = request_irq (interrupt_level, iproc, 0 /* SA_INTERRUPT */ , name, NULL); if (retcode < 0) { printk ("Sound: IRQ%d already in use\n", interrupt_level); } else irqs |= (1ul << interrupt_level); restore_flags (flags); return retcode; } void snd_release_irq (int vect) { if (!(irqs & (1ul << vect))) return; irqs &= ~(1ul << vect); free_irq (vect, NULL); } int sound_alloc_dma (int chn, char *deviceID) { int err; if ((err = request_dma (chn, deviceID)) != 0) return err; dma_alloc_map[chn] = DMA_MAP_FREE; return 0; } int sound_open_dma (int chn, char *deviceID) { unsigned long flags; if (chn < 0 || chn > 7 || chn == 4) { printk ("sound_open_dma: Invalid DMA channel %d\n", chn); return 1; } save_flags (flags); cli (); if (dma_alloc_map[chn] != DMA_MAP_FREE) { printk ("sound_open_dma: DMA channel %d busy or not allocated\n", chn); restore_flags (flags); return 1; } dma_alloc_map[chn] = DMA_MAP_BUSY; restore_flags (flags); return 0; } void sound_free_dma (int chn) { if (dma_alloc_map[chn] != DMA_MAP_FREE) { /* printk ("sound_free_dma: Bad access to DMA channel %d\n", chn); */ return; } free_dma (chn); dma_alloc_map[chn] = DMA_MAP_UNAVAIL; } void sound_close_dma (int chn) { unsigned long flags; save_flags (flags); cli (); if (dma_alloc_map[chn] != DMA_MAP_BUSY) { printk ("sound_close_dma: Bad access to DMA channel %d\n", chn); restore_flags (flags); return; } dma_alloc_map[chn] = DMA_MAP_FREE; restore_flags (flags); } #ifdef CONFIG_SEQUENCER static struct timer_list seq_timer = {NULL, NULL, 0, 0, sequencer_timer}; void request_sound_timer (int count) { extern unsigned long seq_time; if (count < 0) count = jiffies + (-count); else count += seq_time; ; { seq_timer.expires = ((count - jiffies)) + jiffies; add_timer (&seq_timer); }; } void sound_stop_timer (void) { del_timer (&seq_timer);; } #endif #ifdef CONFIG_AUDIO #ifdef KMALLOC_DMA_BROKEN fatal_error__This_version_is_not_compatible_with_this_kernel; #endif static int dma_buffsize = DSP_BUFFSIZE; int sound_alloc_dmap (int dev, struct dma_buffparms *dmap, int chan) { char *start_addr, *end_addr; int i, dma_pagesize; dmap->mapping_flags &= ~DMA_MAP_MAPPED; if (dmap->raw_buf != NULL) return 0; /* Already done */ if (dma_buffsize < 4096) dma_buffsize = 4096; if (chan < 4) dma_pagesize = 64 * 1024; else dma_pagesize = 128 * 1024; dmap->raw_buf = NULL; if (debugmem) printk ("sound: buffsize[%d] = %lu\n", dev, audio_devs[dev]->buffsize); audio_devs[dev]->buffsize = dma_buffsize; if (audio_devs[dev]->buffsize > dma_pagesize) audio_devs[dev]->buffsize = dma_pagesize; start_addr = NULL; /* * Now loop until we get a free buffer. Try to get smaller buffer if * it fails. */ while (start_addr == NULL && audio_devs[dev]->buffsize > PAGE_SIZE) { int sz, size; for (sz = 0, size = PAGE_SIZE; size < audio_devs[dev]->buffsize; sz++, size <<= 1); audio_devs[dev]->buffsize = PAGE_SIZE * (1 << sz); if ((start_addr = (char *) __get_dma_pages (GFP_ATOMIC, sz)) == NULL) audio_devs[dev]->buffsize /= 2; } if (start_addr == NULL) { printk ("Sound error: Couldn't allocate DMA buffer\n"); return -(ENOMEM); } else { /* make some checks */ end_addr = start_addr + audio_devs[dev]->buffsize - 1; if (debugmem) printk ("sound: start 0x%lx, end 0x%lx\n", (long) start_addr, (long) end_addr); /* now check if it fits into the same dma-pagesize */ if (((long) start_addr & ~(dma_pagesize - 1)) != ((long) end_addr & ~(dma_pagesize - 1)) || end_addr >= (char *) (MAX_DMA_ADDRESS)) { printk ( "sound: Got invalid address 0x%lx for %ldb DMA-buffer\n", (long) start_addr, audio_devs[dev]->buffsize); return -(EFAULT); } } dmap->raw_buf = start_addr; dmap->raw_buf_phys = virt_to_bus (start_addr); for (i = MAP_NR (start_addr); i <= MAP_NR (end_addr); i++) { mem_map_reserve (i); } return 0; } void sound_free_dmap (int dev, struct dma_buffparms *dmap) { int sz, size, i; unsigned long start_addr, end_addr; if (dmap->raw_buf == NULL) return; if (dmap->mapping_flags & DMA_MAP_MAPPED) return; /* Don't free mmapped buffer. Will use it next time */ for (sz = 0, size = PAGE_SIZE; size < audio_devs[dev]->buffsize; sz++, size <<= 1); start_addr = (unsigned long) dmap->raw_buf; end_addr = start_addr + audio_devs[dev]->buffsize; for (i = MAP_NR (start_addr); i <= MAP_NR (end_addr); i++) { mem_map_unreserve (i); } free_pages ((unsigned long) dmap->raw_buf, sz); dmap->raw_buf = NULL; } int sound_map_buffer (int dev, struct dma_buffparms *dmap, buffmem_desc * info) { printk ("Entered sound_map_buffer()\n"); printk ("Exited sound_map_buffer()\n"); return -(EINVAL); } #endif void conf_printf (char *name, struct address_info *hw_config) { if (!trace_init) return; printk ("<%s> at 0x%03x", name, hw_config->io_base); if (hw_config->irq) printk (" irq %d", (hw_config->irq > 0) ? hw_config->irq : -hw_config->irq); if (hw_config->dma != -1 || hw_config->dma2 != -1) { printk (" dma %d", hw_config->dma); if (hw_config->dma2 != -1) printk (",%d", hw_config->dma2); } printk ("\n"); } void conf_printf2 (char *name, int base, int irq, int dma, int dma2) { if (!trace_init) return; printk ("<%s> at 0x%03x", name, base); if (irq) printk (" irq %d", (irq > 0) ? irq : -irq); if (dma != -1 || dma2 != -1) { printk (" dma %d", dma); if (dma2 != -1) printk (",%d", dma2); } printk ("\n"); }