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     ! 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.