- Fix bug into test_run
Pierre Marechal [Thu, 14 Feb 2008 14:04:34 +0000 (14:04 +0000)]
- Refs are regenerated

13 files changed:
scilab/modules/fileio/tests/nonreg_tests/bug_1526.dia.ref
scilab/modules/fileio/tests/nonreg_tests/bug_1586.dia.ref
scilab/modules/fileio/tests/nonreg_tests/bug_1693.dia.ref
scilab/modules/fileio/tests/nonreg_tests/bug_1867.dia.ref
scilab/modules/fileio/tests/nonreg_tests/bug_2555.dia.ref
scilab/modules/fileio/tests/nonreg_tests/bug_2697.dia.ref
scilab/modules/fileio/tests/unit_tests/fscanfMat.dia.ref
scilab/modules/fileio/tests/unit_tests/mfprintf.dia.ref
scilab/modules/fileio/tests/unit_tests/mfscanf.dia.ref
scilab/modules/fileio/tests/unit_tests/mprintf.dia.ref
scilab/modules/fileio/tests/unit_tests/mputl.dia.ref
scilab/modules/fileio/tests/unit_tests/msprintf.dia.ref
scilab/modules/fileio/tests/unit_tests/msscanf.dia.ref

index 6c2eb54..924c0db 100644 (file)
@@ -11,7 +11,7 @@
 // Pierre MARECHAL - Scilab Project
 // Copyright INRIA
 // 12/02/2008
-mat_ref = [0..
+mat_ref = [ ..
     0.15    0.19    0.96 ;
     0.55    0.81    0.57 ;
     0.28    0.33    0.43 ];
index a66ee83..3b6cffc 100644 (file)
@@ -24,7 +24,7 @@
 //          new_1 already exists.
 //    status  =
 //        0.
-//0...
+// ...
 // Copyright INRIA
 // Scilab Project - Pierre MARECHAL
 // Copyright INRIA 2005
index f9fcdba..b175322 100644 (file)
@@ -24,7 +24,7 @@
 //    sys.math.scilab/browse_thread/thread/3e2f8a72af0148fd/e0f7866780de7fbf
 //
 //    Since the Windows command interpreter accepts this (cd \ changes
-//0...
+// ...
 // Copyright INRIA
 // Scilab Project - Pierre MARECHAL
 // Copyright INRIA 2005
index 7192931..1d55703 100644 (file)
@@ -13,33 +13,33 @@ str1 = '1 2 3 4 5 6 7 8 9 10';
 L1 = msscanf(str1,"%d %d %d %d %d %d %d %d %d %d");
 if or(L1<>[1:10]) then bugmes();quit;end
 str2 = '..
-1 2 3 4 5 6 7 8 9 100..
-11 12 13 14 15 16 17 18 19 200..
-21 22 23 24 25 26 27 28 29 300..
-31 32 33 34 35 36 37 38 39 400..
+1 2 3 4 5 6 7 8 9 10 ..
+11 12 13 14 15 16 17 18 19 20 ..
+21 22 23 24 25 26 27 28 29 30 ..
+31 32 33 34 35 36 37 38 39 40 ..
 41 42 43 44 45 46 47 48 49 50';
 L2 = msscanf(str2,"..
-%d %d %d %d %d %d %d %d %d %d0..
-%d %d %d %d %d %d %d %d %d %d0..
-%d %d %d %d %d %d %d %d %d %d0..
-%d %d %d %d %d %d %d %d %d %d0..
+%d %d %d %d %d %d %d %d %d %d ..
+%d %d %d %d %d %d %d %d %d %d ..
+%d %d %d %d %d %d %d %d %d %d ..
+%d %d %d %d %d %d %d %d %d %d ..
 %d %d %d %d %d %d %d %d %d %d");
 if or(L2<>[1:50]) then bugmes();quit;end
 str3 = '..
-1 2 3 4 5 6 7 8 9 100..
-11 12 13 14 15 16 17 18 19 200..
-21 22 23 24 25 26 27 28 29 300..
-31 32 33 34 35 36 37 38 39 400..
-41 42 43 44 45 46 47 48 49 500..
+1 2 3 4 5 6 7 8 9 10 ..
+11 12 13 14 15 16 17 18 19 20 ..
+21 22 23 24 25 26 27 28 29 30 ..
+31 32 33 34 35 36 37 38 39 40 ..
+41 42 43 44 45 46 47 48 49 50 ..
 51 52 53 54 55 56 57 58 59 60..
 ';
 StrExec="..
 L3 = msscanf(str3,""..
-%d %d %d %d %d %d %d %d %d %d0..
-%d %d %d %d %d %d %d %d %d %d0..
-%d %d %d %d %d %d %d %d %d %d0..
-%d %d %d %d %d %d %d %d %d %d0..
-%d %d %d %d %d %d %d %d %d %d0..
+%d %d %d %d %d %d %d %d %d %d ..
+%d %d %d %d %d %d %d %d %d %d ..
+%d %d %d %d %d %d %d %d %d %d ..
+%d %d %d %d %d %d %d %d %d %d ..
+%d %d %d %d %d %d %d %d %d %d ..
 %d %d %d %d %d %d %d %d %d %d..
 "");";
 errmsg=execstr(StrExec,'errcatch');
index 21e213c..cedbddb 100644 (file)
 // Pierre MARECHAL - Scilab Project
 // Copyright INRIA
 // 12/02/2008
-mat_ref = [0..
-    72. 21. 26. 77. 11. ;0..
-    19. 31. 63. 21. 19. ;0..
-    54. 36. 40. 11. 56. ;0..
-    23. 29. 91. 68. 58. ;0..
-    23. 56. 4. 15. 68.  ;0..
-    21. 48. 48. 69. 89. ;0..
-    88. 33. 26. 84. 50. ;0..
-    65. 59. 41. 40. 34. ;0..
-    30. 50. 28. 40. 38. ;0..
+mat_ref = [ ..
+    72. 21. 26. 77. 11. ; ..
+    19. 31. 63. 21. 19. ; ..
+    54. 36. 40. 11. 56. ; ..
+    23. 29. 91. 68. 58. ; ..
+    23. 56. 4. 15. 68.  ; ..
+    21. 48. 48. 69. 89. ; ..
+    88. 33. 26. 84. 50. ; ..
+    65. 59. 41. 40. 34. ; ..
+    30. 50. 28. 40. 38. ; ..
     93. 43. 12. 87. 92. ];
 mat = fscanfMat("SCI/modules/fileio/tests/nonreg_tests/bug_2555.mat")
  mat  =
index 426f4f1..3cd38b6 100644 (file)
@@ -9,6 +9,6 @@
 // Copyright INRIA
 // 10/02/2008
 // test 1 : not enough input arguments
-if execstr("msprintf(""string = %s , number = %d0.\n"",""Hello world"")","errcatch") == 0 then bugmes();quit;end
+if execstr("msprintf(""string = %s , number = %d .\n"",""Hello world"")","errcatch") == 0 then bugmes();quit;end
 // test2 : too many input arguments
-if execstr("msprintf(""string = %s , number = %d0.\n"",""Hello world"",2,3)","errcatch") == 0 then bugmes();quit;end
+if execstr("msprintf(""string = %s , number = %d .\n"",""Hello world"",2,3)","errcatch") == 0 then bugmes();quit;end
index 7df95b4..9741571 100644 (file)
@@ -1,87 +1,41 @@
 // Copyright ENPC
 // test of fscanfMat and fprintfMat
 // --------------------------------
 n=50;
 a=rand(n,n,'u');
 // now the data
 fd=mopen(TMPDIR+'/Mat','w');
 texte=['Some text ';'Some more text'];
 for t=texte
   mfprintf(fd,'%s\n',t);
 end
 for i=1:n ,
   for j=1:n, mfprintf(fd,'%5.2f ',a(i,j));end;
   mfprintf(fd,'\n');   
 end
 mclose(fd);
 a1=fscanfMat(TMPDIR+'/Mat');
 if maxi(a1-a) > 1.e-1 then bugmes();quit;end
 [a1,txt]=fscanfMat(TMPDIR+'/Mat');
 if ~and(txt==texte) then bugmes();quit;end
 if maxi(a1-a) > 1.e-1 then bugmes();quit;end
 // ---- test with fprintfMat
 n=50;
 a=rand(n,n,'u');
 fprintfMat(TMPDIR+'/Mat',a,'%5.2f');
 a1=fscanfMat(TMPDIR+'/Mat');
 if maxi(a1-a) > 1.e-1 then bugmes();quit;end
 // ---- test with fprintfMat
 n=50;
 a=rand(n,n,'u');
 fprintfMat(TMPDIR+'/Mat',a,'%5.2f',txt);
 [a1,txt1]=fscanfMat(TMPDIR+'/Mat');
 if maxi(a1-a) > 1.e-1 then bugmes();quit;end
 if ~and(txt==txt1) then bugmes();quit;end
 n=100;
 a=rand(n,n,'u');
 fprintfMat(TMPDIR+'/Mat',a)
 [a1]=fscanfMat(TMPDIR+'/Mat');
 if maxi(a1-a) > 1.e-1 then bugmes();quit;end
 [a1,S]=fscanfMat(TMPDIR+'/Mat');
 if S<>emptystr() then bugmes();quit;end
index 5c7d63c..400308b 100644 (file)
@@ -21,18 +21,18 @@ endfunction
 // =============================================================================
 if bugnum(Fprintf("%f",-35),"-35.000000" ) then bugmes();quit;end
 if bugnum(Fprintf("%f",35.55),"35.550000" ) then bugmes();quit;end
-if bugnum(Fprintf("%f",0.00433),"0.004330" , "0.004330" ) then bugmes();quit;end
-if bugnum(Fprintf("%f",0.0000000345456),"0.000000" , "0.000000" ) then bugmes();quit;end
+if bugnum(Fprintf("%f",0.00433),"0.004330" , " .004330" ) then bugmes();quit;end
+if bugnum(Fprintf("%f",0.0000000345456),"0.000000" , " .000000" ) then bugmes();quit;end
 if bugnum(Fprintf("%f",1112423453),"1112423453.000000" ) then bugmes();quit;end
 if bugnum(Fprintf("%15f",-35),"     -35.000000" ) then bugmes();quit;end
-if bugnum(Fprintf("%15f",0.00433),"       0.004330","       0.004330" ) then bugmes();quit;end
-if bugnum(Fprintf("%15f",0.0000000345456),"       0.000000" ,"       0.000000" ) then bugmes();quit;end
+if bugnum(Fprintf("%15f",0.00433),"       0.004330","        .004330" ) then bugmes();quit;end
+if bugnum(Fprintf("%15f",0.0000000345456),"       0.000000" ,"        .000000" ) then bugmes();quit;end
 if bugnum(Fprintf("%15f",1112423453),"1112423453.000000" ) then bugmes();quit;end
 if bugnum(Fprintf("%.1f",-35),"-35.0" ) then bugmes();quit;end
 if bugnum(Fprintf("%.0f",-35),"-35" ) then bugmes();quit;end
 if bugnum(Fprintf("%#.0f",-35),"-35." ) then bugmes();quit;end
-if bugnum(Fprintf("%.1f",0.00433),"0.0","0.0") then bugmes();quit;end
-if bugnum(Fprintf("%.15f",0.0000000345456),"0.000000034545600" ,"0.000000034545600" ) then bugmes();quit;end
+if bugnum(Fprintf("%.1f",0.00433),"0.0"," .0") then bugmes();quit;end
+if bugnum(Fprintf("%.15f",0.0000000345456),"0.000000034545600" ," .000000034545600" ) then bugmes();quit;end
 if bugnum(Fprintf("%.1f",11124234534545),"11124234534545.0" ) then bugmes();quit;end
 // test format "%g"
 // =============================================================================
@@ -40,18 +40,18 @@ if bugnum(Fprintf("%g",-35),"-35" ) then bugmes();quit;end
 if bugnum(Fprintf("%g",35.55),"35.55" ) then bugmes();quit;end
 if bugnum(Fprintf("%g",35.551234567890),"35.5512" ) then bugmes();quit;end
 if bugnum(Fprintf("%+g",35.551234567890),"+35.5512" ) then bugmes();quit;end
-if bugnum(Fprintf("%g",0.00433),"0.00433" ,"0.00433" ) then bugmes();quit;end
+if bugnum(Fprintf("%g",0.00433),"0.00433" ," .00433" ) then bugmes();quit;end
 if bugnum(Fprintf("%g",0.0000000345456),"3.45456e-08","3.45456e-008" ) then bugmes();quit;end
 if bugnum(Fprintf("%g",11124234534545),"1.11242e+13","1.11242e+013" ) then bugmes();quit;end
 if bugnum(Fprintf("%15g",-35),"            -35" ) then bugmes();quit;end
-if bugnum(Fprintf("%15g",0.00433),"        0.00433","        0.00433" ) then bugmes();quit;end
+if bugnum(Fprintf("%15g",0.00433),"        0.00433","         .00433" ) then bugmes();quit;end
 if bugnum(Fprintf("%15g",0.0000000345456),"    3.45456e-08","   3.45456e-008" ) then bugmes();quit;end
 if bugnum(Fprintf("%15g",11124234534545),"    1.11242e+13","   1.11242e+013" ) then bugmes();quit;end
 if bugnum(Fprintf("%.1g",-35.1),"-4e+01","-4e+001" ) then bugmes();quit;end
 if bugnum(Fprintf("%.0g",-35.1),"-4e+01","-4e+001"  ) then bugmes();quit;end
 if bugnum(Fprintf("%#.0g",-35.1),"-4.e+01","-4.e+001" ) then bugmes();quit;end
-if bugnum(Fprintf("%#.0G",-35.1),"-4.D+01","-4.D+001" ) then bugmes();quit;end
-if bugnum(Fprintf("%.1g",0.00433),"0.004" ,"0.004" ) then bugmes();quit;end
+if bugnum(Fprintf("%#.0G",-35.1),"-4.E+01","-4.E+001" ) then bugmes();quit;end
+if bugnum(Fprintf("%.1g",0.00433),"0.004" ," .004" ) then bugmes();quit;end
 if bugnum(Fprintf("%.15g",0.0000000345456),"3.45456e-08","3.45456e-008" ) then bugmes();quit;end
 if bugnum(Fprintf("%.1g",11124234534545),"1e+13","1e+013" ) then bugmes();quit;end
 // test format "%e"
@@ -63,7 +63,7 @@ if bugnum(Fprintf("%e",35.551234567890),"3.555123e+01","3.555123e+001" ) then bu
 if bugnum(Fprintf("%e",0.00433),"4.330000e-03","4.330000e-003" ) then bugmes();quit;end
 if bugnum(Fprintf("%e",0.0000000345456),"3.454560e-08","3.454560e-008" ) then bugmes();quit;end
 if bugnum(Fprintf("%e",11124234534545),"1.112423e+13","1.112423e+013" ) then bugmes();quit;end
-if bugnum(Fprintf("%E",11124234534545),"1.112423D+13","1.112423D+013" ) then bugmes();quit;end
+if bugnum(Fprintf("%E",11124234534545),"1.112423E+13","1.112423E+013" ) then bugmes();quit;end
 if bugnum(Fprintf("%15e",-35),"  -3.500000e+01"," -3.500000e+001" ) then bugmes();quit;end
 if bugnum(Fprintf("%15e",0.00433),"   4.330000e-03","  4.330000e-003" ) then bugmes();quit;end
 if bugnum(Fprintf("%15e",0.0000000345456),"   3.454560e-08","  3.454560e-008" ) then bugmes();quit;end
index fcc2318..e8effe5 100644 (file)
 // Copyright ENPC/INRIA
 deff('[n,a,b,c,d,e]=Fscanf(str,f)',['fd=mopen(TMPDIR+''/fscanf.rep'',''w'');';
        'mputstr(str,fd);mclose(fd);';
        'fd=mopen(TMPDIR+''/fscanf.rep'',''r'');';
        '[n,a,b,c,d,e]=mfscanf(fd,f);mclose(fd);']);
 //--------------test format %i
 [n,a]=Fscanf('123','%i');
 if n<>1|a<>123 then bugmes();quit;end
 [n,a]=Fscanf('     123','%i');
 if n<>1|a<>123 then bugmes();quit;end
 [n,a]=Fscanf('123','%2i');
 if n<>1|a<>12 then bugmes();quit;end
 [n,a]=Fscanf('123','%5i');
 //--------------test format %li
 [n,a]=Fscanf('123','%li');
 if n<>1|a<>123 then bugmes();quit;end
 [n,a]=Fscanf('     123','%li');
 if n<>1|a<>123 then bugmes();quit;end
 [n,a]=Fscanf('123','%2li');
 if n<>1|a<>12 then bugmes();quit;end
 [n,a]=Fscanf('123','%5li');
 //--------------test format %hi
 [n,a]=Fscanf('123','%hi');
 if n<>1|a<>123 then bugmes();quit;end
 [n,a]=Fscanf('     123','%hi');
 if n<>1|a<>123 then bugmes();quit;end
 [n,a]=Fscanf('123','%2hi');
 if n<>1|a<>12 then bugmes();quit;end
 [n,a]=Fscanf('123','%5hi');
 //--------------test format %d
 [n,a]=Fscanf('123','%d');
 if n<>1|a<>123 then bugmes();quit;end
 [n,a]=Fscanf('     123','%d');
 if n<>1|a<>123 then bugmes();quit;end
 [n,a]=Fscanf('123','%2d');
 if n<>1|a<>12 then bugmes();quit;end
 [n,a]=Fscanf('123','%5d');
 //--------------test format %ld
 [n,a]=Fscanf('123','%ld');
 if n<>1|a<>123 then bugmes();quit;end
 [n,a]=Fscanf('     123','%ld');
 if n<>1|a<>123 then bugmes();quit;end
 [n,a]=Fscanf('123','%2ld');
 if n<>1|a<>12 then bugmes();quit;end
 [n,a]=Fscanf('123','%5ld');
 //--------------test format %hd
 [n,a]=Fscanf('123','%hd');
 if n<>1|a<>123 then bugmes();quit;end
 [n,a]=Fscanf('     123','%hd');
 if n<>1|a<>123 then bugmes();quit;end
 [n,a]=Fscanf('123','%2hd');
 if n<>1|a<>12 then bugmes();quit;end
 [n,a]=Fscanf('123','%5hd');
 //------------- test format %n
 // Note that %n returned values are not counted in n
 s1='123 45.67 pipo';s2=' foo';
 [n,a,b,c,d,e]=Fscanf(s1+s2,'%d%lf%s%n%s');
 if n<>4|a<>123|b<>45.67|c<>'pipo'|d<>length(s1)|e<>'foo' then bugmes();quit;end
 //------------- test format %u
 [n,a]=Fscanf('+123','%u');
 if n<>1|a<>123 then bugmes();quit;end
 [n,a]=Fscanf(' 123','%2u');
 if n<>1|a<>12 then bugmes();quit;end
 [n,a]=Fscanf('+123','%5u');
 if n<>1|a<>123 then bugmes();quit;end
 //------------- test format %lu
 [n,a]=Fscanf('+123','%lu');
 if n<>1|a<>123 then bugmes();quit;end
 [n,a]=Fscanf(' 123','%2lu');
 if n<>1|a<>12 then bugmes();quit;end
 [n,a]=Fscanf('+123','%5lu');
 if n<>1|a<>123 then bugmes();quit;end
 //------------- test format %hu
 [n,a]=Fscanf('+123','%hu');
 if n<>1|a<>123 then bugmes();quit;end
 [n,a]=Fscanf(' 123','%2hu');
 if n<>1|a<>12 then bugmes();quit;end
 [n,a]=Fscanf('+123','%5hu');
 if n<>1|a<>123 then bugmes();quit;end
 //------------- test format %o
 [n,a]=Fscanf('123','%o');
 if n<>1|a<>83 then bugmes();quit;end
 [n,a]=Fscanf('     123','%o');
 if n<>1|a<>83 then bugmes();quit;end
 [n,a]=Fscanf('123','%2o');
 if n<>1|a<>10 then bugmes();quit;end
 [n,a]=Fscanf('123','%5o');
 if n<>1|a<>83 then bugmes();quit;end
 //------------- test format %x
 rep=10*16^2+11*16+12;
 [n,a]=Fscanf('0xabc','%x');
 if n<>1|a<>rep then bugmes();quit;end
 [n,a]=Fscanf('     0xabc','%x');
 if n<>1|a<>rep then bugmes();quit;end
 [n,a]=Fscanf('abc','%2x');
 if n<>1|a<>10*16+11 then bugmes();quit;end
 [n,a]=Fscanf('0xabc','%5x');
 if n<>1|a<>rep then bugmes();quit;end
 //------------- test format %e
 [n,a]=Fscanf('123.45','%e');
 if n<>1|norm(a-123.45)>1.e-2 then bugmes();quit;end
 [n,a]=Fscanf('     123.45','%e');
 if n<>1|norm(a-123.45)>1.e-2 then bugmes();quit;end
 [n,a]=Fscanf('123.45','%2e');
 if n<>1| norm(a-12)>0.1 then bugmes();quit;end
 [n,a]=Fscanf('123.45','%5e');
 if n<>1|norm(a-123.4)>1.e-1 then bugmes();quit;end
 //------------- test format %le
 [n,a]=Fscanf('123.45','%le');
 if n<>1|a<>123.45 then bugmes();quit;end
 [n,a]=Fscanf('     123.45','%le');
 if n<>1|a<>123.45 then bugmes();quit;end
 [n,a]=Fscanf('123.45','%2le');
 if n<>1|a<>12 then bugmes();quit;end
 [n,a]=Fscanf('123.45','%5le');
 if n<>1|a<>123.4 then bugmes();quit;end
 //------------- test format %f
 [n,a]=Fscanf('123.45','%f');
 if n<>1|norm(a-123.45)>1.e-2 then bugmes();quit;end
 [n,a]=Fscanf('     123.45','%f');
 if n<>1|norm(a-123.45)>1.e-2 then bugmes();quit;end
 [n,a]=Fscanf('123.45','%2f');
 if n<>1| norm(a-12)>0.1 then bugmes();quit;end
 [n,a]=Fscanf('123.45','%5f');
 if n<>1|norm(a-123.4)>1.e-1 then bugmes();quit;end
 //------------- test format %lf
 [n,a]=Fscanf('123.45','%lf');
 if n<>1|a<>123.45 then bugmes();quit;end
 [n,a]=Fscanf('     123.45','%lf');
 if n<>1|a<>123.45 then bugmes();quit;end
 [n,a]=Fscanf('123.45','%2lf');
 if n<>1|a<>12 then bugmes();quit;end
 [n,a]=Fscanf('123.45','%5lf');
 if n<>1|a<>123.4 then bugmes();quit;end
 //------------- test format %s
 [n,a]=Fscanf('123','%s');
 if n<>1|a<>'123' then bugmes();quit;end
 [n,a]=Fscanf('     123','%s');
 if n<>1|a<>'123' then bugmes();quit;end
 [n,a]=Fscanf('123','%2s');
 if n<>1|a<>'12' then bugmes();quit;end
 [n,a]=Fscanf('123','%5s');
 if n<>1|a<>'123' then bugmes();quit;end
 //------------- test format %c
-//XXXX : attention a finir0.... il faut ? scaner \n comme
+//XXXX : attention a finir .... il faut ? scaner \n comme
 //un seul caractere
 [n,a,b,c,d]=Fscanf(' 12\n','%c%c%c%c');
 if n<>4|a<>' '|b<>'1'|c<>'2' then bugmes();quit;end
 //------------- test format [
 [n,a,b]=Fscanf('012345abczoo','%[0-9abc]%s');
 if n<>2|a<>'012345abc'|b<>'zoo' then bugmes();quit;end
 //------------- test format [
 [n,a,b]=Fscanf('012345abczoo','%[^c]c%s');
 if n<>2|a<>'012345ab'|b<>'zoo' then bugmes();quit;end
 //------------- test ignoring arguments
 [n,a,b]=Fscanf('123 4 pipo poo','%*s%s%*s%s');
 if n<>2|a<>'4'|b<>'poo' then bugmes();quit;end
 //------------- test [ * ^
 [n,a]=Fscanf('123 4 pipo poo','%[^\n]\n');
 if n<>1|a<>'123 4 pipo poo' then bugmes();quit;end
 [n,a]=Fscanf('123 4 pipo Xpoo','%*[^X]X%s');
 if n<>1|a<>'poo' then bugmes();quit;end
 //------------- test composed directives
 [n,a]=Fscanf('123 4','123%le');
 if n<>1|a<>4 then bugmes();quit;end
 [n,a,b,c]=Fscanf('xxxxx 4 test 23.45','xxxxx%d%s%le');
 if n<>3|a<>4|b<>'test'|c<>23.45 then bugmes();quit;end
 [n,a,b]=Fscanf('123 456','%le%le');
 if n<>2|a<>123|b<>456 then bugmes();quit;end
 //------------- test mismatch
 [n,a]=Fscanf('123 poo','123%le');
 if n<>0 then bugmes();quit;end
 //------------- test end-of-file
 [n,a]=Fscanf('123','123%le');
 if n<>-1 then bugmes();quit;end
 //------------- test with matrix scan
 n=5
  n  =
  
     5.  
 A=int(10*rand(n,n));
 A1=strcat(string(A),' ','c');
-tmpf=TMPDIR+'/fscanf.rep';
-mputl(A1,tmpf);
-F='%d';F=strcat(F(ones(1,n)),' ');
-// all lines read as int we scan a 5x5 matrix
-fd=mopen(tmpf,'r');A2=mfscanf(-1,fd,F);mclose(fd);
-if norm(A2-A) > %eps then pause;end
-// read just 2 lines
-fd=mopen(tmpf,'r');A2=mfscanf(2,fd,F);mclose(fd);
-if norm(A2-A(1:2,:)) > %eps then pause;end
-// explicit columns we scan five columns
-fd=mopen(tmpf,'r');[n,a,b,c,d,e]=mfscanf(-1,fd,F);mclose(fd);
-if n<>5 then pause;end
-if norm([a,b,c,d,e]-A) > %eps then pause;end
-// all lines read as int but we scan only 2 columns using %*[^\n] to ignore the rest
-fd=mopen(tmpf,'r');A2=mfscanf(-1,fd,'%d%d%*[^\n]\n');mclose(fd);
-if norm(A2-A(:,1:2)) > %eps then pause;end
-// all lines read as string
-F='%s';F=strcat(F(ones(1,n)),' ');
-fd=mopen(tmpf,'r');A2=mfscanf(-1,fd,F);mclose(fd);
-if A2<>string(A) then pause;end
-// read just 2 lines
-fd=mopen(tmpf,'r');A2=mfscanf(2,fd,F);mclose(fd);
-if A2<>string(A(1:2,:))  then pause;end
-// mixed types read column 1 and 2 as string and others as int
-Fs='%s';Fs=strcat(Fs(ones(1,2)),' ');
-Fd='%d';Fd=strcat(Fd(ones(1,n-2)),' ');
-fd=mopen(tmpf,'r');[n,a,b,c,d,e]=mfscanf(-1,fd,Fs+' '+Fd);mclose(fd);
-if n<>5 then pause;end
-if norm([eval(a),eval(b),c,d,e]-A) > %eps then pause;end
-// same example but returned values are compacted in L
-fd=mopen(tmpf,'r');L=mfscanf(-1,fd,Fs+' '+Fd);mclose(fd);
-if length(L)<>3 then pause;end
-if norm(getfield(3,L)-A(:,3:n)) > %eps then pause;end
-if getfield(2,L)<>string(A(:,1:2)) then pause;end
index d037038..050ff61 100644 (file)
@@ -39,7 +39,7 @@ mprintf("==>%g" ,-35);
 ==>-4e+01<==mprintf("==>%.0g<==",-35.1);
 ==>-4e+01<==mprintf("==>%#.0g<==",-35.1);
 ==>-4.e+01<==mprintf("==>%#.0G<==",-35.1);
-==>-4.D+01<==mprintf("==>%.1g<==",0.00433);
+==>-4.E+01<==mprintf("==>%.1g<==",0.00433);
 ==>0.004<==mprintf("==>%.15g<==",0.0000000345456);
 ==>3.45456e-08<==mprintf("==>%.1g<==",11124234534545);
 ==>1e+13<==// format '%e'
@@ -52,7 +52,7 @@ mprintf("==>%e<==",-35);
 ==>4.330000e-03<==mprintf("==>%e<==",0.0000000345456);
 ==>3.454560e-08<==mprintf("==>%e<==",11124234534545);
 ==>1.112423e+13<==mprintf("==>%E<==",11124234534545);
-==>1.112423D+13<==mprintf("==>%15e<==",-35);
+==>1.112423E+13<==mprintf("==>%15e<==",-35);
 ==>  -3.500000e+01<==mprintf("==>%15e<==",0.00433);
 ==>   4.330000e-03<==mprintf("==>%15e<==",0.0000000345456);
 ==>   3.454560e-08<==mprintf("==>%+15e<==",0.0000000345456);
@@ -87,16 +87,16 @@ mprintf("==>%x<==",123);
 // =============================================================================
 // test 1
 A = "row "+string(1:10)';
-B = [0..
-    50.153416    28.06498     40.948255 ;0..
-    43.685876    12.800585    87.841258 ;0..
-    26.931248    77.831286    11.383597 ;0..
-    63.257449    21.190304    19.983377 ;0..
-    40.51954     11.213547    56.186607 ;0..
-    91.847078    68.56896     58.961773 ;0..
-    4.3733433    15.312167    68.539797 ;0..
-    48.185089    69.708506    89.062247 ;0..
-    26.39556     84.155184    50.422128 ;0..
+B = [ ..
+    50.153416    28.06498     40.948255 ; ..
+    43.685876    12.800585    87.841258 ; ..
+    26.931248    77.831286    11.383597 ; ..
+    63.257449    21.190304    19.983377 ; ..
+    40.51954     11.213547    56.186607 ; ..
+    91.847078    68.56896     58.961773 ; ..
+    4.3733433    15.312167    68.539797 ; ..
+    48.185089    69.708506    89.062247 ; ..
+    26.39556     84.155184    50.422128 ; ..
     41.481037    40.620248    34.936154 ];
 mprintf("==>%10s : %08.4f %08.4f %08.4f<==\n",A,B);
 ==>     row 1 : 050.1534 028.0650 040.9483<==
@@ -110,27 +110,27 @@ mprintf("==>%10s : %08.4f %08.4f %08.4f<==\n",A,B);
 ==>     row 9 : 026.3956 084.1552 050.4221<==
 ==>    row 10 : 041.4810 040.6202 034.9362<==
 // test 2
-C = [0..
-    50.153416    28.06498  ;0..
-    43.685876    12.800585 ;0..
-    26.931248    77.831286 ;0..
-    63.257449    21.190304 ;0..
-    40.51954     11.213547 ;0..
-    91.847078    68.56896  ;0..
-    4.3733433    15.312167 ;0..
-    48.185089    69.708506 ;0..
-    26.39556     84.155184 ;0..
+C = [ ..
+    50.153416    28.06498  ; ..
+    43.685876    12.800585 ; ..
+    26.931248    77.831286 ; ..
+    63.257449    21.190304 ; ..
+    40.51954     11.213547 ; ..
+    91.847078    68.56896  ; ..
+    4.3733433    15.312167 ; ..
+    48.185089    69.708506 ; ..
+    26.39556     84.155184 ; ..
     41.481037    40.620248 ];
-D = [0..
-    40.948255 ;0..
-    87.841258 ;0..
-    11.383597 ;0..
-    19.983377 ;0..
-    56.186607 ;0..
-    58.961773 ;0..
-    68.539797 ;0..
-    89.062247 ;0..
-    50.422128 ;0..
+D = [ ..
+    40.948255 ; ..
+    87.841258 ; ..
+    11.383597 ; ..
+    19.983377 ; ..
+    56.186607 ; ..
+    58.961773 ; ..
+    68.539797 ; ..
+    89.062247 ; ..
+    50.422128 ; ..
     34.936154 ];
 mprintf("==>%10s : %08.4f %08.4f %08.4f<==\n",A,C,D);
 ==>     row 1 : 050.1534 028.0650 040.9483<==
index 8114b65..0d64b98 100644 (file)
 cd TMPDIR;
 // Deleting an existing file... Just in case...
 mdelete("dummyFile.dummy")
-TXT = [ 'I am a dummy String';0..
-        'Multi lines ';0..
-        'to check that';0..
-        ' mputl is okay';0..
-        ' on linux and windows0... '];
+TXT = [ 'I am a dummy String'; ..
+        'Multi lines '; ..
+        'to check that'; ..
+        ' mputl is okay'; ..
+        ' on linux and windows ... '];
 mputl(TXT, 'dummyFile.dummy')
 TXT2 = mgetl('dummyFile.dummy');
 if TXT2 <> TXT then bugmes();quit;end
index 81af5e8..7296fdf 100644 (file)
@@ -38,7 +38,7 @@ if msprintf("%15g",11124234534545)   <> "    1.11242e+13" then bugmes();quit;end
 if msprintf("%.1g",-35.1)            <> "-4e+01"          then bugmes();quit;end
 if msprintf("%.0g",-35.1)            <> "-4e+01"          then bugmes();quit;end
 if msprintf("%#.0g",-35.1)           <> "-4.e+01"         then bugmes();quit;end
-if msprintf("%#.0G",-35.1)           <> "-4.D+01"         then bugmes();quit;end
+if msprintf("%#.0G",-35.1)           <> "-4.E+01"         then bugmes();quit;end
 if msprintf("%.1g",0.00433)          <> "0.004"           then bugmes();quit;end
 if msprintf("%.15g",0.0000000345456) <> "3.45456e-08"     then bugmes();quit;end
 if msprintf("%.1g",11124234534545)   <> "1e+13","1e+013"  then bugmes();quit;end
@@ -51,7 +51,7 @@ if msprintf("%e",35.551234567890)    <> "3.555123e+01"    then bugmes();quit;end
 if msprintf("%e",0.00433)            <> "4.330000e-03"    then bugmes();quit;end
 if msprintf("%e",0.0000000345456)    <> "3.454560e-08"    then bugmes();quit;end
 if msprintf("%e",11124234534545)     <> "1.112423e+13"    then bugmes();quit;end
-if msprintf("%E",11124234534545)     <> "1.112423D+13"    then bugmes();quit;end
+if msprintf("%E",11124234534545)     <> "1.112423E+13"    then bugmes();quit;end
 if msprintf("%15e",-35)              <> "  -3.500000e+01" then bugmes();quit;end
 if msprintf("%15e",0.00433)          <> "   4.330000e-03" then bugmes();quit;end
 if msprintf("%15e",0.0000000345456)  <> "   3.454560e-08" then bugmes();quit;end
index 344d753..24722a4 100644 (file)
 // Copyright ENPC/INRIA
 //--------------test format %i
 [n,a]=msscanf('123','%i');
 if n<>1|a<>123 then bugmes();quit;end
 [n,a]=msscanf('     123','%i');
 if n<>1|a<>123 then bugmes();quit;end
 [n,a]=msscanf('123','%2i');
 if n<>1|a<>12 then bugmes();quit;end
 [n,a]=msscanf('123','%5i');
 //--------------test format %li
 [n,a]=msscanf('123','%li');
 if n<>1|a<>123 then bugmes();quit;end
 [n,a]=msscanf('     123','%li');
 if n<>1|a<>123 then bugmes();quit;end
 [n,a]=msscanf('123','%2li');
 if n<>1|a<>12 then bugmes();quit;end
 [n,a]=msscanf('123','%5li');
 //--------------test format %hi
 [n,a]=msscanf('123','%hi');
 if n<>1|a<>123 then bugmes();quit;end
 [n,a]=msscanf('     123','%hi');
 if n<>1|a<>123 then bugmes();quit;end
 [n,a]=msscanf('123','%2hi');
 if n<>1|a<>12 then bugmes();quit;end
 [n,a]=msscanf('123','%5hi');
 //--------------test format %d
 [n,a]=msscanf('123','%d');
 if n<>1|a<>123 then bugmes();quit;end
 [n,a]=msscanf('     123','%d');
 if n<>1|a<>123 then bugmes();quit;end
 [n,a]=msscanf('123','%2d');
 if n<>1|a<>12 then bugmes();quit;end
 [n,a]=msscanf('123','%5d');
 //--------------test format %ld
 [n,a]=msscanf('123','%ld');
 if n<>1|a<>123 then bugmes();quit;end
 [n,a]=msscanf('     123','%ld');
 if n<>1|a<>123 then bugmes();quit;end
 [n,a]=msscanf('123','%2ld');
 if n<>1|a<>12 then bugmes();quit;end
 [n,a]=msscanf('123','%5ld');
 //--------------test format %hd
 [n,a]=msscanf('123','%hd');
 if n<>1|a<>123 then bugmes();quit;end
 [n,a]=msscanf('     123','%hd');
 if n<>1|a<>123 then bugmes();quit;end
 [n,a]=msscanf('123','%2hd');
 if n<>1|a<>12 then bugmes();quit;end
 [n,a]=msscanf('123','%5hd');
 //------------- test format %n
 // Note that %n returned values are not counted in n
 s1='123 45.67 pipo';s2=' foo';
 [n,a,b,c,d,e]=msscanf(s1+s2,'%d%lf%s%n%s');
 if n<>4|a<>123|b<>45.67|c<>'pipo'|d<>length(s1)|e<>'foo' then bugmes();quit;end
 //------------- test format %u
 [n,a]=msscanf('+123','%u');
 if n<>1|a<>123 then bugmes();quit;end
 [n,a]=msscanf(' 123','%2u');
 if n<>1|a<>12 then bugmes();quit;end
 [n,a]=msscanf('+123','%5u');
 if n<>1|a<>123 then bugmes();quit;end
 //------------- test format %lu
 [n,a]=msscanf('+123','%lu');
 if n<>1|a<>123 then bugmes();quit;end
 [n,a]=msscanf(' 123','%2lu');
 if n<>1|a<>12 then bugmes();quit;end
 [n,a]=msscanf('+123','%5lu');
 if n<>1|a<>123 then bugmes();quit;end
 //------------- test format %hu
 [n,a]=msscanf('+123','%hu');
 if n<>1|a<>123 then bugmes();quit;end
 [n,a]=msscanf(' 123','%2hu');
 if n<>1|a<>12 then bugmes();quit;end
 [n,a]=msscanf('+123','%5hu');
 if n<>1|a<>123 then bugmes();quit;end
 //------------- test format %o
 [n,a]=msscanf('123','%o');
 if n<>1|a<>83 then bugmes();quit;end
 [n,a]=msscanf('     123','%o');
 if n<>1|a<>83 then bugmes();quit;end
 [n,a]=msscanf('123','%2o');
 if n<>1|a<>10 then bugmes();quit;end
 [n,a]=msscanf('123','%5o');
 if n<>1|a<>83 then bugmes();quit;end
 //------------- test format %x
 rep=10*16^2+11*16+12;
 [n,a]=msscanf('0xabc','%x');
 if n<>1|a<>rep then bugmes();quit;end
 [n,a]=msscanf('     0xabc','%x');
 if n<>1|a<>rep then bugmes();quit;end
 [n,a]=msscanf('abc','%2x');
 if n<>1|a<>10*16+11 then bugmes();quit;end
 [n,a]=msscanf('0xabc','%5x');
 if n<>1|a<>rep then bugmes();quit;end
 //------------- test format %e
 [n,a]=msscanf('123.45','%e');
 if n<>1|norm(a-123.45)>1.e-2 then bugmes();quit;end
 [n,a]=msscanf('     123.45','%e');
 if n<>1|norm(a-123.45)>1.e-2 then bugmes();quit;end
 [n,a]=msscanf('123.45','%2e');
 if n<>1| norm(a-12)>0.1 then bugmes();quit;end
 [n,a]=msscanf('123.45','%5e');
 if n<>1|norm(a-123.4)>1.e-1 then bugmes();quit;end
 //------------- test format %le
 [n,a]=msscanf('123.45','%le');
 if n<>1|a<>123.45 then bugmes();quit;end
 [n,a]=msscanf('     123.45','%le');
 if n<>1|a<>123.45 then bugmes();quit;end
 [n,a]=msscanf('123.45','%2le');
 if n<>1|a<>12 then bugmes();quit;end
 [n,a]=msscanf('123.45','%5le');
 if n<>1|a<>123.4 then bugmes();quit;end
 //------------- test format %f
 [n,a]=msscanf('123.45','%f');
 if n<>1|norm(a-123.45)>1.e-2 then bugmes();quit;end
 [n,a]=msscanf('     123.45','%f');
 if n<>1|norm(a-123.45)>1.e-2 then bugmes();quit;end
 [n,a]=msscanf('123.45','%2f');
 if n<>1| norm(a-12)>0.1 then bugmes();quit;end
 [n,a]=msscanf('123.45','%5f');
 if n<>1|norm(a-123.4)>1.e-1 then bugmes();quit;end
 //------------- test format %lf
 [n,a]=msscanf('123.45','%lf');
 if n<>1|a<>123.45 then bugmes();quit;end
 [n,a]=msscanf('     123.45','%lf');
 if n<>1|a<>123.45 then bugmes();quit;end
 [n,a]=msscanf('123.45','%2lf');
 if n<>1|a<>12 then bugmes();quit;end
 [n,a]=msscanf('123.45','%5lf');
 if n<>1|a<>123.4 then bugmes();quit;end
 //------------- test format %s
 [n,a]=msscanf('123','%s');
 if n<>1|a<>'123' then bugmes();quit;end
 [n,a]=msscanf('     123','%s');
 if n<>1|a<>'123' then bugmes();quit;end
 [n,a]=msscanf('123','%2s');
 if n<>1|a<>'12' then bugmes();quit;end
 [n,a]=msscanf('123','%5s');
 if n<>1|a<>'123' then bugmes();quit;end
 //------------- test format %c
 //note that  \n is scaned into \ and n
 [n,a,b,c,d]=msscanf(' 12\n','%c%c%c%c');
 if n<>4|a<>' '|b<>'1'|c<>'2'|d<>'\' then bugmes();quit;end
 //------------- test format [
 [n,a,b]=msscanf('012345abczoo','%[0-9abc]%s');
 if n<>2|a<>'012345abc'|b<>'zoo' then bugmes();quit;end
 //------------- test format [
 [n,a,b]=msscanf('012345abczoo','%[^c]c%s');
 if n<>2|a<>'012345ab'|b<>'zoo' then bugmes();quit;end
 //------------- test ignoring arguments
 [n,a,b]=msscanf('123 4 pipo poo','%*s%s%*s%s');
 if n<>2|a<>'4'|b<>'poo' then bugmes();quit;end
 //------------- test [ * ^
 [n,a]=msscanf('123 4 pipo Xpoo','%*[^X]X%s');
 if n<>1|a<>'poo' then bugmes();quit;end
 //------------- test ignoring arguments
 [n,a,b]=msscanf('123 4 pipo poo','%*s%s%*s%s');
 //if n<>2|a<>'4'|b<>'poo' then bugmes();quit;end
 //------------- test composed directives
 [n,a]=msscanf('123 4','123%le');
 if n<>1|a<>4 then bugmes();quit;end
 [n,a,b,c]=msscanf('xxxxx 4 test 23.45','xxxxx%d%s%le');
 if n<>3|a<>4|b<>'test'|c<>23.45 then bugmes();quit;end
 [n,a,b]=msscanf('123 456','%le%le');
 if n<>2|a<>123|b<>456 then bugmes();quit;end
 //------------- test mismatch
 [n,a]=msscanf('123 poo','123%le');
 if n<>0 then bugmes();quit;end
 //------------- test end-of-file
 [n,a]=msscanf('123','123%le');
 if n<>-1 then bugmes();quit;end
 //------------- test with matrix scan
 n=5
  n  =
  
     5.  
 A=int(10*rand(n,n));
 A1=strcat(string(A),' ','c');
-F='%d';F=strcat(F(ones(1,n)),' ');
-// all lines read as int we scan a 5x5 matrix
-A2=msscanf(-1,A1,F);
-if norm(A2-A) > %eps then pause;end
-// read just 2 lines
-A2=msscanf(2,A1,F);
-if norm(A2-A(1:2,:)) > %eps then pause;end
-// explicit columns we scan five columns
-[n,a,b,c,d,e]=msscanf(-1,A1,F);
-if n<>5 then pause;end
-if norm([a,b,c,d,e]-A) > %eps then pause;end
-// all lines read as int but we scan only 2 columns
-A2=msscanf(-1,A1,'%d%d');
-if norm(A2-A(:,1:2)) > %eps then pause;end
-// all lines read as string
-F='%s';F=strcat(F(ones(1,n)),' ');
-A2=msscanf(-1,A1,F);
-if A2<>string(A) then pause;end
-// read just 2 lines
-A2=msscanf(2,A1,F);
-if A2<>string(A(1:2,:))  then pause;end
-// mixed types read column 1 and 2 as string and others as int
-Fs='%s';Fs=strcat(Fs(ones(1,2)),' ');
-Fd='%d';Fd=strcat(Fd(ones(1,n-2)),' ');
-[n,a,b,c,d,e]=msscanf(-1,A1,Fs+' '+Fd);
-if n<>5 then pause;end
-if norm([eval(a),eval(b),c,d,e]-A) > %eps then pause;end
-// same example but returned values are compacted in L
-L=msscanf(-1,A1,Fs+' '+Fd);
-if length(L)<>3 then pause;end
-if norm(getfield(3,L)-A(:,3:n)) > %eps then pause;end
-if getfield(2,L)<>string(A(:,1:2)) then pause;end