tres.pas

Turbo Pascal 6.0编译器源码

  S^.Put(sStatusBase + hcChDirButton, 'Change to the specified directory');
  S^.Put(sStatusBase + hcRevertButton, 'Return to the original directory');
  S^.Put(sStatusBase + hcChDirDialog, 'View a help screen about this dialog box');
  S^.Put(sStatusBase + hcWriteBlockDialogBase, 'Enter directory path and file mask');
  S^.Put(sStatusBase + hcWriteBlockDialogBase + 1, 'Type for incremental search: lower for files, upper for directories');
  S^.Put(sStatusBase + hcWriteBlockDialogBase + 2, 'View a help screen about this dialog box');
  S^.Put(sStatusBase + hcReadBlockDialogBase, 'Enter directory path and file mask');
  S^.Put(sStatusBase + hcReadBlockDialogBase + 1, 'Type for incremental search: lower for files, upper for directories');
  S^.Put(sStatusBase + hcReadBlockDialogBase + 2, 'View a help screen about this dialog box');
  S^.Put(sStatusBase + hcGetInfoDialog, 'Close this dialog box');
  S^.Put(sStatusBase + hcTextToFind, 'Enter literal text or regular expression to search for');
  S^.Put(sStatusBase + hcFindOptions, 'Case of letters is significant during search');
  S^.Put(sStatusBase + hcFindOptions + 1, 'Consider only whole words during search');
  S^.Put(sStatusBase + hcFindOptions + 2, 'Interpret search text as a regular expression');
  S^.Put(sStatusBase + hcFindOptions + 3, 'Prompt before replacing text after every match');
  S^.Put(sStatusBase + hcFindDirection, 'Search forward from origin');
  S^.Put(sStatusBase + hcFindDirection + 1, 'Search backward from origin');
  S^.Put(sStatusBase + hcFindScope, 'Search from origin to the end of the edit buffer');
  S^.Put(sStatusBase + hcFindScope + 1, 'Search current selected block of Edit window');
  S^.Put(sStatusBase + hcFindOrigin, 'Start search from current cursor position');
  S^.Put(sStatusBase + hcFindOrigin + 1, 'Start search at beginning of scope');
  S^.Put(sStatusBase + hcFindDialog, 'View a help screen about this dialog box');
  S^.Put(sStatusBase + hcNewText, 'Enter text to replace matching text with');
  S^.Put(sStatusBase + hcChangeAllButton, 'Find all occurrences of the search text and replace them');
  S^.Put(sStatusBase + hcReplaceDialog, 'View a help screen about this dialog box');
  S^.Put(sStatusBase + hcNewLineNumber, 'Move cursor to specified line number in file');
  S^.Put(sStatusBase + hcGotoLineDialog, 'View a help screen about this dialog box');
  S^.Put(sStatusBase + hcProcedureName, 'Enter name of procedure or function to locate');
  S^.Put(sStatusBase + hcFindProcedureDialog, 'View a help screen about this dialog box');
  S^.Put(sStatusBase + hcErrorAddress, 'Find source location corresponding to error address');
  S^.Put(sStatusBase + hcFindErrorDialog, 'View a help screen about this dialog box');
  S^.Put(sStatusBase + hcParameters, 'Enter command line parameters to be passed to your program');
  S^.Put(sStatusBase + hcParametersDialog, 'View a help screen about this dialog box');
  S^.Put(sStatusBase + hcPrimaryFileDialogBase, 'Enter directory path and file mask');
  S^.Put(sStatusBase + hcPrimaryFileDialogBase + 1, 'Type for incremental search: lower for files, upper for directories');
  S^.Put(sStatusBase + hcPrimaryFileDialogBase + 2, 'Clear the file primary file name');
  S^.Put(sStatusBase + hcPrimaryFileDialogBase + 3, 'View a help screen about this dialog box');
  S^.Put(sStatusBase + hcExpression, 'Enter expression to evaluate');
  S^.Put(sStatusBase + hcResult, 'Examine result of expression');
  S^.Put(sStatusBase + hcNewValue, 'Enter new value for expression');
  S^.Put(sStatusBase + hcEvaluateButton, 'Evaluate the expression');
  S^.Put(sStatusBase + hcModifyButton, 'Modify expression');
  S^.Put(sStatusBase + hcEvaluateDialog, 'View a help screen about this dialog box');
  S^.Put(sStatusBase + hcAddWatchExpression, 'Enter expression to add as watch');
  S^.Put(sStatusBase + hcAddWatchDialog, 'View a help screen about this dialog box');
  S^.Put(sStatusBase + hcEditWatchExpression, 'Enter new expression for watch');
  S^.Put(sStatusBase + hcEditWatchDialog, 'View a help screen about this dialog box');
  S^.Put(sStatusBase + hcBreakpointList, 'Use cursor keys to examine list of breakpoints');
  S^.Put(sStatusBase + hcEditBreakpoint, 'Edit the currently selected breakpoint');
  S^.Put(sStatusBase + hcDeleteBreakpoint, 'Delete the currently selected breakpoint');
  S^.Put(sStatusBase + hcViewBreakpoint, 'Position cursor at breakpoint in source code');
  S^.Put(sStatusBase + hcClearAllBreakpoints, 'Delete all breakpoints');
  S^.Put(sStatusBase + hcBreakpointsDialog, 'View a help screen about this dialog box');
  S^.Put(sStatusBase + hcCondition, 'Enter expression which must be TRUE for breakpoint to take effect');
  S^.Put(sStatusBase + hcPassCount, 'Enter number of times BP conditions must be met before breaking');
  S^.Put(sStatusBase + hcFileName, 'Enter name of module to set breakpoint in');
  S^.Put(sStatusBase + hcLineNumber, 'Enter line number in module to set breakpoint on');
  S^.Put(sStatusBase + hcModifyBreakpointButton, 'Modify the existing breakpoint');
  S^.Put(sStatusBase + hcNewBreakpointButton, 'Create a new breakpoint with the given characteristics');
  S^.Put(sStatusBase + hcEditBreakpointDialog, 'View a help screen about this dialog box');
  S^.Put(sStatusBase + hcCodeGeneration, 'Force all procedures and functions to use far call model');
  S^.Put(sStatusBase + hcCodeGeneration + 1, 'Enable units to be overlaid');
  S^.Put(sStatusBase + hcCodeGeneration + 2, 'Align variables and typed constants on word boundaries');
  S^.Put(sStatusBase + hcCodeGeneration + 3, 'Generate 80286 instructions');
  S^.Put(sStatusBase + hcRuntimeErrors, 'Generate range-checking code');
  S^.Put(sStatusBase + hcRuntimeErrors + 1, 'Check for stack overflow on entry to procedures and functions');
  S^.Put(sStatusBase + hcRuntimeErrors + 2, 'Generate runtime error if I/O operation fails');
  S^.Put(sStatusBase + hcSyntaxOptions, 'Var string parameter type must be identical to formal parameter type');
  S^.Put(sStatusBase + hcSyntaxOptions + 1, 'Always evaluate all boolean expressions in a statement');
  S^.Put(sStatusBase + hcSyntaxOptions + 2, 'Enable syntax extensions');
  S^.Put(sStatusBase + hcDebuggingOptions, 'Generate information to allow debugging');
  S^.Put(sStatusBase + hcDebuggingOptions + 1, 'Include local symbols in generated debug information');
  S^.Put(sStatusBase + hcNumericProcessing, 'Generate 8087 code for use with math coprocessor or emulator');
  S^.Put(sStatusBase + hcNumericProcessing + 1, 'Use 8087 emulator if math coprocessor is not present');
  S^.Put(sStatusBase + hcConditionalDefines, 'Define conditional compilation symbols');
  S^.Put(sStatusBase + hcCompilerOptionsDialog, 'View a help screen about this dialog box');
  S^.Put(sStatusBase + hcStackSize, 'Size of your program''s stack segment (between 1024 and 65520)');
  S^.Put(sStatusBase + hcLowHeapLimit, 'Minimum size of heap for your program to run (between 0 and 655360)');
  S^.Put(sStatusBase + hcHighHeapLimit, 'Maximum amount of heap your program will need (between 0 and 655360)');
  S^.Put(sStatusBase + hcMemorySizesDialog, 'View a help screen about this dialog box');
  S^.Put(sStatusBase + hcMapFile, 'Do not generate a .MAP file');
  S^.Put(sStatusBase + hcMapFile + 1, 'Put memory segment information in .MAP file.');
  S^.Put(sStatusBase + hcMapFile + 2, 'Put public symbols in .MAP file');
  S^.Put(sStatusBase + hcMapFile + 3, 'Put segments, symbols and line numbers in .MAP file');
  S^.Put(sStatusBase + hcLinkBuffer + 1, 'Buffer linking on disk to maximize capacity');
  S^.Put(sStatusBase + hcLinkBuffer, 'Buffer linking in memory to maximize speed');
  S^.Put(sStatusBase + hcLinkerDialog, 'View a help screen about this dialog box');
  S^.Put(sStatusBase + hcDebuggingMode, 'Include debug info for the integrated debugger');
  S^.Put(sStatusBase + hcDebuggingMode + 1, 'Include debug info for Turbo Debugger');
  S^.Put(sStatusBase + hcDisplaySwapping, 'Don''t let debugger change display windows when running a program');
  S^.Put(sStatusBase + hcDisplaySwapping + 1, 'Swap screens only if the code does screen output');
  S^.Put(sStatusBase + hcDisplaySwapping + 2, 'Swap screens every time a statement executes');
  S^.Put(sStatusBase + hcDebuggingDialog, 'View a help screen about this dialog box');
  S^.Put(sStatusBase + hcExeTpuDirectory, 'The directory that stores your .EXE, .TPU and .MAP files');
  S^.Put(sStatusBase + hcIncludeDirectories, 'The directories that contain your include files');
  S^.Put(sStatusBase + hcUnitDirectories, 'The directories that contain your unit files');
  S^.Put(sStatusBase + hcObjectDirectories, 'The directories that contain your .OBJ files');
  S^.Put(sStatusBase + hcDirectoriesDialog, 'View a help screen about this dialog box');
  S^.Put(sStatusBase + hcScreenSizes, 'Use a display of 25 lines by 80 columns');
  S^.Put(sStatusBase + hcScreenSizes + 1, 'Display 43 lines by 80 columns (EGA) or 50 lines by 80 columns (VGA)');
  S^.Put(sStatusBase + hcAutoSave, 'Save modified editor files when you DOS shell, run or debug your code');
  S^.Put(sStatusBase + hcAutoSave + 1, 'Save config file when you quit, DOS shell, run or debug your code');
  S^.Put(sStatusBase + hcAutoSave + 2, 'Save desktop when you quit, DOS shell, run or debug your code');
  S^.Put(sStatusBase + hcDesktopFile, 'Do not save desktop file');
  S^.Put(sStatusBase + hcDesktopFile + 1, 'Save desktop file in current directory');
  S^.Put(sStatusBase + hcDesktopFile + 2, 'Save desktop file in same directory as config file');
  S^.Put(sStatusBase + hcSourceTracking, 'Open new window to track source position during debugging');
  S^.Put(sStatusBase + hcSourceTracking + 1, 'During debugging, always track source position in current window');
  S^.Put(sStatusBase + hcPreferencesDialog, 'View a help screen about this dialog box');
  S^.Put(sStatusBase + hcEditorOptions, 'Create a backup (.BAK) file whenever you save');
  S^.Put(sStatusBase + hcEditorOptions + 1, 'Editor uses insert mode by default');
  S^.Put(sStatusBase + hcEditorOptions + 2, 'Turn auto-indentation on by default');
  S^.Put(sStatusBase + hcEditorOptions + 3, 'Insert actual tab characters into file');
  S^.Put(sStatusBase + hcEditorOptions + 4, 'Optimally replace consecutive spaces with tabs');
  S^.Put(sStatusBase + hcEditorOptions + 5, 'Backspace uninidents based on previous starting columns');
  S^.Put(sStatusBase + hcEditorOptions + 6, 'Allow cursor to move through tabs one column at a time');
  S^.Put(sStatusBase + hcTabSize, 'Change the number of columns to use for tab width');
  S^.Put(sStatusBase + hcEditorOptionsDialog, 'View a help screen about this dialog box');
  S^.Put(sStatusBase + hcRightMouseButton, 'Right mouse button does nothing');
  S^.Put(sStatusBase + hcRightMouseButton + 1, 'Selects topic search for indicated word in editor or help window');
  S^.Put(sStatusBase + hcRightMouseButton + 2, 'Runs user program to indicated line');
  S^.Put(sStatusBase + hcRightMouseButton + 3, 'Selects enable/disable or breakpoints');
  S^.Put(sStatusBase + hcRightMouseButton + 4, 'Calls up evaluation dialog');
  S^.Put(sStatusBase + hcRightMouseButton + 5, 'Selects adding expression watches');
  S^.Put(sStatusBase + hcReverseMouseButtons, 'Make the active mouse button the rightmost one, not the leftmost');
  S^.Put(sStatusBase + hcMouseDoubleClick, 'Adjust the double-click speed of your mouse');
  S^.Put(sStatusBase + hcMouseOptionsDialog, 'View a help screen about this dialog box');
  S^.Put(sStatusBase + hcSaveOptionsDialogBase, 'Specify disk file name for saving configuration options');
  S^.Put(sStatusBase + hcSaveOptionsDialogBase + 1, 'Use cursor keys to examine saved configuration files');
  S^.Put(sStatusBase + hcSaveOptionsDialogBase + 2, 'View a help screen about this dialog box');
  S^.Put(sStatusBase + hcRetrieveOptionsDialogBase, 'Specify disk file name for loading configuration options');
  S^.Put(sStatusBase + hcRetrieveOptionsDialogBase + 1, 'Use cursor keys to selected a configuration file for loading');
  S^.Put(sStatusBase + hcRetrieveOptionsDialogBase + 2, 'View a help screen about this dialog box');
  S^.Put(sStatusBase + hcWindowListViewer, 'Use cursor keys to examine windows in window list');
  S^.Put(sStatusBase + hcDeleteWindowButton, 'Remove the selected entry from the window list');
  S^.Put(sStatusBase + hcWindowListDialog, 'View a help screen about this dialog box');
  S^.Put(sStatusBase + hcStartupOptions, 'Use dual monitors to run IDE and user program on separate displays');
  S^.Put(sStatusBase + hcStartupOptions + 1, 'Save and restore all video RAM for debugging graphics programs');
  S^.Put(sStatusBase + hcStartupOptions + 2, 'Save and restore EGA/VGA palette when debugging graphics programs');
  S^.Put(sStatusBase + hcStartupOptions + 3, 'Slow down IDE video output to prevent "snow" on some CGA cards');
  S^.Put(sStatusBase + hcStartupOptions + 4, 'Use LCD colorset in IDE');
  S^.Put(sStatusBase + hcStartupOptions + 5, 'Use expanded memory (EMS) to improve IDE performance and capacity');
  S^.Put(sStatusBase + hcStartupOptions + 6, 'Load TURBO.TPL at startup');
  S^.Put(sStatusBase + hcWindowHeapSize, 'Adjust IDE internal window heap size');
  S^.Put(sStatusBase + hcEditorHeapSize, 'Adjust IDE internal editor heap size');
  S^.Put(sStatusBase + hcOverlayHeapSize, 'Adjust IDE internal overlay heap size');
  S^.Put(sStatusBase + hcSwapFileDirectory, 'Use a RAM disk or fast drive for IDE swap file');
  S^.Put(sStatusBase + hcStartupOptionsDialog, 'View a help screen about this dialog box');
  S^.Put(sStatusBase + hcColorGroupList, 'Use cursor keys to select an IDE group and customize its colors');
  S^.Put(sStatusBase + hcColorItemList, 'Use cursor keys to select an item and customize its colors');
  S^.Put(sStatusBase + hcForegroundSelector, 'Use cursor keys to change foreground color of selected item');
  S^.Put(sStatusBase + hcBackgroundSelector, 'Use cursor keys to change background color of selected item');
  S^.Put(sStatusBase + hcMonoSelector, 'Select low intensity text on a monochrome system');
  S^.Put(sStatusBase + hcMonoSelector + 1, 'Select high intensity text on a monochrome system');
  S^.Put(sStatusBase + hcMonoSelector + 2, 'Select underscored text on a monochrome system');
  S^.Put(sStatusBase + hcMonoSelector + 3, 'Select inverse video text on a monochrome system');
  S^.Put(sStatusBase + hcColorsDialog, 'View a help screen about this dialog box');
  S^.Put(sStatusBase + hcYesButton, 'Perform the action');
  S^.Put(sStatusBase + hcNoButton, 'Do not perform the action');
  S^.Put(sStatusBase + hcHelPCrossRefButton, 'View help on highlighted cross reference');
  FormStrings := S;
end;

begin
  RegisterAllTypes;
  RegisterType(RStrListMaker);
  T.Init(New(PDosStream, Init('turbo.tvr', stCreate)));
  P('FullMenuBar', New(PTurboMenuBar, Init));
  P('StatusLine', New(PTurboStatusLine, Init));
  P('ChDirDialog', New(PChDirDialog, Init(hlChangeDir)));
  P('FindDialog', FindDialog);
  P('ReplaceDialog', New(PReplaceDialog, Init));
  P('GotoLineDialog', GotoLineDialog);
  P('FindProcDialog', FindProcDialog);
  P('FindErrorDialog', FindErrorDialog);
  P('ParamsDialog', ParamsDialog);
  P('EvalDialog', New(PEvalDialog, Init));
  P('AddWatchDialog', AddWatchDialog);
  P('EditWatchDialog', EditWatchDialog);
  P('BreakPtDialog', New(PBreakDialog, Init));
  P('EditBreakDialog', New(PEditBreakDialog, Init));
  P('CompilerOptionsDialog', CompilerOptionsDialog);
  P('MemorySizesDialog', New(PSizesDialog, Init));
  P('LinkerDialog', LinkerDialog);
  P('DebuggingDialog', DebuggingDialog);
  P('DirectoriesDialog', DirectoriesDialog);
  P('Strings', FormStrings);
  P('PreferencesDialog', PreferencesDialog);
  P('EditorOptionsDialog', EditorOptionsDialog);
  P('MouseOptionsDialog', New(PMouseDialog, Init));
  P('StartupOptionsDialog',StartupOptionsDialog);
  P('OpenFileDialog', New(PFileDialog, Init('*.PAS', 'Open a File',
    '~N~ame', fdOpenButton + fdReplaceButton, hlOpenFile, hcOpenFileDialogBase)));
  P('SaveAsDialog', New(PFileDialog, Init('*.PAS', 'Save File As',
    '~S~ave file as', fdOkButton, hlSaveFileAs, hcSaveFileAsDialogBase)));
  P('WriteBlockDialog', New(PFileDialog, Init('*.PAS', 'Write Block to File',
    '~W~rite block to', fdOkButton, hlWriteBlock, hcWriteBlockDialogBase)));
  P('ReadBlockDialog',New(PFileDialog, Init('*.PAS', 'Read Block from File',
    '~R~ead block from', fdOkButton, hlReadBlock, hcReadBlockDialogBase)));
  P('MainFileDialog', New(PFileDialog, Init('*.PAS', 'Primary File',
    '~P~rimary program file', fdOkButton + fdClearButton, hlPrimaryFile, hcPrimaryFileDialogBase)));
  P('SaveOptionsDialog', New(PFileDialog, Init('*.TP', 'Save Option',
    '~O~ptions file name', fdOkButton, hlSaveOptions, hcSaveOptionsDialogBase)));
  P('RetrieveOptionsDialog', New(PFileDialog, Init('*.TP', 'Retrieve Options',
    '~O~ptions file name', fdOkButton, hlRetrieveOptions, hcRetrieveOptionsDialogBase)));
  P('WindowList', WindowListDialog);
  P('AboutDialog', AboutDialog);
  P('GetInfoDialog', GetInfoDialog);
  P('CPUWindow', CpuWindow);
  P('WatchWindow', WatchWindow);
  P('OutputWindow', OutputWindow);
  P('CallStackWindow', CallStackWindow);
  P('CompileWindow', New(PCompileWindow, Init));
  P('YesBtn',NewButton(0, 0, 10, '~Y~es', cmYes, bfNormal, hcYesButton));
  P('NoBtn', NewButton(0, 0, 10, '~N~o', cmNo, bfNormal, hcNoButton));
  P('OkBtn', NewButton(0, 0, 10, 'O~K~', cmOk, bfNormal, hcOkButton));
  P('CnlBtn', NewButton(0, 0, 10, 'Cancel', cmCancel, bfNormal, hcCnlButton));
  P('HelpWindow', HelpWindow);
  P('HelpDialog', HelpDialog);
  P('ColorDialog', ColorDialog);
  S.Init('TURBO.CMD', stOpenRead);
  CommandTable.Load(S);
  T.Put(@CommandTable, 'CommandTable');
  S.Done;
  T.Done;
end.