多媒体

开发平台：
MultiPlatform

func.c：源码内容
							/* Function management */
#include <stdio.h>
#include <string.h>
#include <stdlib.h>
#include "common.h"
#include "fatal.h"
#include "func_types.h"
#include "func.h"
#include "splaytree_types.h"
#include "splaytree.h"
#include "tree_types.h"
#include "builtin_funcs.h"
/* A splay tree of builtin functions */
splaytree_t * builtin_func_tree;
/* Private function prototypes */
int compare_func(char * name, char * name2);
int insert_func(func_t * name);
void * copy_func_key(char * string);
void * copy_func_key(char * string) {
	
	char * clone_string;
	
	if ((clone_string = malloc(MAX_TOKEN_SIZE)) == NULL)
		return NULL;
	
	strncpy(clone_string, string, MAX_TOKEN_SIZE-1);
	
	return (void*)clone_string;
}	
func_t * create_func (char * name, double (*func_ptr)(), int num_args) {
  func_t * func;
  func = (func_t*)malloc(sizeof(func_t));
 
  if (func == NULL)
    return NULL;
  
  /* Clear name space */
  memset(func->name, 0, MAX_TOKEN_SIZE);
  /* Copy given name into function structure */
  strncpy(func->name, name, MAX_TOKEN_SIZE); 
  /* Assign value pointer */
  func->func_ptr = func_ptr;
  func->num_args = num_args;
  /* Return instantiated function */
  return func;
}
/* Initialize the builtin function database.
   Should only be necessary once */
int init_builtin_func_db() {
  int retval;
  builtin_func_tree = create_splaytree(compare_string, copy_string, free_string);
  if (builtin_func_tree == NULL)
    return OUTOFMEM_ERROR;
  retval = load_all_builtin_func();
  return SUCCESS;
}
/* Destroy the builtin function database.
   Generally, do this on projectm exit */
int destroy_builtin_func_db() {
  splay_traverse(free_func, builtin_func_tree);
  destroy_splaytree(builtin_func_tree);
  return SUCCESS;
}
/* Insert a function into the database */
int insert_func(func_t * func) {
  if (func == NULL)
    return ERROR;
  splay_insert(func, func->name, builtin_func_tree);
  return SUCCESS;
}
/* Frees a function type, real complicated... */
void free_func(func_t * func) {
  free(func);
}
/* Remove a function from the database */
int remove_func(func_t * func) {
  if (func == NULL)
    return ERROR;
    splay_delete(func->name, builtin_func_tree);
  return SUCCESS;
}
/* Find a function given its name */
func_t * find_func(char * name) {
  func_t * func = NULL;
  /* First look in the builtin database */
  func = (func_t *)splay_find(name, builtin_func_tree);
	
  return func;
}
/* Compare string name with function name */
int compare_func(char * name, char * name2) {
  int cmpval;
  /* Uses string comparison function */
  cmpval = strncmp(name, name2, MAX_TOKEN_SIZE-1);
  
  return cmpval;
}
/* Loads a builtin function */
int load_builtin_func(char * name,  double (*func_ptr)(), int num_args) {
  func_t * func; 
  int retval; 
  /* Create new function */
  func = create_func(name, func_ptr, num_args);
  if (func == NULL)
    return OUTOFMEM_ERROR;
  retval = insert_func(func);
  return retval;
}
/* Loads all builtin functions */
int load_all_builtin_func() {
  
  if (load_builtin_func("int", int_wrapper, 1) < 0)
    return ERROR;
  if (load_builtin_func("abs", abs_wrapper, 1) < 0)
    return ERROR;
  if (load_builtin_func("sin", sin_wrapper, 1) < 0)
    return ERROR;
  if (load_builtin_func("cos", cos_wrapper, 1) < 0)
    return ERROR;
  if (load_builtin_func("tan", tan_wrapper, 1) < 0)
    return ERROR;
  if (load_builtin_func("asin", asin_wrapper, 1) < 0)
    return ERROR;
  if (load_builtin_func("acos", acos_wrapper, 1) < 0)
    return ERROR;
  if (load_builtin_func("atan", atan_wrapper, 1) < 0)
    return ERROR;
  if (load_builtin_func("sqr", sqr_wrapper, 1) < 0)
    return ERROR;
  if (load_builtin_func("sqrt", sqrt_wrapper, 1) < 0)
    return ERROR;
  if (load_builtin_func("pow", pow_wrapper, 2) < 0)
    return ERROR;
  if (load_builtin_func("exp", exp_wrapper, 1) < 0)
    return ERROR;
  if (load_builtin_func("log", log_wrapper, 1) < 0)
    return ERROR;
  if (load_builtin_func("log10", log10_wrapper, 1) < 0)
    return ERROR;
  if (load_builtin_func("sign", sign_wrapper, 1) < 0)
    return ERROR;
  if (load_builtin_func("min", min_wrapper, 2) < 0)
    return ERROR;
  if (load_builtin_func("max", max_wrapper, 2) < 0)
    return ERROR;
  if (load_builtin_func("sigmoid", sigmoid_wrapper, 2) < 0)
    return ERROR;
  if (load_builtin_func("atan2", atan2_wrapper, 2) < 0)
    return ERROR;
  if (load_builtin_func("rand", rand_wrapper, 1) < 0)
    return ERROR;
  if (load_builtin_func("band", band_wrapper, 2) < 0)
    return ERROR;
  if (load_builtin_func("bor", bor_wrapper, 2) < 0)
    return ERROR;
  if (load_builtin_func("bnot", bnot_wrapper, 1) < 0)
    return ERROR;
  if (load_builtin_func("if", if_wrapper, 3) < 0)
    return ERROR;
  if (load_builtin_func("equal", equal_wrapper, 2) < 0)
    return ERROR;
  if (load_builtin_func("above", above_wrapper, 2) < 0)
    return ERROR;
  if (load_builtin_func("below", below_wrapper, 2) < 0)
    return ERROR;
  if (load_builtin_func("nchoosek", nchoosek_wrapper, 2) < 0)
    return ERROR;
  if (load_builtin_func("fact", fact_wrapper, 1) < 0)
    return ERROR;
  return SUCCESS;
}

						