; docformat = 'rst'
;+
; Convert a variable to a long integer.
;
; :Returns:
; long value (-1L if the string could not be converted)
;
; :Params:
; x : in, required, type=string
; string to be converted to a long
;
; :Keywords:
; error : out, optional, type=boolean
; set to a named variable to get the error status of the conversion
;-
function mg_long, x, error=error
compile_opt strictarr
on_ioerror, bad_conversion
longint = long(x)
error = 0B
return, longint
bad_conversion:
error = 1B
return, -1L
end
; main-level example
help, mg_long('5.0', error=error), error
help, mg_long('not numeric', error=error), error
end