xv_log.c File Reference

#include <stdlib.h>
#include <stdio.h>
#include <stdarg.h>
#include <errno.h>
#include <sys/time.h>
#include <sys/resource.h>
#include <xview/xview.h>
#include <xview/panel.h>
#include <xview/text.h>
#include <xview/textsw.h>
#include <xview/notice.h>
#include <xview/xv_error.h>
#include "genC.h"
#include "misc.h"
#include "linear.h"
#include "ri.h"
#include "ri-util.h"
#include "database.h"
#include "pipsdbm.h"
#include "top-level.h"
#include "properties.h"
#include "wpips.h"

Include dependency graph for xv_log.c:

Go to the source code of this file.

Macros
#define	MAXARGS   100

Functions
void	prompt_user (string a_printf_format,...)
static void	insert_something_in_the_wpips_log_window (char *a_message)
void	wpips_user_error_message (char error_buffer[])
void	wpips_user_warning_message (char warning_buffer[])
void	wpips_user_log (string fmt, va_list args)
void	open_log_subwindow (Menu menu, Menu_item menu_item)
void	clear_log_subwindow (Menu menu, Menu_item menu_item)
void	close_log_subwindow (Menu menu, Menu_item menu_item)
void	create_log_menu ()
void	create_log_window ()
	This works but it is cleaner to use textsw_reset() instead... More...

Variables
static Textsw	log_textsw
	xview/newgen interaction More...
static Menu_item	open_front
static Menu_item	clear
static Menu_item	close

Macro Definition Documentation

MAXARGS

#define MAXARGS   100

Definition at line 180 of file xv_log.c.

Function Documentation

clear_log_subwindow()

void clear_log_subwindow	(	Menu	menu,
		Menu_item	menu_item
	)

Definition at line 214 of file xv_log.c.

{
    int l = (int) xv_get(log_textsw, TEXTSW_LENGTH);
    textsw_delete(log_textsw, 0, l);
    xv_set(clear, MENU_INACTIVE, TRUE, 0);
}

References clear, int, and log_textsw.

Referenced by create_log_menu().

Here is the caller graph for this function:

close_log_subwindow()

void close_log_subwindow	(	Menu	menu,
		Menu_item	menu_item
	)

ENU_INACTIVE, FALSE, 0);

Definition at line 225 of file xv_log.c.

{
    xv_set(open_front, MENU_STRING, "Open", 0); /*MENU_INACTIVE, FALSE, 0);*/
    xv_set(close, MENU_INACTIVE, TRUE, 0);
    hide_window(log_frame);
}

References close, hide_window(), log_frame, and open_front.

Referenced by create_log_menu().

Here is the call graph for this function:

Here is the caller graph for this function:

create_log_menu()

void create_log_menu

(

)

In fact, create it but disabled to keep the same frame layout in the Emacs mode:

Definition at line 235 of file xv_log.c.

{
    Menu menu;
    Panel_item log_button;
 
    open_front = xv_create(NULL, MENUITEM, 
                     MENU_STRING, "Open",
                     MENU_NOTIFY_PROC, open_log_subwindow,
                     MENU_RELEASE,
                     NULL);
 
    clear = xv_create(NULL, MENUITEM, 
                      MENU_STRING, "Clear",
                      MENU_NOTIFY_PROC, clear_log_subwindow,
                      MENU_INACTIVE, TRUE,
                      MENU_RELEASE,
                      NULL);
 
    close = xv_create(NULL, MENUITEM, 
                      MENU_STRING, "Close",
                      MENU_NOTIFY_PROC, close_log_subwindow,
                      MENU_INACTIVE, TRUE,
                      MENU_RELEASE,
                      NULL);
 
    menu = xv_create(XV_NULL, MENU_COMMAND_MENU, 
                     MENU_APPEND_ITEM, open_front,
                     MENU_APPEND_ITEM, clear,
                     MENU_APPEND_ITEM, close,
                     NULL);
 
    log_button = xv_create(main_panel, PANEL_BUTTON,
                     PANEL_LABEL_STRING, "Log  ",
                     PANEL_ITEM_MENU, menu,
                     0);
 
    if (wpips_emacs_mode)
       /* In fact, create it but disabled to keep the same frame
          layout in the Emacs mode: */
       xv_set(log_button, PANEL_INACTIVE, TRUE,
              NULL);
}

References clear, clear_log_subwindow(), close, close_log_subwindow(), main_panel, open_front, open_log_subwindow(), and wpips_emacs_mode.

Here is the call graph for this function:

create_log_window()

void create_log_window

(

)

This works but it is cleaner to use textsw_reset() instead...

void recreate_log_window() { xv_destroy(log_textsw); log_textsw = (Xv_Window) xv_create(log_frame, TEXTSW, 0); }

Xv_Window window;

recuperation d'event ne fonctionne pas -> installer TEXTSW_NOTIFY_PROC,

autre suggestion: mettre un masque X

window = (Xv_Window) xv_find(log_frame, WINDOW, 0);

xv_set(window, WIN_CONSUME_X_EVENT_MASK, EnterWindowMask, WIN_EVENT_PROC, default_win_interpose, NULL);

Definition at line 289 of file xv_log.c.

{
    /* Xv_Window window; */
 
 
    log_textsw = (Xv_Window) xv_create(log_frame, TEXTSW, 0);
/* recuperation d'event ne fonctionne pas -> installer TEXTSW_NOTIFY_PROC, */
/* autre suggestion: mettre un masque X */
 
/*    window = (Xv_Window) xv_find(log_frame, WINDOW, 0);
 
    xv_set(window, 
           WIN_CONSUME_X_EVENT_MASK, EnterWindowMask, 
           WIN_EVENT_PROC, default_win_interpose, 
           NULL);
*/
}

References log_frame, and log_textsw.

insert_something_in_the_wpips_log_window()

static void insert_something_in_the_wpips_log_window ( char *  a_message )

static

Try to insert at the end:

Verify it fitted:

It ran out of space!

recreate_log_window();

Discard the content without keeping the undo buffer:

Hope there is no use of recursion...

Definition at line 93 of file xv_log.c.

{
    int new_length;
    int message_length = strlen(a_message);
    int old_length = (int) xv_get(log_textsw, TEXTSW_LENGTH);
 
   /* Try to insert at the end: */
   xv_set(log_textsw,
          TEXTSW_INSERTION_POINT, old_length,
          NULL);
   textsw_insert(log_textsw, a_message, message_length);
   /* Verify it fitted: */
   new_length = (int) xv_get(log_textsw, TEXTSW_LENGTH);
   if (new_length != old_length + message_length) 
   {
      /* It ran out of space! */
      /* recreate_log_window(); */
      /* Discard the content without keeping the undo buffer: */
      textsw_reset(log_textsw, 0, 0);
      
      xv_set(log_textsw,
             TEXTSW_INSERTION_POINT, 0,
             NULL);
      /* Hope there is no use of recursion... */
      textsw_insert(log_textsw, a_message, message_length);
 
      prompt_user("As you have just clicked, "
                  "you saw the log window was full :-) ...\n"
                  "It is now cut down to 0 byte again...\n\n"
                  "Anyway, you can retrieve all the log content "
                  "in the file \"%s/LOGFILE\"\n",
                  db_get_current_workspace_directory());
   }   
 
   textsw_possibly_normalize(log_textsw, 
                             (Textsw_index) xv_get(log_textsw, TEXTSW_INSERTION_POINT));
 
   XFlush((Display *) xv_get(main_frame, XV_DISPLAY));
   XFlush((Display *) xv_get(log_frame, XV_DISPLAY));
 
   xv_set(clear, MENU_INACTIVE, FALSE, 0);
}

References clear, db_get_current_workspace_directory(), int, log_frame, log_textsw, main_frame, and prompt_user().

Referenced by wpips_user_error_message(), wpips_user_log(), and wpips_user_warning_message().

Here is the call graph for this function:

Here is the caller graph for this function:

open_log_subwindow()

void open_log_subwindow	(	Menu	menu,
		Menu_item	menu_item
	)

Definition at line 204 of file xv_log.c.

{
    xv_set(open_front, MENU_STRING, "Front", 0);
    xv_set(close, MENU_INACTIVE, FALSE, 0);
    unhide_window(log_frame);
}

References close, log_frame, open_front, and unhide_window().

Referenced by create_log_menu().

Here is the call graph for this function:

Here is the caller graph for this function:

prompt_user()

void prompt_user	(	string	a_printf_format,
			...
	)

Definition at line 70 of file xv_log.c.

{
   Event e;
   va_list some_arguments;
   static char message_buffer[SMALL_BUFFER_LENGTH];
 
   va_start(some_arguments, a_printf_format);
 
   (void) vsprintf(message_buffer, a_printf_format, some_arguments);
 
   if (wpips_emacs_mode) 
      send_prompt_user_to_emacs(message_buffer);
   (void) notice_prompt(xv_find(main_frame, WINDOW, 0), 
                        &e,
                        NOTICE_MESSAGE_STRINGS,
                        message_buffer,
                        0,
                        NOTICE_BUTTON_YES,      "Press Here",
                        0);
}

References main_frame, send_prompt_user_to_emacs(), SMALL_BUFFER_LENGTH, and wpips_emacs_mode.

Referenced by insert_something_in_the_wpips_log_window().

Here is the call graph for this function:

Here is the caller graph for this function:

wpips_user_error_message()

void wpips_user_error_message

(

char

error_buffer[]

)

prompt_user("Something went wrong. Check the log window");

terminate PIPS request

Definition at line 138 of file xv_log.c.

{
   log_on_file(error_buffer);
 
   if (wpips_emacs_mode) 
      send_user_error_to_emacs(error_buffer);
   else
      insert_something_in_the_wpips_log_window(error_buffer);
 
   show_message(error_buffer);
   if (!wpips_emacs_mode) 
      unhide_window(log_frame);
 
   /* prompt_user("Something went wrong. Check the log window"); */
      
   /* terminate PIPS request */
   if(get_bool_property("ABORT_ON_USER_ERROR"))
      abort();
 
   THROW(user_exception_error);
      
   (void) exit(1);
}

References abort, exit, get_bool_property(), insert_something_in_the_wpips_log_window(), log_frame, log_on_file(), send_user_error_to_emacs(), show_message(), THROW, unhide_window(), user_exception_error, and wpips_emacs_mode.

Here is the call graph for this function:

wpips_user_log()

void wpips_user_log	(	string	fmt,
		va_list	args
	)

Display the "Message:" line in the main window also in the emacs mode:

Definition at line 183 of file xv_log.c.

{
   static char log_buffer[SMALL_BUFFER_LENGTH];
 
   (void) vsprintf(log_buffer, fmt, args);
 
   log_on_file(log_buffer);
 
   if(get_bool_property("USER_LOG_P")==FALSE)
      return;
 
   if (wpips_emacs_mode) 
      send_user_log_to_emacs(log_buffer);
   else
      insert_something_in_the_wpips_log_window(log_buffer);
   /* Display the "Message:" line in the main window also in the emacs
      mode: */
   show_message(log_buffer);
}

References get_bool_property(), insert_something_in_the_wpips_log_window(), log_on_file(), send_user_log_to_emacs(), show_message(), SMALL_BUFFER_LENGTH, and wpips_emacs_mode.

Referenced by wpips_main().

Here is the call graph for this function:

Here is the caller graph for this function:

wpips_user_warning_message()

void wpips_user_warning_message

(

char

warning_buffer[]

)

Franc,ois said a warning is not important enough... unhide_window(log_frame);

Definition at line 163 of file xv_log.c.

{
   log_on_file(warning_buffer);
 
   if (wpips_emacs_mode) 
      send_user_warning_to_emacs(warning_buffer);
   else {
      insert_something_in_the_wpips_log_window(warning_buffer);
      /* Franc,ois said a warning is not important enough...
         unhide_window(log_frame);
         */
   }
   
   show_message(warning_buffer);
}

References insert_something_in_the_wpips_log_window(), log_on_file(), send_user_warning_to_emacs(), show_message(), and wpips_emacs_mode.

Here is the call graph for this function:

Variable Documentation

clear

Menu_item clear

static

Definition at line 66 of file xv_log.c.

Referenced by clear_log_subwindow(), create_log_menu(), and insert_something_in_the_wpips_log_window().

close

Menu_item close

static

Definition at line 66 of file xv_log.c.

Referenced by close_log_subwindow(), create_log_menu(), main(), and open_log_subwindow().

log_textsw

Textsw log_textsw

static

xview/newgen interaction

Definition at line 65 of file xv_log.c.

Referenced by clear_log_subwindow(), create_log_window(), and insert_something_in_the_wpips_log_window().

open_front

Menu_item open_front

static

Definition at line 66 of file xv_log.c.

Referenced by close_log_subwindow(), create_log_menu(), and open_log_subwindow().