Initial data commit

Task/Call-a-foreign-language-function/Ol/call-a-foreign-language-function-1.ol

@@ -0,0 +1,6 @@
+(import (otus ffi))
+
+(define self (load-dynamic-library #f))
+(define strdup (self type-string "strdup" type-string))
+
+(print (strdup "Hello World!"))

Task/Call-a-foreign-language-function/Ol/call-a-foreign-language-function-2.ol

@@ -0,0 +1,9 @@
+(import (otus ffi))
+
+(if (not (has? *features* 'Windows))
+   (print "The host platform is not a Windows!"))
+
+(define self (load-dynamic-library "shlwapi.dll"))
+(define strdup (self type-string "StrDupA" type-string))
+
+(print (strdup "Hello World!"))

Task/Call-a-foreign-language-function/Ol/call-a-foreign-language-function-3.ol

@@ -0,0 +1,34 @@
+; The sample usage of GTK3+ library
+(import (otus ffi)
+   (lib glib-2)
+   (lib gtk-3))
+
+(define print_hello (vm:pin (cons
+   (list GtkWidget* gpointer)
+   (lambda (widget userdata)
+      (print "hello")
+      TRUE
+))))
+
+(define activate (vm:pin (cons
+   (list GtkApplication* gpointer)
+   (lambda (app userdata)
+      (define window (gtk_application_window_new app))
+      (print "window: " window)
+      (gtk_window_set_title window "Window")
+      (gtk_window_set_default_size window 200 200)
+
+      (define button_box (gtk_button_box_new GTK_ORIENTATION_HORIZONTAL))
+      (gtk_container_add window button_box)
+
+      (define button (gtk_button_new_with_label "Hello World"))
+      (g_signal_connect button "clicked"  (G_CALLBACK print_hello) NULL)
+      (gtk_container_add button_box button)
+
+      (gtk_widget_show_all window)
+))))
+
+(define app (gtk_application_new (c-string "org.gtk.example") G_APPLICATION_FLAGS_NONE))
+(g_signal_connect app (c-string "activate") (G_CALLBACK activate) NULL)
+
+(g_application_run app 0 #false)