Subversion Repositories Kolibri OS

Rev

Rev 7696 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 7696 Rev 7983
Line 1... Line 1...
1 
(*
 1 
(*
2 
    BSD 2-Clause License
 2 
    BSD 2-Clause License
Line 3... Line 3...
3 
 
 3 
 
4 
    Copyright (c) 2019, Anton Krotov
 4 
    Copyright (c) 2019-2020, Anton Krotov
5 
    All rights reserved.
 5 
    All rights reserved.
Line 6... Line 6...
6 
*)
 6 
*)
Line 11... Line 11...
11 
 
 11 
 
Line 12... Line 12...
12 
 
 12 
 
- 
 
 13 
TYPE
Line 13... Line 14...
13 
TYPE
 14 
 
Line 14... Line 15...
14 
 
 15 
    TP* = API.TP;
Line 67... Line 68...
67 
        s[0] := 0X
 68 
        s[0] := 0X
68 
    END
 69 
    END
69 
END GetEnv;
 70 
END GetEnv;
Line -... Line 71...
- 
 
 71 
 
- 
 
 72 
 
- 
 
 73 
PROCEDURE SetFini* (ProcFini: SOFINI);
- 
 
 74 
BEGIN
- 
 
 75 
    API.SetFini(ProcFini)
- 
 
 76 
END SetFini;
70 
 
 77 
 
71 
 
 78 
 
72 
PROCEDURE init;
 79 
PROCEDURE init;
Line 73... Line 80...
73 
VAR
 80 
VAR
74 
    ptr: INTEGER;
 - 
 
75 
 
 81 
    ptr: INTEGER;
76 
BEGIN
 82 
 
77 
 
 83 
BEGIN
78 
    IF API.MainParam # 0 THEN
 84 
    IF API.MainParam # 0 THEN
79 
        envc := -1;
 85 
        envc := -1;