% The Module to convert multiline strings according to current programming language.

% Call format:
% %include common/strconv <variable name>

% save default values of these variables.

%setex __CR 	%CR%
%setex __NL 	%NL%
%setex __TAB 	%TAB%
%setex __QUO	%QUO%
%setex __APO	%APO%
%setex __BSL	%BSL%

% set new values for current generator.

%setex NL 	%gen:conv_nl%
%setex CR 	%gen:conv_cr%
%setex TAB 	%gen:conv_tab%
%setex QUO	%gen:conv_quo%
%setex APO	%gen:conv_apo%
%setex BSL	%gen:conv_bsl%

% convert the string in the variable which name is in arg1.

%exec "%%convert %arg1%"
%exec "%%expand %arg1% %arg1%"
%exec "%%setex %arg1% %%gen:conv_str%%%%%arg1%%%%%gen:conv_str%%"

% replace substrings.

%ifnot gen:conv_replace_0a == ""
%.	exec "%%replace gen:conv_replace_0a gen:conv_replace_0b %arg1%"
%end if

%ifnot gen:conv_replace_1a == ""
%.	exec "%%replace gen:conv_replace_1a gen:conv_replace_1b %arg1%"
%end if

%ifnot gen:conv_replace_2a == ""
%.	exec "%%replace gen:conv_replace_2a gen:conv_replace_2b %arg1%"
%end if

%ifnot gen:conv_replace_3a == ""
%.	exec "%%replace gen:conv_replace_3a gen:conv_replace_3b %arg1%"
%end if

%ifnot gen:conv_replace_4a == ""
%.	exec "%%replace gen:conv_replace_4a gen:conv_replace_4b %arg1%"
%end if

%ifnot gen:conv_replace_5a == ""
%.	exec "%%replace gen:conv_replace_5a gen:conv_replace_5b %arg1%"
%end if

%ifnot gen:conv_replace_6a == ""
%.	exec "%%replace gen:conv_replace_6a gen:conv_replace_6b %arg1%"
%end if

%ifnot gen:conv_replace_7a == ""
%.	exec "%%replace gen:conv_replace_7a gen:conv_replace_7b %arg1%"
%end if

%ifnot gen:conv_replace_8a == ""
%.	exec "%%replace gen:conv_replace_8a gen:conv_replace_8b %arg1%"
%end if

%ifnot gen:conv_replace_9a == ""
%.	exec "%%replace gen:conv_replace_9a gen:conv_replace_9b %arg1%"
%end if

% restore defaults.

%setex CR 	%__CR%
%setex NL 	%__NL%
%setex TAB 	%__TAB%
%setex QUO	%__QUO%
%setex APO	%__APO%
%setex BSL	%__BSL%

% end of script.
