Making an "caps" proc

metroid · Post by **metroid** » Thu Dec 30, 2004 3:05 am

I was wondering if anyone has a clue about making a small "caps" proc, This proc would simply convert lowercase text into big text and the other way around aswell.

[caps moo]
<bot> MOO
[caps MOO]
<bot> moo

Thanks if any of you could be bored enough to make it

KrzychuG · Post by **KrzychuG** » Thu Dec 30, 2004 6:06 am

Code: Select all

proc caps { text } {
  return [string toupper $text] ;# [caps moo] -> MOO
}

proc caps { text } {
  return [string tolower $text] ;# [caps MOO] -> moo
}

Now you have to figure out how to detect that string is lower or upper case.

^DooM^ · Post by **^DooM^** » Thu Dec 30, 2004 6:25 am

I think that is what Metroid was asking. How to detect the case not how to change the case

metroid · Post by **metroid** » Thu Dec 30, 2004 6:29 am

Actually, Both

It has to detect that it's uppercase and change it to lowercase and change it accordingly and the other way around aswell

^DooM^ · Post by **^DooM^** » Thu Dec 30, 2004 6:42 am

Code: Select all

if { ![string is upper $text } {
    return [string toupper $text]
} else { 
    return [string tolower $text]
}

not sure about this one heres what i would try.

KrzychuG · Post by **KrzychuG** » Thu Dec 30, 2004 7:14 am

Yeah, this will work :)

metroid · Post by **metroid** » Thu Dec 30, 2004 7:36 am

Well, it seems it doesn't work exactly right

Code: Select all

[12:35:23] <M> Q caps "moo dss sss"
[12:35:26] <Q13> [TCL_OK 0.029ms] MOO DSS SSS
[12:35:36] <M> Q caps "MOO DSS SSS"
[12:35:39] <Q13> [TCL_OK 0.027ms] MOO DSS SSS
[12:35:40] <M> Q caps "MOO Dss SSS"
[12:35:43] <Q13> [TCL_OK 0.028ms] MOO DSS SSS

Code: Select all

proc caps { arguments } {
if {![string is upper $arguments]} {
	return [string toupper $arguments]
   } else {
   	return [string tolower $arguments]
  	}
   }

^DooM^ · Post by **^DooM^** » Thu Dec 30, 2004 8:53 am

i think the only way to do this is split the $text up and change each characters case. loop through foreach $char maybe use a switch statement on it.

Post by **user** » Thu Dec 30, 2004 11:42 am

MeTroiD wrote:Well, it seems it doesn't work exactly right

Space is not considered an uppercase character by 'string is upper'. How about something like this?

Code: Select all

proc invertCase str {
	string map {a A A a b B B b c C C c d D D d e E E e f F F f g G G g h H H h i I I i j J J j k K K k l L L l m M M m n N N n o O O o p P P p q Q Q q r R R r s S S s t T T t u U U u v V V v w W W w x X X x y Y Y y z Z Z z} $str
}

metroid · Post by **metroid** » Thu Dec 30, 2004 1:14 pm

Thanks user, that did exactly what i needed