CocoR/testFileName.mod

MODULE testFileName;

IMPORT FileName, InOut;

VAR 
  chaine : ARRAY[0..256] OF CHAR;
  f : FileName.Format;
  a, b, c : ARRAY[0..256] OF CHAR;
  
BEGIN
  InOut.WriteString("Test 1 : extraction des # éléments ");
  InOut.WriteLn;
  chaine := "/Projets/Projets-Modula2/CocoGm2/test.mod";
  FileName.Get(chaine,a,b,c);
  InOut.WriteString(a);
  InOut.WriteLn;
  InOut.WriteString(b);
  InOut.WriteLn;
  InOut.WriteString(c);
  InOut.WriteLn;
  
  InOut.WriteString("Test 2 : GetDir, GetExt,GetName ");
  InOut.WriteLn;
  FileName.GetDir(chaine,a);
  FileName.GetName(chaine,b);
  FileName.GetExt(chaine,c);
  InOut.WriteString(a);
  InOut.WriteLn;
  InOut.WriteString(b);
  InOut.WriteLn;
  InOut.WriteString(c);
  InOut.WriteLn;
  
END testFileName.