Subversion Repositories Kolibri OS

Rev

Rev 7597 | Go to most recent revision | Blame | Last modification | View Log | Download | RSS feed

  1. (*
  2.     BSD 2-Clause License
  3.  
  4.     Copyright (c) 2019, Anton Krotov
  5.     All rights reserved.
  6. *)
  7.  
  8. MODULE LINAPI;
  9.  
  10. IMPORT SYSTEM, API;
  11.  
  12.  
  13. TYPE
  14.  
  15.     TP* = API.TP;
  16.  
  17.  
  18. VAR
  19.  
  20.     argc*, envc*: INTEGER;
  21.  
  22.     libc*, librt*: INTEGER;
  23.  
  24.     stdout*,
  25.     stdin*,
  26.     stderr*        : INTEGER;
  27.  
  28.     malloc*        : PROCEDURE [linux] (size: INTEGER): INTEGER;
  29.     free*          : PROCEDURE [linux] (ptr: INTEGER);
  30.     exit*          : PROCEDURE [linux] (code: INTEGER);
  31.     puts*          : PROCEDURE [linux] (pStr: INTEGER);
  32.     fwrite*,
  33.     fread*         : PROCEDURE [linux] (buffer, bytes, blocks, file: INTEGER): INTEGER;
  34.     fopen*         : PROCEDURE [linux] (fname, fmode: INTEGER): INTEGER;
  35.     fclose*        : PROCEDURE [linux] (file: INTEGER): INTEGER;
  36.     time*          : PROCEDURE [linux] (ptr: INTEGER): INTEGER;
  37.  
  38.     clock_gettime* : PROCEDURE [linux] (clock_id: INTEGER; VAR tp: TP): INTEGER;
  39.  
  40.  
  41. PROCEDURE GetArg* (n: INTEGER; VAR s: ARRAY OF CHAR);
  42. VAR
  43.     i, len, ptr: INTEGER;
  44.     c: CHAR;
  45.  
  46. BEGIN
  47.     i := 0;
  48.     len := LEN(s) - 1;
  49.     IF (0 <= n) & (n <= argc + envc) & (n # argc) & (len > 0) THEN
  50.         SYSTEM.GET(API.MainParam + (n + 1) * SYSTEM.SIZE(INTEGER), ptr);
  51.         REPEAT
  52.             SYSTEM.GET(ptr, c);
  53.             s[i] := c;
  54.             INC(i);
  55.             INC(ptr)
  56.         UNTIL (c = 0X) OR (i = len)
  57.     END;
  58.     s[i] := 0X
  59. END GetArg;
  60.  
  61.  
  62. PROCEDURE GetEnv* (n: INTEGER; VAR s: ARRAY OF CHAR);
  63. BEGIN
  64.     IF (0 <= n) & (n < envc) THEN
  65.         GetArg(n + argc + 1, s)
  66.     ELSE
  67.         s[0] := 0X
  68.     END
  69. END GetEnv;
  70.  
  71.  
  72. PROCEDURE init;
  73. VAR
  74.     ptr: INTEGER;
  75.  
  76. BEGIN
  77.     envc := -1;
  78.     SYSTEM.GET(API.MainParam, argc);
  79.     REPEAT
  80.         SYSTEM.GET(API.MainParam + (envc + argc + 3) * SYSTEM.SIZE(INTEGER), ptr);
  81.         INC(envc)
  82.     UNTIL ptr = 0;
  83.  
  84.     libc := API.libc;
  85.  
  86.     stdout := API.stdout;
  87.     stdin  := API.stdin;
  88.     stderr := API.stderr;
  89.  
  90.     malloc := API.malloc;
  91.     free   := API.free;
  92.     exit   := API._exit;
  93.     puts   := API.puts;
  94.     fwrite := API.fwrite;
  95.     fread  := API.fread;
  96.     fopen  := API.fopen;
  97.     fclose := API.fclose;
  98.     time   := API.time;
  99.  
  100.     librt := API.librt;
  101.  
  102.     clock_gettime := API.clock_gettime
  103. END init;
  104.  
  105.  
  106. PROCEDURE [stdcall-] syscall* (eax, ebx, ecx, edx, esi, edi: INTEGER): INTEGER;
  107. BEGIN
  108.     SYSTEM.CODE(
  109.     053H,               (*  push    ebx                    *)
  110.     056H,               (*  push    esi                    *)
  111.     057H,               (*  push    edi                    *)
  112.     08BH, 045H, 008H,   (*  mov     eax, dword [ebp +  8]  *)
  113.     08BH, 05DH, 00CH,   (*  mov     ebx, dword [ebp + 12]  *)
  114.     08BH, 04DH, 010H,   (*  mov     ecx, dword [ebp + 16]  *)
  115.     08BH, 055H, 014H,   (*  mov     edx, dword [ebp + 20]  *)
  116.     08BH, 075H, 018H,   (*  mov     esi, dword [ebp + 24]  *)
  117.     08BH, 07DH, 01CH,   (*  mov     edi, dword [ebp + 28]  *)
  118.     0CDH, 080H,         (*  int     128                    *)
  119.     05FH,               (*  pop     edi                    *)
  120.     05EH,               (*  pop     esi                    *)
  121.     05BH,               (*  pop     ebx                    *)
  122.     0C9H,               (*  leave                          *)
  123.     0C2H, 018H, 000H    (*  ret     24                     *)
  124.     )
  125.     RETURN 0
  126. END syscall;
  127.  
  128.  
  129. BEGIN
  130.     init
  131. END LINAPI.