Here is the configuration file .xcoralrc provided in this distribution.
/* ----------------------------------------------------------
load standard libraries
---------------------------------------------------------- */
{
/* general SMAC programmer and XCORAL user utilities */
load_file("utilities.sc");
/* C and C++ mode, auto indent, reindent, indent region etc */
load_file("mode.sc" );
/* provide class method and function profile */
load_file("head.sc");
/* extract logical pathname from automount pathname */
load_file("hack-filename.sc");
/* command shell utilities, grep make user interface */
load_file("cmd.sc" );
/* for us frenchies */
load_file("french.sc");
/* SMAC functions writer and/or user help */
load_file("describe.sc");
/* extensions of C and C++ modes */
load_file("mode-ext.sc");
/* mouse customization */
load_file("mouse.sc");
/* C C++ comments facilities */
load_file("comments.sc");
/* file title and custom organization title */
load_file("title.sc");
/* save file utilities */
load_file("save.sc");
/* global set key utilities */
load_file("keydef-ext.sc");
/* word completion */
load_file("complete-word.sc");
/* window-utilities */
load_file("window-utilities.sc");
/* compare two windows */
load_file("compare-win.sc");
/* latex indent */
load_file("latex.sc");
/* color region buffer */
load_file("color.sc");
/* edit directory */
load_file("edir.sc");
/* rcs interface */
load_file("rcs.sc");
/* Version control */
load_file("version.sc");
/* Latex utilities */
load_file("latex-macros.sc");
/* Misc utilities */
load_file("misc-commands.sc");
/* html utilities */
load_file("html.sc");
}
/* -------------------------------------------------------------------------
define fonts
------------------------------------------------------------------------- */
{
set_mode_font("default",
"-adobe-courier-medium-r-normal--14-140-75-75-m-90-iso8859-1");
set_mode_font("C-mode",
"-adobe-courier-medium-r-normal--14-140-75-75-m-90-iso8859-1");
set_mode_font("C++mode",
"-adobe-courier-medium-r-normal--14-140-75-75-m-90-iso8859-1");
set_mode_font("Latex",
"-adobe-courier-medium-r-normal--14-140-75-75-m-90-iso8859-1");
set_mode_font("Html",
"-adobe-courier-medium-r-normal--14-140-75-75-m-90-iso8859-1");
set_mode_font("Ada",
"-adobe-courier-medium-r-normal--14-140-75-75-m-90-iso8859-1");
set_mode_font("Perl",
"-adobe-courier-medium-r-normal--14-140-75-75-m-90-iso8859-1");
set_mode_font("Fortran",
"-adobe-courier-medium-r-normal--14-140-75-75-m-90-iso8859-1");
set_mode_font("shell",
"-adobe-courier-medium-r-normal--14-140-75-75-m-90-iso8859-1");
set_mode_font("Shell",
"-adobe-courier-medium-r-normal--14-140-75-75-m-90-iso8859-1");
set_mode_font ("french",
"-adobe-courier-medium-r-normal--14-140-75-75-m-90-iso8859-1");
}
/* -------------------------------------------------------------------------
define suffixes
------------------------------------------------------------------------- */
{
set_mode_suffixes("C++mode",".c .cc .h .sc");
set_mode_suffixes("C-mode",".c .h .sc .xcoralrc");
set_mode_suffixes("Latex",".tex .latex .sty");
set_mode_suffixes("Html",".html");
set_mode_suffixes("Perl",".pl");
set_mode_suffixes("Fortran",".f");
set_mode_suffixes("Ada",".a");
set_mode_suffixes("french",".txt .texte");
}
/* -------------------------------------------------------------------------
define modes on which global_key_def operates
------------------------------------------------------------------------- */
{
globalize_mode("default");
globalize_mode("C-mode");
globalize_mode("C++mode");
globalize_mode("Latex");
globalize_mode("Html");
globalize_mode("Perl");
globalize_mode("Ada");
globalize_mode("Fortran");
globalize_mode("shell");
globalize_mode("french");
globalize_mode("Shell");
}
/* -------------------------------------------------------------------------
define keys
------------------------------------------------------------------------- */
{
global_key_def("^xt", "transpose_chars");
global_key_def("^xy", "transpose_forms");
global_key_def("^[\\", "delete_line_blanks");
global_key_def("^[ ", "just_one_blank");
global_key_def("^[k", "delete_to_beginning_of_line");
global_key_def("^xc", "center_line");
global_key_def("^[m", "recenter");
global_key_def("^x#", "sharp_comment");
global_key_def("^x+", "plus_comment");
global_key_def("^x=", "equal_comment");
global_key_def("^x-", "minus_comment");
global_key_def("^x%", "percent_comment");
global_key_def("^xz", "update_title_and_save_file");
global_key_def("^xs", "update_title_backup_and_save_file");
global_key_def("^[/", "complete_word");
global_key_def("^xC", "CompareAgain");
global_key_def("^xg", "go_next");
global_key_def("^xa", "color_buffer");
global_key_def("^xr", "color_region");
global_key_def("^xd", "edir");
key_def("Edir", "^xd", "edir");
key_def("Shell", "^[b", "backward_c_form");
key_def("Shell", "^[f", "forward_c_form");
key_def("Shell", "^[d", "delete_next_c_form");
key_def("Shell", "^[\b", "delete_previous_c_form");
key_def("Shell", "^[\177", "delete_previous_c_form"); /* esc delete */
key_def("Shell", "^x^c", "quit_shell");
}
/* --------------------------------------------------------------------------------
French accents in Latex mode.
-------------------------------------------------------------------------------- */
{
key_def("Latex", "'", "french_accent");
key_def("Latex", "`", "french_accent");
key_def("Latex", "^^", "french_accent");
key_def("Latex", "\"", "french_accent");
}
/* --------------------------------------------------------------------------------
User commands: call by Users commands item in Misc Menu.
-------------------------------------------------------------------------------- */
user_commands()
{
/****
char *str;
int win = current_window();
clear_list();
add_list_item("User smac function 1");
add_list_item("User smac function 2");
add_list_item("User smac function 3");
str = select_from_list("User commands");
redisplay();
select_window(win);
if(str==0 || strlen(str) < 2) {
return;
}
if (strcmp(str,"User smac function 1")==0) {
user_smac_function_1();
return;
}
...
****/
}
}
The function user_commands() allows you to define your own functions that will
appear in the item User commands of the menu Misc.