|
ru.linux
- RU.LINUX ---------------------------------------------------------------------
From : Pavel Pimenov 2:5020/400 16 Oct 2001 18:39:11
To : Max Ischenko
Subject : Re[2]: C++ Builder
--------------------------------------------------------------------------------
Hello Max,
Tuesday, October 16, 2001, 1:37:32 PM, you wrote:
MI> Pavel Pimenov wrote:
VL>>> Сволочные поделки кретинов из Borland даже для того, чтобы быстро
VL>>> гуйню рисовать - и то не годятся, ручками на Tcl/Tk гораздо быстрее
VL>>> и качественнее это же делается.
PP>> URL на Tcl/Tk аналог вот этих штук: DOA,FastReport,TeeChart?
MI> Tk canvas, modss
Сенксик, гляну.
PP>> Тикл тут хвалят...но имхо ихняя "демка" находится на уровне Win 2.0 (
PP>> Вот и возникли сомнения - "не то смотрел"?
MI> Лучше покажи аналог такого на Pascal'e :
MI> proc test {name constraint body} {
MI> uplevel "proc test-$name {} {$body}"
MI> }
Какой практический смысл в этом?
А Аналог врядли :+), я паскаль не знаю.
MI> ;-))
MI> Я уж не говорю о том, что какой-нибудь Persistance Layer можно уместить в
MI> несколько десятков строк.
Попутно вопрос про TCL:
В комплекте c WinCVS идут полезные макросы.
Как мне заставить вот этот (чаще всего используюсь) удалять файлики в
корзинку?
Я пару раз потерял файлики из-за него :(
C:\WinCvs\Macros\Cleanup.tcl CP-1251
Line 4/62 Col 1 115
#!CVSGUI1.0 --selection --name "Remove non-CVS files"
global numFound
set numFound 0
proc iterate {dirName} {
cvsentries $dirName browsit
set selList [browsit get]
set selSize [llength $selList]
set toRecurse {}
set printFlag 1
for {set j 0} {$j < $selSize} {incr j} {
set file [lindex $selList $j]
browsit info $file fileInfo2
if {[string compare $fileInfo2(kind) "file"] == 0 || [string
compare $fileInfo2(kind) "folder"] == 0} {
if {$fileInfo2(ignored) == 1 } {
file delete -force $file
global numFound
incr numFound
} elseif {$fileInfo2(unknown) == 1} {
if {$printFlag == 1} {
cvsout "In $dirName :\n"
set printFlag 0
}
cvserr " $fileInfo2(name)\n"
trash $file
global numFound
incr numFound
}
}
if {[string compare $fileInfo2(kind) "folder"] == 0 &&
$fileInfo2(missing) == 0 && $fileInfo2(unknown) == 0}
lappend toRecurse $file
}
}
set selRecurse [llength $toRecurse]
for {set j 0} {$j < $selRecurse} {incr j} {
set file [lindex $toRecurse $j]
iterate $file
}
}
set selList [cvsbrowser get]
set selSize [llength $selList]
cvsout "Removing non-CVS files...\n"
for {set i 0} {$i < $selSize} {incr i} {
set file [lindex $selList $i]
cvsbrowser info $file fileInfo
if {[string compare $fileInfo(kind) "folder"] == 0 && $fileInfo(missing)
== 0 && $fileInfo(unknown) == 0} {
iterate $file
}
}
?
--
~PPA(){} //
Отправлено через сервер Talk.Ru - http://www.talk.ru
--- ifmail v.2.15dev5
* Origin: LSTU (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
