Aux scripts

Author: MandanaBM

metacompiler.php

@@ -0,0 +1,91 @@
+<?php
+if (count($argv) < 2)
+	die("Usage: {@$argv[0]} code.cu\n");
+
+$code = file_get_contents($argv[1]);
+
+$jobs = preg_match_all('/class\s+(\w+?)\: public AbstractJob\s*{(.*?)};/sm', $code, $matches, PREG_SET_ORDER);
+// print_r($matches);
+$count = count($matches);
+
+/// Part1: Job types enum
+$enum = [];
+for ($i=0;$i< $count; ++$i) {
+	$jobname = $matches[$i][1];
+	$jobname = str_replace("Job", "", $jobname);
+	$enum[] = $jobname;
+}
+$enum_str = "enum JobTypes {\n\tAbstract,\n\t";
+$enum_str .= join(",\n\t", $enum);
+$enum_str .= "\n};\n";
+
+echo $enum_str;
+
+
+
+/// Part2: Iter call function
+$iter =[];
+for ($i=0;$i<$count; ++$i)
+	$iter[]= "if (job->job_type == JobTypes::{$enum[$i]})\n\t(({$enum[$i]}Job *)job)->iter(id, d_offsets, d_edges, n, m);";
+
+$iter_str = join("\nelse ", $iter);
+$iter_str .= PHP_EOL. 'else printf("Unsupported job type!\n");' . PHP_EOL;
+echo $iter_str;
+
+/// Part3: FusionJob union
+$typedata = [];
+for ($i=0;$i<$count;++$i) {
+	preg_match('#//PRAGMA: job data\n(.*?)\n//PRAGMA#ms', $matches[$i][2], $data);
+	$data=$data[1];
+	$data=explode("\n", $data);
+	$data=array_map('trim', $data);
+
+	$typedata[$i] = [];
+	foreach ($data as $datum) {
+		preg_match('/(.*?)\s+(.*?);/', $datum, $match);
+		$type = $match[1];
+		$name = $match[2];
+		while ($name[0] == '*')
+		{
+			$name = substr($name, 1);
+			$type .= "*";
+			if (!(substr($type, -1) == '*' or $type == 'i64' or $type =='double' or $type == 'u64'))
+				echo "Warning: Type '{$type}' may not be 8 bytes. I suggest using only 8 byte types in jobs.\n";
+		}
+		$typedata[$i][] = ['type' => $type, 'name' => $name];
+	}
+}
+$max = 0;
+for ($i=0; $i<count($typedata); ++$i) {
+	$max=max($max, count($typedata[$i]));
+}
+// print_r($typedata);
+$union = [];
+for ($i=0;$i<$max;++$i) {
+	$values = [];
+	for ($j=0;$j<$count; ++$j) {
+		if (isset($typedata[$j][$i]))
+			$values[] = $typedata[$j][$i]['type'] . " " . $typedata[$j][$i]['name'];
+	}
+	while (count($values) > 1 && $values[0] == $values[1]) {
+		array_shift($values);
+	}
+	$union[$i] = $values;
+
+}
+// print_r($union);
+
+$union_str = "struct FusionJob: public AbstractJob {\n";
+foreach ($union as $u) {
+	if (count($u) > 1) {
+		$union_str.= "\tunion {\n";
+		foreach ($u as $item) {
+			$union_str .= "\t\t{$item};\n";
+		}
+		$union_str .= "\t};\n";
+	}
+	else
+		$union_str.= "\t{$u[0]};\n";
+}
+$union_str .= "};\n";
+echo $union_str;

setup-graphs.sh

@@ -0,0 +1,36 @@
+#!/usr/bin/env bash
+
+DIR=$1
+
+mkdir -p "$DIR"
+
+# Patent Citation Network (CP)
+# Number of Vertices:  6.0 M
+# Number of Edges   : 16.5 M
+wget -P "$DIR" https://snap.stanford.edu/data/cit-Patents.txt.gz
+mv "$DIR/cit-Patents.txt.gz" "$DIR/cit-patents.txt.gz"
+gunzip "$DIR/cit-patents.txt.gz"
+SNAPtoAdj "$DIR/cit-patents.txt" "$DIR/cit-patents"
+
+# LiveJournal Social Network (LJ)
+# Number of Vertices:  4.8 M
+# Number of Edges   : 69.0 M
+wget -P "$DIR" https://snap.stanford.edu/data/soc-LiveJournal1.txt.gz
+mv "$DIR/soc-LiveJournal1.txt.gz" "$DIR/soc-livejournal1.txt.gz"
+gunzip "$DIR/soc-livejournal1.txt.gz"
+SNAPtoAdj "$DIR/soc-livejournal1.txt" "$DIR/soc-livejournal1"
+
+# Pokec Social Network (PS)
+# Number of Vertices:  1.6 M
+# Number of Edges   : 30.6 M
+wget -P "$DIR" https://snap.stanford.edu/data/soc-pokec-relationships.txt.gz
+gunzip "$DIR/soc-pokec-relationships.txt.gz"
+SNAPtoAdj "$DIR/soc-pokec-relationships.txt" "$DIR/soc-pokec-relationships"
+
+# Wikipedia Talk Network (WT)
+# Number of Vertices: 2.4 M
+# Number of Edges   : 5.0 M
+wget -P "$DIR" https://snap.stanford.edu/data/wiki-Talk.txt.gz
+mv "$DIR/wiki-Talk.txt.gz" "$DIR/wiki-talk.txt.gz"
+gunzip "$DIR/wiki-talk.txt.gz"
+SNAPtoAdj "$DIR/wiki-talk.txt" "$DIR/wiki-talk"