sys/src/sysschevt.c

Go to the documentation of this file.

// _Id: sysschevt.c,v 1.15 2009-05-10 21:11:31 roart Exp $
// _Locker:  $

// Author. Roar Thronæs.
/**
   \file sysschevt.c
   \brief system scheduling and timer
   \author Roar Thronæs
*/

#include<linux/linkage.h>
#include<linux/sched.h>
#include<ssdef.h>
#include<tqedef.h>
#include<cpudef.h>
#include<dyndef.h>
#include<system_data_cells.h>
#include <ipl.h>
#include<internals.h>
#include <statedef.h>
#include<linux/vmalloc.h>
#include<linux/smp.h>
#include <linux/slab.h>
#include <exe_routines.h>

/**
   \brief set timer - see 5.2 11.6.1
   \param efn event flag
   \param daytim time
   \param astadr ast routine
   \param reqidt param for it
   \param flags
*/

asmlinkage int exe_setimr  (unsigned int efn, signed long long *daytim,
                 void (*astadr)(long), unsigned
                 long reqidt, unsigned int flags) {
  unsigned long long time;
  /** test time location - MISSING */
  /** test astcnt - MISSING */
  /** decrement jib tqcnt, test and maybe MWAIT - MISSING */
  /** allocate tqe */
  struct _tqe * t=kmalloc(sizeof(struct _tqe),GFP_KERNEL);
  struct _cpu * cpu=smp_gl_cpu_data[smp_processor_id()];
  memset(t,0,sizeof(struct _tqe));
  t->tqe_b_type=DYN$C_TQE;
  /** clear event flag */
  exe_clref(efn);
  /** fifth nonzero argument test */
  /** wrong use TODO use chk_cputim field */
  if (flags) t->tqe_b_rqtype=TQE$M_CHK_CPUTIM;
  if (!daytim) return SS__ACCVIO;
  /** if negative, then relative time */
  /** set absolute bit - MISSING */
  if (*daytim<0) {
    time=exe_gq_systime-*daytim;
  } else {
    time=*daytim;
  }
  //printk("astadr %x\n",astadr);
  /** store access mode in tqe - MISSING */
  /** if no astadr, decrease astcnt and set quota bit - MISSING */
  t->tqe_l_ast=astadr;
  //  printk("astadr2 %x\n",t->tqe_l_fpc);
  t->tqe_l_astprm=reqidt;
  t->tqe_q_time=time;
  t->tqe_b_rqtype=TQE$C_TMSNGL;
  t->tqe_l_pid=ctl$gl_pcb->pcb$l_pid;
  t->tqe_b_efn=efn;
  //printast((struct _acb * )t);
  /** insert in timer queue */
  exe_instimq(t);
}

/**
   \brief schedule wakeup - see 5.2 11.6.3
   \param pidadr address of pid
   \param prcnam process name
   \param daytim time of day
   \param reptim time to repeat
*/

asmlinkage int exe_schdwk(unsigned int *pidadr, void *prcnam, signed long long * daytim, signed long long * reptim) {
  struct _pcb * retpcb, *p;
  unsigned long retipid, retepid;
  /** invoke exe_nampid to find pcb */
  int sts=exe_nampid(current,pidadr,prcnam,&retpcb,&retipid,&retepid);
  p=retpcb;
  /** TODO better handling of sts and vmsunlock */
  vmsunlock(&SPIN_SCHED,0);
  /** maybe cwps - MISSING */
  if (!p) return;
  {
  unsigned long long time;
  /** allocate and init tqe */
  struct _tqe * t=kmalloc(sizeof(struct _tqe),GFP_KERNEL);
  struct _cpu * cpu=smp_gl_cpu_data[smp_processor_id()];
  memset(t,0,sizeof(struct _tqe));
  t->tqe_b_type=DYN$C_TQE;
  /** test if one-time or repeating */
  if (*daytim<0) {
    /** convert repeat to system time format */
    time=exe_gq_systime-*daytim;
    /** if relative clear tqe absolute bit - MISSING */
  } else {
    time=*daytim;
  }
  t->tqe_l_pid=p->pcb$l_pid;
  t->tqe_q_time=time;
  if (reptim) t->tqe_q_delta=-(*reptim);
  t->tqe_b_rqtype=TQE$C_WKSNGL;
  if (reptim) t->tqe_b_rqtype|=TQE$M_REPEAT;
  //printast((struct _acb * )t);
  /** decrement astcnt - MISSING */
  /** insert with instimq */
  exe_instimq(t);
  }
  /** return value - MISSING */
}

---