home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 1998 March
/
CHIPCD_3_98.iso
/
software
/
share
/
sharmies
/
unixdos
/
data.z
/
translit.m4
< prev
next >
Wrap
Text File
|
1997-11-18
|
962b
|
24 lines
#-------------- concatinate function
define(CAT,$1$2$3)
#-------------- convert to upper case function
define(UP,`translit($1,abcdefghijklmnopqrstuvwxyz,ABCDEFGHIJKLMNOPQRSTUVWXYZ)')
#-------------- convert to lower case function
define(LOW,`translit($1,ABCDEFGHIJKLMNOPQRSTUVWXYZ,abcdefghijklmnopqrstuvwxyz)')
#-------------- extract first letter function
define(FIRST,`substr($1,0,1)')
#-------------- extract rest after the first letter function
define(REST,`substr($1,1)')
#-------------- Generate name with first letter capital rest lower case
define(NAME,`CAT(UP(FIRST($1)),LOW(REST($1)))')
#-------------- check if input is a number function
define(ISNUM,`ifelse(substr(translit($1,-0123456789,~~~~~~~~~~~),0,1),~,1,0)')
define(ISNUMTXT,'$1' is a `ifelse(ISNUM($1),1,number,text)')
#-------------- applications
ISNUMTXT(18)
ISNUMTXT(text)
UP(YourNameHere)
LOW(YourNameHere)
FIRST(YourNameHere)
REST(YourNameHere)
NAME(YourNameHere)