Commit 5402cbcc authored by Denis Budyak's avatar Denis Budyak

Пересобрал win32-iz-Win32

parent d1a38699
......@@ -3,7 +3,7 @@
<?xml-stylesheet type="text/xsl" href="http://bluebottle.ethz.ch/bluebottle.xsl" ?>
<Text>
<Span style="AdHoc DejaVuSansMono 16 1 0 08080FF 0000000"><![CDATA[# Win32
# Пт, Июн 12, 2020 14:38:05
# Пт, Июн 12, 2020 20:04:00
# This file has been automatically generated using Release.Mod.
# Red colors indicate that a module imports SYSTEM.
Syste]]></Span><Span style="Bold"><![CDATA[m.DoCommands
......
No preview for this file type
MODULE FoxGlobal;
IMPORT SyntaxTree := FoxSyntaxTree, Basic := FoxBasic, Scanner := FoxScanner, Strings, Dates;
CONST
квоСерийКлючевыхСлов = 3;
StringWinAPI* = \"WINAPI"\;
StringC* = \"C"\;
StringPlatformCC* = \"PlatformCC"\;
......@@ -211,8 +212,8 @@ TYPE
System* = OBJECT
VAR
systemScope-, globalScope-: ARRAY 2 OF SyntaxTree.ModuleScope;
systemModule-, globalModule-: ARRAY 2 OF SyntaxTree.Module;
systemScope-, globalScope-: ARRAY квоСерийКлючевыхСлов OF SyntaxTree.ModuleScope;
systemModule-, globalModule-: ARRAY квоСерийКлючевыхСлов OF SyntaxTree.Module;
activeCellsCapabilities-: SyntaxTree.Symbol;
codeUnit-: SIGNED32;
dataUnit-: SIGNED32;
......@@ -246,7 +247,7 @@ TYPE
VAR
SelfParameterName-, ReturnParameterName-, SystemName-, systemName-, PointerReturnName-, ResultName-, A2Name-, ArrayBaseName-, ComplexNumbersName-, RecordBodyName-, ModuleBodyName-, NameWinAPI-, NameC-, NamePlatformCC-, NameMovable-, NameUntraced-, NameUntracked-, NameDelegate-, NameInterrupt-, NamePcOffset-, NameNoPAF-, NameEntry-, NameExit-, NameFixed-, NameFictive-, NameAligned-, NameStackAligned-, NameExclusive-, NameActive-, NamePriority-, NameSafe-, NameRealtime-, NameDynamic-, NameFingerprint-, NameDataMemorySize-, NameCodeMemorySize-, NameChannelWidth-, NameChannelDepth-, NameChannelModule-, NameVector-, NameFloatingPoint-, NameNoMul-, NameNonBlockingIO-, NameTRM-, NameTRMS-, NameEngine-, NameFinal-, NameAbstract-, NameBackend-, NameRuntime-, NameFrequencyDivider-, NameRegister-, NameNoReturn-, NamePlain-, NameUnsafe-, NameDisposable-, NameUnchecked-, NameUncooperative-: SyntaxTree.Identifier;
NameGlobal-, Nameglobal: SyntaxTree.Identifier;
identifiers: ARRAY 2 OF ARRAY end OF SyntaxTree.Identifier;
identifiers: ARRAY квоСерийКлючевыхСлов OF ARRAY end OF SyntaxTree.Identifier;
Signed8-, Signed16-, Signed32-, Signed64-: SyntaxTree.IntegerType;
Unsigned8-, Unsigned16-, Unsigned32-, Unsigned64-: SyntaxTree.IntegerType;
Set8-, Set16-, Set32-, Set64-: SyntaxTree.SetType;
......
MODULE FoxScanner;
IMPORT Streams, Strings, Diagnostics, Basic := FoxBasic, D := Debugging, Commands, StringPool, ReaderSchitUTF8LF, UCS32, KernelLog;
IMPORT Streams, Strings, Diagnostics, Basic := FoxBasic, D := Debugging, StringPool, ReaderSchitUTF8LF, UCS32;
CONST
Trace = FALSE;
MaxIdentifierLength* = 128;
......@@ -136,7 +136,8 @@ CONST
Ellipsis = 7FX;
Uppercase* = 0;
Lowercase* = 1;
Unknown* = 2;
Русский* = 2;
Unknown* = 3;
TYPE
StringType* = Strings.String;
......@@ -248,7 +249,7 @@ TYPE
VAR
reservedCharacter: ARRAY 256 OF BOOLEAN;
symbols-: ARRAY (EndOfText + 1) OF Keyword;
keywordsLower-, keywordsUpper-: KeywordTable;
keywordsLower-, keywordsUpper-, keywords_Русские-: KeywordTable;
PROCEDURE ^ NewScanner*(CONST source: ARRAY OF CHAR; reader: Streams.Reader; position: Streams.Position; diagnostics: Diagnostics.Diagnostics): Scanner;
PROCEDURE ^ NewAssemblerScanner*(CONST source: ARRAY OF CHAR; reader: Streams.Reader; position: Streams.Position; diagnostics: Diagnostics.Diagnostics): AssemblerScanner;
......
......@@ -3,39 +3,11 @@
<PETData>
<General SelectedPageNr="0" ProjectTextFile=""/>
<Tab file="C:/ob/jaos/pljazh.txt" codecFormat="AUTO" compilerOptions="--warnings" showLabels="false" wordWrap="false">
<Editor firstLine="0" cursorPos="739"/>
<Editor firstLine="0" cursorPos="599"/>
<SplitEditor visible="false" firstLine="0" cursorPos="0" height="400"/>
<SearchPanel visible="false" wrap="false" casesensitive="true" backwards="false" highlight="false" searchString="" replaceString=""/>
<LogPanel height="130"/>
<SidePanel visible="false" width="250" scratchHeight="540"/>
</Tab>
<Tab file="C:/ob/jaos/source/Proba3.Mod" codecFormat="AUTO" compilerOptions="-w" showLabels="false" wordWrap="false">
<Editor firstLine="0" cursorPos="73"/>
<SplitEditor visible="false" firstLine="0" cursorPos="0" height="400"/>
<SearchPanel visible="false" wrap="false" casesensitive="true" backwards="false" highlight="false" searchString="" replaceString=""/>
<LogPanel height="130"/>
<SidePanel visible="true" width="250" scratchHeight="5"/>
</Tab>
<Tab file="C:/ob/jaos/source/FoxScanner.Mod" codecFormat="AUTO" compilerOptions="-w" showLabels="false" wordWrap="false">
<Editor firstLine="945" cursorPos="33393"/>
<SplitEditor visible="false" firstLine="0" cursorPos="0" height="400"/>
<SearchPanel visible="true" wrap="false" casesensitive="true" backwards="false" highlight="false" searchString="KernelLog" replaceString=""/>
<LogPanel height="130"/>
<SidePanel visible="true" width="250" scratchHeight="5"/>
</Tab>
<Tab file="C:/ob/jaos/source/TestFoxScanner.Mod" codecFormat="AUTO" compilerOptions="-w" showLabels="false" wordWrap="false">
<Editor firstLine="0" cursorPos="667"/>
<SplitEditor visible="false" firstLine="0" cursorPos="0" height="400"/>
<SearchPanel visible="false" wrap="false" casesensitive="true" backwards="false" highlight="false" searchString="" replaceString=""/>
<LogPanel height="130"/>
<SidePanel visible="true" width="250" scratchHeight="5"/>
</Tab>
<Tab file="C:/ob/jaos/source/FoxParser.Mod" codecFormat="AUTO" compilerOptions="-w" showLabels="false" wordWrap="false">
<Editor firstLine="0" cursorPos="723"/>
<SplitEditor visible="false" firstLine="0" cursorPos="0" height="400"/>
<SearchPanel visible="true" wrap="false" casesensitive="true" backwards="false" highlight="false" searchString="Peek" replaceString=""/>
<LogPanel height="130"/>
<SidePanel visible="true" width="250" scratchHeight="5"/>
<SidePanel visible="false" width="250" scratchHeight="1793"/>
</Tab>
</PETData>
</Window>
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment