Lupus

/*
To the extent possible under law, Konstantin Olkhovskiy has waived
all copyright and related or neighboring rights to this snippet.

CC0 license: http://creativecommons.org/publicdomain/zero/1.0/
*/
package main

import (
        "crypto/x509"

Lupus

package main

import (
	"net"
	"os/exec"

	"github.com/k0kubun/pp"
)

func Hosts(cidr string) ([]string, error) {

Lupus

open Base
open Lwt.Infix
module Arg = Caml.Arg

open Httpaf_lwt_unix
module Reqd = Httpaf.Reqd
module Request = Httpaf.Request
module Headers = Httpaf.Headers
module Response = Httpaf.Response
module Body = Httpaf.Body

Lupus

open Base
open Lwt.Infix
module Arg = Caml.Arg

open Httpaf_lwt_unix
module Reqd = Httpaf.Reqd
module Request = Httpaf.Request
module Headers = Httpaf.Headers
module Response = Httpaf.Response
module Body = Httpaf.Body

Lupus

  module Image = {
    type channel_t =
      Bigarray.Array2.t(char, Bigarray.int8_unsigned_elt, Bigarray.c_layout);
    type t = {
      width: int,
      height: int,
      r_channel: channel_t,
      g_channel: channel_t,
      b_channel: channel_t,
    };

Lupus

module Errors: {
  type t;
  type baseError = {
    name: string,
    info: string,
    message: string
  };
  type noHostAvailableError = {
    name: string,
    info: string,

Lupus

module Errors = {
  type t;
  type errors = {
    .
    "_NoHostAvailableError": t,
    "_ResponseError": t,
    "_DriverInternalError": t,
    "_AuthenticationError": t,
    "_ArgumentError": t,
    "_OperationTimedOutError": t,

Lupus

// Generated by BUCKLESCRIPT VERSION 1.9.2, PLEASE EDIT WITH CARE
'use strict';

var Caml_missing_polyfill = require("stdlib/caml_missing_polyfill");


  function foo (x) {
    if (x == 0) return null;
    else if (x == 1) return 0;
    return "bar";

Lupus

module EventEmitter = {
  module Event = {
    type t('e, 'v) = ..;
    type t(_, _) +=
      | NewListener : t([>`EventEmitter], string) 
      | RemoveListener : t([>`EventEmitter], string);
    type pkg =
      | Pkg(t('e, 'v)): pkg;
  };
  module Listener = {

Lupus

/* 

    Create server/client self-signed certificate/key (self signed, DONT ADD PASSWORD) 

    openssl req -x509 -newkey rsa:2048 -days 3650 -nodes -keyout client-key.pem -out client-cert.pem
    openssl req -x509 -newkey rsa:2048 -days 3650 -nodes -keyout server-key.pem -out server-cert.pem

*/

#include <stdio.h>