upper-case

text


Summary

Convert text into a version using only capitals or uppercase letters.

Arguments

text
The input string

Return value

Returns the resulting upper-case version

Examples

(upper-case "Testing THE Capitalization!")
"TESTING THE CAPITALIZATION!"

Bytecode

Probably only interesting to you if you want to understand more about the Nujel VM or care very much about performance.

(    0 ($get/val 'buffer/allocate))
(    2 ($get/val 'buffer/length))
(    4 ($get/val 'text))
(    6 ($apply 1))
(    8 ($apply 1))
(   10 ($det/val 'ret))
(   12 ($drop))
(   13 ($let))
(   14 ($push/int/byte 0))
(   16 ($det/val 'i))
(   18 ($drop))
(   19 ($push/nil))
(   20 ($jmp* 30))
(   23 ($drop))
(   24 ($get/val 'buffer/set!))
(   26 ($get/val 'ret))
(   28 ($get/val 'i))
(   30 ($get/val 'upper-case-char))
(   32 ($get/val 'buffer/ref))
(   34 ($get/val 'text))
(   36 ($get/val 'i))
(   38 ($apply 2))
(   40 ($apply 1))
(   42 ($apply 3))
(   44 ($drop))
(   45 ($get/val 'i))
(   47 ($inc/int))
(   48 ($set/val 'i))
(   50 ($get/val 'i))
(   52 ($get/val 'buffer/length))
(   54 ($get/val 'text))
(   56 ($apply 1))
(   58 ($<))
(   59 ($jt* -36))
(   62 ($drop))
(   63 ($get/val 'buffer->string))
(   65 ($get/val 'ret))
(   67 ($apply 1))
(   69 ($closure/pop))
(   70 ($ret))

Related