# split.pcl
#  Copyright (C) 2005 せりか式

# 文字列の分割
#   split(string, int) : array<string,1>
# 
#   in  : string          : SERIKA_str       : 対象とする文字列
#       : int             : SERIKA_delimiter : 文字列を分割するデリミタ
#   out : array<string,1> : SERIKA_list      : 分割した配列
sub
   array <string,1> split(string SERIKA_str, int SERIKA_delimiter)
begin
   int size = count(SERIKA_str, SERIKA_delimiter);
   array <string> SERIKA_list[size];

   loop
      int SERIKA_i = 1;
   until
      SERIKA_i > SERIKA_size
   begin
      SERIKA_list[SERIKA_i] = part(SERIKA_str, SERIKA_delimiter, SERIKA_i);
      SERIKA_i = SERIKA_i + 1;   
   end;

   return SERIKA_list;
end;