Skip to content
Draft
Changes from 1 commit
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
10 changes: 4 additions & 6 deletions idl/mdsconnect.pro
Original file line number Diff line number Diff line change
Expand Up @@ -111,6 +111,7 @@ pro Mds$SendArg,sock,n,idx,arg
return
end

; This procedure is likely obsolete
Copy link
Contributor Author

@mwinkel-dev mwinkel-dev Dec 16, 2025

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

This procedure is not used anywhere in the MDSplus source code. Plus it appears to be replaced by the mdsconnect procedure.

However, there is a chance that customers have old IDL programs that use this routine.

We should select one of these options:

  • delete the procedure, or
  • keep the procedure, or
  • add a print statement to it indicating that it is deprecated and the user should instead use mdsconnect

pro mds$connect,host,status=status,quiet=quiet,port=port
on_error,2
mds$disconnect,/quiet
Expand Down Expand Up @@ -141,14 +142,12 @@ pro mds$disconnect,status=status,quiet=quiet
return
end


; This procedure is likely obsolete
Copy link
Contributor Author

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Delete, keep or deprecate?

pro connect,host,_EXTRA=e
mds$connect,host,_EXTRA=e
return
end

;*/


pro mdsconnect,host,status=status,quiet=quiet,port=port,socket=socket
forward_function mds_keyword_set
Expand All @@ -163,9 +162,8 @@ pro mdsconnect,host,status=status,quiet=quiet,port=port,socket=socket
sockmin=sockmin()
if (sock ge sockmin) then begin
status = 1
if not mds_keyword_set(socket=socket) then $
!MDS_SOCKET = sock $
else $
!MDS_SOCKET = sock
if mds_keyword_set(socket=socket) then $
socket = sock
endif else begin
if not keyword_set(quiet) then message,'Error connecting to '+host,/IOERROR
Expand Down