tres.pas

Turbo Pascal 6.0编译器源码

  S^.Put(sErrorBase + 161, 'Code generation error');
  S^.Put(sErrorBase + 162, 'ASM expected');

  S^.Put(sRuntimeErrorBase, 'Runtime error');
  S^.Put(sRuntimeErrorBase + 1, 'Invalid DOS function code');
  S^.Put(sRuntimeErrorBase + 2, 'File not found');
  S^.Put(sRuntimeErrorBase + 3, 'Path not found');
  S^.Put(sRuntimeErrorBase + 4, 'Too many open files');
  S^.Put(sRuntimeErrorBase + 5, 'File access denied');
  S^.Put(sRuntimeErrorBase + 6, 'Invalid file handle');
  S^.Put(sRuntimeErrorBase + 7, '');
  S^.Put(sRuntimeErrorBase + 8, 'Not enough memory');
  S^.Put(sRuntimeErrorBase + 9, '');
  S^.Put(sRuntimeErrorBase + 10, '');
  S^.Put(sRuntimeErrorBase + 11, '');
  S^.Put(sRuntimeErrorBase + 12, 'Invalid file access code');
  S^.Put(sRuntimeErrorBase + 13, '');
  S^.Put(sRuntimeErrorBase + 14, '');
  S^.Put(sRuntimeErrorBase + 15, 'Invalid drive number');
  S^.Put(sRuntimeErrorBase + 16, 'Cannot remove current directory');
  S^.Put(sRuntimeErrorBase + 17, 'Cannot rename across drives');
  S^.Put(sRuntimeErrorBase + 100, 'Disk read error');
  S^.Put(sRuntimeErrorBase + 101, 'Disk write error');
  S^.Put(sRuntimeErrorBase + 102, 'File not assigned');
  S^.Put(sRuntimeErrorBase + 103, 'File not open');
  S^.Put(sRuntimeErrorBase + 104, 'File not open for input');
  S^.Put(sRuntimeErrorBase + 105, 'File not open for output');
  S^.Put(sRuntimeErrorBase + 106, 'Invalid numeric format');
  S^.Put(sRuntimeErrorBase + 150, 'Disk is write-protected');
  S^.Put(sRuntimeErrorBase + 151, '');
  S^.Put(sRuntimeErrorBase + 152, 'Drive not ready');
  S^.Put(sRuntimeErrorBase + 153, '');
  S^.Put(sRuntimeErrorBase + 154, 'CRC error in data');
  S^.Put(sRuntimeErrorBase + 155, '');
  S^.Put(sRuntimeErrorBase + 156, 'Disk seek error');
  S^.Put(sRuntimeErrorBase + 157, '');
  S^.Put(sRuntimeErrorBase + 158, 'Sector not found');
  S^.Put(sRuntimeErrorBase + 159, 'Printer out of paper');
  S^.Put(sRuntimeErrorBase + 160, 'Device write fault');
  S^.Put(sRuntimeErrorBase + 161, 'Device read fault');
  S^.Put(sRuntimeErrorBase + 162, 'Hardware failure');
  S^.Put(sRuntimeErrorBase + 200, 'Division by zero');
  S^.Put(sRuntimeErrorBase + 201, 'Range check error');
  S^.Put(sRuntimeErrorBase + 202, 'Stack overflow error');
  S^.Put(sRuntimeErrorBase + 203, 'Heap overflow error');
  S^.Put(sRuntimeErrorBase + 204, 'Invalid pointer operation');
  S^.Put(sRuntimeErrorBase + 205, 'Floating point overflow');
  S^.Put(sRuntimeErrorBase + 206, 'Floating point underflow');
  S^.Put(sRuntimeErrorBase + 207, 'Invalid floating point operation');
  S^.Put(sRuntimeErrorBase + 208, 'Overlay manager not installed');
  S^.Put(sRuntimeErrorBase + 209, 'Overlay file read error');
  S^.Put(sRuntimeErrorBase + 210, 'Object not initialized');
  S^.Put(sRuntimeErrorBase + 211, 'Call to abstract method');
  S^.Put(sRuntimeErrorBase + 212, 'Stream registration error');
  S^.Put(sRuntimeErrorBase + 213, 'Collection index out of range');
  S^.Put(sRuntimeErrorBase + 214, 'Collection overflow error');

  S^.Put(sProgramStatusBase + psNoProgram, 'No program');
  S^.Put(sProgramStatusBase + psCompiled, '%s compiled');
  S^.Put(sProgramStatusBase + psRunning, '%s running');
  S^.Put(sProgramStatusBase + psTerminated, '%s terminated, exit code %d');

  S^.Put(sMonthBase + 1, 'Jan');
  S^.Put(sMonthBase + 2, 'Feb');
  S^.Put(sMonthBase + 3, 'Mar');
  S^.Put(sMonthBase + 4, 'Apr');
  S^.Put(sMonthBase + 5, 'May');
  S^.Put(sMonthBase + 6, 'Jun');
  S^.Put(sMonthBase + 7, 'Jul');
  S^.Put(sMonthBase + 8, 'Aug');
  S^.Put(sMonthBase + 9, 'Sep');
  S^.Put(sMonthBase + 10, 'Oct');
  S^.Put(sMonthBase + 11, 'Nov');
  S^.Put(sMonthBase + 12, 'Dec');
  S^.Put(sDirectoryLine, ' %-12s %-9d %3s %2d, %4d  %2d:%02d%cm');
  S^.Put(sFileLine, ' %-12s %-9s %3s %2d, %4d  %2d:%02d%cm');
  S^.Put(sDirectory, 'Directory');
  S^.Put(sTooManyFiles, 'Too many files to display.');

  S^.Put(sLoading, 'Loading %s.');
  S^.Put(sSaving, 'Saving %s.');

  S^.Put(sWatchString, '%c%s: %s');
  S^.Put(sTooManyWatches, 'Too many watches.');

  S^.Put(sDestinationBase, 'Memory');
  S^.Put(sDestinationBase + cfDisk, 'Disk');

  S^.Put(sHelpFileName, 'TURBO.HLP');
  S^.Put(sNoHelpFile, 'Cannot locate help file, TURBO.HLP.');
  S^.Put(sInvalidHelpFile, 'Invalid help file, TURBO.HLP.');
  S^.Put(sHelpSign1, 'TURBO PASCAL HELP FILE.');
  S^.Put(sHelpSign2, '$*$* &&&&$*$');

  S^.Put(sClipboard, 'Clipboard');
  S^.Put(sEditorErrorBase + eeLineTooLong, 'Line too long, truncated.');
  S^.Put(sEditorErrorBase + eeTooManyLines, 'Too many lines, ignoring extra.');
  S^.Put(sEditorErrorBase + eeNoVirtMem, 'Not enough virtual memory for operation.');
  S^.Put(sEditorErrorBase + eeHeapFailure, 'Heap failure.');
  S^.Put(sEditorErrorBase + eeReadError, 'Read error, file truncated.');
  S^.Put(sEditorErrorBase + eeFileTooLarge, 'File too large to complete operation.');
  S^.Put(sStringNotFound, 'Search string not found.');
  S^.Put(sQueryReplace, 'Replace this occurrence?');
  S^.Put(sFileModified, '%s has been modified. Save?');
  S^.Put(sFileNotFound, 'File %s not found.');
  S^.Put(sCantCreate, 'File %s could not be created.');
  S^.Put(sReadError, 'Error encountered reading file %s.');
  S^.Put(sUnableOpen, 'Unable to open file %s.');
  S^.Put(sUnableBackup, 'Unable to create backup file for %s.');
  S^.Put(sFileExists, 'File %s already exists. Overwrite?');
  S^.Put(sReadOnly, 'File %s is read only.');

  S^.Put(sConfigFileName, 'TURBO.TP');
  S^.Put(sInvalidConfig, 'Invalid configuration file.');
  S^.Put(sInvalidDesktop, 'Invalid desk top file.');
  S^.Put(sReadingConfig, 'Reading configuration file.');
  S^.Put(sWritingConfig, 'Writing configuration file.');
  S^.Put(sReadingDesktop, 'Reading desk top file.');
  S^.Put(sWritingDesktop, 'Writing desk top file.');
  S^.Put(sCantCreateDesktop, 'Unable to create desk top file.');
  S^.Put(sCantCreateConfig, 'Unable to create configuration file.');
  S^.Put(sDiskFull, 'Disk full.');
  S^.Put(sErrorWritingConfig, 'Error writing configuration file.');
  S^.Put(sErrorReadingConfig, 'Error reading configuration file.');
  S^.Put(sCantOpenConfig, 'Unable to open configuration file.');
  S^.Put(sErrorWritingDesktop, 'Error writing configuration file.');
  S^.Put(sErrorReadingDesktop, 'Error reading desktop file.');

  S^.Put(sStatusBase + hcAboutMenu, 'System commands');
  S^.Put(sStatusBase + hcFileMenu, 'File management commands (Open, New, Save, etc.)');
  S^.Put(sStatusBase + hcEditMenu, 'Cut-and-paste editing commands');
  S^.Put(sStatusBase + hcSearchMenu, 'Text and error search commands');
  S^.Put(sStatusBase + hcRunMenu, 'Execute or single-step through a program');
  S^.Put(sStatusBase + hcCompileMenu, 'Compile to disk or memory');
  S^.Put(sStatusBase + hcDebugMenu, 'Evaluate expressions, modify data, set breakpoints and watches');
  S^.Put(sStatusBase + hcOptionsMenu, 'Set defaults for compiler, editor, mouse, debugger, etc.');
  S^.Put(sStatusBase + hcWindowMenu, 'Open, arrange, and list windows');
  S^.Put(sStatusBase + hcHelpMenu, 'Get online help');
  S^.Put(sStatusBase + hcAboutItem, 'Show version and copyright information');
  S^.Put(sStatusBase + hcRefreshDisplayItem, 'Redraw the screen');
  S^.Put(sStatusBase + hcClearDesktopItem, 'Close all windows on the desktop, clear history lists');
  S^.Put(sStatusBase + hcOpenItem, 'Locate and open a file in an Edit window');
  S^.Put(sStatusBase + hcNewItem, 'Create a new file in a new Edit window');
  S^.Put(sStatusBase + hcSaveItem, 'Save the file in the active Edit window');
  S^.Put(sStatusBase + hcSaveAsItem, 'Save the current file under a different name, directory, or drive');
  S^.Put(sStatusBase + hcSaveAllItem, 'Save all modified files');
  S^.Put(sStatusBase + hcChangeDirItem, 'Choose a new default directory');
  S^.Put(sStatusBase + hcPrintItem, 'Print the contents of the active Edit window');
  S^.Put(sStatusBase + hcGetInfoItem, 'Show status information');
  S^.Put(sStatusBase + hcDosShellItem, 'Temporarily exit to DOS');
  S^.Put(sStatusBase + hcExitItem, 'Exit Turbo Pascal');
  S^.Put(sStatusBase + hcRestoreLineItem, 'Cancel edits to the current line in active Edit window');
  S^.Put(sStatusBase + hcCutItem, 'Remove the selected text and put it in the Clipboard');
  S^.Put(sStatusBase + hcCopyItem, 'Copy the selected text into the Clipboard');
  S^.Put(sStatusBase + hcPasteItem, 'Insert selected text from the Clipboard at the cursor position');
  S^.Put(sStatusBase + hcCopyExampleItem, 'Copy program example from the Help window into the Clipboard');
  S^.Put(sStatusBase + hcShowClipboardItem, 'Open the Clipboard window');
  S^.Put(sStatusBase + hcClearItem, 'Delete the selected text');
  S^.Put(sStatusBase + hcFindItem, 'Search for text');
  S^.Put(sStatusBase + hcReplaceItem, 'Search for text and replace it with new text');
  S^.Put(sStatusBase + hcSearchAgainItem, 'Repeat the last Find or Replace command');
  S^.Put(sStatusBase + hcGotoLineNumberItem, 'Move the cursor to a specified line number');
  S^.Put(sStatusBase + hcFindProcedureItem, 'Search for a procedure or function declaration while debugging');
  S^.Put(sStatusBase + hcFindErrorItem, 'Move the cursor to the position of a runtime error');
  S^.Put(sStatusBase + hcRunItem, 'Run the current program');
  S^.Put(sStatusBase + hcProgramResetItem, 'Halt debugging session and release memory');
  S^.Put(sStatusBase + hcGotoCursorItem, 'Run program from the run bar to the cursor position');
  S^.Put(sStatusBase + hcTraceIntoItem, 'Execute next statement, stopping within the current procedure');
  S^.Put(sStatusBase + hcStepOverItem, 'Execute next statement, skipping over the current procedure');
  S^.Put(sStatusBase + hcParametersItem, 'Set command-line parameters to be passed to program');
  S^.Put(sStatusBase + hcCompileItem, 'Compile source file');
  S^.Put(sStatusBase + hcMakeItem, 'Rebuild source file and all other files that have been modified');
  S^.Put(sStatusBase + hcBuildItem, 'Rebuild source file and all other files');
  S^.Put(sStatusBase + hcDestinationItem, 'Specify whether source file is compiled to memory or to disk');
  S^.Put(sStatusBase + hcPrimaryFileItem, 'Define the file that is the focus of Make and Build');
  S^.Put(sStatusBase + hcEvaluateItem, 'Evaluate a variable or expression and display or modify the value');
  S^.Put(sStatusBase + hcWatchesSubMenu, 'Add, delete, and edit expressions in the watch window');
  S^.Put(sStatusBase + hcToggleBreakpointItem, 'Set or clear an unconditional breakpoint at the cursor position');
  S^.Put(sStatusBase + hcBreakpointsItem, 'Set conditional breakpoints, view and edit breakpoints');
  S^.Put(sStatusBase + hcAddWatchItem, 'Insert a watch expression into the Watch window');
  S^.Put(sStatusBase + hcDeleteWatchItem, 'Remove the current watch expression from the Watch window');
  S^.Put(sStatusBase + hcEditWatchItem, 'Edit the current watch expression in the Watch window');
  S^.Put(sStatusBase + hcRemoveAllWatchesItem, 'Delete all watch expressions from the Watch window');
  S^.Put(sStatusBase + hcCompilerOptionsItem, 'Set default compiler directives and conditional defines');
  S^.Put(sStatusBase + hcMemorySizesItem, 'Set default stack and heap sizes for generated programs');
  S^.Put(sStatusBase + hcLinkerOptionsItem, 'Set linker options (link buffer; .MAP file options)');
  S^.Put(sStatusBase + hcDebuggerOptionsItem, 'Set debugger options (standalone, integrated, display swapping)');
  S^.Put(sStatusBase + hcDirectoriesItem, 'Set paths for units, include files, OBJs, and generated files');
  S^.Put(sStatusBase + hcEnvironmentSubMenu, 'Specify environment settings');
  S^.Put(sStatusBase + hcSaveOptionsItem, 'Save all the settings you''ve made in the Options menu');
  S^.Put(sStatusBase + hcRetrieveOptionsItem, 'Load options file previously created with Save Options');
  S^.Put(sStatusBase + hcPreferencesItem, 'Specify desktop settings');
  S^.Put(sStatusBase + hcEditorItem, 'Specify editor settings');
  S^.Put(sStatusBase + hcMouseItem, 'Specify mouse settings');
  S^.Put(sStatusBase + hcStartupItem, 'Permanently change default startup options');
  S^.Put(sStatusBase + hcColorsItem, 'Customize IDE colors for windows, menus, etc.');
  S^.Put(sStatusBase + hcResizeItem, 'Change the size or position of the active window');
  S^.Put(sStatusBase + hcZoomItem, 'Enlarge or restore the size of the active window');
  S^.Put(sStatusBase + hcTileItem, 'Arrange windows on desktop by tiling');
  S^.Put(sStatusBase + hcCascadeItem, 'Arrange windows on desktop by cascading');
  S^.Put(sStatusBase + hcNextItem, 'Make the next window active');
  S^.Put(sStatusBase + hcPreviousItem, 'Make the previous window active');
  S^.Put(sStatusBase + hcCloseItem, 'Close the active window');
  S^.Put(sStatusBase + hcWatchItem, 'Open the Watch window');
  S^.Put(sStatusBase + hcRegisterItem, 'Open the Register window');
  S^.Put(sStatusBase + hcOutputItem, 'Open the Output window');
  S^.Put(sStatusBase + hcCallStackItem, 'Show the procedures the program called to reach this point');
  S^.Put(sStatusBase + hcUserScreenItem, 'Switch to the full-screen user output');
  S^.Put(sStatusBase + hcWindowListItem, 'Show a list of all open windows');
  S^.Put(sStatusBase + hcContentsItem, 'Show table of contents for online Help');
  S^.Put(sStatusBase + hcIndexItem, 'Show index for online Help');
  S^.Put(sStatusBase + hcTopicSearchItem, 'Display help on the word at the cursor');
  S^.Put(sStatusBase + hcPreviousTopicItem, 'Redisplay the last-viewed online Help screen');
  S^.Put(sStatusBase + hcHelpOnHelpItem, 'How to use online Help');
  S^.Put(sStatusBase + hcOkButton, 'Accept the settings in this dialog box');
  S^.Put(sStatusBase + hcCnlButton, 'Close the dialog box without making any changes');
  S^.Put(sStatusBase + hcAboutDialog, 'Welcome to Turbo Pascal. Press Enter to close this dialog box');
  S^.Put(sStatusBase + hcOpenFileDialogBase, 'Enter directory path and file mask');
  S^.Put(sStatusBase + hcOpenFileDialogBase + 1, 'Type for incremental search: lower for files, upper for directories');
  S^.Put(sStatusBase + hcOpenFileDialogBase + 2, 'Open the specified file into a new editor window');
  S^.Put(sStatusBase + hcOpenFileDialogBase + 3, 'Load the specified file into the active editor window');
  S^.Put(sStatusBase + hcOpenFileDialogBase + 4, 'View a help screen about this dialog box');
  S^.Put(sStatusBase + hcSaveFileAsDialogBase, 'Enter directory path and file mask');
  S^.Put(sStatusBase + hcSaveFileAsDialogBase + 1, 'Type for incremental search: lower for files, upper for directories');
  S^.Put(sStatusBase + hcSaveFileAsDialogBase + 2, 'View a help screen about this dialog box');
  S^.Put(sStatusBase + hcDirectoryName, 'Enter drive and/or directory path');
  S^.Put(sStatusBase + hcDirectoryTree, 'Use cursor keys to navigate through directory tree');