nuclear@1: /*
nuclear@1: libimago - a multi-format image file input/output library.
nuclear@1: Copyright (C) 2010 John Tsiombikas <nuclear@member.fsf.org>
nuclear@1: 
nuclear@1: This program is free software: you can redistribute it and/or modify
nuclear@1: it under the terms of the GNU Lesser General Public License as published
nuclear@1: by the Free Software Foundation, either version 3 of the License, or
nuclear@1: (at your option) any later version.
nuclear@1: 
nuclear@1: This program is distributed in the hope that it will be useful,
nuclear@1: but WITHOUT ANY WARRANTY; without even the implied warranty of
nuclear@1: MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
nuclear@1: GNU Lesser General Public License for more details.
nuclear@1: 
nuclear@1: You should have received a copy of the GNU Lesser General Public License
nuclear@1: along with this program.  If not, see <http://www.gnu.org/licenses/>.
nuclear@1: */
nuclear@1: 
nuclear@1: #include <stdlib.h>
nuclear@1: #include <string.h>
nuclear@1: #include "ftype_module.h"
nuclear@1: 
nuclear@1: static struct list_node {
nuclear@1: 	struct ftype_module *module;
nuclear@1: 	struct list_node *next;
nuclear@1: } *modules;
nuclear@1: 
nuclear@1: /* defined in modules.c which is generated by configure */
nuclear@1: void img_modules_init();
nuclear@1: 
nuclear@1: static int done_init;
nuclear@1: 
nuclear@1: int img_register_module(struct ftype_module *mod)
nuclear@1: {
nuclear@1: 	struct list_node *node;
nuclear@1: 
nuclear@1: 	if(!(node = malloc(sizeof *node))) {
nuclear@1: 		return -1;
nuclear@1: 	}
nuclear@1: 
nuclear@1: 	node->module = mod;
nuclear@1: 	node->next = modules;
nuclear@1: 	modules = node;
nuclear@1: 	return 0;
nuclear@1: }
nuclear@1: 
nuclear@1: struct ftype_module *img_find_format_module(struct img_io *io)
nuclear@1: {
nuclear@1: 	struct list_node *node;
nuclear@1: 
nuclear@1: 	if(!done_init) {
nuclear@1: 		img_modules_init();
nuclear@1: 		done_init = 1;
nuclear@1: 	}
nuclear@1: 
nuclear@1: 	node = modules;
nuclear@1: 	while(node) {
nuclear@1: 		if(node->module->check(io) != -1) {
nuclear@1: 			return node->module;
nuclear@1: 		}
nuclear@1: 		node = node->next;
nuclear@1: 	}
nuclear@1: 	return 0;
nuclear@1: }
nuclear@1: 
nuclear@1: struct ftype_module *img_guess_format(const char *fname)
nuclear@1: {
nuclear@1: 	struct list_node *node;
nuclear@1: 	char *suffix;
nuclear@1: 	int suffix_len;
nuclear@1: 
nuclear@1: 	if(!done_init) {
nuclear@1: 		img_modules_init();
nuclear@1: 		done_init = 1;
nuclear@1: 	}
nuclear@1: 
nuclear@1: 	if(!(suffix = strrchr(fname, '.'))) {
nuclear@1: 		return 0;	/* no suffix, can't guess ... */
nuclear@1: 	}
nuclear@1: 	suffix_len = strlen(suffix);
nuclear@1: 
nuclear@1: 	node = modules;
nuclear@1: 	while(node) {
nuclear@1: 		char *suflist = node->module->suffix;
nuclear@1: 		char *start, *end;
nuclear@1: 
nuclear@1: 		while(*suflist) {
nuclear@1: 			if(!(start = strstr(suflist, suffix))) {
nuclear@1: 				break;
nuclear@1: 			}
nuclear@1: 			end = start + suffix_len;
nuclear@1: 
nuclear@1: 			if(*end == ':' || *end == 0) {
nuclear@1: 				return node->module;	/* found it */
nuclear@1: 			}
nuclear@1: 			suflist = end;
nuclear@1: 		}
nuclear@1: 
nuclear@1: 		node = node->next;
nuclear@1: 	}
nuclear@1: 	return 0;
nuclear@1: }
nuclear@1: 
nuclear@1: struct ftype_module *img_get_module(int idx)
nuclear@1: {
nuclear@1: 	struct list_node *node;
nuclear@1: 
nuclear@1: 	if(!done_init) {
nuclear@1: 		img_modules_init();
nuclear@1: 		done_init = 1;
nuclear@1: 	}
nuclear@1: 
nuclear@1: 	node = modules;
nuclear@1: 	while(node && idx--) {
nuclear@1: 		node = node->next;
nuclear@1: 	}
nuclear@1: 	return node ? node->module : 0;
nuclear@1: }