mirror of
https://git.lyx.org/repos/lyx.git
synced 2024-12-14 01:22:33 +00:00
72956b1c3b
git-svn-id: svn://svn.lyx.org/lyx/lyx-devel/trunk@5331 a592a061-630c-0410-9148-cb99ea01b6c8
190 lines
4.4 KiB
C
190 lines
4.4 KiB
C
// os_os2.C
|
|
|
|
// Various OS specific functions
|
|
#include <config.h>
|
|
|
|
#ifdef __GNUG__
|
|
#pragma implementation "os.h"
|
|
#endif
|
|
|
|
#include "os.h"
|
|
#include "support/filetools.h"
|
|
#define INCL_DOSFILEMGR
|
|
#define INCL_DOSMODULEMGR
|
|
#define INCL_DOSPROCESS
|
|
#define INCL_DOSNLS
|
|
#define INCL_DOSERRORS
|
|
#include <os2.h>
|
|
|
|
string os::binpath_ = string();
|
|
string os::binname_ = string();
|
|
string os::tmpdir_ = string();
|
|
os::shell_type os::_shell = os::UNIX;
|
|
unsigned long os::cp_ = 0;
|
|
|
|
void os::init(int * argc, char ** argv[]) {
|
|
if (argc != 0 /* This is a hack! */) {
|
|
_wildcard(argc, argv);
|
|
PTIB ptib = new TIB[1];
|
|
PPIB ppib = new PIB[1];
|
|
APIRET rc = DosGetInfoBlocks(&ptib, &ppib);
|
|
if (rc != NO_ERROR)
|
|
exit(rc);
|
|
char* tmp = new char[256];
|
|
// This is the only reliable way to retrieve the executable name.
|
|
rc = DosQueryModuleName(ppib->pib_hmte, 256L, tmp);
|
|
if (rc != NO_ERROR)
|
|
exit(rc);
|
|
string p(tmp);
|
|
p = slashify_path(p);
|
|
binname_ = OnlyFilename(p);
|
|
binname_.erase(binname_.length()-4, string::npos);
|
|
binpath_ = OnlyPath(p);
|
|
|
|
// OS/2 cmd.exe has another use for '&'
|
|
string sh = OnlyFilename(GetEnvPath("EMXSHELL"));
|
|
if (sh.empty()) {
|
|
// COMSPEC is set, unless user unsets
|
|
sh = OnlyFilename(GetEnvPath("COMSPEC"));
|
|
if (sh.empty())
|
|
sh = "cmd.exe";
|
|
}
|
|
sh = lowercase(sh); // DosMapCase() is an overkill here
|
|
if (contains(sh, "cmd.exe")
|
|
|| contains(sh, "4os2.exe"))
|
|
_shell = os::CMD_EXE;
|
|
else
|
|
_shell = os::UNIX;
|
|
}
|
|
static bool initialized = false;
|
|
if (initialized) return;
|
|
initialized = true;
|
|
ULONG CPList[3] = {0}, CPList_size;
|
|
APIRET rc = DosQueryCp(3 * sizeof(ULONG), CPList, &CPList_size);
|
|
if (rc != NO_ERROR)
|
|
exit(rc);
|
|
// CPList[0] == process current codepage,
|
|
// CPList[1] == system default codepage, the rest are auxilary.
|
|
// Once cp_ is correctly set, you can call other routines.
|
|
cp_ = CPList[1];
|
|
}
|
|
|
|
void os::warn(string /*mesg*/) {
|
|
return;
|
|
}
|
|
|
|
string os::current_root() {
|
|
APIRET rc;
|
|
ULONG drv_num, drv_map;
|
|
rc = DosQueryCurrentDisk(&drv_num, &drv_map);
|
|
if (rc != NO_ERROR)
|
|
exit(rc);
|
|
char drive = 'A' + drv_num -1;
|
|
string tmp(1, drive);
|
|
tmp += ":/";
|
|
return tmp;
|
|
}
|
|
|
|
string::size_type os::common_path(string const &p1, string const &p2) {
|
|
static bool initialized = false;
|
|
if (!initialized) {
|
|
init(0, 0);
|
|
initialized = true;
|
|
}
|
|
COUNTRYCODE cntry;
|
|
cntry.country = 0;
|
|
cntry.codepage = cp_;
|
|
string temp1 = slashify_path(p1);
|
|
string temp2 = slashify_path(p2);
|
|
char * tmp1 = const_cast<char*> (temp1.c_str());
|
|
char * tmp2 = const_cast<char*> (temp2.c_str());
|
|
/* rc = */ DosMapCase(p1.length(), &cntry, tmp1);
|
|
// if (rc != NO_ERROR)
|
|
// exit(rc);
|
|
/* rc = */ DosMapCase(p2.length(), &cntry, tmp2);
|
|
// if (rc != NO_ERROR)
|
|
// exit(rc);
|
|
// This algorithm works only if paths are slashified on DBCS systems.
|
|
string::size_type i = 0,
|
|
p1_len = p1.length(),
|
|
p2_len = p2.length();
|
|
while (i < p1_len && i < p2_len && tmp1[i] == tmp2[i]) ++i;
|
|
if ((i < p1_len && i < p2_len)
|
|
|| (i < p1_len && tmp1[i] != '/' && i == p2_len)
|
|
|| (i < p2_len && tmp2[i] != '/' && i == p1_len)) {
|
|
if (i) --i; // here was the last match
|
|
while (i && tmp1[i] != '/') --i;
|
|
}
|
|
return i;
|
|
}
|
|
|
|
string os::slashify_path(string p) {
|
|
static bool initialized = false;
|
|
static bool leadbyte[256] = {false};
|
|
if (!initialized) {
|
|
init(0, 0);
|
|
COUNTRYCODE cntry;
|
|
cntry.country = 0;
|
|
cntry.codepage = cp_;
|
|
unsigned char *DBCSinfo = new unsigned char[12];
|
|
/* rc = */ DosQueryDBCSEnv(12, &cntry, (char*) DBCSinfo);
|
|
// if (rc != NO_ERROR)
|
|
// exit(rc);
|
|
for (int j = 1; j < 12; j += 2)
|
|
DBCSinfo[j]++;
|
|
unsigned char i = 0;
|
|
bool isLeadByte = false;
|
|
while (*DBCSinfo != 0) {
|
|
if (i == *DBCSinfo) {
|
|
isLeadByte = !isLeadByte;
|
|
DBCSinfo++;
|
|
}
|
|
leadbyte[i++] = isLeadByte;
|
|
}
|
|
initialized = true;
|
|
}
|
|
string::iterator lit = p.begin();
|
|
string::iterator end = p.end();
|
|
for (; lit < end; ++lit) {
|
|
if (leadbyte[(*lit)])
|
|
lit += 2;
|
|
if ((*lit) == '\\')
|
|
(*lit) = '/';
|
|
}
|
|
p = subst(p, "//", "/");
|
|
return p;
|
|
}
|
|
|
|
|
|
string os::external_path(string const &p) {
|
|
return p;
|
|
}
|
|
|
|
|
|
string os::internal_path(string const &p) {
|
|
return p;
|
|
}
|
|
|
|
|
|
bool os::is_absolute_path(string const & p)
|
|
{
|
|
return (p.length() > 1
|
|
&& isalpha(static_cast<unsigned char>(p[0]))
|
|
&& p[1] == ':');
|
|
}
|
|
|
|
|
|
// returns a string suitable to be passed to fopen when
|
|
// reading a file
|
|
char const * os::read_mode()
|
|
{
|
|
return "r";
|
|
}
|
|
|
|
// returns a string suitable to be passed to popen when
|
|
// reading a pipe
|
|
char const * os::popen_read_mode()
|
|
{
|
|
return "r";
|
|
}
|