1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

-module(demo1).
-export([run/0]).
-import(demo_util, [readlines/1]).

-define(pr(X), ustring:pr(X)).

run() ->
    application:start(starling_app),

    lists:foreach(fun(X) ->
                          Ustr = ustring:new(X),
                          Upper = ustring:to_upper(Ustr),
                          Lower = ustring:to_lower(Ustr),
                          io:format("~s~n", [?pr(Upper)]),
                          io:format("~s~n", [?pr(Lower)])
                  end,
                  readlines("demo1.txt")),

    application:stop(starling_app).