From c25b5a1576eca912671d5f2fe47043055fbca2b0 Mon Sep 17 00:00:00 2001
From: Jacques Germishuys <jacquesg@striata.com>
Date: Mon, 4 Nov 2019 17:33:07 +0000
Subject: remote plugins: add support for perl hosts

---
 runtime/autoload/provider/perl.vim | 73 ++++++++++++++++++++++++++++++++++++++
 1 file changed, 73 insertions(+)
 create mode 100644 runtime/autoload/provider/perl.vim

(limited to 'runtime/autoload/provider/perl.vim')

diff --git a/runtime/autoload/provider/perl.vim b/runtime/autoload/provider/perl.vim
new file mode 100644
index 0000000000..4546a85100
--- /dev/null
+++ b/runtime/autoload/provider/perl.vim
@@ -0,0 +1,73 @@
+if exists('s:loaded_perl_provider')
+  finish
+endif
+
+let s:loaded_perl_provider = 1
+
+function! provider#perl#Detect() abort
+  " use g:perl_host_prof if set or check if perl is on the path
+  let prog = get(g:, 'perl_host_prog', executable('perl') ? 'perl' : '')
+
+  " if perl is available, make sure the required module is available
+  if prog != ''
+    let job_id = jobstart(prog.' -MNeovim::Ext -e "exit 0"', {'stdout_buffered': v:true})
+    let result = jobwait([job_id])
+	if result[0] != 0
+      let prog = ''
+    endif
+  endif
+
+  return prog
+endfunction
+
+function! provider#perl#Prog() abort
+  return s:prog
+endfunction
+
+function! provider#perl#Require(host) abort
+  if s:err != ''
+    echoerr s:err
+    return
+  endif
+
+  let prog = provider#perl#Prog()
+  let args = [s:prog, '-e', 'use Neovim::Ext; start_host();']
+
+  " Collect registered perl plugins into args
+  let perl_plugins = remote#host#PluginsForHost(a:host.name)
+  for plugin in perl_plugins
+    call add(args, plugin.path)
+  endfor
+
+  return provider#Poll(args, a:host.orig_name, '$NVIM_PERL_LOG_FILE')
+endfunction
+
+function! provider#perl#Call(method, args) abort
+  if s:err != ''
+    echoerr s:err
+    return
+  endif
+
+  if !exists('s:host')
+    try
+      let s:host = remote#host#Require('perl')
+    catch
+      let s:err = v:exception
+      echohl WarningMsg
+      echomsg v:exception
+      echohl None
+      return
+    endtry
+  endif
+  return call('rpcrequest', insert(insert(a:args, 'perl_'.a:method), s:host))
+endfunction
+
+let s:err = ''
+let s:prog = provider#perl#Detect()
+let g:loaded_perl_provider = empty(s:prog) ? 1 : 2
+
+if g:loaded_perl_provider != 2
+  let s:err = 'Cannot find perl or the required perl module'
+endif
+
+call remote#host#RegisterPlugin('perl-provider', 'perl', [])
-- 
cgit 


From ef3e61013882ed92e0208b9d1ac3488494c7ac53 Mon Sep 17 00:00:00 2001
From: Jan Edmund Lazo <jan.lazo@mail.utoronto.ca>
Date: Wed, 15 Jan 2020 21:12:36 -0500
Subject: provider/perl: simplify detection

---
 runtime/autoload/provider/perl.vim | 16 ++++++----------
 1 file changed, 6 insertions(+), 10 deletions(-)

(limited to 'runtime/autoload/provider/perl.vim')

diff --git a/runtime/autoload/provider/perl.vim b/runtime/autoload/provider/perl.vim
index 4546a85100..36ca2bbf14 100644
--- a/runtime/autoload/provider/perl.vim
+++ b/runtime/autoload/provider/perl.vim
@@ -6,18 +6,14 @@ let s:loaded_perl_provider = 1
 
 function! provider#perl#Detect() abort
   " use g:perl_host_prof if set or check if perl is on the path
-  let prog = get(g:, 'perl_host_prog', executable('perl') ? 'perl' : '')
-
-  " if perl is available, make sure the required module is available
-  if prog != ''
-    let job_id = jobstart(prog.' -MNeovim::Ext -e "exit 0"', {'stdout_buffered': v:true})
-    let result = jobwait([job_id])
-	if result[0] != 0
-      let prog = ''
-    endif
+  let prog = exepath(get(g:, 'perl_host_prog', 'perl'))
+  if empty(prog)
+    return ''
   endif
 
-  return prog
+  " if perl is available, make sure the required module is available
+  call system([prog, '-W', '-MNeovim::Ext', '-e', ''])
+  return v:shell_error ? '' : prog
 endfunction
 
 function! provider#perl#Prog() abort
-- 
cgit