blob: 37e8197212cea4f3fe2a7e434b29747651701809 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include <gescape.h>
include "ccp.h"
# CCP_ESCAPE -- Pass a device dependent instruction on to the kernel.
# used for passing exact scaling factors through gki metacode
procedure ccp_escape (fn, instruction, nwords)
int fn # function code
short instruction[ARB] # instruction data words
int nwords # length of instruction
int ip
real tempr
char scale_str[SZ_LINE]
int ctod ()
include "ccp.com"
string warnx "Warning: ccpkern unable to convert gki_escape xscale\n"
string warny "Warning: ccpkern unable to convert gki_escape yscale\n"
begin
call achtsc (instruction, scale_str, nwords)
scale_str[nwords+1] = EOS
ip = 1
switch (fn) {
case GSC_X_GKITODEV:
# if kernel task scale params were not specified, set actual scale
# params to those passed from metacode if translatable, set to
# default scale from ccp_init/graphcap if untranslatable. If
# kernel task did specify scale, this is a no op.
if (IS_INDEF (g_xtask_scale)) {
if (ctod (scale_str, ip, tempr) < 1) {
g_xndcto_p = g_xdefault_scale
call eprintf (warnx)
call eprintf ("scale string: %s\n")
call pargstr (scale_str)
call eprintf ("new (graphcap-default) x scale: %f\n")
call pargr (g_xndcto_p)
} else
g_xndcto_p = tempr
}
case GSC_Y_GKITODEV:
if (IS_INDEF (g_ytask_scale)) {
if (ctod (scale_str, ip, tempr) < 1) {
g_yndcto_p = g_ydefault_scale
call eprintf (warny)
call eprintf ("scale string: %s\n")
call pargstr (scale_str)
call eprintf ("new (graphcap-default) y scale: %f\n")
call pargr (g_yndcto_p)
} else
g_yndcto_p = tempr
}
}
end
|
