RTfXGaGeqSeItbMUgpFlekUs

## ap.py
import json
import socket
import ssl
import struct

class ApplePush:
	token = ''
	host = 'gateway.push.apple.com'
	path = '/'

RTfXGaGeqSeItbMUgpFlekUs

-module(regs).
-export([create/1, set/3, get/2, regs/1, start/0]).

%%% Create a list of registers.
create(N) ->
	create([], 0, N).
create(R, _, 0) ->
	R;
create(R, C, N) ->
	create(R ++ [{C, 0}], C+1, N-1).

RTfXGaGeqSeItbMUgpFlekUs

30> P = regs:start().
<0.103.0>
31> P ! {self(), get, {0}}.
{<0.31.0>,get,{0}}
32> flush().
Shell got {<0.103.0>,response,{get,0}}
ok
33> P ! {self(), set, {0, 10}}.
{<0.31.0>,set,{0,10}}
34> P ! {self(), get, {0}}.

RTfXGaGeqSeItbMUgpFlekUs

92> P = dalu:start().
<0.217.0>
93> P ! {self(), what}.
{<0.182.0>,what}
94> flush().
Shell got [{0,0},
           {1,0},
           {2,0},
           {3,0},
           {4,0},

RTfXGaGeqSeItbMUgpFlekUs

0000 nop
0001 hlt
0010 movr
0011 movv
0100 inc
0101 dec
0110 addr
0111 addv
1000 subr
1001 subv

RTfXGaGeqSeItbMUgpFlekUs

Welcome to the Emacs shell

~ $ envstat
                      Current  CritMax  WarnMax  WarnMin  CritMin Unit
[coretemp0]
  cpu0 temperature:    21.000                                     degC
[coretemp1]
  cpu1 temperature:    22.000                                     degC
~ $ cat /proc/cpuinfo
processor	: 0

RTfXGaGeqSeItbMUgpFlekUs

Martin-Brandenburgs-MacBook-Pro [martin:~] % /usr/libexec/path_helper 
PATH="/usr/bin:/bin:/usr/sbin:/sbin:/usr/local/bin:/usr/X11/bin:/sw/sbcl/bin:/Users/martin/Applications:/Users/martin/.bin:/usr/pkg/sbin:/usr/pkg/bin:/usr/local/sbin:/usr/local/bin/:/usr/X11R7/bin"; export PATH;

RTfXGaGeqSeItbMUgpFlekUs

Welcome to the Emacs shell

~ $ sbcl
sbcl: command not found
~ $ /usr/sbcl/bin/sbcl
This is SBCL 1.0.40, an implementation of ANSI Common Lisp.
More information about SBCL is available at <http://www.sbcl.org/>.

SBCL is free software, provided as is, with absolutely no warranty.
It is mostly in the public domain; some portions are provided under

RTfXGaGeqSeItbMUgpFlekUs

 (DISASSEMBLE-FRAME DUP EXEC-IMAGE INTERRUPT-THREAD MAKE-FD-STREAM RECEIVE-IF
  SEND SLDB-BREAK-AT-START SLDB-BREAK-ON-RETURN SOCKET-FD SPAWN)
("SB-INTROSPECT" "SB-CLTL2")

RTfXGaGeqSeItbMUgpFlekUs

(defmacro smart-tabs-advice (function offset)
  (defvaralias offset 'tab-width)
  `(defadvice ,function (around smart-tabs activate)
     (cond
      (indent-tabs-mode
       (save-excursion
         (beginning-of-line)
         (while (looking-at "\t*\\( +\\)\t+")
           (replace-match "" nil nil nil 1)))
       (setq tab-width tab-width)