Source/DOH/base.c

4  *     This file contains the function entry points for dispatching methods on
10  * See the file LICENSE for information on usage and redistribution.
320 DOH *DohGetattr(DOH *obj, const DOH *name) {
324     DOH *r = (objinfo->doh_hash->doh_getattr) (b, (DOH *) name);
334 int DohSetattr(DOH *obj, const DOH *name, const DOH *value) {
338     return (objinfo->doh_hash->doh_setattr) (b, (DOH *) name, (DOH *) value);
347 int DohDelattr(DOH *obj, const DOH *name) {
351     return (objinfo->doh_hash->doh_delattr) (b, (DOH *) name);
360 int DohCheckattr(DOH *obj, const DOH *name, const DOH *value) {
361   DOH *attr = Getattr(obj,name);
383 int DohGetInt(DOH *obj, const DOH *name) {
385   val = Getattr(obj, (DOH *) name);
398 double DohGetDouble(DOH *obj, const DOH *name) {
400   val = Getattr(obj, (DOH *) name);
413 char *DohGetChar(DOH *obj, const DOH *name) {
415   val = Getattr(obj, (DOH *) name);
426  * A flag is unset if the attribute (name) does not exist on the node (obj),
435 DOH *DohGetFlagAttr(DOH *obj, const DOH *name) {
436   DOH *val = Getattr(obj, (DOH *) name);
447 int DohGetFlag(DOH *obj, const DOH *name) {
448   return DohGetFlagAttr(obj, name) ? 1 : 0;
456 void *DohGetVoid(DOH *obj, const DOH *name) {
458   val = Getattr(obj, (DOH *) name);
468 void DohSetInt(DOH *obj, const DOH *name, int value) {
469   DOH *temp;
470   temp = NewStringEmpty();
471   Printf(temp, "%d", value);
472   Setattr(obj, (DOH *) name, temp);
479 void DohSetDouble(DOH *obj, const DOH *name, double value) {
480   DOH *temp;
481   temp = NewStringEmpty();
482   Printf(temp, "%0.17f", value);
483   Setattr(obj, (DOH *) name, temp);
490 void DohSetChar(DOH *obj, const DOH *name, char *value) {
491   Setattr(obj, (DOH *) name, NewString(value));
498 void DohSetFlagAttr(DOH *obj, const DOH *name, const DOH *attr) {
499   Setattr(obj, (DOH *) name, attr ? attr : NewString("0"));
502 void DohSetFlag(DOH *obj, const DOH *name) {
503   Setattr(obj, (DOH *) name, NewString("1"));
510 void DohSetVoid(DOH *obj, const DOH *name, void *value) {
511   Setattr(obj, (DOH *) name, NewVoid(value, 0));
626   /* Hmmm.  Not a file.  Maybe it's a real FILE */
644   /* Hmmm.  Not a file.  Maybe it's a real FILE */
817 void DohSetfile(DOH *ho, DOH *file) {
824     (objinfo->doh_setfile) (h, file);
872 DOH *DohGetmeta(DOH *ho, const DOH *name) {
878   return DohGetattr(h->meta, name);
885 int DohSetmeta(DOH *ho, const DOH *name, const DOH *value) {
891   return DohSetattr(h->meta, name, value);
898 int DohDelmeta(DOH *ho, const DOH *name) {
904   return DohDelattr(h->meta, name);