Вверх ↑
Этот топик читают: Гость
Гость
Ответов: 17029
Рейтинг: 0
#16: 2009-07-26 15:49:29 правка | ЛС | профиль | цитата


Редактировалось 3 раз(а), последний 2025-01-21 05:33:02
карма: 0

0
Ответов: 373
Рейтинг: 108
#17: 2009-07-26 17:17:37 ЛС | профиль | цитата
Спасибо. Не без вашей помощи.
карма: 0

0
Ответов: 16884
Рейтинг: 1239
#18: 2009-07-26 17:26:17 ЛС | профиль | цитата
Vlad.-,
Delphi
(
/svn/elements/delphi
/svn/elements/delphi/code
/svn/elements/delphi/code/JpegObj
/svn/elements/delphi/code/SQLiteObj
/svn/elements/delphi/code/ZLibObj
/svn/elements/delphi/conf
/svn/elements/delphi/icon
/svn/elements/delphi/draw
/svn/elements/delphi/new
/svn/elements/delphi/tabs
)
и в меню (навскидку) раз 70-80

------------ Дoбавленo в 17.32:
Через месяц появится Пакет Python и все сразу дружно кинутся искать исходник HiSvn.sha и править меню. (добавлять /svn/elements/)
А автоматом никак нельзя считать имена только тех пакетов, что у меня на компе ?

карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 373
Рейтинг: 108
#19: 2009-07-26 18:42:57 ЛС | профиль | цитата
Tad писал(а):
А автоматом никак нельзя считать имена только тех пакетов, что у меня на компе ?

Думаю не получиться. Надо исключать левые папки, например Backup итд... при сканировании директорий.
-------------------------------------------------------------------
А где хранятся записи об установленных пакетах
карма: 0

0
Разработчик
Ответов: 26305
Рейтинг: 2146
#20: 2009-07-26 18:57:29 ЛС | профиль | цитата
Vlad.- писал(а):
А где хранятся записи об установленных пакетах

В inthiasm.db
карма: 22

0
Гость
Ответов: 17029
Рейтинг: 0
#21: 2009-07-26 22:30:28 правка | ЛС | профиль | цитата


Редактировалось 3 раз(а), последний 2025-01-21 05:33:09
карма: 0

0
Разработчик
Ответов: 26305
Рейтинг: 2146
#22: 2009-07-26 22:38:40 ЛС | профиль | цитата
bzq-79-181-241-67.red.bez писал(а):
Из-за имен установленых пакетов, я бы не тревожил inthiasm.db

Да можно и так.
карма: 22

0
Ответов: 16884
Рейтинг: 1239
#23: 2009-07-26 22:38:41 ЛС | профиль | цитата
Выше - это я.
------------ Дoбавленo в 22.38:
Выше - это я.
------------ Дoбавленo в 23.02:
Vlad.-, а вот так наверное, то что надо.

Add(MainForm,2953706,42,105)
{
Width=394
Height=96
Caption="Установленные пакеты"
link(onCreate,873741:doRead,[])
}
Add(ComboBox,5088065,357,126)
{
@Hint=#15:КАТАЛОГ ПАКЕТОВ|
Left=20
Top=20
Width=140
Height=21
Font=[Tahoma,9,1,255,204]
Text=""
ReadOnly=0
Point(EditText)
Point(doSelect)
link(onClick,11127513:doEvent2,[(671,139)(671,311)(296,311)(296,251)])
}
Add(Registry,873741,105,119)
{
HKey=1
Key="Softwarehiasm"
Value="InstallPath"
NotEmpty=1
link(onRead,3982943:doStrCat,[])
}
Add(FileSearch,3237945,196,119)
{
SubDir=1
Include=1
Point(ShortName)
link(onSearch,7885119:doPart,[])
link(onEndSearch,11746013:doEvent1,[(247,132)(247,174)])
}
Add(FilePart,7885119,259,119)
{
link(onName,5088065:doAdd,[])
}
Add(DoData,15292124,301,168)
{
Data=Integer(0)
link(onEventData,5088065:doSelect,[])
}
Add(Hub,11746013,266,168)
{
link(onEvent1,15292124:doData,[])
link(onEvent2,11127513:doEvent1,[(294,181)(294,244)])
}
Add(StrCat,3982943,154,119)
{
Str2="Elements"
link(onStrCat,3237945:doSearch,[])
}
Add(ComboBox,850411,630,252)
{
Left=180
Top=20
Width=185
Height=21
Point(doSelect)
}
Add(FormatStr,10140779,364,245)
{
Mask="%1%2"
link(onFString,13893166:doSearch,[])
link(Str1,3982943:Result,[(370,213)(160,213)])
link(Str2,5088065:EditText,[])
}
Add(FileSearch,13893166,413,245)
{
SubDir=1
Include=1
Point(ShortName)
link(onSearch,7936274:doPart,[])
link(onEndSearch,1962174:doData,[(454,258)(454,300)])
}
Add(FilePart,7936274,462,245)
{
link(onName,13956113:doCompare,[])
}
Add(DoData,1962174,511,294)
{
Data=Integer(0)
link(onEventData,850411:doSelect,[])
}
Add(Hub,11127513,308,238)
{
InCount=2
link(onEvent1,850411:doClear,[(615,244)(615,265)])
link(onEvent2,10140779:doString,[])
}
Add(StrMask,13956113,511,252)
{
Mask="prof"
link(onFalse,850411:doAdd,[])
}


карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 16884
Рейтинг: 1239
#24: 2009-07-27 11:13:47 ЛС | профиль | цитата
Vlad.-, или так
code_14279.txt
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
файлы: 1code_14279.txt [5.4KB] [166]
Ответов: 16884
Рейтинг: 1239
#25: 2009-07-27 19:15:13 ЛС | профиль | цитата
Vlad.-, подумал и наверное первую панель заменить на такую
code_14286.txt

карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
файлы: 1code_14286.txt [1.8KB] [176]
Ответов: 373
Рейтинг: 108
#26: 2009-07-27 20:40:15 ЛС | профиль | цитата
Tad, Со сканированием дир не прокатит(
левые папки
) и с "SoftwarehiasmInstallPath" у меня например там путь к другой версии HiAsm.
-----------------
Имхо, надо получить структуру катологов с svn, сравнить корень elements/ c elements/ в папке hiasm, при совпадении сгенерировать список дир с svn.
-
Пока бьюсь со структурой катологов с svn.
карма: 0

0
Ответов: 16884
Рейтинг: 1239
#27: 2009-07-28 01:06:56 ЛС | профиль | цитата
Vlad.- писал(а):
Пока бьюсь со структурой катологов с svn

Так, что ли ?
code_14290.txt
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
файлы: 1code_14290.txt [2.3KB] [160]
Ответов: 373
Рейтинг: 108
#28: 2009-07-28 01:19:04 ЛС | профиль | цитата
Tad, Да но хочу сделать полную структуру каталогов. Думал можно одним запросом ан нет, Depth: infinite запрещён
code_14291.txt
------------ Дoбавленo в 17.53:
Теперь по меню раскидать осталось.

Add(MainForm,2953706,215,196)
{
Width=555
Height=461
}
Add(Memo,14652622,852,413)
{
Left=30
Top=35
Width=490
Height=370
ScrollBars=3
}
Add(Button,16202879,215,245)
{
Left=155
Top=5
link(onClick,5904429:doPing,[])
}
Add(Ping,5904429,292,245)
{
Name="hiasm.googlecode.com"
ByteCount=32
Point(Time)
link(onFind,6807827:doValue,[])
}
Add(Memory,6807827,334,245)
{
link(onData,7878463:doData,[])
}
Add(DoData,7878463,383,245)
{
Data=String(/svn/elements/)
link(onEventData,12580260:doEvent1,[])
}
Add(MultiElementEx,9185302,523,245)
{
Mode=2
link(onReplace,7426629:doEvent1,[])
link(IP,6807827:Value,[(529,233)(435,233)(435,289)(340,289)])
}
BEGIN_SDK
Add(EditMultiEx,635851,21,21)
{
WorkCount=#5:##add|
EventCount=#9:onReplace|
DataCount=#2:IP|
Width=909
Height=466
Point(##add)
link(##add,4023422:doEvent1,[(165,27)(165,174)])
}
Add(StrList,9774651,420,196)
{
}
Add(Replace,368915,420,273)
{
SubStr=""
link(onReplace,12164765:doReplace,[])
link(Str,9774651:Text,[])
}
Add(Replace,12164765,462,273)
{
SubStr="
"
link(onReplace,2571660:doReplace,[])
}
Add(TCP_Client,3656076,308,196)
{
Port=80
link(onRead,9774651:doAdd,[])
link(onConnect,3656076:doSend,[(352,209)(352,213)(296,213)(296,216)])
link(IP,635851:IP,[(314,116)(27,116)])
link(Data,3722587:FString,[])
}
Add(Hub,4023422,203,168)
{
InCount=2
OutCount=7
link(onEvent2,3802456:In,[(224,181)(224,174)])
link(onEvent3,1361297:In,[])
link(onEvent4,15472194:doValue,[(266,195)(266,90)])
link(onEvent5,3722587:doString,[(266,202)(266,153)])
link(onEvent6,3656076:doOpen,[(263,209)(263,202)])
link(onEvent7,7142647:doTimer,[(235,216)(235,279)])
}
Add(If_else,1156423,308,273)
{
Op2=Integer(0)
link(onTrue,1082037:doEvent1,[])
link(Op1,3656076:Active,[])
}
Add(Timer,7142647,252,273)
{
Enable=1
link(onTimer,1156423:doCompare,[])
}
Add(Hub,1082037,350,273)
{
OutCount=4
link(onEvent1,368915:doReplace,[])
link(onEvent2,7142647:doStop,[(374,286)(374,314)(240,314)(240,286)])
link(onEvent3,2722967:doData,[(416,293)(416,370)])
link(onEvent4,12770509:doEnum,[(539,300)(539,363)])
}
Add(FormatStr,3722587,315,147)
{
DataCount=1
Mask="PROPFIND %1 HTTP/1.1
User-Agent: HiSvn/1.5.3
Host: hiasm.googlecode.com
Connection: TE, Close
TE: trailers
Content-Type: text/xml; charset="utf-8"
Depth: 1
DAV: 1,2
DAV: version-control,checkout,working-resource
DAV: merge,baseline,activity,version-controlled-collection
DAV: http://subversion.tigris.org/xmlns/dav/svn/depth
DAV: http://subversion.tigris.org/xmlns/dav/svn/log-revprops
DAV: http://subversion.tigris.org/xmlns/dav/svn/partial-replay
DAV: http://subversion.tigris.org/xmlns/dav/svn/mergeinfo
DAV: <http://apache.org/dav/propset/fs/1>
MS-Author-Via: DAV
Content-Length: 176

<?xml version="1.0" encoding="utf-8" ?><D:propfind xmlns:D="DAV:"><D:prop xmlns:lp1="DAV:" xmlns:lp3="http://subversion.tigris.org/xmlns/dav/"><lp1:href/></D:prop></D:propfind>

"
Point(FString)
link(Str1,1927745:Var2,[])
}
Add(Memory,15472194,315,84)
{
}
Add(Replace,2571660,504,273)
{
SubStr=" "
link(onReplace,3047361:doSearch,[])
}
Add(BlockFind,3047361,551,273)
{
IncludeBlock=1
StartBlock="<D:href>"
EndBlock="</D:href>"
link(onSearch,3959258:doCompare,[])
}
Add(StrMask,3959258,593,273)
{
Mask="*/"
link(onTrue,5738201:doAdd,[])
}
Add(StrList,5738201,700,280)
{
Point(doGetIndex)
Point(onGetIndex)
link(onGetIndex,5738201:doDelete,[(744,293)(744,297)(688,297)(688,300)])
}
Add(ArrayEnum,12770509,714,357)
{
link(onItem,635851:onReplace,[(838,363)(838,27)])
link(Array,5738201:Array,[])
}
Add(LineBreak,6072582,378,203)
{
link(Out,9774651:doClear,[])
Primary=[3802456,-147,-35]
}
Add(LineBreak,6848513,588,315)
{
link(Out,5738201:doClear,[(642,321)(642,293)])
Primary=[1361297,-357,-133]
}
Add(DoData,2722967,469,364)
{
link(onEventData,5738201:doGetIndex,[(601,370)(601,328)])
link(Data,1927745:Var3,[(475,128)])
}
Add(GetDataEx,1927745,308,119)
{
link(Data,15472194:Value,[])
}
END_SDK
Add(Hub,7426629,572,245)
{
OutCount=3
link(onEvent1,6768285:doAdd,[])
link(onEvent2,6035179:doWork3,[(599,258)(599,291)(492,291)])
}
Add(HubEx,6035179,488,238)
{
link(onEvent,9185302:##add,[])
}
Add(StrList,6768285,642,245)
{
Point(doSort)
link(onChange,2073086:doData,[])
}
Add(Timer,13787537,670,350)
{
Interval=1
Point(doInterval)
link(onTimer,2856114:doCompare,[])
}
Add(If_else,2856114,719,350)
{
link(onTrue,7687712:doEvent1,[])
link(Op1,15789862:Var2,[])
link(Op2,16739505:Value,[(732,314)(760,314)])
}
Add(Memory,16739505,754,245)
{
}
Add(DoData,2073086,712,245)
{
link(onEventData,16739505:doValue,[])
link(Data,15789862:Var3,[(718,233)(730,233)])
}
Add(GetDataEx,15789862,712,301)
{
Angle=3
link(Data,6768285:Count,[(655,310)])
}
Add(Hub,7687712,768,350)
{
OutCount=3
link(onEvent1,13787537:doStop,[(802,356)(802,387)(657,387)(657,363)])
link(onEvent2,6768285:doSort,[(794,363)(794,328)(630,328)(630,293)])
link(onEvent3,10328785:doEnum,[(809,370)(809,402)(644,402)(644,419)])
}
Add(Hub,12580260,460,245)
{
link(onEvent1,6035179:doWork2,[])
link(onEvent2,12533009:doData,[(478,258)(478,370)])
}
Add(DoData,12533009,530,364)
{
link(onEventData,14872104:doOperation,[])
link(Data,5904429:Time,[(536,320)(298,320)])
}
Add(Math,14872104,572,364)
{
OpType=2
Op2=50
link(onResult,2338654:doEvent1,[])
}
Add(Hub,2338654,614,364)
{
link(onEvent1,13787537:doInterval,[])
link(onEvent2,13787537:doTimer,[(639,377)(639,356)])
}
Add(ArrayEnum,10328785,656,413)
{
link(onItem,7097941:doReplace,[])
link(Array,6768285:Array,[])
}
Add(Replace,7097941,719,413)
{
SubStr="/svn/elements"
link(onReplace,14652622:doAdd,[])
}


карма: 0

0
Ответов: 373
Рейтинг: 108
#29: 2009-12-03 10:40:46 ЛС | профиль | цитата
обновил схему
теперь используется сжатие gzip
и компонент ZlibOLD
HiSvn сырой
карма: 0

0
Администрация
Ответов: 15295
Рейтинг: 1519
#30: 2009-12-03 10:57:11 ЛС | профиль | цитата
за использование таких программ надо бан выдавать
карма: 27
0
Сообщение
...
Прикрепленные файлы
(файлы не залиты)