|
50 | 50 | %%%_* Logging ========================================================== |
51 | 51 | -ifdef(S2_USE_OTP_LOGGER). |
52 | 52 |
|
53 | | --define(debug(StringOrReport), ?LOG_DEBUG(StringOrReport)). |
54 | | --define(debug(StringOrReport, ArgsOrMeta), ?LOG_DEBUG(StringOrReport, ArgsOrMeta)). |
55 | | --define(debug(FunOrFormat, Args, Meta), ?LOG_DEBUG(FunOrFormat, Args, Meta)). |
56 | | --define(info(StringOrReport), ?LOG_INFO(StringOrReport)). |
57 | | --define(info(StringOrReport, ArgsOrMeta), ?LOG_INFO(StringOrReport, ArgsOrMeta)). |
58 | | --define(info(FunOrFormat, Args, Meta), ?LOG_INFO(FunOrFormat, Args, Meta)). |
59 | | --define(notice(StringOrReport), ?LOG_NOTICE(StringOrReport)). |
60 | | --define(notice(StringOrReport, ArgsOrMeta), ?LOG_NOTICE(StringOrReport, ArgsOrMeta)). |
61 | | --define(notice(FunOrFormat, Args, Meta), ?LOG_NOTICE(FunOrFormat, Args, Meta)). |
62 | | --define(warning(StringOrReport), ?LOG_WARNING(StringOrReport)). |
63 | | --define(warning(StringOrReport, ArgsOrMeta), ?LOG_WARNING(StringOrReport, ArgsOrMeta)). |
64 | | --define(warning(FunOrFormat, Args, Meta), ?LOG_WARNING(FunOrFormat, Args, Meta)). |
65 | | --define(error(StringOrReport), ?LOG_ERROR(StringOrReport)). |
66 | | --define(error(StringOrReport, ArgsOrMeta), ?LOG_ERROR(StringOrReport, ArgsOrMeta)). |
67 | | --define(error(FunOrFormat, Args, Meta), ?LOG_ERROR(FunOrFormat, Args, Meta)). |
68 | | --define(critical(StringOrReport), ?LOG_CRITICAL(StringOrReport)). |
69 | | --define(critical(StringOrReport, ArgsOrMeta), ?LOG_CRITICAL(StringOrReport, ArgsOrMeta)). |
70 | | --define(critical(FunOrFormat, Args, Meta), ?LOG_CRITICAL(FunOrFormat, Args, Meta)). |
71 | | --define(alert(StringOrReport), ?LOG_ALERT(StringOrReport)). |
72 | | --define(alert(StringOrReport, ArgsOrMeta), ?LOG_ALERT(StringOrReport, ArgsOrMeta)). |
73 | | --define(alert(FunOrFormat, Args, Meta), ?LOG_ALERT(FunOrFormat, Args, Meta)). |
74 | | --define(emergency(StringOrReport), ?LOG_EMERGENCY(StringOrReport)). |
75 | | --define(emergency(StringOrReport, ArgsOrMeta), ?LOG_EMERGENCY(StringOrReport, ArgsOrMeta)). |
76 | | --define(emergency(FunOrFormat, Args, Meta), ?LOG_EMERGENCY(FunOrFormat, Args, Meta)). |
77 | | - |
78 | | --elif(S2_USE_LAGER). |
79 | | - |
80 | | --compile([{parse_transform, lager_transform}]). |
81 | | - |
82 | | --define(debug(Format), lager:debug(Format, [])). |
83 | | --define(debug(Format, Args), lager:debug(Format, Args)). |
84 | | --define(info(Format), lager:info(Format, [])). |
85 | | --define(info(Format, Args), lager:info(Format, Args)). |
86 | | --define(notice(Format), lager:notice(Format, [])). |
87 | | --define(notice(Format, Args), lager:notice(Format, Args)). |
88 | | - |
89 | | --ifdef(S2_USE_LAGER_BUT_NOT_FOR_ERRORS). |
90 | | - |
91 | | --define(warning(Format), error_logger:warning_msg(Format, [])). |
92 | | --define(warning(Format, Args), error_logger:warning_msg(Format, Args)). |
93 | | --define(error(Format), error_logger:error_msg(Format)). |
94 | | --define(error(Format, Args), error_logger:error_msg(Format, Args)). |
95 | | --define(critical(Format), error_logger:error_msg(Format)). |
96 | | --define(critical(Format, Args), error_logger:error_msg(Format, Args)). |
97 | | --define(alert(Format), error_logger:error_msg(Format)). |
98 | | --define(alert(Format, Args), error_logger:error_msg(Format, Args)). |
99 | | --define(emergency(Format), error_logger:error_msg(Format)). |
100 | | --define(emergency(Format, Args), error_logger:error_msg(Format, Args)). |
101 | | - |
102 | | --else. %default |
103 | | - |
104 | | --define(warning(Format), lager:warning(Format, [])). |
105 | | --define(warning(Format, Args), lager:warning(Format, Args)). |
106 | | --define(error(Format), lager:error(Format, [])). |
107 | | --define(error(Format, Args), lager:error(Format, Args)). |
108 | | --define(critical(Format), lager:critical(Format, [])). |
109 | | --define(critical(Format, Args), lager:critical(Format, Args)). |
110 | | --define(alert(Format), lager:alert(Format, [])). |
111 | | --define(alert(Format, Args), lager:alert(Format, Args)). |
112 | | --define(emergency(Format), lager:emergency(Format, [])). |
113 | | --define(emergency(Format, Args), lager:emergency(Format, Args)). |
114 | | - |
115 | | --endif. %S2_USE_LAGER_BUT_NOT_FOR_ERRORS |
| 53 | + -define(debug(StringOrReport), ?LOG_DEBUG(StringOrReport)). |
| 54 | + -define(debug(StringOrReport, ArgsOrMeta), ?LOG_DEBUG(StringOrReport, ArgsOrMeta)). |
| 55 | + -define(debug(FunOrFormat, Args, Meta), ?LOG_DEBUG(FunOrFormat, Args, Meta)). |
| 56 | + -define(info(StringOrReport), ?LOG_INFO(StringOrReport)). |
| 57 | + -define(info(StringOrReport, ArgsOrMeta), ?LOG_INFO(StringOrReport, ArgsOrMeta)). |
| 58 | + -define(info(FunOrFormat, Args, Meta), ?LOG_INFO(FunOrFormat, Args, Meta)). |
| 59 | + -define(notice(StringOrReport), ?LOG_NOTICE(StringOrReport)). |
| 60 | + -define(notice(StringOrReport, ArgsOrMeta), ?LOG_NOTICE(StringOrReport, ArgsOrMeta)). |
| 61 | + -define(notice(FunOrFormat, Args, Meta), ?LOG_NOTICE(FunOrFormat, Args, Meta)). |
| 62 | + -define(warning(StringOrReport), ?LOG_WARNING(StringOrReport)). |
| 63 | + -define(warning(StringOrReport, ArgsOrMeta), ?LOG_WARNING(StringOrReport, ArgsOrMeta)). |
| 64 | + -define(warning(FunOrFormat, Args, Meta), ?LOG_WARNING(FunOrFormat, Args, Meta)). |
| 65 | + -define(error(StringOrReport), ?LOG_ERROR(StringOrReport)). |
| 66 | + -define(error(StringOrReport, ArgsOrMeta), ?LOG_ERROR(StringOrReport, ArgsOrMeta)). |
| 67 | + -define(error(FunOrFormat, Args, Meta), ?LOG_ERROR(FunOrFormat, Args, Meta)). |
| 68 | + -define(critical(StringOrReport), ?LOG_CRITICAL(StringOrReport)). |
| 69 | + -define(critical(StringOrReport, ArgsOrMeta), ?LOG_CRITICAL(StringOrReport, ArgsOrMeta)). |
| 70 | + -define(critical(FunOrFormat, Args, Meta), ?LOG_CRITICAL(FunOrFormat, Args, Meta)). |
| 71 | + -define(alert(StringOrReport), ?LOG_ALERT(StringOrReport)). |
| 72 | + -define(alert(StringOrReport, ArgsOrMeta), ?LOG_ALERT(StringOrReport, ArgsOrMeta)). |
| 73 | + -define(alert(FunOrFormat, Args, Meta), ?LOG_ALERT(FunOrFormat, Args, Meta)). |
| 74 | + -define(emergency(StringOrReport), ?LOG_EMERGENCY(StringOrReport)). |
| 75 | + -define(emergency(StringOrReport, ArgsOrMeta), ?LOG_EMERGENCY(StringOrReport, ArgsOrMeta)). |
| 76 | + -define(emergency(FunOrFormat, Args, Meta), ?LOG_EMERGENCY(FunOrFormat, Args, Meta)). |
116 | 77 |
|
117 | 78 | -else. |
118 | | - |
119 | | --ifdef(S2_DEBUG). |
120 | | --define(debug(Msg), ?debug(Msg, [])). |
121 | | --define(debug(Fmt, As), ?do_debug("~p:~s:~p: Debug: " Fmt "~n", |
122 | | - [self(), ?FILE, ?LINE|As])). |
123 | | --else. |
124 | | --define(debug(Msg), ok). |
125 | | --define(debug(Fmt, As), ok). |
126 | | --endif. %S2_DEBUG |
127 | | - |
128 | | --define(info(Msg), ?info(Msg, [])). |
129 | | --define(info(Fmt, As), ?do_info("~p:~s:~p: Info: " Fmt "~n", |
130 | | - [self(), ?FILE, ?LINE|As])). |
131 | | --define(notice(Msg), ?notice(Msg, [])). |
132 | | --define(notice(Fmt, As), ?do_notice("~p:~s:~p: Notice: " Fmt "~n", |
133 | | - [self(), ?FILE, ?LINE|As])). |
134 | | --define(warning(Msg), ?warning(Msg, [])). |
135 | | --define(warning(Fmt, As), ?do_warning("~p:~s:~p: Warning: " Fmt "~n", |
136 | | - [self(), ?FILE, ?LINE|As])). |
137 | | --define(error(Msg), ?error(Msg, [])). |
138 | | --define(error(Fmt, As), ?do_error("~p:~s:~p: Error: " Fmt "~n", |
139 | | - [self(), ?FILE, ?LINE|As])). |
140 | | --define(critical(Msg), ?critical(Msg, [])). |
141 | | --define(critical(Fmt, As), ?do_critical("~p:~s:~p: Critical: " Fmt "~n", |
| 79 | + -ifdef(S2_USE_LAGER). |
| 80 | + |
| 81 | + -compile([{parse_transform, lager_transform}]). |
| 82 | + |
| 83 | + -define(debug(Format), lager:debug(Format, [])). |
| 84 | + -define(debug(Format, Args), lager:debug(Format, Args)). |
| 85 | + -define(info(Format), lager:info(Format, [])). |
| 86 | + -define(info(Format, Args), lager:info(Format, Args)). |
| 87 | + -define(notice(Format), lager:notice(Format, [])). |
| 88 | + -define(notice(Format, Args), lager:notice(Format, Args)). |
| 89 | + |
| 90 | + -ifdef(S2_USE_LAGER_BUT_NOT_FOR_ERRORS). |
| 91 | + |
| 92 | + -define(warning(Format), error_logger:warning_msg(Format, [])). |
| 93 | + -define(warning(Format, Args), error_logger:warning_msg(Format, Args)). |
| 94 | + -define(error(Format), error_logger:error_msg(Format)). |
| 95 | + -define(error(Format, Args), error_logger:error_msg(Format, Args)). |
| 96 | + -define(critical(Format), error_logger:error_msg(Format)). |
| 97 | + -define(critical(Format, Args), error_logger:error_msg(Format, Args)). |
| 98 | + -define(alert(Format), error_logger:error_msg(Format)). |
| 99 | + -define(alert(Format, Args), error_logger:error_msg(Format, Args)). |
| 100 | + -define(emergency(Format), error_logger:error_msg(Format)). |
| 101 | + -define(emergency(Format, Args), error_logger:error_msg(Format, Args)). |
| 102 | + |
| 103 | + -else. %default |
| 104 | + |
| 105 | + -define(warning(Format), lager:warning(Format, [])). |
| 106 | + -define(warning(Format, Args), lager:warning(Format, Args)). |
| 107 | + -define(error(Format), lager:error(Format, [])). |
| 108 | + -define(error(Format, Args), lager:error(Format, Args)). |
| 109 | + -define(critical(Format), lager:critical(Format, [])). |
| 110 | + -define(critical(Format, Args), lager:critical(Format, Args)). |
| 111 | + -define(alert(Format), lager:alert(Format, [])). |
| 112 | + -define(alert(Format, Args), lager:alert(Format, Args)). |
| 113 | + -define(emergency(Format), lager:emergency(Format, [])). |
| 114 | + -define(emergency(Format, Args), lager:emergency(Format, Args)). |
| 115 | + |
| 116 | + -endif. %S2_USE_LAGER_BUT_NOT_FOR_ERRORS |
| 117 | + |
| 118 | + -else. |
| 119 | + -ifdef(S2_DEBUG). |
| 120 | + -define(debug(Msg), ?debug(Msg, [])). |
| 121 | + -define(debug(Fmt, As), ?do_debug("~p:~s:~p: Debug: " Fmt "~n", |
| 122 | + [self(), ?FILE, ?LINE|As])). |
| 123 | + -else. |
| 124 | + -define(debug(Msg), ok). |
| 125 | + -define(debug(Fmt, As), ok). |
| 126 | + -endif. %S2_DEBUG |
| 127 | + |
| 128 | + -define(info(Msg), ?info(Msg, [])). |
| 129 | + -define(info(Fmt, As), ?do_info("~p:~s:~p: Info: " Fmt "~n", |
142 | 130 | [self(), ?FILE, ?LINE|As])). |
143 | | --define(alert(Msg), ?alert(Msg, [])). |
144 | | --define(alert(Fmt, As), ?do_alert("~p:~s:~p: Alert: " Fmt "~n", |
145 | | - [self(), ?FILE, ?LINE|As])). |
146 | | --define(emergency(Msg), ?emergency(Msg, [])). |
147 | | --define(emergency(Fmt, As), ?do_emergency("~p:~s:~p: Emergency: " Fmt "~n", |
148 | | - [self(), ?FILE, ?LINE|As])). |
149 | | - |
150 | | --ifdef(S2_NOLOG). |
151 | | - |
152 | | --define(do_debug(Fmt, As), ok). |
153 | | --define(do_info(Fmt, As), ok). |
154 | | --define(do_notice(Fmt, As), ok). |
155 | | --define(do_warning(Fmt, As), ok). |
156 | | --define(do_error(Fmt, As), ok). |
157 | | --define(do_critical(Fmt, As), ok). |
158 | | --define(do_alert(Fmt, As), ok). |
159 | | --define(do_emergency(Fmt, As), ok). |
160 | | - |
161 | | --else. %default |
162 | | - |
163 | | --define(do_debug(Fmt, As), error_logger:info_msg(Fmt, As)). |
164 | | --define(do_info(Fmt, As), error_logger:info_msg(Fmt, As)). |
165 | | --define(do_notice(Fmt, As), error_logger:info_msg(Fmt, As)). |
166 | | --define(do_warning(Fmt, As), error_logger:warning_msg(Fmt, As)). |
167 | | --define(do_error(Fmt, As), error_logger:warning_msg(Fmt, As)). |
168 | | --define(do_critical(Fmt, As), error_logger:error_msg(Fmt, As)). |
169 | | --define(do_alert(Fmt, As), error_logger:error_msg(Fmt, As)). |
170 | | --define(do_emergency(Fmt, As), error_logger:error_msg(Fmt, As)). |
171 | | - |
172 | | --endif. %S2_NOLOG |
173 | | - |
174 | | --endif. %S2_USE_LAGER |
| 131 | + -define(notice(Msg), ?notice(Msg, [])). |
| 132 | + -define(notice(Fmt, As), ?do_notice("~p:~s:~p: Notice: " Fmt "~n", |
| 133 | + [self(), ?FILE, ?LINE|As])). |
| 134 | + -define(warning(Msg), ?warning(Msg, [])). |
| 135 | + -define(warning(Fmt, As), ?do_warning("~p:~s:~p: Warning: " Fmt "~n", |
| 136 | + [self(), ?FILE, ?LINE|As])). |
| 137 | + -define(error(Msg), ?error(Msg, [])). |
| 138 | + -define(error(Fmt, As), ?do_error("~p:~s:~p: Error: " Fmt "~n", |
| 139 | + [self(), ?FILE, ?LINE|As])). |
| 140 | + -define(critical(Msg), ?critical(Msg, [])). |
| 141 | + -define(critical(Fmt, As), ?do_critical("~p:~s:~p: Critical: " Fmt "~n", |
| 142 | + [self(), ?FILE, ?LINE|As])). |
| 143 | + -define(alert(Msg), ?alert(Msg, [])). |
| 144 | + -define(alert(Fmt, As), ?do_alert("~p:~s:~p: Alert: " Fmt "~n", |
| 145 | + [self(), ?FILE, ?LINE|As])). |
| 146 | + -define(emergency(Msg), ?emergency(Msg, [])). |
| 147 | + -define(emergency(Fmt, As), ?do_emergency("~p:~s:~p: Emergency: " Fmt "~n", |
| 148 | + [self(), ?FILE, ?LINE|As])). |
| 149 | + |
| 150 | + -ifdef(S2_NOLOG). |
| 151 | + |
| 152 | + -define(do_debug(Fmt, As), ok). |
| 153 | + -define(do_info(Fmt, As), ok). |
| 154 | + -define(do_notice(Fmt, As), ok). |
| 155 | + -define(do_warning(Fmt, As), ok). |
| 156 | + -define(do_error(Fmt, As), ok). |
| 157 | + -define(do_critical(Fmt, As), ok). |
| 158 | + -define(do_alert(Fmt, As), ok). |
| 159 | + -define(do_emergency(Fmt, As), ok). |
| 160 | + |
| 161 | + -else. %default |
| 162 | + |
| 163 | + -define(do_debug(Fmt, As), error_logger:info_msg(Fmt, As)). |
| 164 | + -define(do_info(Fmt, As), error_logger:info_msg(Fmt, As)). |
| 165 | + -define(do_notice(Fmt, As), error_logger:info_msg(Fmt, As)). |
| 166 | + -define(do_warning(Fmt, As), error_logger:warning_msg(Fmt, As)). |
| 167 | + -define(do_error(Fmt, As), error_logger:warning_msg(Fmt, As)). |
| 168 | + -define(do_critical(Fmt, As), error_logger:error_msg(Fmt, As)). |
| 169 | + -define(do_alert(Fmt, As), error_logger:error_msg(Fmt, As)). |
| 170 | + -define(do_emergency(Fmt, As), error_logger:error_msg(Fmt, As)). |
| 171 | + |
| 172 | + -endif. %S2_NOLOG |
| 173 | + -endif. %S2_USE_LAGER |
| 174 | +-endif. %S2_USE_OTP_LOGGER |
175 | 175 |
|
176 | 176 | %% Implementation from http://erlang.org/eeps/eep-0045.md |
177 | 177 | -define(FUNCTION_STRING, |
|
0 commit comments