aboutsummaryrefslogtreecommitdiff
path: root/sys/clio/cllpset.x
blob: aa06a57a5700cc4bc53d65f122099abc10189bad (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.

include	"clpset.h"

# CLLPSET -- List a pset.  Each param,value pair is written to the output
# file using the caller supplied format, e.g., "set %s = \"%s\"\n".

procedure cllpset (pp, fd, format)

pointer	pp			#I pset descriptor
int	fd			#I output file
char	format[ARB]		#I format, one %s each for param, value

begin
	call clc_compress()
	call clc_list (fd, PS_PSETNAME(pp), format)
end