Revision: 64318
http://sourceforge.net/p/brlcad/code/64318
Author: carlmoore
Date: 2015-02-27 22:01:50 +0000 (Fri, 27 Feb 2015)
Log Message:
-----------
This implements all of my changes to lc.tcl EXCEPT the comments; the comments
are what got a cautionary note sent to me
Modified Paths:
--------------
brlcad/trunk/src/tclscripts/mged/lc.tcl
Modified: brlcad/trunk/src/tclscripts/mged/lc.tcl
===================================================================
--- brlcad/trunk/src/tclscripts/mged/lc.tcl 2015-02-27 19:59:59 UTC (rev
64317)
+++ brlcad/trunk/src/tclscripts/mged/lc.tcl 2015-02-27 22:01:50 UTC (rev
64318)
@@ -60,7 +60,7 @@
set sort_column_flag_cnt 0
if { [llength $args] == 0 } {
- puts stdout "Usage: \[-d|-s|-r\] \[-z\] \[-0|-1|-2|-3|-4|-5\] \[-f
{FileName}\] {GroupName}"
+ puts stdout "Usage: \[-d|-s] [-r\] \[-z\] \[-0|-1|-2|-3|-4|-5\] \[-f
{FileName}\] {GroupName}"
return
}
@@ -120,14 +120,14 @@
set file_name $arg
continue
}
+ if { $arg <= -0 && $arg >= -5 } {
+ set sort_column [expr abs($arg)]
+ continue
+ }
if { $arg == "-f" } {
set file_name_flag_cnt 1
continue
}
- if { $arg == "-d" } {
- set find_duplicates_flag_cnt 1
- continue
- }
if { $arg == "-d" || $arg == "-s"} {
set find_duplicates_flag_cnt 1
@@ -144,10 +144,6 @@
set descending_sort_flag_cnt 1
continue
}
- if { $arg <= -0 && $arg >= -5 } {
- set sort_column [expr abs($arg)]
- continue
- }
set group_name_set 1
set group_name $arg
}
This was sent by the SourceForge.net collaborative development platform, the
world's largest Open Source development site.
------------------------------------------------------------------------------
Dive into the World of Parallel Programming The Go Parallel Website, sponsored
by Intel and developed in partnership with Slashdot Media, is your hub for all
things parallel software development, from weekly thought leadership blogs to
news, videos, case studies, tutorials and more. Take a look and join the
conversation now. http://goparallel.sourceforge.net/
_______________________________________________
BRL-CAD Source Commits mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/brlcad-commits
