Subversion Repositories Kolibri OS

Rev

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

Rev 6613 Rev 7597
Line 1... Line 1...
1 
(*
 1 
(*
2 
    Copyright 2016 KolibriOS team
 2 
    Copyright 2016, 2018 KolibriOS team
Line 3... Line 3...
3 
 
 3 
 
4 
    This program is free software: you can redistribute it and/or modify
 4 
    This program is free software: you can redistribute it and/or modify
5 
    it under the terms of the GNU Lesser General Public License as published by
 5 
    it under the terms of the GNU Lesser General Public License as published by
6 
    the Free Software Foundation, either version 3 of the License, or
 6 
    the Free Software Foundation, either version 3 of the License, or
Line 99... Line 99...
99 
 
 99 
 
100 
 
 100 
 
Line 101... Line 101...
101 
PROCEDURE main;
 101 
PROCEDURE main;
102 
VAR Lib: INTEGER;
 102 
VAR Lib: INTEGER;
103 
 
 103 
 
104 
  PROCEDURE GetProc(v: INTEGER; name: ARRAY OF CHAR);
 104 
  PROCEDURE GetProc(Lib, v: INTEGER; name: ARRAY OF CHAR);
105 
  VAR a: INTEGER;
 105 
  VAR a: INTEGER;
106 
  BEGIN
 106 
  BEGIN
107 
    a := KOSAPI.GetProcAdr(name, Lib);
 107 
    a := KOSAPI.GetProcAdr(name, Lib);
Line 108... Line 108...
108 
    ASSERT(a # 0);
 108 
    ASSERT(a # 0);
109 
    sys.PUT(v, a)
 109 
    sys.PUT(v, a)
110 
  END GetProc;
 110 
  END GetProc;
111 
 
 111 
 
112 
BEGIN
 112 
BEGIN
113 
  Lib := KOSAPI.LoadLib("/rd/1/lib/RasterWorks.obj");
 113 
  Lib := KOSAPI.LoadLib("/rd/1/lib/RasterWorks.obj");
114 
  ASSERT(Lib # 0);
 114 
  ASSERT(Lib # 0);
115 
  GetProc(sys.ADR(drawText), "drawText");
 115 
  GetProc(Lib, sys.ADR(drawText), "drawText");
Line 116... Line 116...
116 
  GetProc(sys.ADR(cntUTF_8), "cntUTF-8");
 116 
  GetProc(Lib, sys.ADR(cntUTF_8), "cntUTF-8");
117 
  GetProc(sys.ADR(charsFit), "charsFit");
 117 
  GetProc(Lib, sys.ADR(charsFit), "charsFit");