diff options
| author | Badlop <badlop@process-one.net> | 2009-04-27 20:55:35 +0000 |
|---|---|---|
| committer | Badlop <badlop@process-one.net> | 2009-04-27 20:55:35 +0000 |
| commit | 7c4e7dea4b7948852199d77f4f4b8bbaa71177de (patch) | |
| tree | 0f28bce660ba9a2218e01271216cf361215a3b62 /contrib/extract_translations/extract_translations.erl | |
| parent | * src/win32_dns.erl: Fix problem parsing some win32 dns (EJAB-927) (diff) | |
* src/translate.erl: Support additional files (EJAB-925)
* contrib/extract_translations/extract_translations.erl: Likewise
* contrib/extract_translations/prepare-translation.sh: Likewise
SVN Revision: 2044
Diffstat (limited to '')
| -rw-r--r-- | contrib/extract_translations/extract_translations.erl | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/contrib/extract_translations/extract_translations.erl b/contrib/extract_translations/extract_translations.erl index 1f38cd08e..488357ba6 100644 --- a/contrib/extract_translations/extract_translations.erl +++ b/contrib/extract_translations/extract_translations.erl @@ -68,7 +68,7 @@ process(Dir, File, Used) -> parse_file(Dir, File, Used) -> ets:delete_all_objects(vars), - case epp:parse_file(File, [Dir, filename:dirname(File)], []) of + case epp:parse_file(File, [Dir, filename:dirname(File) | code:get_path()], []) of {ok, Forms} -> lists:foreach( fun(F) -> @@ -80,6 +80,8 @@ parse_file(Dir, File, Used) -> parse_form(Dir, File, Form, Used) -> case Form of + %%{undefined, Something} -> + %% io:format("Undefined: ~p~n", [Something]); {call, _, {remote, _, {atom, _, translate}, {atom, _, translate}}, |