mirror of
https://github.com/fluffos/fluffos
synced 2026-08-12 18:26:06 -04:00
592dfc0688
Source resolution is now explicit-extension-exact: load_object("/foo.c")
probes only foo.c, never foo.lpc (and vice versa); extension-less names
prefer .lpc and fall back to .c. Object identity stays extension-blind:
object names carry no extension, any spelling finds a loaded object, and
the registry is consulted before the filesystem. The caller's raw
spelling now flows through find_object()/inherit/master/simul_efun loads
instead of being pre-stripped away.
- filename_to_obname and otable basename() strip .lpc too (children())
- save_object() strips either source extension before appending .o
- replace_program()/function_exists() handle both suffixes
- testsuite: all LPC sources renamed to .lpc; runner globs, master
get_include_path cases, and program-name assertions updated;
README.md rewritten with the extension rules and suite conventions
- new single/tests/efuns/dual_extension.lpc pins exact-pick, fallback,
no-crossover, identity, and registry-before-filesystem with .c/.lpc
fixture pairs in /clone
Verified: ctest 297/297 and driver-autotest x3 (ASan Debug) plus
RelWithDebInfo ctest + autotest.
Co-Authored-By: Claude Fable 5 <noreply@anthropic.com>
41 lines
879 B
Text
41 lines
879 B
Text
/**
|
|
* NAME: sum
|
|
* SYNOPSIS: (int|float) sum( int|float num1, int|float num2, int|float numx... )
|
|
* DESCRIPTION: Returns the sum of all passed values.
|
|
*/
|
|
|
|
#include <lpctypes.h>
|
|
|
|
mixed sum(mixed *numbers...)
|
|
{
|
|
mixed number, result = 0;
|
|
|
|
foreach(number in numbers)
|
|
{
|
|
switch(typeof(number))
|
|
{
|
|
case INT :
|
|
result += number ;
|
|
break ;
|
|
case FLOAT :
|
|
result = to_float(result) + number ;
|
|
break ;
|
|
default:
|
|
error("Argument must be an array of int or float.\n");
|
|
}
|
|
|
|
}
|
|
|
|
return result;
|
|
}
|
|
|
|
/**
|
|
* NAME: array_sum
|
|
* SYNOPSIS: (int|float) array_sum( array int|array float numbers )
|
|
* DESCRIPTION: Returns the sum of all values in the passed array.
|
|
*/
|
|
|
|
mixed array_sum(mixed *numbers)
|
|
{
|
|
return sum(numbers...) ;
|
|
}
|