sound/oss/sound_timer.c

   1 /*
   2  * sound/sound_timer.c
   3  */
   4 /*
   5  * Copyright (C) by Hannu Savolainen 1993-1997
   6  *
   7  * OSS/Free for Linux is distributed under the GNU GENERAL PUBLIC LICENSE (GPL)
   8  * Version 2 (June 1991). See the "COPYING" file distributed with this software
   9  * for more info.
  10  */
  11 /*
  12  * Thomas Sailer   : ioctl code reworked (vmalloc/vfree removed)
  13  */
  14 #include <linux/string.h>
  15 #include <linux/spinlock.h>
  16
  17 #include "sound_config.h"
  18
  19 static volatile int initialized, opened, tmr_running;
  20 static volatile time_t tmr_offs, tmr_ctr;
  21 static volatile unsigned long ticks_offs;
  22 static volatile int curr_tempo, curr_timebase;
  23 static volatile unsigned long curr_ticks;
  24 static volatile unsigned long next_event_time;
  25 static unsigned long prev_event_time;
  26 static volatile unsigned long usecs_per_tmr;    /* Length of the current interval */
  27
  28 static struct sound_lowlev_timer *tmr;
  29 static spinlock_t lock;
  30
  31 static unsigned long tmr2ticks(int tmr_value)
  32 {
  33         /*
  34          *    Convert timer ticks to MIDI ticks
  35          */
  36
  37         unsigned long tmp;
  38         unsigned long scale;
  39
  40         tmp = tmr_value * usecs_per_tmr;        /* Convert to usecs */
  41         scale = (60 * 1000000) / (curr_tempo * curr_timebase);  /* usecs per MIDI tick */
  42         return (tmp + (scale / 2)) / scale;
  43 }
  44
  45 void reprogram_timer(void)
  46 {
  47         unsigned long   usecs_per_tick;
  48
  49         /*
  50          *      The user is changing the timer rate before setting a timer
  51          *      slap, bad bad not allowed.
  52          */
  53
  54         if(!tmr)
  55                 return;
  56
  57         usecs_per_tick = (60 * 1000000) / (curr_tempo * curr_timebase);
  58
  59         /*
  60          * Don't kill the system by setting too high timer rate
  61          */
  62         if (usecs_per_tick < 2000)
  63                 usecs_per_tick = 2000;
  64
  65         usecs_per_tmr = tmr->tmr_start(tmr->dev, usecs_per_tick);
  66 }
  67
  68 void sound_timer_syncinterval(unsigned int new_usecs)
  69 {
  70         /*
  71          *    This routine is called by the hardware level if
  72          *      the clock frequency has changed for some reason.
  73          */
  74         tmr_offs = tmr_ctr;
  75         ticks_offs += tmr2ticks(tmr_ctr);
  76         tmr_ctr = 0;
  77         usecs_per_tmr = new_usecs;
  78 }
  79
  80 static void tmr_reset(void)
  81 {
  82         unsigned long   flags;
  83
  84         spin_lock_irqsave(&lock,flags);
  85         tmr_offs = 0;
  86         ticks_offs = 0;
  87         tmr_ctr = 0;
  88         next_event_time = (unsigned long) -1;
  89         prev_event_time = 0;
  90         curr_ticks = 0;
  91         spin_unlock_irqrestore(&lock,flags);
  92 }
  93
  94 static int timer_open(int dev, int mode)
  95 {
  96         if (opened)
  97                 return -EBUSY;
  98         tmr_reset();
  99         curr_tempo = 60;
 100         curr_timebase = 100;
 101         opened = 1;
 102         reprogram_timer();
 103         return 0;
 104 }
 105
 106 static void timer_close(int dev)
 107 {
 108         opened = tmr_running = 0;
 109         tmr->tmr_disable(tmr->dev);
 110 }
 111
 112 static int timer_event(int dev, unsigned char *event)
 113 {
 114         unsigned char cmd = event[1];
 115         unsigned long parm = *(int *) &event[4];
 116
 117         switch (cmd)
 118         {
 119                 case TMR_WAIT_REL:
 120                         parm += prev_event_time;
 121                 case TMR_WAIT_ABS:
 122                         if (parm > 0)
 123                         {
 124                                 long time;
 125
 126                                 if (parm <= curr_ticks) /* It's the time */
 127                                         return TIMER_NOT_ARMED;
 128                                 time = parm;
 129                                 next_event_time = prev_event_time = time;
 130                                 return TIMER_ARMED;
 131                         }
 132                         break;
 133
 134                 case TMR_START:
 135                         tmr_reset();
 136                         tmr_running = 1;
 137                         reprogram_timer();
 138                         break;
 139
 140                 case TMR_STOP:
 141                         tmr_running = 0;
 142                         break;
 143
 144                 case TMR_CONTINUE:
 145                         tmr_running = 1;
 146                         reprogram_timer();
 147                         break;
 148
 149                 case TMR_TEMPO:
 150                         if (parm)
 151                         {
 152                                 if (parm < 8)
 153                                         parm = 8;
 154                                 if (parm > 250)
 155                                         parm = 250;
 156                                 tmr_offs = tmr_ctr;
 157                                 ticks_offs += tmr2ticks(tmr_ctr);
 158                                 tmr_ctr = 0;
 159                                 curr_tempo = parm;
 160                                 reprogram_timer();
 161                         }
 162                         break;
 163
 164                 case TMR_ECHO:
 165                         seq_copy_to_input(event, 8);
 166                         break;
 167
 168                 default:;
 169         }
 170         return TIMER_NOT_ARMED;
 171 }
 172
 173 static unsigned long timer_get_time(int dev)
 174 {
 175         if (!opened)
 176                 return 0;
 177         return curr_ticks;
 178 }
 179
 180 static int timer_ioctl(int dev, unsigned int cmd, void __user *arg)
 181 {
 182         int __user *p = arg;
 183         int val;
 184
 185         switch (cmd)
 186         {
 187                 case SNDCTL_TMR_SOURCE:
 188                         val = TMR_INTERNAL;
 189                         break;
 190
 191                 case SNDCTL_TMR_START:
 192                         tmr_reset();
 193                         tmr_running = 1;
 194                         return 0;
 195
 196                 case SNDCTL_TMR_STOP:
 197                         tmr_running = 0;
 198                         return 0;
 199
 200                 case SNDCTL_TMR_CONTINUE:
 201                         tmr_running = 1;
 202                         return 0;
 203
 204                 case SNDCTL_TMR_TIMEBASE:
 205                         if (get_user(val, p))
 206                                 return -EFAULT;
 207                         if (val)
 208                         {
 209                                 if (val < 1)
 210                                         val = 1;
 211                                 if (val > 1000)
 212                                         val = 1000;
 213                                 curr_timebase = val;
 214                         }
 215                         val = curr_timebase;
 216                         break;
 217
 218                 case SNDCTL_TMR_TEMPO:
 219                         if (get_user(val, p))
 220                                 return -EFAULT;
 221                         if (val)
 222                         {
 223                                 if (val < 8)
 224                                         val = 8;
 225                                 if (val > 250)
 226                                         val = 250;
 227                                 tmr_offs = tmr_ctr;
 228                                 ticks_offs += tmr2ticks(tmr_ctr);
 229                                 tmr_ctr = 0;
 230                                 curr_tempo = val;
 231                                 reprogram_timer();
 232                         }
 233                         val = curr_tempo;
 234                         break;
 235
 236                 case SNDCTL_SEQ_CTRLRATE:
 237                         if (get_user(val, p))
 238                                 return -EFAULT;
 239                         if (val != 0)   /* Can't change */
 240                                 return -EINVAL;
 241                         val = ((curr_tempo * curr_timebase) + 30) / 60;
 242                         break;
 243
 244                 case SNDCTL_SEQ_GETTIME:
 245                         val = curr_ticks;
 246                         break;
 247
 248                 case SNDCTL_TMR_METRONOME:
 249                 default:
 250                         return -EINVAL;
 251         }
 252         return put_user(val, p);
 253 }
 254
 255 static void timer_arm(int dev, long time)
 256 {
 257         if (time < 0)
 258                 time = curr_ticks + 1;
 259         else if (time <= curr_ticks)    /* It's the time */
 260                 return;
 261
 262         next_event_time = prev_event_time = time;
 263         return;
 264 }
 265
 266 static struct sound_timer_operations sound_timer =
 267 {
 268         .owner          = THIS_MODULE,
 269         .info           = {"Sound Timer", 0},
 270         .priority       = 1,    /* Priority */
 271         .devlink        = 0,    /* Local device link */
 272         .open           = timer_open,
 273         .close          = timer_close,
 274         .event          = timer_event,
 275         .get_time       = timer_get_time,
 276         .ioctl          = timer_ioctl,
 277         .arm_timer      = timer_arm
 278 };
 279
 280 void sound_timer_interrupt(void)
 281 {
 282         unsigned long flags;
 283
 284         if (!opened)
 285                 return;
 286
 287         tmr->tmr_restart(tmr->dev);
 288
 289         if (!tmr_running)
 290                 return;
 291
 292         spin_lock_irqsave(&lock,flags);
 293         tmr_ctr++;
 294         curr_ticks = ticks_offs + tmr2ticks(tmr_ctr);
 295
 296         if (curr_ticks >= next_event_time)
 297         {
 298                 next_event_time = (unsigned long) -1;
 299                 sequencer_timer(0);
 300         }
 301         spin_unlock_irqrestore(&lock,flags);
 302 }
 303
 304 void  sound_timer_init(struct sound_lowlev_timer *t, char *name)
 305 {
 306         int n;
 307
 308         if (initialized)
 309         {
 310                 if (t->priority <= tmr->priority)
 311                         return; /* There is already a similar or better timer */
 312                 tmr = t;
 313                 return;
 314         }
 315         initialized = 1;
 316         tmr = t;
 317
 318         n = sound_alloc_timerdev();
 319         if (n == -1)
 320                 n = 0;          /* Overwrite the system timer */
 321         strcpy(sound_timer.info.name, name);
 322         sound_timer_devs[n] = &sound_timer;
 323 }