fsmunoz

;; Simple example of sending a message to Websphere MQ with Clojure
;;
;; Uses the Websphere MQ JMS classes (i.e. JMS-like in API, but
;; submits to a MQ queue)
;; 
;; Author:   Frederico Munoz <[email protected]>
;; Date:     20-Jun-2013
;; Keywords: mq, websphere, messaging, jms
;;
;; Copying and distribution of this file, with or without modification,

fsmunoz

;; Simple example of MQTT message publish using Clojure
;;
;; Uses the Websphere Eclipse Paho client
;; 
;; Author:   Frederico Munoz <[email protected]>
;; Date:     18-Jun-2013
;; Keywords: mqtt, messaging, m2m, telemetry, clojure, iot, paho
;;
;; Copying and distribution of this file, with or without modification,
;; are permitted in any medium without royalty provided the copyright

fsmunoz

;; Simple example of MQTT message publish using Common Lisp and ABCL
;;
;; Uses the Eclipse Paho client
;; 
;; Author:   Frederico Munoz <[email protected]>
;; Date:     22-Jun-2013
;; Keywords: mqtt, messaging, m2m, telemetry, abcl, iot, paho, lisp
;;
;; Copying and distribution of this file, with or without modification,
;; are permitted in any medium without royalty provided the copyright

fsmunoz

## Retrieve existing classifiers (if any)
retrieve_classifiers <-  function (api_key, api_endp)
{
    req <- GET(sprintf("%s/v3/classifiers/?api_key=%s&version=2016-05-20", api_endp, api_key))

}

## Delete an existing classifier
delete_classifier <-  function (api_key, api_endp, classifier_id)
{

fsmunoz

// The JPEGINATOR
// OpenWhisk action to convert images to JPEG
//
// Author: Frederico Munoz <[email protected]>
// Data: APR 2017
// License: Eclipse Public License 1.0

var fs = require('fs');
var gm = require('gm').subClass({imageMagick: true});

fsmunoz

Qk1KPwEAAAAAAIoAAAB8AAAAyAAAAIgAAAABABgAAAAAAMA+AQAjLgAAIy4AAAAAAAAAAAAAAAD/AAD/AAD/AAAAAAAA/wEAAAAAAAAAAAAAAAEAAAAAAAAAAAAAAAEAAAAAAAAAAAAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAqrnGl6W1jZutjZytjpyujZyujpyuj52vjp2vjp2vkJ+wkqCykqCylKK0laO1lqS2laO1lqS2lqW2lqW3laS1l6W3mKe4mKa4mKe4mKe4mai5mae5mqi6mqm7m6m7m6m7mqm6mqm6m6m6mqm6m6m7m6m7mqm7mqi6mqm7mqm7mqm7m6m7m6q7m6m7m6m7m6m7m6m7mqi6m6q7nqy9orDAprPCqrfGr7vIs7/Ms7/Msb7Lsb3LrrvJq7jGp7TEpbLCoa+/nau8m6m6mae4mKa4lqW2l6W3l6W3l6a3mKa3mae4mae4mKa4mKa4l6W2l6a3l6a2mKa3mKa3mKa3l6a2lqW2lqW2l6W2l6W3l6W2l6a2l6W2l6a2l6a3l6a2lqW2l6a2l6W2lKKzlaS1mKa3lqW1laS1lqS1lqO0lqS1laS0l6W2l6W2l6a2l6W2mKa3l6W2l6W2l6W2lqW2mKa3mKe3mae4mKe3mai4mKe4mae4mKe4mKe4mKe4l6a4l6W3lqW2l6W3mKe4mqm6nau7n62+obDApLPCqbfFqrjHrLrIrrzJrrzJrbrIqrjGprXCo7LBoK6+nq29nay8m6q7nKu8nKu8m6u8nKu8nKu8m6q7m6q7m6q7m6q7m6q7m6q7mqq7mqq6mqm6mqm6mqq7mqq7mqm6mqm5mqm6mqi5mai6mae5mai5mai5mqq7mqq7mqq6mqm7mqm6mai6mam6mqm7mqm6mam6mqq7m6u8m6u8m6u8m6u8m6u8m6u8m6u8m6u8m6y9nKy9m6y9nKy9nK2+m62+orLBlqS1i5qsjZytjpyuj52vj52vj52vkZ+xkJ+xkJ6w

fsmunoz

### THE JPEGINATOR
### Openwhisk bmp->jpeg conversion using OpenWhisk
### Author: Frederico Munoz <[email protected]>
### Date: APR 2017
### License: Eclipse Public License v1.0

## Load the image-related libraries
library(bmp)
library(pixmap)
library(base64enc)

fsmunoz

--  Approximates pi using a naïve algorithm as per Brian
--  Hayes' http://bit-player.org/2017/approximately-yours
--
--  Author: Frederico Munoz <[email protected]>
--  Date: Aug 2017

pragma License (GPL);

with Ada.Text_IO;
with Ada.Long_Float_Text_IO;

fsmunoz

-- Blink the internal LED of an Arduino (and others) using AVR-Ada
--
-- Code by Tero Koskinen
-- http://arduino.ada-language.com/blinking-led.html

with AVR;
with AVR.MCU;
with AVR.Real_Time.Delays;

use AVR;

fsmunoz

;; Open serial connection with an Arduino
;;
;; 2017, Frederico Munoz <[email protected]>


;; Serial port definitions
(defvar port "/dev/ttyACM1" "Serial port")
(defvar bauds 9600 "Bps")
      
(let ((serial-buffer (serial-term port bauds)))