fixes
This commit is contained in:
parent
b6d98463b4
commit
90a99688be
4 changed files with 6 additions and 1243 deletions
|
|
@ -1,4 +1,5 @@
|
||||||
#include <stdio.h>
|
#include <stdio.h>
|
||||||
|
#include <math.h>
|
||||||
#include <ctype.h>
|
#include <ctype.h>
|
||||||
#include <errno.h>
|
#include <errno.h>
|
||||||
#include "pic.h"
|
#include "pic.h"
|
||||||
|
|
@ -511,7 +512,7 @@ struct symtab*
|
||||||
copythru(char *s) /* collect the macro name or body for thru */
|
copythru(char *s) /* collect the macro name or body for thru */
|
||||||
{
|
{
|
||||||
struct symtab *p;
|
struct symtab *p;
|
||||||
char *q, *addnewline();
|
char *q;
|
||||||
|
|
||||||
p = lookup(s);
|
p = lookup(s);
|
||||||
if (p != NULL) {
|
if (p != NULL) {
|
||||||
|
|
|
||||||
|
|
@ -1,3 +1,4 @@
|
||||||
|
#include <math.h>
|
||||||
#include <stdio.h>
|
#include <stdio.h>
|
||||||
#include "pic.h"
|
#include "pic.h"
|
||||||
#include "y.tab.h"
|
#include "y.tab.h"
|
||||||
|
|
@ -11,7 +12,7 @@ linegen(int type)
|
||||||
static double prevh = HT5;
|
static double prevh = HT5;
|
||||||
int i, j, some, head, ddtype, invis, chop;
|
int i, j, some, head, ddtype, invis, chop;
|
||||||
double ddval, chop1, chop2, x0, y0, x1, y1;
|
double ddval, chop1, chop2, x0, y0, x1, y1;
|
||||||
double sin(), cos(), atan2(), theta;
|
double theta;
|
||||||
double defx, defy;
|
double defx, defy;
|
||||||
obj *p, *ppos;
|
obj *p, *ppos;
|
||||||
static int xtab[] = { 1, 0, -1, 0 }; /* R=0, U=1, L=2, D=3 */
|
static int xtab[] = { 1, 0, -1, 0 }; /* R=0, U=1, L=2, D=3 */
|
||||||
|
|
|
||||||
|
|
@ -369,7 +369,7 @@ getfirst(int n, int t) /* find n-th occurrence of type t */
|
||||||
double
|
double
|
||||||
getblkvar(obj *p, char *s) /* find variable s2 in block p */
|
getblkvar(obj *p, char *s) /* find variable s2 in block p */
|
||||||
{
|
{
|
||||||
YYSTYPE y, getblk();
|
YYSTYPE y;
|
||||||
|
|
||||||
y = getblk(p, s);
|
y = getblk(p, s);
|
||||||
return y.f;
|
return y.f;
|
||||||
|
|
@ -378,7 +378,7 @@ getblkvar(obj *p, char *s) /* find variable s2 in block p */
|
||||||
obj*
|
obj*
|
||||||
getblock(obj *p, char *s) /* find variable s in block p */
|
getblock(obj *p, char *s) /* find variable s in block p */
|
||||||
{
|
{
|
||||||
YYSTYPE y, getblk();
|
YYSTYPE y;
|
||||||
|
|
||||||
y = getblk(p, s);
|
y = getblk(p, s);
|
||||||
return y.o;
|
return y.o;
|
||||||
|
|
|
||||||
1239
src/cmd/tpic/picy.c
1239
src/cmd/tpic/picy.c
File diff suppressed because it is too large
Load diff
Loading…
Add table
Add a link
Reference in a new issue