version 1.18, 2010/09/12 22:14:12
|
version 1.20, 2010/12/27 21:46:25
|
Line 178 s" bla 45296s fasel 117s blubber" str= [
|
Line 178 s" bla 45296s fasel 117s blubber" str= [
|
?depth |
?depth |
|
|
: hms>s,del() ( addr u -- addr' u' ) |
: hms>s,del() ( addr u -- addr' u' ) |
s// {{ ` ( .? .? .? ` ) >> <<" ()" |
s// {{ ` ( // ` ) >> <<" ()" |
|| \( \d \d \) ` : \( \d \d \) ` : \( \d \d \) |
|| \( \d \d \) ` : \( \d \d \) ` : \( \d \d \) |
>> \1 s>number drop 60 * |
>> \1 s>number drop 60 * |
\2 s>number drop + 60 * |
\2 s>number drop + 60 * |
\3 s>number drop + 0 <# 's' hold #s #> << |
\3 s>number drop + 0 <# 's' hold #s #> << |
}} LEAVE //s ; |
}} LEAVE //s ; |
|
|
\ doesn't work yet |
|
s" (bla) 12:34:56 (fasel) 00:01:57 (blubber)" 2dup type hms>s,del() ." -> " type cr |
s" (bla) 12:34:56 (fasel) 00:01:57 (blubber)" 2dup type hms>s,del() ." -> " type cr |
|
|
script? [IF] bye [THEN] |
script? [IF] bye [THEN] |