row_heights #77
6
NEWS
6
NEWS
@ -11,19 +11,20 @@ o Comparison operators return bool rather than int (Note this can be a breaking
|
||||
change; you may need to wrap comparisons in int() if you are using the result
|
||||
in a numerical computation.)
|
||||
o Foreground and background color style attributes for cells.
|
||||
o Variable row height for cells.
|
||||
o Addition of a find() macro to search for a cell satisfying a condition.
|
||||
o Addition of an is(VALUE, TYPE, TYPE,...) predicate
|
||||
o Addition of functions for unit displacements in the six cardinal directions
|
||||
(left, right, up, down, above, below)
|
||||
o TPA is now the default file format
|
||||
o Addition of hexact float format, which allow for exact round trips to ASCII
|
||||
o Addition of hexact float format, which allows for exact round trips to ASCII
|
||||
o New token type: funcall (which basically amounts to an expression). This
|
||||
allows parsed rather than unparsed expressions to be stored in cells, and
|
||||
allows macros which receive their arguments unevaluated.
|
||||
o sum(), min(), and max() can now operate over their list of arguments as well
|
||||
as over a block.
|
||||
o Added floor(), ceil(), trunc(), and round() functions for finding integers
|
||||
associated with doubles, eiminating (note possible breaking change) the
|
||||
associated with doubles, eliminating (note possible breaking change) the
|
||||
int conversion with two rounding directions.
|
||||
o Precedence of unary "-" made lower than exponentiation "^" to match Python;
|
||||
note possible breaking change.
|
||||
@ -34,6 +35,7 @@ o Fill With operation for quickly filling the selected block with a single cell.
|
||||
o Additional arithmetic operations on locations.
|
||||
o Documentation better aligned with current behavior.
|
||||
o Additional key commands for clocking/resetting the sheet.
|
||||
o New -F command line argument to set the overall font size for fteapot.
|
||||
|
||||
Bug fixes:
|
||||
o Occasional early coredumps of teapot have been eliminated.
|
||||
|
||||
193
doc/teapot.lyx
193
doc/teapot.lyx
@ -1144,7 +1144,7 @@ Up
|
||||
\begin_inset Text
|
||||
|
||||
\begin_layout Plain Layout
|
||||
[+]
|
||||
+
|
||||
\end_layout
|
||||
|
||||
\end_inset
|
||||
@ -1264,7 +1264,7 @@ To last column
|
||||
\begin_inset Text
|
||||
|
||||
\begin_layout Plain Layout
|
||||
[<]
|
||||
<
|
||||
\end_layout
|
||||
|
||||
\end_inset
|
||||
@ -1293,7 +1293,7 @@ To row 0
|
||||
\begin_inset Text
|
||||
|
||||
\begin_layout Plain Layout
|
||||
[>]
|
||||
>
|
||||
\end_layout
|
||||
|
||||
\end_inset
|
||||
@ -1322,7 +1322,7 @@ To last row
|
||||
\begin_inset Text
|
||||
|
||||
\begin_layout Plain Layout
|
||||
[_ (Underscore)]
|
||||
_ (Underscore)
|
||||
\end_layout
|
||||
|
||||
\end_inset
|
||||
@ -1351,7 +1351,7 @@ To Layer 0
|
||||
\begin_inset Text
|
||||
|
||||
\begin_layout Plain Layout
|
||||
[*]
|
||||
*
|
||||
\end_layout
|
||||
|
||||
\end_inset
|
||||
@ -1371,7 +1371,7 @@ To last layer
|
||||
\begin_inset Text
|
||||
|
||||
\begin_layout Plain Layout
|
||||
|
||||
{Ctrl-Right}
|
||||
\end_layout
|
||||
|
||||
\end_inset
|
||||
@ -1400,7 +1400,7 @@ Jump one page right
|
||||
\begin_inset Text
|
||||
|
||||
\begin_layout Plain Layout
|
||||
|
||||
{Ctrl-Left}
|
||||
\end_layout
|
||||
|
||||
\end_inset
|
||||
@ -1550,7 +1550,7 @@ status open
|
||||
|
||||
\begin_layout Plain Layout
|
||||
\begin_inset Tabular
|
||||
<lyxtabular version="3" rows="14" columns="3">
|
||||
<lyxtabular version="3" rows="15" columns="3">
|
||||
<features tabularvalignment="middle">
|
||||
<column alignment="left" valignment="top" width="5cm">
|
||||
<column alignment="left" valignment="top">
|
||||
@ -1620,7 +1620,7 @@ Operation
|
||||
\begin_inset Text
|
||||
|
||||
\begin_layout Plain Layout
|
||||
F10
|
||||
[F10] {Menu bar always shown}
|
||||
\end_layout
|
||||
|
||||
\end_inset
|
||||
@ -1802,6 +1802,35 @@ Activate File menu
|
||||
<cell alignment="center" valignment="top" topline="true" leftline="true" usebox="none">
|
||||
\begin_inset Text
|
||||
|
||||
\begin_layout Plain Layout
|
||||
{Meta-B}
|
||||
\end_layout
|
||||
|
||||
\end_inset
|
||||
</cell>
|
||||
<cell alignment="center" valignment="top" topline="true" leftline="true" rightline="true" usebox="none">
|
||||
\begin_inset Text
|
||||
|
||||
\begin_layout Plain Layout
|
||||
Activate Block menu
|
||||
\end_layout
|
||||
|
||||
\end_inset
|
||||
</cell>
|
||||
</row>
|
||||
<row>
|
||||
<cell alignment="left" valignment="top" topline="true" leftline="true" usebox="none">
|
||||
\begin_inset Text
|
||||
|
||||
\begin_layout Plain Layout
|
||||
|
||||
\end_layout
|
||||
|
||||
\end_inset
|
||||
</cell>
|
||||
<cell alignment="center" valignment="top" topline="true" leftline="true" usebox="none">
|
||||
\begin_inset Text
|
||||
|
||||
\begin_layout Plain Layout
|
||||
{Meta-V}
|
||||
\end_layout
|
||||
@ -1848,11 +1877,11 @@ Activate fOrmat menu
|
||||
</cell>
|
||||
</row>
|
||||
<row>
|
||||
<cell alignment="left" valignment="top" topline="true" leftline="true" usebox="none">
|
||||
<cell alignment="center" valignment="top" topline="true" leftline="true" usebox="none">
|
||||
\begin_inset Text
|
||||
|
||||
\begin_layout Plain Layout
|
||||
|
||||
F1
|
||||
\end_layout
|
||||
|
||||
\end_inset
|
||||
@ -1861,7 +1890,7 @@ Activate fOrmat menu
|
||||
\begin_inset Text
|
||||
|
||||
\begin_layout Plain Layout
|
||||
{Meta-H}
|
||||
|
||||
\end_layout
|
||||
|
||||
\end_inset
|
||||
@ -1870,7 +1899,7 @@ Activate fOrmat menu
|
||||
\begin_inset Text
|
||||
|
||||
\begin_layout Plain Layout
|
||||
Activate Help menu
|
||||
Show help
|
||||
\end_layout
|
||||
|
||||
\end_inset
|
||||
@ -1910,7 +1939,7 @@ Redraw screen
|
||||
\begin_inset Text
|
||||
|
||||
\begin_layout Plain Layout
|
||||
|
||||
{Esc}
|
||||
\end_layout
|
||||
|
||||
\end_inset
|
||||
@ -1919,7 +1948,7 @@ Redraw screen
|
||||
\begin_inset Text
|
||||
|
||||
\begin_layout Plain Layout
|
||||
[Ctrl-C] [Ctrl-G] {Esc}
|
||||
[Ctrl-C] [Ctrl-G]
|
||||
\end_layout
|
||||
|
||||
\end_inset
|
||||
@ -2002,7 +2031,7 @@ status open
|
||||
|
||||
\begin_layout Plain Layout
|
||||
\begin_inset Tabular
|
||||
<lyxtabular version="3" rows="26" columns="3">
|
||||
<lyxtabular version="3" rows="29" columns="3">
|
||||
<features tabularvalignment="middle">
|
||||
<column alignment="left" valignment="top" width="5cm">
|
||||
<column alignment="left" valignment="top">
|
||||
@ -2430,7 +2459,7 @@ Set cell label
|
||||
</cell>
|
||||
</row>
|
||||
<row>
|
||||
<cell alignment="left" valignment="top" topline="true" leftline="true" usebox="none">
|
||||
<cell alignment="center" valignment="top" topline="true" leftline="true" usebox="none">
|
||||
\begin_inset Text
|
||||
|
||||
\begin_layout Plain Layout
|
||||
@ -2443,7 +2472,7 @@ Set cell label
|
||||
\begin_inset Text
|
||||
|
||||
\begin_layout Plain Layout
|
||||
{Meta-B}
|
||||
{Ctrl-D}
|
||||
\end_layout
|
||||
|
||||
\end_inset
|
||||
@ -2452,7 +2481,7 @@ Set cell label
|
||||
\begin_inset Text
|
||||
|
||||
\begin_layout Plain Layout
|
||||
Toggle cell/block bold
|
||||
Toggle cell/block dim
|
||||
\end_layout
|
||||
|
||||
\end_inset
|
||||
@ -2472,7 +2501,65 @@ Toggle cell/block bold
|
||||
\begin_inset Text
|
||||
|
||||
\begin_layout Plain Layout
|
||||
{Meta-U}
|
||||
{Ctrl-B}
|
||||
\end_layout
|
||||
|
||||
\end_inset
|
||||
</cell>
|
||||
<cell alignment="center" valignment="top" topline="true" leftline="true" rightline="true" usebox="none">
|
||||
\begin_inset Text
|
||||
|
||||
\begin_layout Plain Layout
|
||||
Toggle cell/block bold
|
||||
\end_layout
|
||||
|
||||
\end_inset
|
||||
</cell>
|
||||
</row>
|
||||
<row>
|
||||
<cell alignment="center" valignment="top" topline="true" leftline="true" usebox="none">
|
||||
\begin_inset Text
|
||||
|
||||
\begin_layout Plain Layout
|
||||
|
||||
\end_layout
|
||||
|
||||
\end_inset
|
||||
</cell>
|
||||
<cell alignment="center" valignment="top" topline="true" leftline="true" usebox="none">
|
||||
\begin_inset Text
|
||||
|
||||
\begin_layout Plain Layout
|
||||
{Ctrl-I}
|
||||
\end_layout
|
||||
|
||||
\end_inset
|
||||
</cell>
|
||||
<cell alignment="center" valignment="top" topline="true" leftline="true" rightline="true" usebox="none">
|
||||
\begin_inset Text
|
||||
|
||||
\begin_layout Plain Layout
|
||||
Toggle cell/block italic
|
||||
\end_layout
|
||||
|
||||
\end_inset
|
||||
</cell>
|
||||
</row>
|
||||
<row>
|
||||
<cell alignment="left" valignment="top" topline="true" leftline="true" usebox="none">
|
||||
\begin_inset Text
|
||||
|
||||
\begin_layout Plain Layout
|
||||
|
||||
\end_layout
|
||||
|
||||
\end_inset
|
||||
</cell>
|
||||
<cell alignment="center" valignment="top" topline="true" leftline="true" usebox="none">
|
||||
\begin_inset Text
|
||||
|
||||
\begin_layout Plain Layout
|
||||
{Ctrl-U}
|
||||
\end_layout
|
||||
|
||||
\end_inset
|
||||
@ -2629,6 +2716,35 @@ Set cell/block precision
|
||||
Set column width
|
||||
\end_layout
|
||||
|
||||
\end_inset
|
||||
</cell>
|
||||
</row>
|
||||
<row>
|
||||
<cell alignment="center" valignment="top" topline="true" leftline="true" usebox="none">
|
||||
\begin_inset Text
|
||||
|
||||
\begin_layout Plain Layout
|
||||
|
||||
\end_layout
|
||||
|
||||
\end_inset
|
||||
</cell>
|
||||
<cell alignment="center" valignment="top" topline="true" leftline="true" usebox="none">
|
||||
\begin_inset Text
|
||||
|
||||
\begin_layout Plain Layout
|
||||
{Meta-H}
|
||||
\end_layout
|
||||
|
||||
\end_inset
|
||||
</cell>
|
||||
<cell alignment="center" valignment="top" topline="true" leftline="true" rightline="true" usebox="none">
|
||||
\begin_inset Text
|
||||
|
||||
\begin_layout Plain Layout
|
||||
Set row height
|
||||
\end_layout
|
||||
|
||||
\end_inset
|
||||
</cell>
|
||||
</row>
|
||||
@ -2753,7 +2869,7 @@ Reset sheet
|
||||
\begin_inset Text
|
||||
|
||||
\begin_layout Plain Layout
|
||||
F9, {Shift-Tab}
|
||||
F8, F9, {Shift-Tab}
|
||||
\end_layout
|
||||
|
||||
\end_inset
|
||||
@ -3452,7 +3568,7 @@ ignored.
|
||||
\end_layout
|
||||
|
||||
\begin_layout Standard
|
||||
In addition, each column has a width.
|
||||
In addition, each column has a width and each row has a height.
|
||||
\end_layout
|
||||
|
||||
\begin_layout Subsubsection
|
||||
@ -3503,6 +3619,39 @@ The column width only affects the screen display, not the formatting of
|
||||
It is intended to let you make better usage of the screen for more overview.
|
||||
If the width is too small to display the cell value, a placeholder will
|
||||
be displayed.
|
||||
The column width is measured in
|
||||
\begin_inset Quotes eld
|
||||
\end_inset
|
||||
|
||||
characters,
|
||||
\begin_inset Quotes erd
|
||||
\end_inset
|
||||
|
||||
which are exact in the console and correspond to an arbitrary notional
|
||||
character width in the graphical version, where the actual number of characters
|
||||
that fit in a cell of a given width will depend on the font and size.
|
||||
\end_layout
|
||||
|
||||
\begin_layout Subsubsection
|
||||
Row Height
|
||||
\end_layout
|
||||
|
||||
\begin_layout Standard
|
||||
Similar comments apply to the row height as to the column width.
|
||||
An important difference is that row heights are expressed in
|
||||
\begin_inset Quotes eld
|
||||
\end_inset
|
||||
|
||||
twelfths of a character.
|
||||
\begin_inset Quotes erd
|
||||
\end_inset
|
||||
|
||||
This means that in the console version, all row heights upt to 23 are displayed
|
||||
as a single-character-high row; heights 24 to 35 are shown as two characters
|
||||
high; and so on.
|
||||
In the graphical version, of course, the actual row height is proportional
|
||||
to the specified value, with a height of 12 able to display one full-height
|
||||
character.
|
||||
|
||||
\end_layout
|
||||
|
||||
|
||||
@ -39,9 +39,15 @@ endif ()
|
||||
|
||||
find_package(FLTK)
|
||||
if (FLTK_FOUND)
|
||||
find_program(PYTHON python3 python)
|
||||
fltk_wrap_ui(fteapot fteapot.fl)
|
||||
include_directories(${FLTK_INCLUDE_DIR})
|
||||
add_executable(fteapot WIN32 tpt_choose.cxx ${fteapot_FLTK_UI_SRCS})
|
||||
add_executable(fteapot WIN32 tpt_choose.cxx ${CMAKE_CURRENT_BINARY_DIR}/fteapot.h ${CMAKE_CURRENT_BINARY_DIR}/fteapot_interpolated.cxx)
|
||||
add_custom_command(
|
||||
OUTPUT ${CMAKE_CURRENT_BINARY_DIR}/fteapot_interpolated.cxx
|
||||
COMMAND ${PYTHON} ${CMAKE_CURRENT_SOURCE_DIR}/tools/interpolate.py ${CMAKE_CURRENT_SOURCE_DIR}/fteapot.fl ${CMAKE_CURRENT_BINARY_DIR}/fteapot.cxx
|
||||
DEPENDS ${CMAKE_CURRENT_BINARY_DIR}/fteapot.cxx ${CMAKE_CURRENT_SOURCE_DIR}/tools/interpolate.py
|
||||
)
|
||||
target_compile_options(fteapot PRIVATE -Wno-shadow -Wno-conversion -Wno-sign-conversion)
|
||||
set(fteapot_DEB_DEPENDS ", libstdc++6 (>= 4.1.1), libfltk1.3")
|
||||
if (ENABLE_HELP)
|
||||
|
||||
@ -3,8 +3,17 @@
|
||||
|
||||
#include <stdlib.h>
|
||||
|
||||
/* default width of a column */
|
||||
/* default width of a column (in "characters") */
|
||||
#define DEF_COLUMNWIDTH 12
|
||||
/* The number of vertical slices to divide a row into.
|
||||
Note that only integer multiples of this have any effect
|
||||
in console mode, but fteapot can save and respect non-
|
||||
integer multiples of this value */
|
||||
#define ROWHEIGHT_DENOMINATOR 12
|
||||
/* default height of a row, in units of ROWHEIGHT_DENOMINATOR,
|
||||
i.e. these should be equal to make the default height be one.
|
||||
*/
|
||||
#define DEF_ROWHEIGHT 12
|
||||
|
||||
/* default precision of a printed value */
|
||||
/* Since the default format now counts significant figures
|
||||
|
||||
@ -39,6 +39,7 @@ unsigned int batchln=0;
|
||||
PrecisionLevel def_precision = DEF_PRECISION;
|
||||
StringFormat quote = DIRECT_STRING;
|
||||
bool header = true;
|
||||
int fontsize = 14;
|
||||
bool always_redraw = false;
|
||||
int debug_level = 0;
|
||||
static bool usexdr = false;
|
||||
@ -67,13 +68,13 @@ void moveto(Sheet *sheet, CoordT x, CoordT y, CoordT z)
|
||||
need_redraw = true;
|
||||
sheet->offy = (sheet->cur[Y] > 0) ? sheet->cur[Y]-1 : 0;
|
||||
}
|
||||
if (sheet->cur[X] >= sheet->offx + sheet->maxx) {
|
||||
if (sheet->cur[X] >= sheet->offx + (CoordT)sheet->maxx) {
|
||||
need_redraw = true;
|
||||
sheet->offx = sheet->cur[X] - sheet->maxx + 2;
|
||||
sheet->offx = sheet->cur[X] - (CoordT)sheet->maxx + 2;
|
||||
}
|
||||
if (sheet->cur[Y] >= sheet->offy + sheet->maxy) {
|
||||
if (sheet->cur[Y] >= sheet->offy + (CoordT)sheet->maxy) {
|
||||
need_redraw = true;
|
||||
sheet->offy = sheet->cur[Y] - sheet->maxy + 2;
|
||||
sheet->offy = sheet->cur[Y] - (CoordT)sheet->maxy + 2;
|
||||
}
|
||||
if (need_redraw) redraw_sheet(sheet);
|
||||
else if (need_cell) redraw_cell(sheet, sheet->cur);
|
||||
@ -312,6 +313,23 @@ static int do_columnwidth(Sheet *cursheet)
|
||||
}
|
||||
/*}}}*/
|
||||
|
||||
/* do_rowheight -- set the row height */ /*{{{*/
|
||||
static int do_rowheight(Sheet *cursheet)
|
||||
{
|
||||
do_mark(cursheet, GET_MARK_CUR);
|
||||
int n = (int)rowheight(cursheet, cursheet->mark1[Y], cursheet->mark1[Z]);
|
||||
do {
|
||||
int c = line_numedit(&n, _("Row height:"));
|
||||
if (c < 0) return c;
|
||||
} while (n <= 0);
|
||||
RowHgtT rh = (RowHgtT)n;
|
||||
for (int y = cursheet->mark1[Y]; y <= cursheet->mark2[Y]; ++y)
|
||||
for (int z = cursheet->mark1[Z]; z <= cursheet->mark2[Z]; ++z)
|
||||
setheight(cursheet, y, z, rh);
|
||||
return -1;
|
||||
}
|
||||
/*}}}*/
|
||||
|
||||
/* do_attribute -- set cell attributes */ /*{{{*/
|
||||
static void do_attribute(Sheet *cursheet, Key action)
|
||||
{
|
||||
@ -1329,6 +1347,7 @@ int do_sheetcmd(Sheet *cursheet, Key c, bool moveonly)
|
||||
{
|
||||
case K_GOTO: do_goto(cursheet, (const char *)0); break;
|
||||
case K_COLWIDTH: do_columnwidth(cursheet); break;
|
||||
case K_ROWHEIGHT: do_rowheight(cursheet); break;
|
||||
case BLOCK_CLEAR: do_clear(cursheet); update(cursheet); break;
|
||||
case BLOCK_INSERT: do_insert(cursheet); update(cursheet); break;
|
||||
case BLOCK_DELETE: do_delete(cursheet); update(cursheet); break;
|
||||
@ -1529,13 +1548,13 @@ int do_sheetcmd(Sheet *cursheet, Key c, bool moveonly)
|
||||
"\n"
|
||||
"<p>Original Version: Michael Haardt<br>\n"
|
||||
"Current Maintainer: Joerg Walter<br>\n"
|
||||
"Contibutions by: Glen Whitney<br>\b"
|
||||
"Contributions by: Glen Whitney<br>\b"
|
||||
"Home Page: <a href='http://www.syntax-k.de/projekte/teapot/'>http://www.syntax-k.de/projekte/teapot/</a></p>\n"
|
||||
"This distribution: <a href='https://code.studioinfinity.org/glen/teapot-spreadsheet/'>https://code.studioinfinity.org/glen/teapot-spreadsheet/</a></p>\n"
|
||||
"\n"
|
||||
"<p>Copyright 1995-2006 Michael Haardt,<br>\n"
|
||||
"Copyright 2009-2010 Joerg Walter (<a href='mailto:info@syntax-k.de'>info@syntax-k.de</a>)<br>"
|
||||
"Copyright 2019 Glen Whitney</p></center>\n"
|
||||
"Copyright 2019,2023 Glen Whitney</p></center>\n"
|
||||
"\f"
|
||||
"<p>This program is free software: you can redistribute it and/or modify\n"
|
||||
"it under the terms of the GNU General Public License as published by\n"
|
||||
@ -1577,19 +1596,20 @@ int do_sheetcmd(Sheet *cursheet, Key c, bool moveonly)
|
||||
/* NPAGE -- page down */ /*{{{*/
|
||||
case K_NPAGE:
|
||||
{
|
||||
cursheet->offy += (cursheet->maxy-3);
|
||||
relmoveto(cursheet, 0, cursheet->maxy-3, 0);
|
||||
cursheet->offy += ((CoordT)(cursheet->maxy)-3);
|
||||
relmoveto(cursheet, 0, (CoordT)(cursheet->maxy)-3, 0);
|
||||
break;
|
||||
}
|
||||
/*}}}*/
|
||||
/* PPAGE -- page up */ /*{{{*/
|
||||
case K_PPAGE:
|
||||
{
|
||||
cursheet->offy = cursheet->offy >= cursheet->maxy - 3
|
||||
? cursheet->offy - cursheet->maxy + 3 : 0;
|
||||
cursheet->offy =
|
||||
cursheet->offy >= (CoordT)(cursheet->maxy) - 3
|
||||
? cursheet->offy - (CoordT)(cursheet->maxy) + 3 : 0;
|
||||
relmoveto(cursheet, 0,
|
||||
cursheet->cur[Y] >= (cursheet->maxy - 3)
|
||||
? -(cursheet->maxy - 3) : -cursheet->cur[Y],
|
||||
cursheet->cur[Y] >= ((CoordT)(cursheet->maxy) - 3)
|
||||
? -((CoordT)(cursheet->maxy) - 3) : -cursheet->cur[Y],
|
||||
0);
|
||||
break;
|
||||
}
|
||||
@ -1645,7 +1665,7 @@ int main(int argc, char *argv[])
|
||||
find_helpfile(helpfile, sizeof(helpfile), argv[0]);
|
||||
|
||||
/* parse options */ /*{{{*/
|
||||
while ((o=getopt(argc,argv,"bdhnrqHp:?"))!=EOF) switch (o)
|
||||
while ((o=getopt(argc,argv,"bdhnrqHp:F:?"))!=EOF) switch (o)
|
||||
{
|
||||
/* b -- run batch */ /*{{{*/
|
||||
case 'b': batch = true; break;
|
||||
@ -1687,19 +1707,35 @@ int main(int argc, char *argv[])
|
||||
break;
|
||||
}
|
||||
/*}}}*/
|
||||
/* F -- font size */ /*{{{*/
|
||||
case 'F':
|
||||
{
|
||||
long f;
|
||||
char *end;
|
||||
|
||||
f = strtol(optarg, &end, 0);
|
||||
if (*end || f < 1) {
|
||||
fprintf(stderr, _("teapot: font size must be positive.\n"));
|
||||
exit(1);
|
||||
}
|
||||
fontsize = (int)f;
|
||||
break;
|
||||
}
|
||||
/*}}}*/
|
||||
/* default -- includes ? and h */ /*{{{*/
|
||||
default:
|
||||
{
|
||||
fprintf(stderr,_(
|
||||
"Usage: %s [-a] [-b] [-d]* [-h] [-n|-q] [-H] [-r] [-p digits] [file]\n"
|
||||
"Usage: %s [-abFhHr] [-d]* [-n|-q] [-p digits] [file]\n"
|
||||
" -a: use ASCII file format as default\n"
|
||||
" -b: batch mode\n"
|
||||
" -d: increase debug level, once for each occurrence\n"
|
||||
" -F nn: set font size to nn\n"
|
||||
" -h: print this message and exit\n"
|
||||
" -n|-q: DO NOT or DO display strings in quotes, respectively\n"
|
||||
" -H: hide row/column headers\n"
|
||||
" -n|-q: DO NOT or DO display strings in quotes, respectively\n"
|
||||
" -p nn: set decimal precision to nn\n"
|
||||
" -r: redraw more often\n"
|
||||
" -p: set decimal precision\n"
|
||||
), argv[0]);
|
||||
exit(1);
|
||||
}
|
||||
|
||||
@ -17,6 +17,7 @@ extern bool batch;
|
||||
extern PrecisionLevel def_precision;
|
||||
extern StringFormat quote;
|
||||
extern bool header;
|
||||
extern int fontsize;
|
||||
extern int debug_level;
|
||||
extern bool always_redraw;
|
||||
extern unsigned int batchln;
|
||||
@ -94,7 +95,8 @@ typedef enum
|
||||
ADJUST_BACKGROUND = -63,
|
||||
K_EDIT_STYLE_EXPR = -64,
|
||||
ADJUST_DIM = -65,
|
||||
ADJUST_ITALIC = -66
|
||||
ADJUST_ITALIC = -66,
|
||||
K_ROWHEIGHT = -67
|
||||
} Key;
|
||||
|
||||
extern int do_sheetcmd(Sheet *cursheet, Key c, bool moveonly);
|
||||
|
||||
@ -226,6 +226,7 @@ void initialize_sheet(Sheet *sheet) {
|
||||
sheet->dim[X] = sheet->dim[Y] = sheet->dim[Z] = 0;
|
||||
sheet->sheet = (Cell**)0;
|
||||
sheet->column = (ColWidT*)0;
|
||||
sheet->rowhts = (RowHgtT*)0;
|
||||
sheet->orix = sheet->oriy = 0;
|
||||
sheet->maxx = sheet->maxy = 0;
|
||||
sheet->name = (char*)0;
|
||||
@ -272,7 +273,7 @@ void resize(Sheet *sheet, CoordT x, CoordT y, CoordT z, bool *qextended)
|
||||
if (sheet->sheet!=(Cell**)0) free(sheet->sheet);
|
||||
sheet->sheet = dummy.sheet;
|
||||
/*}}}*/
|
||||
/* allocate new columns */ /*{{{*/
|
||||
/* allocate new column widths and row heights */ /*{{{*/
|
||||
if ((size_t)x > sheet->dim[X] || (size_t)z >= sheet->dim[Z])
|
||||
{
|
||||
dummy.column = malloc(dummy.dim[X] * dummy.dim[Z] * sizeof(ColWidT));
|
||||
@ -281,7 +282,7 @@ void resize(Sheet *sheet, CoordT x, CoordT y, CoordT z, bool *qextended)
|
||||
{
|
||||
if ((size_t)x < sheet->dim[X] && (size_t)z < sheet->dim[Z])
|
||||
*(dummy.column + ((size_t)x)*dummy.dim[Z] + (size_t)z)
|
||||
= *(sheet->column + ((size_t)x)*sheet->dim[Z] + z);
|
||||
= *(sheet->column + ((size_t)x)*sheet->dim[Z] + (size_t)z);
|
||||
else
|
||||
*(dummy.column + ((size_t)x)*dummy.dim[Z] + (size_t)z)
|
||||
= DEF_COLUMNWIDTH;
|
||||
@ -289,6 +290,21 @@ void resize(Sheet *sheet, CoordT x, CoordT y, CoordT z, bool *qextended)
|
||||
if (sheet->column != (ColWidT*)0) free(sheet->column);
|
||||
sheet->column = dummy.column;
|
||||
}
|
||||
if ((size_t)(y) > sheet->dim[Y] || (size_t)z > sheet->dim[Z])
|
||||
{
|
||||
dummy.rowhts = malloc(dummy.dim[Y] * dummy.dim[Z] * sizeof(RowHgtT));
|
||||
for (y=0; (size_t)y < dummy.dim[Y]; ++y)
|
||||
for (z=0; (size_t)z < dummy.dim[Z]; ++z)
|
||||
{
|
||||
RowHgtT *dumht = dummy.rowhts + ((size_t)y)*dummy.dim[Z] + (size_t)z;
|
||||
if ((size_t)y < sheet->dim[Y] && (size_t)z < sheet->dim[Z])
|
||||
*dumht = *(sheet->rowhts + ((size_t)y)*sheet->dim[Z] + (size_t)z);
|
||||
else
|
||||
*dumht = DEF_ROWHEIGHT;
|
||||
}
|
||||
if (sheet->rowhts != (RowHgtT*)0) free(sheet->rowhts);
|
||||
sheet->rowhts = dummy.rowhts;
|
||||
}
|
||||
/*}}}*/
|
||||
for (Dimensions dd = X; dd < HYPER; ++dd) sheet->dim[dd] = dummy.dim[dd];
|
||||
}
|
||||
@ -408,12 +424,16 @@ void freesheet(Sheet *sheet, int all)
|
||||
} /*}}}*/
|
||||
if (sheet->sheet) free(sheet->sheet);
|
||||
if (sheet->column) free(sheet->column);
|
||||
if (sheet->rowhts) free(sheet->rowhts);
|
||||
if (sheet->name) free(sheet->name);
|
||||
if (!batch) display_end(sheet);
|
||||
} else {
|
||||
for (size_t x = 0; x < sheet->dim[X]; ++x)
|
||||
for (size_t z = 0; z < sheet->dim[Z]; ++z)
|
||||
*(sheet->column + x*sheet->dim[Z] + z) = DEF_COLUMNWIDTH;
|
||||
for (size_t y = 0; y < sheet->dim[y]; ++y)
|
||||
for (size_t z = 0; z < sheet->dim[Z]; ++z)
|
||||
*(sheet->rowhts + y*sheet->dim[Z] + z) = DEF_ROWHEIGHT;
|
||||
cachelabels(sheet);
|
||||
forceupdate(sheet);
|
||||
}
|
||||
@ -460,6 +480,17 @@ ColWidT columnwidth(Sheet *sheet, CoordT x, CoordT z)
|
||||
}
|
||||
/*}}}*/
|
||||
|
||||
/* rowheight -- get height of row */ /*{{{*/
|
||||
ColWidT rowheight(Sheet *sheet, CoordT y, CoordT z)
|
||||
{
|
||||
assert(sheet!=(Sheet*)0);
|
||||
if ((size_t)y < sheet->dim[Y] && (size_t)z < sheet->dim[Z])
|
||||
return (*(sheet->rowhts + ((size_t)y)*sheet->dim[Z] + (size_t)z));
|
||||
else return DEF_ROWHEIGHT;
|
||||
}
|
||||
/*}}}*/
|
||||
|
||||
|
||||
/* setwidth -- set width of column */ /*{{{*/
|
||||
bool setwidth(Sheet *sheet, CoordT x, CoordT z, ColWidT width)
|
||||
{
|
||||
@ -477,6 +508,24 @@ bool setwidth(Sheet *sheet, CoordT x, CoordT z, ColWidT width)
|
||||
}
|
||||
/*}}}*/
|
||||
|
||||
|
||||
/* setheight -- set height of row */ /*{{{*/
|
||||
bool setheight(Sheet *sheet, CoordT y, CoordT z, RowHgtT height)
|
||||
{
|
||||
assert(sheet != (Sheet*)0);
|
||||
bool isbigger = false;
|
||||
resize(sheet, 1, y, z, &isbigger);
|
||||
if (isbigger) sheet->changed = true;
|
||||
RowHgtT *storage = sheet->rowhts + (size_t)y*sheet->dim[Z] + (size_t)z;
|
||||
if (*storage != height) {
|
||||
*storage = height;
|
||||
sheet->changed = true;
|
||||
return true;
|
||||
}
|
||||
return isbigger;
|
||||
}
|
||||
/*}}}*/
|
||||
|
||||
/* cellwidth -- get width of a cell */ /*{{{*/
|
||||
ColWidT cellwidth(Sheet *sheet, const Location at)
|
||||
{
|
||||
@ -489,6 +538,18 @@ ColWidT cellwidth(Sheet *sheet, const Location at)
|
||||
}
|
||||
/*}}}*/
|
||||
|
||||
|
||||
/* cellheight -- get height of a cell */ /*{{{*/
|
||||
RowHgtT cellheight(Sheet *sheet, const Location at)
|
||||
{
|
||||
/* At the moment this is trivial because there is no vertical
|
||||
"shadowing". Probably rather than implementing that more
|
||||
general cell merging would be a preferable way to go
|
||||
*/
|
||||
return rowheight(sheet, at[Y], at[Z]);
|
||||
}
|
||||
/*}}}*/
|
||||
|
||||
/* putcont -- assign new contents */ /*{{{*/
|
||||
void puttok(Sheet *sheet, const Location at, Token t, TokVariety v)
|
||||
{
|
||||
@ -1232,6 +1293,8 @@ const char *saveport(Sheet *sheet, const char *name, unsigned int *count)
|
||||
{
|
||||
if (y == 0 && columnwidth(sheet,x,z) != DEF_COLUMNWIDTH)
|
||||
fprintf(fp,"W%d %d %zu\n", x, z, columnwidth(sheet,x,z));
|
||||
if (x == 0 && rowheight(sheet, y, z) != DEF_ROWHEIGHT)
|
||||
fprintf(fp, "Y%d %d %zu\n", y, z, rowheight(sheet, y, z));
|
||||
Cell *cell = CELL_ATC(sheet,x,y,z);
|
||||
if (cell != NULLCELL)
|
||||
{
|
||||
@ -1283,6 +1346,7 @@ const char *loadport(Sheet *sheet, const char *name)
|
||||
size_t width = strlen(buf);
|
||||
if (width > 0 && buf[width-1] == '\n') buf[--width] = '\0';
|
||||
/*}}}*/
|
||||
bool is_height = false;
|
||||
switch (buf[0])
|
||||
{
|
||||
/* C -- parse cell */ /*{{{*/
|
||||
@ -1548,16 +1612,21 @@ const char *loadport(Sheet *sheet, const char *name)
|
||||
break;
|
||||
}
|
||||
/*}}}*/
|
||||
/* Y -- row height */
|
||||
case 'Y':
|
||||
is_height = true;
|
||||
/* FALL THROUGH */
|
||||
/* W -- column width */ /*{{{*/
|
||||
case 'W':
|
||||
{
|
||||
/* parse x and z */ /*{{{*/
|
||||
/* parse x/y and z */ /*{{{*/
|
||||
const char *os = buf+1;
|
||||
char *ns = buf+1;
|
||||
CoordT cx = (CoordT)strtol(os, &ns, 0);
|
||||
CoordT cxy = (CoordT)strtol(os, &ns, 0);
|
||||
if (os == ns)
|
||||
{
|
||||
sprintf(errbuf, _("Parse error for x position in line %d"), line);
|
||||
sprintf(errbuf, _("Parse error for %c position in line %d"),
|
||||
is_height ? 'y' : 'x', line);
|
||||
err = errbuf;
|
||||
goto eek;
|
||||
}
|
||||
@ -1571,10 +1640,10 @@ const char *loadport(Sheet *sheet, const char *name)
|
||||
goto eek;
|
||||
}
|
||||
/*}}}*/
|
||||
/* parse width */ /*{{{*/
|
||||
/* parse width/height */ /*{{{*/
|
||||
while (*ns == ' ') ++ns;
|
||||
os = ns;
|
||||
ColWidT cwidth = (ColWidT)strtol(os, &ns, 0);
|
||||
long extent = strtol(os, &ns, 0);
|
||||
if (os == ns)
|
||||
{
|
||||
sprintf(errbuf, _("Parse error for width in line %d"), line);
|
||||
@ -1582,7 +1651,8 @@ const char *loadport(Sheet *sheet, const char *name)
|
||||
goto eek;
|
||||
}
|
||||
/*}}}*/
|
||||
setwidth(sheet, cx, cz, cwidth);
|
||||
if (is_height) setheight(sheet, cxy, cz, (RowHgtT)extent);
|
||||
else setwidth(sheet, cxy, cz, (ColWidT)extent);
|
||||
break;
|
||||
}
|
||||
/*}}}*/
|
||||
|
||||
@ -13,6 +13,7 @@ extern "C" {
|
||||
#define ASCENDING 001
|
||||
|
||||
typedef size_t ColWidT;
|
||||
typedef size_t RowHgtT; /* Note measured in units of ROWHEIGHT_DENOMINATOR */
|
||||
|
||||
typedef struct
|
||||
{
|
||||
@ -38,9 +39,10 @@ typedef struct
|
||||
CoordT offx, offy;
|
||||
Cell **sheet;
|
||||
ColWidT *column;
|
||||
RowHgtT *rowhts;
|
||||
size_t dim[HYPER];
|
||||
size_t orix, oriy;
|
||||
CoordT maxx, maxy;
|
||||
size_t maxx, maxy;
|
||||
size_t width;
|
||||
char *name;
|
||||
void *display;
|
||||
@ -86,6 +88,9 @@ void freecellofsheet(Sheet *sheet, const Location at);
|
||||
ColWidT columnwidth(Sheet *sheet, CoordT x, CoordT z);
|
||||
bool setwidth(Sheet *sheet, CoordT x, CoordT z, ColWidT width);
|
||||
ColWidT cellwidth(Sheet *sheet, const Location at);
|
||||
RowHgtT rowheight(Sheet *sheet, CoordT y, CoordT z);
|
||||
bool setheight(Sheet *sheet, CoordT y, CoordT x, RowHgtT height);
|
||||
RowHgtT cellheight(Sheet *sheet, const Location at);
|
||||
void puttok(Sheet *sheet, const Location at, Token t, TokVariety v);
|
||||
Token recompvalue(Sheet *sheet, const Location at);
|
||||
Token evaluate_at(Token t, Sheet *sheet, const Location at);
|
||||
|
||||
116
src/display.c
116
src/display.c
@ -272,15 +272,16 @@ static int do_block(Sheet *cursheet)
|
||||
}
|
||||
|
||||
|
||||
int show_menu(Sheet *cursheet)
|
||||
Key show_menu(Sheet *cursheet)
|
||||
{
|
||||
int c = K_INVALID;
|
||||
|
||||
do
|
||||
{
|
||||
const char* menu[] =
|
||||
{ _("aA)ttributes"), _("wW)idth"), _("bB)lock"), _("fF)ile"),
|
||||
_("gG)oto"), _("sS)hell"), _("vV)ersion"), _("qQ)uit"), NULL
|
||||
{ _("aA)ttributes"), _("wW)idth"), _("hH)eight"), _("bB)lock"),
|
||||
_("fF)ile"), _("gG)oto"), _("sS)hell"), _("vV)ersion"),
|
||||
_("qQ)uit"), NULL
|
||||
};
|
||||
switch (c=line_menu(_("Main menu:"),menu,0))
|
||||
{
|
||||
@ -288,12 +289,13 @@ int show_menu(Sheet *cursheet)
|
||||
case -1: c = KEY_CANCEL; break;
|
||||
case 0: c = do_attribute(cursheet); break;
|
||||
case 1: c = K_COLWIDTH; break;
|
||||
case 2: c = do_block(cursheet); break;
|
||||
case 3: c = do_file(cursheet); break;
|
||||
case 4: c = K_GOTO; break;
|
||||
case 5: do_shell(); c = KEY_CANCEL; break;
|
||||
case 6: c = K_ABOUT; break;
|
||||
case 7: c = K_QUIT; break;
|
||||
case 2: c = K_ROWHEIGHT; break;
|
||||
case 3: c = do_block(cursheet); break;
|
||||
case 4: c = do_file(cursheet); break;
|
||||
case 5: c = K_GOTO; break;
|
||||
case 6: do_shell(); c = KEY_CANCEL; break;
|
||||
case 7: c = K_ABOUT; break;
|
||||
case 8: c = K_QUIT; break;
|
||||
default: assert(0);
|
||||
}
|
||||
} while (c == K_INVALID);
|
||||
@ -327,8 +329,8 @@ static void do_bg(void)
|
||||
|
||||
void display_main(Sheet *cursheet)
|
||||
{
|
||||
cursheet->maxx = COLS;
|
||||
cursheet->maxy = LINES-1;
|
||||
cursheet->maxx = (size_t)COLS;
|
||||
cursheet->maxy = (size_t)(LINES-1);
|
||||
|
||||
Key k;
|
||||
do
|
||||
@ -396,10 +398,15 @@ void redraw_cell(Sheet *sheet, const Location at )
|
||||
update(sheet);
|
||||
}
|
||||
|
||||
static RowHgtT eff_height(Sheet *sheet, CoordT y) {
|
||||
RowHgtT eff = rowheight(sheet, y, sheet->cur[Z]) / ROWHEIGHT_DENOMINATOR;
|
||||
if (eff == 0) return 1;
|
||||
return eff;
|
||||
}
|
||||
|
||||
/* redraw_sheet -- draw a sheet with cell cursor */
|
||||
void redraw_sheet(Sheet *sheet)
|
||||
{
|
||||
int x,y;
|
||||
char pbuf[80];
|
||||
char *buf=malloc(128);
|
||||
size_t bufsz=128;
|
||||
@ -421,10 +428,23 @@ void redraw_sheet(Sheet *sheet)
|
||||
--(sheet->cur[X]);
|
||||
assert(sheet->cur[X] >= 0);
|
||||
}
|
||||
if (sheet->cur[Y] - sheet->offy > sheet->maxy - 2 - (header ? 1 : 0))
|
||||
sheet->offy = sheet->cur[Y] - sheet->maxy + 2 + (header ? 1 : 0);
|
||||
/* Calculate the nearest Y offset that will show the current row */
|
||||
if (sheet->cur[Y] < sheet->offy) sheet->offy = sheet->cur[Y];
|
||||
else {
|
||||
size_t available = sheet->maxy - 2 - (header ? 1 : 0);
|
||||
CoordT newoffy = sheet->cur[Y];
|
||||
size_t needed = eff_height(sheet, newoffy);
|
||||
while (needed < available && newoffy > 0) {
|
||||
RowHgtT prevhgt = eff_height(sheet, newoffy - 1);
|
||||
if (needed + prevhgt > available) break;
|
||||
needed += prevhgt;
|
||||
--newoffy;
|
||||
}
|
||||
if (newoffy > sheet->offy) sheet->offy = newoffy;
|
||||
}
|
||||
/* Calculate the nearest X offset that will show the current column */
|
||||
if (sheet->cur[X] < sheet->offx) sheet->offx = sheet->cur[X];
|
||||
else {
|
||||
size_t width = header ? 4 : 0;
|
||||
bool again;
|
||||
size_t col;
|
||||
@ -432,7 +452,7 @@ void redraw_sheet(Sheet *sheet)
|
||||
{
|
||||
again = false;
|
||||
col = 0;
|
||||
for (x = sheet->offx;
|
||||
for (CoordT x = sheet->offx;
|
||||
width <= (size_t)(sheet->maxx);
|
||||
width += columnwidth(sheet, x, sheet->cur[Z]), ++x, ++col);
|
||||
--col;
|
||||
@ -445,6 +465,7 @@ void redraw_sheet(Sheet *sheet)
|
||||
}
|
||||
}
|
||||
} while (again);
|
||||
}
|
||||
|
||||
short curcp = 1;
|
||||
init_pair(curcp, DefaultCN[FOREGROUND], COLOR_YELLOW);
|
||||
@ -452,15 +473,15 @@ void redraw_sheet(Sheet *sheet)
|
||||
if (header) {
|
||||
(void)wattron(stdscr,DEF_NUMBER);
|
||||
/* draw x numbers */
|
||||
for (width=4; width < (size_t)(sheet->maxx); ++width)
|
||||
for (size_t width=4; width < (size_t)(sheet->maxx); ++width)
|
||||
mvwaddch(stdscr, (int)(sheet->oriy), (int)(sheet->orix + width),
|
||||
(chtype)(unsigned char)' ');
|
||||
for (width = 4, x = sheet->offx; width < (size_t)(sheet->maxx);
|
||||
width += col, ++x)
|
||||
ColWidT width = 4;
|
||||
for (CoordT x = sheet->offx; width < sheet->maxx; ++x)
|
||||
{
|
||||
short usecp = 0;
|
||||
if (x == sheet->cur[X]) usecp = curcp;
|
||||
col = columnwidth(sheet, x, sheet->cur[Z]);
|
||||
ColWidT col = columnwidth(sheet, x, sheet->cur[Z]);
|
||||
if (bufsz<(size_t)(col*UTF8SZ+1)) buf=realloc(buf,bufsz=(size_t)(col*UTF8SZ+1));
|
||||
snprintf(buf,bufsz,"%d",x);
|
||||
if (mbslen(buf)>col) {
|
||||
@ -473,18 +494,27 @@ void redraw_sheet(Sheet *sheet)
|
||||
buf[(size_t)(sheet->maxx)-width] = '\0';
|
||||
wcolor_set(stdscr, usecp, NULL);
|
||||
mvwaddstr(stdscr, (int)(sheet->oriy), (int)(sheet->orix+width), buf);
|
||||
ColWidT used = strlen(buf);
|
||||
while (used++ < col) waddch(stdscr, (chtype)(unsigned char)' ');
|
||||
wcolor_set(stdscr, 0, NULL);
|
||||
width += col;
|
||||
}
|
||||
|
||||
/* draw y numbers */
|
||||
for (y=1; y < sheet->maxy - 1; ++y) {
|
||||
RowHgtT height = 1;
|
||||
for (CoordT y = sheet->offy; height + 1 < sheet->maxy; ++y) {
|
||||
short usecp = 0;
|
||||
CoordT realy = y - 1 + sheet->offy;
|
||||
if (realy == sheet->cur[Y]) usecp = curcp;
|
||||
if (y == sheet->cur[Y]) usecp = curcp;
|
||||
wcolor_set(stdscr, usecp, NULL);
|
||||
(void)mvwprintw(stdscr, y + (CoordT)(sheet->oriy), (CoordT)(sheet->orix),
|
||||
"%-4d", y-1 + (int)(sheet->offy));
|
||||
(void)mvwprintw(stdscr, (int)(height+sheet->oriy), (int)sheet->orix,
|
||||
"%-4d", y);
|
||||
RowHgtT rows = eff_height(sheet, y);
|
||||
for (RowHgtT extra = 1; extra < rows; ++extra) {
|
||||
mvwaddstr(stdscr, (int)(height+extra+sheet->oriy), (int)sheet->orix,
|
||||
" ");
|
||||
}
|
||||
wcolor_set(stdscr, 0, NULL);
|
||||
height += eff_height(sheet, y);
|
||||
}
|
||||
(void)wattroff(stdscr,DEF_NUMBER);
|
||||
|
||||
@ -494,9 +524,12 @@ void redraw_sheet(Sheet *sheet)
|
||||
}
|
||||
++curcp;
|
||||
/* draw elements */
|
||||
for (y = header ? 1 : 0; y < sheet->maxy - 1; ++y)
|
||||
for (width = header ? 4 : 0, x = sheet->offx;
|
||||
width < (size_t)sheet->maxx;
|
||||
RowHgtT height = header ? 1 : 0;
|
||||
for (CoordT y = sheet->offy; height + 1 < sheet->maxy; ++y) {
|
||||
RowHgtT rows = eff_height(sheet, y);
|
||||
ColWidT width = header ? 4 : 0;
|
||||
for (CoordT x = sheet->offx;
|
||||
width < sheet->maxx;
|
||||
width += columnwidth(sheet, x, sheet->cur[Z]), ++x)
|
||||
{
|
||||
size_t size,realsize,fill, cutoff = 0;
|
||||
@ -511,7 +544,7 @@ void redraw_sheet(Sheet *sheet)
|
||||
cutoff += columnwidth(sheet, realx, sheet->cur[Z]);
|
||||
}
|
||||
}
|
||||
tmp[X] = realx; tmp[Y] = y - (header ? 1 : 0) + sheet->offy;
|
||||
tmp[X] = realx; tmp[Y] = y;
|
||||
tmp[Z] = sheet->cur[Z];
|
||||
cell = safe_cell_at(sheet, tmp);
|
||||
Style sc = getstyle(sheet, tmp);
|
||||
@ -548,22 +581,31 @@ void redraw_sheet(Sheet *sheet)
|
||||
wcolor_set(stdscr, usecp, NULL);
|
||||
bool invert =
|
||||
(ms != UNMARKED) && loc_in_box(tmp, sheet->mark1, sheet->mark2);
|
||||
if (x == sheet->cur[X]
|
||||
&& (y - (header ? 1 : 0) + sheet->offy == sheet->cur[Y]))
|
||||
if (x == sheet->cur[X] && y == sheet->cur[Y])
|
||||
invert = (ms == MARKING) ? true : !invert;
|
||||
if (invert) (void)wattron(stdscr,DEF_CELLCURSOR);
|
||||
if (sc.dim) wattron(stdscr, A_DIM);
|
||||
if (sc.bold) wattron(stdscr, A_BOLD);
|
||||
if (sc.underline) wattron(stdscr, A_UNDERLINE);
|
||||
(void)mvwaddstr(stdscr, y+(int)(sheet->oriy),
|
||||
(int)(sheet->orix + width),
|
||||
(void)mvwaddstr(stdscr, (int)(height + sheet->oriy),
|
||||
(int)(width + sheet->orix),
|
||||
buf+cutoff);
|
||||
for (fill=mbslen(buf+cutoff); fill<realsize; ++fill)
|
||||
(void)waddch(stdscr,(chtype)(unsigned char)' ');
|
||||
for (RowHgtT extra = 1; extra < rows; ++extra) {
|
||||
mvwaddstr(stdscr,
|
||||
(int)(height + extra + sheet->oriy),
|
||||
(int)(width + sheet->orix),
|
||||
" ");
|
||||
for (fill = 1; fill < realsize; ++fill)
|
||||
(void)waddch(stdscr, (chtype)(unsigned char)' ');
|
||||
}
|
||||
wcolor_set(stdscr, 0, NULL);
|
||||
wstandend(stdscr);
|
||||
}
|
||||
}
|
||||
height += rows;
|
||||
}
|
||||
|
||||
/* draw contents of current element */
|
||||
if (bufsz < (size_t)(sheet->maxx)*UTF8SZ + 1)
|
||||
@ -596,11 +638,11 @@ void redraw_sheet(Sheet *sheet)
|
||||
FLT_COMPACT, -1, TRUNCATED_ERROR, &ic);
|
||||
}
|
||||
}
|
||||
*mbspos(buf, sheet->maxx) = 0;
|
||||
*mbspos(buf, (int)sheet->maxx) = 0;
|
||||
|
||||
(void)mvwaddstr(stdscr, (int)(sheet->oriy) + sheet->maxy - 1,
|
||||
(void)mvwaddstr(stdscr, (int)(sheet->oriy + sheet->maxy) - 1,
|
||||
(int)(sheet->orix), buf);
|
||||
for (col = mbslen(buf); col < (size_t)sheet->maxx; ++col)
|
||||
for (size_t col = mbslen(buf); col < sheet->maxx; ++col)
|
||||
(void)waddch(stdscr, ' ');
|
||||
}
|
||||
|
||||
@ -1081,7 +1123,9 @@ static Key wgetc(void)
|
||||
/* Control R, recalculate sheet */
|
||||
case '\022': return K_RECALC;
|
||||
|
||||
/* Control S, clock sheet */
|
||||
/* F8, F9 or Control S, clock sheet */
|
||||
case KEY_F(8):
|
||||
case KEY_F(9):
|
||||
case '\023': return K_CLOCK;
|
||||
|
||||
/* Control X, get one more key */
|
||||
|
||||
195
src/fteapot.fl
195
src/fteapot.fl
@ -1,4 +1,12 @@
|
||||
# data file for the Fltk User Interface Designer (fluid)
|
||||
# Code replacements for dummy numerical constants:
|
||||
# 9999100/*fontsize*/
|
||||
# 9999112/*fontsize + 12*/
|
||||
# 9999114/*fontsize + 14*/
|
||||
# 9999110/*fontsize + 10*/
|
||||
# 9999224/*2*fontsize + 24*/
|
||||
# 99990336/*600 - 3*fontsize - 36*/
|
||||
# 99990112/*600 - fontsize - 12*/
|
||||
version 1.0300
|
||||
header_name {.h}
|
||||
code_name {.cxx}
|
||||
@ -41,6 +49,7 @@ class TeapotTable {open : {public Fl_Table}}
|
||||
{
|
||||
decl {Sheet *cursheet;} {protected local}
|
||||
decl {bool cut, updating;} {protected local}
|
||||
decl {int unit_width, unit_height;} {protected local}
|
||||
decl {static const TableContext ACTION = (TableContext)(1<<8);}
|
||||
{public local}
|
||||
decl {static const TableContext REFRESH = (TableContext)(1<<9);}
|
||||
@ -48,14 +57,25 @@ class TeapotTable {open : {public Fl_Table}}
|
||||
|
||||
Function
|
||||
{TeapotTable(int x, int y, int w, int h, const char *l=0) :
|
||||
Fl_Table(x, y, w, h, l), cut(false), updating(false)} {open} {code
|
||||
Fl_Table(x, y, w, h, l), cut(false), updating(false),
|
||||
unit_width(10), unit_height(0)} {open} {code
|
||||
{
|
||||
end();
|
||||
col_resize_min(10);
|
||||
col_resize_min(unit_width);
|
||||
col_resize(true);
|
||||
col_header(header);
|
||||
row_resize(false);
|
||||
unit_height = fl_height(FL_HELVETICA, fontsize);
|
||||
col_header_height(unit_height);
|
||||
fl_font(FL_HELVETICA, fontsize);
|
||||
int ww = 0, hh = 0;
|
||||
fl_measure("8888", ww, hh, 0);
|
||||
int min_row_height = (unit_height + ROWHEIGHT_DENOMINATOR/2 - 1)
|
||||
/ ROWHEIGHT_DENOMINATOR;
|
||||
if (min_row_height < 1) min_row_height = 1;
|
||||
row_resize_min(min_row_height);
|
||||
row_resize(true);
|
||||
row_header(header);
|
||||
row_header_width(ww + unit_width);
|
||||
set_visible_focus();
|
||||
table_box(FL_THIN_UP_FRAME);
|
||||
} {} }
|
||||
@ -92,7 +112,7 @@ class TeapotTable {open : {public Fl_Table}}
|
||||
case CONTEXT_ENDPAGE:
|
||||
W = xx-x()-2; H = yy-y()-2;
|
||||
xx = x()+2; yy = y()+2;
|
||||
fl_font(FL_HELVETICA | FL_BOLD, 14);
|
||||
fl_font(FL_HELVETICA | FL_BOLD, fontsize);
|
||||
fl_push_clip(xx, yy, W, H);
|
||||
fl_draw_box(FL_DIAMOND_UP_BOX, xx, yy, W, H, col_header_color());
|
||||
fl_color(FL_INACTIVE_COLOR);
|
||||
@ -107,7 +127,7 @@ class TeapotTable {open : {public Fl_Table}}
|
||||
break;
|
||||
|
||||
case CONTEXT_COL_HEADER: {
|
||||
fl_font(FL_HELVETICA | FL_BOLD, 14);
|
||||
fl_font(FL_HELVETICA | FL_BOLD, fontsize);
|
||||
fl_push_clip(xx, yy, W, H);
|
||||
Fl_Color hd_clr = col_header_color();
|
||||
if (C == cursheet->cur[X]) hd_clr = tpt_selection_version(hd_clr);
|
||||
@ -120,7 +140,7 @@ class TeapotTable {open : {public Fl_Table}}
|
||||
}
|
||||
|
||||
case CONTEXT_ROW_HEADER: {
|
||||
fl_font(FL_HELVETICA | FL_BOLD, 14);
|
||||
fl_font(FL_HELVETICA | FL_BOLD, fontsize);
|
||||
fl_push_clip(xx, yy, W, H);
|
||||
Fl_Color hd_clr = row_header_color();
|
||||
if (R == cursheet->cur[Y]) hd_clr = tpt_selection_version(hd_clr);
|
||||
@ -171,7 +191,7 @@ class TeapotTable {open : {public Fl_Table}}
|
||||
Fl_Font cellfont = FL_HELVETICA;
|
||||
if (sc.bold) cellfont |= FL_BOLD;
|
||||
if (sc.italic) cellfont |= FL_ITALIC;
|
||||
fl_font(cellfont, 14);
|
||||
fl_font(cellfont, fontsize);
|
||||
|
||||
size_t ulen = printvalue(s, sizeof(s), 0, quote, sc.fform,
|
||||
sc.precision, cursheet, test);
|
||||
@ -216,21 +236,29 @@ class TeapotTable {open : {public Fl_Table}}
|
||||
{
|
||||
if (updating) return;
|
||||
updating = true;
|
||||
if (debug_level > 2)
|
||||
printf("update_table: %zux%zu@%i,%i; %i[%i], %i[%i]\\n",
|
||||
if (debug_level > 1)
|
||||
printf("update_table: %zux%zu@%i,%i; %i[%lu], %i[%lu]\\n",
|
||||
cursheet->dim[X], cursheet->dim[Y],
|
||||
cursheet->cur[X], cursheet->cur[Y],
|
||||
cursheet->offx, cursheet->maxx,
|
||||
cursheet->offy, cursheet->maxy);
|
||||
|
||||
bool no_table = (cols() == 0) || (rows() == 0);
|
||||
if (cursheet->dim[X] > (size_t)cols()) cols(cursheet->dim[X]);
|
||||
if (no_table) col_width_all(DEF_COLUMNWIDTH*unit_width);
|
||||
if (cursheet->dim[Y] > (size_t)rows()) rows(cursheet->dim[Y]);
|
||||
if (no_table) row_height_all(unit_height);
|
||||
adjust_outside();
|
||||
|
||||
for (int x = 0; (size_t)x < cursheet->dim[X]; x++) {
|
||||
int w = columnwidth(cursheet, x, cursheet->cur[Z])*10;
|
||||
int w = columnwidth(cursheet, x, cursheet->cur[Z])*unit_width;
|
||||
if (col_width(x) != w) col_width(x, w);
|
||||
}
|
||||
for (int y = 0; (size_t)y < cursheet->dim[Y]; ++y) {
|
||||
int h = rowheight(cursheet, y, cursheet->cur[Z])*unit_height
|
||||
/ ROWHEIGHT_DENOMINATOR;
|
||||
if (row_height(y) != h) row_height(y, h);
|
||||
}
|
||||
col_position(cursheet->offx);
|
||||
row_position(cursheet->offy);
|
||||
set_selection(cursheet->cur[Y], cursheet->cur[X],
|
||||
@ -257,22 +285,31 @@ class TeapotTable {open : {public Fl_Table}}
|
||||
cursheet->marking = MARKED;
|
||||
}
|
||||
moveto(cursheet, current_col, current_row, -1);
|
||||
visible_cells(cursheet->offy, cursheet->maxy,
|
||||
cursheet->offx, cursheet->maxx);
|
||||
cursheet->maxx -= cursheet->offx;
|
||||
cursheet->maxy -= cursheet->offy;
|
||||
int lastx, lasty;
|
||||
visible_cells(cursheet->offy, lasty,
|
||||
cursheet->offx, lastx);
|
||||
cursheet->maxx = (size_t)(lastx - cursheet->offx);
|
||||
cursheet->maxy = (size_t)(lasty - cursheet->offy);
|
||||
|
||||
if (is_interactive_resize()) {
|
||||
for (size_t C = 0; C < cursheet->dim[X]; ++C) {
|
||||
size_t w = (col_width(C) + 5)/10;
|
||||
size_t w = (col_width(C) + unit_width/2)/unit_width;
|
||||
if (w != columnwidth(cursheet, C, cursheet->cur[Z]))
|
||||
setwidth(cursheet, C, cursheet->cur[Z], w);
|
||||
}
|
||||
for (size_t R = 0; R < cursheet->dim[Y]; ++R) {
|
||||
size_t h =
|
||||
(row_height(R)*ROWHEIGHT_DENOMINATOR + unit_height/2)
|
||||
/ unit_height;
|
||||
if (h != rowheight(cursheet, R, cursheet->cur[Z]))
|
||||
setheight(cursheet, R, cursheet->cur[Z], h);
|
||||
}
|
||||
}
|
||||
|
||||
updating = false;
|
||||
if (debug_level > 2)
|
||||
printf("upd_sheet: %ix%i@%i,%i; %i[%i], %i[%i] (%i,%i)-(%i,%i)\\n",
|
||||
if (debug_level > 1)
|
||||
printf(
|
||||
"upd_sheet: %ix%i@%i,%i; %i[%lu], %i[%lu] (%i,%i)-(%i,%i)\\n",
|
||||
cols(), rows(), cursheet->cur[X], cursheet->cur[Y],
|
||||
cursheet->offx, cursheet->maxx,
|
||||
cursheet->offy, cursheet->maxy, x1, y1, x2, y2);
|
||||
@ -291,6 +328,8 @@ class TeapotTable {open : {public Fl_Table}}
|
||||
case FL_Escape: k = K_INVALID; break;
|
||||
case FL_BackSpace: k = K_BACKSPACE; break;
|
||||
case FL_F+1: k = ctrl?K_ABOUT:K_HELP; break;
|
||||
case FL_F+2: k = K_LOADMENU; break;
|
||||
case FL_F+3: k = K_SAVE; break;
|
||||
case FL_F+8: k = ctrl?K_RECALC:K_CLOCK; break;
|
||||
case FL_F+9: k = ctrl?K_RECALC:K_CLOCK; break;
|
||||
case FL_F+10: k = (Key)'/'; break;
|
||||
@ -360,14 +399,14 @@ class TeapotTable {open : {public Fl_Table}}
|
||||
case FL_Page_Up:
|
||||
k = shift ? K_PSHEET : ctrl ? K_FIRSTL : K_PPAGE;
|
||||
break;
|
||||
default:
|
||||
/* Handle shifted keys */
|
||||
if (Fl::event_length() == 1) k = (Key)(Fl::event_text()[0]);
|
||||
}
|
||||
|
||||
/* This short circuit perhaps needs an explanation: */
|
||||
if (k > 0 && (ctrl || alt)) return 0;
|
||||
|
||||
// Quick and dirty upper-case fix, fails for international chars on keyboards...
|
||||
if (shift && !alt && !ctrl && k >= 'a' && k <= 'z')
|
||||
k = (Key)(k - 'a' + 'A');
|
||||
|
||||
do_sheetcmd(cursheet, k, cursheet->moveonly);
|
||||
do_callback(ACTION, 0, 0);
|
||||
redraw();
|
||||
@ -399,7 +438,7 @@ class TeapotTable {open : {public Fl_Table}}
|
||||
if (!cols() || !rows()) { cols(1); rows(1); }
|
||||
|
||||
visible_cells(y1, y2, x1, x2);
|
||||
if (debug_level > 2)
|
||||
if (debug_level > 1)
|
||||
printf("adj: (%i,%i)-(%i,%i) %ix%i\\n", x1, y1, x2, y2,
|
||||
cols(), rows());
|
||||
if (x2+2 < cols() && (size_t)cols() > cursheet->dim[X])
|
||||
@ -411,6 +450,8 @@ class TeapotTable {open : {public Fl_Table}}
|
||||
//printf(" : t: %i, w: %i, p: %i, r: %i\\n", tow, w, xpos, x2+1);
|
||||
cols(x2+1);
|
||||
}
|
||||
visible_cells(y1, y2, x1, x2);
|
||||
cursheet->width = x2 - x1 + 1;
|
||||
|
||||
if (y2+2 < rows() && (size_t)rows() > cursheet->dim[Y])
|
||||
rows((size_t)y2+2 < cursheet->dim[Y] ? cursheet->dim[Y] : y2+2);
|
||||
@ -463,218 +504,229 @@ class MainWindow {open}
|
||||
table->update_table();
|
||||
table->redraw();
|
||||
}
|
||||
open xywh {0 0 800 25} class Fl_Sys_Menu_Bar
|
||||
open xywh {0 0 800 9999112} class Fl_Sys_Menu_Bar
|
||||
code0 {
|
||||
menu->textsize(fontsize);
|
||||
}
|
||||
}
|
||||
{
|
||||
Submenu {} {label {&File} xywh {25 25 67 24} } {
|
||||
Submenu {} {label {&File} xywh {25 25 67 24} labelsize 0 } {
|
||||
MenuItem {} {
|
||||
label {&Open...}
|
||||
user_data K_LOADMENU
|
||||
xywh {5 5 30 20} shortcut 0x4006f
|
||||
xywh {5 5 30 20} labelsize 0 shortcut 0x4006f
|
||||
}
|
||||
MenuItem {} {
|
||||
label {&Save}
|
||||
user_data K_SAVE
|
||||
xywh {0 0 30 20} shortcut 0x40073
|
||||
xywh {0 0 30 20} labelsize 0 shortcut 0x40073
|
||||
}
|
||||
MenuItem {} {
|
||||
label {Save &As...}
|
||||
user_data K_NAME
|
||||
xywh {0 0 30 20} shortcut 0x50053 divider
|
||||
xywh {0 0 30 20} labelsize 0 shortcut 0x50053 divider
|
||||
}
|
||||
MenuItem {} {
|
||||
label {&Quit}
|
||||
user_data K_QUIT
|
||||
xywh {0 0 30 20} shortcut 0x40071
|
||||
xywh {0 0 30 20} labelsize 0 shortcut 0x40071
|
||||
}
|
||||
}
|
||||
Submenu {} {label {&Block} xywh {25 25 67 24} } {
|
||||
Submenu {} {label {&Block} xywh {25 25 67 24} labelsize 0 } {
|
||||
MenuItem {} {
|
||||
label {&Insert}
|
||||
user_data BLOCK_INSERT
|
||||
xywh {0 0 30 20} shortcut 0x90069
|
||||
xywh {0 0 30 20} labelsize 0 shortcut 0x90069
|
||||
}
|
||||
MenuItem {} {
|
||||
label {&Delete}
|
||||
user_data BLOCK_DELETE
|
||||
xywh {0 0 30 20} shortcut 0x90064 divider
|
||||
xywh {0 0 30 20} labelsize 0 shortcut 0x90064 divider
|
||||
}
|
||||
MenuItem {} {
|
||||
label {&Move}
|
||||
user_data BLOCK_MOVE
|
||||
xywh {0 0 30 20} shortcut 0x9006d
|
||||
xywh {0 0 30 20} labelsize 0 shortcut 0x9006d
|
||||
}
|
||||
MenuItem {} {
|
||||
label {&Copy}
|
||||
user_data BLOCK_COPY
|
||||
xywh {0 0 36 21} shortcut 0x90063 divider
|
||||
xywh {0 0 36 21} labelsize 0 shortcut 0x90063 divider
|
||||
}
|
||||
MenuItem {} {
|
||||
label {&Fill}
|
||||
user_data BLOCK_FILL
|
||||
xywh {0 0 36 21} shortcut 0x90066
|
||||
xywh {0 0 36 21} labelsize 0 shortcut 0x90066
|
||||
}
|
||||
MenuItem {} {
|
||||
label {FillWith}
|
||||
user_data FILL_BLOCK
|
||||
xywh {0 0 36 30}
|
||||
}
|
||||
xywh {0 0 36 30} labelsize 0 }
|
||||
MenuItem {} {
|
||||
label {C&lear}
|
||||
user_data BLOCK_CLEAR
|
||||
xywh {0 0 36 21} shortcut 0x9006c divider
|
||||
xywh {0 0 36 21} labelsize 0 shortcut 0x9006c divider
|
||||
}
|
||||
MenuItem {} {
|
||||
label {&Sort}
|
||||
user_data BLOCK_SORT
|
||||
xywh {0 0 36 21} shortcut 0x90073
|
||||
xywh {0 0 36 21} labelsize 0 shortcut 0x90073
|
||||
}
|
||||
MenuItem {} {
|
||||
label {Mi&rror}
|
||||
user_data BLOCK_MIRROR
|
||||
xywh {0 0 36 21} shortcut 0x90072
|
||||
xywh {0 0 36 21} labelsize 0 shortcut 0x90072
|
||||
}
|
||||
}
|
||||
Submenu {} {label {&View} xywh {0 0 70 21}} {
|
||||
Submenu {} {label {&View} xywh {0 0 70 21} labelsize 0 } {
|
||||
MenuItem {} {
|
||||
label {Column &Width...}
|
||||
user_data K_COLWIDTH
|
||||
xywh {0 0 36 21} shortcut 0x80077
|
||||
xywh {0 0 36 21} labelsize 0 shortcut 0x80077
|
||||
}
|
||||
MenuItem {} {
|
||||
label {Row &Height...}
|
||||
user_data K_ROWHEIGHT
|
||||
xywh {0 0 36 21} labelsize 0 shortcut 0x80068
|
||||
}
|
||||
MenuItem {} {
|
||||
label {&Goto}
|
||||
user_data K_GOTO
|
||||
xywh {0 0 36 21} shortcut 0x40067
|
||||
xywh {0 0 36 21} labelsize 0 shortcut 0x40067
|
||||
}
|
||||
}
|
||||
Submenu {} {label {F&ormat} open xywh {5 5 70 21}} {
|
||||
Submenu {} {label {F&ormat} open xywh {5 5 70 21} labelsize 0 } {
|
||||
MenuItem {} {
|
||||
label {L&abel...}
|
||||
user_data ADJUST_LABEL
|
||||
xywh {0 0 36 21} shortcut 0x80061 divider
|
||||
xywh {0 0 36 21} labelsize 0 shortcut 0x80061 divider
|
||||
}
|
||||
MenuItem dim {
|
||||
label {&Dim}
|
||||
user_data ADJUST_DIM
|
||||
protected xywh {0 0 34 21}
|
||||
protected xywh {0 0 34 21} labelsize 0 shortcut 0x40064
|
||||
code0 {o->flags |= FL_MENU_TOGGLE;}
|
||||
}
|
||||
MenuItem bold {
|
||||
label {&Bold}
|
||||
user_data ADJUST_BOLD
|
||||
protected xywh {0 0 34 21} shortcut 0x80062
|
||||
protected xywh {0 0 34 21} labelsize 0 shortcut 0x40062
|
||||
code0 {o->flags |= FL_MENU_TOGGLE;}
|
||||
}
|
||||
MenuItem italic {
|
||||
label {&Italic}
|
||||
user_data ADJUST_ITALIC
|
||||
protected xywh {0 0 34 21}
|
||||
protected xywh {0 0 34 21} labelsize 0 shortcut 0x40069
|
||||
code0 {o->flags |= FL_MENU_TOGGLE;}
|
||||
}
|
||||
MenuItem underline {
|
||||
label {&Underline}
|
||||
user_data ADJUST_UNDERLINE
|
||||
protected xywh {0 0 34 21} shortcut 0x80075 divider
|
||||
protected xywh {0 0 34 21} labelsize 0 shortcut 0x40075
|
||||
divider
|
||||
code0 {o->flags |= FL_MENU_TOGGLE;}
|
||||
}
|
||||
MenuItem left {
|
||||
label {&Left}
|
||||
user_data ADJUST_LEFT
|
||||
protected xywh {0 0 36 21} shortcut 0x8006c
|
||||
protected xywh {0 0 36 21} labelsize 0 shortcut 0x8006c
|
||||
code0 {o->flags |= FL_MENU_RADIO;}
|
||||
}
|
||||
MenuItem right {
|
||||
label {&Right}
|
||||
user_data ADJUST_RIGHT
|
||||
protected xywh {0 0 36 21} shortcut 0x80072
|
||||
protected xywh {0 0 36 21} labelsize 0 shortcut 0x80072
|
||||
code0 {o->flags |= FL_MENU_RADIO;}
|
||||
}
|
||||
MenuItem center {
|
||||
label {&Center}
|
||||
user_data ADJUST_CENTER
|
||||
protected xywh {0 0 36 21} shortcut 0x80063 divider
|
||||
protected xywh {0 0 36 21} labelsize 0 shortcut 0x80063
|
||||
divider
|
||||
code0 {o->flags |= FL_MENU_RADIO;}
|
||||
}
|
||||
MenuItem {} {
|
||||
label {&Precision...}
|
||||
user_data ADJUST_PRECISION
|
||||
xywh {0 0 36 21} shortcut 0x80070
|
||||
xywh {0 0 36 21} labelsize 0 shortcut 0x80070
|
||||
}
|
||||
MenuItem {} {
|
||||
label {&Foreground...}
|
||||
user_data ADJUST_FOREGROUND
|
||||
xywh {0 0 36 21}
|
||||
xywh {0 0 36 21} labelsize 0
|
||||
}
|
||||
MenuItem {} {
|
||||
label {&Background...}
|
||||
user_data ADJUST_BACKGROUND
|
||||
xywh {0 0 36 21} divider
|
||||
xywh {0 0 36 21} labelsize 0 divider
|
||||
}
|
||||
menuitem dec {
|
||||
label {&Decimal}
|
||||
user_data ADJUST_DECIMAL
|
||||
protected xywh {0 0 36 21}
|
||||
protected xywh {0 0 36 21} labelsize 0
|
||||
code0 {o->flags |= FL_MENU_RADIO;}
|
||||
}
|
||||
MenuItem sci {
|
||||
label {&Scientific}
|
||||
user_data ADJUST_SCIENTIFIC
|
||||
protected xywh {0 0 36 21} shortcut 0x80073
|
||||
protected xywh {0 0 36 21} labelsize 0 shortcut 0x80073
|
||||
code0 {o->flags |= FL_MENU_RADIO;}
|
||||
}
|
||||
MenuItem cpt {
|
||||
label {Co&mpact}
|
||||
user_data ADJUST_COMPACT
|
||||
protected xywh {0 0 36 21}
|
||||
protected xywh {0 0 36 21} labelsize 0
|
||||
code0 {o->flags |= FL_MENU_RADIO;}
|
||||
}
|
||||
MenuItem hex {
|
||||
label {He&xact}
|
||||
user_data ADJUST_COMPACT
|
||||
protected xywh {0 0 36 21} divider
|
||||
protected xywh {0 0 36 21} labelsize 0 divider
|
||||
code0 {o->flags |= FL_MENU_RADIO;}
|
||||
}
|
||||
MenuItem shadow {
|
||||
label {Shadow&ed}
|
||||
user_data ADJUST_SHADOW
|
||||
protected xywh {0 0 36 21} shortcut 0x80065
|
||||
protected xywh {0 0 36 21} labelsize 0 shortcut 0x80065
|
||||
code0 {o->flags |= FL_MENU_TOGGLE;}
|
||||
}
|
||||
MenuItem transparent {
|
||||
label {&Transparent}
|
||||
user_data ADJUST_TRANSPARENT
|
||||
protected xywh {0 0 36 21} shortcut 0x80074 divider
|
||||
protected xywh {0 0 36 21} labelsize 0 shortcut 0x80074
|
||||
divider
|
||||
code0 {o->flags |= FL_MENU_TOGGLE;}
|
||||
}
|
||||
MenuItem lock {
|
||||
label {Lo&ck}
|
||||
user_data ADJUST_LOCK
|
||||
protected xywh {0 0 36 21} shortcut 0x80063
|
||||
protected xywh {0 0 36 21} labelsize 0 shortcut 0x80063
|
||||
code0 {o->flags |= FL_MENU_TOGGLE;}
|
||||
}
|
||||
MenuItem ignore {
|
||||
label {&Ignore}
|
||||
user_data ADJUST_IGNORE
|
||||
protected xywh {0 0 36 21} shortcut 0x80069
|
||||
protected xywh {0 0 36 21} labelsize 0 shortcut 0x80069
|
||||
code0 {o->flags |= FL_MENU_TOGGLE;}
|
||||
}
|
||||
}
|
||||
Submenu {} {label {&Help} open xywh {25 25 67 24}} {
|
||||
Submenu {} {label {Help} open xywh {25 25 67 24} labelsize 0 } {
|
||||
MenuItem {} {
|
||||
label {&Manual}
|
||||
user_data K_HELP
|
||||
xywh {0 0 30 20} shortcut 0xffbe
|
||||
xywh {0 0 30 20} labelsize 0 shortcut 0xffbe
|
||||
}
|
||||
MenuItem {} {
|
||||
label {&About}
|
||||
user_data K_ABOUT
|
||||
xywh {0 0 30 20}
|
||||
xywh {0 0 30 20} labelsize 0
|
||||
}
|
||||
}
|
||||
}
|
||||
Fl_Group line_label {
|
||||
label { Input:} open
|
||||
protected xywh {0 25 800 25} box ROUND_UP_BOX align 20 deactivate
|
||||
protected xywh {0 9999112 800 9999112} labelsize 9999100
|
||||
box ROUND_UP_BOX align 20 deactivate
|
||||
}
|
||||
{
|
||||
Fl_Input line_input {
|
||||
@ -688,8 +740,12 @@ class MainWindow {open}
|
||||
line_label->deactivate();
|
||||
}
|
||||
}
|
||||
protected xywh {75 27 723 21} box ROUND_DOWN_BOX
|
||||
protected xywh {75 9999114 723 9999110} box PLASTIC_DOWN_BOX
|
||||
labelsize 9999100
|
||||
labeltype NO_LABEL align 20 when 6 deactivate
|
||||
code0 {
|
||||
line_input->textsize(fontsize);
|
||||
}
|
||||
}
|
||||
}
|
||||
Fl_Box table {
|
||||
@ -773,14 +829,15 @@ class MainWindow {open}
|
||||
case FLT_NO_FORMAT: ;
|
||||
}
|
||||
}
|
||||
protected xywh {0 50 800 525} box DOWN_FRAME
|
||||
protected xywh {0 9999224 800 99990336} box DOWN_FRAME
|
||||
labeltype NO_LABEL resizable
|
||||
code0 { table->sheet(sheet); }
|
||||
class TeapotTable
|
||||
}
|
||||
Fl_Box status {
|
||||
label {teapot ready.}
|
||||
protected xywh {0 575 800 25} box GTK_ROUND_DOWN_BOX align 20
|
||||
protected xywh {0 99990112 800 9999112}
|
||||
box GTK_ROUND_DOWN_BOX align 20
|
||||
}
|
||||
} code {
|
||||
current = this;
|
||||
|
||||
39
src/tools/interpolate.py
Normal file
39
src/tools/interpolate.py
Normal file
@ -0,0 +1,39 @@
|
||||
# To get around the fact that fluid only allows numerical constants
|
||||
# in some places that expressions would be preferred, this
|
||||
# file takes a fluid file which may contain numerical constants of the form
|
||||
#
|
||||
# 9999NNN/*REPLACEMENT*/
|
||||
#
|
||||
# where the NNN are distinct digit sequences (of any length)
|
||||
# and the corresponding fluid output and replaces any 9999NNN in the output
|
||||
# with REPLACEMENT (which can of course be any text). Note that the
|
||||
# entire numerical constant with its replacement comment must occur within
|
||||
# a single line of the fluid file. The result is written
|
||||
# to a new output file with the literal string `_interpolated` interpolated
|
||||
# before its extension.
|
||||
|
||||
from pathlib import Path
|
||||
import re
|
||||
import sys
|
||||
|
||||
fluidin = sys.argv[1]
|
||||
genfile = Path(sys.argv[2])
|
||||
outfile = genfile.with_stem(genfile.stem + '_interpolated')
|
||||
|
||||
# First collect all of the replacements from the fluidfile
|
||||
replacerPattern = re.compile(r"(9999\d*)/[*](.*)[*]/")
|
||||
replacement = {}
|
||||
with open(fluidin) as fluidf:
|
||||
for line in fluidf:
|
||||
foundpat = replacerPattern.search(line)
|
||||
if foundpat:
|
||||
replacement[foundpat[1]] = foundpat[2]
|
||||
|
||||
# Now make all replacements in the generated file
|
||||
with open(outfile, 'w') as outf:
|
||||
with open(genfile) as genf:
|
||||
for line in genf:
|
||||
line = line[:-1]
|
||||
for key in replacement:
|
||||
line = line.replace(key, replacement[key])
|
||||
print(line, file=outf)
|
||||
Loading…
Reference in New Issue
Block a user