文字列の比較(Cランタイムライブラリ使用) | Codetter（こーどったー）

; http://www9.plala.or.jp/sgwr-t/lib/strcmp.html
#uselib "msvcrt.dll"
;#uselib "ntdll.dll"
#cfunc strcmp "strcmp" str, str

d@dummy = "<","=",">"
#define ctype show_cmp(%1, %2) d@dummy.(strcmp(%1, %2) + 1)
#define ctype str_cmp(%1, %2)  %1+" "+show_cmp(%1, %2)+" "+%2

mes str_cmp("ABC", "ABC")
mes str_cmp("ABC", "ABD")
mes str_cmp("ABC", "B")
mes str_cmp("ABC", "AAAA")