Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Компьютеры » Программы » SciTE - Open Source Text Editor for Windows & Linux

Модерирует : gyra, Maz

Widok (23-11-2010 11:23): Лимит страниц. Продолжаем здесь  Версия для печати • ПодписатьсяДобавить в закладки
На первую страницук этому сообщениюк последнему сообщению

   

frs

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Код:
--[[--------------------------------------------------
SideBar.lua
Authors: Frank Wunderlich, mozers™, VladVRO, frs, BioInfo
version 0.95
------------------------------------------------------
Needed gui.dll by Steve Donovan
Connection:
In file SciTEStartup.lua add a line:
dofile (props["SciteDefaultHome"].."\\tools\\SideBar.lua")
Set in a file .properties:
command.checked.17.*=$(sidebar.show)
command.name.17.*=SideBar
command.17.*=show_hide
command.mode.17.*=subsystem:lua,savebefore:no
 
# Set show(1) or hide(0) to SciTE start
sidebar.show=1
--]]--------------------------------------------------
 
local current_path = props['FileDir']
local file_path = props['FilePath']
local file_mask = '*.*'
local panel_width = 200
local tab_index = 0
local line_count = 0
local list_fav_table = {}
local file_ext = '*.*'
local fav_select_index = 0
-- you can choose to make it a stand-alone window; just uncomment this line:
-- local win = true
 
local func_name
 
re=require("rex_pcre")
 
local win_height = props['position.height']
if win_height == '' then win_height = 600 end
 
----------------------------------------------------------
-- Create panels
----------------------------------------------------------
local tab0 = gui.panel(panel_width + 18)
 
local text_path = gui.memo()
tab0:add(text_path, "top", 22)
 
local list_dir = gui.list()
local list_dir_height = win_height/2 - 80
tab0:add(list_dir, "top", list_dir_height)
 
local list_favorites = gui.list(true)
list_favorites:add_column("Favorites", 600)
tab0:client(list_favorites)
-------------------------
local tab1 = gui.panel(panel_width + 18)
 
local list_func = gui.list(true)
list_func:add_column("Functions/Procedures", 600)
local list_func_height = win_height/2 - 80
tab1:add(list_func, "top", list_func_height)
 
local list_bookmarks = gui.list(true)
list_bookmarks:add_column("@", 24)
list_bookmarks:add_column("Bookmarks", 600)
tab1:client(list_bookmarks)
-------------------------
local tab2 = gui.panel(panel_width + 18)
 
local list_abbrev = gui.list(true)
list_abbrev:add_column("Abbrev", 60)
list_abbrev:add_column("Expansion", 600)
tab2:client(list_abbrev)
-------------------------
local win_parent
if win then
   
win_parent = gui.window "Side Bar"
else
   
win_parent = gui.panel(panel_width)
end
 
local
tabs = gui.tabbar(win_parent)
tabs:add_tab("FileMan", tab0)
tabs:add_tab("Func/Bmk", tab1)
tabs:add_tab("Abbrev", tab2)
win_parent:client(tab2)
win_parent:client(tab1)
win_parent:client(tab0)
 
if tonumber(props['sidebar.show']) == 1 then
    if
win then
       
win_parent:size(panel_width + 24, 600)
       
win_parent:show()
   
else
       
gui.set_panel(win_parent,"right")
   
end
end
 
tabs:on_select(function(ind)
       
tab_index=ind
        on_switch()
end)
 
-- Скрытие / показ панели
function show_hide()
   
if tonumber(props['sidebar.show']) == 1 then
        if
win then
           
win_parent:hide()
       
else
           
gui.set_panel()
       
end
       
props['sidebar.show'] = 0
   
else
        if
win then
           
win_parent:show()
       
else
           
gui.set_panel(win_parent,"right")
       
end
       
props['sidebar.show'] = 1
   
end
end
 
----------------------------------------------------------
-- Tab0: FileManager
----------------------------------------------------------
function all_files()
   
file_mask = '*.*'
   
fill_list_dir()
end
 
function
only_current_ext()
   
file_mask = file_ext
    fill_list_dir()
end
 
function
f_nil() end -- заглушка для разделителя списка в контекстном меню
 
function file_copy()
   
if string.len(dir_or_file) < 2 then return end
    local
path_destantion = gui.open_dir_dlg -- Note: There is no. This - the wish.
    -- Будет реализовано, когда появится функция выбора каталога
end
 
function
file_move()
   
if string.len(dir_or_file) < 2 then return end
    local
path_destantion = gui.open_dir_dlg -- Note: There is no. This - the wish.
    -- Будет реализовано, когда появится функция выбора каталога
end
 
function
file_ren()
   
-- "Порнографический" диалог будет появлятся до той поры, пока не будет реализовано
    -- Issue 103: shell.inputbox http://code.google.com/p/scite-ru/issues/detail?id=103
   
if string.len(dir_or_file) < 2 then return end
    local
filename_new = gui.prompt_value("Enter new filename:", dir_or_file)
   
if filename_new.len ~= 0 and filename_new ~= dir_or_file then
os.rename(current_path..'\\'..dir_or_file, current_path..'\\'..filename_new)
       
fill_list_dir()
   
end
end
 
function
file_del()
   
if string.len(dir_or_file) < 2 then return end
    if
shell.msgbox("Are you sure DELETE file?\n"..dir_or_file, "DELETE", 4+256) == 6 then
       
-- if gui.message("Are you sure DELETE file?\n"..dir_or_file, "query") then
os.remove(current_path..'\\'..dir_or_file)
       
fill_list_dir()
   
end
end
 
function
file_exec()
   
local filename = current_path..'\\'..dir_or_file
    local ret, descr = shell.exec(filename)
   
if not ret then
       
print (">Exec: "..filename)
       
print ("Error: "..descr)
   
end
end
 
function
add_fav()
   
if attr ~= 'd' then
       
list_favorites:add_item(dir_or_file, current_path..'\\'..dir_or_file)
       
table.insert(list_fav_table, current_path..'\\'..dir_or_file)
   
end
end
 
function
add_fav_buffer()
   
list_favorites:add_item(props['FileNameExt'], props['FilePath'])
   
table.insert(list_fav_table, props['FilePath'])
end
 
function
del_fav()
   
list_favorites:delete_item(fav_select_index)
   
table.remove (list_fav_table, fav_select_index+1)
end
 
tab0:context_menu {
   
'Files: Show All|all_files',
   
'Files: Only current ext|only_current_ext',
   
'', -- разделитель
   
'Files: Copy to...|file_copy',
   
'Files: Move to...|file_move',
   
'Files: Rename|file_ren',
   
'Files: Delete|file_del',
   
'Files: Execute|file_exec',
   
'Files: Add to Favorites|add_fav',
   
'', -- разделитель
   
'Favorites: Add active buffer|add_fav_buffer',
   
'Favorites: Delete item|del_fav',
}
tab1:context_menu {
   
'Functions: Execute|func_exec',
   
'',
   
'пока несуществующие функции',
   
'Functions: Sort by name|sort_by_name',
   
'Functions: Sort by code order|sort_by_app',
}
tab2:context_menu {
   
abbr
}
----------------------------------------------------------
-- Memo: Path and Mask
----------------------------------------------------------
local function show_path()
   
local rtf = '{\\rtf{\\fonttbl{\\f0\\fcharset1 Helv;}}{\\colortbl ;\\red0\\green0\\blue255;  \\red255\\green0\\blue0;}\\f0\\fs16'
   
local path = '\\cf1'..string.gsub(current_path, '\\', '\\\\')..'\\\\'
   
local mask = '\\cf2'..file_mask..'}'
   
text_path:set_text(rtf..path..mask)
end
 
----------------------------------------------------------
-- List: Folders and Files
----------------------------------------------------------
local function open_file(filename)
   
if filename:match(".session$") ~= nil then
       
filename = filename:gsub('\\','\\\\')
       
scite.Perform ("loadsession:"..filename)
   
else
       
scite.Open(filename)
   
end
   
editor.Focus = true
end
 
function
fill_list_dir()
   
list_dir:clear()
   
local folders = gui.files(current_path..'\\*', true)
   
list_dir:add_item ('[..]', {'..','d'})
   
for i, d in ipairs(folders) do
       
list_dir:add_item('['..d..']', {d,'d'})
   
end
    local
files = gui.files(current_path..'\\'..file_mask)
   
if files then
        for
i, filename in ipairs(files) do
           
list_dir:add_item(filename, {filename})
       
end
    end
   
list_dir:set_selected_item(0)
   
show_path()
end
 
local function
list_dir_openitem()
   
if attr == 'd' then
       
gui.chdir(dir_or_file)
       
if dir_or_file == '..' then
           
current_path = string.gsub(current_path,"(.*)\\.*$", "%1")
       
else
           
current_path = current_path..'\\'..dir_or_file
        end
       
fill_list_dir()
   
else
       
open_file(current_path..'\\'..dir_or_file)
   
end
end
 
local function
list_dir_select(idx)
   
if idx     ~= -1 then
        local
data = list_dir:get_item_data(idx)
       
dir_or_file = data[1]
       
attr = data[2]
       
file_ext = '*.'..dir_or_file:gsub('.+%.','')
   
end
end
 
list_dir:on_double_click(function(idx)
   
if idx     ~= -1 then
       
list_dir_openitem()
   
end
end
)
 
list_dir:on_key(function(key)
   
local idx = list_dir:get_selected_item()
   
if idx == -1 then return end
    if
key == 13 then -- Enter
       
list_dir_select(idx)
       
list_dir_openitem()
   
elseif key == 8 then -- BackSpace
       
list_dir:set_selected_item(0)
       
list_dir_select(0)
       
list_dir_openitem()
   
elseif key == 46 then -- Delele
       
list_dir_select(idx)
       
file_del()
   
end
end
)
         
list_dir:on_select(function(idx)
   
list_dir_select(idx)
end)
 
----------------------------------------------------------
-- List: Favorites
----------------------------------------------------------
local favorites_filename = props['SciteUserHome']..'\\favorites.lst'
 
list_favorites:on_select(function(idx)
   
if idx     ~= -1 then
       
fav_select_index = idx
    end
end
)
 
list_favorites:on_double_click(function(idx)
   
if idx     ~= -1 then
       
open_file(list_favorites:get_item_data(idx))
   
end
end
)
 
list_favorites:on_key(function(key)
       
local idx = list_favorites:get_selected_item()
       
if idx == -1 then return end
        if
key == 46 then -- Delele
           
fav_select_index = idx
            del_fav()
       
end
end
)
 
local function fill_list_favorites()
   
local favorites_file = io.open(favorites_filename)
   
if favorites_file then
        for
line in favorites_file:lines() do
            if
line.len ~= 0 then
                local
caption = line:gsub('.+\\','')
               
list_favorites:add_item(caption, line)
               
table.insert(list_fav_table, line)
           
end
        end
       
favorites_file:close()
   
end
end
 
fill_list_favorites()
 
local function save_list_favorites()
   
io.output(favorites_filename)
   
local list_string = table.concat(list_fav_table,'\n')
   
io.write(list_string)
   
io.close()
end
 
---------------------------------------------------------
-- List: Functions/Procedures
----------------------------------------------------------
list_func:on_double_click(function(idx)
       
local pos = list_func:get_item_data(idx)
       
if pos then
           
editor:GotoLine(pos)
           
editor.Focus = true
        end
end
)
 
local function list_func_select(idx)
   
if idx     ~= -1 then
       
func_name = list_func:get_item_text(idx)
   
end
end
 
list_func:on_select(function(idx)
       
list_func_select(idx)
end)
         
function func_exec()
   
dostring(func_name)
end
 
function
fill_list_func()
   
list_func:clear()
     
   
local findRegExp1 = {
   
cpp="(?im)[^.,<>=\\n]*?[ :]([^.,<>=\\n\\s]+\\([^.<>=)]*?\\))[\\s\\/}]*?{",
   
js="(?im)^[^,<>\\n]*?function[^(]*?\\(.*?\\))[^{]*?{",
   
vb="(?im)^\\s*(?:Private|Public|Friend)*\\s*(?:Function|Sub|Property)\\s+((?:Get|Let|Set)?\\s*([a-z]?[a-z0-9_.]*))\\s*?(?:\\([^)]\\))?",
   
vbscript="(?im)^\\s*(?:Private|Public|Friend)*\\s*(?:Function|Sub|Property)\\s+((?:Get|Let|Set)?\\s*([a-z]?[a-z0-9_.]*))\\s*?(?:\\([^)]\\))?",
   
css="([\\w.#-_]+)[\\s}]*?{}",
   
pascal="(?im)^\\s*(?:procedure|function)\\s+(.*?\\(.*?\\).*?);\\s*$",
   
python="(?im)^\\s*(?:def|cla)\\s*.*):",
   
asm = "(?im)^\\s*(?|(?:proc)\\s+(\\w+)|(\\w+)\\s+(?:proc|frame))"
   
}
     
   
local findPattern = findRegExp1 [editor.LexerLanguage]
   
if findPattern == nil then
       
findPattern = "(?im)^(?:local\\s+)?(?:sub|function|func)\\s+(\\w+)\\s*\\(.*?\\)"
   
end
    local
textAll = editor:GetText()
   
local startPos, endPos, findString
    startPos = 1
   
r=re.new(findPattern)
   
while true do
   
startPos, endPos, findStr=r:exec(textAll,startPos)
   
if startPos == nil then break end
       
findString=r:match(textAll,startPos)
       
findString = findString:gsub("^%s*", ""):gsub("[\r\n]*", ""):gsub("%s+", " ")
       
local line_number = editor:LineFromPosition(startPos+2)
       
list_func:add_item(findString, line_number)
       
startPos = endPos + 1
   
end
end
         
----------------------------------------------------------
-- List: Bookmarks
----------------------------------------------------------
function list_bookmark_add(line_number)
   
local line_text = editor:GetLine(line_number):gsub('%s+', ' '):gsub('^%s+', '')
   
list_bookmarks:add_item({props['BufferNumber'], line_text}, {file_path, line_number})
end
         
local function
list_bookmark_delete(line_number)
   
for i = 0, list_bookmarks:count() - 1 do
        local
bookmark = list_bookmarks:get_item_data(i)
       
if bookmark[1] == file_path and bookmark[2] == line_number then
           
list_bookmarks:delete_item(i)
           
break
        end
    end
end
 
local function
list_bookmark_delete_all()
   
for i = list_bookmarks:count()-1, 0, -1 do
        local
bookmark = list_bookmarks:get_item_data(i)
       
if bookmark[1] == file_path then
           
list_bookmarks:delete_item(i)
       
end
    end
end
 
list_bookmarks:on_double_click(function(idx)
       
if idx     ~= -1 then
            local
pos = list_bookmarks:get_item_data(idx)
           
if pos then
               
scite.Open(pos[1])
               
editor:GotoLine(pos[2])
               
editor.Focus = true
            end
        end
end
)
 
----------------------------------------------------------
-- List: Abbreviations
----------------------------------------------------------
function fill_list_abbrev()
   
function read_abbrev(file)
       
local abbrev_file = io.open(file)  
       
if abbrev_file then  
            for
line in abbrev_file:lines() do  
                if
string.len(line) ~= 0 then
                    local
_abr, _exp = string.match(line, '(.-)=(.+)')
                   
if _abr ~= nil then
                       
list_abbrev:add_item ({_abr, _exp},_exp)
                   
else
                        local
import_file = string.match(line, '^import%s+(.+)')
                       
if import_file ~= nil then
                           
read_abbrev(string.match(file, '.+\\')..import_file)
                       
end
                    end
                end
            end
           
abbrev_file:close()  
       
end
    end
     
   
list_abbrev:clear()
   
local abbrev_filename = props['AbbrevPath']
   
read_abbrev(abbrev_filename)
end
 
list_abbrev:on_double_click(function(idx)
   
if idx~=-1 then
        local
abbrev = list_abbrev:get_item_text(idx)
       
local ss,se = editor.SelectionStart,editor.SelectionEnd
       
local len = abbrev:len()
       
editor:BeginUndoAction()
       
editor:InsertText(ss, abbrev)
       
editor:SetSel(se+len, ss+len)
       
scite.MenuCommand(IDM_ABBREV)
       
editor:EndUndoAction()
       
editor.Focus = true
    end
end
)
         
list_abbrev:on_select(function(idx,abbr)
   
if idx~=-1 then
    local
abbrev = list_abbrev:get_item_text(idx)
   
local len = abbrev:len()
   
abbr=list_abbrev:get_item_data(idx)
   
abbr=string.gsub(abbr,'\\r\\n','\n')
   
abbr=string.gsub(abbr,'\\r','\r')
   
abbr=string.gsub(abbr,'\\n','\n')
   
abb=string.gsub(abbr,'\\t','\t')
   
pos=editor.CurrentPos
   
editor:CallTipShow(pos,abb)
   
end
end
)
----------------------------------------------------------
-- Events
----------------------------------------------------------
function on_switch()
   
if tab_index == 0 then
        local
path = props['FileDir']
       
file_path = props['FilePath']
       
if path == '' then return end
        if
path ~= current_path then
           
current_path = path
            fill_list_dir()
       
end
    elseif
tab_index == 1 then
       
fill_list_func()
   
elseif tab_index == 2 then
       
fill_list_abbrev()
   
end
end
 
-- Add user event handler OnSwitchFile
local old_OnSwitchFile = OnSwitchFile
function OnSwitchFile(file)
   
local result
    if old_OnSwitchFile then result = old_OnSwitchFile(file) end
   
on_switch()
   
return result
end
 
-- Add user event handler OnOpen
local old_OnOpen = OnOpen
function OnOpen(file)
   
local result
    if old_OnOpen then result = old_OnOpen(file) end
   
on_switch()
   
return result
end
 
-- Add user event handler OnUpdateUI (Call function fill_list_func)
local old_OnUpdateUI = OnUpdateUI
function OnUpdateUI()
   
local result
    if old_OnUpdateUI then result = old_OnUpdateUI() end
    if
tab_index == 1 then
        local
line_count_new = editor.LineCount
       
if line_count_new ~= line_count then
           
fill_list_func()
           
line_count = line_count_new
        end
    end
    return
result
end
 
-- Add user event handler OnSendEditor
local old_OnSendEditor = OnSendEditor
function OnSendEditor(id_msg, wp, lp)
   
local result
    if old_OnSendEditor then result = old_OnSendEditor(id_msg, wp, lp) end
    if
id_msg == SCI_MARKERADD then
        if
lp == 1 then list_bookmark_add(wp) end
    elseif
id_msg == SCI_MARKERDELETE then
        if
lp == 1 then list_bookmark_delete(wp) end
    elseif
id_msg == SCI_MARKERDELETEALL then
        if
wp == 1 then list_bookmark_delete_all() end
    end
    return
result
end
 
-- Add user event handler OnFinalise
local old_OnFinalise = OnFinalise
function OnFinalise()
   
local result
    if old_OnFinalise then result = old_OnFinalise() end
   
save_list_favorites()
   
return result
end

Всего записей: 35 | Зарегистр. 20-02-2003 | Отправлено: 21:37 10-10-2008
   

На первую страницук этому сообщениюк последнему сообщению

Компьютерный форум Ru.Board » Компьютеры » Программы » SciTE - Open Source Text Editor for Windows & Linux
Widok (23-11-2010 11:23): Лимит страниц. Продолжаем здесь


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.Board
© Ru.Board 2000-2020

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru

Рейтинг.ru