int error(const char *msg, int fatal)
{
char buf[200];
int x, y, button;
Curses_clear_window(PROMPT_WINDOW);
Curses_write_window(PROMPT_WINDOW, 1, 1, "LOCATION:\n");
Curses_write_window(PROMPT_WINDOW, 1, 12, G_location());
Curses_write_window(PROMPT_WINDOW, 2, 1, "MAPSET:\n");
Curses_write_window(PROMPT_WINDOW, 2, 12, G_location());
Beep();
if (fatal)
sprintf(buf, _("ERROR: %s"), msg);
else
sprintf(buf, _("WARNING: %s (click mouse to continue)"), msg);
Menu_msg(buf);
if (fatal)
quit(1);
Mouse_pointer(&x, &y, &button);
Curses_clear_window(PROMPT_WINDOW);
return 0;
}
int debug(char *msg, ...)
{
R_stabilize();
Curses_write_window(PROMPT_WINDOW, 1, 1, msg);
/* Curses_getch(0); */
return 0;
}
int Curses_prompt_gets(char *prompt, char *answer)
{
char c;
int n;
int y, x;
*answer = 0;
n = 0;
Curses_write_window(PROMPT_WINDOW, 1, 1, "\n");
Curses_write_window(PROMPT_WINDOW, 1, 1, prompt);
for (;;) {
refresh();
c = Curses_getch(0);
if (c == '\n' || c == '\r')
break;
getyx(stdscr, y, x);
if (c > '\037' && c < '\177') { /* octal codes: accept space to '~' */
if (x < PROMPT_WINDOW->right) {
*answer++ = c;
*answer = 0;
addch(c);
n++;
}
continue;
}
if (c == '\b' || c == '\177') { /* backspace or DEL (decimal 8,127) */
if (n > 0) {
answer--;
*answer = 0;
move(y, x - 1);
addch(' ');
move(y, x - 1);
n--;
}
continue;
}
Beep();
}
return 0;
}
static int to_printer(void)
{
FILE *fd;
cancel_which();
Menu_msg("Sending report to printer ...");
Curses_write_window(PROMPT_WINDOW, 1, 1, "Sending report to printer ...");
fd = popen("lp", "w");
do_report(fd);
pclose(fd);
return 0;
}
int call(int (*function) (), char *msg)
{
int pid;
int w, status;
char i_msg[80];
/*
* build interrupt msg
*/
sprintf(i_msg, "Hit %s %s\n", G_unctrl(interrupt_char), msg);
/*
* make sure all graphics have gotten to the monitor
*/
R_stabilize();
/* fork to create child */
pid = fork();
if (pid < 0) {
End_curses();
perror("Can't fork");
exit(1);
}
/* parent just waits for child */
Curses_allow_interrupts(1);
if (pid) {
Curses_write_window(PROMPT_WINDOW, 1, 1, i_msg);
while ((w = wait(&status)) != pid && w != -1) ;
Curses_allow_interrupts(0);
Curses_write_window(PROMPT_WINDOW, 1, 1, "\n");
}
/* child turns on interrupts and calls the function */
else {
signal(SIGINT, SIG_DFL);
(*function) ();
exit(0);
}
return 0;
}
static int to_file(void)
{
FILE *fd;
char msg[1024];
cancel_which();
if (Input_other(askfile, "Keyboard") < 0) {
return 0;
}
fd = fopen(buf, "w");
if (fd == NULL) {
sprintf(msg, "** Unable to create file %s\n", buf);
Beep();
Curses_write_window(PROMPT_WINDOW, 2, 1, msg);
}
else {
do_report(fd);
fclose(fd);
sprintf(msg, "Report saved in file %s\n", buf);
Curses_write_window(PROMPT_WINDOW, 2, 1, msg);
}
return 0;
}
static int askfile(void)
{
char file[GNAME_MAX];
while (1) {
Curses_prompt_gets("Enter file to hold report: ", file);
G_strip(file);
if (*file == 0)
return -1;
if (G_index(file, '/'))
strcpy(buf, file);
else
sprintf(buf, "%s/%s", G_home(), file);
if (access(buf, 0) != 0)
return 1;
sprintf(buf, "** %s already exists. choose another file", file);
Beep();
Curses_write_window(PROMPT_WINDOW, 2, 1, buf);
}
return 0;
}
static int drawvect(int zoomit, /* -1 = refresh, 0 = new image, 1 = zoom, 2 = warp */
View * zoom_view, double E[], double N[], int trans_order)
{ /* order of transformation if warping vectors */
int stat = 0;
int i;
char name[GNAME_MAX], mapset[GMAPSET_MAX];
struct Cell_head cellhd;
struct line_pnts *Points;
char msg[100], win_name[100];
int t, b, l, r;
int blank = 0;
View *active_view;
int left, top, nrows, ncols;
static int vectclr[VFILES];
/* if refresh screen or overlay & no displayed vector maps return */
if ((zoomit == DO_REFRESH || zoomit == DO_WARP) && !numfiles) {
if (zoomit == DO_REFRESH)
display_points(1);
return 0;
}
/* numfiles stays at 0 until the end of the first vector map init */
if (numfiles >= VFILES) {
G_warning
("Can't display another map; reached maximum number of files");
return 0;
}
select_target_env();
if (zoomit == DO_REFRESH || zoomit == DO_NEW) { /* New Map File or Refresh Screen */
if (zoomit == DO_NEW) { /* zoomit==0, Draw New Map File */
if (!choose_vectfile(name, mapset))
return 0;
strcpy(vect_file[numfiles], name);
strcpy(vect_mapset[numfiles], mapset);
get_vector_color(); /* ask line_color to draw map */
if (!numfiles) { /* first map: SET VECTOR WINDOW BY WIND */
G_get_window(&cellhd);
G_copy(&VIEW_MAP2->cell.head, &cellhd, sizeof(cellhd));
}
else /* not the first map */
G_copy(&cellhd, &VIEW_MAP2->cell.head,
sizeof(VIEW_MAP2->cell.head));
numfiles++;
}
else { /* zoomit=-1 Refresh Screen */
G_copy(&cellhd, &VIEW_MAP2->cell.head,
sizeof(VIEW_MAP2->cell.head));
if (!cellmap_present)
Erase_view(VIEW_MAP2_ZOOM);
VIEW_MAP2_ZOOM->cell.configured = 0;
blank = BLACK;
}
strcpy(win_name, "vect_map");
if (!view2on) {
t = VIEW_MAP2->top;
b = VIEW_MAP2->bottom;
l = VIEW_MAP2->left;
r = VIEW_MAP2->right;
D_new_window(win_name, t, b, l, r);
if (!cellmap_present)
blank = BLACK;
else
blank = 0; /* don't erase viewport */
view2on = 1;
}
active_view = VIEW_MAP2;
}
else { /* zoomit>0 Zoom or Warp */
G_copy(&cellhd, &zoom_view->cell.head, sizeof(zoom_view->cell.head));
if (!(zoom_view == VIEW_MAP1)) { /* target side */
VIEW_MAP2_ZOOM->cell.configured = 0;
strcpy(win_name, "zoom_map");
if (!view2zoomon) {
t = VIEW_MAP2_ZOOM->top;
b = VIEW_MAP2_ZOOM->bottom;
l = VIEW_MAP2_ZOOM->left;
r = VIEW_MAP2_ZOOM->right;
D_new_window(win_name, t, b, l, r);
view2zoomon = 1;
}
active_view = VIEW_MAP2_ZOOM;
blank = BLACK;
}
else {
strcpy(win_name, "warp_map"); /* defined in drawcell routine */
active_view = VIEW_MAP1;
blank = 0; /* don't erase viewport */
}
}
nrows = active_view->nrows;
ncols = active_view->ncols;
left = active_view->left;
top = active_view->top;
D_set_cur_wind(win_name);
R_standard_color(YELLOW);
Outline_box(top, top + nrows - 1, left, left + ncols - 1);
Points = Vect_new_line_struct();
if (zoomit != DO_WARP) {
Curses_clear_window(INFO_WINDOW);
Curses_write_window(INFO_WINDOW, 1, 13, "COORDINATES");
Curses_write_window(INFO_WINDOW, 3, 2, "MAIN WINDOW");
sprintf(msg, "N = %10.2f E = %10.2f", VIEW_MAP2->cell.head.north,
VIEW_MAP2->cell.head.east);
Curses_write_window(INFO_WINDOW, 5, 4, msg);
sprintf(msg, "S = %10.2f W = %10.2f", VIEW_MAP2->cell.head.south,
VIEW_MAP2->cell.head.west);
Curses_write_window(INFO_WINDOW, 6, 4, msg);
Curses_write_window(INFO_WINDOW, 9, 2, "ZOOM WINDOW");
sprintf(msg, "N = %10.2f E = %10.2f",
VIEW_MAP2_ZOOM->cell.head.north,
VIEW_MAP2_ZOOM->cell.head.east);
Curses_write_window(INFO_WINDOW, 11, 4, msg);
sprintf(msg, "S = %10.2f W = %10.2f",
VIEW_MAP2_ZOOM->cell.head.south,
VIEW_MAP2_ZOOM->cell.head.west);
Curses_write_window(INFO_WINDOW, 12, 4, msg);
}
if (zoomit) { /* ie ! DO_NEW */
dsp_setup(blank, &cellhd);
for (i = 0; i < numfiles; i++) {
sprintf(msg, "Displaying %s", vect_file[i]);
Menu_msg(msg);
R_standard_color(vectclr[i]);
if (zoomit != DO_WARP)
stat = plot(vect_file[i], vect_mapset[i], Points);
else
stat = plot_warp(vect_file[i], vect_mapset[i],
Points, E, N, trans_order);
}
}
else { /* ie DO_NEW */
if (numfiles == 1) { /* let first file set window */
G_copy(&VIEW_MAP2->cell.head, &cellhd, sizeof(cellhd));
cellhd.rows = VIEW_MAP2->nrows;
cellhd.cols = VIEW_MAP2->ncols;
cellhd.ns_res = (cellhd.north - cellhd.south) / cellhd.rows;
cellhd.ew_res = (cellhd.east - cellhd.west) / cellhd.cols;
if (cellhd.ns_res > cellhd.ew_res)
cellhd.ew_res = cellhd.ns_res;
else
cellhd.ns_res = cellhd.ew_res;
VIEW_MAP2->cell.ns_res = cellhd.ns_res;
VIEW_MAP2->cell.ew_res = cellhd.ew_res;
G_copy(&VIEW_MAP2->cell.head, &cellhd, sizeof(cellhd));
G_adjust_window_to_box(&cellhd, &VIEW_MAP2->cell.head,
VIEW_MAP2->nrows, VIEW_MAP2->ncols);
if (!cellmap_present) {
Configure_view(VIEW_MAP2, vect_file[numfiles - 1],
vect_mapset[numfiles - 1], cellhd.ns_res,
cellhd.ew_res);
}
Curses_write_window(INFO_WINDOW, 15, 2,
"WHERE CURSOR-> Mid Button");
}
dsp_setup(blank, &cellhd);
R_standard_color(YELLOW);
Outline_box(top, top + nrows - 1, left, left + ncols - 1);
sprintf(msg, "Displaying %s", vect_file[numfiles - 1]);
Menu_msg(msg);
R_standard_color(line_color);
vectclr[numfiles - 1] = line_color;
get_clr_name(vect_color[numfiles - 1], line_color);
stat =
plot(vect_file[numfiles - 1], vect_mapset[numfiles - 1], Points);
}
display_points(1);
R_standard_color(WHITE);
Outline_box(top, top + nrows - 1, left, left + ncols - 1);
Menu_msg("");
Vect_destroy_line_struct(Points);
/* VIEW_MAP2->cell.configured = 1; XXX */
select_current_env();
if (from_screen < 0) {
from_flag = 1;
from_screen = 0;
if (from_keyboard < 0) {
from_keyboard = 0;
from_screen = 1;
}
}
if (numfiles) {
Curses_clear_window(MENU_WINDOW);
Curses_write_window(MENU_WINDOW, 1, 5, "COLOR MAP FILE");
for (i = 0; i < numfiles; i++) {
sprintf(msg, "%7s %s", vect_color[i], vect_file[i]);
Curses_write_window(MENU_WINDOW, i + 3, 3, msg);
}
}
return 0;
}
int use_mouse_msg(void)
{
Curses_write_window(PROMPT_WINDOW, 1, 1, "Use mouse now ...\n");
return 0;
}
