/adei/trunk

<?php
function GetTmpFile($prefix, $ext = false) {
    return tempnam(sys_get_temp_dir(), $prefix) . ($ext?".$ext":"");
}

function dsPrintSelectOptions($config, $selected=false) {
    foreach ($config as $opt => $value) {
	if (($selected)&&(strcmp($value,$selected))) $selected = " selected=\"1\"";
	else $selected = "";
	
	print "<option value=\"$value\"$selected>$opt</option>";
    }
}

function dsMathParseExpression($expression, $args) {
    static $function_map = array(
        'floor'     => 'floor',
        'ceil'      => 'ceil',
        'round'     => 'round',         
        'sin'       => 'sin',
        'cos'       => 'cos',
        'tan'       => 'tan',           
        'asin'      => 'asin',
        'acos'      => 'acos',
        'atan'      => 'atan',          
        'abs'       => 'abs',
        'log'       => 'log',           
        'pi'        => 'pi',
        'exp'       => 'exp',
        'min'       => 'min',
        'max'       => 'max',
        'rand'      => 'rand',
        'fmod'      => 'fmod',
        'sqrt'      => 'sqrt',
        'deg2rad'   => 'deg2rad',
        'rad2deg'   => 'rad2deg',
        'and'       => '&&',
        'or'        => '||',
    );
    
    $args = explode(",", $args);
    foreach ($args as $arg) {
        if (substr($arg,0,1) == '$')
            $function_map[substr($arg, 1)] = $arg;
        else
            $function_map[$arg] = '$' . $arg;
    }

    // Illegal function
    $expression = preg_replace_callback('~\b[a-z]\w*\b~', function($match) use($function_map) {
        $function = $match[0];
        if (!isset($function_map[$function])) {
            throw new ADEIException(translate("Illegal function '{$match[0]}'"));
        }
        return $function_map[$function];
    }, $expression);

    // Remove any whitespace
    $expression = strtolower(preg_replace('~\s+~', '', $expression));

    // Empty expression
    if ($expression === '') {
        throw new ADEIException(translate('Empty expression'));
    }


    // Invalid function calls
    if (preg_match('~(?![$\w])[a-z]\w*(?![\(\w])~', $expression, $match) > 0) {
        throw new ADEIException(translate("Invalid function call '{$match[0]}'"));
    }

    // Legal characters
    if (preg_match('~[^-+/%*&|<>!=.()0-9a-z,$]~', $expression, $match) > 0) {
        throw new ADEIException(translate("Illegal character '{$match[0]}'"));
    }       

    
    return "return({$expression});";
}

function dsMathCreateFunction($args, $expr) {
    $expr = dsMathParseExpression($expr, $args);
    return create_function($args, $expr);
}

function dsMathPreciseSubstract($a, $b) {
    if ($a < $b) return -dsMathPreciseSubstract($b, $a);
    
    $pos = strpos($a, ".");
    if ($pos === false) {
	$ra = 0;
	$ia = (int)$a;
    } else {
        $ia = (int)floor($a);

	if (is_float($a)) $ra = $a - $ia;
	else if ($ia < 0) $ra = 1 - ("0." . substr($a, $pos + 1));
	else $ra = "0." . substr($a, $pos + 1);
    }
    
    $pos = strpos($b, ".");
    if ($pos === false) {
	$rb = 0;
	$ib = (int)$b;
    } else {
        $ib = (int)floor($b);

	if (is_float($b)) $rb = $b - $ib;
	else if ($ib < 0) $rb = 1 - ("0." . substr($b, $pos + 1));
	else $rb = "0." . substr($b, $pos + 1);
    }

    if (($ra)||($rb)) {
	$r = $ra - $rb;

#	if ($a < 0) echo "$a,$b   $ia,$ib,    $ra,$rb   = $r\n";

	if ($r < 0) {
	    if ($ia > $ib) return ($ia - $ib - 1) . strstr(sprintf("%.24F", ($r+1)), ".");
	    else return 0;
	} else if ($r > 0) {
	    if ($ia < $ib) return 0;
	    else return ($ia - $ib) . strstr(sprintf("%.24F", $r), ".");
	} else {
	    if ($ia > $ib) return ($ia - $ib);
	    else return 0;
	}
    } else return $ia - $ib;
}

function dsMathPreciseAdd($a, $b) {
    $pos = strpos($a, ".");
    if ($pos === false) {
	$ra = 0;
	$ia = (int)$a;
    } else {
        $ia = (int)floor($a);

	if (is_float($a)) $ra = $a - $ia;
	else if ($ia < 0) $ra = 1 - ("0." . substr($a, $pos + 1));
	else $ra = "0." . substr($a, $pos + 1);
    }

    $pos = strpos($b, ".");
    if ($pos === false) {
	$rb = 0;
	$ib = (int)$b;
    } else {
        $ib = (int)floor($b);

	if (is_float($b)) $rb = $b - $ib;
	else if ($ib < 0) $rb = 1 - ("0." . substr($b, $pos + 1));
	else $rb = "0." . substr($b, $pos + 1);
    }

    if (($ra)||($rb)) {
	$r = $ra + $rb;
	if ($r > 1) return ($ia + $ib + 1) . strstr(sprintf("%.24F", $r), ".");
	else if ($r < 1) return ($ia + $ib) . strstr(sprintf("%.24F", $r), ".");
	else  return ($ia + $ib + 1);
    } else return $ia + $ib;
}

function dsMathPreciseCompare($a, $b) {
    $pos = strpos($a, ".");
    if ($pos === false) {
	$ra = 0;
	$ia = (int)$a;
    } else {
        $ia = (int)floor($a);

	if (is_float($a)) $ra = $a - $ia;
	else $ra = "0." . substr($a, $pos + 1);
    }

    $pos = strpos($b, ".");
    if ($pos === false) {
	$rb = 0;
	$ib = (int)$b;
    } else {
        $ib = (int)floor($b);

	if (is_float($b)) $rb = $b - $ib;
	else $rb = "0." . substr($b, $pos + 1);
    }

    if (($ra)||($rb)) {
	if ($ia > $ib) return 1;
	if ($ia < $ib) return -1;
	return ($ra == $rb)?0:(($ra<$rb)?-1:1);
    } 
    return ($ia == $ib)?0:(($ia<$ib)?-1:1);
}


function dsPrintSize($size) {
    $lvl = 0;

    while (($lvl<4)&&($size > 5119)) {
	$lvl++;
	$size = (int)ceil($size / 1024.);
    }
    
    switch ($lvl) {
	case 0:
	    $size .= " bytes";
	    break;
	case 1:
	    $size .= " KB";
	    break;
	case 2:
	    $size .= " MB";
	    break;
	case 3:
	    $size .= " GB";
	    break;
	case 4:
	    $size .= " TB";
	    break;
    }
    
    return $size;
}


function xml_escape($message) {
	/* HTMLSpecialChars will return empty string if non-unicode message
	is passed. */
    $msg = htmlspecialchars($message, ENT_COMPAT, "UTF-8");
    if ($msg) return $msg;
    return htmlspecialchars($message, ENT_COMPAT|ENT_SUBSTITUTE);
}

function translate($string) {
    $arg = array();
    for($i = 1 ; $i < func_num_args(); $i++)
	$arg[] = func_get_arg($i);

    return vsprintf(gettext($string), $arg);
}

function log_message($message) {
    echo "$message\n";
}

?>