diff options
Diffstat (limited to 'macros/GeneralFunctions/SCI2Cstrncmp.sci')
-rw-r--r-- | macros/GeneralFunctions/SCI2Cstrncmp.sci | 54 |
1 files changed, 27 insertions, 27 deletions
diff --git a/macros/GeneralFunctions/SCI2Cstrncmp.sci b/macros/GeneralFunctions/SCI2Cstrncmp.sci index 54a5e148..1d9f7c91 100644 --- a/macros/GeneralFunctions/SCI2Cstrncmp.sci +++ b/macros/GeneralFunctions/SCI2Cstrncmp.sci @@ -1,27 +1,27 @@ -function res = SCI2Cstrncmp(s1,s2,n)
-// function res = SCI2Cstrncmp(s1,s2,n)
-// -----------------------------------------------------------------
-// This function compares first n characters of strings s1 and s2.
-// SCI2Cstrncmp(s1,s2,n) returns 1logical T (true) if the first n characters of
-// the strings s1 and s2 are the same and logical 0 (false) otherwise.
-//
-// Input data:
-// //NUT: add description here
-//
-// Output data:
-// //NUT: add description here
-//
-// Status:
-// 16-Apr-2007 -- Nutricato Raffaele: Author.
-//
-// Copyright 2007 Raffaele Nutricato.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
-
-// ------------------------------
-// --- Check input arguments. ---
-// ------------------------------
-SCI2CNInArgCheck(argn(2),3,3);
-
-res = (part(s1,1:n) == part(s2,1:n));
-endfunction
+function res = SCI2Cstrncmp(s1,s2,n) +// function res = SCI2Cstrncmp(s1,s2,n) +// ----------------------------------------------------------------- +// This function compares first n characters of strings s1 and s2. +// SCI2Cstrncmp(s1,s2,n) returns 1logical T (true) if the first n characters of +// the strings s1 and s2 are the same and logical 0 (false) otherwise. +// +// Input data: +// //NUT: add description here +// +// Output data: +// //NUT: add description here +// +// Status: +// 16-Apr-2007 -- Nutricato Raffaele: Author. +// +// Copyright 2007 Raffaele Nutricato. +// Contact: raffaele.nutricato@tiscali.it +// ----------------------------------------------------------------- + +// ------------------------------ +// --- Check input arguments. --- +// ------------------------------ +SCI2CNInArgCheck(argn(2),3,3); + +res = (part(s1,1:n) == part(s2,1:n)); +endfunction |