freebsd-nq/release/sysinstall/uc_main.c

/***************************************************
 * file: userconfig/uc_main.c
 *
 * Copyright (c) 1996 Eric L. Hernes (erich@rrnet.com)
 * All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions
 * are met:
 * 1. Redistributions of source code must retain the above copyright
 *    notice, this list of conditions and the following disclaimer.
 * 2. The name of the author may not be used to endorse or promote products
 *    derived from this software withough specific prior written permission
 *
 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
 * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
 * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
 * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
 * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
 * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
 * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
 * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
 * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
 * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 * library functions for userconfig library
 *
 * $Id: uc_main.c,v 1.2 1996/10/03 07:50:09 jkh Exp $
 */

#include <sys/types.h>
#include <stdlib.h>
#include <unistd.h>
#include <string.h>
#include <paths.h>
#include <sys/mman.h>
#include <nlist.h>
#include <sys/stat.h>
#include <fcntl.h>
#include <tcl.h>

#include "uc_main.h"

extern int	isDebug(void);
extern void	msgDebug(char *fmt, ...);

#ifdef KERN_NO_SYMBOLS
#include "kern-nlist.h"
#else
struct nlist    nl[] = {
  {"_isa_devtab_bio"},
  {"_isa_devtab_tty"},
  {"_isa_devtab_net"},
  {"_isa_devtab_null"},
  {"_isa_biotab_wdc"},
  {"_isa_biotab_fdc"},
  {"_eisadriver_set"},
  {"_eisa_dev_list"},
  {"_pcidevice_set"},
  {"_device_list"},
  {"_scbusses"},
  {"_scsi_cinit"},
  {"_scsi_dinit"},
  {"_scsi_tinit"},
  {""},
};
#endif

struct kernel *
uc_open(char *name){
  int kd, flags, incore;
  struct kernel *kern;
  struct stat sb;
  char kname[80];

  if (strcmp(name, "-incore")==0){
    incore=1;
  } else {
    incore=0;
  }

  if (incore||(strcmp(name,"-bootfile")==0)) {
    strncpy(kname, getbootfile(), 79);
  } else {
    strncpy(kname, name, 79);
  }
  if (isDebug())
      msgDebug("uc_open: kernel name is %s, incore = %d\n", kname, incore);

  kern=(struct kernel *)malloc(sizeof(struct kernel));

#ifdef KERN_NO_SYMBOLS
  if (incore) {
      kern->nl=kern_nl;
      i = 0;
  }
  else
      i = nlist(kname, nl);
#else
  i = nlist(kname, nl);
#endif
  if (i == -1) {
      msgDebug("uc_open: kernel %s does not contain symbols.\n", kname);
      kern = (struct kernel *)-5;
      return kern;
  }
  kern->nl=(struct nlist *)malloc(sizeof(nl));
  bcopy(nl, kern->nl, sizeof(nl));

  if(incore){
    if((kd=open("/dev/kmem", O_RDONLY))<0){
      free(kern);
      kern=(struct kernel *)-3;
      msgDebug("uc_open: Unable to open /dev/kmem.\n");
      return(kern);
    }

    kern->core=(caddr_t)NULL;
    kern->incore=1;
    kern->size=0;

  } else {
    if(stat(kname, &sb)<0){
      free(kern);
      kern=(struct kernel *)-1;
      msgDebug("uc_open: Unable to stat %s.\n", kname);
      return(kern);
    }
    kern->size=sb.st_size;
    flags=sb.st_flags;

    if (chflags(kname, 0)<0){
      free(kern);
      kern=(struct kernel *)-2;
      msgDebug("uc_open: Unable to chflags %s.\n", kname);
      return(kern);
    }

    if (isDebug())
	msgDebug("uc_open: attempting to open %s\n", kname);
    if((kd=open(kname, O_RDWR, 0644))<0){
      free(kern);
      kern=(struct kernel *)-3;
      msgDebug("uc_open: Unable to open %s.\n", kname);
      return(kern);
    }

    fchflags(kd, flags);

    if (isDebug())
	msgDebug("uc_open: attempting to mmap %d bytes\n", sb.st_size);
    kern->core=mmap((caddr_t)0, sb.st_size, PROT_READ | PROT_WRITE,
		    MAP_SHARED, kd, 0);
    kern->incore=0;

    if(kern->core == (caddr_t)0){
      free(kern);
      kern=(struct kernel *)-4;
      msgDebug("uc_open: Unable to mmap from %s.\n", kname);
      return(kern);
    }
  }

  kern->fd=kd;

  if (isDebug())
      msgDebug("uc_open: getting isa information\n");
  get_isa_info(kern);

  if (isDebug())
      msgDebug("uc_open: getting pci information\n");
  get_pci_info(kern);

  if (isDebug())
      msgDebug("uc_open: getting eisa information\n");
  get_eisa_info(kern);

  if (isDebug())
      msgDebug("uc_open: getting scsi information\n");
  get_scsi_info(kern);

  return(kern);
}

int
uc_close(struct kernel *kern, int writeback){
  if(kern->isa_devp){
    isa_free(kern, writeback);
  }

  if(kern->eisa_devp){
    eisa_free(kern, writeback); /* `writeback' isn't really useful here */
  }

  if(kern->pci_devp){
    pci_free(kern, writeback); /* or here */
  }

  if(kern->scsi_devp){
    scsi_free(kern, writeback);
  }

  if(!kern->incore) {
    munmap(kern->core, kern->size);
  }
  close(kern->fd);
  free(kern->nl);
  free(kern);

  return(0);
}

struct list *
uc_getdev(struct kernel *kern, char *dev){
  struct list *list=(struct list *)0;

  if(*dev=='-'){ /* asked for -isa, -eisa, -pci, -scsi, -all */
    if(strcmp(dev, "-all")==0) {
      list=list_new();
      if(kern->isa_devp) {
	list_append(list, "isa");
      }

      if(kern->eisa_devp) {
	list_append(list, "eisa");
      }

      if(kern->pci_devp) {
	list_append(list, "pci");
      }

      if(kern->scsi_devp) {
	list_append(list, "scsi");
      }

    } else if (strcmp(dev, "-isa")==0) {
      list=get_isa_devlist(kern);
    } else if (strcmp(dev, "-eisa")==0) {
      list=get_eisa_devlist(kern);
    } else if (strcmp(dev, "-pci")==0) {
      list=get_pci_devlist(kern);
    } else if (strcmp(dev, "-scsi")==0) {
      list=get_scsi_devlist(kern);
    }
  } else {
    /* we gotta figure out which real device to report */
    struct uc_isa *ip;
    struct uc_scsi *sp;
    struct uc_pci *pp;
    struct uc_eisa *ep;

    if(kern->isa_devp){
      for(ip=kern->isa_devp;ip->device;ip++){
	if(strcmp(dev, ip->device)==0) {
	  list=get_isa_device(ip);
	  goto end;
	}
      }
    }

    if (kern->scsi_devp) {
      for(sp=kern->scsi_devp;sp->device;sp++){
	if(strcmp(dev, sp->device)==0){
	  list=get_scsi_device(sp);
	  goto end;
	}
      }
    }

    if (kern->pci_devp) {
      for(pp=kern->pci_devp;pp->device;pp++){
	if(strcmp(dev, pp->device)==0){
	  list=get_pci_device(pp);
	  goto end;
	}
      }
    }

    if (kern->eisa_devp) {
      for(ep=kern->eisa_devp;ep->device;ep++){
	if(strcmp(dev, ep->device)==0){
	  list=get_eisa_device(ep);
	  goto end;
	}
      }
    }

  }

end:
  return(list);
}


/* end of userconfig/uc_main.c */