ThierryGoubier

| rewrite |
rewrite := RBParseTreeRewriter new
	replace: 'self parse: `#l `{:node :dic |
		| n |
		n := ''source'' , (node methodNode selector allButFirst: 4).
		dic at: #n put: n.
		PythonParserTests compile: (RBParser parseMethod: n, '' ^ '', `#l newSource) formattedCode classified: ''resources''.
		true }'
	with: 'self parse: `{:dic |
		RBParser parseExpression: ''self '', (dic at: #n) }'.

ThierryGoubier

#!/usr/bin/env bash

# stop the script if a single command fails
set -e

# define an echo that only outputs to stderr
echoerr() { echo "$@" 1>&2; }
#  try to use curl if possible
if [[ `which curl 2> /dev/null` ]]; then
	DOWNLOAD="curl --silent --location --compressed ";

ThierryGoubier

#!/usr/bin/env bash

# stop the script if a single command fails
set -e

# define an echo that only outputs to stderr
echoerr() { echo "$@" 1>&2; }
#  try to use curl if possible
if [[ `which curl 2> /dev/null` ]]; then
	DOWNLOAD="curl --silent --location --compressed ";

ThierryGoubier

#!/usr/bin/env bash

# stop the script if a single command fails
set -e

# define an echo that only outputs to stderr
echoerr() { echo "$@" 1>&2; }
#  try to use curl if possible
if [[ `which curl 2> /dev/null` ]]; then
	DOWNLOAD="curl --silent --location --compressed ";

ThierryGoubier

#!/usr/bin/env bash

# stop the script if a single command fails
set -e

# define an echo that only outputs to stderr
echoerr() { echo "$@" 1>&2; }
#  try to use curl if possible
if [[ `which curl 2> /dev/null` ]]; then
	DOWNLOAD="curl --silent --location --compressed ";

ThierryGoubier

Metacello new
    baseline: 'MonticelloFileTree';
    repository: #('http://smalltalkhub.com/mc/Pharo/Pharo40/main' 'http://smalltalkhub.com/mc/ThierryGoubier/MinimalBaselines40/main');
    load

ThierryGoubier

| selfMessages searcher superMessages |
selfMessages := Set new.
searcher := RBParseTreeSearcher new.
searcher
	matches: 'self `@message: ``@args'
	do: [ :aNode :answer | 
		((CrLfFileEditor selectors includes: aNode selector) not and: [ StringHolder selectors includes: aNode selector ])
			ifTrue: [ selfMessages add: aNode selector ] ].
CrLfFileEditor methods do: [ :e | searcher executeTree: e parseTree initialAnswer: nil ].
selfMessages inspect.

ThierryGoubier

sudo dpkg --add-architecture i386
sudo apt-get update

# INSTALL BUILD LIBRARIES ======================================================
sudo apt-get --yes install cmake zip bash-completion ruby git xz-utils debhelper devscripts
sudo apt-get --yes install libc6-dev:i386 libasound2:i386 libasound2-dev:i386 libasound2-plugins:i386 libcairo2:i386
sudo apt-get --yes install libssl-dev:i386 libssl1.0.0:i386 libfreetype6-dev:i386 libx11-dev:i386 libsm-dev:i386 libice-dev:i386
sudo apt-get --yes install build-essential gcc-multilib g++
sudo apt-get --yes install libgl1-mesa-dev:i386 libgl1-mesa-glx:i386

ThierryGoubier

| rewriter |
rewriter := RBParseTreeRewriter new
replace: ' `#aLiteral `{:node | node value isCharacter}'
    with: '`#aLiteral aMessage'; yourself.
rewriter executeTree: (RBParser parseExpression: 'Array with: $a asciiValue with: $b with: #c with: d').
rewriter tree formattedCode 

ThierryGoubier

Comment retarder le progrès scientifique? Le physicien Léo Szilard (qui fut un des acteurs du projet Manhattan) publia un texte prophétique pour décrire comment retarder le progrès scientifique. Ce texte de 1962 est finalement la trame de l'ANR actuelle.

• ....... mais alors pourquoi ne pas faire quelque chose pour retarder le progrès scientifique?
• Cela me plairait beaucoup, dit Mark Gable, mais comment m'y prendre?
• Eh bien, dis-je, je crois que ce ne serait pas très difficile. Ce serait même très facile en fait. Vous pourriez créer une Fondation, dotée de 30 millions de dollars par an. Les chercheurs impécunieux pourraient demander une subvention, à condition que leurs arguments soient convaincants. Organisez dix comités, composés chacun de douze savants, et donnez-leur pour tâche de transmettre ces demandes. Enlevez à leurs laboratoires les savants les plus actifs et nommez-les membres de ces comités. Prenez les plus grands savants du moment et faites-en des présidents aux honoraires de 50 mille dollar