Artifact e3c01736b4e134dce807e6e4279e1a9fe872b952:

• File sdl2/assert-functions.ss — part of check-in [b358a80757] at 2016-09-04 14:50:46 on branch trunk — added missing file changes (user: aldo size: 685)

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 61 72 67 2d 30  ssertion ((arg-0
0040: 20 28 2a 20 73 64 6c 2d 61 73 73 65 72 74 2d 64   (* sdl-assert-d
0050: 61 74 61 2d 74 29 29 20 28 61 72 67 2d 31 20 73  ata-t)) (arg-1 s
0060: 74 72 69 6e 67 29 20 28 61 72 67 2d 32 20 73 74  tring) (arg-2 st
0070: 72 69 6e 67 29 20 28 61 72 67 2d 33 20 69 6e 74  ring) (arg-3 int
0080: 29 29 20 22 53 44 4c 5f 52 65 70 6f 72 74 41 73  )) "SDL_ReportAs
0090: 73 65 72 74 69 6f 6e 22 29 0a 28 64 65 66 69 6e  sertion").(defin
00a0: 65 2d 73 64 6c 2d 66 75 6e 63 20 76 6f 69 64 20  e-sdl-func void 
00b0: 73 64 6c 2d 73 65 74 2d 61 73 73 65 72 74 69 6f  sdl-set-assertio
00c0: 6e 2d 68 61 6e 64 6c 65 72 20 28 28 68 61 6e 64  n-handler ((hand
00d0: 6c 65 72 20 73 64 6c 2d 61 73 73 65 72 74 69 6f  ler sdl-assertio
00e0: 6e 2d 68 61 6e 64 6c 65 72 2d 74 29 20 28 75 73  n-handler-t) (us
00f0: 65 72 64 61 74 61 20 76 6f 69 64 2a 29 29 20 22  erdata void*)) "
0100: 53 44 4c 5f 53 65 74 41 73 73 65 72 74 69 6f 6e  SDL_SetAssertion
0110: 48 61 6e 64 6c 65 72 22 29 0a 28 64 65 66 69 6e  Handler").(defin
0120: 65 2d 73 64 6c 2d 66 75 6e 63 20 73 64 6c 2d 61  e-sdl-func sdl-a
0130: 73 73 65 72 74 69 6f 6e 2d 68 61 6e 64 6c 65 72  ssertion-handler
0140: 2d 74 20 73 64 6c 2d 67 65 74 2d 64 65 66 61 75  -t sdl-get-defau
0150: 6c 74 2d 61 73 73 65 72 74 69 6f 6e 2d 68 61 6e  lt-assertion-han
0160: 64 6c 65 72 20 28 29 20 22 53 44 4c 5f 47 65 74  dler () "SDL_Get
0170: 44 65 66 61 75 6c 74 41 73 73 65 72 74 69 6f 6e  DefaultAssertion
0180: 48 61 6e 64 6c 65 72 22 29 0a 28 64 65 66 69 6e  Handler").(defin
0190: 65 2d 73 64 6c 2d 66 75 6e 63 20 73 64 6c 2d 61  e-sdl-func sdl-a
01a0: 73 73 65 72 74 69 6f 6e 2d 68 61 6e 64 6c 65 72  ssertion-handler
01b0: 2d 74 20 73 64 6c 2d 67 65 74 2d 61 73 73 65 72  -t sdl-get-asser
01c0: 74 69 6f 6e 2d 68 61 6e 64 6c 65 72 20 28 28 70  tion-handler ((p
01d0: 75 73 65 72 64 61 74 61 20 28 2a 20 76 6f 69 64  userdata (* void
01e0: 2a 29 29 29 20 22 53 44 4c 5f 47 65 74 41 73 73  *))) "SDL_GetAss
01f0: 65 72 74 69 6f 6e 48 61 6e 64 6c 65 72 22 29 0a  ertionHandler").
0200: 28 64 65 66 69 6e 65 2d 73 64 6c 2d 66 75 6e 63  (define-sdl-func
0210: 20 28 2a 20 73 64 6c 2d 61 73 73 65 72 74 2d 64   (* sdl-assert-d
0220: 61 74 61 2d 74 29 20 73 64 6c 2d 67 65 74 2d 61  ata-t) sdl-get-a
0230: 73 73 65 72 74 69 6f 6e 2d 72 65 70 6f 72 74 20  ssertion-report 
0240: 28 29 20 22 53 44 4c 5f 47 65 74 41 73 73 65 72  () "SDL_GetAsser
0250: 74 69 6f 6e 52 65 70 6f 72 74 22 29 0a 28 64 65  tionReport").(de
0260: 66 69 6e 65 2d 73 64 6c 2d 66 75 6e 63 20 76 6f  fine-sdl-func vo
0270: 69 64 20 73 64 6c 2d 72 65 73 65 74 2d 61 73 73  id sdl-reset-ass
0280: 65 72 74 69 6f 6e 2d 72 65 70 6f 72 74 20 28 29  ertion-report ()
0290: 20 22 53 44 4c 5f 52 65 73 65 74 41 73 73 65 72   "SDL_ResetAsser
02a0: 74 69 6f 6e 52 65 70 6f 72 74 22 29 0a           tionReport").