Mon blog

Les fermes de compilation, ensemble d'ordinateurs mis à la disposition des développeurs pour tester la portabilité de leurs programmes, sont peu nombreuses. Après l'arrêt de celle de SourceForge, que reste t-il ?

SourceForge a en effet hélas décidé d'arrêter la sienne le 8 février. À ma connaissance, ses concurrents Savannah et Berlios n'en ont jamais eu. Toujours à ma connaissance, il ne reste que deux fermes publiquement accessibles. Il y a d'abord celle de HP, TestDrive.

TestDrive offre moins de choix qu'autrefois. Il n'y a plus d'OpenBSD et de NetBSD et les processeurs Alpha ont également disparu. Le système Solaris du concurrent Sun n'a évidemment jamais été présent. Mais TestDrive est gratuite et marche très bien. (En 2012, il semble que TestDrive ne fonctionne plus, sans que cela ait été annoncé. Mais je n'ai pas le temps d'enquêter.)

L'accès n'est possible qu'en telnet, qui est moins facile à automatiser que ssh. Voici donc le petit script expect que j'utilise pour me connecter à TestDrive :

#!/usr/bin/expect -f

# Connect to a TestDrive machine
# See http://www.testdrive.hp.com/faq
# Written by Stephane Bortzmeyer <bortz@users.sourceforge.net>. No warranty at all

set login YOURNAME
set password YOURPASSWORD

if $argc<1 {
  send_user "Usage: $argv0 host-nickname\n"
  exit
} 
# http://www.testdrive.hp.com/systems/
# http://www.testdrive.hp.com/current.shtml
switch -exact -- [lindex $argv 0] {
  freebsd-itanium { set host td150.testdrive.hp.com  }	
  freebsd-pentium { set host td152.testdrive.hp.com  }	
  vms-itanium { set host td183.testdrive.hp.com }
  hpux-pa { set host td191.testdrive.hp.com  }
  debian-itanium { set host  	td140.testdrive.hp.com }
  suse-opteron { set host td190.testdrive.hp.com }
  default {
      send_user "Unknown host\n"
      exit 1
  }
  
}
spawn telnet $host

expect -re {.*(login|Username):.*} {} \
        timeout {timedout "waiting for password prompt"}
send ${login}\r

expect  {*Password:*} {} \
        timeout {timedout "waiting for password prompt"}
send ${password}\r
expect {*invalid login*}    {send_user "Bad password\n"; exit} \
        {*Thanks again for Testdriving}            {} \
        {*Welcome to HP's OpenVMS Test-Drive*}            {} \
	{*Last interactive login on*}            {} \
        timeout         {timedout waiting for login prompt}

interact

proc timedout {} {
        send_user "Server timed out.  Try again later.\n"
        exit 1
}

Il suffit alors de taper :

% telnet-testdrive vms-itanium

et on est connecté sur la machine VMS où on peut tester ses programmes.

Et il y a celle de gcc (non, il n'est pas obligatoire de travailler sur gcc pour y accéder).