; docformat = 'rst'

;+
; Returns the platform extension used by the PLATFORM_EXTENSION keyword to
; MAKE_DLL.
;
; :Returns:
;    string
;-
function mg_platform_extension
  compile_opt strictarr

  help, /dlm, output=output
  
  bridge = stregex(output, '^\*\* IDL_IDLBRIDGE', /boolean)
  bridgeInd = where(bridge, count)
  if (count eq 0L) then return, ''
  
  pathLine = bridgeInd[0L] + 2L
  tokens = strsplit(output[pathLine], /extract)
  bindir = file_basename(file_dirname(tokens[1]))
  
  return, strmid(bindir, 4)
end


; main-level example program

print, mg_platform_extension(), format='(%"Platform extension: %s")'
end