s2hms

s2hms

[Emanuel Berg]

I just wrote a small interface to units(1).
Does it look good to you?

Try for example

    $ s2hms 500
    8m 20s

Sounds about right...

s2hms () {
    local secs=$1

    local time_string
    time_string=$(units -t "$secs s" hms)

    local -a data
    data=("${(@s/;/)time_string}")
    local h=$data[1]
    local m=$data[2]
    local s=$data[3]

    local out
    [[ $h > 0 ]] && out ="${h}h "
    [[ $m > 0 ]] && out+="${m}m "
    [[ $s > 0 ]] && out+="${s}s"
    echo $out
}

-- 
underground experts united
http://user.it.uu.se/~embe8573

Re: s2hms

[Marc Chantreux]

hello,

you don't need the $data buffer as you can read directly in varibles.
my (untested) version should be more like

s2hms () {
	# clean error message when no argument passed
	local secs=${1?duration in seconds} it= out=
	local -a fields=( h m s )
	local -A duration

	# duration\[$^fields] is a short for
	# duration\[h] duration\[m] duration\[s]

	units -t $secs\s hms |
		IFS=\; read duration\[$^fields]


	# use mathematical context to do math
	# also: a value is 0 or >0 so just test if it's >0

	for it ($fields)
		(( duration[it] )) && out+="$duration[$it]$it"

	print $out
}

HTH
regards

-- 
Marc Chantreux (eiro on github and freenode)
http://eiro.github.com/
http://eiro.github.com/atom.xml
"Don't believe everything you read on the Internet"
    -- Abraham Lincoln

Re: s2hms

[Emanuel Berg]

Marc Chantreux wrote:

> you don't need the $data buffer as you can
> read directly in varibles. my (untested)
> version should be more like

local secs=${1?duration in seconds} it= out=

unknown file attribute

Also, what's with the strange chars: \240 two times?

> s2hms () {
> 	# clean error message when no argument passed
> 	local secs=${1?duration in seconds} it= out=
> 	local -a fields=( h m s )
> 	local -A duration
>
> 	# duration\[$^fields] is a short for
> 	# duration\[h]duration\[m] duration\[s]
>
> 	units -t $secs\s hms |
> 		IFS=\; read duration\[$^fields]
>
>
> 	# use mathematical context to do math
> 	# also: a value is 0 or >0 so just test if it's >0
>
> 	for it ($fields)
> 		(( duration[it])) && out+="$duration[$it]$it"
>
> 	print $out
> }

-- 
underground experts united
http://user.it.uu.se/~embe8573

Re: s2hms

[Marc Chantreux]

> local secs=${1?duration in seconds} it= out=
> 
> unknown file attribute
> Also, what's with the strange chars: \240 two times?

those are equal signs. (ascii 61) maybe that explains the
file attribute error ? 


-- 
Marc Chantreux (eiro on github and freenode)
http://eiro.github.com/
http://eiro.github.com/atom.xml
"Don't believe everything you read on the Internet"
    -- Abraham Lincoln

Re: s2hms

[Emanuel Berg]

Marc Chantreux wrote:

>> local secs=${1?duration in seconds} it= out=
>> 
>> unknown file attribute Also, what's with the
>> strange chars: \240 two times?
>
> those are equal signs. (ascii 61)

ASCII chars are printable. Besides, you use
equal sings for example in the first line with
no problem. Even I can use them: =

\240 (not the char, now I just type the digits)
is:

             position: 2683 of 3139 (85%), column: 17
            character:  (displayed as ) (codepoint 160, #o240, #xa0)
    preferred charset: eight-bit (Raw bytes 128-255)
code point in charset: 0xA0
               script: latin
               syntax: . 	which means: punctuation
          buffer code: #xA0
            file code: #xA0
              display: terminal code #xC2 #xA0

> maybe that explains the file attribute error?

Correct!

-- 
underground experts united
http://user.it.uu.se/~embe8573