Scite 詞語置換

wiki

-- doing word substitutions on the fly!

local txt_words = {
 teh='the', wd='would',cd='could'   
}

local pascal_words = {
 fun='function',lfun='local function',
 proc='procedure',virt='virtual',ctor='constructor',
 dtor='destructor',prog='program',
 int='integer',dbl='double',str='string'
}

local words

function switch_substitution_table()
  local ext = props['FileExt']
  if ext == 'pas' or ext == 'lua' then 
    words = pascal_words  
  elseif ext == 'txt' then
    words = txt_words
  else
    words = nil
  end
end

local function word_substitute(word)
  return words and words[word] or word
end

local word_start,in_word,current_word
local find = string.find

function OnChar(s)
 if not in_word then
    if find(s,'%w') then 
      -- we have hit a word!
      word_start = editor.CurrentPos
      in_word = true
      current_word = s
    end
 else -- we're in a word
   -- and it's another word character, so collect
   if find(s,'%w') then   
      current_word = current_word..s
   else
    -- leaving a word; see if we have a substitution
      local word_end = editor.CurrentPos
      local subst = word_substitute(current_word)
      if subst ~= current_word then
         editor:SetSel(word_start-1,word_end-1)
         -- this is somewhat ad-hoc logic, but
         -- SciTE is handling space differently.
         local was_whitespace = find(s,'%s')
         if was_whitespace then
            subst = subst..s
         end
	 editor:ReplaceSel(subst)
         word_end = editor.CurrentPos
         if not was_whitespace then
            editor:GotoPos(word_end + 1)
         end
      end
      in_word = false
   end   
  end 
  -- don't interfere with usual processing!
  return false
end  

function OnOpen(f)
  switch_substitution_table()
end

function OnSwitchFile(f)
  switch_substitution_table()
end

SteveDonovan