comp.lang.idl-pvwave archive
Messages from Usenet group comp.lang.idl-pvwave, compiled by Paulo Penteado

Home » Public Forums » archive » Re: How to tell if I'm running IDL or PV-WAVE
Show: Today's Messages :: Show Polls :: Message Navigator
E-mail to friend 
Return to the default flat view Create a new topic Submit Reply
Re: How to tell if I'm running IDL or PV-WAVE [message #1773 is a reply to message #1772] Mon, 31 January 1994 08:11 Go to previous messageGo to previous message
knipp is currently offline  knipp
Messages: 68
Registered: January 1993
Member
In article 14539@bnlux1.bnl.gov, rivers@bnlux1.bnl.gov (mark rivers) writes:
> Is there a way to find out from within a procedure whether one is running
> PV-WAVE or IDL? I need to call LINKNLOAD if I am running PV-WAVE or
> CALL_EXTERNAL if I am running IDL. The !version system variable doesn't
> seem to have this information.
>
> --
> Mark Rivers (312) 702-2279 (office)
> CARS (312) 702-9951 (secretary)
> Univ. of Chicago (312) 702-5454 (FAX)
> 5640 S. Ellis Ave.


Hi

Here's a small function returning 1 if called in IDL or 0 if not.
The basic idea is that !version.release in WAVE is 4 characters long, in
IDL 5.

Karl

____________________________________________________________ __________________
__ ____ __
/ // _ \ / / Karlheinz Knipp phone: +49 511 - 762 4922
/ // /_/ // / University of Hannover fax: +49 511 - 762 2483
/ // ____// / Institute for Photogrammetry
/ // / / / Nienburger Str.1
/_//_/ /_/ FRG 30167 Hannover 1 email: knipp@ipi.uni-hannover.de


;+
function is_idl

; function: is this IDL (or wave)
; ------------------------------------------------------------ ------------------
; START OF DESCRIPTION
;
; function IPI, U Hannover 04'93, modified 04'93
; 06'93: string-length !version.release
;
; METHOD: is this IDL (or wave)
; assumption: strlen(!version.release) = 5 (IDL)
; strlen(!version.release) = 4 (WAVE)
;
;
;
; INPUT PARAMETER: none
;
; RETURNS: 1 in case of idl [-1 in case of ERROR]
;
; INPUT KEYWORDS : none
;
; OUTPUT KEYWORDS : none
;
; EXAMPLE:
;
; print, is_idl()
;
; END OF DESCRIPTION
; ------------------------------------------------------------ ------------------
;-

ret_val = -1 ; return - value


; ------------------------------------------------------------ ------------------
; test input, no test


; ------------------------------------------------------------ ------------------
; return & end

return, strlen ( !version.release ) ne 4
end
[Message index]
 
Read Message
Read Message
Read Message
Read Message
Read Message
Read Message
Previous Topic: mixing PS fonts in PV-WAVE\
Next Topic: multiple selections from a list

-=] Back to Top [=-
[ Syndicate this forum (XML) ] [ RSS ] [ PDF ]

Current Time: Fri Oct 10 07:22:48 PDT 2025

Total time taken to generate the page: 1.12326 seconds