com.theoryinpractise.clojure.ClojureNReplMojo.java Source code

Introduction

Here is the source code for com.theoryinpractise.clojure.ClojureNReplMojo.java

Source

/*
 * Copyright (c) Mark Derricutt 2010.
 *
 * The use and distribution terms for this software are covered by the Eclipse Public License 1.0
 * (http://opensource.org/licenses/eclipse-1.0.php) which can be found in the file epl-v10.html
 * at the root of this distribution.
 *
 * By using this software in any fashion, you are agreeing to be bound by the terms of this license.
 *
 * You must not remove this notice, or any other, from this software.
 */

package com.theoryinpractise.clojure;

import org.apache.commons.lang.SystemUtils;
import org.apache.maven.plugin.MojoExecutionException;
import org.apache.maven.plugins.annotations.Mojo;
import org.apache.maven.plugins.annotations.Parameter;
import org.apache.maven.plugins.annotations.ResolutionScope;

import java.io.File;
import java.util.ArrayList;
import java.util.List;

@Mojo(name = "nrepl", requiresDependencyResolution = ResolutionScope.TEST)
public class ClojureNReplMojo extends AbstractClojureCompilerMojo {

    /**
     * The clojure script to preceding the switch to the repl
     */
    @Parameter
    private String replScript;

    @Parameter(defaultValue = "4005", property = "clojure.nrepl.port")
    protected int port;

    @Parameter(defaultValue = "localhost", property = "clojure.nrepl.host")
    protected String nreplHost;

    public void execute() throws MojoExecutionException {
        StringBuilder sb = new StringBuilder();
        sb.append("(do ");
        sb.append("(clojure.tools.nrepl.server/start-server");
        sb.append(" :bind \"").append(nreplHost).append("\"");
        sb.append(" :port ");
        sb.append(Integer.toString(port));
        sb.append("))");
        String nreplLoader = sb.toString();

        if (SystemUtils.IS_OS_WINDOWS) {
            nreplLoader = windowsEscapeCommandLineArg(nreplLoader);
        }

        List<String> args = new ArrayList<String>();
        if (replScript != null && new File(replScript).exists()) {
            args.add("-i");
            args.add(replScript);
        }

        args.add("-e");
        args.add("(require (quote clojure.tools.nrepl.server))");
        args.add("-e");
        args.add(nreplLoader);

        callClojureWith(getSourceDirectories(SourceDirectory.TEST, SourceDirectory.COMPILE), outputDirectory,
                getRunWithClasspathElements(), "clojure.main", args.toArray(new String[args.size()]));

    }

    private String windowsEscapeCommandLineArg(String arg) {
        return "\"" + arg.replace("\"", "\\\"") + "\"";
    }

}