Return to globals.c CVS log

Up to [MW Coherent from dump] / coherent / d / bin / bc

Annotation of coherent/d/bin/bc/globals.c, revision 1.1

1.1     ! root        1: #include <stdio.h>
        !             2: #include "bc.h"
        !             3: 
        !             4: 
        !             5: int    allok       = TRUE;     /* True iff no outstanding errors */
        !             6: int    scale       = 0;        /* scale register */
        !             7: extern int     ibase;          /* input base from libmp/min.c */
        !             8: dicent *dictionary = NULL;     /* root of string table */
        !             9: code   cstream[MAXCODE];       /* code stream */
        !            10: code   *loc = cstream;         /* where next item of code stream goes */
        !            11: mint   ten;                    /* constant ten */
        !            12: mint   maxsobase;              /* max small output base (16) */
        !            13: mint   outbase;                /* output base */
        !            14: rvalue dot;                    /* last number printed */
        !            15: rvalue zero;                   /* constant zero */
        !            16: FILE   *infile = stdin;        /* current input file */
        !            17: int    inline = 0;             /* current line number */
        !            18: char   *infnam = NULL;         /* current file name */
        !            19: 
        !            20: init()
        !            21: {
        !            22:        mitom(10, &ten);
        !            23:        mcopy(&ten, &outbase);
        !            24:        mitom(16, &maxsobase);
        !            25:        mitom(0, &dot.mantissa);
        !            26:        dot.scale = 0;
        !            27:        mitom(0, &zero.mantissa);
        !            28:        zero.scale = 0;
        !            29: }

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