|
|
|
@ -15,6 +15,7 @@
|
|
|
|
|
#include <iconv.h>
|
|
|
|
|
#include <string.h>
|
|
|
|
|
#include <errno.h>
|
|
|
|
|
#include <ctype.h>
|
|
|
|
|
|
|
|
|
|
int div_up(int n, int div)
|
|
|
|
|
{
|
|
|
|
@ -176,3 +177,103 @@ int str2ascii(const char *icharset, const char *input, char **output)
|
|
|
|
|
return ISO_SUCCESS;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static int valid_d_char(char c)
|
|
|
|
|
{
|
|
|
|
|
return (c >= '0' && c <= '9') || (c >= 'A' && c <= 'Z') || (c == '_');
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
void iso_dirid(char *src, int maxlen)
|
|
|
|
|
{
|
|
|
|
|
size_t len, i;
|
|
|
|
|
|
|
|
|
|
len = strlen(src);
|
|
|
|
|
if (len > maxlen) {
|
|
|
|
|
src[maxlen] = '\0';
|
|
|
|
|
len = maxlen;
|
|
|
|
|
}
|
|
|
|
|
for (i = 0; i < len; i++) {
|
|
|
|
|
char c = toupper(src[i]);
|
|
|
|
|
src[i] = valid_d_char(c) ? c : '_';
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
void iso_1_fileid(char *src)
|
|
|
|
|
{
|
|
|
|
|
char *dot; /* Position of the last dot in the filename, will be used to
|
|
|
|
|
calculate lname and lext. */
|
|
|
|
|
int lname, lext, pos, i;
|
|
|
|
|
|
|
|
|
|
dot = strrchr(src, '.');
|
|
|
|
|
|
|
|
|
|
lext = dot ? strlen(dot + 1) : 0;
|
|
|
|
|
lname = strlen(src) - lext - (dot ? 1 : 0);
|
|
|
|
|
|
|
|
|
|
/* If we can't build a filename, return. */
|
|
|
|
|
if (lname == 0 && lext == 0) {
|
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
pos = 0;
|
|
|
|
|
/* Convert up to 8 characters of the filename. */
|
|
|
|
|
for (i = 0; i < lname && i < 8; i++) {
|
|
|
|
|
char c = toupper(src[i]);
|
|
|
|
|
src[pos++] = valid_d_char(c) ? c : '_';
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* This dot is mandatory, even if there is no extension. */
|
|
|
|
|
src[pos++] = '.';
|
|
|
|
|
|
|
|
|
|
/* Convert up to 3 characters of the extension, if any. */
|
|
|
|
|
for (i = 0; i < lext && i < 3; i++) {
|
|
|
|
|
char c = toupper(src[lname + 1 + i]);
|
|
|
|
|
src[pos++] = valid_d_char(c) ? c : '_';
|
|
|
|
|
}
|
|
|
|
|
src[pos] = '\0';
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
void iso_2_fileid(char *src)
|
|
|
|
|
{
|
|
|
|
|
char *dot;
|
|
|
|
|
int lname, lext, lnname, lnext, pos, i;
|
|
|
|
|
|
|
|
|
|
if (!src)
|
|
|
|
|
return;
|
|
|
|
|
|
|
|
|
|
dot = strrchr(src, '.');
|
|
|
|
|
|
|
|
|
|
/*
|
|
|
|
|
* Since the maximum length can be divided freely over the name and
|
|
|
|
|
* extension, we need to calculate their new lengths (lnname and
|
|
|
|
|
* lnext). If the original filename is too long, we start by trimming
|
|
|
|
|
* the extension, but keep a minimum extension length of 3.
|
|
|
|
|
*/
|
|
|
|
|
if (dot == NULL || *(dot + 1) == '\0') {
|
|
|
|
|
lname = strlen(src);
|
|
|
|
|
lnname = (lname > 30) ? 30 : lname;
|
|
|
|
|
lext = lnext = 0;
|
|
|
|
|
} else {
|
|
|
|
|
lext = strlen(dot + 1);
|
|
|
|
|
lname = strlen(src) - lext - 1;
|
|
|
|
|
lnext = (strlen(src) > 31 && lext > 3)
|
|
|
|
|
? (lname < 27 ? 30 - lname : 3) : lext;
|
|
|
|
|
lnname = (strlen(src) > 31) ? 30 - lnext : lname;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (lnname == 0 && lnext == 0) {
|
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
pos = 0;
|
|
|
|
|
/* Convert up to lnname characters of the filename. */
|
|
|
|
|
for (i = 0; i < lnname; i++) {
|
|
|
|
|
char c = toupper(src[i]);
|
|
|
|
|
src[pos++] = valid_d_char(c) ? c : '_';
|
|
|
|
|
}
|
|
|
|
|
src[pos++] = '.';
|
|
|
|
|
/* Convert up to lnext characters of the extension, if any. */
|
|
|
|
|
for (i = 0; i < lnext; i++) {
|
|
|
|
|
char c = toupper(src[lname + 1 + i]);
|
|
|
|
|
src[pos++] = valid_d_char(c) ? c : '_';
|
|
|
|
|
}
|
|
|
|
|
src[pos] = '\0';
|
|
|
|
|
}
|
|
|
|
|