sys/src/sysgetjpi.c

Go to the documentation of this file.

// _Id: sysgetjpi.c,v 1.13 2009-05-16 16:59:44 roart Exp $
// _Locker:  $

// Author. Roar Thronæs.
/**
   \file sysgetjpi.c
   \brief system get job and process information
   \author Roar Thronæs
*/

#include<linux/linkage.h>
#include<linux/sched.h>

#include<starlet.h>
#include<jpidef.h>
#include <ssdef.h>
#include <misc.h>
#include <phddef.h>
#include<pridef.h>
#include <exe_routines.h>
#include <sch_routines.h>

// this behaves like getjpiw for now

/**
   \brief system service get job or process info - see 5.2 13.2.3
   \details make multiuser version
*/

asmlinkage int exe_getjpi(unsigned int efn, unsigned int *pidadr, void * prcnam, void *itmlst, struct _iosb *iosb, void (*astadr)(), unsigned long long astprm) {
  struct _pcb * p;
  int sts;
  struct item_list_3 * it=itmlst;
  /** test list item entries */
  /** use pidadr - MISSING */
  /** clear event flag */
  exe_clref(efn);
  /** find next pcb */
  sts=exe_pscan_next_id(&p);
  if (sts==0)
    return SS__NOMOREPROC;
  /** invoke nampid - MISSING */
  /** if other node, cwps - MISSING */
  /** iosb writecheck - MISSING */
  /** if ast, check ast quota and charge - MISSING */
  /** writetest for buffer descriptors - MISSING */
  /** gather some usual informastion - TODO still more remains */
  while (it->item_code) {
    switch (it->item_code) {
    case JPI__PRCNAM:
      memcpy(it->bufaddr,&p->pcb_t_lname,15);
      break;

    case JPI__PID:
      memcpy(it->bufaddr,&p->pcb_l_epid,4);
      break;

    case JPI__MASTER_PID:
      memcpy(it->bufaddr,&p->pcb_l_pid,4);
      break;

    case JPI__STATE:
      *(unsigned long *)it->bufaddr=p->pcb_w_state;
      break;

    case JPI__PRI:
      *(unsigned long *)it->bufaddr=p->pcb_b_pri;
      break;

    case JPI__PAGEFLTS:
      *(unsigned long *)it->bufaddr=p->pcb_l_phd->phd$l_pageflts;
      break;

    case JPI__PPGCNT:
      *(unsigned long *)it->bufaddr=p->pcb_l_ppgcnt;
      break;

    case JPI__GPGCNT:
      *(unsigned long *)it->bufaddr=p->pcb_l_gpgcnt;
      break;

    case JPI__WSAUTH:
      *(unsigned long *)it->bufaddr=p->pcb_l_phd->phd$l_wsauth;
      break;

    case JPI__WSQUOTA:
      *(unsigned long *)it->bufaddr=p->pcb_l_phd->phd$l_wsquota;
      break;

    case JPI__WSSIZE:
      *(unsigned long *)it->bufaddr=p->pcb_l_phd->phd$l_wssize;
      break;

    case JPI__WSAUTHEXT:
      *(unsigned long *)it->bufaddr=p->pcb_l_phd->phd$l_wsauthext;
      break;

    case JPI__WSEXTENT:
      *(unsigned long *)it->bufaddr=p->pcb_l_phd->phd$l_wsextent;
      break;

    case JPI__BIOCNT:
      *(unsigned short *)it->bufaddr=p->pcb_w_biocnt;
      break;

    case JPI__BIOLM:
      *(unsigned short *)it->bufaddr=p->pcb_w_biolm;
      break;

    case JPI__DIOCNT:
      *(unsigned short *)it->bufaddr=p->pcb_w_diocnt;
      break;

    case JPI__DIOLM:
      *(unsigned short *)it->bufaddr=p->pcb_w_diolm;
      break;

    case JPI__CPUTIM:
      *(long long *)it->bufaddr=p->pcb_l_phd->phd$l_cputim;
      break;

    case JPI__DIRIO:
      *(unsigned int *)it->bufaddr=p->pcb_l_phd->phd$l_diocnt;
      break;

    case JPI__BUFIO:
      *(unsigned int *)it->bufaddr=p->pcb_l_phd->phd$l_biocnt;
      break;

    }
    it++;
  }

  /** post event flag */
  struct _pcb * pcb = ctl_gl_pcb;
  sch_postef(pcb->pcb$l_pid, PRI$_NULL, efn);

  /** eventual ast queue - MISSING */

  /** eventual iosb write */
  if (iosb)
    iosb->iosb_w_status=SS$_NORMAL;

  return SS__NORMAL;

  /** handle target process, kast etc - MISSING */
  /** handle target process, status, state - MISSING */

}

asmlinkage int exe_getjpiw(unsigned int efn, unsigned int *pidadr, void * prcnam, void *itmlst, struct _iosb *iosb, void (*astadr)(), unsigned long long astprm) {

  /* I think this is about it */

  int status=exe_getjpi(efn,pidadr,prcnam,itmlst,iosb,astadr,astprm);
  if ((status&1)==0) return status;
  return exe_synch(efn,iosb);

}

asmlinkage int exe_getjpi_wrap(struct struct_getjpi *s) {
  return exe_getjpi(s->efn,s->pidadr,s->prcnam,s->itmlst,s->iosb,s->astadr,s->astprm);
}

asmlinkage int exe_getjpiw_wrap(struct struct_getjpi *s) {
  return exe_getjpiw(s->efn,s->pidadr,s->prcnam,s->itmlst,s->iosb,s->astadr,s->astprm);
}

---