Commit 59ed99d7 authored by Michael Meeks's avatar Michael Meeks

another built in name,

Helix Code support gnumeric.
parent 0912e97f
2000-02-21 Michael Meeks <michael@helixcode.com>
* src/expr-name.c (name_print_area): implement.
* src/value.c (value_new_cellrange_r): implement.
2000-02-22 Jon K Hellan <hellan@acm.org>
* src/dialogs/dialog-solver.c (dialog_solver): Set constraint
......
2000-02-21 Michael Meeks <michael@helixcode.com>
* src/expr-name.c (name_print_area): implement.
* src/value.c (value_new_cellrange_r): implement.
2000-02-22 Jon K Hellan <hellan@acm.org>
* src/dialogs/dialog-solver.c (dialog_solver): Set constraint
......
......@@ -369,6 +369,17 @@ eval_expr_name (EvalPosition const * const pos, const ExprName *expr_name)
/* ------------------------------------------------------------- */
static Value *
name_print_area (FunctionEvalInfo *ei, Value **args)
{
if (!ei || !ei->pos->sheet)
return value_new_error (ei->pos, _("Error: no sheet"));
else {
Range r = sheet_get_extent (ei->pos->sheet);
return value_new_cellrange_r (sheet, r);
}
}
static Value *
name_sheet_title (FunctionEvalInfo *ei, Value **args)
{
......@@ -390,9 +401,9 @@ static struct {
Auto_Close
Extract
Database
Criteria
Print_Area
Print_Titles
Criteria*/
{ "Print_Area", name_print_area },
/* Print_Titles
Recorder
Data_Form
Auto_Activate
......
......@@ -91,6 +91,28 @@ value_new_cellrange (const CellRef *a, const CellRef *b)
return v;
}
Value *
value_new_cellrange_r (Sheet *sheet, const Range *r)
{
Value *v = g_new (Value, 1);
CellRef *a, *b;
v->type = VALUE_CELLRANGE;
a = &v->v.cell_range.cell_a;
b = &v->v.cell_range.cell_b;
a->sheet = sheet;
b->sheet = NULL;
a->col = r->start.col;
a->row = r->start.row;
b->col = r->end.col;
b->row = r->end.row;
a->col_relative = b->col_relative = FALSE;
a->row_relative = b->row_relative = FALSE;
return v;
}
Value *
value_new_array (guint cols, guint rows)
{
......
......@@ -62,6 +62,7 @@ Value *value_new_string (const char *str);
Value *value_new_int (int i);
Value *value_new_float (float_t f);
Value *value_new_cellrange (const CellRef *a, const CellRef *b);
Value *value_new_cellrange_r (Sheet *sheet, const Range *r);
Value *value_new_array (guint cols, guint rows);
Value *value_new_array_empty (guint cols, guint rows);
......
......@@ -241,12 +241,6 @@ compile Gnumeric you will need the gnome-libs package and the
gnome-xml package. The gnome-libs package in turn requires the glib, gtk+
and imlib packages.
<H3>
<A NAME="support"></A>Gnumeric Support</h3>
If you are interested in contracting support for Gnumeric, please
check the <a href="http://www.gnome-support.com/gnumeric">GNOME
Support for Gnumeric</a> web page.
<H3>
<A NAME="bugs"></A>Reporting Bugs</H3>
......@@ -267,13 +261,13 @@ to submit a bug report, it will save others lots of grief.
<h3>
<a name="support">Contractual support</h3>
International GNOME support (IGS) provides <a
href="http://www.gnome-support.com/gnumeric">contractual support</a> for
<a href="http://www.helixcode.com">Helix Code Inc.</a> provides <a
href="http://www.helixcode.com/gnumeric">contractual support</a> for
Gnumeric for any extensions, or special developments you might need
from Gnumeric.
<p>
All the code written by IGS is released under the terms of the GNU
GPL. If the code extension is general enough you extension might be
All the code written by Helix Code is released under the terms of the GNU
GPL. If the code extension is general enough your extension might be
folded into the main Gnumeric distribution.
<p>
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment