strUtils/SplitV1.def

DEFINITION MODULE SplitV1;

TYPE
  Element = RECORD
              pos : CARDINAL;
              element : ARRAY[0..255] OF CHAR;
            END;  
  Structure = ARRAY[0..20] OF Element;    
 
VAR 
  trimMode    : BOOLEAN;
  allTrimMode : BOOLEAN;
  noDupMode   : BOOLEAN;
  rtrim       : BOOLEAN;
  ltrim       : BOOLEAN;
  
                  
PROCEDURE Ltrim ( VAR src : ARRAY OF CHAR; separator : CHAR  );
  
PROCEDURE Rtrim ( VAR src : ARRAY OF CHAR ; separator : CHAR );
    
PROCEDURE removeDuplicate ( VAR src : ARRAY OF CHAR ; separator : CHAR );             
                  
PROCEDURE SplitStr(s : ARRAY OF CHAR; separator : CHAR; VAR out : Structure); 

PROCEDURE InitStructure ( VAR out : Structure);

END SplitV1.