interface(file_path)

if init_tfg=
   globset init_tfg=1
else
   set init_tfg=0
endif

set running_on=~cur_platform

if running_on=Windows
   set path_slash=\
   set spm_script=w4_rungen.bat
   set cmd_concat=&&
else
   set path_slash=/
   set spm_script=u4_rungen
   set cmd_concat=;
endif

set path_depth=~field_count(file_path,path_slash)
sub path_depth 1
 
set file_name=~field(file_path,path_depth,path_slash)
set dir_length=~length(file_path)
sub dir_length ~length(file_name)
sub dir_length 1
set file_dir=~substr(file_path,0,dir_length)
 
set dot_extensions=~field_count(file_name,.)
sub dot_extensions 1
 
if dot_extensions>0
   set file_extension=~field(file_name,dot_extensions,.)
else
   set file_extension=
endif

if init_tfg=1

   dash &
   globset poc_path=file_dir&path_slash
   dash

   hook NEW_INPUT=file_path

else

   hook NEW_INPUT=

   case file_extension

      when=ef
         dash !
         system cd poc_path cmd_concat poc_path!spm_script "file_path" "file_dir" "file_name"
         dash

      when=xml
         dash !
         system cd poc_path cmd_concat poc_path!spm_script "file_path" "file_dir" "~replace(file_name,.xml,)"
         dash

      otherwise
         msg [warning] unexpected file extension "file_extension"

   endcase

   exit 0

endif