github.com/Arquivotheca.SunOS-4.1.4
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Init

Browse Source
This commit is contained in:
seta75D
2021-10-11 18:37:13 -03:00
commit ff309bfe1c
14130 changed files with 3180272 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

136
usr.lib/libcgi77/bundle77.c Normal file
View File

@@ -0,0 +1,136 @@
#ifndef lint
static char sccsid[] = "@(#)bundle77.c 1.1 94/10/31 Copyr 1985-9 Sun Micro";
#endif
/*
* Copyright (c) 1985, 1986, 1987, 1988, 1989 by Sun Microsystems, Inc.
* Permission to use, copy, modify, and distribute this software for any
* purpose and without fee is hereby granted, provided that the above
* copyright notice appear in all copies and that both that copyright
* notice and this permission notice are retained, and that the name
* of Sun Microsystems, Inc., not be used in advertising or publicity
* pertaining to this software without specific, written prior permission.
* Sun Microsystems, Inc., makes no representations about the suitability
* of this software or the interface defined in this software for any
* purpose. It is provided "as is" without express or implied warranty.
*/
/*
* CGI Attribute control functions
*/
#include "cgidefs.h"
/****************************************************************************/
/* */
/* FUNCTION: cfsaspsouflags_ */
/* */
/* */
/****************************************************************************/
int cfsaspsouflags_ (fval,fnum,n)
int *fval,*fnum,*n;
{
Cflaglist flags; /* value of attribute (INDICIDUAL or BUNDLED) */
flags.n = *n;
flags.num = fnum;
flags.value = (Casptype*)fval;
return (set_aspect_source_flags (&flags));
}
/****************************************************************************/
/* */
/* FUNCTION: cfdefbundix */
/* */
/* */
/****************************************************************************/
int cfdefbundix_ (index, line_type, line_width, line_color, marker_type,
marker_size, marker_color, interior_style, hatch_index,
pattern_index, fill_color, perimeter_type, perimeter_width,
perimeter_color, text_font, text_precision,
character_expansion, character_spacing, text_color)
Cint *index; /* entry in AES table */
Clintype *line_type; /* members of Cbunatt structure */
Cfloat *line_width;
Cint *line_color;
Cmartype *marker_type;
Cfloat *marker_size;
Cint *marker_color;
Cintertype *interior_style;
Cint *hatch_index;
Cint *pattern_index;
Cint *fill_color;
Clintype *perimeter_type;
Cfloat *perimeter_width;
Cint *perimeter_color;
Cint *text_font;
Cprectype *text_precision;
Cfloat *character_expansion;
Cfloat *character_spacing;
Cint *text_color;
{
Cbunatt attributes;
attributes.line_type = *line_type;
attributes.line_width = *line_width;
attributes.line_color = *line_color;
attributes.marker_type = *marker_type;
attributes.marker_size = *marker_size;
attributes.marker_color = *marker_color;
attributes.interior_style = *interior_style;
attributes.hatch_index = *hatch_index;
attributes.pattern_index = *pattern_index;
attributes.fill_color = *fill_color;
attributes.perimeter_type = *perimeter_type;
attributes.perimeter_width = *perimeter_width;
attributes.perimeter_color = *perimeter_color;
attributes.text_font = *text_font;
attributes.text_precision = *text_precision;
attributes.character_expansion = *character_expansion;
attributes.character_spacing = *character_spacing;
attributes.text_color = *text_color;
return (define_bundle_index (*index, &attributes));
}
/****************************************************************************/
/* */
/* FUNCTION: cfpolylnbundix */
/* */
/* */
/****************************************************************************/
int cfpolylnbundix_ (index)
int *index; /* polyline bundle index */
{
return (polyline_bundle_index (*index));
}
/****************************************************************************/
/* */
/* FUNCTION: cfpolymkbundix */
/* */
/* */
/****************************************************************************/
int cfpolymkbundix_(index)
int *index; /* polyline bundle index */
{
return(polymarker_bundle_index (*index));
}
/****************************************************************************/
/* */
/* FUNCTION: cfflareabundix */
/* */
/* */
/****************************************************************************/
int cfflareabundix_(index)
int *index; /* polyline bundle index */
{
return(fill_area_bundle_index(*index));
}
/****************************************************************************/
/* */
/* FUNCTION: cftextbundix */
/* */
/* */
/****************************************************************************/
int cftextbundix_ (index)
int *index; /* polyline bundle index */
{
return(text_bundle_index(*index));
}