mars-dosutils/map.c

314 lines
7.5 KiB
C
Raw Permalink Normal View History

2011-11-13 00:40:40 +01:00
/* map.c 05-Apr-96 */
/****************************************************************
* (C)opyright (C) 1993,1996 Martin Stover, Marburg, Germany *
****************************************************************/
#include "net.h"
typedef struct {
uint8 connection;
uint8 volume;
uint8 buff[512]; /* complete path */
uint8 *path; /* points to path */
} NWPATH;
static void show_map(uint8 *drvstr)
{
int j;
for (j=0; j < 32; j++){
uint8 connid;
uint8 dhandle;
uint8 flags;
if (*drvstr && (j + 'A' != *drvstr)) continue;
if ((!get_drive_info(j, &connid, &dhandle, &flags)) && flags){
char servern[52];
char path[256];
2011-11-13 00:40:40 +01:00
servern[0]='\0';
2011-11-13 00:40:40 +01:00
if (flags & 0x80) { /* lokal DRIVE */
path[0]= '\\';
if (j < 2){
strcpy(path, "DISK LW");
} else if (getcurdir(j+1, path+1)) {
strcpy(path, "LW !OK");
}
} else {
if (get_dir_path(dhandle, path)) {
strcpy(path, "DHANDLE !OK");
}
2011-11-13 00:40:40 +01:00
if (connid) {
get_fs_name(connid, servern);
strcat(servern, "\\");
} else servern[0]='\0';
2011-11-13 00:40:40 +01:00
}
printf("MAP %c: = %s%s\n", (char)j+'A', servern, path);
}
}
}
#if 0
static void do_map(int drive, NWPATH *nwp)
{
if (drive > -1 && drive < 32) {
uint8 connid;
uint8 dhandle;
uint8 flags;
if ((!get_drive_info(drive, &connid, &dhandle, &flags)) && flags){
char servern[52];
char path[256];
if (flags & 0x80) { /* lokal DRIVE */
path[0]= '\\';
if (drive < 2){
strcpy(path, "DISK LW");
} else if (getcurdir(drive+1, path+1)) {
strcpy(path, "LW !OK");
}
} else {
if (get_dir_path(dhandle, path)) {
strcpy(path, "DHANDLE !OK");
}
}
if (connid) {
get_fs_name(connid, servern);
strcat(servern, "\\");
} else servern[0]='\0';
printf("DOMAP %c: = %s%s\n", (char)drive+'A', servern, path);
}
}
}
#endif
2011-11-13 00:40:40 +01:00
static int do_map(int drive, NWPATH *nwp, int delete)
2011-11-13 00:40:40 +01:00
{
int result = -1;
if (drive > -1 && drive < 32) {
2011-11-13 00:40:40 +01:00
uint8 connid;
uint8 dhandle;
uint8 flags;
if (!delete ||
(!get_drive_info(drive, &connid, &dhandle, &flags) && flags && connid)){
uint8 nmdrive[3];
nmdrive[0] = drive+'A';
nmdrive[1] = ':';
nmdrive[2] = '\0';
result = redir_device_drive(delete ? -1 : 0x4, nmdrive, nwp->path);
}
2011-11-13 00:40:40 +01:00
}
return(result);
}
static int parse_argv(uint8 *drvstr, NWPATH *nwpath,
2011-11-13 00:40:40 +01:00
int argc, char *argv[], int smode, int argvmode)
2011-11-13 00:40:40 +01:00
{
int k = 0;
int mode = 0;
uint8 *pd = drvstr;
*drvstr = '\0';
memset(nwpath, 0, sizeof(NWPATH));
*(nwpath->buff) = '\0';
nwpath->path = nwpath->buff;
while (++k < argc && mode > -1) {
uint8 *p = argv[k];
while (*p && mode > -1) {
if (!mode) {
if (*p == ':') mode = -1;
else if (smode && *p != 's' && *p != 'S') mode = -1;
}
if (mode < 0) break;
else if (mode < 20) {
if (*p == ':') {
if (!mode || (mode > 1 && (*drvstr != 'S' || !smode)))
mode = -1;
else {
*pd = '\0';
if (mode > 1) {
*drvstr='s';
*(drvstr+1)=(uint8) atoi((char*)drvstr+1);
}
mode = 20;
pd = nwpath->buff;
}
} else {
if (++mode == 20) mode = -1;
else {
if (*p > 0x60 && *p < 0x7b)
*pd++ = *p - 0x20; /* upshift */
else
*pd++ = *p;
}
}
} else if (mode == 20) {
if (*p == '=') mode = 30;
else if (*p != ' ' && *p != '\t') mode = -2;
} else if (mode == 30) {
if (*p != ' ' && *p != '\t') {
mode = 40;
continue;
}
} else if (mode == 40) {
if (*p > 0x60 && *p < 0x7b)
*pd++ = *p - 0x20; /* upshift */
else
*pd++ = *p;
}
p++;
} /* while *p */
} /* while k */
if (mode == 30) {
2011-11-13 00:40:40 +01:00
if (argvmode != 1)
getcwd((char *)nwpath->buff, sizeof(nwpath->buff));
2011-11-13 00:40:40 +01:00
mode = 40;
}
if (mode && mode != 20 && mode != 40) {
fprintf(stderr, "Cannot interpret line. errcode=%d\n", mode);
return(mode < 0 ? mode : -3);
}
return(0);
}
2011-11-13 00:40:40 +01:00
int func_map(int argc, char *argv[], int mode)
2011-11-13 00:40:40 +01:00
{
uint8 drvstr[22];
NWPATH nwpath;
if (!ipx_init()) argc = 1;
2011-11-13 00:40:40 +01:00
if (!parse_argv(drvstr, &nwpath, argc, argv, 0, mode)) {
if (*(nwpath.path) || mode==1) {
if (do_map(*drvstr - 'A', &nwpath, mode)< 0)
2011-11-13 00:40:40 +01:00
fprintf(stderr, "MAP Error\n");
}
2011-11-13 00:40:40 +01:00
if (mode != 1)
show_map(drvstr);
2011-11-13 00:40:40 +01:00
return(0);
}
return(1);
}
2011-11-13 00:40:40 +01:00
2011-11-13 00:40:40 +01:00
/* ------------------------------------------------- */
static int show_search(uint8 *drvstr)
{
SEARCH_VECTOR drives;
SEARCH_VECTOR_ENTRY *p=drives;
int j=0;
get_search_drive_vektor(drives);
while (p->drivenummer != 0xff && j++ < 16) {
char path[256];
2011-11-13 00:40:40 +01:00
char nwname_path[300];
2011-11-13 00:40:40 +01:00
if ( !*drvstr || j == *(drvstr+1)) {
2011-11-13 00:40:40 +01:00
if (p->drivenummer == 0xfe){
strcpy(path, p->dospath);
} else {
*path = p->drivenummer+'A';
*(path+1) = ':';
strcpy(path+2, p->dospath);
}
2011-11-13 00:40:40 +01:00
if (p->flags && !(p->flags & 0x80)){
2011-11-13 00:40:40 +01:00
char *pp=nwname_path;
*pp++ = '[';
get_fs_name(p->connid, pp);
pp +=strlen(pp);
*pp++='\\';
if (get_dir_path(p->dhandle, pp)) {
strcpy(pp, "ERROR NW");
2011-11-13 00:40:40 +01:00
}
2011-11-13 00:40:40 +01:00
pp += strlen(pp);
*pp ++= ']';
*pp = '\0';
2011-11-13 00:40:40 +01:00
} else {
2011-11-13 00:40:40 +01:00
*nwname_path = '\0';
2011-11-13 00:40:40 +01:00
}
2011-11-13 00:40:40 +01:00
printf("SEARCH%2d = %s %s\n", j, path, nwname_path);
2011-11-13 00:40:40 +01:00
}
p++;
}
return(0);
}
2011-11-13 00:40:40 +01:00
static int set_search(uint8 *drvstr, NWPATH *nwp, int pathmode)
2011-11-13 00:40:40 +01:00
{
int result=-1;
SEARCH_VECTOR drives;
SEARCH_VECTOR_ENTRY *p=drives;
int j=0;
int entry = (*drvstr=='s') ? *(drvstr+1) : 0;
get_search_drive_vektor(drives);
2011-11-13 00:40:40 +01:00
2011-11-13 00:40:40 +01:00
while (p->drivenummer != 0xff && j++ < 16) {
if (!entry && (p->drivenummer + 'A' == *drvstr)) entry=j;
2011-11-13 00:40:40 +01:00
if (p->drivenummer + 'A' == nwp->path[0] && nwp->path[1] == ':'
&& !strcmp(nwp->path+2, p->dospath)) {
p->drivenummer=0xfe;
*(p->dospath) = '\0';
}
2011-11-13 00:40:40 +01:00
p++;
}
2011-11-13 00:40:40 +01:00
2011-11-13 00:40:40 +01:00
if (entry > 0) {
if (entry > 16) entry = 16;
2011-11-13 00:40:40 +01:00
if (pathmode == 2 && entry <= j && entry < 16) { /* insert modus */
int k=j+1-entry;
if (j < 16) {
p++;
k++;
j++;
}
while (k--) {
memcpy(p, p-1, sizeof(SEARCH_VECTOR_ENTRY));
--p;
}
}
if (--entry < j)
p = drives+entry;
2011-11-13 00:40:40 +01:00
else (p+1)->drivenummer = 0xff;
2011-11-13 00:40:40 +01:00
p->flags = 0;
2011-11-13 00:40:40 +01:00
p->drivenummer = 0xfe;
2011-11-13 00:40:40 +01:00
if (pathmode==1)
*(p->dospath) = '\0';
else
strcpy(p->dospath, nwp->path);
2011-11-13 00:40:40 +01:00
result = set_search_drive_vektor(drives);
}
return(result);
}
2011-11-13 00:40:40 +01:00
int func_path(int argc, char *argv[], int mode)
2011-11-13 00:40:40 +01:00
{
uint8 drvstr[22];
NWPATH nwpath;
2011-11-13 00:40:40 +01:00
if (!parse_argv(drvstr, &nwpath, argc, argv, 1, mode)) {
2011-11-13 00:40:40 +01:00
int result=0;
2011-11-13 00:40:40 +01:00
if (*(nwpath.path) || mode==1)
result=set_search(drvstr, &nwpath, mode);
if (mode != 1)
show_search(drvstr);
2011-11-13 00:40:40 +01:00
return(result);
}
return(1);
}
2011-11-13 00:40:40 +01:00
void remove_nwpathes(void)
{
SEARCH_VECTOR drives;
SEARCH_VECTOR_ENTRY *p=drives;
int j=0;
get_search_drive_vektor(drives);
while (p->drivenummer != 0xff && j++ < 16) {
if (p->flags && !(p->flags & 0x80)){
p->flags=0;
p->drivenummer=0xfe;
*(p->dospath) ='\0';
}
++p;
}
set_search_drive_vektor(drives);
}