#525521581

Committed 06 Jun 2025 08:26AM UTC coverage: 82.33% (-0.02%) from 82.354%

Build # #525521581

Build Type

push

github

Committed by

hurricup

Commit Message

Moved debugger properties to the respective bundle

Run Details

18 of 26 new or added lines in 8 files covered. (69.23%)

158 existing lines in 31 files now uncovered.

30858 of 37481 relevant lines covered (82.33%)

0.82 hits per line

Source File
Press 'n' to go to next uncovered line, 'b' for previous

85.96

/plugin/debugger/src/main/java/com/perl5/lang/perl/debugger/PerlDebugProcess.java

/*
 * Copyright 2015-2025 Alexandr Evstigneev
 *
 * 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.perl5.lang.perl.debugger;

import com.intellij.execution.ExecutionResult;
import com.intellij.execution.process.ProcessHandler;
import com.intellij.execution.ui.ExecutionConsole;
import com.intellij.execution.ui.RunnerLayoutUi;
import com.intellij.notification.Notification;
import com.intellij.notification.NotificationType;
import com.intellij.notification.Notifications;
import com.intellij.openapi.actionSystem.DefaultActionGroup;
import com.intellij.openapi.application.ApplicationManager;
import com.intellij.openapi.diagnostic.Logger;
import com.intellij.ui.content.Content;
import com.intellij.xdebugger.XDebugProcess;
import com.intellij.xdebugger.XDebugSession;
import com.intellij.xdebugger.XDebuggerManager;
import com.intellij.xdebugger.XSourcePosition;
import com.intellij.xdebugger.breakpoints.XBreakpointHandler;
import com.intellij.xdebugger.breakpoints.XBreakpointManager;
import com.intellij.xdebugger.breakpoints.XLineBreakpoint;
import com.intellij.xdebugger.evaluation.XDebuggerEditorsProvider;
import com.intellij.xdebugger.frame.XSuspendContext;
import com.intellij.xdebugger.ui.XDebugTabLayouter;
import com.perl5.PerlIcons;
import com.perl5.lang.perl.debugger.breakpoints.PerlLineBreakPointDescriptor;
import com.perl5.lang.perl.debugger.breakpoints.PerlLineBreakpointHandler;
import com.perl5.lang.perl.debugger.breakpoints.PerlLineBreakpointProperties;
import com.perl5.lang.perl.debugger.breakpoints.PerlLineBreakpointType;
import com.perl5.lang.perl.debugger.run.run.debugger.PerlDebugProfileStateBase;
import com.perl5.lang.perl.idea.run.PerlRunProfileState;
import com.perl5.lang.perl.idea.run.debugger.PerlDebugOptions;
import org.jetbrains.annotations.NonNls;
import org.jetbrains.annotations.NotNull;
import org.jetbrains.annotations.Nullable;

import java.util.Collection;


public class PerlDebugProcess extends XDebugProcess {
  private static final Logger LOG = Logger.getInstance(PerlDebugProcess.class);
  private final ExecutionResult myExecutionResult;
  private final PerlDebugThread myDebugThread;
  private final PerlRunProfileState myDebugProfileState;
  static final @NonNls String PERL_DEBUGGER_NOTIFICATION_GROUP_ID = "PERL_DEBUGGER";

  public PerlDebugProcess(@NotNull XDebugSession session, PerlDebugProfileStateBase state, ExecutionResult executionResult) {
    super(session);
    session.setPauseActionSupported(true);
    myExecutionResult = executionResult;
    myDebugThread = new PerlDebugThread(session, state, executionResult);
    myDebugProfileState = state;
    myDebugThread.start();
  }

  @Override
  public @NotNull XDebuggerEditorsProvider getEditorsProvider() {
    return PerlDebuggerEditorsProvider.INSTANCE;
  }

  @Override
  public boolean checkCanInitBreakpoints() {
    LOG.debug("Check can init breakpoints");
    return true;
  }

  @Override
  public XBreakpointHandler<?> @NotNull [] getBreakpointHandlers() {
    return new XBreakpointHandler[]{new PerlLineBreakpointHandler(myDebugThread)};
  }

  @Override
  public void sessionInitialized() {
    LOG.debug("Session initialized");
    super.sessionInitialized();
  }

  @Override
  public void registerAdditionalActions(@NotNull DefaultActionGroup leftToolbar,
                                        @NotNull DefaultActionGroup topToolbar,
                                        @NotNull DefaultActionGroup settings) {
    super.registerAdditionalActions(leftToolbar, topToolbar, settings);
  }

  @Override
  public void startStepOver(@Nullable XSuspendContext context) {
    myDebugThread.sendString("o");
  }

  @Override
  public void startStepInto(@Nullable XSuspendContext context) {
    myDebugThread.sendString("");
  }

  @Override
  public void startStepOut(@Nullable XSuspendContext context) {
    myDebugThread.sendString("u");
  }

  @Override
  public void startPausing() {
    if (((PerlDebugOptions)myDebugProfileState.getEnvironment().getRunProfile()).isNonInteractiveModeEnabled()) {
      myDebugThread.sendString("pause");
    }
    else {
      Notifications.Bus.notify(new Notification(
        PERL_DEBUGGER_NOTIFICATION_GROUP_ID,
        PerlDebuggerBundle.message("perl.run.pause.unavailable.title"),
        PerlDebuggerBundle.message("perl.run.pause.unavailable.content"),
        NotificationType.INFORMATION
      ));
    }
  }

  @Override
  public void resume(@Nullable XSuspendContext context) {
    myDebugThread.sendString("g");
  }

  @Override
  public void stop() {
    myDebugThread.setStop();

    ApplicationManager.getApplication().runReadAction(
      () -> {
        XBreakpointManager breakpointManager = XDebuggerManager.getInstance(getSession().getProject()).getBreakpointManager();
        Collection<? extends XLineBreakpoint<PerlLineBreakpointProperties>> breakpoints =
          breakpointManager.getBreakpoints(PerlLineBreakpointType.class);
        for (XLineBreakpoint<PerlLineBreakpointProperties> breakpoint : breakpoints) {
          breakpointManager.updateBreakpointPresentation(breakpoint, null, null);
        }
      }
    );
  }

  @Override
  public void runToPosition(@NotNull XSourcePosition position, @Nullable XSuspendContext context) {
    PerlLineBreakPointDescriptor descriptor = PerlLineBreakPointDescriptor.createFromSourcePosition(position, myDebugThread);
    if (descriptor != null) {
      myDebugThread.sendCommand("p", descriptor);
    }
  }

  @Override
  protected @Nullable ProcessHandler doGetProcessHandler() {
    return myExecutionResult.getProcessHandler();
  }

  @Override
  public @NotNull ExecutionConsole createConsole() {
    return myExecutionResult.getExecutionConsole();
  }

  @Override
  public @NotNull XDebugTabLayouter createTabLayouter() {
    return new XDebugTabLayouter() {
      @Override
      public void registerAdditionalContent(@NotNull RunnerLayoutUi ui) {
        Content content =
          ui.createContent("PerlSourceList", myDebugThread.getScriptListPanel(), PerlDebuggerBundle.message("loaded.sources"),
                           PerlIcons.PERL_SCRIPT_FILE_ICON, null);
        content.setCloseable(false);
        ui.addContent(content);

        content =
          ui.createContent("PerlEvalsList", myDebugThread.getEvalsListPanel(), PerlDebuggerBundle.message("compiled.evals"),
                           PerlIcons.PERL_LANGUAGE_ICON, null);
        content.setCloseable(false);
        ui.addContent(content);
      }
    };
  }
}

1	/*
2	* Copyright 2015-2025 Alexandr Evstigneev
3	*
4	* Licensed under the Apache License, Version 2.0 (the "License");
5	* you may not use this file except in compliance with the License.
6	* You may obtain a copy of the License at
7	*
8	* http://www.apache.org/licenses/LICENSE-2.0
9	*
10	* Unless required by applicable law or agreed to in writing, software
11	* distributed under the License is distributed on an "AS IS" BASIS,
12	* WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
13	* See the License for the specific language governing permissions and
14	* limitations under the License.
15	*/
16
17	package com.perl5.lang.perl.debugger;
18
19	import com.intellij.execution.ExecutionResult;
20	import com.intellij.execution.process.ProcessHandler;
21	import com.intellij.execution.ui.ExecutionConsole;
22	import com.intellij.execution.ui.RunnerLayoutUi;
23	import com.intellij.notification.Notification;
24	import com.intellij.notification.NotificationType;
25	import com.intellij.notification.Notifications;
26	import com.intellij.openapi.actionSystem.DefaultActionGroup;
27	import com.intellij.openapi.application.ApplicationManager;
28	import com.intellij.openapi.diagnostic.Logger;
29	import com.intellij.ui.content.Content;
30	import com.intellij.xdebugger.XDebugProcess;
31	import com.intellij.xdebugger.XDebugSession;
32	import com.intellij.xdebugger.XDebuggerManager;
33	import com.intellij.xdebugger.XSourcePosition;
34	import com.intellij.xdebugger.breakpoints.XBreakpointHandler;
35	import com.intellij.xdebugger.breakpoints.XBreakpointManager;
36	import com.intellij.xdebugger.breakpoints.XLineBreakpoint;
37	import com.intellij.xdebugger.evaluation.XDebuggerEditorsProvider;
38	import com.intellij.xdebugger.frame.XSuspendContext;
39	import com.intellij.xdebugger.ui.XDebugTabLayouter;
40	import com.perl5.PerlIcons;
41	import com.perl5.lang.perl.debugger.breakpoints.PerlLineBreakPointDescriptor;
42	import com.perl5.lang.perl.debugger.breakpoints.PerlLineBreakpointHandler;
43	import com.perl5.lang.perl.debugger.breakpoints.PerlLineBreakpointProperties;
44	import com.perl5.lang.perl.debugger.breakpoints.PerlLineBreakpointType;
45	import com.perl5.lang.perl.debugger.run.run.debugger.PerlDebugProfileStateBase;
46	import com.perl5.lang.perl.idea.run.PerlRunProfileState;
47	import com.perl5.lang.perl.idea.run.debugger.PerlDebugOptions;
48	import org.jetbrains.annotations.NonNls;
49	import org.jetbrains.annotations.NotNull;
50	import org.jetbrains.annotations.Nullable;
51
52	import java.util.Collection;
53
54
55	public class PerlDebugProcess extends XDebugProcess {
56	private static final Logger LOG = Logger.getInstance(PerlDebugProcess.class);	1✔
57	private final ExecutionResult myExecutionResult;
58	private final PerlDebugThread myDebugThread;
59	private final PerlRunProfileState myDebugProfileState;
60	static final @NonNls String PERL_DEBUGGER_NOTIFICATION_GROUP_ID = "PERL_DEBUGGER";
61
62	public PerlDebugProcess(@NotNull XDebugSession session, PerlDebugProfileStateBase state, ExecutionResult executionResult) {
63	super(session);	1✔
64	session.setPauseActionSupported(true);	1✔
65	myExecutionResult = executionResult;	1✔
66	myDebugThread = new PerlDebugThread(session, state, executionResult);	1✔
67	myDebugProfileState = state;	1✔
68	myDebugThread.start();	1✔
69	}	1✔
70
71	@Override
72	public @NotNull XDebuggerEditorsProvider getEditorsProvider() {
73	return PerlDebuggerEditorsProvider.INSTANCE;	1✔
74	}
75
76	@Override
77	public boolean checkCanInitBreakpoints() {
78	LOG.debug("Check can init breakpoints");	1✔
79	return true;	1✔
80	}
81
82	@Override
83	public XBreakpointHandler<?> @NotNull [] getBreakpointHandlers() {
84	return new XBreakpointHandler[]{new PerlLineBreakpointHandler(myDebugThread)};	1✔
85	}
86
87	@Override
88	public void sessionInitialized() {
89	LOG.debug("Session initialized");	1✔
90	super.sessionInitialized();	1✔
91	}	1✔
92
93	@Override
94	public void registerAdditionalActions(@NotNull DefaultActionGroup leftToolbar,
95	@NotNull DefaultActionGroup topToolbar,
96	@NotNull DefaultActionGroup settings) {
97	super.registerAdditionalActions(leftToolbar, topToolbar, settings);	×
98	}	×
99
100	@Override
101	public void startStepOver(@Nullable XSuspendContext context) {
102	myDebugThread.sendString("o");	1✔
103	}	1✔
104
105	@Override
106	public void startStepInto(@Nullable XSuspendContext context) {
107	myDebugThread.sendString("");	1✔
108	}	1✔
109
110	@Override
111	public void startStepOut(@Nullable XSuspendContext context) {
112	myDebugThread.sendString("u");	1✔
113	}	1✔
114
115	@Override
116	public void startPausing() {
117	if (((PerlDebugOptions)myDebugProfileState.getEnvironment().getRunProfile()).isNonInteractiveModeEnabled()) {	×
118	myDebugThread.sendString("pause");	×
119	}
120	else {
121	Notifications.Bus.notify(new Notification(	×
122	PERL_DEBUGGER_NOTIFICATION_GROUP_ID,
NEW 123	PerlDebuggerBundle.message("perl.run.pause.unavailable.title"),	×
NEW 124	PerlDebuggerBundle.message("perl.run.pause.unavailable.content"),	×
125	NotificationType.INFORMATION
126	));
127	}
128	}	×
129
130	@Override
131	public void resume(@Nullable XSuspendContext context) {
132	myDebugThread.sendString("g");	1✔
133	}	1✔
134
135	@Override
136	public void stop() {
137	myDebugThread.setStop();	1✔
138
139	ApplicationManager.getApplication().runReadAction(	1✔
140	() -> {
141	XBreakpointManager breakpointManager = XDebuggerManager.getInstance(getSession().getProject()).getBreakpointManager();	1✔
142	Collection<? extends XLineBreakpoint<PerlLineBreakpointProperties>> breakpoints =	1✔
143	breakpointManager.getBreakpoints(PerlLineBreakpointType.class);	1✔
144	for (XLineBreakpoint<PerlLineBreakpointProperties> breakpoint : breakpoints) {	1✔
145	breakpointManager.updateBreakpointPresentation(breakpoint, null, null);	1✔
146	}	1✔
147	}	1✔
148	);
149	}	1✔
150
151	@Override
152	public void runToPosition(@NotNull XSourcePosition position, @Nullable XSuspendContext context) {
153	PerlLineBreakPointDescriptor descriptor = PerlLineBreakPointDescriptor.createFromSourcePosition(position, myDebugThread);	1✔
154	if (descriptor != null) {	1✔
155	myDebugThread.sendCommand("p", descriptor);	1✔
156	}
157	}	1✔
158
159	@Override
160	protected @Nullable ProcessHandler doGetProcessHandler() {
161	return myExecutionResult.getProcessHandler();	1✔
162	}
163
164	@Override
165	public @NotNull ExecutionConsole createConsole() {
166	return myExecutionResult.getExecutionConsole();	1✔
167	}
168
169	@Override
170	public @NotNull XDebugTabLayouter createTabLayouter() {
171	return new XDebugTabLayouter() {	1✔
172	@Override
173	public void registerAdditionalContent(@NotNull RunnerLayoutUi ui) {
174	Content content =	1✔
175	ui.createContent("PerlSourceList", myDebugThread.getScriptListPanel(), PerlDebuggerBundle.message("loaded.sources"),	1✔
176	PerlIcons.PERL_SCRIPT_FILE_ICON, null);
177	content.setCloseable(false);	1✔
178	ui.addContent(content);	1✔
179
180	content =	1✔
181	ui.createContent("PerlEvalsList", myDebugThread.getEvalsListPanel(), PerlDebuggerBundle.message("compiled.evals"),	1✔
182	PerlIcons.PERL_LANGUAGE_ICON, null);
183	content.setCloseable(false);	1✔
184	ui.addContent(content);	1✔
185	}	1✔
186	};
187	}
188	}

Camelcade / Perl5-IDEA / #525521581

Source File Press 'n' to go to next uncovered line, 'b' for previous

Source File
Press 'n' to go to next uncovered line, 'b' for previous