Return to openpl.c CVS log

Up to [Research Unix] / researchv10no / libplot / libtr

Annotation of researchv10no/libplot/libtr/openpl.c, revision 1.1.1.1

1.1       root        1: #include "tr.h"
                      2: openpl(s) 
                      3: char   *s;
                      4: {
                      5:        register double t;
                      6:        /* CREATE SPACE FOR TROFF */
                      7:        t = atof(s);
                      8:        if (t <= 0. || t > 1000.) 
                      9:                printf("\n.sp\n.ne 6i\n.rs\n.sp 6i\n");
                     10:        else 
                     11:                printf("\n.sp\n.ne %s\n.rs\n.sp %s\n", s, s);
                     12: }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.