|/grass/src/imagery/i.class would not compile correctly. The following
|error occurs:
|
| zoom_box.c: In function 'zoom1'
| zoom_box.c:34: 'cancel' undeclared (first use this function)
| each undeclared identifier is reported only once for
| each function it appears in.
| zoom_box.c: At top level
| zoom_box.c:183: 'cancel' used prior to declaration
|
The problem is that the functions cancel(), zoom1() were not declared
prior to use in parts of the code. Here is a fixed zoom_box.c that should
compile.
----------------------------------------------------------------------------
#include "globals.h"
static int x1, y1, x2, y2;
static View *pick_view, *zoom_view, *main_view;
static int cancel();
static int zoom1();
static int zoom2();
zoom_box()
{
static int use = 1;
static Objects objects=
{
MENU("Cancel",cancel,&use),
INFO(" Mark first corner of window ",&use),
OTHER(zoom1,&use),
{0}
};
pick_view = zoom_view = main_view = NULL;
Input_pointer (objects);
return 0;
}
static
zoom1(x,y,b) /* called by Input_pointer */
{
static int use = 1;
static Objects objects =
{
MENU("Cancel",cancel,&use),
INFO(" Define the window ",&use),
OTHER(zoom2,&use),
{0}
};
/*
* user has marked first corner
* this determines which view is being zoomed
*/
/*fprintf(stderr,"\nX, Y, B in zoom1 %d %d %d", x,y,b); */
x1 = x;
y1 = y;
if (In_view (pick_view = VIEW_MAP1, x1, y1))
{
main_view = VIEW_MAP1;
zoom_view = VIEW_MAP1_ZOOM;
}
else if (In_view (pick_view = VIEW_MAP1_ZOOM, x1, y1))
{
if (!pick_view->cell.configured)
return 0; /* ignore the mouse event */
main_view = VIEW_MAP1;
zoom_view = VIEW_MAP1_ZOOM;
}
else
return 0; /* ignore the mouse event */
if (!pick_view->cell.configured) return 0; /* just to be sure */
return Input_box (objects, x, y);
}
static
zoom2 (x, y, b)
{
int top, bottom, left, right;
int row,col;
struct Cell_head cellhd;
/*fprintf(stderr,"\nX, Y, B in zoom2 %d %d %d", x,y,b);*/
x2 = x;
y2 = y;
/*
* user has completed the zoom window.
* must be in same view as first corner
*/
if (x1 == x2 || y1 == y2) return 0; /* ignore event */
if (!In_view (pick_view,x2,y2)) return 0;
/*
* ok, erase menu messages
*/
Menu_msg("");
/*
* assign window coordinates to top,bottom,left,right
*/
if (x1 < x2)
{
left = x1;
right = x2;
}
else
{
left = x2;
right = x1;
}
if (y1 < y2)
{
top = y1;
bottom = y2;
}
else
{
top = y2;
bottom = y1;
}
/*fprintf(stderr,"\nleft right top bottom %d %d %d %d", left,right,top,bottom);*/
/*
* Determine the the zoom window (ie, cellhd)
* must copy the current view cellhd first, to preserve header info
* (such as projection, zone, and other items.)
* compute zoom window northings,eastings, rows, cols, and resolution
*/
G_copy (&cellhd, &pick_view->cell.head, sizeof(cellhd));
/* convert top to northing at top edge of cell
* left to easting at left edge
*/
col = view_to_col(pick_view,left);
row = view_to_row(pick_view,top);
cellhd.north = row_to_northing (&pick_view->cell.head,row,0.0);
cellhd.west = col_to_easting (&pick_view->cell.head,col,0.0);
/* convert bottom to northing at bottom edge of cell
* right to easting at right edge
*/
col = view_to_col(pick_view,right);
row = view_to_row(pick_view,bottom);
cellhd.south = row_to_northing (&pick_view->cell.head,row,1.0);
cellhd.east = col_to_easting (&pick_view->cell.head,col,1.0);
cellhd.rows = bottom-top+1;
cellhd.cols = right-left+1;
cellhd.ns_res = (cellhd.north-cellhd.south)/cellhd.rows;
cellhd.ew_res = (cellhd.east-cellhd.west)/cellhd.cols;
/*fprintf(stderr,"\nnorth,south,east,west,nsres,ewres %f %f %f %f %f %f",
cellhd.north,cellhd.south,cellhd.east,cellhd.west,
cellhd.ns_res, cellhd.ew_res);*/
/*
* Outline the zoom window on the main map
* Turn previous one to grey.
*/
if (zoom_view->cell.configured)
{
R_standard_color (GREY);
Outline_cellhd (main_view, &zoom_view->cell.head);
}
R_standard_color (RED);
Outline_cellhd (main_view, &cellhd);
/* If a region is drawn in the zoom window erase it and the saved
region, if any */
if (Region.area.define && Region.view==VIEW_MAP1_ZOOM) {
erase_region();
if (Region.area.saved) {
Region.saved_npoints = 0;
Region.area.saved = 0;
Region.saved_view = NULL;
}
}
/*
* zoom
*/
G_adjust_window_to_box (&cellhd, &zoom_view->cell.head, zoom_view->nrows, zoom_view->ncols);
Configure_view (zoom_view, pick_view->cell.name, pick_view->cell.mapset,
pick_view->cell.ns_res, pick_view->cell.ew_res);
draw_cell (zoom_view,OVER_WRITE);
return 1; /* pop back */
}
static
cancel()
{
return -1;
}