Initial commit

1 files changed, 42 insertions, 0 deletions

diff --git a/hello-world-with-multiple-source-files/make.scm b/hello-world-with-multiple-source-files/make.scm
new file mode 100644
index 0000000..a078c07
--- /dev/null
+++ b/hello-world-with-multiple-source-files/make.scm
@@ -0,0 +1,42 @@
+(use-modules (gnu packages commencement)
+             (guix gexp))
+
+(define set-up-gcc-gexp
+  (with-imported-modules '((guix build utils))
+    #~(begin
+        (use-modules (guix build utils))
+
+        (set-path-environment-variable "PATH"
+                                       '("bin")
+                                       (list #$gcc-toolchain))
+        (set-path-environment-variable "C_INCLUDE_PATH"
+                                       '("include")
+                                       (list #$gcc-toolchain))
+        (set-path-environment-variable "LIBRARY_PATH"
+                                       '("lib")
+                                       (list #$gcc-toolchain)))))
+
+(define* (compile source-filename #:key (flags '()))
+  (computed-file (string-append (basename source-filename ".c")
+                                ".o")
+                 #~(begin
+                     #$set-up-gcc-gexp
+                     (invoke "gcc" "-c" #$(local-file source-filename)
+                             "-o" #$output
+                             #$@flags))))
+
+(define* (link output-filename object-files #:key (flags '()))
+  (computed-file output-filename
+                 #~(begin
+                     #$set-up-gcc-gexp
+                     (invoke "gcc" "-o" #$output
+                             #$@object-files
+                             #$@flags))))
+
+(let ((include (list "-I" (file-union "include"
+                                      `(("print.h" ,(local-file "print.h")))))))
+  (link "hello"
+        (list (compile "hello.c"
+                       #:flags include)
+              (compile "print.c"
+                       #:flags include))))