QBasic & Borland Pascal & C/Delphi5.iso/C/BC_502/SCRIPT.PAK/STARTUP.SPP

Text File | 1997-05-06 | 5.7 KB | 158 lines

//----------------------------------------------------------------------------
// cScript
// (C) Copyright 1995, 1997 by Borland International, All Rights Reserved
//
// STARTUP.SPP
//    Script component of cScript startup process.
//
// $Revision:   1.70  $
//
//----------------------------------------------------------------------------

//
// Create an instance of the IDEApplication object called IDE.  This instance
// will be used across all IDE supplied scripts to represent the IDE.
// IDE is the only script variable whose existence is known internally within
// the IDE.  Its prescence is required for the IDE to function properly.
//
export __const IDE = new IDEApplication();

// mark this module as being a library module
library;

//
// Show the user that we will perform some work.
//
IDE.StartWaitCursor();

export scriptEngine = new ScriptEngine();
scriptEngine.DiagnosticMessageMask &= ~OBJECT_DIAGNOSTICS;

//
// The call to initialize the ProjectManager will cause the IDE to load its initial
// project file.  Most likely this will be the BCWDEF.IDE project, although a project
// can be specified on the command line.  Regardless, the act of opening a project
// causes any files "currently" open to be shut down and saved off to the project's
// desktop file.  If you want to create your own edit buffers, do so after this has
// been called.
//

IDE.ProjectManagerInitialize();

//
// Performs assignments based upon the request keyboard.
//
LoadKeyboard(){
 // Process the keyboard data files and commands.
 // IDEBASE.KBB Common and core keyboard assignments file name.
 // For future expansion...
 // declare sFileName = new String(scriptEngine.StartupDirectory + "IDEBASE.KBB");
 // declare General = new KeyboardDataFile(sFileName.Text,FALSE);

 // editor.KBD Assignments based upon Options|Environment+Editor.
   declare String sEmulation(IDE.KeyboardAssignmentFile);
   sEmulation = sEmulation.SubString(0,sEmulation.Index(".")-1).Text + "Emulation(false);";
   scriptEngine.Execute(sEmulation);

 // For future expansion...
 // declare Custom  = new KeyboardDataFile("CUSTOM.KBC");
}

//
// Dynamically load scripts as necessary in order to optimize script engine
// performance.
//
scriptEngine.SymbolLoad("filters", "ParseBorlandMessages, ParseGenericMessages, \
                                    ParseGrepMessages, ParseHelpCompilerMessages, \
                                                                        ParseResourceCompilerMessages, \
                                                                        ParseFilenameMessages, ParseAssemblerMessages");

scriptEngine.SymbolLoad("mate", "LoadMateFunctionality");

scriptEngine.SymbolLoad("openfile", "LoadFileAtCursor, FindFileOnPath, \
                                     SmartFileLoad");

scriptEngine.SymbolLoad("BRIEFEx", "assign_to_key, block_search, center, \
                                    delete_macro, load_macro, next_char, \
                                    unload_macro, prev_char, tolower, toupper, \
                                    i_search, swap_anchor");

scriptEngine.SymbolLoad("ctxflopn", "ContextSensitiveFileDialog");

//
// Script engine must have these modules loaded for a comprehensive IDE.
//
scriptEngine.Load("miscscr");
scriptEngine.Load("edit");
scriptEngine.Load("debug");
scriptEngine.Load("ide");
scriptEngine.Load("filtstub");

//
// Process the keyboard file.
//
LoadKeyboard();

//
// Set script diagnostic level.
//
scriptEngine.DiagnosticMessageMask |= OBJECT_DIAGNOSTICS;

//
// Setup default view regions.
//
// Each of the main IDE View types has a region associated with it.  A View's
// region determines its initial position and is also used during Tile and
// Cascade operations.  The following calls determine the window characteristics
// of the IDE, namely that Editor windows shold reside in the top two thirds
// of the desktop and that the Message and Project windows occupy the lower
// third (right on top of each other).  The first argument to SetRegion
// specifies the name of the region.  The remaining arguments are dimensions
// that should be in the range 1 - 10000.  The dimensions are used at runtime
// to calculate a ratio of the IDE's desktop area to use.  Ten thousand means
// the whole thing, 5000 means half, etc.  The order of the dimension arguments
// is: left, right, top, bottom.
//
//IDE.SetRegion("Editor", 1, 1, 10000, 6666);  // traditional layout
IDE.SetRegion("Editor", 1, 1, 7000, 6666);
IDE.SetRegion("Message", 1, 6666, 10000, 10000);
// IDE.SetRegion("Project", 1, 6666, 10000, 10000);  // traditional layout
IDE.SetRegion("Project", 7000, 1, 10000, 6666);

IDE.SetRegion("Watches", 1, 1, 10000, 6666);
IDE.SetRegion("Breakpoints", 1, 1, 10000, 6666);
IDE.SetRegion("Call Stack", 1, 1, 10000, 6666);
IDE.SetRegion("Processes", 1, 1, 10000, 6666);
IDE.SetRegion("Inspector", 1, 1, 10000, 6666);
IDE.SetRegion("Evaluator", 1, 1, 10000, 6666);
IDE.SetRegion("CPU", 1, 1, 10000, 6666);

//
// Provide access to the example scripts.
//
scriptEngine.Load("exscr");

//
// Must be after EXSCR because EXSCR adds "assign_to_view_menu" to the global
// namespace
//
assign_to_view_menu("IDE", "&Debug|&View Locals", "debugger.Inspect(\"$locals\");",
   "inspect the variables which are owned by the currently active scope");

//
// Provide access to editor tool tips
//
scriptEngine.Load("tips");

//
// Notify IDE user of progress, set diagnostic state and regions.
//
print("IDE loaded in " + IDE.LoadTime + " milliseconds.");
print("Startup completed.");

//
// Show the user that we have completed the work.
//
IDE.EndWaitCursor();