b8bda89f0f
* Fix div and mod in SPython * Fix generic type names search in SPython symbol table * Small fixes * Add few checks in Intellisense * Add comments about units compilation order
79 lines
2.1 KiB
ObjectPascal
79 lines
2.1 KiB
ObjectPascal
{$HiddenIdents}
|
|
unit SPythonHidden;
|
|
|
|
interface
|
|
|
|
uses SPythonSystem;
|
|
|
|
function !Floor(x : real) : integer;
|
|
|
|
function !Div(x: integer; y: integer): integer;
|
|
|
|
function !Div(x: BigInteger; y: BigInteger): BigInteger;
|
|
|
|
function !Div(x: real; y: real): real;
|
|
|
|
function !Mod(x: integer; y: integer): integer;
|
|
|
|
function !Mod(x: BigInteger; y: BigInteger): BigInteger;
|
|
|
|
function !Mod(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 !Div(x: integer; y: integer): integer;
|
|
begin
|
|
Result := x div y;
|
|
if ((x < 0) xor (y < 0)) and (x mod y <> 0) then
|
|
Result -= 1;
|
|
end;
|
|
|
|
function !Div(x: BigInteger; y: BigInteger): BigInteger;
|
|
begin
|
|
Result := x div y;
|
|
if ((x < 0) xor (y < 0)) and (x mod y <> 0) then
|
|
Result -= 1;
|
|
end;
|
|
|
|
function !Div(x: real; y: real): real := System.Math.Floor(x / y);
|
|
|
|
function !Mod(x: integer; y: integer): integer := x - !Div(x, y) * y;
|
|
|
|
function !Mod(x: BigInteger; y: BigInteger): BigInteger := x - !Div(x, y) * y;
|
|
|
|
function !Mod(x: real; y: real): real := x - PABCSystem.Floor(x / y) * y;
|
|
|
|
end. |