sys/src/syscli.c

Go to the documentation of this file.

// _Id: syscli.c,v 1.5 2007-02-04 16:36:13 roart Exp $
// _Locker:  $

// Author. Roar Thronæs.

#include <linux/config.h>
#include <linux/linkage.h>
#include <linux/string.h>

#include <clidef.h>
#include <cliservdef.h>
#include <descrip.h>
#include <ssdef.h>
#include <system_data_cells.h>
#include <linux/slab.h>

// remember ctl_ag_clidata

#define MAXSYMNAM 64

typedef struct symbol symbol;

struct symbol { symbol *next;
  int namelen;
  char name[MAXSYMNAM];
  //Symtype symtype;
  //unsigned long (*func) (Symbol *symbol, char *strp, char **rtnp, void *valuep);
  //unsigned long ivalue;
  int svaluelen;
  char svalue[1];
};

int add_sym(struct dsc_descriptor * sym, struct dsc$descriptor * val) {
  symbol * s = kmalloc(sizeof(symbol)+64/*sym->dsc_w_length*/, GFP_KERNEL);
  s->namelen=sym->dsc_w_length;
  s->svaluelen=val->dsc_w_length;
  memcpy(s->name,sym->dsc_a_pointer,sym->dsc$w_length);
  memcpy(s->svalue,val->dsc_a_pointer,val->dsc$w_length);
  s->next=((symbol *)ctl_ag_clidata)/*->next*/;
  ctl_ag_clidata=s;
}

int mod_sym(symbol * sym, struct dsc_descriptor * val) {
  symbol * s = sym;
  s->svaluelen=val->dsc_w_length;
  memcpy(s->svalue,val->dsc_a_pointer,val->dsc$w_length);
}

int find_sym(struct dsc_descriptor * sym) {
  symbol * tmp = ctl_ag_clidata;
  while (tmp) {
#if 0
    printk("%d %d %s %s ", tmp->namelen, sym->dsc_w_length, sym->dsc$a_pointer,&tmp->name,tmp->namelen);
#endif
    if (tmp->namelen==sym->dsc_w_length && 0==strncmp(sym->dsc$a_pointer,&tmp->name,tmp->namelen))
      return tmp;
    tmp=tmp->next;
  }
  return 0;
}

int del_sym(struct dsc_descriptor * sym) {
  int a = find_sym(sym);
  if (a==0) return 0;
  symbol ** tmp = &ctl_ag_clidata;
  while (*tmp) {
    if ((*tmp)->namelen==sym->dsc_w_length && 0==strncmp(sym->dsc$a_pointer,&(*tmp)->name,(*tmp)->namelen))
      break;
    tmp=(*tmp); // next
  }
  void * tmp2=*tmp;
  *tmp=(*tmp)->next;
  kfree(tmp2);
  return 0;
}

cre_or_mod_sym(struct dsc_descriptor * sym, struct dsc$descriptor * val) {
  symbol * s = find_sym(sym);
  if (s)
    mod_sym(s,val);
  else
    add_sym(sym,val);
}

asmlinkage int exe_cli(void * cliv, int par1, int par2) {
  struct _clidef1 * cli = cliv;
  struct _clidef2 * cli2 = cliv;
  if (cli->cli_b_rqtype!=CLI$K_CLISERV) {
    printk("cli rqtype is not CLISERV\n");
    return 0;
  }
  switch (cli->cli_w_servcod) {
  case CLI_K_DEFLOCAL:
    cre_or_mod_sym(&cli2->cli_q_namdesc,&cli2->cli$q_valdesc);
    break;
  case CLI_K_CREALOG:
    break;
  case CLI_K_DELELOG:
    printk("no delete logical yet\n");
    break;
  case CLI_K_GETSYM:
    {
      symbol * s = find_sym(&cli2->cli_q_namdesc);
      if (s) {
        struct dsc_descriptor * d = &cli2->cli$q_valdesc;
        d->dsc_w_length=s->svaluelen;
        memcpy(d->dsc_a_pointer,s->svalue,d->dsc$w_length);
      } else
        return 0;
    }
    break;
  case CLI_K_DELELCL:
      del_sym(&cli2->cli_q_namdesc);
    break;
  default:
    printk("cli servcod %x not known\n",cli->cli_w_servcod);
    break;
  }
  return SS__NORMAL;
}

---