alanbriolat

#!/usr/bin/env python2
"""
Generate a script to create a multi-hop SSH connection.

Usage: sshroute.py [options...] HOST

Options:
  -l SPEC, --local=SPEC   Tunnel a port - local:via:remote
  -r SPEC, --remote=SPEC  Reverse tunnel a port - remote:via:local
  -h HOST, --host=HOST    Go via another host

alanbriolat

import traceback
import sys

def excepthook(type, value, tb):
    for part in traceback.format_exception(type, value, tb):
        for line in part.splitlines():
            logging.critical(line)

sys.excepthook = excepthook

alanbriolat

import logging
logging.basicConfig(level=logging.DEBUG)


class Foo(object):
    def __init__(self):
        self.bar = "hello"

    def __getitem__(self, key):
        return getattr(self, key)

alanbriolat

program pointer_remap

  type :: real_pointer
    real, pointer :: p => null()
  end type real_pointer

  real, target, dimension(1:3) :: vec
  type(real_pointer), dimension(-1:1) :: pVec

  integer :: i

alanbriolat

Keybase proof

I hereby claim:

• I am alanbriolat on github.
• I am alanbriolat (https://keybase.io/alanbriolat) on keybase.
• I have a public key whose fingerprint is 139D 86F0 095A E34A 4E82 AED9 4911 5981 D488 B8BB

To claim this, I am signing this object:

alanbriolat

! A demonstration of a weird cross-module array-inside-derived-type 
! initialisation bug in ifort.  ifort --version: ifort (IFORT) 14.0.0 20130728.
! None of these issues appear in other compilers tested (gfortran 4.6 and 4.7).
module module_a
  implicit none
  private

  integer :: i

  ! Test the array initialiser, works just fine.

alanbriolat

program test_associate

  implicit none

  type foo_t
    integer :: a, b, c
  end type

  type(foo_t), dimension(6) :: foo
  type(foo_t) :: sfoo

alanbriolat

$ python3 odd_days.py 2012
Mon	0.49056603773584906
Tues	0.5192307692307693
Wed	0.4807692307692308
Thurs	0.5192307692307693
Fri	0.5
Sat	0.5
Sun	0.5094339622641509

$ python3 odd_days.py 2013

alanbriolat

Section "InputClass"
  Identifier      "yubikey"
  MatchIsKeyboard "on"
  MatchVendor     "Yubico"
  MatchProduct    "Yubico Yubikey II"
  Driver          "evdev"
  Option          "XkbRules" "evdev"
  Option          "XkbModel" "pc105"
  Option          "XkbLayout" "us"
  Option          "XkbVariant" "basic"

alanbriolat

program strings

    implicit none

    character(len=20) :: a, b

    print *, "strings: ", a, b
    if (a == b) then
        print *, "strings are equal"
    endif