artyom-poptsov

(define-syntax M#!
  (syntax-rules (=>)
    ((_ type command)
     (list (quote type) command))
    ((_ => type command)
     `(,(list (quote type) command)))
    ((_ => type command rest ...)
     `(,(list (quote type) command) ,@(M#! rest ...)))
    ((_ type command => rest ...)
     (apply plumb `(,(list (quote type) command) ,@(M#! => rest ...))))))

artyom-poptsov

#
#    Dockerized http://mediagoblin.org/
#    Copyright (C) Loic Dachary <[email protected]>
#    Copyright (C) 2018 Artyom V. Poptsov <[email protected]>
#
#    This program is free software: you can redistribute it and/or modify
#    it under the terms of the GNU Affero General Public License as published
#    by the Free Software Foundation, either version 3 of the License, or
#    (at your option) any later version.
#

artyom-poptsov

var express    = require ('express');
var app  = express ();


function main() {
    app.post ('/data/3.0/measurements', function (req, res) {
        console.log (req.headers);
        req.on("data", function (data) {
            console.log(data);
        });

artyom-poptsov

#!/usr/bin/guile \
-e main
!#

(use-modules (ice-9 popen)
             (srfi srfi-41)             ; streams
             ;; Guile-ICS
             (ics)
             (ics conv))

artyom-poptsov

#!/usr/bin/guile \
-e main -s
!#

;;; uptop.scm -- Uppercase top.

;; Copyright (C) 2016 Artyom V. Poptsov <[email protected]>
;;
;; This program is free software: you can redistribute it and/or
;; modify it under the terms of the GNU General Public License as

artyom-poptsov

#!/usr/bin/guile \
-e main -s
!#

;; Copyright (C) 2016 Artyom V. Poptsov <[email protected]>
;;
;; This program is free software: you can redistribute it and/or
;; modify it under the terms of the GNU General Public License as
;; published by the Free Software Foundation, either version 3 of the
;; License, or (at your option) any later version.

artyom-poptsov

#!/usr/bin/guile \
-e main -s
!#

;;; open-remote-pipe.scm

;; Copyright (C) 2015 Artyom V. Poptsov <[email protected]>
;;
;; This program is free software: you can redistribute it and/or
;; modify it under the terms of the GNU General Public License as

artyom-poptsov

#!/usr/bin/guile \
-e main -s
!#

;;; forwarding-to-unix-socket.scm

;; Copyright (C) 2015 Artyom V. Poptsov <[email protected]>
;;
;; This program is free software: you can redistribute it and/or
;; modify it under the terms of the GNU General Public License as

artyom-poptsov

#!/usr/bin/guile \
-e main -s
!#

;;; pg-tunnel.scm -- Connect to a PostgreSQL instance through an SSH tunnel.

;; Copyright (C) 2015 Artyom V. Poptsov <[email protected]>
;;
;; This program is free software: you can redistribute it and/or
;; modify it under the terms of the GNU General Public License as

artyom-poptsov

#!/bin/bash

### summary.sh -- Summarize the data.

# Copyright (C) 2015 Artyom V. Poptsov <[email protected]>
#
# To the extent possible under law, the person who associated CC0 with
# this work has waived all copyright and related or neighboring rights
# to this work.  See
# <https://creativecommons.org/publicdomain/zero/1.0/>