OberonCore

MODULE TestCairoVer;

IMPORT
   Api := CairoApi, L := StdLog;

PROCEDURE Do*;
(* CrTSString* =  POINTER TO ARRAY [untagged] OF SHORTCHAR;
   PROCEDURE [ccall] cairo_version_string* (): CrTSString;
 *)
VAR Ver: Api.CrTSString; Ver2: ARRAY 200 OF CHAR;
BEGIN
   Ver := Api.cairo_version_string();
   Ver2 := Ver$;
   L.String (Ver2); L.Ln
END Do;

END TestCairoVer.

MODULE TestCairoTextDemo;

IMPORT Api := CairoApi, L := StdLog;

PROCEDURE RunDemo*;
VAR
    surface: Api.Pcairo_surface_t;
    cr: Api.Pcairo_t;
   status: Api.cairo_status_t;
BEGIN
    surface := Api.cairo_image_surface_create(Api.CAIRO_FORMAT_ARGB32, 390, 60);
    cr := Api.cairo_create(surface);

    Api.cairo_set_source_rgb(cr, 0, 0, 0);
    Api.cairo_select_font_face(cr, 'Sans', Api.CAIRO_FONT_SLANT_NORMAL,
      Api.CAIRO_FONT_WEIGHT_NORMAL);
    Api.cairo_set_font_size(cr, 40.0);

    Api.cairo_move_to(cr, 10.0, 50.0);
    Api.cairo_show_text(cr, "Cairo text demo.");

    status := Api.cairo_surface_write_to_png(surface, 'image.png');
   L.Int(status); L.Ln;

    Api.cairo_destroy(cr);
    Api.cairo_surface_destroy(surface)
END RunDemo;

END TestCairoTextDemo.

TYPE
   CrTString* =  POINTER TO ARRAY [untagged] OF CHAR;
   CrTSString* =  POINTER TO ARRAY [untagged] OF SHORTCHAR;

(*cairo_show_text (cairo_t *cr, const char *utf8);*)
PROCEDURE [ccall] cairo_show_text* (cr: Pcairo_t; utf8: CrTString);

   TYPE
      ErrType* = RECORD
         error-: BOOLEAN;
         mes-: ARRAY 127 OF SHORTCHAR;
         location-: INTEGER
      END;
      Str = ARRAY 8 OF SHORTCHAR;
   VAR
      err*: ErrType;
      str: Str;

MODULE TestExport;

IMPORT SYSTEM (*, Kernel *);

   TYPE
      TA = RECORD
         d,
         d2: REAL;
      END;

      TString = ARRAY [untagged] OF CHAR;
      Name = ARRAY 40 OF SHORTCHAR;
      
      ErrType* = RECORD
         error-: BOOLEAN;
         mes-: ARRAY 127 OF SHORTCHAR;
         location-: INTEGER
      END;
      Str = ARRAY 8 OF SHORTCHAR;
      
   VAR
      Int-: INTEGER;
      A-: POINTER TO TA;
      name*: Name;
      err*: ErrType;
      str: Str;
   
   PROCEDURE GetLinkerError* (OUT error: ErrType);
   BEGIN
      error := err
   END GetLinkerError;
   
   PROCEDURE GetStr* (OUT s: Str);
   BEGIN
      s := str
   END GetStr;

   PROCEDURE Do*;
   BEGIN
      (*NEW(A);
      A.d := 321.345;
      A.d2 := A.d*2.0;*)
      Int := 3*1024;
      err.error := TRUE; err.location := -100; err.mes := "!debug:";
      str := "!debug:";
   END Do;

END TestExport.