projects
/
unix-history
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
tags
|
clone url
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blame
|
history
|
raw
|
HEAD
Bell 32V development
[unix-history]
/
usr
/
src
/
cmd
/
neqn
/
integral.c
# include
"e.h"
# include
"e.def"
integral
(
p
,
p1
,
p2
) {
#ifndef NEQN
if
(
p1
!=
0
)
printf
(
".ds %d
\\
h'-0.4m'
\\
v'0.4m'
\\
*(%d
\\
v'-0.4m'
\n
"
,
p1
,
p1
);
if
(
p2
!=
0
)
printf
(
".ds %d
\\
v'-0.3m'
\\
*(%d
\\
v'0.3m'
\n
"
,
p2
,
p2
);
#endif
if
(
p1
!=
0
&&
p2
!=
0
)
shift2
(
p
,
p1
,
p2
);
else if
(
p1
!=
0
)
bshiftb
(
p
,
SUB
,
p1
);
else if
(
p2
!=
0
)
bshiftb
(
p
,
SUP
,
p2
);
if
(
dbg
)
printf
(
".
\t
integral: S%d; h=%d b=%d
\n
"
,
p
,
eht
[
p
],
ebase
[
p
]);
lfont
[
p
] =
ROM
;
}
setintegral
() {
char
*
f
;
yyval
=
oalloc
();
f
=
"
\\
(is"
;
printf
(
".ds %d %s
\n
"
,
yyval
,
f
);
eht
[
yyval
] =
VERT
(
2
);
ebase
[
yyval
] =
0
;
lfont
[
yyval
] =
rfont
[
yyval
] =
ROM
;
}