externalize program scripts

Author: skywind3000

autoload/asyncrun/program/echo.vim

@@ -0,0 +1,17 @@
+"======================================================================
+"
+" echo.vim - 
+"
+" Created by skywind on 2021/12/18
+" Last Modified: 2021/12/18 04:17:39
+"
+"======================================================================
+
+" echom "test load"
+
+
+function! asyncrun#program#echo#translate(opts)
+	return 'echo (' . a:opts.cmd . ')'
+endfunc
+
+

plugin/runner_load.vim renamed to plugin/script_load.vim

@@ -1,6 +1,6 @@
 "======================================================================
 "
-" runner_load.vim - 
+" script_load.vim - load scripts in autoload/asyncrun/{runner,program}
 "
 " Created by skywind on 2021/12/15
 " Last Modified: 2021/12/15 05:40:55
@@ -15,14 +15,15 @@
 "----------------------------------------------------------------------
 let g:asyncrun_event = get(g:, 'asyncrun_event', {})
 let g:asyncrun_runner = get(g:, 'asyncrun_runner', {})
+let g:asyncrun_program = get(g:, 'asyncrun_program', {})
 let s:script_time = {}
 
 
 "----------------------------------------------------------------------
 " find script 
 "----------------------------------------------------------------------
-function! s:find_script(name)
-	let test = 'autoload/asyncrun/runner/' . a:name . '.vim'
+function! s:find_script(where, name)
+	let test = 'autoload/asyncrun/' . a:where . '/' . a:name . '.vim'
 	let fn = findfile(test, &rtp)
 	if fn == ''
 		return ''
@@ -38,7 +39,7 @@ endfunc
 "----------------------------------------------------------------------
 function! s:load_runner(name)
 	let name = a:name
-	let load = s:find_script(name)
+	let load = s:find_script('runner', name)
 	let test = 'asyncrun#runner#' . name . '#run'
 	if filereadable(load) && load != ''
 		let mtime = getftime(load)
@@ -54,6 +55,27 @@ function! s:load_runner(name)
 endfunc
 
 
+"----------------------------------------------------------------------
+" load program
+"----------------------------------------------------------------------
+function! s:load_program(name)
+	let name = a:name
+	let load = s:find_script('program', name)
+	let test = 'asyncrun#program#' . name . '#translate'
+	if filereadable(load) && load != ''
+		let mtime = getftime(load)
+		let ltime = get(s:script_time, load, 0)
+		if mtime > ltime
+			exec 'source ' . fnameescape(load)
+			let s:script_time[load] = mtime
+		endif
+		if exists('*' . test)
+			let g:asyncrun_program[name] = test
+		endif
+	endif
+endfunc
+
+
 "----------------------------------------------------------------------
 " init runner
 "----------------------------------------------------------------------
@@ -63,3 +85,11 @@ endfunc
 
 
 
+"----------------------------------------------------------------------
+" init program
+"----------------------------------------------------------------------
+function! g:asyncrun_event.program(name)
+	call s:load_program(a:name)
+endfunc
+
+