WebSVN – Kolibri OS – Diff – /programs/develop/oberon07/Docs/About1251.txt

-Êîìïèëÿòîð ÿçûêà ïðîãðàììèðîâàíèÿ Oberon-07/11 äëÿ i386
+Êîìïèëÿòîð ÿçûêà ïðîãðàììèðîâàíèÿ Oberon-07/16 äëÿ i486
-		Windows/Linux/KolibriOS.
+                Windows/Linux/KolibriOS.
 ------------------------------------------------------------------------------
-	Ñîñòàâ ïðîãðàììû
+        Ïàðàìåòðû êîìàíäíîé ñòðîêè
-.	Compiler.kex (KolibriOS) - èñïîëíÿåìûé ôàéë êîìïèëÿòîðà.
-	Âõîä - òåêñòîâûå ôàéëû ìîäóëåé ñ ðàñøèðåíèåì ".ob07", êîäèðîâêà ANSI
+  Âõîä - òåêñòîâûå ôàéëû ìîäóëåé ñ ðàñøèðåíèåì ".ob07", êîäèðîâêà ANSI èëè
-	èëè UTF-8 ñ BOM-ñèãíàòóðîé.
+UTF-8 ñ BOM-ñèãíàòóðîé.
-	Âûõîä - èñïîëíÿåìûé ôàéë ôîðìàòà PE, ELF èëè MENUET01/MS COFF.
+  Âûõîä - èñïîíÿåìûé ôàéë ôîðìàòà PE32, ELF èëè MENUET01/MSCOFF.
+  Ïàðàìåòðû:
-	Ïàðàìåòðû:
+) èìÿ ãëàâíîãî ìîäóëÿ
-) èìÿ ãëàâíîãî ìîäóëÿ
+) èìÿ ðåçóëüòèðóþùåãî ôàéëà
 ) òèï ïðèëîæåíèÿ è ïëàòôîðìà
-		"con" - Windows console
+      "console" - Windows console
-		"gui" - Windows GUI
-		"dll" - Windows DLL
+      "gui" - Windows GUI
-		"elf" - Linux
+      "dll" - Windows DLL
+      "kos" - KolibriOS
-		"kos" - KolibriOS
+      "obj" - KolibriOS DLL
-		"obj" - KolibriOS DLL
+      "elfexe" - Linux ELF-EXEC
-		"kem" - KolibriOS ñ àäðåñîì çàãðóçêè 0x10000 äëÿ âîçìîæíîãî
+) íåîáÿçàòåëüíûå ïàðàìåòðû-êëþ÷è
+      -stk  ðàçìåð ñòýêà â ìåãàáàéòàõ (ïî óìîë÷àíèþ 2 Ìá)
-			èñïîëíåíèÿ â ýìóëÿòîðå
+      -base  àäðåñ çàãðóçêè èñïîëíÿåìîãî ôàéëà â êèëîáàéòàõ
+      -ver  âåðñèÿ ïðîãðàììû (òîëüêî äëÿ obj)
-) ðàçìåð ñòýêà â ìåãàáàéòàõ, íåîáÿçàòåëüíûé ïàðàìåòð, ïî óìîë÷àíèþ -
+      -nochk <"ptibcwra"> îòêëþ÷èòü ïðîâåðêè ïðè âûïîëíåíèè (ñì. íèæå)
+      ïàðàìåòð -nochk çàäàåòñÿ â âèäå ñòðîêè èç ñèìâîëîâ:
+      "p" - óêàçàòåëè
+      "t" - òèïû
+      "i" - èíäåêñû
-Ìá, äëÿ ELF èãíîðèðóåòñÿ. Åñëè 2-é ïàðàìåòð = "obj" (KolibriOS DLL),
+      "b" - íåÿâíîå ïðèâåäåíèå INTEGER ê BYTE
-	òî 3-é ïàðàìåòð çàäàåòñÿ øåñòíàäöàòèðè÷íûì ÷èñëîì
+      "c" - äèàïàçîí àðãóìåíòà ôóíêöèè CHR
+      "w" - äèàïàçîí àðãóìåíòà ôóíêöèè WCHR
+      "r" - ýêâèâàëåíòíî "bcw"
+      "a" - âñå ïðîâåðêè
+      Ïîðÿäîê ñèìâîëîâ ìîæåò áûòü ëþáûì. Íàëè÷èå â ñòðîêå òîãî èëè èíîãî
+      ñèìâîëà îòêëþ÷àåò ñîîòâåòñòâóþùóþ ïðîâåðêó.
+      Íàïðèìåð: -nochk it - îòêëþ÷èòü ïðîâåðêó èíäåêñîâ è îõðàíó òèïà.
-	(0x00000001 .. 0xffffffff) è îïðåäåëÿåò âåðñèþ ïðîãðàììû,
+      -nochk a - îòêëþ÷èòü âñå îòêëþ÷àåìûå ïðîâåðêè.
+  Íàïðèìåð:
-	ïî óìîë÷àíèþ - 0x00010000 (v1.0).
-	Íàïðèìåð:
+  Compiler.exe "C:\example.ob07" "C:\example.exe" console -stk 1
+  Compiler.exe "C:\example.ob07" "C:\example.dll" dll
+  Compiler.exe "C:\example.ob07" "C:\example.exe" gui -stk 4
+  Compiler.exe "C:\example.ob07" "C:\example.exe" console -nochk pti
+  Compiler.kex "/tmp0/1/example.ob07" "/tmp0/1/example.kex" kos -stk 2
+  Compiler.kex "/tmp0/1/example.ob07" "/tmp0/1/example.obj" obj -ver 2.7
-		"C:\oberon-07\example.ob07" con 1
+  Compiler.exe "C:\example.ob07" "C:\example" elfexe
-		"C:\oberon-07\example.ob07" obj 0x00020005 (* v2.5 *)
-	Â ñëó÷àå óñïåøíîé êîìïèëÿöèè, êîìïèëÿòîð ïåðåäàåò êîä çàâåðøåíèÿ 0,
-	èíà÷å 1. Ïðè ðàáîòå êîìïèëÿòîðà â KolibriOS, êîä çàâåðøåíèÿ íå
-	ïåðåäàåòñÿ. Ñîîáùåíèÿ êîìïèëÿòîðà âûâîäÿòñÿ íà êîíñîëü (Windows,
-	KolibriOS), â òåðìèíàë (Linux).
+  Â ñëó÷àå óñïåøíîé êîìïèëÿöèè, êîìïèëÿòîð ïåðåäàåò êîä çàâåðøåíèÿ 0, èíà÷å 1.
-.	Ïàïêà Lib - áèáëèîòåêà ìîäóëåé
+Ïðè ðàáîòå êîìïèëÿòîðà â KolibriOS, êîä çàâåðøåíèÿ íå ïåðåäàåòñÿ.
 ------------------------------------------------------------------------------
-	Îòëè÷èÿ îò îðèãèíàëà
+        Îòëè÷èÿ îò îðèãèíàëà
-.	Ðàñøèðåí ïñåâäîìîäóëü SYSTEM
+.      Ðàñøèðåí ïñåâäîìîäóëü SYSTEM
-.	Ðàçðåøåí ñèìâîë "_" â èäåíòèôèêàòîðàõ
+.      Â èäåíòèôèêàòîðàõ äîïóñêàåòñÿ ñèìâîë "_"
-.	Äîáàâëåíû ñèñòåìíûå ôëàãè
+.      Äîáàâëåíû ñèñòåìíûå ôëàãè
-.	Îïåðàòîð CASE ðåàëèçîâàí â ñîîòâåòñòâèè ñ ñèíòàêñèñîì è ñåìàíòèêîé
+.      Óñîâåðøåíñòâîâàí îïåðàòîð CASE (äîáàâëåíû êîíñòàíòíûå âûðàæåíèÿ â
-	äàííîãî îïåðàòîðà â ÿçûêå Oberon (Revision 1.10.90)
+        ìåòêàõ âàðèàíòîâ è íåîáÿçàòåëüíàÿ âåòêà ELSE)
+.      Ðàñøèðåí íàáîð ñòàíäàðòíûõ ïðîöåäóð
-.	Ðàñøèðåí íàáîð ñòàíäàðòíûõ ïðîöåäóð
+.      Ñåìàíòèêà îõðàíû/ïðîâåðêè òèïà óòî÷íåíà äëÿ íóëåâîãî óêàçàòåëÿ
-.	Ñåìàíòèêà îõðàíû/ïðîâåðêè òèïà óòî÷íåíà äëÿ íóëåâîãî óêàçàòåëÿ
+.      Ñåìàíòèêà DIV è MOD óòî÷íåíà äëÿ îòðèöàòåëüíûõ ÷èñåë
-.	Ñåìàíòèêà DIV è MOD óòî÷íåíà äëÿ îòðèöàòåëüíûõ ÷èñåë
+.      Äîáàâëåíû îäíîñòðî÷íûå êîììåíòàðèè (íà÷èíàþòñÿ ñ ïàðû ñèìâîëîâ "//")
-.	Äîáàâëåíû îäíîñòðî÷íûå êîììåíòàðèè (íà÷èíàþòñÿ ñ ïàðû ñèìâîëîâ "//")
+.      Ðàçðåøåíî íàñëåäîâàíèå îò òèïà-óêàçàòåëÿ
-.	Ðàçðåøåí ýêñïîðò ïåðåìåííûõ òèïîâ ARRAY è RECORD (òîëüêî äëÿ ÷òåíèÿ)
+.     Äîáàâëåí ñèíòàêñèñ äëÿ èìïîðòà ïðîöåäóð èç âíåøíèõ áèáëèîòåê
-.	Ðàçðåøåíî íàñëåäîâàíèå îò òèïà-óêàçàòåëÿ
+.     "Ñòðîêè" ìîæíî çàêëþ÷àòü òàêæå â îäèíî÷íûå êàâû÷êè: 'ñòðîêà'
-.	Äîáàâëåíû ïñåâäîíèìû òèïîâ (TYPE A = B)
+.     Äîáàâëåí òèï WCHAR
-------------------------------------------------------------------------------
-	Îñîáåííîñòè ðåàëèçàöèè
+------------------------------------------------------------------------------
         Îñîáåííîñòè ðåàëèçàöèè
 .	Îñíîâíûå òèïû
 .      Îñíîâíûå òèïû
+          Òèï              Äèàïàçîí çíà÷åíèé               Ðàçìåð, áàéò
-	  Òèï		   Äèàïàçîí çíà÷åíèé		   Ðàçìåð, áàéò
+        INTEGER       -2147483648 .. 2147483647                 4
-	INTEGER       -2147483648 .. 2147483647 		4
-	REAL	      1.40E-45 .. 3.34E+38			4
+        REAL          4.94E-324 .. 1.70E+308                    8
-	LONGREAL      4.94E-324 .. 1.70E+308			8
-	CHAR	      ñèìâîë ASCII (0X .. 0FFX) 		1
+        CHAR          ñèìâîë ASCII (0X .. 0FFX)                 1
-	BOOLEAN       FALSE, TRUE				1
+        BOOLEAN       FALSE, TRUE                               1
-	SET	      ìíîæåñòâî èç öåëûõ ÷èñåë {0 .. 31}	4
+        SET           ìíîæåñòâî èç öåëûõ ÷èñåë {0 .. 31}        4
         BYTE          0 .. 255                                  1
+        WCHAR         ñèìâîë þíèêîäà (0X .. 0FFFFX)             2
+.      Ìàêñèìàëüíàÿ äëèíà èäåíòèôèêàòîðîâ - 1024 ñèìâîëîâ
+.      Ìàêñèìàëüíàÿ äëèíà ñòðîêîâûõ êîíñòàíò - 1024 ñèìâîëîâ (UTF-8)
+.      Ìàêñèìàëüíàÿ ðàçìåðíîñòü îòêðûòûõ ìàññèâîâ - 5
+.      Ïðîöåäóðà NEW çàïîëíÿåò íóëÿìè âûäåëåííûé áëîê ïàìÿòè
+.      Ãëîáàëüíûå è ëîêàëüíûå ïåðåìåííûå èíèöèàëèçèðóþòñÿ íóëÿìè
+.      Â îòëè÷èå îò ìíîãèõ Oberon-ðåàëèçàöèé, ñáîðùèê ìóñîðà è äèíàìè÷åñêàÿ
+        ìîäóëüíîñòü îòñóòñòâóþò
+.      Òèï BYTE â âûðàæåíèÿõ âñåãäà ïðèâîäèòñÿ ê INTEGER
+.      Êîíòðîëü ïåðåïîëíåíèÿ çíà÷åíèé âûðàæåíèé íå ïðîèçâîäèòñÿ
+.     Îøèáêè âðåìåíè âûïîëíåíèÿ:
+        - ASSERT(x), ïðè x = FALSE
+        - ðàçûìåíîâàíèå íóëåâîãî óêàçàòåëÿ
-.	Ìàêñèìàëüíàÿ äëèíà èäåíòèôèêàòîðîâ - 255 ñèìâîëîâ
+        - öåëî÷èñëåííîå äåëåíèå íà 0
-.	Ìàêñèìàëüíàÿ äëèíà ñòðîêîâûõ êîíñòàíò - 255 ñèìâîëîâ
+        - âûçîâ ïðîöåäóðû ÷åðåç ïðîöåäóðíóþ ïåðåìåííóþ ñ íóëåâûì çíà÷åíèåì
-.	Ìàêñèìàëüíàÿ äëèíà ñòðîê èñõîäíîãî êîäà - 511 ñèìâîëîâ
+        - îøèáêà îõðàíû òèïà
-.	Ìàêñèìàëüíàÿ ðàçìåðíîñòü îòêðûòûõ ìàññèâîâ - 5
+        - íàðóøåíèå ãðàíèö ìàññèâà
-.	Ìàêñèìàëüíîå êîëè÷åñòâî îáúÿâëåííûõ òèïîâ-çàïèñåé - 2047
+        - íåïðåäóñìîòðåííîå çíà÷åíèå âûðàæåíèÿ â îïåðàòîðå CASE
-.	Ïðîöåäóðà NEW çàïîëíÿåò íóëÿìè âûäåëåííûé áëîê ïàìÿòè
+        - îøèáêà êîïèðîâàíèÿ ìàññèâîâ v := x, åñëè LEN(v) < LEN(x)
-.	Ãëîáàëüíûå è ëîêàëüíûå ïåðåìåííûå èíèöèàëèçèðóþòñÿ íóëÿìè
+        - íåÿâíîå ïðèâåäåíèå x:INTEGER ê v:BYTE, åñëè (x < 0) OR (x > 255)
-.	Â îòëè÷èå îò ìíîãèõ Oberon-ðåàëèçàöèé, ñáîðùèê ìóñîðà è äèíàìè÷åñêàÿ
+        - CHR(x), åñëè (x < 0) OR (x > 255)
+        - WCHR(x), åñëè (x < 0) OR (x > 65535)
+------------------------------------------------------------------------------
+        Ïñåâäîìîäóëü SYSTEM
+  Ïñåâäîìîäóëü SYSTEM ñîäåðæèò íèçêîóðîâíåâûå è íåáåçîïàñíûå ïðîöåäóðû,
-	ìîäóëüíîñòü îòñóòñòâóþò
+îøèáêè ïðè èñïîëüçîâàíèè ïðîöåäóð ïñåâäîìîäóëÿ SYSTEM ìîãóò ïðèâåñòè ê
 ïîâðåæäåíèþ äàííûõ âðåìåíè âûïîëíåíèÿ è àâàðèéíîìó çàâåðøåíèþ ïðîãðàììû.
 ------------------------------------------------------------------------------
-	Ïñåâäîìîäóëü SYSTEM
+        PROCEDURE ADR(v: ëþáîé òèï): INTEGER
                 v - ïåðåìåííàÿ èëè ïðîöåäóðà;
-  Ïñåâäîìîäóëü SYSTEM ñîäåðæèò íèçêîóðîâíåâûå è íåáåçîïàñíûå ïðîöåäóðû,
+                âîçâðàùàåò àäðåñ v
-îøèáêè ïðè èñïîëüçîâàíèè ïðîöåäóð ïñåâäîìîäóëÿ SYSTEM ìîãóò ïðèâåñòè ê
 ïîâðåæäåíèþ äàííûõ âðåìåíè âûïîëíåíèÿ è àâàðèéíîìó çàâåðøåíèþ ïðîãðàììû.
         PROCEDURE SADR(x: ñòðîêîâàÿ êîíñòàíòà (CHAR UTF-8)): INTEGER
-	PROCEDURE ADR(v: ëþáîé òèï): INTEGER
+                âîçâðàùàåò àäðåñ x
 		v - ïåðåìåííàÿ, ïðîöåäóðà èëè ñòðîêîâàÿ êîíñòàíòà;
-		âîçâðàùàåò àäðåñ v
+        PROCEDURE WSADR(x: ñòðîêîâàÿ êîíñòàíòà (WCHAR)): INTEGER
+                âîçâðàùàåò àäðåñ x
+        PROCEDURE SIZE(T): INTEGER
+                âîçâðàùàåò ðàçìåð òèïà T
+        PROCEDURE TYPEID(T): INTEGER
+                T - òèï-çàïèñü èëè òèï-óêàçàòåëü,
+                âîçâðàùàåò íîìåð òèïà â òàáëèöå òèïîâ-çàïèñåé
+        PROCEDURE INF(): REAL
-	PROCEDURE SIZE(T): INTEGER
+                âîçâðàùàåò ñïåöèàëüíîå âåùåñòâåííîå çíà÷åíèå "áåñêîíå÷íîñòü"
 		âîçâðàùàåò ðàçìåð òèïà T
+        PROCEDURE GET(a: INTEGER;
-	PROCEDURE TYPEID(T): INTEGER
+                VAR v: ëþáîé îñíîâíîé òèï, PROCEDURE, POINTER)
-		T - òèï-çàïèñü èëè òèï-óêàçàòåëü,
+                v := Ïàìÿòü[a]
 		âîçâðàùàåò íîìåð òèïà â òàáëèöå òèïîâ-çàïèñåé
         PROCEDURE PUT(a: INTEGER; x: ëþáîé îñíîâíîé òèï, PROCEDURE, POINTER)
-	PROCEDURE INF(T): T
+                Ïàìÿòü[a] := x;
-		T - REAL èëè LONGREAL,
+                Åñëè x: BYTE èëè x: WCHAR, òî çíà÷åíèå x áóäåò ðàñøèðåíî
-		âîçâðàùàåò ñïåöèàëüíîå âåùåñòâåííîå çíà÷åíèå "áåñêîíå÷íîñòü"
+                äî 32 áèò, äëÿ çàïèñè áàéòîâ èñïîëüçîâàòü SYSTEM.PUT8,
+                äëÿ WCHAR -- SYSTEM.PUT16
-	PROCEDURE GET(a: INTEGER;
-		VAR v: ëþáîé îñíîâíîé òèï, PROCEDURE, POINTER)
+        PROCEDURE PUT8(a: INTEGER; x: INTEGER, BYTE, CHAR, WCHAR)
-		v := Ïàìÿòü[a]
+                Ïàìÿòü[a] := ìëàäøèå 8 áèò (x)
-	PROCEDURE PUT(a: INTEGER; x: ëþáîé îñíîâíîé òèï, PROCEDURE, POINTER)
+        PROCEDURE PUT16(a: INTEGER; x: INTEGER, BYTE, CHAR, WCHAR)
 ------------------------------------------------------------------------------
-	Ñèñòåìíûå ôëàãè
+        Ñèñòåìíûå ôëàãè
   Ïðè îáúÿâëåíèè ïðîöåäóðíûõ òèïîâ è ãëîáàëüíûõ ïðîöåäóð, ïîñëå êëþ÷åâîãî
-ñëîâà PROCEDURE ìîæåò áûòü óêàçàí ôëàã ñîãëàøåíèÿ âûçîâà: [stdcall], [cdecl]
+ñëîâà PROCEDURE ìîæåò áûòü óêàçàí ôëàã ñîãëàøåíèÿ î âûçîâå: [stdcall],
+[ccall], [ccall16], [windows], [linux]. Íàïðèìåð:
+        PROCEDURE [ccall] MyProc (x, y, z: INTEGER): INTEGER;
+  Åñëè óêàçàí ôëàã [ccall16], òî ïðèíèìàåòñÿ ñîãëàøåíèå ccall, íî ïåðåä
+âûçîâîì óêàçàòåëü ñòýêà áóäåò âûðàâíåí ïî ãðàíèöå 16 áàéò.
-èëè [winapi]. Íàïðèìåð:
-	PROCEDURE [cdecl] MyProc(x, y, z: INTEGER): INTEGER;
   Ôëàã [windows] - ñèíîíèì äëÿ [stdcall], [linux] - ñèíîíèì äëÿ [ccall16].
-  Åñëè óêàçàí ôëàã [winapi], òî ïðèíèìàåòñÿ ñîãëàøåíèå stdcall è
+  Çíàê "-" ïîñëå èìåíè ôëàãà ([stdcall-], [linux-], ...) îçíà÷àåò, ÷òî
-ïðîöåäóðó-ôóíêöèþ ìîæíî âûçâàòü êàê ñîáñòâåííî ïðîöåäóðó, âíå âûðàæåíèÿ.
-Ôëàã [winapi] äîñòóïåí òîëüêî äëÿ ïëàòôîðìû Windows.
-  Ïðè îáúÿâëåíèè òèïîâ-çàïèñåé, ïîñëå êëþ÷åâîãî ñëîâà RECORD ìîæåò áûòü
-óêàçàí ôëàã [noalign] èëè [union]. Ôëàã [noalign] îçíà÷àåò îòñóòñòâèå
+ðåçóëüòàò ïðîöåäóðû ìîæíî èãíîðèðîâàòü (íå äîïóñêàåòñÿ äëÿ òèïà REAL).
 âûðàâíèâàíèÿ ïîëåé çàïèñè, à ôëàã [union] îçíà÷àåò, ÷òî ñìåùåíèÿ âñåõ ïîëåé
-çàïèñè ðàâíû íóëþ, ïðè ýòîì ðàçìåð çàïèñè ðàâåí ðàçìåðó íàèáîëüøåãî ïîëÿ.
+  Ïðè îáúÿâëåíèè òèïîâ-çàïèñåé, ïîñëå êëþ÷åâîãî ñëîâà RECORD ìîæåò áûòü
-Çàïèñè RECORD [union] ... END ñîîòâåòñòâóþò îáúåäèíåíèÿì (union) â ÿçûêå C.
+óêàçàí ôëàã [noalign]. Ôëàã [noalign] îçíà÷àåò îòñóòñòâèå âûðàâíèâàíèÿ ïîëåé
-Çàïèñè ñ ñèñòåìíûìè ôëàãàìè íå ìîãóò èìåòü áàçîâîãî òèïà è íå ìîãóò áûòü
+çàïèñè. Çàïèñè ñ ñèñòåìíûì ôëàãîì íå ìîãóò èìåòü áàçîâûé òèï è íå ìîãóò áûòü
-	ELSE
+        ELSE
-		DoSomething4
+                DoSomething4
-	END
+        END
   Â ìåòêàõ âàðèàíòîâ ìîæíî èñïîëüçîâàòü êîíñòàíòíûå âûðàæåíèÿ, âåòêà ELSE
-íåîáÿçàòåëüíà. Åñëè íå âûïîëíåí íè îäèí âàðèàíò è ELSE îòñóòñòâóåò, òî
+íåîáÿçàòåëüíà. Åñëè çíà÷åíèå x íå ñîîòâåòñòâóåò íè îäíîìó âàðèàíòó è ELSE
+îòñóòñòâóåò, òî ïðîãðàììà ïðåðûâàåòñÿ ñ îøèáêîé âðåìåíè âûïîëíåíèÿ.
+------------------------------------------------------------------------------
+        Òèï WCHAR
+  Òèï WCHAR äîáàâëåí â ÿçûê äëÿ óäîáíîé ïîääåæêè þíèêîäà. Äëÿ òèïîâ WCHAR è
+ARRAY OF WCHAR äîïóñêàþòñÿ âñå òå æå îïåðàöèè, êàê äëÿ òèïîâ CHAR è
+ARRAY OF CHAR, çà èñêëþ÷åíèåì âñòðîåííîé ïðîöåäóðû CHR, êîòîðàÿ âîçâðàùàåò
+òîëüêî òèï CHAR. Äëÿ ïîëó÷åíèÿ çíà÷åíèÿ òèïà WCHAR, ñëåäóåò èñïîëüçîâàòü
+ïðîöåäóðó WCHR âìåñòî CHR. Äëÿ ïðàâèëüíîé ðàáîòû ñ òèïîì, íåîáõîäèìî ñîõðàíÿòü
-ïðîãðàììà ïðåðûâàåòñÿ ñ îøèáêîé âðåìåíè âûïîëíåíèÿ.
+èñõîäíûé êîä â êîäèðîâêå UTF-8 c BOM.
 ------------------------------------------------------------------------------
-	DISPOSE(VAR v: ëþáîé_óêàçàòåëü)
+        DISPOSE (VAR v: ëþáîé_óêàçàòåëü)
-		Îñâîáîæäàåò ïàìÿòü, âûäåëåííóþ ïðîöåäóðîé NEW äëÿ
+                Îñâîáîæäàåò ïàìÿòü, âûäåëåííóþ ïðîöåäóðîé NEW äëÿ
-		äèíàìè÷åñêîé ïåðåìåííîé v^, è ïðèñâàèâàåò ïåðåìåííîé v
+                äèíàìè÷åñêîé ïåðåìåííîé v^, è ïðèñâàèâàåò ïåðåìåííîé v
-		çíà÷åíèå NIL.
+                çíà÷åíèå NIL.
+        COPY (x: ARRAY OF CHAR/WCHAR; VAR v: ARRAY OF CHAR/WCHAR);
+                v := x;
+                Åñëè LEN(v) < LEN(x), òî ñòðîêà x áóäåò ñêîïèðîâàíà
+                íå ïîëíîñòüþ
-	LSR(x, n: INTEGER): INTEGER
+        LSR (x, n: INTEGER): INTEGER
-		Ëîãè÷åñêèé ñäâèã x íà n áèò âïðàâî.
+                Ëîãè÷åñêèé ñäâèã x íà n áèò âïðàâî.
-	BITS(x: INTEGER): SET
+        BITS (x: INTEGER): SET
-		Èíòåðïðåòèðóåò x êàê çíà÷åíèå òèïà SET.
+                Èíòåðïðåòèðóåò x êàê çíà÷åíèå òèïà SET.
-		Âûïîëíÿåòñÿ íà ýòàïå êîìïèëÿöèè.
+                Âûïîëíÿåòñÿ íà ýòàïå êîìïèëÿöèè.
-	LENGTH(s: ARRAY OF CHAR): INTEGER
+        LENGTH (s: ARRAY OF CHAR/WCHAR): INTEGER
+                Äëèíà 0X-çàâåðøåííîé ñòðîêè s, áåç ó÷åòà ñèìâîëà 0X.
+                Åñëè ñèìâîë 0X îòñóòñòâóåò, ôóíêöèÿ âîçâðàùàåò äëèíó
-		Äëèíà 0X-çàâåðøåííîé ñòðîêè s, áåç ó÷åòà ñèìâîëà 0X.
+                ìàññèâà s. s íå ìîæåò áûòü êîíñòàíòîé.
-		Åñëè ñèìâîë 0X îòñóòñòâóåò, ôóíêöèÿ âîçâðàùàåò äëèíó
+        WCHR (n: INTEGER): WCHAR
-		ìàññèâà s.
+                Ïðåîáðàçîâàíèå òèïà, àíàëîãè÷íî CHR(n: INTEGER): CHAR
-	-5	   3	    -2	       1
+        -5         3        -2         1
-	  -3	    -2	      -1
+-3        -2        -1
-	-5	  -3	     1	      -2
+        -5        -3         1        -2
+------------------------------------------------------------------------------
+        Èìïîðòèðîâàííûå ïðîöåäóðû
+  Ñèíòàêñèñ èìïîðòà:
+  PROCEDURE [callconv, "library", "function"] proc_name (FormalParam): Type;
+  - callconv -- ñîãëàøåíèå î âûçîâå
+  - "library" -- èìÿ ôàéëà äèíàìè÷åñêîé áèáëèîòåêè
+  - "function" -- èìÿ èìïîðòèðóåìîé ïðîöåäóðû
+  íàïðèìåð:
+  PROCEDURE [windows, "kernel32.dll", "ExitProcess"] exit (code: INTEGER);
+  PROCEDURE [stdcall, "Console.obj", "con_exit"] exit (bCloseWindow: BOOLEAN);
+  Â êîíöå îáúÿâëåíèÿ ìîæåò áûòü äîáàâëåíî (íåîáÿçàòåëüíî) "END proc_name;"
+  Îáúÿâëåíèÿ èìïîðòèðîâàííûõ ïðîöåäóð äîëæíû ðàñïîëàãàòüñÿ â ãëîáàëüíîé
+  îáëàñòè âèäèìîñòè ìîäóëÿ ïîñëå îáúÿâëåíèÿ ïåðåìåííûõ, âìåñòå ñ îáúÿâëåíèåì
+  "îáû÷íûõ" ïðîöåäóð, îò êîòîðûõ èìïîðòèðîâàííûå îòëè÷àþòñÿ òîëüêî îòñóòñòâèåì
+  òåëà ïðîöåäóðû. Â îñòàëüíîì, ê òàêèì ïðîöåäóðàì ïðèìåíèìû òå æå ïðàâèëà:
+  èõ ìîæíî âûçâàòü, ïðèñâîèòü ïðîöåäóðíîé ïåðåìåííîé èëè ïîëó÷èòü àäðåñ.
+  Òàê êàê èìïîðòèðîâàííàÿ ïðîöåäóðà âñåãäà èìååò ÿâíîå óêàçàíèå ñîãëàøåíèÿ î
+  âûçîâå, òî ñîâìåñòèìûé ïðîöåäóðíûé òèï òîæå äîëæåí áûòü îáúÿâëåí ñ óêàçàíèåì
+  ñîãëàøåíèÿ î âûçîâå:
+  VAR
+      ExitProcess: PROCEDURE [windows] (code: INTEGER);
+      con_exit:    PROCEDURE [stdcall] (bCloseWindow: BOOLEAN);
+  Â KolibriOS èìïîðòèðîâàòü ïðîöåäóðû ìîæíî òîëüêî èç áèáëèîòåê, ðàçìåùåííûõ
+  â /rd/1/lib. Èìïîðòèðîâàòü è âûçûâàòü ôóíêöèè èíèöèàëèçàöèè áèáëèîòåê
+  (lib_init, START) ïðè ýòîì íå íóæíî.
+  Äëÿ Linux, èìïîðòèðîâàííûå ïðîöåäóðû íå ðåàëèçîâàíû.
 ------------------------------------------------------------------------------
-	Ñêðûòûå ïàðàìåòðû ïðîöåäóð
+        Ñêðûòûå ïàðàìåòðû ïðîöåäóð
   Íåêîòîðûå ïðîöåäóðû ìîãóò èìåòü ñêðûòûå ïàðàìåòðû, îíè îòñóòñòâóþò â ñïèñêå
 ôîðìàëüíûõ ïàðàìåòðîâ, íî ó÷èòûâàþòñÿ êîìïèëÿòîðîì ïðè òðàíñëÿöèè âûçîâîâ.
 Ýòî âîçìîæíî â ñëåäóþùèõ ñëó÷àÿõ:
-.	Ïðîöåäóðà èìååò ôîðìàëüíûé ïàðàìåòð îòêðûòûé ìàññèâ:
+.      Ïðîöåäóðà èìååò ôîðìàëüíûé ïàðàìåòð îòêðûòûé ìàññèâ:
-		PROCEDURE Proc(x: ARRAY OF ARRAY OF LONGREAL);
+                PROCEDURE Proc (x: ARRAY OF ARRAY OF REAL);
-	Âûçîâ òðàíñëèðóåòñÿ òàê:
+        Âûçîâ òðàíñëèðóåòñÿ òàê:
-		Proc(SYSTEM.ADR(x), LEN(x), LEN(x[0])
+                Proc(LEN(x), LEN(x[0]), SYSTEM.ADR(x))
-.	Ïðîöåäóðà èìååò ôîðìàëüíûé ïàðàìåòð-ïåðåìåííóþ òèïà RECORD:
+.      Ïðîöåäóðà èìååò ôîðìàëüíûé ïàðàìåòð-ïåðåìåííóþ òèïà RECORD:
-		PROCEDURE Proc(VAR x: Rec);
-	Âûçîâ òðàíñëèðóåòñÿ òàê:
-		Proc(SYSTEM.TYPEID(Rec), SYSTEM.ADR(x))
-.	Ïðîöåäóðà ÿâëÿåòñÿ âëîæåííîé, ãëóáèíà âëîæåíèÿ k,
-	äëÿ ãëîáàëüíûõ ïðîöåäóð k = 0:
-		PROCEDURE Proc(p1, ..., pn);
-	Âûçîâ òðàíñëèðóåòñÿ òàê:
-		Proc(base(k - 1), base(k - 2), ..., base(0), p1, ..., pn),
-	ãäå base(m) - àäðåñ áàçû êàäðà ñòýêà îõâàòûâàþùåé ïðîöåäóðû ãëóáèíû
+                PROCEDURE Proc (VAR x: Rec);
-	âëîæåíèÿ m (èñïîëüçóåòñÿ äëÿ äîñòóïà ê ëîêàëüíûì ïåðåìåííûì
+        Âûçîâ òðàíñëèðóåòñÿ òàê:
-	îõâàòûâàþùåé ïðîöåäóðû)
+                Proc(SYSTEM.TYPEID(Rec), SYSTEM.ADR(x))
 ------------------------------------------------------------------------------
-	Ìîäóëü RTL
+        Ìîäóëü RTL
+  Âñå ïðîãðàììû íåÿâíî èñïîëüçóþò ìîäóëü RTL. Êîìïèëÿòîð òðàíñëèðóåò
+íåêîòîðûå îïåðàöèè (ïðîâåðêà è îõðàíà òèïà, ñðàâíåíèå ñòðîê, ñîîáùåíèÿ îá
+îøèáêàõ âðåìåíè âûïîëíåíèÿ è äð.) êàê âûçîâû ïðîöåäóð ýòîãî ìîäóëÿ. Íå
+ñëåäóåò ÿâíî âûçûâàòü ýòè ïðîöåäóðû, çà èñêëþ÷åíèåì ïðîöåäóðû SetDll,
+åñëè ïðèëîæåíèå êîìïèëèðóåòñÿ êàê Windows DLL:
+        PROCEDURE SetDll
+            (process_detach, thread_detach, thread_attach: DLL_ENTRY);
+        ãäå TYPE DLL_ENTRY =
+            PROCEDURE (hinstDLL, fdwReason, lpvReserved: INTEGER);
-  Âñå ïðîãðàììû íåÿâíî èñïîëüçóþò ìîäóëü RTL. Êîìïèëÿòîð òðàíñëèðóåò
-íåêîòîðûå îïåðàöèè (ïðîâåðêà è îõðàíà òèïà, ñðàâíåíèå ñòðîê, ñîîáùåíèÿ îá
-îøèáêàõ âðåìåíè âûïîëíåíèÿ è äð.) êàê âûçîâû ïðîöåäóð ýòîãî ìîäóëÿ. Íå
-ñëåäóåò ÿâíî âûçûâàòü ýòè ïðîöåäóðû, çà èñêëþ÷åíèåì ïðîöåäóðû SetClose:
+SetDll íàçíà÷àåò ïðîöåäóðû process_detach, thread_detach, thread_attach
 âûçûâàåìûìè ïðè
-	PROCEDURE SetClose(proc: PROC), ãäå TYPE PROC = PROCEDURE
+- âûãðóçêå dll-áèáëèîòåêè (process_detach)
 - ñîçäàíèè íîâîãî ïîòîêà (thread_attach)
-SetClose íàçíà÷àåò ïðîöåäóðó proc (áåç ïàðàìåòðîâ) âûçûâàåìîé ïðè âûãðóçêå
+- óíè÷òîæåíèè ïîòîêà (thread_detach)
-dll-áèáëèîòåêè (Windows), åñëè ïðèëîæåíèå êîìïèëèðóåòñÿ êàê Windows DLL. Äëÿ
-ïðî÷èõ òèïîâ ïðèëîæåíèé è ïëàòôîðì âûçîâ ïðîöåäóðû SetClose íå âëèÿåò íà
+Äëÿ ïðî÷èõ òèïîâ ïðèëîæåíèé, âûçîâ ïðîöåäóðû SetDll íå âëèÿåò íà
 ïîâåäåíèå ïðîãðàììû.
   Ñîîáùåíèÿ îá îøèáêàõ âðåìåíè âûïîëíåíèÿ âûâîäÿòñÿ â äèàëîãîâûõ îêíàõ
 (Windows), â òåðìèíàë (Linux), íà äîñêó îòëàäêè (KolibriOS).
-	PROCEDURE [stdcall] lib_init(): INTEGER
+        PROCEDURE [stdcall] lib_init (): INTEGER
-Ýòà ïðîöåäóðà äîëæíà áûòü âûçâàíà ïåðåä èñïîëüçîâàíèåì DLL.
-Ïðîöåäóðà âñåãäà âîçâðàùàåò 1.
-  Â íàñòîÿùåå âðåìÿ ãåíåðàöèÿ DLL äëÿ Linux íå ðåàëèçîâàíà.
-==============================================================================
-==============================================================================
-	Áèáëèîòåêà (KolibriOS)
-------------------------------------------------------------------------------
-MODULE Out - êîíñîëüíûé âûâîä
-	PROCEDURE Open
-		ôîðìàëüíî îòêðûâàåò êîíñîëüíûé âûâîä
-	PROCEDURE Int(x, width: INTEGER)
-		âûâîä öåëîãî ÷èñëà x;
-		width - êîëè÷åñòâî çíàêîìåñò, èñïîëüçóåìûõ äëÿ âûâîäà
-	PROCEDURE Real(x: LONGREAL; width: INTEGER)
-		âûâîä âåùåñòâåííîãî ÷èñëà x â ïëàâàþùåì ôîðìàòå;
-		width - êîëè÷åñòâî çíàêîìåñò, èñïîëüçóåìûõ äëÿ âûâîäà
-	PROCEDURE Char(x: CHAR)
-		âûâîä ñèìâîëà x
-	PROCEDURE FixReal(x: LONGREAL; width, p: INTEGER)
-		âûâîä âåùåñòâåííîãî ÷èñëà x â ôèêñèðîâàííîì ôîðìàòå;
-		width - êîëè÷åñòâî çíàêîìåñò, èñïîëüçóåìûõ äëÿ âûâîäà;
-		p - êîëè÷åñòâî çíàêîâ ïîñëå äåñÿòè÷íîé òî÷êè
-	PROCEDURE Ln
-		ïåðåõîä íà ñëåäóþùóþ ñòðîêó
-	PROCEDURE String(s: ARRAY OF CHAR)
-		âûâîä ñòðîêè s
-------------------------------------------------------------------------------
-MODULE In - êîíñîëüíûé ââîä
-	VAR Done: BOOLEAN
-		ïðèíèìàåò çíà÷åíèå TRUE â ñëó÷àå óñïåøíîãî âûïîëíåíèÿ
-		îïåðàöèè ââîäà, èíà÷å FALSE
-	PROCEDURE Open
-		ôîðìàëüíî îòêðûâàåò êîíñîëüíûé ââîä,
-		òàêæå ïðèñâàèâàåò ïåðåìåííîé Done çíà÷åíèå TRUE
-	PROCEDURE Int(VAR x: INTEGER)
-		ââîä ÷èñëà òèïà INTEGER
-	PROCEDURE Char(VAR x: CHAR)
-		ââîä ñèìâîëà
-	PROCEDURE Real(VAR x: REAL)
-		ââîä ÷èñëà òèïà REAL
-	PROCEDURE LongReal(VAR x: LONGREAL)
-		ââîä ÷èñëà òèïà LONGREAL
-	PROCEDURE String(VAR s: ARRAY OF CHAR)
-		ââîä ñòðîêè
-	PROCEDURE Ln
-		îæèäàíèå íàæàòèÿ ENTER
-------------------------------------------------------------------------------
-MODULE Console - äîïîëíèòåëüíûå ïðîöåäóðû êîíñîëüíîãî âûâîäà
-	CONST
-	Ñëåäóþùèå êîíñòàíòû îïðåäåëÿþò öâåò êîíñîëüíîãî âûâîäà
-		Black = 0      Blue = 1 	  Green = 2
-		Cyan = 3       Red = 4		  Magenta = 5
-		Brown = 6      LightGray = 7	  DarkGray = 8
-		LightBlue = 9  LightGreen = 10	  LightCyan = 11
-		LightRed = 12  LightMagenta = 13  Yellow = 14
-		White = 15
-	PROCEDURE Cls
-		î÷èñòêà îêíà êîíñîëè
-	PROCEDURE SetColor(FColor, BColor: INTEGER)
-		óñòàíîâêà öâåòà êîíñîëüíîãî âûâîäà: FColor - öâåò òåêñòà,
-		BColor - öâåò ôîíà, âîçìîæíûå çíà÷åíèÿ - âûøåïåðå÷èñëåííûå
-		êîíñòàíòû
-	PROCEDURE SetCursor(x, y: INTEGER)
-		óñòàíîâêà êóðñîðà êîíñîëè â ïîçèöèþ (x, y)
-	PROCEDURE GetCursor(VAR x, y: INTEGER)
-		çàïèñûâàåò â ïàðàìåòðû òåêóùèå êîîðäèíàòû êóðñîðà êîíñîëè
-	PROCEDURE GetCursorX(): INTEGER
-		âîçâðàùàåò òåêóùóþ x-êîîðäèíàòó êóðñîðà êîíñîëè
-	PROCEDURE GetCursorY(): INTEGER
-		âîçâðàùàåò òåêóùóþ y-êîîðäèíàòó êóðñîðà êîíñîëè
-------------------------------------------------------------------------------
-MODULE ConsoleLib - îáåðòêà áèáëèîòåêè console.obj
-------------------------------------------------------------------------------
-MODULE Math - ìàòåìàòè÷åñêèå ôóíêöèè
-	CONST
-		pi = 3.141592653589793D+00
-		e  = 2.718281828459045D+00
-	VAR
-		Inf, nInf: LONGREAL
-			ïîëîæèòåëüíàÿ è îòðèöàòåëüíàÿ áåñêîíå÷íîñòü
-	PROCEDURE IsNan(x: LONGREAL): BOOLEAN
-		âîçâðàùàåò TRUE, åñëè x - íå ÷èñëî
-	PROCEDURE IsInf(x: LONGREAL): BOOLEAN
-		âîçâðàùàåò TRUE, åñëè x - áåñêîíå÷íîñòü
-	PROCEDURE sqrt(x: LONGREAL): LONGREAL
-		êâàäðàòíûé êîðåíü x
-	PROCEDURE exp(x: LONGREAL): LONGREAL
-		ýêñïîíåíòà x
-	PROCEDURE ln(x: LONGREAL): LONGREAL
-		íàòóðàëüíûé ëîãàðèôì x
-	PROCEDURE sin(x: LONGREAL): LONGREAL
-		ñèíóñ x
-	PROCEDURE cos(x: LONGREAL): LONGREAL
-		êîñèíóñ x
-	PROCEDURE tan(x: LONGREAL): LONGREAL
-		òàíãåíñ x
-	PROCEDURE arcsin(x: LONGREAL): LONGREAL
-		àðêñèíóñ x
-	PROCEDURE arccos(x: LONGREAL): LONGREAL
-		àðêêîñèíóñ x
-	PROCEDURE arctan(x: LONGREAL): LONGREAL
-		àðêòàíãåíñ x
-	PROCEDURE arctan2(y, x: LONGREAL): LONGREAL
-		àðêòàíãåíñ y/x
-	PROCEDURE power(base, exponent: LONGREAL): LONGREAL
-		âîçâåäåíèå ÷èñëà base â ñòåïåíü exponent
-	PROCEDURE log(base, x: LONGREAL): LONGREAL
-		ëîãàðèôì x ïî îñíîâàíèþ base
-	PROCEDURE sinh(x: LONGREAL): LONGREAL
-		ãèïåðáîëè÷åñêèé ñèíóñ x
-	PROCEDURE cosh(x: LONGREAL): LONGREAL
-		ãèïåðáîëè÷åñêèé êîñèíóñ x
-	PROCEDURE tanh(x: LONGREAL): LONGREAL
-		ãèïåðáîëè÷åñêèé òàíãåíñ x
-	PROCEDURE arcsinh(x: LONGREAL): LONGREAL
-		îáðàòíûé ãèïåðáîëè÷åñêèé ñèíóñ x
-	PROCEDURE arccosh(x: LONGREAL): LONGREAL
-		îáðàòíûé ãèïåðáîëè÷åñêèé êîñèíóñ x
-	PROCEDURE arctanh(x: LONGREAL): LONGREAL
-		îáðàòíûé ãèïåðáîëè÷åñêèé òàíãåíñ x
-	PROCEDURE round(x: LONGREAL): LONGREAL
-		îêðóãëåíèå x äî áëèæàéøåãî öåëîãî
-	PROCEDURE frac(x: LONGREAL): LONGREAL;
-		äðîáíàÿ ÷àñòü ÷èñëà x
-	PROCEDURE floor(x: LONGREAL): LONGREAL
-		íàèáîëüøåå öåëîå ÷èñëî (ïðåäñòàâëåíèå êàê LONGREAL),
-		íå áîëüøå x: floor(1.2) = 1.0
-	PROCEDURE ceil(x: LONGREAL): LONGREAL
-		íàèìåíüøåå öåëîå ÷èñëî (ïðåäñòàâëåíèå êàê LONGREAL),
-		íå ìåíüøå x: ceil(1.2) = 2.0
-	PROCEDURE sgn(x: LONGREAL): INTEGER
-		åñëè x > 0 âîçâðàùàåò 1
-		åñëè x < 0 âîçâðàùàåò -1
-		åñëè x = 0 âîçâðàùàåò 0
-------------------------------------------------------------------------------
-MODULE Debug - âûâîä íà äîñêó îòëàäêè
-	Èíòåðôåéñ êàê ìîäóëü Out
-	PROCEDURE Open
-		îòêðûâàåò äîñêó îòëàäêè
-------------------------------------------------------------------------------
-MODULE File - ðàáîòà ñ ôàéëîâîé ñèñòåìîé
-	TYPE
-		FNAME = ARRAY 520 OF CHAR
-		FS = POINTER TO rFS
-		rFS = RECORD (* èíôîðìàöèîííàÿ ñòðóêòóðà ôàéëà *)
-			subfunc, pos, hpos, bytes, buffer: INTEGER;
-			name: FNAME
-		END
-		FD = POINTER TO rFD
-		rFD = RECORD (* ñòðóêòóðà áëîêà äàííûõ âõîäà êàòàëîãà *)
-			attr: INTEGER;
-			ntyp: CHAR;
-			reserved: ARRAY 3 OF CHAR;
-			time_create, date_create,
-			time_access, date_access,
-			time_modif,  date_modif,
-			size, hsize: INTEGER;
-			name: FNAME
-		END
-	CONST
-		SEEK_BEG = 0
-		SEEK_CUR = 1
-		SEEK_END = 2
-	PROCEDURE Load(FName: ARRAY OF CHAR; VAR size: INTEGER): INTEGER;
-		Çàãðóæàåò â ïàìÿòü ôàéë ñ èìåíåì FName, çàïèñûâàåò â ïàðàìåòð
-		size ðàçìåð ôàéëà, âîçâðàùàåò àäðåñ çàãðóæåííîãî ôàéëà
-		èëè 0 (îøèáêà). Ïðè íåîáõîäèìîñòè, ðàñïàêîâûâàåò
-		ôàéë (kunpack).
-	PROCEDURE GetFileInfo(FName: ARRAY OF CHAR; VAR Info: rFD): BOOLEAN
-		Çàïèñûâàåò ñòðóêòóðó áëîêà äàííûõ âõîäà êàòàëîãà äëÿ ôàéëà
-		èëè ïàïêè ñ èìåíåì FName â ïàðàìåòð Info.
-		Ïðè îøèáêå âîçâðàùàåò FALSE.
-	PROCEDURE Exists(FName: ARRAY OF CHAR): BOOLEAN
-		âîçâðàùàåò TRUE, åñëè ôàéë ñ èìåíåì FName ñóùåñòâóåò
-	PROCEDURE Close(VAR F: FS)
-		îñâîáîæäàåò ïàìÿòü, âûäåëåííóþ äëÿ èíôîðìàöèîííîé ñòðóêòóðû
-		ôàéëà F è ïðèñâàèâàåò F çíà÷åíèå NIL
-	PROCEDURE Open(FName: ARRAY OF CHAR): FS
-		âîçâðàùàåò óêàçàòåëü íà èíôîðìàöèîííóþ ñòðóêòóðó ôàéëà ñ
-		èìåíåì FName, ïðè îøèáêå âîçâðàùàåò NIL
-	PROCEDURE Delete(FName: ARRAY OF CHAR): BOOLEAN
-		óäàëÿåò ôàéë ñ èìåíåì FName, ïðè îøèáêå âîçâðàùàåò FALSE
-	PROCEDURE Seek(F: FS; Offset, Origin: INTEGER): INTEGER
-		óñòàíàâëèâàåò ïîçèöèþ ÷òåíèÿ-çàïèñè ôàéëà F íà Offset,
-		îòíîñèòåëüíî Origin = (SEEK_BEG - íà÷àëî ôàéëà,
-		SEEK_CUR - òåêóùàÿ ïîçèöèÿ, SEEK_END - êîíåö ôàéëà),
-		âîçâðàùàåò ïîçèöèþ îòíîñèòåëüíî íà÷àëà ôàéëà, íàïðèìåð:
-			Seek(F, 0, SEEK_END)
-		óñòàíàâëèâàåò ïîçèöèþ íà êîíåö ôàéëà è âîçâðàùàåò äëèíó
-		ôàéëà; ïðè îøèáêå âîçâðàùàåò -1
-	PROCEDURE Read(F: FS; Buffer, Count: INTEGER): INTEGER
-		×èòàåò äàííûå èç ôàéëà â ïàìÿòü. F - óêàçàòåëü íà
-		èíôîðìàöèîííóþ ñòðóêòóðó ôàéëà, Buffer - àäðåñ îáëàñòè
-		ïàìÿòè, Count - êîëè÷åñòâî áàéò, êîòîðîå òðåáóåòñÿ ïðî÷èòàòü
-		èç ôàéëà; âîçâðàùàåò êîëè÷åñòâî áàéò, êîòîðîå áûëî ïðî÷èòàíî
-		è ñîîòâåòñòâóþùèì îáðàçîì èçìåíÿåò ïîçèöèþ ÷òåíèÿ/çàïèñè â
-		èíôîðìàöèîííîé ñòðóêòóðå F.
-	PROCEDURE Write(F: FS; Buffer, Count: INTEGER): INTEGER
-		Çàïèñûâàåò äàííûå èç ïàìÿòè â ôàéë. F - óêàçàòåëü íà
-		èíôîðìàöèîííóþ ñòðóêòóðó ôàéëà, Buffer - àäðåñ îáëàñòè
-		ïàìÿòè, Count - êîëè÷åñòâî áàéò, êîòîðîå òðåáóåòñÿ çàïèñàòü
-		â ôàéë; âîçâðàùàåò êîëè÷åñòâî áàéò, êîòîðîå áûëî çàïèñàíî è
-		ñîîòâåòñòâóþùèì îáðàçîì èçìåíÿåò ïîçèöèþ ÷òåíèÿ/çàïèñè â
-		èíôîðìàöèîííîé ñòðóêòóðå F.
-	PROCEDURE Create(FName: ARRAY OF CHAR): FS
-		ñîçäàåò íîâûé ôàéë ñ èìåíåì FName (ïîëíîå èìÿ), âîçâðàùàåò
-		óêàçàòåëü íà èíôîðìàöèîííóþ ñòðóêòóðó ôàéëà,
-		ïðè îøèáêå âîçâðàùàåò NIL
-	PROCEDURE CreateDir(DirName: ARRAY OF CHAR): BOOLEAN
-		ñîçäàåò ïàïêó ñ èìåíåì DirName, âñå ïðîìåæóòî÷íûå ïàïêè
-		äîëæíû ñóùåñòâîâàòü, ïðè îøèáêå âîçâðàùàåò FALSE
-	PROCEDURE DeleteDir(DirName: ARRAY OF CHAR): BOOLEAN
-		óäàëÿåò ïóñòóþ ïàïêó ñ èìåíåì DirName,
-		ïðè îøèáêå âîçâðàùàåò FALSE
-	PROCEDURE DirExists(DirName: ARRAY OF CHAR): BOOLEAN
-		âîçâðàùàåò TRUE, åñëè ïàïêà ñ èìåíåì DirName ñóùåñòâóåò
-------------------------------------------------------------------------------
-MODULE Read - ÷òåíèå îñíîâíûõ òèïîâ äàííûõ èç ôàéëà F
-	Ïðîöåäóðû âîçâðàùàþò TRUE â ñëó÷àå óñïåøíîé îïåðàöèè ÷òåíèÿ è
-	ñîîòâåòñòâóþùèì îáðàçîì èçìåíÿþò ïîçèöèþ ÷òåíèÿ/çàïèñè â
-	èíôîðìàöèîííîé ñòðóêòóðå F
-	PROCEDURE Char(F: File.FS; VAR x: CHAR): BOOLEAN
-	PROCEDURE Int(F: File.FS; VAR x: INTEGER): BOOLEAN
-	PROCEDURE Real(F: File.FS; VAR x: REAL): BOOLEAN
-	PROCEDURE LongReal(F: File.FS; VAR x: LONGREAL): BOOLEAN
-	PROCEDURE Boolean(F: File.FS; VAR x: BOOLEAN): BOOLEAN
-	PROCEDURE Set(F: File.FS; VAR x: SET): BOOLEAN
-	PROCEDURE Card16(F: File.FS; VAR x: SYSTEM.CARD16): BOOLEAN
-------------------------------------------------------------------------------
-MODULE Write - çàïèñü îñíîâíûõ òèïîâ äàííûõ â ôàéë F
-	Ïðîöåäóðû âîçâðàùàþò TRUE â ñëó÷àå óñïåøíîé îïåðàöèè çàïèñè è
-	ñîîòâåòñòâóþùèì îáðàçîì èçìåíÿþò ïîçèöèþ ÷òåíèÿ/çàïèñè â
-	èíôîðìàöèîííîé ñòðóêòóðå F
-	PROCEDURE Char(F: File.FS; x: CHAR): BOOLEAN
-	PROCEDURE Int(F: File.FS; x: INTEGER): BOOLEAN
-	PROCEDURE Real(F: File.FS; x: REAL): BOOLEAN
-	PROCEDURE LongReal(F: File.FS; x: LONGREAL): BOOLEAN
-	PROCEDURE Boolean(F: File.FS; x: BOOLEAN): BOOLEAN
-	PROCEDURE Set(F: File.FS; x: SET): BOOLEAN
-	PROCEDURE Card16(F: File.FS; x: SYSTEM.CARD16): BOOLEAN
-------------------------------------------------------------------------------
-MODULE DateTime - äàòà, âðåìÿ
-	CONST ERR = -7.0D5
-	PROCEDURE Now(VAR Year, Month, Day, Hour, Min, Sec: INTEGER)
-		çàïèñûâàåò â ïàðàìåòðû êîìïîíåíòû òåêóùåé ñèñòåìíîé äàòû è
-		âðåìåíè
-	PROCEDURE Encode(Year, Month, Day, Hour, Min, Sec: INTEGER): LONGREAL
-		âîçâðàùàåò äàòó, ïîëó÷åííóþ èç êîìïîíåíòîâ
-		Year, Month, Day, Hour, Min, Sec;
-		ïðè îøèáêå âîçâðàùàåò êîíñòàíòó ERR = -7.0D5
-	PROCEDURE Decode(Date: LONGREAL; VAR Year, Month, Day,
-				Hour, Min, Sec: INTEGER): BOOLEAN
-		èçâëåêàåò êîìïîíåíòû
-		Year, Month, Day, Hour, Min, Sec èç äàòû Date;
-		ïðè îøèáêå âîçâðàùàåò FALSE
-------------------------------------------------------------------------------
-MODULE Args - ïàðàìåòðû ïðîãðàììû
-	VAR argc: INTEGER
-		êîëè÷åñòâî ïàðàìåòðîâ ïðîãðàììû, âêëþ÷àÿ èìÿ
-		èñïîëíÿåìîãî ôàéëà
-	PROCEDURE GetArg(n: INTEGER; VAR s: ARRAY OF CHAR)
-		çàïèñûâàåò â ñòðîêó s n-é ïàðàìåòð ïðîãðàììû,
-		íóìåðàöèÿ ïàðàìåòðîâ îò 0 äî argc - 1,
-		íóëåâîé ïàðàìåòð -- èìÿ èñïîëíÿåìîãî ôàéëà
-------------------------------------------------------------------------------
-MODULE KOSAPI
-	PROCEDURE sysfunc1(arg1: INTEGER): INTEGER
-	PROCEDURE sysfunc2(arg1, arg2: INTEGER): INTEGER
-	...
-	PROCEDURE sysfunc7(arg1, arg2, ..., arg7: INTEGER): INTEGER
-		Îáåðòêè äëÿ ôóíêöèé API ÿäðà KolibriOS.
-		arg1 .. arg7 ñîîòâåòñòâóþò ðåãèñòðàì
-			eax, ebx, ecx, edx, esi, edi, ebp;
-		âîçâðàùàþò çíà÷åíèå ðåãèñòðà eax ïîñëå ñèñòåìíîãî âûçîâà.
-	PROCEDURE sysfunc22(arg1, arg2: INTEGER; VAR res2: INTEGER): INTEGER
-		Îáåðòêà äëÿ ôóíêöèé API ÿäðà KolibriOS.
-		arg1 - ðåãèñòð eax, arg2 - ðåãèñòð ebx,
-		res2 - çíà÷åíèå ðåãèñòðà ebx ïîñëå ñèñòåìíîãî âûçîâà;
-		âîçâðàùàåò çíà÷åíèå ðåãèñòðà eax ïîñëå ñèñòåìíîãî âûçîâà.
-	PROCEDURE malloc(size: INTEGER): INTEGER
-		Âûäåëÿåò áëîê ïàìÿòè.
-		size - ðàçìåð áëîêà â áàéòàõ,
-		âîçâðàùàåò àäðåñ âûäåëåííîãî áëîêà
-	PROCEDURE free(ptr: INTEGER): INTEGER
-		Îñâîáîæäàåò ðàíåå âûäåëåííûé áëîê ïàìÿòè ñ àäðåñîì ptr,
-		âîçâðàùàåò 0
-	PROCEDURE realloc(ptr, size: INTEGER): INTEGER
-		Ïåðåðàñïðåäåëÿåò áëîê ïàìÿòè,
-		ptr - àäðåñ ðàíåå âûäåëåííîãî áëîêà,
-		size - íîâûé ðàçìåð,
-		âîçâðàùàåò óêàçàòåëü íà ïåðåðàñïðåäåëåííûé áëîê,
-ïðè îøèáêå
-	PROCEDURE GetCommandLine(): INTEGER
-		Âîçâðàùàåò àäðåñ ñòðîêè ïàðàìåòðîâ
-	PROCEDURE GetName(): INTEGER
-		Âîçâðàùàåò àäðåñ ñòðîêè ñ èìåíåì ïðîãðàììû
-	PROCEDURE LoadLib(name: ARRAY OF CHAR): INTEGER
-		Çàãðóæàåò DLL ñ ïîëíûì èìåíåì name. Âîçâðàùàåò àäðåñ òàáëèöû
-		ýêñïîðòà. Ïðè îøèáêå âîçâðàùàåò 0.
-	PROCEDURE GetProcAdr(name: ARRAY OF CHAR; lib: INTEGER): INTEGER
-		name - èìÿ ïðîöåäóðû
-		lib - àäðåñ òàáëèöû ýêñïîðòà DLL
-		Âîçâðàùàåò àäðåñ ïðîöåäóðû. Ïðè îøèáêå âîçâðàùàåò 0.
-------------------------------------------------------------------------------
-MODULE ColorDlg - ðàáîòà ñ äèàëîãîì "Color Dialog"
-	TYPE
-		Dialog = POINTER TO RECORD (* ñòðóêòóðà äèàëîãà *)
-		    status: INTEGER   (* ñîñòîÿíèå äèàëîãà:
-- ïîëüçîâàòåëü íàæàë Cancel
-- ïîëüçîâàòåëü íàæàë OK
-- äèàëîã îòêðûò	     *)
-		    color:  INTEGER   (* âûáðàííûé öâåò *)
-		END
-	PROCEDURE Create(draw_window: DRAW_WINDOW): Dialog
-		ñîçäàòü äèàëîã
-		draw_window - ïðîöåäóðà ïåðåðèñîâêè îñíîâíîãî îêíà
-		(TYPE DRAW_WINDOW = PROCEDURE);
-		ïðîöåäóðà âîçâðàùàåò óêàçàòåëü íà ñòðóêòóðó äèàëîãà
-	PROCEDURE Show(cd: Dialog)
-		ïîêàçàòü äèàëîã
-		cd - óêàçàòåëü íà ñòðóêòóðó äèàëîãà, êîòîðûé áûë ñîçäàí ðàíåå
-		ïðîöåäóðîé Create
-	PROCEDURE Destroy(VAR cd: Dialog)
-		óíè÷òîæèòü äèàëîã
-		cd - óêàçàòåëü íà ñòðóêòóðó äèàëîãà
-------------------------------------------------------------------------------
-MODULE OpenDlg - ðàáîòà ñ äèàëîãîì "Open Dialog"
-	TYPE
-		Dialog = POINTER TO RECORD (* ñòðóêòóðà äèàëîãà *)
-		    status:   INTEGER  (* ñîñòîÿíèå äèàëîãà:
-- ïîëüçîâàòåëü íàæàë Cancel
-- ïîëüçîâàòåëü íàæàë OK
-- äèàëîã îòêðûò	      *)
-		    FileName: ARRAY 4096 OF CHAR (* èìÿ âûáðàííîãî ôàéëà *)
-		    FilePath: ARRAY 4096 OF CHAR (* ïîëíîå èìÿ âûáðàííîãî
-						    ôàéëà		 *)
-		END
-	PROCEDURE Create(draw_window: DRAW_WINDOW; type: INTEGER; def_path,
-			filter: ARRAY OF CHAR): Dialog
-		ñîçäàòü äèàëîã
-		draw_window - ïðîöåäóðà ïåðåðèñîâêè îñíîâíîãî îêíà
-			(TYPE DRAW_WINDOW = PROCEDURE)
-		type -	òèï äèàëîãà
-- îòêðûòü
-- ñîõðàíèòü
-- âûáðàòü ïàïêó
-		def_path - ïóòü ïî óìîë÷àíèþ, ïàïêà def_path áóäåò îòêðûòà
-			ïðè ïåðâîì çàïóñêå äèàëîãà
-		filter - â ñòðîêå çàïèñàíî ïåðå÷èñëåíèå ðàñøèðåíèé ôàéëîâ,
-			êîòîðûå áóäóò ïîêàçàíû â äèàëîãîâîì îêíå, ðàñøèðåíèÿ
-			ðàçäåëÿþòñÿ ñèìâîëîì "|", íàïðèìåð: "ASM|TXT|INI"
-		ïðîöåäóðà âîçâðàùàåò óêàçàòåëü íà ñòðóêòóðó äèàëîãà
-	PROCEDURE Show(od: Dialog; Width, Height: INTEGER)
-		ïîêàçàòü äèàëîã
-		od - óêàçàòåëü íà ñòðóêòóðó äèàëîãà, êîòîðûé áûë ñîçäàí ðàíåå
-		     ïðîöåäóðîé Create
-		Width è Height - øèðèíà è âûñîòà äèàëîãîâîãî îêíà
-	PROCEDURE Destroy(VAR od: Dialog)
-		óíè÷òîæèòü äèàëîã
-		od - óêàçàòåëü íà ñòðóêòóðó äèàëîãà
-------------------------------------------------------------------------------
-MODULE kfonts - ðàáîòà ñ kf-øðèôòàìè
-	CONST
-		bold		=   1
-		italic		=   2
-		underline	=   4
-		strike_through	=   8
-		smoothing	=  16
-		bpp32		=  32
-	TYPE
-		TFont = POINTER TO TFont_desc (* óêàçàòåëü íà øðèôò *)
-	PROCEDURE LoadFont(file_name: ARRAY OF CHAR): TFont
-		çàãðóçèòü øðèôò èç ôàéëà
-		file_name   èìÿ kf-ôàéëà
-		ðåç-ò:	    óêàçàòåëü íà øðèôò/NIL (îøèáêà)
-	PROCEDURE SetSize(Font: TFont; font_size: INTEGER): BOOLEAN
-		óñòàíîâèòü ðàçìåð øðèôòà
-		Font	    óêàçàòåëü íà øðèôò
-		font_size   ðàçìåð øðèôòà
-		ðåç-ò:	    TRUE/FALSE (îøèáêà)
-	PROCEDURE Enabled(Font: TFont; font_size: INTEGER): BOOLEAN
-		ïðîâåðèòü, åñòü ëè øðèôò, çàäàííîãî ðàçìåðà
-		Font	    óêàçàòåëü íà øðèôò
-		font_size   ðàçìåð øðèôòà
-		ðåç-ò:	    TRUE/FALSE (øðèôòà íåò)
-	PROCEDURE Destroy(VAR Font: TFont)
-		âûãðóçèòü øðèôò, îñâîáîäèòü äèíàìè÷åñêóþ ïàìÿòü
-		Font	    óêàçàòåëü íà øðèôò
-		Ïðèñâàèâàåò ïåðåìåííîé Font çíà÷åíèå NIL
-	PROCEDURE TextHeight(Font: TFont): INTEGER
-		ïîëó÷èòü âûñîòó ñòðîêè òåêñòà
-		Font	    óêàçàòåëü íà øðèôò
-		ðåç-ò:	    âûñîòà ñòðîêè òåêñòà â ïèêñåëÿõ
-	PROCEDURE TextWidth(Font: TFont;
-		    str, length, params: INTEGER): INTEGER
-		ïîëó÷èòü øèðèíó ñòðîêè òåêñòà
-		Font	    óêàçàòåëü íà øðèôò
-		str	    àäðåñ ñòðîêè òåêñòà â êîäèðîâêå Win-1251
-		length	    êîëè÷åñòâî ñèìâîëîâ â ñòðîêå èëè -1, åñëè ñòðîêà
-			    çàâåðøàåòñÿ íóëåì
-		params	    ïàðàìåòðû-ôëàãè ñì. íèæå
-		ðåç-ò:	    øèðèíà ñòðîêè òåêñòà â ïèêñåëÿõ
-	PROCEDURE TextOut(Font: TFont;
-		    canvas, x, y, str, length, color, params: INTEGER)
-		âûâåñòè òåêñò â áóôåð
-		äëÿ âûâîäà áóôåðà â îêíî, èñïîëüçîâàòü ô.65 èëè
-		ô.7 (åñëè áóôåð 24-áèòíûé)
-		Font	    óêàçàòåëü íà øðèôò
-		canvas	    àäðåñ ãðàôè÷åñêîãî áóôåðà
-			    ñòðóêòóðà áóôåðà:
-			      Xsize	  dd
-			      Ysize	  dd
-			      picture	  rb  Xsize * Ysize * 4 (32 áèòà)
-					      èëè Xsize * Ysize * 3 (24 áèòà)
-		x, y	    êîîðäèíàòû òåêñòà îòíîñèòåëüíî ëåâîãî âåðõíåãî
-			    óãëà áóôåðà
-		str	    àäðåñ ñòðîêè òåêñòà â êîäèðîâêå Win-1251
-		length	    êîëè÷åñòâî ñèìâîëîâ â ñòðîêå èëè -1, åñëè ñòðîêà
-			    çàâåðøàåòñÿ íóëåì
-		color	    öâåò òåêñòà 0x00RRGGBB
-		params	    ïàðàìåòðû-ôëàãè:
-æèðíûé
-êóðñèâ
-ïîä÷åðêíóòûé
-ïåðå÷åðêíóòûé
-ïðèìåíèòü ñãëàæèâàíèå
-âûâîä â 32-áèòíûé áóôåð
-			    âîçìîæíî èñïîëüçîâàíèå ôëàãîâ â ëþáûõ ñî÷åòàíèÿõ
-------------------------------------------------------------------------------
-MODULE RasterWorks - îáåðòêà áèáëèîòåêè Rasterworks.obj
-------------------------------------------------------------------------------
-MODULE libimg - îáåðòêà áèáëèîòåêè libimg.obj
-------------------------------------------------------------------------------
+Ýòà ïðîöåäóðà äîëæíà áûòü âûçâàíà ïåðåä èñïîëüçîâàíèåì DLL.
+Ïðîöåäóðà âñåãäà âîçâðàùàåò 1.
 MODULE NetDevices - îáåðòêà äëÿ ô.74 (ðàáîòà ñ ñåòåâûìè óñòðîéñòâàìè)

Subversion Repositories Kolibri OS

(root)/programs/develop/oberon07/Docs/About1251.txt – Rev 7209 → 7597