home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Internet Tools 1993 July / Internet Tools.iso / RockRidge / security / Watcher / build_abs.c < prev    next >
Encoding:
C/C++ Source or Header  |  1989-08-02  |  493 b   |  27 lines
  1. /*
  2.    build_abs: build an absolute change format for the parser.
  3.  
  4.    Kenneth Ingham
  5.  
  6.    Copyright (C) 1988 The University of New Mexico
  7. */
  8.  
  9. #include "defs.h"
  10. #include "y.tab.h"
  11.  
  12. struct change_fmt_st *
  13. build_abs(string, number)
  14. struct number *number;
  15. char *string;
  16. {
  17.     struct change_fmt_st *p;
  18.  
  19.     p = allocate(struct change_fmt_st);
  20.     p->name = string;
  21.     p->fmt.fmt.abs_amount = number->type == INTEGER ?
  22.         (double)number->value.integer : number->value.real;
  23.     p->fmt.type = ABSOLUTE;
  24.  
  25.     return p;
  26. }
  27.