/* * linux/drivers/sound/soundcard.c * * Sound card driver for Linux * * * Copyright (C) by Hannu Savolainen 1993-1997 * * OSS/Free 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. * * * Thomas Sailer : ioctl code reworked (vmalloc/vfree removed) * integrated sound_switch.c * Stefan Reinauer : integrated /proc/sound (equals to /dev/sndstat, * which should disappear in the near future) * Eric Dumas : devfs support (22-Jan-98) with * fixups by C. Scott Ananian * Richard Gooch : moved common (non OSS-specific) devices to sound_core.c * Rob Riggs : Added persistent DMA buffers support (1998/10/17) * Christoph Hellwig : Some cleanup work (2000/03/01) */ #include #include "sound_config.h" #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include "soundmodule.h" #if defined(CONFIG_LOWLEVEL_SOUND) && !defined MODULE extern void sound_preinit_lowlevel_drivers(void); extern void sound_init_lowlevel_drivers(void); #endif /* From obsolete legacy.h */ #define SELECTED_SOUND_OPTIONS 0x0 struct notifier_block *sound_locker=(struct notifier_block *)0; static int lock_depth = 0; /* * This ought to be moved into include/asm/dma.h */ #ifndef valid_dma #define valid_dma(n) ((n) >= 0 && (n) < MAX_DMA_CHANNELS && (n) != 4) #endif static int chrdev_registered = 0; 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; /* Persistent DMA buffers */ #ifdef CONFIG_SOUND_DMAP int sound_dmap_flag = 1; #else int sound_dmap_flag = 0; #endif static int soundcard_configured = 0; static char dma_alloc_map[MAX_DMA_CHANNELS] = {0}; #define DMA_MAP_UNAVAIL 0 #define DMA_MAP_FREE 1 #define DMA_MAP_BUSY 2 static int in_use = 0; /* Total # of open devices */ unsigned long seq_time = 0; /* Time for /dev/sequencer */ /* * Table for configurable mixer volume handling */ static mixer_vol_table mixer_vols[MAX_MIXER_DEV]; static int num_mixer_volumes = 0; int *load_mixer_volumes(char *name, int *levels, int present) { int i, n; for (i = 0; i < num_mixer_volumes; i++) { if (strcmp(name, mixer_vols[i].name) == 0) { if (present) mixer_vols[i].num = i; return mixer_vols[i].levels; } } if (num_mixer_volumes >= MAX_MIXER_DEV) { printk(KERN_ERR "Sound: Too many mixers (%s)\n", name); return levels; } n = num_mixer_volumes++; strcpy(mixer_vols[n].name, name); if (present) mixer_vols[n].num = n; else mixer_vols[n].num = -1; for (i = 0; i < 32; i++) mixer_vols[n].levels[i] = levels[i]; return mixer_vols[n].levels; } static int set_mixer_levels(caddr_t arg) { /* mixer_vol_table is 174 bytes, so IMHO no reason to not allocate it on the stack */ mixer_vol_table buf; if (__copy_from_user(&buf, arg, sizeof(buf))) return -EFAULT; load_mixer_volumes(buf.name, buf.levels, 0); if (__copy_to_user(arg, &buf, sizeof(buf))) return -EFAULT; return 0; } static int get_mixer_levels(caddr_t arg) { int n; if (__get_user(n, (int *)(&(((mixer_vol_table *)arg)->num)))) return -EFAULT; if (n < 0 || n >= num_mixer_volumes) return -EINVAL; if (__copy_to_user(arg, &mixer_vols[n], sizeof(mixer_vol_table))) return -EFAULT; return 0; } #ifndef MIN #define MIN(a,b) (((a) < (b)) ? (a) : (b)) #endif /* 4K page size but our output routines use some slack for overruns */ #define PROC_BLOCK_SIZE (3*1024) static ssize_t sound_read(struct file *file, char *buf, size_t count, loff_t *ppos) { int dev = MINOR(file->f_dentry->d_inode->i_rdev); int ret = -EINVAL; /* * The OSS drivers aren't remotely happy without this locking, * and unless someone fixes them when they are about to bite the * big one anyway, we might as well bandage here.. */ lock_kernel(); DEB(printk("sound_read(dev=%d, count=%d)\n", dev, count)); switch (dev & 0x0f) { case SND_DEV_DSP: case SND_DEV_DSP16: case SND_DEV_AUDIO: ret = audio_read(dev, file, buf, count); break; case SND_DEV_SEQ: case SND_DEV_SEQ2: ret = sequencer_read(dev, file, buf, count); break; case SND_DEV_MIDIN: ret = MIDIbuf_read(dev, file, buf, count); } unlock_kernel(); return ret; } static ssize_t sound_write(struct file *file, const char *buf, size_t count, loff_t *ppos) { int dev = MINOR(file->f_dentry->d_inode->i_rdev); int ret = -EINVAL; lock_kernel(); DEB(printk("sound_write(dev=%d, count=%d)\n", dev, count)); switch (dev & 0x0f) { case SND_DEV_SEQ: case SND_DEV_SEQ2: ret = sequencer_write(dev, file, buf, count); break; case SND_DEV_DSP: case SND_DEV_DSP16: case SND_DEV_AUDIO: ret = audio_write(dev, file, buf, count); break; case SND_DEV_MIDIN: ret = MIDIbuf_write(dev, file, buf, count); break; } unlock_kernel(); return ret; } static long long sound_lseek(struct file *file, long long offset, int orig) { return -ESPIPE; } static int sound_open(struct inode *inode, struct file *file) { int dev, retval; if (is_unloading) { /* printk(KERN_ERR "Sound: Driver partially removed. Can't open device\n");*/ return -EBUSY; } dev = MINOR(inode->i_rdev); if (!soundcard_configured && dev != SND_DEV_CTL && dev != SND_DEV_STATUS) { /* printk("SoundCard Error: The sound system has not been configured\n");*/ return -ENXIO; } DEB(printk("sound_open(dev=%d)\n", dev)); if ((dev >= SND_NDEVS) || (dev < 0)) { /* printk(KERN_ERR "Invalid minor device %d\n", dev);*/ return -ENXIO; } switch (dev & 0x0f) { case SND_DEV_STATUS: break; case SND_DEV_CTL: dev >>= 4; if (dev >= 0 && dev < MAX_MIXER_DEV && mixer_devs[dev] == NULL) { char modname[20]; sprintf(modname, "mixer%d", dev); request_module(modname); } if (dev && (dev >= num_mixers || mixer_devs[dev] == NULL)) return -ENXIO; break; case SND_DEV_SEQ: case SND_DEV_SEQ2: if ((retval = sequencer_open(dev, file)) < 0) return retval; break; case SND_DEV_MIDIN: if ((retval = MIDIbuf_open(dev, file)) < 0) return retval; break; case SND_DEV_DSP: case SND_DEV_DSP16: case SND_DEV_AUDIO: if ((retval = audio_open(dev, file)) < 0) return retval; break; default: printk(KERN_ERR "Invalid minor device %d\n", dev); return -ENXIO; } in_use++; notifier_call_chain(&sound_locker, 1, 0); lock_depth++; return 0; } static int sound_release(struct inode *inode, struct file *file) { int dev = MINOR(inode->i_rdev); DEB(printk("sound_release(dev=%d)\n", dev)); switch (dev & 0x0f) { case SND_DEV_STATUS: case SND_DEV_CTL: break; case SND_DEV_SEQ: case SND_DEV_SEQ2: sequencer_release(dev, file); break; case SND_DEV_MIDIN: MIDIbuf_release(dev, file); break; case SND_DEV_DSP: case SND_DEV_DSP16: case SND_DEV_AUDIO: audio_release(dev, file); break; default: printk(KERN_ERR "Sound error: Releasing unknown device 0x%02x\n", dev); } in_use--; notifier_call_chain(&sound_locker, 0, 0); lock_depth--; return 0; } static int get_mixer_info(int dev, caddr_t arg) { mixer_info info; strncpy(info.id, mixer_devs[dev]->id, sizeof(info.id)); strncpy(info.name, mixer_devs[dev]->name, sizeof(info.name)); info.name[sizeof(info.name)-1] = 0; info.modify_counter = mixer_devs[dev]->modify_counter; if (__copy_to_user(arg, &info, sizeof(info))) return -EFAULT; return 0; } static int get_old_mixer_info(int dev, caddr_t arg) { _old_mixer_info info; strncpy(info.id, mixer_devs[dev]->id, sizeof(info.id)); strncpy(info.name, mixer_devs[dev]->name, sizeof(info.name)); info.name[sizeof(info.name)-1] = 0; if (copy_to_user(arg, &info, sizeof(info))) return -EFAULT; return 0; } static int sound_mixer_ioctl(int mixdev, unsigned int cmd, caddr_t arg) { if (mixdev < 0 || mixdev >= MAX_MIXER_DEV) return -ENXIO; /* Try to load the mixer... */ if (mixer_devs[mixdev] == NULL) { char modname[20]; sprintf(modname, "mixer%d", mixdev); request_module(modname); } if (mixdev >= num_mixers || !mixer_devs[mixdev]) return -ENXIO; if (cmd == SOUND_MIXER_INFO) return get_mixer_info(mixdev, arg); if (cmd == SOUND_OLD_MIXER_INFO) return get_old_mixer_info(mixdev, arg); if (_SIOC_DIR(cmd) & _SIOC_WRITE) mixer_devs[mixdev]->modify_counter++; if (!mixer_devs[mixdev]->ioctl) return -EINVAL; return mixer_devs[mixdev]->ioctl(mixdev, cmd, arg); } static int sound_ioctl(struct inode *inode, struct file *file, unsigned int cmd, unsigned long arg) { int err, len = 0, dtype; int dev = MINOR(inode->i_rdev); if (_SIOC_DIR(cmd) != _SIOC_NONE && _SIOC_DIR(cmd) != 0) { /* * Have to validate the address given by the process. */ len = _SIOC_SIZE(cmd); if (len < 1 || len > 65536 || arg == 0) return -EFAULT; if (_SIOC_DIR(cmd) & _SIOC_WRITE) if ((err = verify_area(VERIFY_READ, (void *)arg, len)) < 0) return err; if (_SIOC_DIR(cmd) & _SIOC_READ) if ((err = verify_area(VERIFY_WRITE, (void *)arg, len)) < 0) return err; } DEB(printk("sound_ioctl(dev=%d, cmd=0x%x, arg=0x%x)\n", dev, cmd, arg)); if (cmd == OSS_GETVERSION) return __put_user(SOUND_VERSION, (int *)arg); if (_IOC_TYPE(cmd) == 'M' && num_mixers > 0 && /* Mixer ioctl */ (dev & 0x0f) != SND_DEV_CTL) { dtype = dev & 0x0f; switch (dtype) { case SND_DEV_DSP: case SND_DEV_DSP16: case SND_DEV_AUDIO: return sound_mixer_ioctl(audio_devs[dev >> 4]->mixer_dev, cmd, (caddr_t)arg); default: return sound_mixer_ioctl(dev >> 4, cmd, (caddr_t)arg); } } switch (dev & 0x0f) { case SND_DEV_CTL: if (cmd == SOUND_MIXER_GETLEVELS) return get_mixer_levels((caddr_t)arg); if (cmd == SOUND_MIXER_SETLEVELS) return set_mixer_levels((caddr_t)arg); return sound_mixer_ioctl(dev >> 4, cmd, (caddr_t)arg); case SND_DEV_SEQ: case SND_DEV_SEQ2: return sequencer_ioctl(dev, file, cmd, (caddr_t)arg); case SND_DEV_DSP: case SND_DEV_DSP16: case SND_DEV_AUDIO: return audio_ioctl(dev, file, cmd, (caddr_t)arg); break; case SND_DEV_MIDIN: return MIDIbuf_ioctl(dev, file, cmd, (caddr_t)arg); break; } return -EINVAL; } static unsigned int sound_poll(struct file *file, poll_table * wait) { struct inode *inode = file->f_dentry->d_inode; int dev = MINOR(inode->i_rdev); DEB(printk("sound_poll(dev=%d)\n", dev)); switch (dev & 0x0f) { case SND_DEV_SEQ: case SND_DEV_SEQ2: return sequencer_poll(dev, file, wait); case SND_DEV_MIDIN: return MIDIbuf_poll(dev, file, wait); case SND_DEV_DSP: case SND_DEV_DSP16: case SND_DEV_AUDIO: return DMAbuf_poll(file, dev >> 4, wait); } return 0; } static int sound_mmap(struct file *file, struct vm_area_struct *vma) { int dev_class; unsigned long size; struct dma_buffparms *dmap = NULL; int dev = MINOR(file->f_dentry->d_inode->i_rdev); 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->vm_flags & VM_WRITE) /* Map write and read/write to the output buf */ dmap = audio_devs[dev]->dmap_out; else if (vma->vm_flags & VM_READ) dmap = audio_devs[dev]->dmap_in; 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->vm_pgoff != 0) { /* printk("Sound: mmap() offset must be 0.\n");*/ return -EINVAL; } size = vma->vm_end - vma->vm_start; if (size != dmap->bytes_in_use) { printk(KERN_WARNING "Sound: mmap() size = %ld. Should be %d\n", size, dmap->bytes_in_use); } if (remap_page_range(vma->vm_start, virt_to_phys(dmap->raw_buf), vma->vm_end - vma->vm_start, vma->vm_page_prot)) return -EAGAIN; dmap->mapping_flags |= DMA_MAP_MAPPED; if( audio_devs[dev]->d->mmap) audio_devs[dev]->d->mmap(dev); memset(dmap->raw_buf, dmap->neutral_byte, dmap->bytes_in_use); return 0; } struct file_operations oss_sound_fops = { llseek: sound_lseek, read: sound_read, write: sound_write, poll: sound_poll, ioctl: sound_ioctl, mmap: sound_mmap, open: sound_open, release: sound_release, }; /* * Create the required special subdevices */ static int create_special_devices(void) { int seq1,seq2; int sndstat=register_sound_special(&oss_sound_fops, 6); if(sndstat==-1) goto bad1; seq1=register_sound_special(&oss_sound_fops, 1); if(seq1==-1) goto bad2; seq2=register_sound_special(&oss_sound_fops, 8); if(seq2!=-1) return 0; unregister_sound_special(1); bad2: unregister_sound_special(6); bad1: return -1; } /* These device names follow the official Linux device list, * Documentation/devices.txt. Let us know if there are other * common names we should support for compatibility. * Only those devices not created by the generic code in sound_core.c are * registered here. */ static const struct { unsigned short minor; char *name; umode_t mode; int *num; } dev_list[] = { /* list of minor devices */ /* seems to be some confusion here -- this device is not in the device list */ {SND_DEV_DSP16, "dspW", S_IWUGO | S_IRUSR | S_IRGRP, &num_audiodevs}, {SND_DEV_AUDIO, "audio", S_IWUGO | S_IRUSR | S_IRGRP, &num_audiodevs}, }; static char * soundcard_make_name(char *buf, char *name, int idx) { if (idx==0) sprintf(buf, "sound/%s", name); else sprintf(buf, "sound/%s%d", name, idx); return buf; } /* Register/unregister audio entries */ static void soundcard_register_devfs (int do_register) { char name_buf[32]; int i, j, num; for (i = 0; i < sizeof (dev_list) / sizeof *dev_list; i++) { num = (dev_list[i].num == NULL) ? 0 : *dev_list[i].num; for (j = 0; j < num || j == 0; j++) { soundcard_make_name (name_buf, dev_list[i].name, j); if (do_register) devfs_register (NULL, name_buf, 0, DEVFS_FL_NONE, SOUND_MAJOR, dev_list[i].minor+ (j* 0x10), S_IFCHR | dev_list[i].mode, 0, 0, &oss_sound_fops, NULL); else { devfs_handle_t de; de = devfs_find_handle (NULL, name_buf, 0, 0, 0, DEVFS_SPECIAL_CHR, 0); devfs_unregister (de); } } } } #ifdef MODULE static void #else void #endif soundcard_init(void) { /* drag in sound_syms.o */ { extern char sound_syms_symbol; sound_syms_symbol = 0; } #ifndef MODULE create_special_devices(); chrdev_registered = 1; #endif soundcard_configured = 1; audio_init_devices(); soundcard_register_devfs(1); /* register after we know # of devices */ } #ifdef MODULE static void destroy_special_devices(void) { unregister_sound_special(6); unregister_sound_special(1); unregister_sound_special(8); } static int sound[20] = { 0 }; static int dmabuf = 0; static int dmabug = 0; MODULE_PARM(dmabuf, "i"); MODULE_PARM(dmabug, "i"); int init_module(void) { int err; if(dmabug) isa_dma_bridge_buggy = dmabug; err = create_special_devices(); if (err) { printk(KERN_ERR "sound: driver already loaded/included in kernel\n"); return err; } /* Protecting the innocent */ sound_dmap_flag = (dmabuf > 0 ? 1 : 0); chrdev_registered = 1; soundcard_init(); if (sound_nblocks >= 1024) printk(KERN_ERR "Sound warning: Deallocation table was too small.\n"); return 0; } void cleanup_module(void) { int i; if (MOD_IN_USE) { return; } remove_proc_entry("sound", NULL); soundcard_register_devfs (0); if (chrdev_registered) destroy_special_devices(); sound_stop_timer(); sequencer_unload(); for (i = 0; i < MAX_DMA_CHANNELS; i++) { if (dma_alloc_map[i] != DMA_MAP_UNAVAIL) { printk(KERN_ERR "Sound: Hmm, DMA%d was left allocated - fixed\n", i); sound_free_dma(i); } } for (i = 0; i < sound_nblocks; i++) { vfree(sound_mem_blocks[i]); } } #endif 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 (!valid_dma(chn)) { printk(KERN_ERR "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 (%d)\n", chn, dma_alloc_map[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_UNAVAIL) { /* 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(KERN_ERR "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); } static void do_sequencer_timer(unsigned long dummy) { sequencer_timer(0); } static struct timer_list seq_timer = {NULL, NULL, 0, 0, do_sequencer_timer}; void request_sound_timer(int count) { extern unsigned long seq_time; if (count < 0) { seq_timer.expires = (-count) + jiffies; add_timer(&seq_timer); return; } count += seq_time; count -= jiffies; if (count < 1) count = 1; seq_timer.expires = (count) + jiffies; add_timer(&seq_timer); } void sound_stop_timer(void) { del_timer(&seq_timer);; } void conf_printf(char *name, struct address_info *hw_config) { #ifndef CONFIG_SOUND_TRACEINIT return; #else 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"); #endif } void conf_printf2(char *name, int base, int irq, int dma, int dma2) { #ifndef CONFIG_SOUND_TRACEINIT return; #else 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"); #endif } /* * Module and lock management */ /* * When a sound module is registered we need to bring it to the current * lock level... */ void sound_notifier_chain_register(struct notifier_block *bl) { int ct=0; notifier_chain_register(&sound_locker, bl); /* * Normalise the lock count by calling the entry directly. We * have to call the module as it owns its own use counter */ while(ctnotifier_call(bl, 1, 0); ct++; } }