Nelze vybrat více než 25 témat
Téma musí začínat písmenem nebo číslem, může obsahovat pomlčky („-“) a může být dlouhé až 35 znaků.
33 řádky
1.0 KiB
33 řádky
1.0 KiB
-module(utMakeExport).
|
|
|
|
-export([makeExport/1]).
|
|
|
|
makeExport(SrcFile) ->
|
|
case file:open(SrcFile, [read, binary]) of
|
|
{ok, IoDevice} ->
|
|
BinStr = doMathEveryLine(IoDevice, "", <<>>),
|
|
file:close(IoDevice),
|
|
file:write_file("export.config", BinStr);
|
|
_ ->
|
|
false
|
|
end.
|
|
|
|
doMathEveryLine(IoDevice, Comment, BinStr) ->
|
|
case file:read_line(IoDevice) of
|
|
{ok, Data} ->
|
|
case re:run(Data, "%%") of
|
|
{match, _} ->
|
|
doMathEveryLine(IoDevice, Data, BinStr);
|
|
_ ->
|
|
case re:run(Data, "-spec") of
|
|
{match, _} ->
|
|
{ok, DataFun} = file:read_line(IoDevice),
|
|
DataFunStr = binary:replace(DataFun, <<"->\n">>, <<"">>),
|
|
doMathEveryLine(IoDevice, "", <<BinStr/binary, DataFunStr/binary, "\t\t\t\t", Comment/binary>>);
|
|
_ ->
|
|
doMathEveryLine(IoDevice, Comment, BinStr)
|
|
end
|
|
end;
|
|
_ ->
|
|
BinStr
|
|
end.
|