/* Copyright 1999 Red Hat, Inc.

/* Copyright 1999 Red Hat, Inc.
*
* This software may be freely redistributed under the terms of the GNU
* public license.
*
* You should have received a copy of the GNU General Public License
* along with this program; if not, write to the Free Software
* Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
*
*/

#include <dirent.h>
#include <errno.h>
#include <fcntl.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <unistd.h>
#include <sys/stat.h>
#include <sys/types.h>

#include "ide.h"

static void ideFreeDevice(struct ideDevice *dev)
{
if (dev->physical) free(dev->physical);
if (dev->logical) free(dev->logical);
freeDevice((struct device *) dev);
}

static void ideWriteDevice(FILE *file, struct ideDevice *dev)
{
writeDevice(file, (struct device *)dev);
if (dev->physical)
fprintf(file,"physical: %s\n",
dev->physical);
if (dev->logical)
fprintf(file,"logical: %s\n",
dev->logical);

}

static int ideCompareDevice(struct ideDevice *dev1, struct ideDevice *dev2)
{
return compareDevice((struct device *)dev1, (struct device *)dev2);
}

struct ideDevice *ideNewDevice(struct ideDevice *old)
{
struct ideDevice *ret;

ret = malloc(sizeof(struct ideDevice));
memset(ret, '\0', sizeof(struct ideDevice));
ret = (struct ideDevice *) newDevice((struct device *) old, (struct device *) ret);
ret->bus = BUS_IDE;
ret->newDevice = ideNewDevice;
ret->freeDevice = ideFreeDevice;
ret->writeDevice = ideWriteDevice;
ret->compareDevice = ideCompareDevice;
return ret;
}

struct device *ideProbe(enum deviceClass probeClass, int probeFlags,
struct device *devlist)
{
DIR *dir;
struct dirent *ent;
char path[80];
char readbuf[256];
char *buf, *ptr;
int fd, i;
struct ideDevice *newdev;

if (
(probeClass == CLASS_UNSPEC) ||
(probeClass == CLASS_OTHER) ||
(probeClass == CLASS_CDROM) ||
(probeClass == CLASS_FLOPPY) ||
(probeClass == CLASS_TAPE) ||
(probeClass == CLASS_HD)
) {
if (access("/proc/ide", R_OK))
return devlist;

if (!(dir = opendir("/proc/ide"))) {
return devlist;
}
while ((ent = readdir(dir))) {
sprintf(path, "/proc/ide/%s/media", ent->d_name);
if ((fd = open(path, O_RDONLY)) >= 0) {
i = read(fd, path, 50);
close(fd);
path[i - 1] = '\0'; /* chop off trailing \n */

newdev = ideNewDevice(NULL);
if (!strcmp(path, "cdrom"))
newdev->class = CLASS_CDROM;
else if (!strcmp(path, "disk"))
newdev->class = CLASS_HD;
else if (!strcmp(path, "tape"))
newdev->class = CLASS_TAPE;
else if (!strcmp(path, "floppy"))
newdev->class = CLASS_FLOPPY;
else
newdev->class = CLASS_OTHER;
newdev->device = strdup(ent->d_name);
newdev->driver = strdup("ignore");

sprintf(path, "/proc/ide/%s/model", ent->d_name);
if ((fd = open(path, O_RDONLY)) >= 0) {
i = read(fd, path, 50);
close(fd);
path[i - 1] = '\0'; /* chop off trailing \n */
newdev->desc = strdup(path);
} else {
newdev->desc = strdup("Generic IDE device");
}
sprintf(path,"/proc/ide/%s/geometry", ent->d_name);
if ((fd = open(path, O_RDONLY)) >= 0) {

i = read(fd, readbuf, 255);
close(fd);
buf=alloca(255);
strncpy(buf,readbuf,254);
ptr=buf;
while(*buf) {
while (*buf && (*buf != '\n')) buf++;
if (*buf == '\n') {
*buf = '\0';
buf++;
}
if (!strncmp(ptr,"physical",8))
newdev->physical=strdup(ptr+13);
if (!strncmp(ptr,"logical",7))
newdev->logical=strdup(ptr+13);
ptr=buf;
}
}
if (newdev->class == probeClass || probeClass == CLASS_UNSPEC) {
if (devlist)
newdev->next = devlist;
devlist = (struct device *) newdev;
} else {
newdev->freeDevice(newdev);
}
}
errno = 0;
}
closedir(dir);
}
return devlist;
}