FreeDOS/kernel/network.c

/****************************************************************/
/*                                                              */
/*                          network.c                           */
/*                            DOS-C                             */
/*                                                              */
/*                 Networking Support functions                 */
/*                                                              */
/*                   Copyright (c) 1995, 1999                   */
/*                         James Tabor                          */
/*                      All Rights Reserved                     */
/*                                                              */
/* This file is part of DOS-C.                                  */
/*                                                              */
/* DOS-C is free software; you can redistribute it and/or       */
/* modify it under the terms of the GNU General Public License  */
/* as published by the Free Software Foundation; either version */
/* 2, or (at your option) any later version.                    */
/*                                                              */
/* DOS-C is distributed in the hope that it will be useful, but */
/* WITHOUT ANY WARRANTY; without even the implied warranty of   */
/* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See    */
/* the GNU General Public License for more details.             */
/*                                                              */
/* You should have received a copy of the GNU General Public    */
/* License along with DOS-C; see the file COPYING.  If not,     */
/* write to the Free Software Foundation, 675 Mass Ave,         */
/* Cambridge, MA 02139, USA.                                    */
/****************************************************************/

#include "portab.h"
#include "globals.h"

#ifdef VERSION_STRINGS
static BYTE *RcsId = "$Id$";
#endif

/*
 * $Log$
 * Revision 1.1  2000/05/06 19:35:27  jhall1
 * Initial revision
 *
 * Revision 1.3  2000/03/09 06:07:11  kernel
 * 2017f updates by James Tabor
 *
 * Revision 1.2  1999/09/23 04:40:48  jprice
 * *** empty log message ***
 *
 */

UWORD get_machine_name(BYTE FAR * netname)
{
  BYTE FAR *xn;

  xn = MK_FP(net_name, 0);
  fbcopy((BYTE FAR *) netname, xn, 15);
  return (NetBios);

}

VOID set_machine_name(BYTE FAR * netname, UWORD name_num)
{
  BYTE FAR *xn;

  xn = MK_FP(net_name, 0);
  NetBios = name_num;
  fbcopy(xn, (BYTE FAR *) netname, 15);
  net_set_count++;

}

/*
   *   Read/Write from/to remote file.
   *   SFT gets updated with the amount of bytes r/w.
   *
 */
UCOUNT Remote_RW(UWORD func, UCOUNT n, BYTE FAR * bp, sft FAR * s, COUNT FAR * err)
{

  BYTE FAR *save_dta;
  UWORD rc,
    rx;

  save_dta = dta;
  lpCurSft = (sfttbl FAR *) s;
  dta = bp;
  rx = int2f_Remote_call(func, 0, n, 0, (VOID FAR *) s, 0, (VOID FAR *) & rc);
  dta = save_dta;
  *err = rx;
  return ((UCOUNT) rc);
}

/*

 */
COUNT Remote_find(UWORD func, UWORD attrib, BYTE FAR * name, REG dmatch FAR * dmp)
{
  COUNT i,
    x;
  BYTE FAR *p,
   *q;
  struct dirent FAR *SDp = (struct dirent FAR *)&SearchDir;

  if (func == REM_FINDFIRST)
  {
    truename(name, PriPathName, FALSE);
    SAttr = (BYTE) attrib;
  }
  fsncopy(dta, (BYTE FAR *) & TempBuffer, 21);
  p = dta;
  dta = (BYTE FAR *) & TempBuffer;
  i = int2f_Remote_call(func, 0, 0, 0, 0, 0, 0);
  dta = p;
  fsncopy((BYTE FAR *) & TempBuffer[1], &dta[1], 20);

  if (i != 0)
    return i;

  dmp->dm_attr_fnd = (BYTE) SDp->dir_attrib;
  dmp->dm_time = SDp->dir_time;
  dmp->dm_date = SDp->dir_date;
  dmp->dm_size = (LONG) SDp->dir_size;

/*
   Needed Code Rep-off.;)
 */
  p = dmp->dm_name;
  if (SDp->dir_name[0] == '.')
  {
    for (x = 0, q = (BYTE FAR *) SDp->dir_name; x < FNAME_SIZE; x++)
    {
      if (*q == ' ')
        break;
      *p++ = *q++;
    }
  }
  else
  {
    for (x = 0, q = (BYTE FAR *) SDp->dir_name; x < FNAME_SIZE; x++)
    {
      if (*q == ' ')
        break;
      *p++ = *q++;
    }
    if (SDp->dir_ext[0] != ' ')
    {
      *p++ = '.';
      for (x = 0, q = (BYTE FAR *) SDp->dir_ext; x < FEXT_SIZE; x++)
      {
        if (*q == ' ')
          break;
        *p++ = *q++;
      }
    }
  }
  *p++ = NULL;

  return i;
}

/*
   *   Open Existing Remote File, SDA First FN ptr -> Fully qualified name.
   *   open func 3d
   *   Create/Truncate w/o CDS Remote File
   *   Extended Open/Create File
 */
UWORD Remote_OCT(UWORD func, BYTE FAR * name, UWORD pw, sft FAR * s)
{
  truename(name, PriPathName, FALSE);
  lpCurSft = (sfttbl FAR *) s;
  return (int2f_Remote_call(func, 0, 0, 0, (VOID FAR *) s, 0, MK_FP(0, pw)));
}

COUNT Remote_GSattr(UWORD func, BYTE FAR * name, UWORD FAR * attrp)
{
  static char srfa[10];
  COUNT drive;
  struct cds FAR *p;

  truename(name, PriPathName, TRUE);
  drive = PriPathName[0];
  drive -= 'A';
  truename(name, PriPathName, FALSE);

  if (CDSp->cds_table[drive].cdsFlags & 0x8000)
  {
    p = current_ldt;
    current_ldt = &CDSp->cds_table[drive];
    if (func == REM_GETATTRZ)
    {

      if (int2f_Remote_call(func, 0, 0, 0, 0, 0, (VOID FAR *) srfa) != 0)
      {
        current_ldt = p;
        goto AEXIT;
      }
      *attrp = (UWORD) srfa[0];
      goto GEXIT;
    }
    int2f_Remote_call(func, 0, 0, 0, 0, 0, MK_FP(0, attrp));
  GEXIT:
    current_ldt = p;
    return (COUNT) 0;
  }
AEXIT:
  return (COUNT) 1;

}