@Vitaliy Serdtsev empty in both cases
- Log in to post comments
@Vitaliy Serdtsev empty in both cases
1972 is the default port, checked. InStudio2 does no work in our environment.
In my case ClientExecutableName is empty when run from Studio. I also run ZW myproc but did not see anyting definitive inside.
I am not sure what exactly does it represent but here is the full value when code is run from Studio 2017: $STACK(0,"PLACE")=zDebugStub+30^%Debugger.System.1 +N. When the same code is run from Terminal the value is $STACK(0,"PLACE")=@ +N1. N and N1 are integers, not sure if always the same.
Using your stack idea, code below seems to work both on Iris and Cache 2017:
When run from Studio $STACK(0,"PLACE")["DebugStub" is 1. The same is 0 in the terminal
Unfortunately, this code does not work in Cache 2017 either. The return values when run in Studio are 0. 1972 apparently does not work for the same obscure reasons Robert's suggestion did not work.
Unfortunately, that does not work. It does indeed contain 1972 when code is not running and does not contain it once it is running. Below is a copy-paste from the Output window.
w $I
|TCP|1972|50524
Debugger executing 'patchTM^FUNCT'
Executing patchTM^FUNCT
w $I
|TCP|59056
Debugger stopped.
Thanks, Julius!
Thanks, Robert!
From AI:
Yes, it is possible to call a dialog with a single input text field in the UserAction method in a class that extends %Studio.Extension.Base. Here’s how it works:
UserAction method, you can set the Action parameter to 7. This tells Studio to display a dialog box with a textbox and Yes/No/Cancel buttons.Target argument to provide the dialog text, and the Msg argument to set the initial text in the textbox.AfterUserAction method 1.For example:
Method UserAction(Type As %Integer, Name As %String, InternalName As %String, SelectedText As %String, ByRef Action As %String, ByRef Target As %String, ByRef Msg As %String, ByRef Reload As %Boolean) As %Status
{
If Name="SourceControl,DialogWithTextField" {
Set Action = 7
Set Target = "Enter your input:"
Set Msg = "Default Text"
}
Quit $$$OK
}
In the AfterUserAction method, you can handle the user’s response:
Method AfterUserAction(Type As %Integer, Name As %String, InternalName As %String, Answer As %Integer, Msg As %String, ByRef Reload As %Boolean) As %Status
{
If Answer = 1 {
Write !, "User entered:", Msg
}
Quit $$$OK
}
Ensure that this class is registered as the source control class for the namespace if required 1.
A workaround is fine. How do I install the unicode kit?
It is very verbose but yes, I got it working now too. Thanks, Robert! It is interesting that the resultant file lists only routine names but not the labels. Instead of a label name, it lists the label line number.
Thanks, Robert. It is available in 2017, but I was not able to set it up yet. Something is still wrong the way I run it, please see below. I start debugging, stop at a breakpoint and input the $J value.
%SYS>D DIR^TRACE()
%SYS>D ^TRACE
TRACE utility for Cache. You can signal a process to write a record of all
procedure, function, or subroutine calls to a file. Then use this utility to
interpret and display the trace. The trace file is named: CacheTrace_'pid'.txt
Use $$DIR^TRACE(dir) to set the directory where the file(s) should be written
(process must have create/write access to the directory). $$DIR^TRACE() returns
the current directory for trace files.
Use $$ON^TRACE(pid) to start the trace and $$OFF^TRACE(pid) to end the
recording. Then just run ^TRACE to see the results.
Process ID for trace file: 5352
Output to: <0> TestAG.txt
Processing file ...
-1,Unable to open file CacheTrace_5352.txt
%SYS>
Thanks, Stuart. Correct me if I am wrong but I would need to install such a function in multiple places and that's exactly what I am trying to avoid. I did use $STACK in less involved situations before and it is very useful in its own right.
Thanks, Timo. I used this profiling utility before and it's very good for its purposes but now I am interested in sequence of function calls and MONLBL does not provide that.
Robert, exactly
As far as I understand, this is to examine the stack in a predetermined piece of code. I have used it in this capacity as well, but now I'd like a recording without explicitly calling stack in each involved function.
Very good and customizable
TRY {
s ex= ##class(%Exception.General).%New("test",1,data1,data2)
throw ex}
CATCH ex {
d ex.Log()
}
Looks slightly unusual but fully functional. Thanks!
Thanks a lot everybody for your input. I need a bit more time to mark your replies as answers but I will do that.
Yes, I use that too occasionally. I think Portal functionality is faster though.
Very instructive, thanks!
Thanks a lot! I successfully tested both and one correction: the date is not in MUMPS format. It works with the 06/03/2025 format though.
Yes, it is available!
I did not try it myself, but I talked to other people and searched more, and it seems that using VS Code (as opposed to Iris/Cache Studio) combined with Copilot is currently the best available way of incorporating AI into ObjectScript/MUMPS coding: Coding InterSystems ObjectScript with AI Copilot. @Evgeny Shvarov, would you agree? Would you like to add anything on the discussion subject?
Yes, the problem is gone! Thanks a lot for your help.
I just messaged you two snippets. Thanks again.
I will have time to prepare such a snippet tomorrow, sorry. Meanwhile, it's not necessarily one line off but up to several lines off, a few routines only. In your code, is it possible to extract text of the line for which tokens are calculated? I looked around and did not see such a possibility.
I have an odd problem. In vast majority of cases globals are defined by your code correctly. However, for some routines the lineNum as returned by GetNext is one line count off and the global with the stated token attributes is actually on the next line. I tried to slightly modify such routines and recompile, but it did not always help. Any advice?
Excellent, just excellent. It did find correctly all globals in a routine (no indirection). I populated in = ##class(%Stream.TmpCharacter).%New() with this code:
S NumLines=^ROUTINE(routineName,0,0) ; Omit extension
F n=0:1:NumLines {
S line=$T(@routineName+n^@routineName)
D in.Write(line),in.Write($c(13,10))
}
D in.Rewind()
I also added this after your Write:
Set line=$G(^ROUTINE(rtnName,0,lineNum+1))
Write $C(9),$E(line,token.p+1,token.p+token.c),!
I did not try finding globals in classes, but I assume this would be very similar. Is there any online documentation that shows that token value for globals is 18? Would be curious about other token values.