nuclear@0: #include <stdio.h>
nuclear@0: #include <stdlib.h>
nuclear@0: #include <string.h>
nuclear@0: #include <errno.h>
nuclear@0: #include <jansson.h>
nuclear@0: 
nuclear@0: void proc_osg_node(const char *node_type, json_t *node, int level);
nuclear@0: void proc_geometry(json_t *node, int level);
nuclear@0: void proc_primitive(json_t *prim, int level);
nuclear@0: json_t *find_node(json_t *node, const char *key);
nuclear@0: 
nuclear@0: int main(int argc, char **argv)
nuclear@0: {
nuclear@0: 	FILE *fp = stdin;
nuclear@0: 	json_t *root, *osgnode;
nuclear@0: 	json_error_t err;
nuclear@0: 
nuclear@0: 	if(argc > 1) {
nuclear@0: 		if(!(fp = fopen(argv[1], "r"))) {
nuclear@0: 			fprintf(stderr, "failed to open osgjs file: %s: %s\n", argv[1], strerror(errno));
nuclear@0: 			return 1;
nuclear@0: 		}
nuclear@0: 	}
nuclear@0: 
nuclear@0: 	if(!(root = json_loadf(fp, 0, &err))) {
nuclear@0: 		fprintf(stderr, "json parsing error at %d:%d: %s\n", err.line, err.column, err.text);
nuclear@0: 		return 1;
nuclear@0: 	}
nuclear@0: 	if(!json_is_object(root)) {
nuclear@0: 		fprintf(stderr, "root node is not an object!\n");
nuclear@0: 		return 1;
nuclear@0: 	}
nuclear@0: 	if(!(osgnode = json_object_get(root, "osg.Node"))) {
nuclear@0: 		fprintf(stderr, "root doesn't have an osg.Node field!\n");
nuclear@0: 		return 1;
nuclear@0: 	}
nuclear@0: 	proc_osg_node("osg.Node", osgnode, 0);
nuclear@0: 
nuclear@0: 	json_decref(root);
nuclear@0: 	return 0;
nuclear@0: }
nuclear@0: 
nuclear@0: void indent(int n)
nuclear@0: {
nuclear@0: 	while(n--) {
nuclear@0: 		putchar(' ');
nuclear@0: 	}
nuclear@0: }
nuclear@0: 
nuclear@0: void proc_osg_node(const char *node_type, json_t *node, int level)
nuclear@0: {
nuclear@0: 	json_t *children, *name_field;
nuclear@0: 	const char *name = 0;
nuclear@0: 
nuclear@0: 	if((name_field = json_object_get(node, "Name"))) {
nuclear@0: 		if(json_is_string(name_field)) {
nuclear@0: 			name = json_string_value(name_field);
nuclear@0: 		}
nuclear@0: 	}
nuclear@0: 
nuclear@0: 	indent(level);
nuclear@0: 	printf("%s: %s\n", node_type, name ? name : "<unnamed>");
nuclear@0: 
nuclear@0: 	if(strcmp(node_type, "osg.Geometry") == 0) {
nuclear@0: 		proc_geometry(node, level);
nuclear@0: 	}
nuclear@0: 
nuclear@0: 	if((children = json_object_get(node, "Children")) && json_is_array(children)) {
nuclear@0: 		int i, num = json_array_size(children);
nuclear@0: 
nuclear@0: 		for(i=0; i<num; i++) {
nuclear@0: 			void *fiter;
nuclear@0: 			json_t *child = json_array_get(children, i);
nuclear@0: 			if(!child) continue;
nuclear@0: 
nuclear@0: 			fiter = json_object_iter(child);
nuclear@0: 			while(fiter) {
nuclear@0: 				const char *key = json_object_iter_key(fiter);
nuclear@0: 				if(strstr(key, "osg") == key) {	/* starts with osg */
nuclear@0: 					// recurse into new OSG node
nuclear@0: 					proc_osg_node(key, json_object_iter_value(fiter), level + 1);
nuclear@0: 				}
nuclear@0: 				fiter = json_object_iter_next(child, fiter);
nuclear@0: 			}
nuclear@0: 		}
nuclear@0: 	}
nuclear@0: }
nuclear@0: 
nuclear@0: void proc_geometry(json_t *node, int level)
nuclear@0: {
nuclear@0: 	json_t *prim_list;
nuclear@0: 	int i, num;
nuclear@0: 
nuclear@0: 	if(!(prim_list = json_object_get(node, "PrimitiveSetList"))) {
nuclear@0: 		fprintf(stderr, "geometry node without a PrimitiveSetList array\n");
nuclear@0: 		return;
nuclear@0: 	}
nuclear@0: 	if(!json_is_array(prim_list)) {
nuclear@0: 		fprintf(stderr, "PrimitiveSetList should be an array\n");
nuclear@0: 		return;
nuclear@0: 	}
nuclear@0: 	num = json_array_size(prim_list);
nuclear@0: 
nuclear@0: 	for(i=0; i<num; i++) {
nuclear@0: 		json_t *prim;
nuclear@0: 
nuclear@0: 		prim = json_array_get(prim_list, i);
nuclear@0: 		if(!json_is_object(prim)) continue;
nuclear@0: 
nuclear@0: 		proc_primitive(prim, level);
nuclear@0: 	}
nuclear@0: }
nuclear@0: 
nuclear@0: void proc_primitive(json_t *prim, int level)
nuclear@0: {
nuclear@0: 	json_t *mode;
nuclear@0: 	const char *mode_str;
nuclear@0: 
nuclear@0: 	if(!(mode = json_object_get(prim, "Mode"))) {
nuclear@0: 		fprintf(stderr, "skipping PrimitiveSetList item without Mode\n");
nuclear@0: 		return;
nuclear@0: 	}
nuclear@0: 	if(!json_is_string(mode) || !(mode_str = json_string_value(mode))) {
nuclear@0: 		fprintf(stderr, "primitive mode should be a string!\n");
nuclear@0: 		return;
nuclear@0: 	}
nuclear@0: }
nuclear@0: 
nuclear@0: json_t *find_node(json_t *node, const char *key)
nuclear@0: {
nuclear@0: 	json_t *res;
nuclear@0: 	if(json_is_object(node)) {
nuclear@0: 		void *iter = json_object_iter(node);
nuclear@0: 		while(iter) {
nuclear@0: 			if(strcmp(json_object_iter_key(iter), key) == 0) {
nuclear@0: 				return json_object_iter_value(iter);
nuclear@0: 			}
nuclear@0: 			if((res = find_node(json_object_iter_value(iter), key))) {
nuclear@0: 				return res;
nuclear@0: 			}
nuclear@0: 			iter = json_object_iter_next(node, iter);
nuclear@0: 		}
nuclear@0: 	} else if(json_is_array(node)) {
nuclear@0: 		int i, num = json_array_size(node);
nuclear@0: 		for(i=0; i<num; i++) {
nuclear@0: 			if((res = find_node(json_array_get(node, i), key))) {
nuclear@0: 				return res;
nuclear@0: 			}
nuclear@0: 		}
nuclear@0: 	}
nuclear@0: 	return 0;
nuclear@0: }