compilers/linux86-0.16.17/libc/msdos/mslib.c

   1 /* Copyright (C) 1998 Robert de Bath <rdebath@cix.compulink.co.uk>
   2  * This file is part of the Linux-8086 C library and is distributed
   3  * under the GNU Library General Public License.
   4  */
   5
   6 #if !__FIRST_ARG_IN_AX__
   7 #ifdef __AS386_16__
   8 #ifdef __MSDOS__
   9
  10 #include <dos.h>
  11 #include <fcntl.h>
  12 #include <errno.h>
  13 int errno;
  14
  15 #ifdef L_dos_chdir
  16 chdir(path)
  17 char * path;
  18 {
  19 #asm
  20   mov   bx,sp
  21   mov   bx,_chdir.path[bx]
  22   cmp   [bx+1],':
  23   jnz   do_chdir
  24   mov   dl,[bx]
  25   and   dl,#$3F
  26   dec   dl
  27   mov   ah,#$0E
  28   int   $21
  29 do_chdir:
  30   mov   ah,#$3B
  31   mov   dx,bx
  32 do_dxop:
  33   int   $21
  34   jnc   op_ok
  35   br    exterror
  36 op_ok:
  37   xor   ax,ax
  38 #endasm
  39 }
  40 #endif
  41
  42 #ifdef L_mkdir
  43 mkdir(path)
  44 char * path;
  45 {
  46 #asm
  47   mov   bx,sp
  48   mov   dx,_mkdir.path[bx]
  49   mov   ah,#$39
  50   j     do_dxop
  51 #endasm
  52 }
  53 #endif
  54
  55 #ifdef L_rmdir
  56 rmdir(path)
  57 char * path;
  58 {
  59 #asm
  60   mov   bx,sp
  61   mov   dx,_rmdir.path[bx]
  62   mov   ah,#$3A
  63   j     do_dxop
  64 #endasm
  65 }
  66 #endif
  67
  68 #ifdef L_unlink
  69 unlink(path)
  70 char * path;
  71 {
  72 #asm
  73   mov   bx,sp
  74   mov   dx,_unlink.path[bx]
  75   mov   ah,#$41
  76   xor   cx,cx           ! Attrib 0 for servers.
  77   j     do_dxop
  78 #endasm
  79 }
  80 #endif
  81
  82 /*************************************************************************
  83   TO TEST ...
  84 */
  85
  86 #ifdef L_sleep
  87 sleep(secs)
  88 unsigned secs;
  89 {
  90    int counter = 0;
  91    int es = __get_es();
  92
  93    __set_es(0x40);
  94
  95    while(secs>0)
  96    {
  97       int c = __peek_es(0x6C);
  98       while( c == __peek_es(0x6C) ) ;
  99
 100       counter += 549;
 101       if( counter > 10000 )
 102       {
 103          secs--;
 104          counter -= 10000;
 105       }
 106
 107       /* Interrupt on ctrl-break */
 108       if( __peek_es(0x71) & 0x80 ) break;
 109    }
 110    __set_es(es);
 111
 112    return secs;
 113 }
 114 #endif
 115
 116 /*************************************************************************
 117   TODO ...
 118 */
 119
 120 #ifdef L_dos_access
 121 access(filename, amode)
 122 char * filename;
 123 int amode;
 124 {
 125    XXX;
 126 }
 127 #endif
 128
 129 #ifdef L__dos_allocmem
 130 _dos_allocmem(size ...)
 131 {
 132
 133 }
 134 #endif
 135
 136 #ifdef L__chmod
 137 _chmod(path, func, attrib)
 138 char * path;
 139 int func, attrib;
 140 {
 141    XXX;
 142 }
 143 #endif
 144
 145 #ifdef L_chmod
 146 chmod(path, mode)
 147 char * path;
 148 int mode;
 149 {
 150    XXX;
 151 }
 152 #endif
 153
 154 #ifdef L_clock
 155 clock_t clock()
 156 {
 157    XXX;
 158 }
 159 #endif
 160
 161 #ifdef L_ctrlbrk
 162 ctrlbrk(func)
 163 int (*func)();
 164 {
 165    XXX;
 166 }
 167 #endif
 168
 169 #ifdef L_delay
 170 delay(millis)
 171 unsigned millis;
 172 {
 173    XXX;
 174 }
 175 #endif
 176
 177 #ifdef L_dosexterr
 178 dosexterr(ptr)
 179 struct DOSERROR * ptr;
 180 {
 181    XXX;
 182 }
 183 #endif
 184
 185 /*
 186 #ifdef __dos_getdiskfree
 187 */
 188
 189 #ifdef L_dup
 190 dup(fd)
 191 int fd;
 192 {
 193    XXX;
 194 }
 195 #endif
 196
 197 #ifdef L_dup2
 198 dup2(ofd, nfd)
 199 int ofd, nfd;
 200 {
 201    XXX;
 202 }
 203 #endif
 204
 205 #ifdef L_filelength
 206 long
 207 filelength(fd)
 208 int fd;
 209 {
 210    XXX;
 211 }
 212 #endif
 213
 214 #ifdef L_findfirst
 215 findfirst(path, fcb, attrib)
 216 char * path;
 217 void * fcb;
 218 int attrib;
 219 {
 220    XXX;
 221 }
 222 #endif
 223
 224 #ifdef L_findnext
 225 findnext(fcb)
 226 void * fcb;
 227 {
 228    XXX;
 229 }
 230 #endif
 231
 232 #ifdef L_stat
 233 stat(path, st)
 234 char * path;
 235 struct stat * st;
 236 {
 237    XXX;
 238 }
 239 #endif
 240
 241 #ifdef L_fstat
 242 fstat(fd, st)
 243 int fd;
 244 struct stat * st;
 245 {
 246    XXX;
 247 }
 248 #endif
 249
 250 #ifdef L_getcbrk
 251 getcbrk()
 252 {
 253    XXX int 0x21/33;
 254 }
 255 #endif
 256
 257 #ifdef L_setcbrk
 258 setcbrk(mode)
 259 int mode;
 260 {
 261    XXX int 0x21/33;
 262 }
 263 #endif
 264
 265 #ifdef L_getcwd
 266 getcwd(buf, buflen)
 267 char * buf;
 268 int buflen;
 269 {
 270    XXX;
 271 }
 272 #endif
 273
 274 #ifdef L__getdrive
 275 _getdrive()
 276 {
 277    XXX;
 278 }
 279 #endif
 280
 281 #ifdef L_getenv
 282 char *
 283 getenv(varname)
 284 char * varname;
 285 {
 286    XXX;
 287 }
 288 #endif
 289
 290 #ifdef L_putenv
 291 putenv(varname)
 292 char * varname;
 293 {
 294    XXX;
 295 }
 296 #endif
 297
 298 #ifdef L_getpid
 299 getpid()
 300 {
 301    XXX;
 302 }
 303 #endif
 304
 305 #ifdef L_rename
 306 rename(oldname, newpath)
 307 char *oldpath, *newpath;
 308 {
 309    XXX;
 310 }
 311 #endif
 312
 313 #ifdef L_setmode
 314 setmode(fd, amode)
 315 int fd, amode;
 316 {
 317    XXX;
 318 }
 319 #endif
 320
 321
 322 #ifdef L_system
 323 system(cmd)
 324 char * cmd;
 325 {
 326    XXX;
 327 }
 328 #endif
 329
 330 #ifdef L_umask
 331 umask(mode)
 332 int mode;
 333 {
 334    XXX;
 335    /*
 336     * save umask value for open() use it for read-only bit.
 337     */
 338 }
 339 #endif
 340
 341 #ifdef L_utime
 342 utime(path, times)
 343 char * path;
 344 stuct utimbuf * times;
 345 {
 346    XXX;
 347 }
 348 #endif
 349
 350 #endif /* __MSDOS__ */
 351 #endif /* __AS386_16__ */
 352 #endif /* !__FIRST_ARG_IN_AX__ */