Thunderchez: Hex Artifact Content

Artifact 433defbf8eee3edf1a51b44e08f63bf64f4ceb60:

File sdl2/assert-functions.ss — part of check-in [c9770d8f7f] at 2016-08-17 07:47:19 on branch trunk — added sdl2 (user: ovenpasta@pizzahack.eu size: 672)
0000: 28 64 65 66 69 6e 65 2d 73 64 6c 2d 66 75 6e 63  (define-sdl-func
0010: 20 73 64 6c 2d 61 73 73 65 72 74 2d 73 74 61 74   sdl-assert-stat
0020: 65 2d 74 20 73 64 6c 2d 72 65 70 6f 72 74 2d 61  e-t sdl-report-a
0030: 73 73 65 72 74 69 6f 6e 20 28 28 64 61 74 61 20  ssertion ((data 
0040: 28 2a 20 73 64 6c 2d 61 73 73 65 72 74 2d 64 61  (* sdl-assert-da
0050: 74 61 2d 74 29 29 20 28 61 20 73 74 72 69 6e 67  ta-t)) (a string
0060: 29 20 28 62 20 73 74 72 69 6e 67 29 20 28 63 20  ) (b string) (c 
0070: 69 6e 74 29 29 20 22 53 44 4c 5f 52 65 70 6f 72  int)) "SDL_Repor
0080: 74 41 73 73 65 72 74 69 6f 6e 22 29 0a 28 64 65  tAssertion").(de
0090: 66 69 6e 65 2d 73 64 6c 2d 66 75 6e 63 20 76 6f  fine-sdl-func vo
00a0: 69 64 20 73 64 6c 2d 73 65 74 2d 61 73 73 65 72  id sdl-set-asser
00b0: 74 69 6f 6e 2d 68 61 6e 64 6c 65 72 20 28 28 68  tion-handler ((h
00c0: 61 6e 64 6c 65 72 20 73 64 6c 2d 61 73 73 65 72  andler sdl-asser
00d0: 74 69 6f 6e 2d 68 61 6e 64 6c 65 72 2d 74 29 20  tion-handler-t) 
00e0: 28 75 73 65 72 64 61 74 61 20 76 6f 69 64 2a 29  (userdata void*)
00f0: 29 20 22 53 44 4c 5f 53 65 74 41 73 73 65 72 74  ) "SDL_SetAssert
0100: 69 6f 6e 48 61 6e 64 6c 65 72 22 29 0a 28 64 65  ionHandler").(de
0110: 66 69 6e 65 2d 73 64 6c 2d 66 75 6e 63 20 73 64  fine-sdl-func sd
0120: 6c 2d 61 73 73 65 72 74 69 6f 6e 2d 68 61 6e 64  l-assertion-hand
0130: 6c 65 72 2d 74 20 73 64 6c 2d 67 65 74 2d 64 65  ler-t sdl-get-de
0140: 66 61 75 6c 74 2d 61 73 73 65 72 74 69 6f 6e 2d  fault-assertion-
0150: 68 61 6e 64 6c 65 72 20 28 29 20 22 53 44 4c 5f  handler () "SDL_
0160: 47 65 74 44 65 66 61 75 6c 74 41 73 73 65 72 74  GetDefaultAssert
0170: 69 6f 6e 48 61 6e 64 6c 65 72 22 29 0a 28 64 65  ionHandler").(de
0180: 66 69 6e 65 2d 73 64 6c 2d 66 75 6e 63 20 73 64  fine-sdl-func sd
0190: 6c 2d 61 73 73 65 72 74 69 6f 6e 2d 68 61 6e 64  l-assertion-hand
01a0: 6c 65 72 2d 74 20 73 64 6c 2d 67 65 74 2d 61 73  ler-t sdl-get-as
01b0: 73 65 72 74 69 6f 6e 2d 68 61 6e 64 6c 65 72 20  sertion-handler 
01c0: 28 28 70 75 73 65 72 64 61 74 61 20 28 2a 20 76  ((puserdata (* v
01d0: 6f 69 64 2a 29 29 29 20 22 53 44 4c 5f 47 65 74  oid*))) "SDL_Get
01e0: 41 73 73 65 72 74 69 6f 6e 48 61 6e 64 6c 65 72  AssertionHandler
01f0: 22 29 0a 28 64 65 66 69 6e 65 2d 73 64 6c 2d 66  ").(define-sdl-f
0200: 75 6e 63 20 28 2a 20 73 64 6c 2d 61 73 73 65 72  unc (* sdl-asser
0210: 74 2d 64 61 74 61 2d 74 29 20 73 64 6c 2d 67 65  t-data-t) sdl-ge
0220: 74 2d 61 73 73 65 72 74 69 6f 6e 2d 72 65 70 6f  t-assertion-repo
0230: 72 74 20 28 29 20 22 53 44 4c 5f 47 65 74 41 73  rt () "SDL_GetAs
0240: 73 65 72 74 69 6f 6e 52 65 70 6f 72 74 22 29 0a  sertionReport").
0250: 28 64 65 66 69 6e 65 2d 73 64 6c 2d 66 75 6e 63  (define-sdl-func
0260: 20 76 6f 69 64 20 73 64 6c 2d 72 65 73 65 74 2d   void sdl-reset-
0270: 61 73 73 65 72 74 69 6f 6e 2d 72 65 70 6f 72 74  assertion-report
0280: 20 28 29 20 22 53 44 4c 5f 52 65 73 65 74 41 73   () "SDL_ResetAs
0290: 73 65 72 74 69 6f 6e 52 65 70 6f 72 74 22 29 0a  sertionReport").