149 lines
2.8 KiB
C
149 lines
2.8 KiB
C
/* Copyright 1989 GROUPE BULL -- See license conditions in file COPYRIGHT
|
|
* Copyright 1989 Massachusetts Institute of Technology
|
|
*/
|
|
/***********************\
|
|
* *
|
|
* WOOL_OBJECT: Number *
|
|
* BODY *
|
|
* *
|
|
\***********************/
|
|
|
|
#include "EXTERN.h"
|
|
#include <stdio.h>
|
|
#include "wool.h"
|
|
#include "wl_atom.h"
|
|
#include "wl_list.h"
|
|
#include "wl_pointer.h"
|
|
#include "INTERN.h"
|
|
#include "wl_number.h"
|
|
|
|
/* pre-calculated numbers for efficiency */
|
|
#define MIN_BUILT_IN_NUMBER -1
|
|
#define MAX_BUILT_IN_NUMBER 10
|
|
static WOOL_Number
|
|
built_in_numbers[MAX_BUILT_IN_NUMBER - MIN_BUILT_IN_NUMBER + 1];
|
|
|
|
/*
|
|
* Constructor: WLNumber_make
|
|
* argument 1: The Num (int of size char *) which is to be our number.
|
|
*/
|
|
|
|
WOOL_Number
|
|
WLNumber_make(i)
|
|
Num i; /* just the Num value of the integer */
|
|
{
|
|
WOOL_Number object;
|
|
|
|
if (i <= MAX_BUILT_IN_NUMBER && i >= MIN_BUILT_IN_NUMBER)
|
|
return built_in_numbers[i - MIN_BUILT_IN_NUMBER];
|
|
object = (WOOL_Number) Malloc(sizeof(struct _WOOL_Number));
|
|
zrt_put(object);
|
|
object -> type = WLNumber;
|
|
object -> number = i;
|
|
return object;
|
|
}
|
|
|
|
WOOL_Number
|
|
WLNumber_raw_make(i)
|
|
long i; /* just the LONG value of the integer */
|
|
{
|
|
WOOL_Number object =
|
|
(WOOL_Number) Malloc(sizeof(struct _WOOL_Number));
|
|
|
|
zrt_put(object);
|
|
object -> type = WLNumber;
|
|
object -> number = i;
|
|
return object;
|
|
}
|
|
|
|
|
|
/*
|
|
* pre-calculate "low" numbers (most used ones)
|
|
*/
|
|
|
|
WLNumber_init()
|
|
{
|
|
long i;
|
|
|
|
for (i = MIN_BUILT_IN_NUMBER; i <= MAX_BUILT_IN_NUMBER; i++)
|
|
increase_reference(built_in_numbers[i - MIN_BUILT_IN_NUMBER]
|
|
= WLNumber_raw_make(i));
|
|
/* calculates the UNDEFINED_WOOL_VALUE */
|
|
UNDEFINED_WOOL_VALUE = (WOOL_OBJECT) WLNumber_raw_make(0);
|
|
increase_reference(UNDEFINED_WOOL_VALUE);
|
|
}
|
|
|
|
/*
|
|
* WLNumber_eval:
|
|
* A number evaluates to itself.
|
|
*/
|
|
|
|
WOOL_OBJECT
|
|
WLNumber_eval(obj)
|
|
WOOL_OBJECT obj;
|
|
{
|
|
return obj;
|
|
}
|
|
|
|
/*
|
|
* WLNumber_print:
|
|
* a number prints as a long.
|
|
*/
|
|
|
|
WOOL_OBJECT
|
|
WLNumber_print(obj)
|
|
WOOL_Number obj;
|
|
{
|
|
wool_printf("%ld", obj -> number);
|
|
return (WOOL_OBJECT) obj;
|
|
}
|
|
|
|
/*
|
|
* WLNumber_free:
|
|
* The structure is just freed.
|
|
*/
|
|
|
|
WOOL_OBJECT
|
|
WLNumber_free(obj)
|
|
WOOL_Number obj;
|
|
{
|
|
Free(obj);
|
|
return NULL;
|
|
}
|
|
|
|
/*
|
|
* handles its number as an C object. This is the normal way to use pointers
|
|
*/
|
|
|
|
long *
|
|
WLNumber_get_C_value(obj)
|
|
WOOL_Number obj;
|
|
{
|
|
return (long *) (obj->number);
|
|
}
|
|
|
|
WOOL_OBJECT
|
|
WLNumber_equal(n1, n2)
|
|
WOOL_Number n1, n2;
|
|
{
|
|
if (n2 -> type == n1 -> type && n2 -> number == n1 -> number)
|
|
return (WOOL_OBJECT) n1;
|
|
else
|
|
return NIL;
|
|
}
|
|
|
|
|
|
WOOL_OBJECT
|
|
add_numbers(argc,argv)
|
|
int argc;
|
|
WOOL_Number argv[];
|
|
{
|
|
int i, result = 0;
|
|
|
|
for (i = 0; i < argc; i++) {
|
|
must_be_number(argv[i], i);
|
|
result += argv[i] -> number;
|
|
}
|
|
return (WOOL_OBJECT) WLNumber_make(result);
|
|
}
|