/*! \todo Finish function documentation!!!
* \brief
* \par Function Description
*
*/
void x_window_setup (GSCHEM_TOPLEVEL *w_current)
{
TOPLEVEL *toplevel = w_current->toplevel;
/* immediately setup user params */
i_vars_set(w_current);
/* Initialize the autosave callback */
s_page_autosave_init(toplevel);
/* Initialize the clipboard callback */
x_clipboard_init (w_current);
/* x_window_setup_world() - BEGIN */
toplevel->init_left = -45;
toplevel->init_top = -45;
/* init_right and _bottom are set before this function is called */
toplevel->width = default_width;
toplevel->height = default_height;
w_current->win_width = toplevel->width;
w_current->win_height = toplevel->height;
/* x_window_setup_world() - END */
/* Add to the list of windows */
global_window_list = g_list_append (global_window_list, w_current);
/* X related stuff */
x_window_create_main (w_current);
x_menu_attach_recent_files_submenu(w_current);
}
/*! \todo Finish function documentation!!!
* \brief
* \par Function Description
*
*/
void x_window_setup (GschemToplevel *w_current)
{
TOPLEVEL *toplevel = gschem_toplevel_get_toplevel (w_current);
/* immediately setup user params */
i_vars_set(w_current);
/* Initialize the autosave callback */
s_page_autosave_init(toplevel);
/* Initialize the clipboard callback */
x_clipboard_init (w_current);
/* x_window_setup_world() - BEGIN */
w_current->win_width = default_width;
w_current->win_height = default_height;
/* x_window_setup_world() - END */
/* Add to the list of windows */
global_window_list = g_list_append (global_window_list, w_current);
/* X related stuff */
x_window_create_main (w_current);
x_menu_attach_recent_files_submenu(w_current);
}
static void
preview_init (GschemPreview *preview)
{
struct event_reg_t {
gchar *detailed_signal;
GCallback c_handler;
} drawing_area_events[] = {
{ "realize", G_CALLBACK (preview_callback_realize) },
{ "expose_event", G_CALLBACK (x_event_expose) },
{ "button_press_event", G_CALLBACK (preview_callback_button_press) },
{ "configure_event", G_CALLBACK (x_event_configure) },
{ "scroll_event", G_CALLBACK (preview_event_scroll) },
{ NULL, NULL }
}, *tmp;
GschemToplevel *preview_w_current;
preview_w_current = gschem_toplevel_new ();
gschem_toplevel_set_toplevel (preview_w_current, s_toplevel_new ());
preview_w_current->toplevel->load_newer_backup_func =
x_fileselect_load_backup;
preview_w_current->toplevel->load_newer_backup_data =
preview_w_current;
o_text_set_rendered_bounds_func (preview_w_current->toplevel,
o_text_get_rendered_bounds,
preview_w_current);
i_vars_set (preview_w_current);
/* be sure to turn off scrollbars */
preview_w_current->scrollbars_flag = FALSE;
/* be sure to turn off the grid */
gschem_options_set_grid_mode (preview_w_current->options, GRID_MODE_NONE);
/* preview_w_current windows don't have toolbars */
preview_w_current->handleboxes = FALSE;
preview_w_current->toolbars = FALSE;
preview_w_current->drawing_area = GTK_WIDGET (preview);
preview->preview_w_current = preview_w_current;
preview->active = FALSE;
preview->filename = NULL;
preview->buffer = NULL;
GSCHEM_PAGE_VIEW (preview)->page = s_page_new (preview->preview_w_current->toplevel, "preview");
gtk_widget_set_events (GTK_WIDGET (preview),
GDK_EXPOSURE_MASK |
GDK_POINTER_MOTION_MASK |
GDK_BUTTON_PRESS_MASK);
for (tmp = drawing_area_events; tmp->detailed_signal != NULL; tmp++) {
g_signal_connect (GTK_WIDGET (preview),
tmp->detailed_signal,
tmp->c_handler,
preview_w_current);
}
}
/*! \todo Finish function documentation!!!
* \brief
* \par Function Description
*
*/
SCM g_funcs_use_rc_values(void)
{
i_vars_set(g_current_window ());
return SCM_BOOL_T;
}
void
main_prog(void *closure, int argc, char *argv[])
{
int i;
int argv_index;
int exit_status;
char *cwd;
char *logfile;
TOPLEVEL *pr_current;
argv_index = parse_commandline(argc, argv);
cwd = g_get_current_dir();
libgeda_init();
/* create log file right away */
/* even if logging is enabled */
logfile = g_build_filename (cwd, "gsymcheck.log", NULL);
x_log_update_func = s_log_update;
s_log_init (logfile);
g_free (logfile);
logging_dest=STDOUT_TTY;
if (!quiet_mode)
{
s_log_message(
"gEDA/gsymcheck version %s%s.%s\n", PREPEND_VERSION_STRING,
DOTTED_VERSION, DATE_VERSION);
s_log_message(
"gEDA/symcheck comes with ABSOLUTELY NO WARRANTY; see COPYING for more details.\n");
s_log_message(
"This is free software, and you are welcome to redistribute it under certain\n");
s_log_message(
"conditions; please see the COPYING file for more details.\n\n");
}
#ifdef __MINGW32__
fprintf(stderr, "This is the MINGW32 port.\n");
#endif
logging_dest=-1; /* don't output to the screen for now */
/* register guile (scheme) functions */
g_register_funcs();
pr_current = s_toplevel_new ();
g_rc_parse(pr_current, "gsymcheckrc", rc_filename);
i_vars_set(pr_current);
i = argv_index;
while (argv[i] != NULL) {
gchar *filename;
GError *err = NULL;
if (g_path_is_absolute(argv[i]))
{
/* Path is already absolute so no need to do any concat of cwd */
filename = g_strdup (argv[i]);
} else {
filename = g_build_filename (cwd, argv[i], NULL);
}
s_page_goto (pr_current,
s_page_new (pr_current, filename));
if (!f_open (pr_current,
pr_current->page_current->page_filename,
&err)) {
/* Not being able to load a file is apparently a fatal error */
logging_dest = STDOUT_TTY;
g_warning ("%s\n", err->message);
g_error_free (err);
exit(2);
} else {
g_message ("Loaded file [%s]\n", filename);
}
i++;
g_free (filename);
}
if (argv[argv_index] == NULL) {
fprintf(stderr, "\nERROR! You must specify at least one filename\n\n");
usage(argv[0]);
}
g_free(cwd);
logging_dest=STDOUT_TTY;
#if DEBUG
s_page_print_all(pr_current);
#endif
if (!quiet_mode) s_log_message("\n");
exit_status = s_check_all(pr_current);
s_page_delete_list(pr_current);
gsymcheck_quit();
exit(exit_status);
}
void
main_prog(void *closure, int argc, char *argv[])
{
int i;
int argv_index;
int exit_status;
char *cwd;
TOPLEVEL *pr_current;
argv_index = parse_commandline(argc, argv);
cwd = g_get_current_dir();
libgeda_init();
/* create log file right away */
/* even if logging is enabled */
x_log_update_func = s_log_update;
s_log_init ("symcheck");
logging_dest=STDOUT_TTY;
#if defined(__MINGW32__) && defined(DEBUG)
fprintf(stderr, "This is the MINGW32 port.\n");
#endif
logging_dest=-1; /* don't output to the screen for now */
/* register guile (scheme) functions */
g_register_funcs();
pr_current = s_toplevel_new ();
g_rc_parse (pr_current, argv[0], "gsymcheckrc", rc_filename);
i_vars_set(pr_current);
i = argv_index;
while (argv[i] != NULL) {
gchar *filename;
GError *err = NULL;
if (g_path_is_absolute(argv[i]))
{
/* Path is already absolute so no need to do any concat of cwd */
filename = g_strdup (argv[i]);
} else {
filename = g_build_filename (cwd, argv[i], NULL);
}
s_page_goto (pr_current,
s_page_new (pr_current, filename));
if (!f_open (pr_current,
pr_current->page_current,
s_page_get_filename (pr_current->page_current),
&err)) {
/* Not being able to load a file is apparently a fatal error */
logging_dest = STDOUT_TTY;
g_warning ("%s\n", err->message);
g_error_free (err);
exit(2);
} else {
g_message (_("Loaded file [%1$s]\n"), filename);
}
i++;
g_free (filename);
}
if (argv[argv_index] == NULL) {
fprintf(stderr, _("\nERROR! You must specify at least one filename\n\n"));
usage(argv[0]);
}
g_free(cwd);
logging_dest=STDOUT_TTY;
#if DEBUG
s_page_print_all(pr_current);
#endif
if (!quiet_mode) s_log_message("\n");
exit_status = s_check_all(pr_current);
s_page_delete_list(pr_current);
gsymcheck_quit();
exit(exit_status);
}
void main_prog(void *closure, int argc, char *argv[])
{
int i;
int argv_index;
char *cwd;
gchar *str;
gchar *filename;
TOPLEVEL *pr_current;
/* set default output filename */
output_filename = g_strdup("output.net");
argv_index = parse_commandline(argc, argv);
cwd = g_get_current_dir();
scm_set_program_arguments (argc, argv, NULL);
/* this is a kludge to make sure that spice mode gets set */
/* Hacked by SDB to allow spice netlisters of arbitrary name
* as long as they begin with "spice". For example, this spice
* netlister is valid: "spice-sdb".
*/
if (guile_proc) {
if (strncmp(guile_proc, "spice", 5) == 0) {
netlist_mode = SPICE;
}
}
libgeda_init();
/* create log file right away */
/* even if logging is enabled */
s_log_init ("gnetlist");
s_log_message("gEDA/gnetlist version %s%s.%s\n", PREPEND_VERSION_STRING,
PACKAGE_DOTTED_VERSION, PACKAGE_DATE_VERSION);
s_log_message
("gEDA/gnetlist comes with ABSOLUTELY NO WARRANTY; see COPYING for more details.\n");
s_log_message
("This is free software, and you are welcome to redistribute it under certain\n");
s_log_message
("conditions; please see the COPYING file for more details.\n\n");
#if defined(__MINGW32__) && defined(DEBUG)
fprintf(stderr, "This is the MINGW32 port.\n\n");
#endif
/* register guile (scheme) functions */
g_register_funcs();
pr_current = s_toplevel_new ();
/* Evaluate Scheme expressions that need to be run before rc files
* are loaded. */
scm_eval (pre_rc_list, scm_current_module ());
g_rc_parse (pr_current, argv[0], "gnetlistrc", rc_filename);
/* immediately setup user params */
i_vars_set (pr_current);
s_rename_init();
if(list_backends) {
gnetlist_backends(pr_current);
exit (0);
}
/* Evaluate the first set of Scheme expressions before we load any
* schematic files */
scm_eval (pre_backend_list, scm_current_module ());
i = argv_index;
while (argv[i] != NULL) {
GError *err = NULL;
if (g_path_is_absolute(argv[i])) {
/* Path is already absolute so no need to do any concat of cwd */
filename = g_strdup (argv[i]);
} else {
filename = g_build_filename (cwd, argv[i], NULL);
}
if (!quiet_mode) {
s_log_message ("Loading schematic [%s]\n", filename);
printf ("Loading schematic [%s]\n", filename);
}
s_page_goto (pr_current, s_page_new (pr_current, filename));
if (!f_open (pr_current, pr_current->page_current, filename, &err)) {
g_warning ("%s\n", err->message);
fprintf (stderr, "%s\n", err->message);
g_error_free (err);
}
/* collect input filenames for backend use */
input_files = g_slist_append(input_files, argv[i]);
i++;
g_free (filename);
}
/* Change back to the directory where we started. This is done */
/* since gnetlist is a command line utility and will deposit its output */
/* in the current directory. Having the output go to a different */
/* directory will confuse the user (confused me, at first). */
if (chdir (cwd)) {
/* Error occured with chdir */
#warning FIME: What do we do?
}
/* free(cwd); - Defered; see below */
if (argv[argv_index] == NULL) {
fprintf (stderr, "ERROR: No schematics files specified for processing.\n");
fprintf (stderr, "\nRun `%s --help' for more information.\n", argv[0]);
exit (1);
}
g_set_project_current(pr_current);
#if DEBUG
s_page_print_all(pr_current);
#endif
/* Load basic gnetlist functions */
scm_primitive_load_path (scm_from_utf8_string ("gnetlist.scm"));
if (guile_proc) {
SCM s_backend_path;
/* Search for backend scm file in load path */
str = g_strdup_printf("gnet-%s.scm", guile_proc);
s_backend_path = scm_sys_search_load_path (scm_from_locale_string (str));
g_free (str);
/* If it couldn't be found, fail. */
if (scm_is_false (s_backend_path)) {
fprintf (stderr, "ERROR: Could not find backend `%s' in load path.\n",
guile_proc);
fprintf (stderr,
"\nRun `%s --list-backends' for a full list of available backends.\n",
argv[0]);
exit (1);
}
/* Load backend code. */
scm_primitive_load (s_backend_path);
/* Evaluate second set of Scheme expressions. */
scm_eval (post_backend_list, scm_current_module ());
}
s_traverse_init();
s_traverse_start(pr_current);
/* Change back to the directory where we started AGAIN. This is done */
/* because the s_traverse functions can change the Current Working Directory. */
if (chdir (cwd)) {
/* Error occured with chdir */
#warning FIXME: What do we do?
}
g_free(cwd);
/* Run post-traverse code. */
scm_primitive_load_path (scm_from_utf8_string ("gnetlist-post.scm"));
if (guile_proc) {
/* check size here hack */
str = g_strdup_printf ("(%s \"%s\")", guile_proc, output_filename);
scm_c_eval_string (str);
g_free (str);
/* gh_eval_str_with_stack_saving_handler (input_str); */
} else if (interactive_mode) {
scm_c_eval_string ("(set-repl-prompt! \"gnetlist> \")");
scm_shell (0, NULL);
} else {
fprintf(stderr,
"You gave neither backend to execute nor interactive mode!\n");
}
gnetlist_quit();
}
static void
preview_init (Preview *preview)
{
struct event_reg_t {
gchar *detailed_signal;
GCallback c_handler;
} drawing_area_events[] = {
{ "realize", G_CALLBACK (preview_callback_realize) },
{ "expose_event", G_CALLBACK (preview_callback_expose) },
{ "button_press_event", G_CALLBACK (preview_callback_button_press) },
{ "configure_event", G_CALLBACK (preview_event_configure) },
{ "scroll_event", G_CALLBACK (preview_event_scroll) },
{ NULL, NULL }
}, *tmp;
GSCHEM_TOPLEVEL *preview_w_current;
preview_w_current = gschem_toplevel_new ();
preview_w_current->toplevel = s_toplevel_new ();
preview_w_current->toplevel->load_newer_backup_func =
x_fileselect_load_backup;
preview_w_current->toplevel->load_newer_backup_data =
preview_w_current;
o_text_set_rendered_bounds_func (preview_w_current->toplevel,
o_text_get_rendered_bounds,
preview_w_current);
o_add_change_notify (preview_w_current->toplevel,
(ChangeNotifyFunc) o_invalidate,
(ChangeNotifyFunc) o_invalidate,
preview_w_current);
i_vars_set (preview_w_current);
/* be sure to turn off scrollbars */
preview_w_current->scrollbars_flag = FALSE;
/* be sure to turn off the grid */
preview_w_current->grid = FALSE;
/* preview_w_current windows don't have toolbars */
preview_w_current->handleboxes = FALSE;
preview_w_current->toolbars = FALSE;
preview_w_current->toplevel->width = 160;
preview_w_current->toplevel->height = 120;
preview_w_current->win_width = preview_w_current->toplevel->width;
preview_w_current->win_height = preview_w_current->toplevel->height;
preview_w_current->drawing_area = GTK_WIDGET (preview);
preview->preview_w_current = preview_w_current;
g_object_set (GTK_WIDGET (preview),
"width-request", preview_w_current->toplevel->width,
"height-request", preview_w_current->toplevel->height,
NULL);
preview->active = FALSE;
preview->filename = NULL;
preview->buffer = NULL;
gtk_widget_set_events (GTK_WIDGET (preview),
GDK_EXPOSURE_MASK |
GDK_POINTER_MOTION_MASK |
GDK_BUTTON_PRESS_MASK);
for (tmp = drawing_area_events; tmp->detailed_signal != NULL; tmp++) {
g_signal_connect (preview,
tmp->detailed_signal,
tmp->c_handler,
NULL);
}
}
/*! \brief gattrib_main -- main gattrib fcn.
*
* \par
*
*------------------------------------------------------------------*/
void gattrib_main(void *closure, int argc, char *argv[])
{
/* TOPLEVEL *pr_current is a global */
/* SHEET_DATA *sheet_head is a global */
/* GtkWidget *main_window is a global */
int argv_index;
gchar *cwd;
gchar *logfile;
#ifdef HAVE_GTHREAD
/* Gattrib isn't threaded, but some of GTK's file chooser
* backends uses threading so we need to call g_thread_init().
* GLib requires threading be initialised before any other GLib
* functions are called. Do it now if its not already setup. */
if (!g_thread_supported ()) g_thread_init (NULL);
#endif
/* Initialize gEDA stuff */
libgeda_init();
/* Ensure object->sel_func can be used to correctly determine object
* locking when the project is saved out */
select_func = s_toplevel_select_object;
/* Note that argv_index holds index to first non-flag command line option
* (that is, to the first file name) */
argv_index = parse_commandline(argc, argv);
/* ---------- create log file right away ---------- */
/* ---------- even if logging is enabled ---------- */
cwd = g_get_current_dir();
logfile = g_build_filename (cwd, "gattrib.log", NULL);
s_log_init (logfile);
g_free (logfile);
g_free (cwd);
s_log_message
("gEDA/gattrib version %s%s.%s\n", PREPEND_VERSION_STRING,
DOTTED_VERSION, DATE_VERSION);
s_log_message
("gEDA/gattrib comes with ABSOLUTELY NO WARRANTY; see COPYING for more details.\n");
s_log_message
("This is free software, and you are welcome to redistribute it under certain\n");
s_log_message
("conditions; please see the COPYING file for more details.\n\n");
if (!quiet_mode) {
fflush(stderr);
fflush(stdout);
fprintf(stderr,
"gEDA/gattrib version %s%s.%s\n", PREPEND_VERSION_STRING,
DOTTED_VERSION, DATE_VERSION);
fprintf(stderr,
"gEDA/gattrib comes with ABSOLUTELY NO WARRANTY; see COPYING for more details.\n");
fprintf(stderr,
"This is free software, and you are welcome to redistribute it under certain\n");
fprintf(stderr,
"conditions; please see the COPYING file for more details.\n\n");
}
/* ------ register guile (scheme) functions. Necessary to parse RC file. ------ */
g_register_funcs();
/* ---------- Start creation of new project: (TOPLEVEL *pr_current) ---------- */
pr_current = s_toplevel_new();
/* ----- Read in RC files. ----- */
g_rc_parse(pr_current, "gattribrc", NULL);
i_vars_set(pr_current);
gtk_init(&argc, &argv);
x_window_init();
/* ---------- Initialize SHEET_DATA data structure ---------- */
sheet_head = s_sheet_data_new(); /* sheet_head was declared in globals.h */
GSList *file_list = NULL;
if (argv_index >= argc) {
/* No files specified on the command line, pop up the File open dialog. */
file_list = x_fileselect_open();
if(file_list == NULL)
exit(0);
} else {
/* Construct the list of filenames from the command line.
* argv_index holds the position of the first filename */
while (argv_index < argc) {
gchar *filename = f_normalize_filename(argv[argv_index], NULL);
if (filename != NULL) {
file_list = g_slist_append(file_list, filename);
} else {
fprintf(stderr, "Couldn't find file [%s]\n", argv[argv_index]);
exit(1);
}
argv_index++;
}
}
/* Load the files */
if(x_fileselect_load_files(file_list) == FALSE) {
/* just exit the program */
exit(1);
}
g_slist_foreach(file_list, (GFunc)g_free, NULL);
g_slist_free(file_list);
gtk_main();
exit(0);
}
