/*
* 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 1997 Sun Microsystems, Inc. All rights reserved.
* Use is subject to license terms.
*/
/* Copyright (c) 1984, 1986, 1987, 1988, 1989 AT&T */
/* All Rights Reserved */
#pragma ident "%Z%%M% %I% %E% SMI" /* SVr4.0 1.8 */
/* EMACS_MODES: !fill, lnumb, !overwrite, !nodelete, !picture */
#include "sys/types.h"
#include "sys/stat.h"
#include "stdio.h"
#include "string.h"
#include "errno.h"
#include "stdlib.h"
#include "lp.h"
#include "form.h"
extern struct {
char *v;
short len;
short infile;
} formheadings[];
int _search_fheading ( char * );
static void print_sdn(int, char *, SCALED);
static void print_str(int, char *, char *);
/**
** wrform()
**/
int
wrform(char *name, FORM *formp, int fd, int (*error_handler)( int , int , int ),
int *which_set)
{
int fld;
char * cp;
errno = 0;
for (fld = 0; fld < FO_MAX; fld++)
if ((!which_set || which_set[fld]) &&
(formheadings[fld].infile || error_handler))
switch (fld) {
#define HEAD formheadings[fld].v
case FO_PLEN:
print_sdn(fd, HEAD, formp->plen);
break;
case FO_PWID:
print_sdn(fd, HEAD, formp->pwid);
break;
case FO_LPI:
print_sdn(fd, HEAD, formp->lpi);
break;
case FO_CPI:
if (formp->cpi.val == N_COMPRESSED)
print_str(fd, HEAD, NAME_COMPRESSED);
else
print_sdn(fd, HEAD, formp->cpi);
break;
case FO_NP:
fdprintf(fd, "%s %d\n", HEAD, formp->np);
break;
case FO_CHSET:
fdprintf(fd, "%s %s", HEAD, formp->chset);
if (formp->mandatory == 1)
fdprintf(fd, ",%s", MANSTR);
fdprintf(fd, "\n");
break;
case FO_RCOLOR:
print_str(fd, HEAD, formp->rcolor);
break;
case FO_CMT:
if ((cp = formp->comment) && *cp) {
fdprintf(fd, "%s\n", HEAD);
do {
char * nl = strchr(cp, '\n');
if (nl)
*nl = 0;
if (_search_fheading(cp) < FO_MAX)
fdputc ('>', fd);
fdprintf(fd, "%s\n", cp);
if (nl)
*nl = '\n';
cp = nl;
} while (cp++); /* NOT *cp++ */
}
break;
case FO_ALIGN:
/* this must always be the last field in the file
it is done outside of this loop */
break;
case FO_PAPER:
if (formp->paper) {
fdprintf(fd, "%s %s", HEAD, formp->paper);
if (formp->isDefault == 1)
fdprintf(fd, ",%s", DFTSTR);
fdprintf(fd, "\n");
}
break;
}
if ((!which_set || which_set[FO_ALIGN]) &&
(formheadings[FO_ALIGN].infile || error_handler)) {
print_str(fd, formheadings[FO_ALIGN].v, formp->conttype);
/*
* Actual alignment pattern has to be written
* out by caller; we leave the file pointer ready.
*/
}
if (errno != 0)
return (-1);
/*
* Write out comment to a separate file (?)
*/
if (!error_handler) {
char * path;
if (!(path = getformfile(name, COMMENT)))
return (-1);
if (formp->comment) {
if (dumpstring(path, formp->comment) == -1) {
Free (path);
return (-1);
}
} else
Unlink (path);
Free (path);
}
return (0);
}
/**
** print_sdn() - PRINT SCALED DECIMAL NUMBER WITH HEADER
** print_str() - PRINT STRING WITH HEADER
**/
static void
print_sdn(int fd, char *head, SCALED sdn)
{
if (sdn.val <= 0)
return;
(void)fdprintf(fd, "%s ", head);
fdprintsdn(fd, sdn);
return;
}
static void
print_str(int fd, char *head, char *str)
{
if (!str || !*str)
return;
(void)fdprintf(fd, "%s %s\n", head, str);
return;
}