/*
* Copyright 2014-present Facebook, Inc.
*
* Licensed under the Apache License, Version 2.0 (the "License"); you may
* not use this file except in compliance with the License. You may obtain
* a copy of the License at
*
* http://www.apache.org/licenses/LICENSE-2.0
*
* Unless required by applicable law or agreed to in writing, software
* distributed under the License is distributed on an "AS IS" BASIS, WITHOUT
* WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. See the
* License for the specific language governing permissions and limitations
* under the License.
*/
package com.facebook.buck.ocaml;
import com.facebook.buck.rules.AbstractBuildRule;
import com.facebook.buck.rules.AddToRuleKey;
import com.facebook.buck.rules.BuildContext;
import com.facebook.buck.rules.BuildRuleParams;
import com.facebook.buck.rules.BuildableContext;
import com.facebook.buck.rules.ExplicitBuildTargetSourcePath;
import com.facebook.buck.rules.SourcePath;
import com.facebook.buck.step.Step;
import com.facebook.buck.step.fs.MkdirStep;
import com.google.common.collect.ImmutableList;
/**
* Creates a debug launch script. The script will run OCaml debugger with the target binary loaded.
* This works with bytecode and provides limited debugging functionality like stepping, breakpoints,
* etc.
*/
public class OcamlDebugLauncher extends AbstractBuildRule {
@AddToRuleKey private final OcamlDebugLauncherStep.Args args;
public OcamlDebugLauncher(BuildRuleParams params, OcamlDebugLauncherStep.Args args) {
super(params);
this.args = args;
}
@Override
public ImmutableList<Step> getBuildSteps(
BuildContext context, BuildableContext buildableContext) {
buildableContext.recordArtifact(args.getOutput());
return ImmutableList.of(
MkdirStep.of(getProjectFilesystem(), args.getOutput().getParent()),
new OcamlDebugLauncherStep(getProjectFilesystem(), context.getSourcePathResolver(), args));
}
@Override
public SourcePath getSourcePathToOutput() {
return new ExplicitBuildTargetSourcePath(getBuildTarget(), args.getOutput());
}
}