Merge branch 'lars/utf-8-path-bugs/ERL-179/OTP-13718' into maint

* lars/utf-8-path-bugs/ERL-179/OTP-13718:
  [snmp] Correct bug when path to mib contains UTF-8 characters
  [ic] Fix but when UTF-8 character in path to idl spec

3 files changed, 23 insertions, 16 deletions

diff --git a/lib/ic/src/ic_codegen.erl b/lib/ic/src/ic_codegen.erl
index adad021da1..a3f141f606 100644
--- a/lib/ic/src/ic_codegen.erl
+++ b/lib/ic/src/ic_codegen.erl
@@ -245,8 +245,8 @@ emit_stub_head(G, F1, Name, java) ->
 stub_header(G, Name) ->
     ["Implementation stub file",
      "",
-     io_lib:format("Target: ~s", [Name]),
-     io_lib:format("Source: ~s", [ic_genobj:idlfile(G)]),
+     io_lib:format("Target: ~ts", [Name]),
+     io_lib:format("Source: ~ts", [ic_genobj:idlfile(G)]),
      io_lib:format("IC vsn: ~s", [?COMPILERVSN]),
      "",
      "This file is automatically generated. DO NOT EDIT IT."].
@@ -298,8 +298,8 @@ emit_hrl_head(G, Fd, Name, c_server) ->
 
 hrl_header(G, Name) ->
     ["",
-     io_lib:format("Target: ~s", [Name]),
-     io_lib:format("Source: ~s", [ic_genobj:idlfile(G)]),
+     io_lib:format("Target: ~ts", [Name]),
+     io_lib:format("Source: ~ts", [ic_genobj:idlfile(G)]),
      io_lib:format("IC vsn: ~s", [?COMPILERVSN]),
      "",
      "This file is automatically generated. DO NOT EDIT IT."].
diff --git a/lib/snmp/src/compile/snmpc.erl b/lib/snmp/src/compile/snmpc.erl
index db1f9ee61b..d86692aaf6 100644
--- a/lib/snmp/src/compile/snmpc.erl
+++ b/lib/snmp/src/compile/snmpc.erl
@@ -64,7 +64,7 @@ compile(Input, _Output, Options) ->
         {ok, _} ->
             ok;
         {error, Reason} ->
-            io:format("~p", [Reason]),
+            io:format("~tp", [Reason]),
             error
     end.
 
@@ -126,7 +126,14 @@ compile(FileName) ->
 %%----------------------------------------------------------------------
 
 compile(FileName, Options) when is_list(FileName) ->
-    true = snmpc_misc:is_string(FileName),
+    case snmpc_misc:check_file(FileName) of
+	true ->
+	    compile_1(FileName, Options);
+	false ->
+	    {error, {invalid_file, FileName}}
+    end.
+
+compile_1(FileName, Options) ->
     DefOpts = [{deprecated,  true},
 	       {group_check, true},
 	       {i,           ["./"]},
diff --git a/lib/snmp/src/compile/snmpc_misc.erl b/lib/snmp/src/compile/snmpc_misc.erl
index 933d629746..312074f2e7 100644
--- a/lib/snmp/src/compile/snmpc_misc.erl
+++ b/lib/snmp/src/compile/snmpc_misc.erl
@@ -29,7 +29,7 @@
 	 bits_to_int/2,
 	 ensure_trailing_dir_delimiter/1,
 	 foreach/3,
-	 is_string/1,
+	 check_file/1,
 	 read_mib/1,
 	 read_noexit/2,
 	 strip_extension_from_filename/2,
@@ -86,21 +86,21 @@ to_upper([C|Cs]) -> [C|to_upper(Cs)];
 to_upper([]) -> [].
 
 
-is_string([]) -> true;
-is_string([Tkn | Str]) 
-  when is_integer(Tkn) andalso (Tkn >= 0) andalso (Tkn =< 255) ->
-    is_string(Str);
-is_string(_) -> false.
-
-
+check_file(FileName) ->
+    case filename:extension(FileName) of
+	".mib" ->
+	    filelib:is_regular(FileName);
+	_ ->
+	    filelib:is_regular(FileName ++ ".mib")
+    end.
+	
+    
 foreach(Function, ExtraArgs, [H | T]) ->
     apply(Function, [H | ExtraArgs]),
     foreach(Function, ExtraArgs, T);
 foreach(_Function, _ExtraArgs, []) -> 
     true.
 
-
-
 %%----------------------------------------------------------------------
 %% Returns: {ok, Mib}|{error, Reason}
 %% The reason for having the function if this module is: