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

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.