Version 3.6.0.4, tag libreoffice-3.6.0.4
[LibreOffice.git] / dmake / msdos / dchdir.c
blob19006825b7f652fca1f96bb335a61c50ae061b41
1 /* RCS $Id: dchdir.c,v 1.1.1.1 2000-09-22 15:33:27 hr Exp $
2 --
3 -- SYNOPSIS
4 -- Change directory.
5 --
6 -- DESCRIPTION
7 -- Under DOS change the current drive as well as the current directory.
8 --
9 -- AUTHOR
10 -- Dennis Vadura, dvadura@dmake.wticorp.com
12 -- WWW
13 -- http://dmake.wticorp.com/
15 -- COPYRIGHT
16 -- Copyright (c) 1996,1997 by WTI Corp. All rights reserved.
18 -- This program is NOT free software; you can redistribute it and/or
19 -- modify it under the terms of the Software License Agreement Provided
20 -- in the file <distribution-root>/readme/license.txt.
22 -- LOG
23 -- Use cvs log to obtain detailed change logs.
26 #include <dos.h>
27 #include "extern.h"
29 PUBLIC int
30 dchdir(path)
31 char *path;
33 int res;
35 res = chdir(path);
37 if (res != -1 && path[1] == ':') {
38 union REGS reg;
40 /* we must change the logged drive, since the chdir worked. */
41 reg.h.ah = 0x0E;
42 reg.h.dl = (*path & ~0x20) - 'A' + 1;
43 intdos(&reg, &reg);
46 return (res);