51e4ae050a
* Replace languageCaseSensitive by languageName data in PCU and caseSensitive parameters in Compiler functions * Implement SearchDirectories filling in Compiler and move SPython standard modules to their new directory * Implement search using current language extension first in Compiler * Delete LibForVB folder and update TestRunner to support different Lib dirs * Update installer scripts to create separate Lib folder for SPython * Take into account Lib dirs not found * Delete supportedSourceFiles variable in Compiler * Delete unused functions from LanguageIntegrator
53 lines
1.5 KiB
ObjectPascal
53 lines
1.5 KiB
ObjectPascal
{$HiddenIdents}
|
|
unit SPythonHidden;
|
|
|
|
interface
|
|
|
|
uses SPythonSystem;
|
|
|
|
function !Floor(x : real) : integer;
|
|
|
|
function !FloorDiv(x: real; y: real): integer;
|
|
|
|
function !FloorMod(x: real; y: real): real;
|
|
|
|
type !UnknownType = class
|
|
end;
|
|
|
|
// TODO: Перенести в SPythonSystemPys следующие методы
|
|
function list<T>(sq: sequence of T): SPythonSystem.list<T>;
|
|
|
|
function list<K, V>(d : dict<K, V>) : SPythonSystem.list<K>;
|
|
|
|
function &set<T>(sq: sequence of T): &set<T>;
|
|
|
|
function &set(): empty_set;
|
|
|
|
function dict<TKey, TVal>(params pairs: array of (TKey, TVal)): dict<TKey, TVal>;
|
|
|
|
function dict<TKey, TVal>(seqOfPairs: IEnumerable<System.Tuple<TKey, TVal>>) : dict<TKey, TVal>;
|
|
|
|
implementation
|
|
|
|
function list<T>(sq: sequence of T): SPythonSystem.list<T> := new SPythonSystem.list<T>(sq);
|
|
|
|
function list<K, V>(d : dict<K, V>) : SPythonSystem.list<K> := new SPythonSystem.list<K>(d.keys());
|
|
|
|
function &set<T>(sq: sequence of T): &set<T>;
|
|
begin
|
|
Result := new &set<T>(sq);
|
|
end;
|
|
|
|
function &set(): empty_set := new empty_set;
|
|
|
|
function dict<TKey, TVal>(params pairs: array of (TKey, TVal)): dict<TKey, TVal> := new dict<TKey, TVal>(pairs);
|
|
|
|
function dict<TKey, TVal>(seqOfPairs: sequence of (TKey, TVal)): dict<TKey, TVal> := new dict<TKey, TVal>(seqOfPairs);
|
|
|
|
function !Floor(x : real) : integer := PABCSystem.Floor(x);
|
|
|
|
function !FloorDiv(x: real; y: real): integer := PABCSystem.Floor(x / y);
|
|
|
|
function !FloorMod(x: real; y: real): real := x - PABCSystem.Floor(x / y) * y;
|
|
|
|
end. |