usr.bin/dc/bcode.h

   1 /*
   2  * $OpenBSD: bcode.h,v 1.3 2003/12/01 09:13:24 otto Exp $
   3  * $DragonFly: src/usr.bin/dc/bcode.h,v 1.1 2004/09/20 04:20:39 dillon Exp $
   4  */
   5
   6 /*
   7  * Copyright (c) 2003, Otto Moerbeek <otto@drijf.net>
   8  *
   9  * Permission to use, copy, modify, and distribute this software for any
  10  * purpose with or without fee is hereby granted, provided that the above
  11  * copyright notice and this permission notice appear in all copies.
  12  *
  13  * THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
  14  * WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
  15  * MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
  16  * ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
  17  * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
  18  * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
  19  * OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
  20  */
  21
  22 #include <sys/types.h>
  23 #include <openssl/bn.h>
  24
  25
  26 struct number {
  27         BIGNUM  *number;
  28         u_int   scale;
  29 };
  30
  31 enum stacktype {
  32         BCODE_NONE,
  33         BCODE_NUMBER,
  34         BCODE_STRING
  35 };
  36
  37 enum bcode_compare {
  38         BCODE_EQUAL,
  39         BCODE_NOT_EQUAL,
  40         BCODE_LESS,
  41         BCODE_NOT_LESS,
  42         BCODE_GREATER,
  43         BCODE_NOT_GREATER
  44 };
  45
  46 struct array;
  47
  48 struct value {
  49         union {
  50                 struct number   *num;
  51                 char            *string;
  52         } u;
  53         struct array    *array;
  54         enum stacktype  type;
  55 };
  56
  57 struct array {
  58         struct value    *data;
  59         size_t          size;
  60 };
  61
  62 struct stack {
  63         struct value    *stack;
  64         int             sp;
  65         int             size;
  66 };
  67
  68 struct source;
  69
  70 struct vtable {
  71         int     (*readchar)(struct source *);
  72         int     (*unreadchar)(struct source *);
  73         char    *(*readline)(struct source *);
  74         void    (*free)(struct source *);
  75 };
  76
  77 struct source {
  78         struct vtable   *vtable;
  79         union {
  80                         FILE *stream;
  81                         struct {
  82                                 u_char *buf;
  83                                 size_t pos;
  84                         } string;
  85         } u;
  86         int             lastchar;
  87 };
  88
  89 void                    init_bmachine(bool);
  90 void                    reset_bmachine(struct source *);
  91 void                    scale_number(BIGNUM *, int);
  92 void                    normalize(struct number *, u_int);
  93 void                    eval(void);
  94 void                    pn(const char *, const struct number *);
  95 void                    pbn(const char *, const BIGNUM *);
  96 void                    negate(struct number *);
  97 void                    split_number(const struct number *, BIGNUM *, BIGNUM *);
  98 void                    bmul_number(struct number *, struct number *,
  99                             struct number *);
 100
 101 extern BIGNUM           zero;