SD2-m2/examples/version.mod

MODULE version ;

(* m2SDL example: print linked SDL version + revision. *)

FROM SDLVersion IMPORT SDLVersion, SDL_GetVersion, SDL_GetRevision;
FROM libc IMPORT printf;

VAR v: SDLVersion;

BEGIN
   SDL_GetVersion(v);
   printf("SDL version %d.%d.%d", VAL(INTEGER, v.major),
          VAL(INTEGER, v.minor), VAL(INTEGER, v.patch));
   printf(" revision %s\n", SDL_GetRevision())
END version.