initial project

.gitignore

@@ -0,0 +1 @@
+.DS_Store

Makefile

@@ -0,0 +1,3 @@
+all::
+check::
+install::

README.md

@@ -0,0 +1,32 @@
+# kubepl
+
+A [Kubernetes](http://kubernetes.io) client.
+
+## Installation
+
+Using SWI-Prolog 7 or later.
+
+    ?- pack_install('https://github.com/honnix/kubepl.git').
+
+Source code available and pull requests accepted
+[here](https://github.com/honnix/kubepl).
+
+@author Hongxin Liang <hxliang1982@gmail.com>
+
+@license Apache License Version 2.0
+
+## Examples
+
+## License
+
+Licensed under the Apache License, Version 2.0 (the "License");
+you may not use this file except in compliance with the License.
+You may obtain a copy of the License at
+
+    http://www.apache.org/licenses/LICENSE-2.0
+
+Unless required by applicable law or agreed to in writing, software
+distributed under the License is distributed on an "AS IS" BASIS,
+WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+See the License for the specific language governing permissions and
+limitations under the License.

examples/ex1.pl

@@ -0,0 +1,100 @@
+:- module(ex1, []).
+
+:- use_module(library(kubepl/sugar)).
+:- use_module(library(kubepl/kubepl)).
+
+:- debug(ex1).
+
+ex1_1(IP) :-
+    %% don't ask me why they are here
+    expand_file_name('~/Developer/ms_store/ssl/ca.pem', [CA]),
+    expand_file_name('~/Developer/ms_store/ssl/admin.pem', [Cert]),
+    expand_file_name('~/Developer/ms_store/ssl/admin-key.pem', [Key]),
+    atomic_list_concat(['https://',IP,'/api'], URI),
+    initialize(URI,
+               'v1',
+               auth(ssl, [
+                          cacert_file(CA),
+                          certificate_file(Cert),
+                          key_file(Key),
+                          cert_verify_hook(cert_accept_any)
+                         ]),
+               [],
+               Client),
+    Client=>create(namespaces, _{}, [pretty=true], _{metadata:_{name:test1}}, Response),
+    debug(ex1, 'Response ~w', [Response]).
+
+ex1_2(IP) :-
+    %% don't ask me why they are here
+    expand_file_name('~/Developer/ms_store/ssl/ca.pem', [CA]),
+    expand_file_name('~/Developer/ms_store/ssl/admin.pem', [Cert]),
+    expand_file_name('~/Developer/ms_store/ssl/admin-key.pem', [Key]),
+    atomic_list_concat(['https://',IP,'/api'], URI),
+    initialize(URI,
+               auth(ssl, [
+                          cacert_file(CA),
+                          certificate_file(Cert),
+                          key_file(Key),
+                          cert_verify_hook(cert_accept_any)
+                         ]),
+               [],
+               Client),
+    Client=>get('', _{}, [pretty=true], Response),
+    debug(ex1, 'Response ~w', [Response]).
+
+ex1_3(IP) :-
+    %% don't ask me why they are here
+    expand_file_name('~/Developer/ms_store/ssl/ca.pem', [CA]),
+    expand_file_name('~/Developer/ms_store/ssl/admin.pem', [Cert]),
+    expand_file_name('~/Developer/ms_store/ssl/admin-key.pem', [Key]),
+    atomic_list_concat(['https://',IP,'/apis'], URI),
+    initialize(URI,
+               auth(ssl, [
+                          cacert_file(CA),
+                          certificate_file(Cert),
+                          key_file(Key),
+                          cert_verify_hook(cert_accept_any)
+                         ]),
+               [],
+               Client),
+    Client=>get('', _{}, [pretty=true], Response1),
+    debug(ex1, 'Response ~w', [Response1]),
+    Client=>get('extensions', _{}, [pretty=true], Response2),
+    debug(ex1, 'Response ~w', [Response2]).
+
+ex1_4(IP) :-
+    %% don't ask me why they are here
+    expand_file_name('~/Developer/ms_store/ssl/ca.pem', [CA]),
+    expand_file_name('~/Developer/ms_store/ssl/admin.pem', [Cert]),
+    expand_file_name('~/Developer/ms_store/ssl/admin-key.pem', [Key]),
+    atomic_list_concat(['https://',IP,'/version'], URI),
+    initialize(URI,
+               auth(ssl, [
+                          cacert_file(CA),
+                          certificate_file(Cert),
+                          key_file(Key),
+                          cert_verify_hook(cert_accept_any)
+                         ]),
+               [],
+               Client),
+    Client=>get('', _{}, [pretty=true], Response),
+    debug(ex1, 'Response ~w', [Response]).
+
+ex1_5(IP) :-
+    %% don't ask me why they are here
+    expand_file_name('~/Developer/ms_store/ssl/ca.pem', [CA]),
+    expand_file_name('~/Developer/ms_store/ssl/admin.pem', [Cert]),
+    expand_file_name('~/Developer/ms_store/ssl/admin-key.pem', [Key]),
+    atomic_list_concat(['https://',IP,'/api'], URI),
+    initialize(URI,
+               'v1',
+               auth(ssl, [
+                          cacert_file(CA),
+                          certificate_file(Cert),
+                          key_file(Key),
+                          cert_verify_hook(cert_accept_any)
+                         ]),
+               [],
+               Client),
+    Client=>proxy_get(pods, _{namespace:'ms-store', name:wso2am}, [path='test'], Response),
+    debug(ex1, 'Response ~w', [Response]).

pack.pl

@@ -0,0 +1,9 @@
+name(kubepl).
+version('0.1').
+title('Kubernetes Client').
+keywords([kubernetes,client]).
+author('Hongxin Liang', 'hxliang1982@gmail.com').
+packager('Hongxin Liang', 'hxliang1982@gmail.com').
+maintainer('Hongxin Liang', 'hxliang1982@gmail.com').
+home('https://github.com/honnix/kubepl').
+download('https://github.com/honnix/kubepl/archive/v0.1.zip').