Imported Upstream version 3.6.0

Former-commit-id: da6be194a6b1221998fc28233f2503bd61dd9d14

mcs/tools/tinderbox/smtp.c

@@ -0,0 +1,369 @@
+// simple tool for sending smtp messages
+//
+//
+#include <stdio.h>
+#include <sys/socket.h>
+#include <arpa/inet.h>
+#include <string.h>
+#include <netdb.h>
+
+#include <unistd.h>
+#include <stdlib.h>
+#define _GNU_SOURCE
+#include <getopt.h>
+#include <ctype.h>
+#include <time.h>
+
+typedef int bool;
+enum { false = 0, true = 1};
+
+struct option rgOptions [] =
+{
+	{"cc",      required_argument, 	NULL, 'c'},
+	{"help",    required_argument, 	NULL, '?'},
+	{"to",      required_argument, 	NULL, 't'},
+	{"from",    required_argument, 	NULL, 'f'},
+	{"message", required_argument, 	NULL, 'm'},
+	{"subject", required_argument, 	NULL, 's'},
+	{"host",    required_argument, 	NULL, 'h'},
+	{"attach",  required_argument, 	NULL, 'a'},
+};
+
+typedef struct MailFields
+{
+	const char *szTo;
+	const char *szFrom;
+	const char *szHost;
+	const char *szSubject;
+	bool fAttachments;
+	bool fCC;
+	int cArgs;
+	char **rgszArgs;
+	FILE *pfMsg;
+} MailFields;
+
+const char *szOptions = "t:f:s:h:c:a:m:?";
+
+void help ()
+{
+	printf (
+		"Usage: smtp [OPTIONS]\n\n"
+		"Mandatory arguments:\n"
+		"\t-t, --to ADDRESS\tspecify destination email address\n"
+		"\t-f, --from ADDRESS\tspecify sender's email address\n"
+		"Optional arguments:\n"
+		"\t-s, --subject SUBJECT\tspecify subject of message\n"
+		"\t-m, --message FILENAME\tread text of message from FILENAME\n"
+		"\t-a, --attach FILENAME\tadd FILENAME to message as attachment\n"
+		"\t-c, --cc ADDRESS\tadd ADDRESS to CC list\n"
+		"\t-h, --host HOSTNAME\tconnect to smpt server HOSTNAME (default: localhost)\n"
+	);
+}
+
+int GetResponse (FILE *ps)
+{
+	char szLine [1024];
+	char *psz;
+	int hr;
+
+	fflush (ps);
+
+	do
+	{
+		fgets (szLine, sizeof (szLine), ps);
+
+		for (psz = szLine; isdigit (*psz); psz++)
+			;
+	}
+	while (*psz != '\0' && *psz != ' ');
+
+	hr = atol (szLine);
+	return hr;
+}
+
+FILE *TcpOpen (const char *szHost, int nPort)
+{
+	int s;
+	struct sockaddr_in sa;
+	struct hostent *he;
+	struct protoent *pe;
+	FILE *ps;
+
+	pe = getprotobyname ("TCP");
+	s = socket (PF_INET, SOCK_STREAM, pe->p_proto);
+	endprotoent ();
+
+	bzero ((char *)&sa,sizeof (sa));
+	sa.sin_family = AF_INET;
+	sa.sin_addr.s_addr = inet_addr (szHost);
+	sa.sin_port = htons (25);
+
+	if ((he = gethostbyname (szHost)) != NULL)
+		bcopy (he->h_addr, (char *)&sa.sin_addr, he->h_length);
+	else if ((sa.sin_addr.s_addr = inet_addr (szHost)) < 0)
+		perror ("gethostbyname ()");
+
+	if (connect (s, (struct sockaddr *) &sa, 16) == -1)
+		perror ("connect ()");
+	else if ((ps = fdopen (s, "r+")) == NULL)
+		perror ("fdopen ()");
+	else
+		return ps;
+
+	close (s);
+	return NULL;
+}
+
+
+void SendMail (const char *szTo, const MailFields *pmf)
+{
+	char rgchBoundary [20];
+	FILE *ps;
+	int hr;
+
+	ps = TcpOpen (pmf->szHost, 25);
+
+	hr = GetResponse (ps);
+
+	fprintf (ps, "HELO\r\n");
+	hr = GetResponse (ps);
+
+	fprintf (ps, "MAIL FROM: %s\r\n", pmf->szFrom);
+	hr = GetResponse (ps);
+
+	fprintf (ps, "RCPT TO: %s\r\n", szTo);
+	hr = GetResponse (ps);
+
+	fprintf (ps, "DATA %s\r\n", pmf->szSubject);
+	hr = GetResponse (ps);
+
+	fprintf (ps, "From: %s\r\nTo: %s\r\nSubject: %s\r\n", pmf->szFrom, pmf->szTo, pmf->szSubject);
+
+	if (pmf->fCC)
+	{
+		bool fFirst = true;
+		int nOpt, iOpt;
+		fprintf (ps, "CC:");
+		optind = 0;
+		while ((nOpt = getopt_long (pmf->cArgs, pmf->rgszArgs, szOptions, rgOptions, &iOpt)) != -1)
+		{
+			if (nOpt == 'c')
+			{
+				if (!fFirst)
+					fprintf (ps, ";");
+				fprintf (ps, " %s", optarg);
+				fFirst = false;
+			}
+		}
+		fprintf (ps, "\r\n");
+	}
+
+	if (pmf->fAttachments)
+	{
+		int ich;
+		srand ((int) time (NULL));
+		for (ich = 0; ich < sizeof (rgchBoundary) - 1; ich ++)
+			rgchBoundary [ich] = rand () % ('Z'-'A') + 'A';
+		rgchBoundary [ich] = '\0';
+
+		fprintf (ps, 
+			"MIME-Version: 1.0\r\n"
+			"Content-Type: multipart/mixed; boundary=\"multipart-%s\"\r\n\r\n", rgchBoundary);
+
+		fprintf (ps, "--multipart-%s\r\n\r\n", rgchBoundary);
+	}
+
+	if (pmf->pfMsg != NULL)
+	{
+		rewind (pmf->pfMsg);
+		while (!feof (pmf->pfMsg))
+		{
+			char strLine [1024];
+			int cch;
+
+			fgets (strLine, sizeof (strLine), pmf->pfMsg);
+			cch = strlen (strLine);
+			while (strLine [cch - 1] == '\r' || strLine [cch - 1] == '\n')
+				cch --;
+			strLine [cch] = '\0';
+
+			if (cch == 1 && strLine [0] == '.')
+				fputc ('.', ps);
+
+			fprintf (ps, "%s\r\n", strLine);
+			fflush (ps);
+		}
+	}
+
+	if (pmf->fAttachments)
+	{
+		int nOpt, iOpt;
+		optind = 0;
+		while ((nOpt = getopt_long (pmf->cArgs, pmf->rgszArgs, szOptions, rgOptions, &iOpt)) != -1)
+		{
+			if (nOpt == 'a')
+			{
+				const char rgchBase64 [] = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/";
+				FILE *pf = fopen (optarg, "r");
+				int cch = 0;
+
+				const char *szBasename = (char *) strrchr ((const char *) optarg, '/');
+				if (szBasename == NULL || szBasename [1] == '\0')
+					szBasename = optarg;
+				else
+					szBasename ++;
+
+				fprintf (ps, "--multipart-%s\r\nContent-Type: text/plain; name=\"%s\"\r\nContent-Disposition: attachment; name=\"%s\"\r\nContent-Transfer-Encoding: base64\r\n\r\n", rgchBoundary, szBasename, szBasename);
+
+				while (true)
+				{
+					int ch1, ch2, ch3;
+					if ((ch1 = fgetc (pf)) == -1)
+						break;
+
+					fputc (rgchBase64 [ch1 >> 2], ps);
+
+					if ((ch2 = fgetc (pf)) == -1)
+					{
+						fputc (rgchBase64 [(ch1 << 4) & 0x30], ps);
+						fputc ('=', ps);
+						fputc ('=', ps);
+						break;
+					}
+
+					fputc (rgchBase64 [(ch2 >> 4) | ((ch1 << 4) & 0x30)], ps);
+
+					if ((ch3 = fgetc (pf)) == -1)
+					{
+						fputc (rgchBase64 [(ch2 << 2) & 0x3c], ps);
+						fputc ('=', ps);
+						break;
+					}
+
+					fputc (rgchBase64 [((ch2 << 2) & 0x3c) | (ch3 >> 6)], ps);
+					fputc (rgchBase64 [ch3 & 0x3f], ps);
+					
+					cch += 4;
+					if (cch >= 76)
+						fprintf (ps, "\r\n");
+				}
+				fclose (pf);
+				fprintf (ps, "\r\n\r\n");
+			}
+		}
+	}
+
+	fprintf (ps, "\r\n.\r\nQUIT\r\n");
+	hr = GetResponse (ps);
+
+	fclose (ps);
+}
+
+int main (int cArgs, char *rgszArgs [])
+{
+	int nOpt, iOpt = 0;
+	MailFields mf;
+	bzero ((char *) &mf, sizeof (mf));
+	mf.cArgs = cArgs;
+	mf.rgszArgs = rgszArgs;
+
+	while ((nOpt = getopt_long (cArgs, rgszArgs, szOptions, rgOptions, &iOpt)) != -1)
+	{
+		switch (nOpt)
+		{
+			case 't':
+				if (mf.szTo != NULL)
+					goto _default;
+				mf.szTo = optarg;
+				break;
+			case 'f':
+				if (mf.szFrom != NULL)
+					goto _default;
+				mf.szFrom = optarg;
+				break;
+			case 's':
+				if (mf.szSubject != NULL)
+					goto _default;
+				mf.szSubject = optarg;
+				break;
+			case 'h':
+				if (mf.szHost != NULL)
+					goto _default;
+				mf.szHost = optarg;
+				break;
+			case 'c':
+				mf.fCC = true;
+				break;
+			case 'a':
+				{
+					FILE *pfTmp = fopen (optarg, "r");
+					mf.fAttachments = true;
+					if (pfTmp == NULL)
+					{
+						fprintf (stderr, "File not found: %s\n", optarg);
+						exit (1);
+					}
+					fclose (pfTmp);
+				}
+				break;
+			case 'm':
+				if (mf.pfMsg != NULL)
+					goto _default;
+
+				mf.pfMsg = fopen (optarg, "r");
+				if (mf.pfMsg == NULL)
+				{
+					fprintf (stderr, "File not found: %s\n", optarg);
+					exit (1);
+				}
+				break;
+			case '?':
+			default: _default:
+				printf ("%c: %i\n", nOpt, iOpt);
+				help ();
+				return 1;
+		}
+	}
+	
+	if (mf.szHost == NULL)
+		mf.szHost = "localhost";
+
+	if (mf.szSubject == NULL)
+		mf.szSubject = "";
+
+	if (mf.szTo == NULL)
+	{
+		perror ("must specify 'to' field");
+		help ();
+		return 1;
+	}
+
+	if (mf.szFrom == NULL)
+	{
+		perror ("must specify 'from' field");
+		help ();
+		return 1;
+	}
+
+	SendMail (mf.szTo, &mf);
+
+	if (mf.fCC)
+	{
+		optind = 0;
+		while ((nOpt = getopt_long (cArgs, rgszArgs, szOptions, rgOptions, &iOpt)) != -1)
+		{
+			if (nOpt == 'c')
+			{
+				int optindTmp = optind;
+				SendMail (optarg, &mf);
+				optind = optindTmp;
+			}
+		}
+	}
+
+	if (mf.pfMsg != NULL)
+		fclose (mf.pfMsg);
+
+	return 0;
+}
+

mcs/tools/tinderbox/tinderbox.sh

@@ -0,0 +1,286 @@
+#!/bin/bash
+
+# TOPDIR: set this to the directory containing
+# your 'mono' and 'mcs' directories. Do NOT use '~' here.
+TOPDIR=$HOME/mono
+
+# BACKUP: initially this directory should contain a working install of mono.
+# this directory should minimally contain the 'bin' and 'lib' dirs.
+# after each successful build, the results are placed in here.
+BACKUP=$TOPDIR/install.bak
+
+# INSTALL: this is used as the install directory for
+# the various stages of the build.
+INSTALL=$TOPDIR/install
+
+# SENDMAIL: uncomment this line if you want to send notifications.
+# be careful to check the recipients below before running this script!
+SENDMAIL=$TOPDIR/mcs/tools/tinderbox/smtp
+
+# EMAIL_*: notification addresses. please change these before running!
+EMAIL_FATAL="piersh@friskit.com"
+EMAIL_MESSAGE="mono-patches@lists.ximian.com"
+#EMAIL_MESSAGE="piersh@friskit.com"
+#EMAIL_MESSAGE="mono-hackers-list@ximian.com"
+EMAIL_FROM="piersh@friskit.com"
+EMAIL_CC="-c mono-hackers-list@lists.ximian.com"
+EMAIL_HOST="zeus.sfhq.friskit.com"
+
+LOGBASE=$TOPDIR/.build.log
+LOG=$LOGBASE.txt
+LOGPREV=$LOGBASE.prev
+LOGFATAL=$LOGBASE.fatal
+LOGDATE=$TOPDIR/.build.date
+LOGLOG=$TOPDIR/.build.log.log
+BUILDMSG=$TOPDIR/.build.msg
+export LOGDATE
+
+DELAY_SUCCESS=5m			# wait after a successful build
+DELAY_CHECK_BROKEN=5m		# wait while verifying the build is broken
+DELAY_STILL_BROKEN=3m		# wait while waiting for fix
+DELAY_BROKEN=5m				# wait after notification sent
+
+FILTER_LOG="sed -e 's/^in <0x[0-9a-z]*>//' -e 's/:[0-9]*): WARNING \*\*:/): WARNING **/' -e 's/^\[[0-9][0-9]*:[0-9][0-9]*\] - .*//' -e 's/^[0-9][0-9]* - Member cache//' -e 's/^[0-9][0-9]* - Misc counter//' -e 's/: [0-9]* Trace\/breakpoint/ : Trace\/breakpoint/' -e 's/Needed to allocate blacklisted block at 0x[0-9a-f]*//'"
+
+function fatal ()
+{
+	$SENDMAIL -h $EMAIL_HOST -f $EMAIL_FROM -t $EMAIL_FATAL -a $LOGFATAL -s "[MONOBUILD] FATAL ERROR (`uname -s -m`)"
+	echo FATAL: `date` >> $LOGLOG
+	echo FATAL ERROR
+	exit 1
+}
+
+function build_mono ()
+{
+	# try to build
+
+	echo building...
+
+	cd $TOPDIR
+
+	rm -f $LOGFATAL
+	touch $LOGFATAL
+
+	[ -f $LOG ] && mv $LOG $LOGPREV
+	touch $LOG
+
+	# restore tools from backup
+	rm -fr $INSTALL
+	cp -a $BACKUP $INSTALL
+
+	# update from CVS
+	cvs -z3 update -APd mcs mono 2>&1 | tee -a $LOG
+	[ $PIPESTATUS == "0" ] || return 1
+
+	# clean mcs
+	cd $TOPDIR/mcs
+	make -f makefile.gnu clean 2>&1 | tee -a $LOG
+	[ $PIPESTATUS == "0" ] || return 1
+
+	# build JAY
+	cd $TOPDIR/mcs/jay
+	make -f makefile.gnu 2>&1 | tee -a $LOG
+	[ $PIPESTATUS == "0" ] || return 1
+
+	# build MCS compiler
+	cd $TOPDIR/mcs/mcs
+	make -f makefile.gnu 2>&1 | tee -a $LOG
+	[ $PIPESTATUS == "0" ] || return 1
+
+	# build CORLIB with old tools
+	cd $TOPDIR/mcs/class/corlib
+	make -f makefile.gnu 2>&1 | tee -a $LOG
+	[ $PIPESTATUS == "0" ] || return 1
+
+	# copy new MCS and CORLIB to build tools
+	cp -f $TOPDIR/mcs/class/lib/corlib.dll $INSTALL/lib/
+	cp -f $TOPDIR/mcs/mcs/mcs.exe $INSTALL/bin/
+
+
+
+	cd $TOPDIR/mono
+
+	# configure mono build
+	rm -f config.cache
+	./autogen.sh --prefix=$INSTALL 2>&1 | tee -a $LOG
+	[ $PIPESTATUS == "0" ] || return 1
+
+	# clean mono
+	make clean 2>&1 | tee -a $LOG
+	[ $PIPESTATUS == "0" ] || return 1
+
+	# build mono
+	make 2>&1 | tee -a $LOG
+	[ $PIPESTATUS == "0" ] || return 1
+
+	# install runtime
+	cd $TOPDIR/mono/mono
+	make install 2>&1 | tee -a $LOG
+	[ $PIPESTATUS == "0" ] || return 1
+
+
+
+	# clean/make runtime libraries/tools
+	cd $TOPDIR/mcs
+	make -f makefile.gnu clean 2>&1 | tee -a $LOG
+	[ $PIPESTATUS == "0" ] || return 1
+
+	make -f makefile.gnu 2>&1 | tee -a $LOG
+	[ $PIPESTATUS == "0" ] || return 1
+
+
+
+	# retrieve runtime libraries
+	cd $TOPDIR/mono/runtime
+	rm -f *.dll *.exe
+
+	# install everything
+	cd $TOPDIR/mono
+	make install 2>&1 | tee -a $LOG
+	[ $PIPESTATUS == "0" ] || return 1
+
+
+	# test mcs self-build
+	cd $TOPDIR/mcs/mcs
+	make -f makefile.gnu clean 2>&1 | tee -a $LOG
+	[ $PIPESTATUS == "0" ] || return 1
+	make -f makefile.gnu 2>&1 | tee -a $LOG
+	[ $PIPESTATUS == "0" ] || return 1
+
+
+	# test corlib self-build
+	cd $TOPDIR/mcs/class/corlib
+	make -f makefile.gnu clean 2>&1 | tee -a $LOG
+	[ $PIPESTATUS == "0" ] || return 1
+	make -f makefile.gnu 2>&1 | tee -a $LOG
+	[ $PIPESTATUS == "0" ] || return 1
+
+
+	# it worked, backup build tools
+	rm -fr $BACKUP
+	cp -a $INSTALL $BACKUP
+
+	return 0
+}
+
+function compare_logs ()
+{
+	touch $LOG $LOGPREV
+	echo Comparing build logs
+	eval $FILTER_LOG $LOG > $LOG.tmp
+	eval $FILTER_LOG $LOGPREV > $LOGPREV.tmp
+	diff -b --brief $LOG.tmp $LOGPREV.tmp
+}
+
+function build_fixed ()
+{
+	echo "Build fixed:       `date`" > $BUILDMSG
+	echo "Previous breakage: `cat .build.date.last_fail`" >> $BUILDMSG
+	echo "Previous build:    `cat .build.date.last_success`" >> $BUILDMSG
+	echo >> $BUILDMSG
+
+	$SENDMAIL -h $EMAIL_HOST -f $EMAIL_FROM -t $EMAIL_MESSAGE $EMAIL_CC -s "[MONOBUILD] fixed (`uname -s -m`)" -m $BUILDMSG
+	rm -f $BUILDMSG
+}
+
+function build_failed ()
+{
+	echo "Build broken:   `date`" > $BUILDMSG
+	echo "Broken since:   `cat .build.date.last_fail`" >> $BUILDMSG
+	echo "Previous build: `cat .build.date.last_success`" >> $BUILDMSG
+	echo >> $BUILDMSG
+
+	sed -e 's/$/
+/' < $LOG > errors.txt
+	tail -25 errors.txt >> $BUILDMSG
+	rm -f errors.txt.gz
+	gzip errors.txt
+
+	$SENDMAIL -h $EMAIL_HOST -f $EMAIL_FROM -t $EMAIL_MESSAGE $EMAIL_CC -a errors.txt.gz -s "[MONOBUILD] broken (`uname -s -m`)" -m $BUILDMSG
+	rm -f $BUILDMSG errors.txt.gz
+}
+
+function stabilize ()
+{
+	cd $TOPDIR
+	while ! compare_logs ; do
+
+		date > $LOGDATE.last_fail
+		echo "|||||||||||||||||||||||||"
+		echo "|||||| LOGS DIFFER ||||||"
+		echo "|||||||||||||||||||||||||"
+		echo CHECK: `date` >> $LOGLOG
+
+		echo sleeping for $DELAY_CHECK_BROKEN
+		sleep $DELAY_CHECK_BROKEN
+
+		if build_mono ; then
+			return 0
+		fi
+
+		cd $TOPDIR
+
+	done
+	return 1
+}
+
+[ -f $LOGPREV ] && mv $LOGPREV $LOG
+
+while [ 1 ] ; do
+
+	cd $TOPDIR
+	
+	if build_mono ; then
+
+		cd $TOPDIR
+
+		echo "|||||||||||||||||||||||||"
+		echo "|||| BUILD SUCCEEDED ||||"
+		echo "|||||||||||||||||||||||||"
+		echo SUCCESS: `date` >> $LOGLOG
+		date > $LOGDATE.last_success
+		echo sleeping for $DELAY_SUCCESS
+		sleep $DELAY_SUCCESS
+
+	else
+
+		if ! stabilize ; then
+
+			build_failed
+
+			echo "||||||||||||||||||||||"
+			echo "|||| BUILD BROKEN ||||"
+			echo "||||||||||||||||||||||"
+			echo BROKEN: `date` >> $LOGLOG
+			date > $LOGDATE.last_fail
+			echo sleeping for $DELAY_BROKEN
+			sleep $DELAY_BROKEN
+
+			until build_mono ; do
+
+				cd $TOPDIR
+				echo "||||||||||||||||||||||||||||"
+				echo "|||| BUILD STILL BROKEN ||||"
+				echo "||||||||||||||||||||||||||||"
+				echo STILL BROKEN: `date` >> $LOGLOG
+				date > $LOGDATE.last_fail
+				echo sleeping for $DELAY_STILL_BROKEN
+				sleep $DELAY_STILL_BROKEN
+
+			done
+
+			cd $TOPDIR
+			build_fixed
+			echo "|||||||||||||||||||||"
+			echo "|||| BUILD FIXED ||||"
+			echo "|||||||||||||||||||||"
+			echo FIXED: `date` >> $LOGLOG
+			date > $LOGDATE.last_success
+			echo sleeping for $DELAY_SUCCESS
+			sleep $DELAY_SUCCESS
+
+		fi
+
+	fi
+
+done