sync/ports
1
0
Fork 0
mirror of https://git.freebsd.org/ports.git synced 2025-07-18 01:39:16 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions

Update MASTER_SITES (old one is unavailable); adjust checksum and patch

Browse source 
for the tarball re-rolled by the new maintainer.

Discussion is in progress with maintainer regarding the newer 1.1
version, which is currently missing man-pages.

Prompted by:	pointyhat	(kris)
This commit is contained in:
Mikhail Teterin 2005-02-14 18:15:23 +00:00
parent 7100dc35e1
commit 81c6aea2fd
Notes: svn2git 2021-03-31 03:12:20 +00:00 
svn path=/head/; revision=128820
3 changed files with 14 additions and 30 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
devel/tclgetopts/Makefile
View file

@ -7,10 +7,10 @@
PORTNAME= tclGetOpts PORTNAME= tclGetOpts
PORTVERSION= 1.0 PORTVERSION= 1.0
CATEGORIES= devel tcl80 tcl82 CATEGORIES= devel tcl80 tcl82 tcl83 tcl84
MASTER_SITES= ftp://ftp.neosoft.com/languages/tcl/alcatel/code/ \ MASTER_SITES= http://www.waxandwane.com/toolbox/tclGetOpts/
http://www.neosoft.com/tcl/ftparchive/alcatel/code/
DISTNAME= ${PORTNAME} DISTNAME= ${PORTNAME}
EXTRACT_SUFX= ${PORTVERSION}.tar.gz
MAINTAINER= mi@aldan.algebra.com MAINTAINER= mi@aldan.algebra.com
COMMENT= Pure TCL code for command line options parsing COMMENT= Pure TCL code for command line options parsing

4
devel/tclgetopts/distinfo
View file

@ -1,2 +1,2 @@
MD5 (tclGetOpts.tar.gz) = f0a701007a5374980c97a5306ce62141 MD5 (tclGetOpts1.0.tar.gz) = 4de7119ffbe9b97bc09800fc210c17e3
SIZE (tclGetOpts.tar.gz) = 8675 SIZE (tclGetOpts1.0.tar.gz) = 8901

34
devel/tclgetopts/files/patch-aa
View file

@ -1,4 +1,4 @@
--- foxTypedOpts.tcl.orig Sat Feb 19 19:46:50 1994 --- foxTypedOpts.tcl Sat Feb 19 19:46:50 1994
+++ foxTypedOpts.tcl Thu Mar 18 16:15:13 1999 +++ foxTypedOpts.tcl Thu Mar 18 16:15:13 1999
@@ -80,9 +80,8 @@ @@ -80,9 +80,8 @@
# typedopts several times with different <arg-list>s without losing the # typedopts several times with different <arg-list>s without losing the
@ -32,7 +32,7 @@
return 0 return 0
} }
} }
@@ -315,54 +312,52 @@ @@ -320,32 +317,28 @@
"floats" - "floats" -
"strings" { "strings" {
if { [ llength $optlist ] } then { if { [ llength $optlist ] } then {
@ -55,14 +55,13 @@
if { ! [ llength $optlist ] } then { if { ! [ llength $optlist ] } then {
- puts stderr "typedopts: No arguments given to type $type" - puts stderr "typedopts: No arguments given to type $type"
- return "" - return ""
- }
- if { ! [ string length [ set subtype [ parseOption $optlist ]]] } then {
- return ""
+ return -code error "typedopts: No arguments given to type $type" + return -code error "typedopts: No arguments given to type $type"
} }
+ if [catch {parseOption $optlist} subtype] { - if { ! [ string length [ set subtype [ parseOption $optlist ]]] } then {
- return ""
+ if {[catch {parseOption $optlist} subtype]} then {
+ return -code error $subtype + return -code error $subtype
+ } }
return [ concat [ string index $type 0 ] $subtype ] return [ concat [ string index $type 0 ] $subtype ]
} }
default { default {
@ -72,11 +71,7 @@
} }
} }
} }
+} @@ -354,6 +347,5 @@
+
+proc typedopts { args } {
set doinit 1
if { [ llength $args ] < 5 } then { if { [ llength $args ] < 5 } then {
- puts stderr "typedopts: bad number of arguments." - puts stderr "typedopts: bad number of arguments."
@ -84,25 +79,14 @@
+ return -code error "typedopts: bad number of arguments." + return -code error "typedopts: bad number of arguments."
} }
- set args [ extract $args arglist optlist optret argret restret ] @@ -367,6 +359,5 @@
+ set args [ foxOpts::extract $args arglist optlist optret argret restret ]
while { [ llength $args ] } {
- set opt [ shift args ]
- switch -exact [ findabbr { -noinitialize } $opt ] {
+ set opt [ foxOpts::shift args ]
+ switch -exact [ foxOpts::findabbr { -noinitialize } $opt ] {
-noinitialize {
set doinit 0
} }
default { default {
- puts stderr "typedopts: bad option \"$opt\": should be -noinitialize or --" - puts stderr "typedopts: bad option \"$opt\": should be -noinitialize or --"
- return -1 - return -1
+ return -code error \ + return -code error "typedopts: bad option \"$opt\": should be -noinitialize or --"
+ "typedopts: bad option \"$opt\": should be -noinitialize or --"
} }
} }
}
@@ -380,16 +375,15 @@ @@ -380,16 +375,15 @@
if { [ string length $type ] } then { if { [ string length $type ] } then {
foreach arg $word { foreach arg $word {