gistfile1.rb

class Foo
  def self.pat_test(subject, pattern) 
  
   notfound = -1
   iSub = 0
   rtnIndex = notfound 
   isPat  = false; 
   subjectLen = subject.length; 
   patternLen = pattern.length; 
  
   while (isPat == false && iSub + patternLen - 1 < subjectLen) 
      if (subject[iSub] == pattern[0]) 
         rtnIndex = iSub 
         isPat = true 
         (1..(patternLen-1)).each do |iPat|
            if (subject[iSub + iPat] != pattern[iPat]) 
               rtnIndex = notfound; 
               isPat = false; 
               break 
            end
         end 
      end 
    iSub = iSub + 1 
   end 
   [rtnIndex, iSub] 
end 
end