This commit is contained in:
2024-06-06 14:40:27 +03:00
parent e5b121416c
commit 08efcd520c
23 changed files with 62 additions and 46 deletions
+1 -1
View File
@@ -1,6 +1,6 @@
(import (scheme base)
(scheme write)
(retropikzel pffi v0-2-1 main))
(retropikzel pffi v0-2-2 main))
(display "Hello from import.scm")
(newline)
+1 -1
View File
@@ -1,6 +1,6 @@
(import (scheme base)
(scheme write)
(retropikzel pffi v0-2-1 main))
(retropikzel pffi v0-2-2 main))
(display 'int8)
(display " ")
+1 -1
View File
@@ -1,6 +1,6 @@
(import (scheme base)
(scheme write)
(retropikzel pffi v0-2-1 main))
(retropikzel pffi v0-2-2 main))
(define p (pffi-pointer-allocate (+ (* (pffi-size-of 'uint32) 3)
(* (pffi-size-of 'uint8) 4)
+1 -1
View File
@@ -1,6 +1,6 @@
(import (scheme base)
(scheme write)
(retropikzel pffi v0-2-1 main))
(retropikzel pffi v0-2-2 main))
(define p (pffi-pointer-allocate (+ (* (pffi-size-of 'uint32) 3)
(* (pffi-size-of 'uint8) 4)
+1 -1
View File
@@ -1,6 +1,6 @@
(import (scheme base)
(scheme write)
(retropikzel pffi v0-2-1 main))
(retropikzel pffi v0-2-2 main))
(define p (pffi-pointer-allocate (+ (* (pffi-size-of 'uint32) 3)
(* (pffi-size-of 'uint8) 4)
+1 -1
View File
@@ -1,6 +1,6 @@
(import (scheme base)
(scheme write)
(retropikzel pffi v0-2-1 main))
(retropikzel pffi v0-2-2 main))
(define p (pffi-pointer-allocate (+ (* (pffi-size-of 'uint32) 3)
(* (pffi-size-of 'uint8) 4)
+1 -1
View File
@@ -1,6 +1,6 @@
(import (scheme base)
(scheme write)
(retropikzel pffi v0-2-1 main))
(retropikzel pffi v0-2-2 main))
(define original "Hello world")
+1 -1
View File
@@ -2,7 +2,7 @@
(scheme write)
(scheme process-context)
(scheme eval)
(retropikzel pffi v0-2-1 main))
(retropikzel pffi v0-2-2 main))
(define libcurl (pffi-shared-object-auto-load (list "curl/curl.h")
(list)
+1 -1
View File
@@ -2,7 +2,7 @@
(scheme write)
(scheme process-context)
(scheme eval)
(retropikzel pffi v0-2-1 main))
(retropikzel pffi v0-2-2 main))
(define libc (pffi-shared-object-auto-load (list "curl/curl.h")
(list)