gschem/src/g_rc.c

   1 /* gEDA - GPL Electronic Design Automation
   2  * gschem - gEDA Schematic Capture
   3  * Copyright (C) 1998-2008 Ales Hvezda
   4  * Copyright (C) 1998-2008 gEDA Contributors (see ChangeLog for details)
   5  *
   6  * This program is free software; you can redistribute it and/or modify
   7  * it under the terms of the GNU General Public License as published by
   8  * the Free Software Foundation; either version 2 of the License, or
   9  * (at your option) any later version.
  10  *
  11  * This program is distributed in the hope that it will be useful,
  12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14  * GNU General Public License for more details.
  15  *
  16  * You should have received a copy of the GNU General Public License
  17  * along with this program; if not, write to the Free Software
  18  * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111 USA
  19  */
  20 #include <config.h>
  21 #include <version.h>
  22
  23 #include <stdio.h>
  24 #include <sys/stat.h>
  25 #include <ctype.h>
  26 #ifdef HAVE_STRING_H
  27 #include <string.h>
  28 #endif
  29 #ifdef HAVE_STDLIB_H
  30 #include <stdlib.h>
  31 #endif
  32 #ifdef HAVE_UNISTD_H
  33 #include <unistd.h>
  34 #endif
  35
  36 #include "gschem.h"
  37
  38 #ifdef HAVE_LIBDMALLOC
  39 #include <dmalloc.h>
  40 #endif
  41
  42 /*! \todo Finish function documentation!!!
  43  *  \brief
  44  *  \par Function Description
  45  *
  46  */
  47 void g_rc_parse_gtkrc()
  48 {
  49   gchar *filename;
  50
  51   filename = g_build_filename (s_path_sys_config (), "gschem-gtkrc", NULL);
  52   gtk_rc_parse (filename);
  53   g_free (filename);
  54
  55   filename = g_build_filename (s_path_user_config (), "gschem-gtkrc", NULL);
  56   gtk_rc_parse (filename);
  57   g_free (filename);
  58 }
  59
  60 /*! \todo Finish function documentation!!!
  61  *  \brief
  62  *  \par Function Description
  63  *
  64  */
  65 SCM g_rc_gschem_version(SCM version)
  66 {
  67   SCM ret;
  68
  69   SCM_ASSERT (scm_is_string (version), version,
  70               SCM_ARG1, "gschem-version");
  71
  72   if (g_strcasecmp (SCM_STRING_CHARS (version), PACKAGE_DATE_VERSION) != 0) {
  73     fprintf(stderr,
  74             "You are running gEDA/gaf version [%s%s.%s],\n",
  75             PREPEND_VERSION_STRING, PACKAGE_DOTTED_VERSION,
  76             PACKAGE_DATE_VERSION);
  77     fprintf(stderr,
  78             "but you have a version [%s] gschemrc file:\n[%s]\n",
  79             SCM_STRING_CHARS (version), rc_filename);
  80     fprintf(stderr,
  81             "Please be sure that you have the latest rc file.\n");
  82     ret = SCM_BOOL_F;
  83   } else {
  84     ret = SCM_BOOL_T;
  85   }
  86
  87   return ret;
  88 }
  89
  90 /*! \todo Finish function documentation!!!
  91  *  \brief
  92  *  \par Function Description
  93  *
  94  */
  95 SCM g_rc_net_endpoint_mode(SCM mode)
  96 {
  97   static const vstbl_entry mode_table[] = {
  98     {FILLEDBOX, "filledbox"}
  99   };
 100
 101   RETURN_G_RC_MODE("net-endpoint-mode",
 102                    default_net_endpoint_mode,
 103                    1);
 104 }
 105
 106 /*! \todo Finish function documentation!!!
 107  *  \brief
 108  *  \par Function Description
 109  *
 110  */
 111 SCM g_rc_net_midpoint_mode(SCM mode)
 112 {
 113   static const vstbl_entry mode_table[] = {
 114     {FILLED, "filled"}
 115   };
 116
 117   RETURN_G_RC_MODE("net-midpoint-mode",
 118                    default_net_midpoint_mode,
 119                    1);
 120 }
 121
 122 /*! \todo Finish function documentation!!!
 123  *  \brief
 124  *  \par Function Description
 125  *
 126  */
 127 SCM g_rc_net_direction_mode(SCM mode)
 128 {
 129   static const vstbl_entry mode_table[] = {
 130     {TRUE , "enabled" },
 131     {FALSE, "disabled"}
 132   };
 133
 134   RETURN_G_RC_MODE("net-direction-mode",
 135                    default_net_direction_mode,
 136                    2);
 137 }
 138
 139 /*! \todo Finish function documentation!!!
 140  *  \brief
 141  *  \par Function Description
 142  *
 143  */
 144 SCM g_rc_net_selection_mode(SCM mode)
 145 {
 146   static const vstbl_entry mode_table[] = {
 147     {0, "disabled"},
 148     {2, "enabled_net"},
 149     {3, "enabled_all"}
 150   };
 151
 152   RETURN_G_RC_MODE("net-selection-mode",
 153                    default_net_selection_mode,
 154                    3);
 155 }
 156
 157 /*! \todo Finish function documentation!!!
 158  *  \brief
 159  *  \par Function Description
 160  *
 161  */
 162 SCM g_rc_net_style(SCM mode)
 163 {
 164   static const vstbl_entry mode_table[] = {
 165     {THIN , "thin" },
 166     {THICK, "thick"}
 167   };
 168
 169   RETURN_G_RC_MODE("net-style",
 170                    default_net_style,
 171                    2);
 172 }
 173
 174 /*! \todo Finish function documentation!!!
 175  *  \brief
 176  *  \par Function Description
 177  *
 178  */
 179 SCM g_rc_bus_style(SCM mode)
 180 {
 181   static const vstbl_entry mode_table[] = {
 182     {THIN , "thin" },
 183     {THICK, "thick"}
 184   };
 185
 186   RETURN_G_RC_MODE("bus-style",
 187                    default_bus_style,
 188                    2);
 189 }
 190
 191 /*! \todo Finish function documentation!!!
 192  *  \brief
 193  *  \par Function Description
 194  *
 195  */
 196 SCM g_rc_pin_style(SCM mode)
 197 {
 198   static const vstbl_entry mode_table[] = {
 199     {THIN , "thin" },
 200     {THICK, "thick"}
 201   };
 202
 203   RETURN_G_RC_MODE("pin-style",
 204                    default_pin_style,
 205                    2);
 206 }
 207
 208 /*! \todo Finish function documentation!!!
 209  *  \brief
 210  *  \par Function Description
 211  *
 212  */
 213 SCM g_rc_line_style(SCM mode)
 214 {
 215   static const vstbl_entry mode_table[] = {
 216     {THIN , "thin" },
 217     {THICK, "thick"}
 218   };
 219
 220   RETURN_G_RC_MODE("line-style",
 221                    default_line_style,
 222                    2);
 223 }
 224
 225 /*! \todo Finish function documentation!!!
 226  *  \brief
 227  *  \par Function Description
 228  *
 229  */
 230 SCM g_rc_action_feedback_mode(SCM mode)
 231 {
 232   static const vstbl_entry mode_table[] = {
 233     {OUTLINE    , "outline"   },
 234     {BOUNDINGBOX, "boundingbox"}
 235   };
 236
 237   RETURN_G_RC_MODE("action-feedback-mode",
 238                    default_actionfeedback_mode,
 239                    2);
 240 }
 241
 242 /*! \todo Finish function documentation!!!
 243  *  \brief
 244  *  \par Function Description
 245  *
 246  */
 247 SCM g_rc_zoom_with_pan(SCM mode)
 248 {
 249   static const vstbl_entry mode_table[] = {
 250     {TRUE,  "enabled" },
 251     {FALSE, "disabled"}
 252   };
 253
 254   RETURN_G_RC_MODE("zoom-with-pan",
 255                    default_zoom_with_pan,
 256                    2);
 257 }
 258
 259 /*! \todo Finish function documentation!!!
 260  *  \brief
 261  *  \par Function Description
 262  *
 263  */
 264 SCM g_rc_text_feedback(SCM mode)
 265 {
 266   static const vstbl_entry mode_table[] = {
 267     {ALWAYS            , "always"            },
 268     {ONLY_WHEN_READABLE, "only-when-readable"}
 269   };
 270
 271   RETURN_G_RC_MODE("text-feedback",
 272                    default_text_feedback,
 273                    2);
 274 }
 275
 276 /*! \todo Finish function documentation!!!
 277  *  \brief
 278  *  \par Function Description
 279  *
 280  */
 281 SCM g_rc_text_display_zoomfactor(SCM zoomfactor)
 282 {
 283   int val;
 284
 285   SCM_ASSERT (scm_is_integer (zoomfactor), zoomfactor,
 286               SCM_ARG1, "test-display-zoom-factor");
 287
 288   val = scm_to_int (zoomfactor);
 289   if (val == 0) {
 290     fprintf(stderr,
 291             _("Invalid zoomfactor [%d] passed to %s\n"),
 292             val,
 293             "text-display-zoom-factor");
 294     val = 10; /* absolute default */
 295   }
 296
 297   default_text_display_zoomfactor = val;
 298
 299   return SCM_BOOL_T;
 300 }
 301
 302 /*! \todo Finish function documentation!!!
 303  *  \brief
 304  *  \par Function Description
 305  *
 306  */
 307 SCM g_rc_scrollbar_update(SCM scmmode)
 308 {
 309   SCM ret = SCM_BOOL_T;
 310
 311   SCM_ASSERT (scm_is_string (scmmode), scmmode,
 312               SCM_ARG1, "scrollbar-update");
 313
 314   return ret;
 315 }
 316
 317 /*! \todo Finish function documentation!!!
 318  *  \brief
 319  *  \par Function Description
 320  *
 321  */
 322 SCM g_rc_object_clipping(SCM mode)
 323 {
 324   static const vstbl_entry mode_table[] = {
 325     {TRUE , "enabled" },
 326     {FALSE, "disabled"}
 327   };
 328
 329   RETURN_G_RC_MODE("object-clipping",
 330                    default_object_clipping,
 331                    2);
 332 }
 333
 334 /*! \todo Finish function documentation!!!
 335  *  \brief
 336  *  \par Function Description
 337  *
 338  */
 339 SCM g_rc_logging(SCM mode)
 340 {
 341   static const vstbl_entry mode_table[] = {
 342     {TRUE , "enabled" },
 343     {FALSE, "disabled"}
 344   };
 345
 346   RETURN_G_RC_MODE("logging",
 347                    default_do_logging,
 348                    2);
 349 }
 350
 351 /*! \todo Finish function documentation!!!
 352  *  \brief
 353  *  \par Function Description
 354  *
 355  */
 356 SCM g_rc_embed_components(SCM mode)
 357 {
 358   static const vstbl_entry mode_table[] = {
 359     {TRUE , "enabled" },
 360     {FALSE, "disabled"}
 361   };
 362
 363   RETURN_G_RC_MODE("embed-components",
 364                    default_embed_complex,
 365                    2);
 366 }
 367
 368 /*! \brief read the configuration string list for the component dialog
 369  *  \par Function Description
 370  *  This function reads the string list from the component-dialog-attributes
 371  *  configuration parameter and converts the list into a GList.
 372  *  The GList is stored in the global default_component_select_attrlist variable.
 373  */
 374 SCM g_rc_component_dialog_attributes(SCM stringlist)
 375 {
 376   int length, i;
 377   GList *list=NULL;
 378   gchar *attr;
 379
 380   SCM_ASSERT(scm_list_p(stringlist), stringlist, SCM_ARG1, "scm_is_list failed");
 381   length = scm_ilength(stringlist);
 382
 383   /* If the command is called multiple times, remove the old list before
 384      recreating it */
 385   g_list_foreach(default_component_select_attrlist, (GFunc)g_free, NULL);
 386   g_list_free(default_component_select_attrlist);
 387
 388   /* convert the scm list into a GList */
 389   for (i=0; i < length; i++) {
 390     SCM_ASSERT(scm_is_string(scm_list_ref(stringlist, scm_from_int(i))),
 391                scm_list_ref(stringlist, scm_from_int(i)), SCM_ARG1,
 392                "list element is not a string");
 393     attr = g_strdup(SCM_STRING_CHARS(scm_list_ref(stringlist, scm_from_int(i))));
 394     list = g_list_prepend(list, attr);
 395   }
 396
 397   default_component_select_attrlist = g_list_reverse(list);
 398
 399   return SCM_BOOL_T;
 400 }
 401
 402
 403 /*! \todo Finish function documentation!!!
 404  *  \brief
 405  *  \par Function Description
 406  *
 407  */
 408 SCM g_rc_text_size(SCM size)
 409 {
 410   int val;
 411
 412   SCM_ASSERT (scm_is_integer (size), size, SCM_ARG1, "text-size");
 413
 414   val = scm_to_int (size);
 415   if (val == 0) {
 416     fprintf(stderr,
 417             _("Invalid size [%d] passed to text-size\n"),
 418             val);
 419     val = 10; /* absolute default */
 420   }
 421
 422   default_text_size = val;
 423
 424   return SCM_BOOL_T;
 425 }
 426
 427 /*! \brief Catch deprecated option to set the output font scaling factor
 428  *
 429  *  \par This setting used to change the scale of the output PS font
 430  *  characters. Since gEDA 1.6.0, this is fixed to match the on-screen
 431  *  font size.
 432  *
 433  *  \return SCM_BOOL_T always.
 434  */
 435
 436 SCM g_rc_postscript_font_scale(SCM scale)
 437 {
 438   g_warning (_("\n"
 439                "The config option postscript-font-scale is "
 440                "deprecated and will be removed in gEDA 1.8.0.\n"
 441                "Printed text is fixed to match on-screen sizes. "
 442                "Please remove this option from your config files.\n"
 443                "\n"));
 444
 445   return SCM_BOOL_T;
 446 }
 447
 448 /*! \todo Finish function documentation!!!
 449  *  \brief
 450  *  \par Function Description
 451  *
 452  *  \todo inconsistant naming with keyword name and variable to hold
 453  *        variable
 454  */
 455 SCM g_rc_text_caps_style(SCM mode)
 456 {
 457   static const vstbl_entry mode_table[] = {
 458     {LOWER, "lower" },
 459     {UPPER, "upper" },
 460     {BOTH , "both"  }
 461   };
 462
 463   RETURN_G_RC_MODE("text-caps-style",
 464                    default_text_caps,
 465                    3);
 466 }
 467
 468 /*! \todo Finish function documentation!!!
 469  *  \brief
 470  *  \par Function Description
 471  *
 472  */
 473 SCM g_rc_snap_size(SCM size)
 474 {
 475   int val;
 476
 477   SCM_ASSERT (scm_is_integer (size), size, SCM_ARG1, "snap-size");
 478
 479   val = scm_to_int (size);
 480   if (val == 0) {
 481     fprintf(stderr, _("Invalid size [%d] passed to snap-size\n"),
 482             val);
 483     val = 100; /* absolute default */
 484   }
 485
 486   default_snap_size = val;
 487
 488   return SCM_BOOL_T;
 489 }
 490
 491 /*! \todo Finish function documentation!!!
 492  *  \brief
 493  *  \par Function Description
 494  *
 495  */
 496 SCM g_rc_logging_destination(SCM mode)
 497 {
 498   static const vstbl_entry mode_table[] = {
 499     {LOG_WINDOW         , "log_window" },
 500     {STDOUT_TTY         , "tty"        },
 501     {BOTH_LOGWIN_STDOUT , "both"       }
 502   };
 503
 504   RETURN_G_RC_MODE("logging-destination",
 505                    logging_dest,
 506                    3);
 507 }
 508
 509 /*! \todo Finish function documentation!!!
 510  *  \brief
 511  *  \par Function Description
 512  *
 513  */
 514 SCM g_rc_attribute_name(SCM scm_path)
 515 {
 516   char *path;
 517   SCM ret;
 518
 519   SCM_ASSERT (scm_is_string (scm_path), scm_path,
 520               SCM_ARG1, "attribute-name");
 521
 522   path = SCM_STRING_CHARS (scm_path);
 523
 524   /* not unique? */
 525   if (!s_attrib_uniq(path)) {
 526     ret = SCM_BOOL_F;
 527   } else {
 528     s_attrib_add_entry (path);
 529     ret = SCM_BOOL_T;
 530   }
 531
 532   return ret;
 533 }
 534
 535 /*! \todo Finish function documentation!!!
 536  *  \brief
 537  *  \par Function Description
 538  *
 539  */
 540 SCM g_rc_scrollbars(SCM mode)
 541 {
 542   static const vstbl_entry mode_table[] = {
 543     {TRUE , "enabled" },
 544     {FALSE, "disabled"},
 545   };
 546
 547   RETURN_G_RC_MODE("scrollbars",
 548                    default_scrollbars_flag,
 549                    2);
 550 }
 551
 552 /*! \todo Finish function documentation!!!
 553  *  \brief
 554  *  \par Function Description
 555  *
 556  */
 557 SCM g_rc_paper_size(SCM width, SCM height)
 558 #define FUNC_NAME "paper-size"
 559 {
 560   SCM_ASSERT (SCM_NIMP (width) && SCM_REALP (width), width,
 561               SCM_ARG1, FUNC_NAME);
 562   SCM_ASSERT (SCM_NIMP (height) && SCM_REALP (height), height,
 563               SCM_ARG2, FUNC_NAME);
 564
 565   /* yes this is legit, we are casting the resulting double to an int */
 566   default_paper_width  = (int) (SCM_NUM2DOUBLE (0, width)  * MILS_PER_INCH);
 567   default_paper_height = (int) (SCM_NUM2DOUBLE (0, height) * MILS_PER_INCH);
 568
 569   return SCM_BOOL_T;
 570 }
 571 #undef FUNC_NAME
 572
 573 /*! \todo Finish function documentation!!!
 574  *  \brief
 575  *  \par Function Description
 576  *
 577  */
 578 SCM g_rc_paper_sizes(SCM scm_papername, SCM scm_width, SCM scm_height)
 579 #define FUNC_NAME "paper-sizes"
 580 {
 581   int width;
 582   int height;
 583   char *papername;
 584   SCM ret;
 585
 586   SCM_ASSERT (scm_is_string (scm_papername), scm_papername,
 587               SCM_ARG1, FUNC_NAME);
 588   SCM_ASSERT (SCM_NIMP (scm_width) && SCM_REALP (scm_width), scm_width,
 589               SCM_ARG2, FUNC_NAME);
 590   SCM_ASSERT (SCM_NIMP (scm_height) && SCM_REALP (scm_height), scm_height,
 591               SCM_ARG3, FUNC_NAME);
 592
 593   papername = SCM_STRING_CHARS (scm_papername);
 594   width  = (int) (SCM_NUM2DOUBLE (0, scm_width)  * MILS_PER_INCH);
 595   height = (int) (SCM_NUM2DOUBLE (0, scm_height) * MILS_PER_INCH);
 596
 597   if (!s_papersizes_uniq(papername)) {
 598     ret = SCM_BOOL_F;
 599   } else {
 600     s_papersizes_add_entry(papername, width, height);
 601     ret = SCM_BOOL_T;
 602   }
 603
 604   return ret;
 605 }
 606 #undef FUNC_NAME
 607
 608 /*! \todo Finish function documentation!!!
 609  *  \brief
 610  *  \par Function Description
 611  *
 612  *  \todo this keyword needs a better name ...
 613  */
 614 SCM g_rc_output_type(SCM mode)
 615 {
 616   static const vstbl_entry mode_table[] = {
 617     {WINDOW, "current window" },
 618     {EXTENTS, "limits" },  /* deprecated */
 619     {EXTENTS, "extents" },
 620     {EXTENTS_NOMARGINS, "extents no margins" },
 621   };
 622
 623   RETURN_G_RC_MODE("output-type",
 624                    default_print_output_type,
 625                    4);
 626 }
 627
 628 /*! \todo Finish function documentation!!!
 629  *  \brief
 630  *  \par Function Description
 631  *
 632  */
 633 SCM g_rc_output_orientation(SCM mode)
 634 {
 635   static const vstbl_entry mode_table[] = {
 636     {PORTRAIT , "portrait" },
 637     {LANDSCAPE, "landscape"},
 638   };
 639
 640   RETURN_G_RC_MODE("output-orientation",
 641                    default_print_orientation,
 642                    2);
 643 }
 644
 645 /*! \todo Finish function documentation!!!
 646  *  \brief
 647  *  \par Function Description
 648  *
 649  */
 650 SCM g_rc_image_color(SCM mode)
 651 {
 652   static const vstbl_entry mode_table[] = {
 653     {TRUE , "enabled" },
 654     {FALSE, "disabled"},
 655   };
 656
 657   RETURN_G_RC_MODE("image-color",
 658                    default_image_color,
 659                    2);
 660 }
 661
 662 /*! \todo Finish function documentation!!!
 663  *  \brief
 664  *  \par Function Description
 665  *
 666  */
 667 SCM g_rc_image_size(SCM width, SCM height)
 668 {
 669   SCM_ASSERT (scm_is_integer (width),  width,  SCM_ARG1, "image-size");
 670   SCM_ASSERT (scm_is_integer (height), height, SCM_ARG2, "image-size");
 671
 672   /* yes this is legit, we are casting the resulting double to an int */
 673   default_image_width  = scm_to_int (width);
 674   default_image_height = scm_to_int (height);
 675
 676   return SCM_BOOL_T;
 677 }
 678
 679 /*! \todo Finish function documentation!!!
 680  *  \brief
 681  *  \par Function Description
 682  *
 683  */
 684 SCM g_rc_output_color(SCM mode)
 685 {
 686   static const vstbl_entry mode_table[] = {
 687     {TRUE , "enabled" },
 688     {FALSE, "disabled"},
 689   };
 690
 691   /* this variable is inconsistantly named with the rest */
 692   RETURN_G_RC_MODE("output-color",
 693                    default_print_color,
 694                    2);
 695 }
 696
 697 /*! \todo Finish function documentation!!!
 698  *  \brief
 699  *  \par Function Description
 700  *
 701  */
 702 SCM g_rc_output_capstyle(SCM mode)
 703 {
 704   static const vstbl_entry mode_table[] = {
 705     {BUTT_CAP , "butt" },
 706     {ROUND_CAP , "round" },
 707     {SQUARE_CAP, "square"},
 708   };
 709
 710   RETURN_G_RC_MODE("output-capstyle",
 711                    default_print_output_capstyle,
 712                    3);
 713 }
 714
 715 /*! \todo Finish function documentation!!!
 716  *  \brief
 717  *  \par Function Description
 718  *
 719  */
 720 SCM g_rc_log_window(SCM mode)
 721 {
 722   static const vstbl_entry mode_table[] = {
 723     {MAP_ON_STARTUP, "startup" },
 724     {MAP_LATER     , "later"   },
 725   };
 726
 727   RETURN_G_RC_MODE("log-window",
 728                    default_log_window,
 729                    2);
 730 }
 731
 732 /*! \todo Finish function documentation!!!
 733  *  \brief
 734  *  \par Function Description
 735  *
 736  */
 737 SCM g_rc_log_window_type(SCM mode)
 738 {
 739   static const vstbl_entry mode_table[] = {
 740     {TRANSIENT, "transient" },
 741     {DECORATED, "decorated" },
 742   };
 743
 744   RETURN_G_RC_MODE("log-window-type",
 745                    default_log_window_type,
 746                    2);
 747 }
 748
 749 /*! \todo Finish function documentation!!!
 750  *  \brief
 751  *  \par Function Description
 752  *
 753  */
 754 SCM g_rc_third_button(SCM mode)
 755 {
 756   static const vstbl_entry mode_table[] = {
 757     {POPUP_ENABLED   , "popup"   },
 758     {MOUSEPAN_ENABLED, "mousepan"},
 759   };
 760
 761   RETURN_G_RC_MODE("third-button",
 762                    default_third_button,
 763                    2);
 764 }
 765
 766 /*! \todo Finish function documentation!!!
 767  *  \brief
 768  *  \par Function Description
 769  *
 770  */
 771 SCM g_rc_middle_button(SCM mode)
 772 {
 773   static const vstbl_entry mode_table[] = {
 774     {STROKE, "stroke"},
 775     {REPEAT, "repeat"},
 776     {ACTION, "action"},
 777     {MID_MOUSEPAN_ENABLED, "mousepan"},
 778   };
 779
 780   RETURN_G_RC_MODE("middle-button",
 781                    default_middle_button,
 782                    4);
 783 }
 784
 785 /*! \todo Finish function documentation!!!
 786  *  \brief
 787  *  \par Function Description
 788  *
 789  */
 790 SCM g_rc_scroll_wheel(SCM mode)
 791 {
 792   static const vstbl_entry mode_table[] = {
 793     {SCROLL_WHEEL_CLASSIC, "classic"},
 794     {SCROLL_WHEEL_GTK,     "gtk"},
 795   };
 796
 797   RETURN_G_RC_MODE("scroll-wheel",
 798                    default_scroll_wheel,
 799                    2);
 800 }
 801
 802 /*! \todo Finish function documentation!!!
 803  *  \brief
 804  *  \par Function Description
 805  *
 806  */
 807 SCM g_rc_net_consolidate(SCM mode)
 808 {
 809   static const vstbl_entry mode_table[] = {
 810     {TRUE , "enabled" },
 811     {FALSE, "disabled"},
 812   };
 813
 814   RETURN_G_RC_MODE("net-consolidate",
 815                    default_net_consolidate,
 816                    2);
 817 }
 818
 819 /*! \todo Finish function documentation!!!
 820  *  \brief
 821  *  \par Function Description
 822  *
 823  */
 824 SCM g_rc_file_preview(SCM mode)
 825 {
 826   static const vstbl_entry mode_table[] = {
 827     {TRUE , "enabled" },
 828     {FALSE, "disabled"},
 829   };
 830
 831   /* this variable is inconsistantly named with the rest */
 832   RETURN_G_RC_MODE("file-preview",
 833                    default_file_preview,
 834                    2);
 835 }
 836
 837 /*! \todo Finish function documentation!!!
 838  *  \brief
 839  *  \par Function Description
 840  *
 841  */
 842 SCM g_rc_enforce_hierarchy(SCM mode)
 843 {
 844   static const vstbl_entry mode_table[] = {
 845     {TRUE , "enabled" },
 846     {FALSE, "disabled"},
 847   };
 848
 849   RETURN_G_RC_MODE("enforce-hierarchy",
 850                    default_enforce_hierarchy,
 851                    2);
 852 }
 853
 854 /*! \todo Finish function documentation!!!
 855  *  \brief
 856  *  \par Function Description
 857  *
 858  */
 859 SCM g_rc_text_origin_marker(SCM mode)
 860 {
 861   static const vstbl_entry mode_table[] = {
 862     {TRUE , "enabled" },
 863     {FALSE, "disabled"},
 864   };
 865
 866   RETURN_G_RC_MODE("text-origin-marker",
 867                    default_text_origin_marker,
 868                    2);
 869 }
 870
 871 /*! \todo Finish function documentation!!!
 872  *  \brief
 873  *  \par Function Description
 874  *
 875  */
 876 SCM g_rc_fast_mousepan(SCM mode)
 877 {
 878   static const vstbl_entry mode_table[] = {
 879     {TRUE , "enabled" },
 880     {FALSE, "disabled"},
 881   };
 882
 883   RETURN_G_RC_MODE("fast-mousepan",
 884                    default_fast_mousepan,
 885                    2);
 886 }
 887
 888 /*! \todo Finish function documentation!!!
 889  *  \brief
 890  *  \par Function Description
 891  *
 892  */
 893 SCM g_rc_raise_dialog_boxes_on_expose(SCM mode)
 894 {
 895   static const vstbl_entry mode_table[] = {
 896     {TRUE , "enabled" },
 897     {FALSE, "disabled"},
 898   };
 899
 900   RETURN_G_RC_MODE("raise-dialog-boxes-on-expose",
 901                    default_raise_dialog_boxes,
 902                    2);
 903 }
 904
 905 /*! \todo Finish function documentation!!!
 906  *  \brief
 907  *  \par Function Description
 908  *
 909  */
 910 SCM g_rc_continue_component_place(SCM mode)
 911 {
 912   static const vstbl_entry mode_table[] = {
 913     {TRUE , "enabled" },
 914     {FALSE, "disabled"},
 915   };
 916
 917   RETURN_G_RC_MODE("continue-component-place",
 918                    default_continue_component_place,
 919                    2);
 920 }
 921
 922 /*! \todo Finish function documentation!!!
 923  *  \brief
 924  *  \par Function Description
 925  *
 926  */
 927 SCM g_rc_undo_levels(SCM levels)
 928 {
 929   int val;
 930
 931   SCM_ASSERT (scm_is_integer (levels), levels, SCM_ARG1, "undo-levels");
 932
 933   val = scm_to_int (levels);
 934
 935   if (val == 0) {
 936     fprintf(stderr, _("Invalid num levels [%d] passed to undo-levels\n"),
 937             val);
 938     val = 10; /* absolute default */
 939   }
 940
 941   default_undo_levels = val;
 942
 943   return SCM_BOOL_T;
 944 }
 945
 946 /*! \todo Finish function documentation!!!
 947  *  \brief
 948  *  \par Function Description
 949  *
 950  */
 951 SCM g_rc_undo_control(SCM mode)
 952 {
 953   static const vstbl_entry mode_table[] = {
 954     {TRUE , "enabled" },
 955     {FALSE, "disabled"},
 956   };
 957
 958   RETURN_G_RC_MODE("undo-control", default_undo_control, 2);
 959 }
 960
 961 /*! \todo Finish function documentation!!!
 962  *  \brief
 963  *  \par Function Description
 964  *
 965  */
 966 SCM g_rc_undo_type(SCM mode)
 967 {
 968   static const vstbl_entry mode_table[] = {
 969     {UNDO_DISK  , "disk"   },
 970     {UNDO_MEMORY, "memory" },
 971   };
 972
 973   RETURN_G_RC_MODE("undo-type",
 974                    default_undo_type,
 975                    2);
 976 }
 977
 978 /*! \todo Finish function documentation!!!
 979  *  \brief
 980  *  \par Function Description
 981  *
 982  */
 983 SCM g_rc_undo_panzoom(SCM mode)
 984 {
 985   static const vstbl_entry mode_table[] = {
 986     {TRUE , "enabled" },
 987     {FALSE, "disabled"},
 988   };
 989
 990   RETURN_G_RC_MODE("undo-panzoom", default_undo_panzoom, 2);
 991 }
 992
 993 /*! \todo Finish function documentation!!!
 994  *  \brief
 995  *  \par Function Description
 996  *
 997  */
 998 SCM g_rc_draw_grips(SCM mode)
 999 {
1000   static const vstbl_entry mode_table[] = {
1001     {TRUE , "enabled" },
1002     {FALSE, "disabled"},
1003   };
1004
1005   RETURN_G_RC_MODE("draw-grips",
1006                    default_draw_grips,
1007                    2);
1008 }
1009
1010 /*! \todo Finish function documentation!!!
1011  *  \brief
1012  *  \par Function Description
1013  *
1014  */
1015 SCM g_rc_netconn_rubberband(SCM mode)
1016 {
1017   static const vstbl_entry mode_table[] = {
1018     {TRUE , "enabled" },
1019     {FALSE, "disabled"},
1020   };
1021
1022   RETURN_G_RC_MODE("netconn-rubberband",
1023                    default_netconn_rubberband,
1024                    2);
1025 }
1026
1027
1028 /*! \todo Finish function documentation!!!
1029  *  \brief
1030  *  \par Function Description
1031  *
1032  */
1033 SCM g_rc_magnetic_net_mode(SCM mode)
1034 {
1035   static const vstbl_entry mode_table[] = {
1036     {TRUE , "enabled" },
1037     {FALSE, "disabled"},
1038   };
1039
1040   RETURN_G_RC_MODE("magnetic-net-mode",
1041                    default_magnetic_net_mode,
1042                    2);
1043 }
1044
1045 /*! \todo Finish function documentation!!!
1046  *  \brief
1047  *  \par Function Description
1048  *
1049  */
1050 SCM g_rc_sort_component_library(SCM mode)
1051 {
1052   static const vstbl_entry mode_table[] = {
1053     {TRUE , "enabled" },
1054     {FALSE, "disabled"},
1055   };
1056
1057   RETURN_G_RC_MODE("sort_component_library",
1058                    default_sort_component_library,
1059                    2);
1060 }
1061
1062 /*! \todo Finish function documentation!!!
1063  *  \brief
1064  *  \par Function Description
1065  *
1066  */
1067 SCM g_rc_add_menu(SCM menu_name, SCM menu_items)
1068 {
1069   SCM_ASSERT (scm_is_string (menu_name), menu_name,
1070               SCM_ARG1, "add-menu");
1071   SCM_ASSERT (SCM_NIMP (menu_items) && SCM_CONSP (menu_items), menu_items,
1072               SCM_ARG2, "add-menu");
1073
1074   s_menu_add_entry(SCM_STRING_CHARS (menu_name), menu_items);
1075
1076   return SCM_BOOL_T;
1077 }
1078
1079 /*! \todo Finish function documentation!!!
1080  *  \brief
1081  *  \par Function Description
1082  *
1083  */
1084 SCM g_rc_window_size(SCM width, SCM height)
1085 {
1086   SCM_ASSERT (scm_is_integer (width),  width,  SCM_ARG1, "window-size");
1087   SCM_ASSERT (scm_is_integer (height), height, SCM_ARG2, "window-size");
1088
1089   default_width  = scm_to_int (width);
1090   default_height = scm_to_int (height);
1091
1092   return SCM_BOOL_T;
1093 }
1094
1095 /*! \todo Finish function documentation!!!
1096  *  \brief
1097  *  \par Function Description
1098  *
1099  */
1100 SCM g_rc_warp_cursor(SCM mode)
1101 {
1102   static const vstbl_entry mode_table[] = {
1103     {TRUE , "enabled" },
1104     {FALSE, "disabled"},
1105   };
1106
1107   RETURN_G_RC_MODE("warp-cursor",
1108                    default_warp_cursor,
1109                    2);
1110 }
1111
1112 /*! \todo Finish function documentation!!!
1113  *  \brief
1114  *  \par Function Description
1115  *
1116  */
1117 SCM g_rc_toolbars(SCM mode)
1118 {
1119   static const vstbl_entry mode_table[] = {
1120     {TRUE , "enabled" },
1121     {FALSE, "disabled"},
1122   };
1123
1124   RETURN_G_RC_MODE("toolbars",
1125                    default_toolbars,
1126                    2);
1127 }
1128
1129 /*! \todo Finish function documentation!!!
1130  *  \brief
1131  *  \par Function Description
1132  *
1133  */
1134 SCM g_rc_handleboxes(SCM mode)
1135 {
1136   static const vstbl_entry mode_table[] = {
1137     {TRUE , "enabled" },
1138     {FALSE, "disabled"},
1139   };
1140
1141   RETURN_G_RC_MODE("handleboxes",
1142                    default_handleboxes,
1143                    2);
1144 }
1145
1146 /*! \todo Finish function documentation!!!
1147  *  \brief
1148  *  \par Function Description
1149  *
1150  */
1151 SCM g_rc_setpagedevice_orientation(SCM mode)
1152 {
1153   static const vstbl_entry mode_table[] = {
1154     {TRUE , "enabled" },
1155     {FALSE, "disabled"},
1156   };
1157
1158   RETURN_G_RC_MODE("setpagedevice-orientation",
1159                    default_setpagedevice_orientation,
1160                    2);
1161 }
1162
1163 /*! \todo Finish function documentation!!!
1164  *  \brief
1165  *  \par Function Description
1166  *
1167  */
1168 SCM g_rc_setpagedevice_pagesize(SCM mode)
1169 {
1170   static const vstbl_entry mode_table[] = {
1171     {TRUE , "enabled" },
1172     {FALSE, "disabled"},
1173   };
1174
1175   RETURN_G_RC_MODE("setpagedevice-pagesize",
1176                    default_setpagedevice_pagesize,
1177                    2);
1178 }
1179
1180 /*! \todo Finish function documentation!!!
1181  *  \brief
1182  *  \par Function Description
1183  *
1184  */
1185 SCM g_rc_bus_ripper_size(SCM size)
1186 {
1187   int val;
1188
1189   SCM_ASSERT (scm_is_integer (size), size, SCM_ARG1, "bus-ripper-size");
1190
1191   val = scm_to_int (size);
1192
1193   if (val == 0) {
1194     fprintf(stderr, _("Invalid size [%d] passed to bus-ripper-size\n"),
1195             val);
1196     val = 200; /* absolute default */
1197   }
1198
1199   default_bus_ripper_size = val;
1200
1201   return SCM_BOOL_T;
1202 }
1203
1204 /*! \todo Finish function documentation!!!
1205  *  \brief
1206  *  \par Function Description
1207  *
1208  */
1209 SCM g_rc_bus_ripper_type(SCM mode)
1210 {
1211   static const vstbl_entry mode_table[] = {
1212     {COMP_BUS_RIPPER, "component" },
1213     {NET_BUS_RIPPER,  "net" }
1214   };
1215
1216   RETURN_G_RC_MODE("bus-ripper-type",
1217                    default_bus_ripper_type,
1218                    2);
1219 }
1220
1221 /*! \todo Finish function documentation!!!
1222  *  \brief
1223  *  \par Function Description
1224  *
1225  */
1226 SCM g_rc_bus_ripper_rotation(SCM mode)
1227 {
1228   static const vstbl_entry mode_table[] = {
1229     {SYMMETRIC,     "symmetric" },
1230     {NON_SYMMETRIC, "non-symmetric"  }
1231   };
1232
1233   RETURN_G_RC_MODE("bus-ripper-rotation",
1234                    default_bus_ripper_rotation,
1235                    2);
1236 }
1237
1238 /*! \todo Finish function documentation!!!
1239  *  \brief
1240  *  \par Function Description
1241  *
1242  */
1243 SCM g_rc_force_boundingbox(SCM mode)
1244 {
1245   static const vstbl_entry mode_table[] = {
1246     {TRUE,  "enabled" },
1247     {FALSE, "disabled"  }
1248   };
1249
1250   RETURN_G_RC_MODE("force-boundingbox",
1251                    default_force_boundingbox,
1252                    2);
1253 }
1254
1255 /*! \todo Finish function documentation!!!
1256  *  \brief
1257  *  \par Function Description
1258  *
1259  */
1260 SCM g_rc_dots_grid_dot_size (SCM dotsize)
1261 {
1262   int val;
1263
1264   SCM_ASSERT (scm_is_integer (dotsize), dotsize, SCM_ARG1, "dots-grid-dot-size");
1265
1266   val = scm_to_int (dotsize);
1267
1268   if (val <= 0) {
1269     fprintf(stderr, _("Invalid dot size [%d] passed to dots-grid-dot-size\n"),
1270             val);
1271     val = 1; /* absolute default */
1272   }
1273
1274   default_dots_grid_dot_size = val;
1275
1276   return SCM_BOOL_T;
1277 }
1278
1279 /*! \todo Finish function documentation!!!
1280  *  \brief
1281  *  \par Function Description
1282  *
1283  */
1284 SCM g_rc_dots_grid_mode (SCM mode)
1285 {
1286   static const vstbl_entry mode_table[] = {
1287     {DOTS_GRID_VARIABLE_MODE, "variable" },
1288     {DOTS_GRID_FIXED_MODE,    "fixed"  }
1289   };
1290
1291   RETURN_G_RC_MODE ("dots-grid-mode",
1292                     default_dots_grid_mode,
1293                     2);
1294 }
1295
1296 /*! \todo Finish function documentation!!!
1297  *  \brief
1298  *  \par Function Description
1299  *
1300  */
1301 SCM g_rc_dots_grid_fixed_threshold (SCM spacing)
1302 {
1303   int val;
1304
1305   SCM_ASSERT (scm_is_integer (spacing), spacing, SCM_ARG1, "dots-grid-fixed-threshold");
1306
1307   val = scm_to_int (spacing);
1308
1309   if (val <= 0) {
1310     fprintf(stderr, _("Invalid pixel spacing [%d] passed to dots-grid-fixed-threshold\n"),
1311             val);
1312     val = 10; /* absolute default */
1313   }
1314
1315   default_dots_grid_fixed_threshold = val;
1316
1317   return SCM_BOOL_T;
1318 }
1319
1320
1321 /*! \todo Finish function documentation!!!
1322  *  \brief
1323  *  \par Function Description
1324  *
1325  */
1326 SCM g_rc_mesh_grid_display_threshold (SCM spacing)
1327 {
1328   int val;
1329
1330   SCM_ASSERT (scm_is_integer (spacing), spacing, SCM_ARG1,
1331               "mesh-grid-display-threshold");
1332
1333   val = scm_to_int (spacing);
1334
1335   if (val <= 0) {
1336     fprintf (stderr, _("Invalid pixel spacing [%d] passed to "
1337                        "mesh-grid-display-threshold\n"), val);
1338     val = 3; /* absolute default */
1339   }
1340
1341   default_mesh_grid_display_threshold = val;
1342
1343   return SCM_BOOL_T;
1344 }
1345
1346 /*! \todo Finish function documentation!!!
1347  *  \brief
1348  *  \par Function Description
1349  *
1350  */
1351 SCM g_rc_add_attribute_offset(SCM offset)
1352 {
1353   int val;
1354
1355   SCM_ASSERT (scm_is_integer (offset), offset,
1356               SCM_ARG1, "add-attribute-offset");
1357
1358   val = scm_to_int (offset);
1359
1360   if (val < 0) {
1361     fprintf(stderr, _("Invalid offset [%d] passed to add-attribute-offset\n"),
1362             val);
1363     val = 50; /* absolute default */
1364   }
1365
1366   default_add_attribute_offset = val;
1367
1368   return SCM_BOOL_T;
1369 }
1370
1371 /*! \todo Finish function documentation!!!
1372  *  \brief
1373  *  \par Function Description
1374  *
1375  */
1376 SCM g_rc_auto_save_interval(SCM seconds)
1377 {
1378   int val;
1379
1380   SCM_ASSERT (scm_is_integer (seconds), seconds, SCM_ARG1, "auto-save-interval");
1381
1382   val = scm_to_int (seconds);
1383
1384   if (val < 0) {
1385     fprintf(stderr, _("Invalid number of seconds [%d] passed to auto-save-interval\n"),
1386             val);
1387     val = 120; /* absolute default */
1388   }
1389
1390   default_auto_save_interval = val;
1391
1392   return SCM_BOOL_T;
1393 }
1394
1395 /*! \todo Finish function documentation!!!
1396  *  \brief
1397  *  \par Function Description
1398  *
1399  */
1400 SCM g_rc_drag_can_move(SCM mode)
1401 {
1402   static const vstbl_entry mode_table[] = {
1403     {TRUE,  "enabled" },
1404     {FALSE, "disabled"  }
1405   };
1406
1407   RETURN_G_RC_MODE("drag-can-move",
1408                    default_drag_can_move,
1409                    2);
1410 }
1411
1412 /*! \todo Finish function documentation!!!
1413  *  \brief
1414  *  \par Function Description
1415  *
1416  */
1417 SCM g_rc_mousepan_gain(SCM gain)
1418 {
1419   int val;
1420
1421   SCM_ASSERT (scm_is_integer (gain), gain, SCM_ARG1, "mousepan-gain");
1422
1423   val = scm_to_int (gain);
1424
1425   if (val <= 0) {
1426     fprintf(stderr, _("Invalid gain [%d] passed to mousepan-gain\n"),
1427             val);
1428     val = 5; /* absolute default */
1429   }
1430
1431   default_mousepan_gain = val;
1432
1433   return SCM_BOOL_T;
1434 }
1435
1436 /*! \brief Scheme function for setting the step for keyboard pan.
1437  *
1438  * Default setting is 20.
1439  */
1440 SCM g_rc_keyboardpan_gain(SCM gain)
1441 {
1442   int val;
1443
1444   SCM_ASSERT (scm_is_integer (gain), gain, SCM_ARG1, "keyboardpan-gain");
1445
1446   val = scm_to_int (gain);
1447
1448   if (val <= 0) {
1449     fprintf(stderr, _("Invalid gain [%d] passed to keyboardpan-gain\n"),
1450             val);
1451     val = 20; /* absolute default */
1452   }
1453
1454   default_keyboardpan_gain = val;
1455
1456   return SCM_BOOL_T;
1457 }
1458
1459 /*! \todo Finish function documentation!!!
1460  *  \brief
1461  *  \par Function Description
1462  *
1463  */
1464 SCM g_rc_print_command(SCM scm_command)
1465 #define FUNC_NAME "print-command"
1466 {
1467   char *command;
1468
1469   SCM_ASSERT (scm_is_string (scm_command), scm_command,
1470               SCM_ARG1, FUNC_NAME);
1471
1472   command = SCM_STRING_CHARS (scm_command);
1473
1474   g_free (default_print_command);
1475   default_print_command = g_strdup (command);
1476
1477   return SCM_BOOL_T;
1478 }
1479 #undef FUNC_NAME
1480
1481 /*! \todo Finish function documentation!!!
1482  *  \brief
1483  *  \par Function Description
1484  *
1485  */
1486 SCM g_rc_select_slack_pixels(SCM pixels)
1487 {
1488   int val;
1489
1490   SCM_ASSERT (scm_is_integer (pixels), pixels, SCM_ARG1, "select-slack-pixels");
1491
1492   val = scm_to_int (pixels);
1493
1494   if (val <= 0) {
1495     fprintf(stderr, _("Invalid number of pixels [%d] passed to select-slack-pixels\n"),
1496             val);
1497     val = 4; /* absolute default */
1498   }
1499
1500   default_select_slack_pixels = val;
1501
1502   return SCM_BOOL_T;
1503 }
1504
1505 /*! \todo Finish function documentation!!!
1506  *  \brief
1507  *  \par Function Description
1508  *
1509  */
1510 SCM g_rc_zoom_gain(SCM gain)
1511 {
1512   int val;
1513
1514   SCM_ASSERT (scm_is_integer (gain), gain, SCM_ARG1, "zoom-gain");
1515
1516   val = scm_to_int (gain);
1517
1518   /* Allow -ve numbers in case the user wishes to reverse zoom direction,
1519    * but don't allow zero gain as this would disable the zoom action */
1520   if (val == 0) {
1521     fprintf(stderr, _("Invalid gain [%d] passed to zoom-gain\n"), val);
1522     val = 20; /* absolute default */
1523   }
1524
1525   default_zoom_gain = val;
1526
1527   return SCM_BOOL_T;
1528 }
1529
1530 /*! \todo Finish function documentation!!!
1531  *  \brief
1532  *  \par Function Description
1533  *
1534  */
1535 SCM g_rc_scrollpan_steps(SCM steps)
1536 {
1537   int val;
1538
1539   SCM_ASSERT (scm_is_integer (steps), steps, SCM_ARG1, "scrollpan-steps");
1540
1541   val = scm_to_int (steps);
1542
1543   /* Allow -ve numbers in case the user wishes to reverse scroll direction,
1544    * but don't allow zero steps as this would cause a division by zero error */
1545   if (val == 0) {
1546     fprintf(stderr, _("Invalid number of steps [%d] scrollpan-steps\n"), val);
1547     val = 8; /* absolute default */
1548   }
1549
1550   default_scrollpan_steps = val;
1551
1552   return SCM_BOOL_T;
1553 }
1554
1555
1556 extern COLOR display_colors[MAX_COLORS];
1557 extern COLOR display_outline_colors[MAX_COLORS];
1558
1559 SCM g_rc_display_color_map (SCM scm_map)
1560 {
1561   if (scm_map == SCM_UNDEFINED) {
1562     return s_color_map_to_scm (display_colors);
1563   }
1564
1565   SCM_ASSERT (scm_is_true (scm_list_p (scm_map)),
1566               scm_map, SCM_ARG1, "display-color-map");
1567
1568   s_color_map_from_scm (display_colors, scm_map, "display-color-map");
1569   return SCM_BOOL_T;
1570 }
1571
1572 SCM g_rc_display_outline_color_map (SCM scm_map)
1573 {
1574   if (scm_map == SCM_UNDEFINED) {
1575     return s_color_map_to_scm (display_outline_colors);
1576   }
1577
1578   SCM_ASSERT (scm_is_true (scm_list_p (scm_map)),
1579               scm_map, SCM_ARG1, "display-outline-color-map");
1580
1581   s_color_map_from_scm (display_outline_colors, scm_map, "display-outline-color-map");
1582   return SCM_BOOL_T;
1583 }