Initial import of the CDE 2.1.30 sources from the Open Group.

cde/programs/dtudcfonted/dtbdftocpf/Imakefile

@@ -0,0 +1,24 @@
+XCOMM $XConsortium: Imakefile /main/8 1996/09/09 11:19:34 drk $
+
+        DESTDIR = $(CDE_INSTALLATION_TOP)
+        BINDIR  = /bin
+
+        OPT1 = -DDEFAULT_CODESET='"'3'"'
+#ifdef X11ProjectRoot
+        OPT2 = -DFONTC='"'$(XPROJECTROOT)/bin/bdftopcf'"'
+#else
+        OPT2 = -DFONTC='"'$(BINDIR)/bdftopcf'"'
+#endif
+        OPT3 = -DSNFFONTC='"'$(SNFFONTC)'"'
+
+        DEFINES     = $(OPT1) $(OPT2) $(OPT3)
+
+         INCLUDES  = -I../include -I../libfal/include
+
+  LOCAL_LIBRARIES  = ../libfuty/liboakfuty.a ../libfal/libfal.a $(XLIB) -lc
+
+             SRCS  = bdftocpf.c
+
+             OBJS  = bdftocpf.o
+
+ComplexProgramTarget(dtbdftocpf)

cde/programs/dtudcfonted/dtbdftocpf/bdftocpf.c

@@ -0,0 +1,270 @@
+/* $XConsortium: bdftocpf.c /main/6 1996/11/08 02:01:17 cde-fuj $ */
+/*
+ *  (c) Copyright 1995 FUJITSU LIMITED
+ *  This is source code modified by FUJITSU LIMITED under the Joint
+ *  Development Agreement for the CDEnext PST.
+ *  This is unpublished proprietary source code of FUJITSU LIMITED
+ */
+
+
+#include 	<stdio.h>
+#include 	<signal.h>
+#include	<sys/types.h>
+#include	<sys/stat.h>
+#include	<string.h>
+#include	<stdlib.h>
+#include	<unistd.h>
+#include	"bdfgpf.h"
+#include	"udcutil.h"
+
+static void put_error();
+static void put_help() ;
+static void Usage() ;
+static	void	sigint_out() ;
+static	int	CnvBDFtoGPF() ;
+
+static struct btophead Head;
+
+static	void
+sigint_out()
+{
+    if (Head.out_file) {
+	unlink(Head.out_file);
+    }
+    exit(0);
+}
+
+main(argc, argv)
+int	argc;
+char	*argv[];
+{
+    int	rtn, i;
+    char   *GetTmpPath();
+    struct stat	st;
+
+    for (i=1; i<argc; i++) {
+	if (!strcmp(argv[i], "-help")) {
+	    put_help(argv[0]);
+	    exit(0);
+	}
+    }
+
+    if (!(argc % 2)) {
+	Usage(argv[0]);
+    }
+	
+    Head.in_file = Head.out_file = Head.text_file = NULL;
+    Head.p_width = Head.p_height = USE_ORG_SIZE;
+
+
+    Head.start_code = MIN_CODE ;
+    Head.end_code = MAX_CODE ;
+    Head.code_category = ALL_CODE;
+
+    for (i=1; i<argc; i+=2) {
+	if (!strcmp(argv[i], "-p")) {
+	    Head.out_file = argv[i+1];
+	} else if (!strcmp(argv[i], "-bdf")) {
+	    Head.in_file = argv[i+1];
+	} else if (!strcmp(argv[i], "-width")) {
+	    Head.p_width = atoi(argv[i+1]);
+	    if ((Head.p_width > MAX_FONT_WIDTH) ||
+		(Head.p_width < MIN_FONT_WIDTH)) {
+		USAGE2("%s: The specification of the character width is improper.\"%s\"\n",
+			argv[0], argv[i+1]);
+		exit(PARAM_ERROR * (-1));
+	    }
+	} else if (!strcmp(argv[i], "-height")) {
+	    Head.p_height = atoi(argv[i+1]);
+	    if ((Head.p_height > MAX_FONT_HEIGHT) ||
+		(Head.p_height < MIN_FONT_HEIGHT)) {
+		USAGE2("%s: The specification of the character height is improper.\"%s\"\n",
+			argv[0], argv[i+1]);
+		exit(PARAM_ERROR * (-1));
+	    }
+	} else {
+	    Usage(argv[0]);
+	}
+    }
+
+    if (Head.in_file == NULL) {
+	Head.input = stdin;
+    } else {
+	char	*spacing ;
+	char	*xlfdname ;
+	spacing = xlfdname = NULL ;
+	/* refuse proportional fonts */
+	if ( GetUdcFontName( NULL, Head.in_file, &xlfdname ) ) {
+	    USAGE1("%s : This font cannot get XLFD. Terminates abnormally.\n", argv[0]);
+	    exit( 1 );
+	}
+	GETSPACINGSTR( spacing, xlfdname ) ;
+	if ( !strcmp( "p", spacing ) || !strcmp( "P", spacing ) ) {
+	    USAGE2("%s cannot edit proportional fonts.(SPACING \"%s\")\n", argv[0], spacing );
+	    exit( 1 );
+	}
+	if ((Head.input = fopen(Head.in_file, "r")) == NULL) {
+	    USAGE2("%s:  The BDF file cannot be opened.\"%s\"\n",
+		argv[0], Head.in_file); 
+	    exit(BDF_OPEN * (-1));
+	}
+    }
+
+    signal(SIGHUP, (void(*)())sigint_out);
+    signal(SIGINT, (void(*)())sigint_out);
+    signal(SIGQUIT, (void(*)())sigint_out);
+    signal(SIGTERM, (void(*)())sigint_out);
+
+    if (Head.out_file == NULL) {
+	Head.output = stdout;
+    } else {
+	if (stat(Head.out_file, &st) != 0) {
+	    if ((Head.output = fopen(Head.out_file, "w")) == NULL) {
+	    	USAGE2("%s: The character pattern file cannot be opened. \"%s\"\n",
+		    argv[0], Head.out_file); 
+	    	exit(GPF_OPEN *(-1));
+	    }
+	} else {
+	    Head.text_file = Head.out_file;
+	    if ((Head.out_file = GetTmpPath( Head.out_file )) == NULL) {
+	    	USAGE1("%s: Failed convert.\n", argv[0]); 
+		exit(FATAL_ERROR * (-1));
+	    }
+	    if ((Head.output = fopen(Head.out_file, "w")) == NULL) {
+	    	USAGE2("%s: The character pattern file cannot be opened. \"%s\"\n",
+		    argv[0], Head.out_file); 
+		exit(GPF_OPEN * (-1));
+	    }
+	}
+    }
+
+    if ((rtn = CnvBDFtoGPF(&Head))) {
+	if (Head.in_file != NULL) {
+	    fclose(Head.input);
+	}
+	if (Head.out_file != NULL) {
+	    fclose(Head.output);
+	    unlink(Head.out_file);
+	}
+	put_error(&Head, rtn, argv[0]);
+	exit(rtn * (-1));
+    }
+
+    if (Head.in_file != NULL) {
+	fclose(Head.input);
+    }
+    if (Head.out_file != NULL) {
+	fclose(Head.output);
+	signal(SIGHUP, SIG_IGN);
+	signal(SIGINT, SIG_IGN);
+	signal(SIGQUIT, SIG_IGN);
+	signal(SIGTERM, SIG_IGN);
+	if (Head.text_file != NULL) {
+	    Link_NewFile(Head.out_file, Head.text_file);
+	    unlink(Head.out_file);
+	}
+    }
+    exit(0);
+}
+
+static
+CnvBDFtoGPF(head)
+struct btophead *head;
+{
+    char    bdfbuf[BUFSIZE];
+    int	    rtn;
+
+    if ((rtn = ReadBdfHeader(head, bdfbuf)) < 0) {
+	return(rtn);
+    }
+
+    if (head->p_width == USE_ORG_SIZE) {
+	head->p_width = head->bdf_width;
+    }
+    if (head->p_height == USE_ORG_SIZE) {
+	head->p_height = head->bdf_height;
+    }
+    if ((head->p_width != head->bdf_width) ||
+	 (head->p_height != head->bdf_height)) {
+	head->zoomf = 1;
+    } else {
+	head->zoomf = 0;
+    }
+
+    if ((head->code = (int *)malloc(sizeof(int)*head->num_chars)) == NULL) {
+	return(FATAL_ERROR);
+    }
+
+    if ((head->ptn = (char **)malloc(sizeof(char *)*head->num_chars)) == NULL) {
+	return(FATAL_ERROR);
+    }
+
+    if ((rtn = ReadBdfToMemory(head, bdfbuf))) {
+	return(rtn);
+    }
+
+    WriteGpfHeader(head);
+
+    if ((rtn = WritePtnToGpf(head))) {
+	return(rtn);
+    }
+
+    return(0);
+}
+
+static void
+put_error(head, er_no, prog_name)
+struct btophead *head;
+int    er_no;
+char   *prog_name;
+{
+    switch(er_no) {
+	case FATAL_ERROR :
+	    USAGE1("%s: Failed convert.\n", prog_name);
+	    break;
+
+	case BDF_OPEN :
+	    USAGE2("%s: The BDF file cannot be opened. \"%s\"\n",
+		prog_name, head->in_file);
+	    break;
+
+	case BDF_READ :
+	    USAGE2("%s:  The BDF file cannot be read. \"%s\"\n",
+		prog_name, head->in_file);
+	    break;
+
+	case BDF_INVAL :
+	    USAGE2("%s: The format of the BDF file is illegal. \"%s\"\n",
+		prog_name, head->in_file);
+	    break;
+
+	case GPF_OPEN :
+	    USAGE2("%s: The character pattern file cannot be opened. \"%s\"\n",
+		prog_name, head->out_file);
+	    break;
+
+	case GPF_WRITE :
+	    USAGE2("%s: It is not possible to write to the character pattern file. \"%s\"\n",
+		prog_name, head->out_file);
+	    break;
+
+	default :
+	    break;
+    }
+}
+
+static	void
+put_help(prog_name)
+char	*prog_name;
+{
+    USAGE1("Usage: %s [-p character_pattern_file_name] [-bdf BDF_file_name]\n", prog_name); 
+    USAGE("\t\t[-width character_width] [-height character_height] [-help]\n\n");
+}
+
+static	void
+Usage(prog_name)
+char	*prog_name;
+{
+    put_help(prog_name);
+    exit(PARAM_ERROR * (-1));
+}