int main()
{
Store *s, *d, *sprite_s, *pool_s, *elem_s;
char *c;
Scalar r;
s = store_open();
{
if (store_child_save(&sprite_s, "sprite", s))
{
c = "hello, world";
string_save(&c, "prop1", sprite_s);
c = "hello, world ... again";
string_save(&c, "prop2", sprite_s);
r = SCALAR_INFINITY;
scalar_save(&r, "prop6", sprite_s);
if (store_child_save(&pool_s, "pool", sprite_s))
{
store_child_save(&elem_s, "elem1", pool_s);
store_child_save(&elem_s, "elem2", pool_s);
}
}
}
store_write_file(s, "test.sav");
store_close(s);
/* ---- */
d = store_open_file("test.sav");
{
if (store_child_load(&sprite_s, "sprite", d))
{
printf("%s\n", sprite_s->name);
string_load(&c, "prop1", "hai", sprite_s);
printf(" prop1: %s\n", c);
string_load(&c, "prop3", "hai", sprite_s);
printf(" prop3: %s\n", c);
string_load(&c, "prop2", "hai", sprite_s);
printf(" prop2: %s\n", c);
scalar_load(&r, "prop6", 4.2, sprite_s);
printf(" prop6: %f\n", r);
if (store_child_load(&pool_s, "pool", sprite_s))
while (store_child_load(&elem_s, NULL, pool_s))
printf(" %s\n", elem_s->name);
}
}
store_close(d);
return 0;
}
void ubasic_set_variable(int varnum, struct typevalue *value,
int nsubs, struct typevalue *subs)
{
void *p;
if (varnum & STRINGFLAG)
typecheck_string(value);
else
typecheck_int(value);
p = ubasic_find_variable(varnum, value, nsubs, subs);
if (varnum & STRINGFLAG) {
uint8_t **s = p;
if (*s != nullstr)
free(*s);
*s = string_save(value->d.p);
} else {
*(value_t *)p = value->d.i;
}
}
int
op_begemot(struct snmp_context *ctx, struct snmp_value *value,
u_int sub, u_int iidx __unused, enum snmp_op op)
{
switch (op) {
case SNMP_OP_GET:
switch (value->var.subs[sub - 1]) {
case LEAF_begemotHrStorageUpdate:
value->v.uint32 = storage_tbl_refresh;
return (SNMP_ERR_NOERROR);
case LEAF_begemotHrFSUpdate:
value->v.uint32 = fs_tbl_refresh;
return (SNMP_ERR_NOERROR);
case LEAF_begemotHrDiskStorageUpdate:
value->v.uint32 = disk_storage_tbl_refresh;
return (SNMP_ERR_NOERROR);
case LEAF_begemotHrNetworkUpdate:
value->v.uint32 = network_tbl_refresh;
return (SNMP_ERR_NOERROR);
case LEAF_begemotHrSWInstalledUpdate:
value->v.uint32 = swins_tbl_refresh;
return (SNMP_ERR_NOERROR);
case LEAF_begemotHrSWRunUpdate:
value->v.uint32 = swrun_tbl_refresh;
return (SNMP_ERR_NOERROR);
case LEAF_begemotHrPkgDir:
return (string_get(value, pkg_dir, -1));
}
abort();
case SNMP_OP_GETNEXT:
abort();
case SNMP_OP_SET:
switch (value->var.subs[sub - 1]) {
case LEAF_begemotHrStorageUpdate:
ctx->scratch->int1 = storage_tbl_refresh;
storage_tbl_refresh = value->v.uint32;
return (SNMP_ERR_NOERROR);
case LEAF_begemotHrFSUpdate:
ctx->scratch->int1 = fs_tbl_refresh;
fs_tbl_refresh = value->v.uint32;
return (SNMP_ERR_NOERROR);
case LEAF_begemotHrDiskStorageUpdate:
ctx->scratch->int1 = disk_storage_tbl_refresh;
disk_storage_tbl_refresh = value->v.uint32;
return (SNMP_ERR_NOERROR);
case LEAF_begemotHrNetworkUpdate:
ctx->scratch->int1 = network_tbl_refresh;
network_tbl_refresh = value->v.uint32;
return (SNMP_ERR_NOERROR);
case LEAF_begemotHrSWInstalledUpdate:
ctx->scratch->int1 = swins_tbl_refresh;
swins_tbl_refresh = value->v.uint32;
return (SNMP_ERR_NOERROR);
case LEAF_begemotHrSWRunUpdate:
ctx->scratch->int1 = swrun_tbl_refresh;
swrun_tbl_refresh = value->v.uint32;
return (SNMP_ERR_NOERROR);
case LEAF_begemotHrPkgDir:
return (string_save(value, ctx, -1, &pkg_dir));
}
abort();
case SNMP_OP_COMMIT:
switch (value->var.subs[sub - 1]) {
case LEAF_begemotHrStorageUpdate:
case LEAF_begemotHrFSUpdate:
case LEAF_begemotHrDiskStorageUpdate:
case LEAF_begemotHrNetworkUpdate:
case LEAF_begemotHrSWInstalledUpdate:
case LEAF_begemotHrSWRunUpdate:
return (SNMP_ERR_NOERROR);
case LEAF_begemotHrPkgDir:
string_commit(ctx);
return (SNMP_ERR_NOERROR);
}
abort();
case SNMP_OP_ROLLBACK:
switch (value->var.subs[sub - 1]) {
case LEAF_begemotHrStorageUpdate:
storage_tbl_refresh = ctx->scratch->int1;
return (SNMP_ERR_NOERROR);
case LEAF_begemotHrFSUpdate:
fs_tbl_refresh = ctx->scratch->int1;
return (SNMP_ERR_NOERROR);
case LEAF_begemotHrDiskStorageUpdate:
disk_storage_tbl_refresh = ctx->scratch->int1;
return (SNMP_ERR_NOERROR);
case LEAF_begemotHrNetworkUpdate:
network_tbl_refresh = ctx->scratch->int1;
return (SNMP_ERR_NOERROR);
case LEAF_begemotHrSWInstalledUpdate:
swins_tbl_refresh = ctx->scratch->int1;
return (SNMP_ERR_NOERROR);
case LEAF_begemotHrSWRunUpdate:
swrun_tbl_refresh = ctx->scratch->int1;
return (SNMP_ERR_NOERROR);
case LEAF_begemotHrPkgDir:
string_rollback(ctx, &pkg_dir);
return (SNMP_ERR_NOERROR);
}
abort();
}
abort();
}
/*************************************************************
*
* System group
*/
int
op_system_group(struct snmp_context *ctx, struct snmp_value *value,
u_int sub, u_int iidx __unused, enum snmp_op op)
{
asn_subid_t which = value->var.subs[sub - 1];
switch (op) {
case SNMP_OP_GETNEXT:
abort();
case SNMP_OP_GET:
break;
case SNMP_OP_SET:
switch (which) {
case LEAF_sysDescr:
if (community != COMM_INITIALIZE)
return (SNMP_ERR_NOT_WRITEABLE);
return (string_save(value, ctx, -1, &systemg.descr));
case LEAF_sysObjectId:
if (community != COMM_INITIALIZE)
return (SNMP_ERR_NOT_WRITEABLE);
return (oid_save(value, ctx, &systemg.object_id));
case LEAF_sysContact:
return (string_save(value, ctx, -1, &systemg.contact));
case LEAF_sysName:
return (string_save(value, ctx, -1, &systemg.name));
case LEAF_sysLocation:
return (string_save(value, ctx, -1, &systemg.location));
}
return (SNMP_ERR_NO_CREATION);
case SNMP_OP_ROLLBACK:
switch (which) {
case LEAF_sysDescr:
string_rollback(ctx, &systemg.descr);
return (SNMP_ERR_NOERROR);
case LEAF_sysObjectId:
oid_rollback(ctx, &systemg.object_id);
return (SNMP_ERR_NOERROR);
case LEAF_sysContact:
string_rollback(ctx, &systemg.contact);
return (SNMP_ERR_NOERROR);
case LEAF_sysName:
string_rollback(ctx, &systemg.name);
return (SNMP_ERR_NOERROR);
case LEAF_sysLocation:
string_rollback(ctx, &systemg.location);
return (SNMP_ERR_NOERROR);
}
abort();
case SNMP_OP_COMMIT:
switch (which) {
case LEAF_sysDescr:
string_commit(ctx);
return (SNMP_ERR_NOERROR);
case LEAF_sysObjectId:
oid_commit(ctx);
return (SNMP_ERR_NOERROR);
case LEAF_sysContact:
string_commit(ctx);
return (SNMP_ERR_NOERROR);
case LEAF_sysName:
string_commit(ctx);
return (SNMP_ERR_NOERROR);
case LEAF_sysLocation:
string_commit(ctx);
return (SNMP_ERR_NOERROR);
}
abort();
}
/*
* Come here for GET.
*/
switch (which) {
case LEAF_sysDescr:
return (string_get(value, systemg.descr, -1));
case LEAF_sysObjectId:
return (oid_get(value, &systemg.object_id));
case LEAF_sysUpTime:
value->v.uint32 = get_ticks() - start_tick;
break;
case LEAF_sysContact:
return (string_get(value, systemg.contact, -1));
case LEAF_sysName:
return (string_get(value, systemg.name, -1));
case LEAF_sysLocation:
return (string_get(value, systemg.location, -1));
case LEAF_sysServices:
value->v.integer = systemg.services;
break;
case LEAF_sysORLastChange:
value->v.uint32 = systemg.or_last_change;
break;
}
return (SNMP_ERR_NOERROR);
}
