Advertisement
Guest User

Untitled

a guest
Feb 26th, 2017
40
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.55 KB | None | 0 0
  1. handmade.gpr:
  2. library project Handmade is
  3. for Object_Dir use "obj";
  4. for Source_Dirs use ("src/**");
  5. for Library_Name use "handmade";
  6. for Library_Dir use ".";
  7. for Library_Kind use "dynamic";
  8. for Library_Interface use ("handmade", "handmade_types");
  9. for Library_Auto_Init use "true";
  10. for Excluded_Source_Files use (...);
  11.  
  12. package Compiler is
  13. for Default_Switches ("ada") use ("-gnat12", "-g", "-gnatwa");
  14. end Compiler;
  15. end Handmade;
  16.  
  17. handmade.ads:
  18. with Handmade_Types; use Handmade_Types;
  19. ...
  20.  
  21. package Handmade is
  22. ...
  23.  
  24. procedure GameUpdateAndRender (Memory : in out game_memory;
  25. Input : game_input;
  26. Buffer : in out game_offscreen_buffer);
  27. pragma Export (C, GameUpdateAndRender, "GameUpdateAndRender");
  28. end Handmade;
  29.  
  30. handmade.adb:
  31. with Handmade_Random; <-- the unit that the compiler complains about not being in the interface set
  32. procedure GameUpdateAndRender (Memory : in out game_memory; Input : in game_input;
  33. Buffer : in out game_offscreen_buffer) is
  34. RandomNumber : Integer;
  35. ...
  36. begin
  37. ...
  38. RandomNumber := Handmade_Random.RandomNumberTable(0);
  39. end GameUpdateAndRender;
  40.  
  41. handmade_random.ads:
  42. with System.Unsigned_Types;
  43.  
  44. package Handmade_Random is
  45. RandomNumberTable : constant array(Natural range <>) of System.Unsigned_Types.Unsigned := (
  46. 16#4f0143b#, 16#3402005#, 16#26f2b01#, 16#22796b6#, 16#57343bb#, 16#2d9954e#, 16#06f9425#, 16#1789180#,
  47. ... );
  48. end Handmade_Random;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement