1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
|
/* Copyright (C) 2001-2012 Artifex Software, Inc.
All Rights Reserved.
This software is provided AS-IS with no warranty, either express or
implied.
This software is distributed under license and may not be copied,
modified or distributed except as expressly authorized under the terms
of the license contained in the file LICENSE in this distribution.
Refer to licensing information at http://www.artifex.com or contact
Artifex Software, Inc., 7 Mt. Lassen Drive - Suite A-134, San Rafael,
CA 94903, U.S.A., +1(415)492-9861, for further information.
*/
/* Common routines for MS-DOS (any compiler) and DesqView/X, */
/* which has a MS-DOS-like file system. */
#include "dos_.h"
#include "gx.h"
#include "gp.h"
#include "gpmisc.h"
/* ------ Printer accessing ------ */
/* Put a printer file (which might be stdout) into binary or text mode. */
/* This is not a standard gp procedure, */
/* but all MS-DOS configurations need it. */
void
gp_set_file_binary(int prnfno, bool binary)
{
union REGS regs;
regs.h.ah = 0x44; /* ioctl */
regs.h.al = 0; /* get device info */
regs.rshort.bx = prnfno;
intdos(®s, ®s);
if (regs.rshort.cflag != 0 || !(regs.h.dl & 0x80))
return; /* error, or not a device */
if (binary)
regs.h.dl |= 0x20; /* binary (no ^Z intervention) */
else
regs.h.dl &= ~0x20; /* text */
regs.h.dh = 0;
regs.h.ah = 0x44; /* ioctl */
regs.h.al = 1; /* set device info */
intdos(®s, ®s);
}
/* ------ File accessing ------ */
/* Set a file into binary or text mode. */
int
gp_setmode_binary(FILE * pfile, bool binary)
{
gp_set_file_binary(fileno(pfile), binary);
return 0; /* Fake out dos return status */
}
/* ------ File names ------ */
/* Define the character used for separating file names in a list. */
const char gp_file_name_list_separator = ';';
/* Define the string to be concatenated with the file mode */
/* for opening files without end-of-line conversion. */
const char gp_fmode_binary_suffix[] = "b";
/* Define the file modes for binary reading or writing. */
const char gp_fmode_rb[] = "rb";
const char gp_fmode_wb[] = "wb";
/* -------------- Helpers for gp_file_name_combine_generic ------------- */
uint gp_file_name_root(const char *fname, uint len)
{ int i = 0;
if (len == 0)
return 0;
if (len > 1 && fname[0] == '\\' && fname[1] == '\\') {
/* A network path: "\\server\share\" */
int k = 0;
for (i = 2; i < len; i++)
if (fname[i] == '\\' || fname[i] == '/')
if (k++) {
i++;
break;
}
} else if (fname[0] == '/' || fname[0] == '\\') {
/* Absolute with no drive. */
i = 1;
} else if (len > 1 && fname[1] == ':') {
/* Absolute with a drive. */
i = (len > 2 && (fname[2] == '/' || fname[2] == '\\') ? 3 : 2);
}
return i;
}
uint gs_file_name_check_separator(const char *fname, int len, const char *item)
{ if (len > 0) {
if (fname[0] == '/' || fname[0] == '\\')
return 1;
} else if (len < 0) {
if (fname[-1] == '/' || fname[-1] == '\\')
return 1;
}
return 0;
}
bool gp_file_name_is_parent(const char *fname, uint len)
{ return len == 2 && fname[0] == '.' && fname[1] == '.';
}
bool gp_file_name_is_current(const char *fname, uint len)
{ return len == 1 && fname[0] == '.';
}
const char *gp_file_name_separator(void)
{ return "/";
}
const char *gp_file_name_directory_separator(void)
{ return "/";
}
const char *gp_file_name_parent(void)
{ return "..";
}
const char *gp_file_name_current(void)
{ return ".";
}
bool gp_file_name_is_partent_allowed(void)
{ return true;
}
bool gp_file_name_is_empty_item_meanful(void)
{ return false;
}
gp_file_name_combine_result
gp_file_name_combine(const char *prefix, uint plen, const char *fname, uint flen,
bool no_sibling, char *buffer, uint *blen)
{
return gp_file_name_combine_generic(prefix, plen,
fname, flen, no_sibling, buffer, blen);
}
|
