Soundex and other phonetic matching algorithms

Basic SoundEx in C, from
https://www.codedrome.com/the-soundex-algorithm-in-c/

• void soundex(char* name, char* s)
  {
      int si = 1;
      char c;
  
      //                 ABCDEFGHIJKLMNOPQRSTUVWXYZ
      char mappings[] = "01230120022455012623010202";
  
      s[0] = toupper(name[0]);
  
      for(int i = 1, l = strlen(name); i < l; i++)
      {
          c = toupper(name[i]) - 65;
  
          if(c >= 0 && c <= 25)
          {
              if(mappings[c] != '0')
              {
                  if(mappings[c] != s[si-1])
                  {
                      s[si] = mappings[c];
                      si++;
                  }
  
                  if(si > 3)
                  {
                      break;
                  }
              }
          }
      }
  
      if(si <= 3)
      {
          while(si <= 3)
          {
              s[si] = '0';
              si++;
          }
      }
  }

  +

Also:

• DBase III Routines as of 2000/01/31 "soundex for Soundex} { code (sound alike) operations } { D..." 37601 bytes
• Soundex and other phonetic matching algorithms as of 2022/09/29 "Soundex and other phonetic matching ..." 1616 bytes
• SOUNDEX.PAS as of 2000/01/31 "Soundex hashing. Here is my Implementation of that: } Unit Soundex; Interface Type Sdx..." 1577 bytes
• language delphi swag strings as of 2001/03/30 8977 bytes
• Pattern Matching and checking as of 2000/01/31 "Contributor: FERNAND LEMOINE UNIT match; (* DESCRIPTION : * 12 tests of character sets * 8 ..." 13250 bytes
• Strings as of 2022/09/29 "String ..." 1497 bytes
• language delphi swag fileandencryption as of 2001/03/30 2376 bytes
• language delphi swag maincat as of 2000/01/31 "ARCHIVE HANDLING ..." 127562 bytes
• SQL as of 2016/12/17 "Structured Query ..." 15934 bytes

See also:

• http://aspell.net/metaphone/ The Metaphone Algorithm+

  .