"use strict";

var child_process = require("child_process");
var https = require("https");
var url = require("url");

var period = 45 * 60 * 1000;
var wait = 2 * 60 * 1000;
var ping = 5 * 60 * 1000;
if (process.argv[2] == "run") {
    var endTime = Date.now() + period;
    for (var i = 0; i < 2; i++) spawn(endTime);
} else if (process.argv.length > 2) {
    var token = process.argv[2];
    var branch = process.argv[3] || "v" + require("../package.json").version;
    var repository = encodeURIComponent(process.argv[4] || "mishoo/UglifyJS2");
    var concurrency = process.argv[5] || 1;
    (function request() {
        setTimeout(request, (period + wait) / concurrency);
        var options = url.parse("https://api.travis-ci.org/repo/" + repository + "/requests");
        options.method = "POST";
        options.headers = {
            "Content-Type": "application/json",
            "Travis-API-Version": 3,
            "Authorization": "token " + token
        };
        https.request(options, function(res) {
            console.log("HTTP", res.statusCode);
            console.log(JSON.stringify(res.headers, null, 2));
            console.log();
            res.setEncoding("utf8");
            res.on("data", console.log);
        }).on("error", console.error).end(JSON.stringify({
            request: {
                message: "ufuzz testing (when idle)",
                branch: branch,
                config: {
                    merge_mode: "replace",
                    language: "node_js",
                    node_js: "9",
                    sudo: false,
                    script: "node test/travis-ufuzz run"
                }
            }
        }));
    })();
} else {
    console.log("Usage: test/travis-ufuzz.js <token> [branch] [repository] [concurrency]");
}

function spawn(endTime) {
    var child = child_process.spawn("node", [
        "--max-old-space-size=2048",
        "test/ufuzz"
    ], {
        stdio: [ "ignore", "pipe", "pipe" ]
    }).on("exit", respawn);
    var line = "";
    child.stdout.on("data", function(data) {
        line += data;
    });
    child.stderr.on("data", function() {
        process.exitCode = 1;
    }).pipe(process.stdout);
    var keepAlive = setInterval(function() {
        var end = line.lastIndexOf("\r");
        console.log(line.slice(line.lastIndexOf("\r", end - 1) + 1, end));
        line = line.slice(end + 1);
    }, ping);
    var timer = setTimeout(function() {
        clearInterval(keepAlive);
        child.removeListener("exit", respawn);
        child.kill();
    }, endTime - Date.now());

    function respawn() {
        console.log(line);
        clearInterval(keepAlive);
        clearTimeout(timer);
        spawn(endTime);
    }
}
ved a copy of the GNU General Public License
;;; along with GNU Guix.  If not, see &lt;http://www.gnu.org/licenses/&gt;.

(define-module (gnu packages simh)
  #:use-module ((guix licenses) #:prefix license:)
  #:use-module (guix gexp)
  #:use-module (guix packages)
  #:use-module (guix download)
  #:use-module (guix git-download)
  #:use-module (guix build-system gnu)
  #:use-module (guix utils)
  #:use-module (gnu packages admin)
  #:use-module (gnu packages compression))

(define-public simh
  (package
    (name &quot;simh&quot;)
    (version &quot;3.12-4&quot;)
    (source
     (origin
       (method url-fetch)
       (uri (list (string-append
                   &quot;http://simh.trailing-edge.com/sources/simhv&quot;
                   (string-delete #\. version) &quot;.zip&quot;)
                  (string-append
                   &quot;http://simh.trailing-edge.com/sources/archive/simhv&quot;
                   (string-delete #\. version) &quot;.zip&quot;)))
       (sha256
        (base32 &quot;1i78c1x8xjiwy9dd2ss0mk3f1v9pmcjb4zc37ikqnjarsfqj2nm0&quot;))))
    (build-system gnu-build-system)
    (native-inputs
     (list unzip))
    (inputs
     (list libpcap))
    (arguments
     (list #:tests? #f
           #:make-flags
           #~(list (string-append &quot;GCC=&quot; #$(cc-for-target) &quot; -fcommon&quot;))
           #:modules `((ice-9 string-fun)
                       ,@%default-gnu-modules)
           #:phases
           #~(modify-phases %standard-phases
               (delete &apos;configure)
               (add-before &apos;build &apos;prepare-build
                 (lambda _
                   (substitute* &quot;makefile&quot;
                     ((&quot;LIBPATH:=/usr/lib&quot;)
                      (string-append &quot;LIBPATH:=&quot;
                                     (string-replace-substring
                                      (getenv &quot;LIBRARY_PATH&quot;) &quot;:&quot; &quot; &quot;)))
                     ((&quot;export LIBRARY_PATH = .*&quot;) &quot;&quot;))
                   (mkdir &quot;BIN&quot;)))
               (replace &apos;install
                 (lambda* (#:key outputs #:allow-other-keys)
                   (let* ((out (assoc-ref outputs &quot;out&quot;))
                          (bin (string-append out &quot;/bin/&quot;))
                          (lib (string-append out &quot;/lib/simh/&quot;)))
                     (mkdir-p bin)
                     (mkdir-p lib)
                     (for-each (lambda (file)
                                 (copy-file file
                                            (string-append bin &quot;simh-&quot;
                                                           (basename file))))
                               (find-files &quot;BIN&quot;))
                     (for-each (lambda (file)
                                 (copy-file file
                                            (string-append lib
                                                           (basename file))))
                               (find-files &quot;VAX&quot; &quot;bin$&quot;))))))))
    (home-page &quot;http://simh.trailing-edge.com&quot;)
    (synopsis &quot;Collection of simulators from The Computer History Simulation
Project&quot;)
    (description
     &quot;SIMH is a highly portable, multi-system simulator.  SIMH implements
simulators for:

@itemize
@item Data General Nova, Eclipse.
@item Digital Equipment Corporation PDP-1, PDP-4, PDP-7, PDP-8, PDP-9, PDP-10,
PDP-11, PDP-15, VAX.
@item GRI Corporation GRI-909, GRI-99.
@item IBM 1401, 1620, 1130, 7090/7094, System 3.
@item Interdata (Perkin-Elmer) 16b and 32b systems.
@item Hewlett-Packard 2114, 2115, 2116, 2100, 21MX, 1000.
@item Honeywell H316/H516.
@item MITS Altair 8800, with both 8080 and Z80.
@item Royal-Mcbee LGP-30, LGP-21.
@item Scientific Data Systems SDS 940.
@item SWTP 6800.
@end itemize&quot;)
    (license license:expat)))
</pre>
</div></div> <!-- class=content -->
                         <div class=footer>generated by
                             <a href="https://git.zx2c4.com/cgit/about/">
                                 cgit
                             </a>
                         </div>
                        </div> <!-- id=cgit -->
</body>
</html>