/trunk/demo/demo1.erl
 
 
 

 
/trunk/demo/demo1.erl   r12
 
 

 

 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

 

 
 
 

 

 
 
 
 
 
 
 
1
 
 
 
-module(demo1).
 
 
 
 
 
 
 
 
 
 
 
 

 

 
 
 
 
 
 
 
2
 
 
 
-export([run/0]).
 
 
 
 
 
 
 
 
 
 
 
 

 

 
 
 
 
 
 
 
3
 
 
 
-import(demo_util, [readlines/1]).
 
 
 
 
 
 
 
 
 
 
 
 

 

 
 
 
 
 
 
 
4
 
 
 

 
 
 
 
 
 
 
 
 
 
 
 

 

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

 

 
 
 
 
 
 
 
6
 
 
 

 
 
 
 
 
 
 
 
 
 
 
 

 

 
 
 
 
 
 
 
7
 
 
 
run() ->
 
 
 
 
 
 
 
 
 
 
 
 

 

 
 
 
 
 
 
 
8
 
 
 
    application:start(starling_app),
 
 
 
 
 
 
 
 
 
 
 
 

 

 
 
 
 
 
 
 
9
 
 
 

 
 
 
 
 
 
 
 
 
 
 
 

 

 
 
 
 
 
 
 
10
 
 
 
    lists:foreach(fun(X) ->
 
 
 
 
 
 
 
 
 
 
 
 

 

 
 
 
 
 
 
 
11
 
 
 
                          Ustr = ustring:new(X),
 
 
 
 
 
 
 
 
 
 
 
 

 

 
 
 
 
 
 
 
12
 
 
 
                          Upper = ustring:to_upper(Ustr),
 
 
 
 
 
 
 
 
 
 
 
 

 

 
 
 
 
 
 
 
13
 
 
 
                          Lower = ustring:to_lower(Ustr),
 
 
 
 
 
 
 
 
 
 
 
 

 

 
 
 
 
 
 
 
14
 
 
 
                          io:format("~s~n", [?pr(Upper)]),
 
 
 
 
 
 
 
 
 
 
 
 

 

 
 
 
 
 
 
 
15
 
 
 
                          io:format("~s~n", [?pr(Lower)])
 
 
 
 
 
 
 
 
 
 
 
 

 

 
 
 
 
 
 
 
16
 
 
 
                  end,
 
 
 
 
 
 
 
 
 
 
 
 

 

 
 
 
 
 
 
 
17
 
 
 
                  readlines("demo1.txt")),
 
 
 
 
 
 
 
 
 
 
 
 

 

 
 
 
 
 
 
 
18
 
 
 

 
 
 
 
 
 
 
 
 
 
 
 

 

 
 
 
 
 
 
 
19
 
 
 
    application:stop(starling_app).