OpenSolaris_b135/cmd/sunpc/other/unix2dos.c
/*
* CDDL HEADER START
*
* The contents of this file are subject to the terms of the
* Common Development and Distribution License, Version 1.0 only
* (the "License"). You may not use this file except in compliance
* with the License.
*
* You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
* or http://www.opensolaris.org/os/licensing.
* See the License for the specific language governing permissions
* and limitations under the License.
*
* When distributing Covered Code, include this CDDL HEADER in each
* file and include the License file at usr/src/OPENSOLARIS.LICENSE.
* If applicable, add the following below this CDDL HEADER, with the
* fields enclosed by brackets "[]" replaced with your own identifying
* information: Portions Copyright [yyyy] [name of copyright owner]
*
* CDDL HEADER END
*/
/*
* Copyright 2003 Sun Microsystems, Inc. All rights reserved.
* Use is subject to license terms.
*/
#pragma ident "%Z%%M% %I% %E% SMI"
/*
* Converts files from one char set to another
*
* Written 11/09/87 Eddy Bell
*
*/
/*
* INCLUDED and DEFINES
*/
#include <stdio.h>
#include <fcntl.h>
#include <sys/systeminfo.h>
#include <stdlib.h>
#include <string.h>
#include <errno.h>
/* #include <io.h> for microsoft c 4.0 */
#define CONTENTS_ASCII 0
#define CONTENTS_ASCII8 1
#define CONTENTS_ISO 2
#define CONTENTS_DOS 3
#ifdef _F_BIN
#define DOS_BUILD 1
#else
#define UNIX_BUILD 1
#endif
/*
* INCLUDES AND DEFINES
*
*/
#ifdef UNIX_BUILD
#include <sys/types.h>
#include <sys/kbio.h>
#include <sys/time.h>
#include <fcntl.h>
#include "../sys/dos_iso.h"
#endif
#ifdef DOS_BUILD
#include <dos.h>
#include "..\sys\dos_iso.h"
#endif
#define GLOBAL
#define LOCAL static
#define BOOL int
#define FALSE 0
#define TRUE ~FALSE
#define CR 0x0D
#define LF 0x0A
#define DOS_EOF 0x1A
#define MAXLEN 1024
/*
* FUNCTION AND VARIABLE DECLARATIONS
*/
static void error();
static void usage();
static int tmpfd = -1;
/*
* ENTRY POINTS
*/
int
main(int argc, char **argv)
{
FILE *in_stream = NULL;
FILE *out_stream = NULL;
unsigned char tmp_buff[512];
unsigned char *src_str, *dest_str;
char *in_file_name, *out_file_name;
int num_read, numchar, i, j, out_len, translate_mode;
int same_name;
/* char count for fread() */
int type;
int code_page_overide; /* over ride of default codepage */
unsigned char * dos_to_iso;
unsigned char iso_to_dos[256];
#ifdef UNIX_BUILD
int kbdfd;
#endif
char sysinfo_str[MAXLEN];
same_name = FALSE;
out_file_name = (char *)0;
/*
* The filename parameter is positionally dependent - in that
* the dest file name must follow the source filename
*/
argv++;
in_stream = stdin;
out_stream = stdout;
j = 0; /* count for file names 0 -> source 1-> dest */
translate_mode = CONTENTS_ISO; /* default trans mode */
code_page_overide = 0;
for (i = 1; i < argc; i++) {
if (*argv[0] == '-') {
if (argc > 1 && !strncmp(*argv, "-iso", 4)) {
translate_mode = CONTENTS_ISO;
argv++;
} else if (argc > 1 && !strncmp(*argv, "-7", 2)) {
translate_mode = CONTENTS_ASCII;
argv++;
} else if (argc > 1 && !strncmp(*argv, "-ascii", 6)) {
translate_mode = CONTENTS_DOS;
argv++;
} else if (argc > 1 && !strncmp(*argv, "-437", 4)) {
code_page_overide = CODE_PAGE_US;
argv++;
} else if (argc > 1 && !strncmp(*argv, "-850", 4)) {
code_page_overide = CODE_PAGE_MULTILINGUAL;
argv++;
} else if (argc > 1 && !strncmp(*argv, "-860", 4)) {
code_page_overide = CODE_PAGE_PORTUGAL;
argv++;
} else if (argc > 1 && !strncmp(*argv, "-863", 4)) {
code_page_overide = CODE_PAGE_CANADA_FRENCH;
argv++;
} else if (argc > 1 && !strncmp(*argv, "-865", 4)) {
code_page_overide = CODE_PAGE_NORWAY;
argv++;
} else
argv++;
continue;
} else { /* not a command so must be filename */
switch (j) {
case IN_FILE: /* open in file from cmdline */
in_file_name = *argv;
j++; /* next file name is outfile */
break;
case OUT_FILE: /* open out file from cmdline */
out_file_name = *argv;
j++;
break;
default:
usage();
}
}
argv++;
}
/* input file is specified */
if (j > 0) {
in_stream = fopen(in_file_name, "r");
if (in_stream == NULL)
error("Couldn't open input file %s.", in_file_name);
}
/* output file is specified */
if (j > 1) {
if (!strcmp(in_file_name, out_file_name)) {
/* input and output have same name */
if (access(out_file_name, 2))
error("%s not writable.", out_file_name);
strcpy(out_file_name, "/tmp/udXXXXXX");
tmpfd = mkstemp(out_file_name);
if (tmpfd == -1) {
error("Couldn't create output file %s.",
out_file_name);
}
(void) close(tmpfd);
same_name = TRUE;
} else
same_name = FALSE;
out_stream = fopen(out_file_name, "w");
if (out_stream == NULL) {
(void) unlink(out_file_name);
error("Couldn't open output file %s.", out_file_name);
}
}
#ifdef _F_BIN
setmode(fileno(in_stream), O_BINARY);
setmode(fileno(out_stream), O_BINARY);
#endif
#ifdef UNIX_BUILD
if (!code_page_overide) {
if (sysinfo(SI_ARCHITECTURE, sysinfo_str, MAXLEN) < 0) {
fprintf(stderr,
"could not obtain system information\n");
(void) unlink(out_file_name);
exit(1);
}
if (strcmp(sysinfo_str, "i386")) {
if ((kbdfd = open("/dev/kbd", O_WRONLY)) < 0) {
fprintf(stderr,
"could not open /dev/kbd to get "
"keyboard type US keyboard assumed\n");
}
if (ioctl(kbdfd, KIOCLAYOUT, &type) < 0) {
fprintf(stderr,
"could not get keyboard type US keyboard assumed\n");
}
} else {
type = 0;
}
switch (type) {
case 0:
case 1: /* United States */
dos_to_iso = &dos_to_iso_cp_437[0];
break;
case 2: /* Belgian French */
dos_to_iso = &dos_to_iso_cp_437[0];
break;
case 3: /* Canadian French */
dos_to_iso = &dos_to_iso_cp_863[0];
break;
case 4: /* Danish */
dos_to_iso = &dos_to_iso_cp_865[0];
break;
case 5: /* German */
dos_to_iso = &dos_to_iso_cp_437[0];
break;
case 6: /* Italian */
dos_to_iso = &dos_to_iso_cp_437[0];
break;
case 7: /* Netherlands Dutch */
dos_to_iso = &dos_to_iso_cp_437[0];
break;
case 8: /* Norwegian */
dos_to_iso = &dos_to_iso_cp_865[0];
break;
case 9: /* Portuguese */
dos_to_iso = &dos_to_iso_cp_860[0];
break;
case 10: /* Spanish */
dos_to_iso = &dos_to_iso_cp_437[0];
break;
case 11: /* Swedish Finnish */
dos_to_iso = &dos_to_iso_cp_437[0];
break;
case 12: /* Swiss French */
dos_to_iso = &dos_to_iso_cp_437[0];
break;
case 13: /* Swiss German */
dos_to_iso = &dos_to_iso_cp_437[0];
break;
case 14: /* United Kingdom */
dos_to_iso = &dos_to_iso_cp_437[0];
break;
default:
dos_to_iso = &dos_to_iso_cp_437[0];
break;
}
} else {
switch (code_page_overide) {
case CODE_PAGE_US:
dos_to_iso = &dos_to_iso_cp_437[0];
break;
case CODE_PAGE_MULTILINGUAL:
dos_to_iso = &dos_to_iso_cp_850[0];
break;
case CODE_PAGE_PORTUGAL:
dos_to_iso = &dos_to_iso_cp_860[0];
break;
case CODE_PAGE_CANADA_FRENCH:
dos_to_iso = &dos_to_iso_cp_863[0];
break;
case CODE_PAGE_NORWAY:
dos_to_iso = &dos_to_iso_cp_865[0];
break;
}
}
#endif
#ifdef DOS_BUILD
if (!code_page_overide) {
{
union REGS regs;
regs.h.ah = 0x66; /* get/set global code page */
regs.h.al = 0x01; /* get */
intdos(®s, ®s);
type = regs.x.bx;
}
switch (type) {
case 437: /* United States */
dos_to_iso = &dos_to_iso_cp_437[0];
break;
case 850: /* Multilingual */
dos_to_iso = &dos_to_iso_cp_850[0];
break;
case 860: /* Portuguese */
dos_to_iso = &dos_to_iso_cp_860[0];
break;
case 863: /* Canadian French */
dos_to_iso = &dos_to_iso_cp_863[0];
break;
case 865: /* Danish */
dos_to_iso = &dos_to_iso_cp_865[0];
break;
default:
dos_to_iso = &dos_to_iso_cp_437[0];
break;
}
} else {
switch (code_page_overide) {
case CODE_PAGE_US:
dos_to_iso = &dos_to_iso_cp_437[0];
break;
case CODE_PAGE_MULTILINGUAL:
dos_to_iso = &dos_to_iso_cp_850[0];
break;
case CODE_PAGE_PORTUGAL:
dos_to_iso = &dos_to_iso_cp_860[0];
break;
case CODE_PAGE_CANADA_FRENCH:
dos_to_iso = &dos_to_iso_cp_863[0];
break;
case CODE_PAGE_NORWAY:
dos_to_iso = &dos_to_iso_cp_865[0];
break;
}
}
#endif
for (i = 0; i <= 255; i++) {
iso_to_dos[dos_to_iso[i]] = i;
}
/*
* While not EOF, read in chars and send them to out_stream
* if current char is not a CR.
*/
do {
num_read = fread(&tmp_buff[100], 1, 100, in_stream);
i = 0;
out_len = 0;
src_str = &tmp_buff[100];
dest_str = &tmp_buff[0];
switch (translate_mode) {
case CONTENTS_ISO:
{
while (i++ != num_read) {
if (*src_str == '\n') {
*dest_str++ = '\r';
out_len++;
}
out_len++;
*dest_str++ = iso_to_dos[*src_str++];
}
}
break;
case CONTENTS_ASCII:
while (i++ != num_read) {
if (*src_str > 127) {
*dest_str++ =
(unsigned char) ' ';
src_str++;
out_len++;
} else {
if (*src_str == '\n') {
*dest_str++ = '\r';
out_len++;
}
*dest_str++ = *src_str++;
out_len++;
}
}
break;
case CONTENTS_DOS:
{
while (i++ != num_read) {
if (*src_str == '\n') {
*dest_str++ = '\r';
out_len++;
}
*dest_str++ = *src_str++;
out_len++;
}
}
break;
}
if (out_len && out_len != fwrite(&tmp_buff[0], 1, out_len,
out_stream))
error("Error writing to %s.", out_file_name);
} while (!feof(in_stream));
#ifdef CTRL_Z_ON_EOF
tmp_buff[0] = 26;
fwrite(&tmp_buff[0], 1, 1, out_stream);
#endif
fclose(out_stream);
fclose(in_stream);
if (same_name) {
unlink(in_file_name);
in_stream = fopen(out_file_name, "r");
out_stream = fopen(in_file_name, "w");
#ifdef _F_BIN
setmode(fileno(in_stream), O_BINARY);
setmode(fileno(out_stream), O_BINARY);
#endif
while ((num_read = fread(tmp_buff, 1, sizeof (tmp_buff),
in_stream)) != 0) {
if (num_read != fwrite(tmp_buff, 1, num_read,
out_stream))
error("Error writing to %s.", in_file_name);
}
fclose(out_stream);
fclose(in_stream);
unlink(out_file_name);
}
return (0);
}
void
error(format, args)
char *format;
char *args;
{
fprintf(stderr, "unix2dos: ");
fprintf(stderr, format, args);
fprintf(stderr, " %s.\n", strerror(errno));
exit(1);
}
void
usage()
{
fprintf(stderr,
"usage: unix2dos [ -ascii ] [ -iso ] [ -7 ] [ originalfile [ convertedfile ] ]\n");
exit(1);
}