-
Notifications
You must be signed in to change notification settings - Fork 1
/
capitalized.fs
32 lines (24 loc) · 840 Bytes
/
capitalized.fs
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
\ galope/capitalized.fs
\ This file is part of Galope
\ http:https://programandala.net/en.program.galope.html
\ Author: Marcos Cruz (programandala.net), 2017.
\ ==============================================================
require ./capitalize.fs \ `capitalize`
: capitalized ( ca1 len -- ca2 len )
save-mem 2dup capitalize ;
\ doc{
\
\ capitalized ( ca1 len -- ca2 len )
\
\ Copy the ASCII character string _ca1 len_ to the heap and return
\ it as _ca2 len_ with its first character converted to uppercase.
\
\ See: `capitalize`, `xcapitalized`, `xtitlecase`, `xtoupper`.
\
\ }doc
\ ==============================================================
\ Change log
\ 2017-11-07: Start. Move from _La pistola de agua_
\ (http:https://programandala.net/es.programa.la_pistola_de_agua.fs).
\
\ 2017-11-08: Improve documentation.