wordsearch 1.0.0

checksums.yaml

@@ -0,0 +1,7 @@
+---
+SHA1:
+  metadata.gz: 40b077651ba82fae5a89b3babaaaa74dc7f4d678
+  data.tar.gz: 609dd795e2d88ba662db9ec083a41c16b8040afe
+SHA512:
+  metadata.gz: fe430fbdfb154a7f8ae10b4ff2a265bf1be8ebac28b56a398cf95f16f2efbd088f1f9073dde699559505677063fec5428bb7ee47969af6cacc7737192167ad97
+  data.tar.gz: 55e7bc01df141af89c8da0318fa0f2330b04cef52ca01393d9df86f544be6076b46049baa6928f419eaa59102fa811b32564a730e56f2a313f208ab39104122d

data/.gitignore

@@ -0,0 +1,20 @@
+*.gem
+*.rbc
+*.o
+.bundle
+*.bundle
+.config
+.yardoc
+Gemfile.lock
+Makefile
+InstalledFiles
+_yardoc
+coverage
+doc/
+lib/bundler/man
+pkg
+rdoc
+spec/reports
+test/tmp
+test/version_tmp
+tmp

data/Gemfile

@@ -0,0 +1,4 @@
+source 'https://rubygems.org'
+
+# Specify your gem's dependencies in wordsearch.gemspec
+gemspec

data/LICENSE.txt

@@ -0,0 +1,22 @@
+Copyright (c) 2014 Pete Bevin
+
+MIT License
+
+Permission is hereby granted, free of charge, to any person obtaining
+a copy of this software and associated documentation files (the
+"Software"), to deal in the Software without restriction, including
+without limitation the rights to use, copy, modify, merge, publish,
+distribute, sublicense, and/or sell copies of the Software, and to
+permit persons to whom the Software is furnished to do so, subject to
+the following conditions:
+
+The above copyright notice and this permission notice shall be
+included in all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
+LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.

data/README.md

@@ -0,0 +1,29 @@
+# Wordsearch
+
+TODO: Write a gem description
+
+## Installation
+
+Add this line to your application's Gemfile:
+
+    gem 'wordsearch'
+
+And then execute:
+
+    $ bundle
+
+Or install it yourself as:
+
+    $ gem install wordsearch
+
+## Usage
+
+TODO: Write usage instructions here
+
+## Contributing
+
+1. Fork it ( http://github.com/<my-github-username>/wordsearch/fork )
+2. Create your feature branch (`git checkout -b my-new-feature`)
+3. Commit your changes (`git commit -am 'Add some feature'`)
+4. Push to the branch (`git push origin my-new-feature`)
+5. Create new Pull Request

data/Rakefile

@@ -0,0 +1 @@
+require "bundler/gem_tasks"

data/ext/wordsearch/accent.c

@@ -0,0 +1,73 @@
+#include <memory.h>
+#include <ctype.h>
+
+static char accent_map[256];
+
+void
+strip_accents(char *str)
+{
+  int i;
+  for (i = 0; str[i]; i++) {
+    int ch = str[i];
+    char unaccented = accent_map[ch];
+    if (unaccented != 0) {
+      str[i] = unaccented;
+    }
+  }
+}
+
+int
+canon(char *dst, char *str, int keep_spc)
+{
+  char *p = str;
+  char *q = dst;
+
+  for (; *p; p++) {
+    unsigned char ch = (unsigned char)*p;
+    if (accent_map[ch]) {
+      ch = accent_map[ch];
+    }
+
+    if (isalpha(ch)) {
+      *q++ = tolower(ch);
+    }
+    else if (keep_spc && ch == ' ') {
+      *q++ = ch;
+    }
+  }
+  *q = 0;
+
+  return q - dst;
+}
+
+
+static void
+add_accents(int unaccented, char *accented)
+{
+  unsigned char *p;
+
+  for (p = (unsigned char *)accented; *p; p++) {
+    accent_map[(int)*p] = unaccented;
+    accent_map[(int)*p - 0x20] = unaccented - 0x20;
+  }
+}
+
+void init_accent()
+{
+  memset(accent_map, 0, sizeof(accent_map));
+  char a[] = { 0xe0, 0xe1, 0xe2, 0xe3, 0xe4, 0xe5, 0 };
+  char c[] = { 0xe7, 0 };
+  char e[] = { 0xe8, 0xe9, 0xea, 0xeb, 0 };
+  char i[] = { 0xec, 0xed, 0xee, 0xef, 0 };
+  char n[] = { 0xf1, 0 };
+  char o[] = { 0xf2, 0xf3, 0xf4, 0xf5, 0xf6, 0xf7, 0xf8, 0 };
+  char u[] = { 0xf9, 0xfa, 0xfb, 0xfc, 0 };
+
+  add_accents('a', a);
+  add_accents('c', c);
+  add_accents('e', e);
+  add_accents('i', i);
+  add_accents('n', n);
+  add_accents('o', o);
+  add_accents('u', u);
+}

data/ext/wordsearch/accent.h

@@ -0,0 +1,2 @@
+extern void init_accent();
+extern int canon(char *dst, char *str, int keep_spc);

data/ext/wordsearch/an.c

@@ -0,0 +1,62 @@
+#include <ctype.h>
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+#include <getopt.h>
+#include "accent.h"
+#include "wordfun.h"
+
+static int
+cmp_char(const void *a, const void *b)
+{
+  const char *aa = (char *)a;
+  const char *bb = (char *)b;
+
+  return *aa - *bb;
+}
+
+
+int
+canon_sort(char *dst, char *str, int expectlen)
+{
+  int len = canon(dst, str, 0);
+  if (expectlen >= 0 && len != expectlen)
+    return 1;
+
+  qsort(dst, len, 1, cmp_char);
+  return 0;
+}
+
+static char *filename = DICT;
+
+int
+an_main(char *pattern, char *dictfile, void(*callback)(const char *word)) {
+  FILE *fp;
+  char an[100];
+  char buf[100];
+  char buf2[100];
+  int anlen;
+  int c;
+
+  init_accent();
+  canon_sort(an, pattern, -1);
+  anlen = strlen(an);
+
+  fp = fopen(dictfile, "r");
+  if (fp == 0) {
+    perror(dictfile);
+    return 1;
+  }
+  while (fgets(buf, sizeof(buf), fp) != NULL) {
+    if (canon_sort(buf2, buf, anlen))
+      continue;
+    if (strcmp(an, buf2) == 0) {
+      /* fputs(buf, stdout); */
+      buf[strlen(buf) - 1] = 0;
+      callback(buf);
+    }
+  }
+  fclose(fp);
+
+  return 0;
+}

data/ext/wordsearch/extconf.rb

@@ -0,0 +1,2 @@
+require 'mkmf'
+create_makefile("wordsearch")

data/ext/wordsearch/fw.c

@@ -0,0 +1,108 @@
+#include <ctype.h>
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+#include <getopt.h>
+#include "accent.h"
+#include "wordfun.h"
+
+int
+direct_match(const char *pat, char *str)
+{
+  int i;
+
+  for (i = 0; pat[i] && str[i]; i++) {
+    if (pat[i] == '.')
+      continue;
+    if (pat[i] == '/' && str[i] == ' ')
+      continue;
+    if (pat[i] == str[i])
+      continue;
+    return 0;
+  }
+
+  return pat[i] == str[i];  /* both 0 */
+}
+
+int
+canon_match(const char *pat, char *str)
+{
+  int i;
+
+  for (i = 0; pat[i] && str[i]; i++) {
+    if (pat[i] == '.')
+      continue;
+    if (pat[i] == str[i])
+      continue;
+    return 0;
+  }
+
+  return pat[i] == str[i];  /* both 0 */
+}
+
+int crypto_match(const char *pat, char *str)
+{
+  int i;
+  char key[256];
+  char rkey[256];
+  memset(key, 0, 256);
+  memset(rkey, 0, 256);
+
+  for (i = 0; pat[i] && str[i]; i++) {
+    int idx = pat[i];
+    int idx2 = str[i];
+    char ch = key[idx];
+    char ch2 = rkey[idx2];
+    if (ch && str[i] != ch) return 0;
+    if (ch2 && pat[i] != ch2) return 0;
+
+    key[idx] = str[i];
+    rkey[idx2] = pat[i];
+  }
+
+  return pat[i] == str[i];  /* both 0 */
+}
+
+
+int
+fw_main(const char *pattern, const char *dictfile, int cryptogram, void (*callback)(const char *word)) {
+  FILE *fp;
+  char buf[100];
+  char buf2[100];
+  int spaces;
+  int c;
+
+  init_accent();
+
+  spaces = strchr(pattern, '/') != 0;
+
+  fp = fopen(dictfile, "r");
+  if (fp == 0) {
+    perror(dictfile);
+    return 1;
+  }
+  while (fgets(buf, sizeof(buf), fp) != NULL) {
+    buf[strlen(buf) - 1] = 0;
+    if (cryptogram) {
+      canon(buf2, buf, 1);
+      if (crypto_match(pattern, buf2)) {
+        callback(buf);
+      }
+    }
+    else if (spaces) {
+      canon(buf2, buf, 1);
+      if (direct_match(pattern, buf2)) {
+        callback(buf);
+      }
+    }
+    else {
+      canon(buf2, buf, 0);
+      if (canon_match(pattern, buf2)) {
+        callback(buf);
+      }
+    }
+  }
+  fclose(fp);
+
+  return 0;
+}

data/ext/wordsearch/wordfun.h

@@ -0,0 +1 @@
+#define DICT "/usr/share/dict/anadict"

data/ext/wordsearch/wordsearch.c

@@ -0,0 +1,38 @@
+#include <ruby.h>
+
+extern int an_main(const char *pattern, const char *dictfile, void(*)(const char *word));
+extern int fw_main(const char *pattern, const char *dictfile, int cryptogram, void(*)(const char *word));
+
+void wsYield(const char *word) {
+  rb_yield(rb_str_new2(word));
+}
+
+const char *dictfile(VALUE self) {
+  VALUE dict = rb_iv_get(self, "@dict");
+  return StringValueCStr(dict);
+}
+
+VALUE an(VALUE self, VALUE pattern) {
+  const char *pat = StringValueCStr(pattern);
+  an_main(pat, dictfile(self), wsYield);
+  return Qnil;
+}
+
+VALUE fw(VALUE self, VALUE pattern) {
+  const char *pat = StringValueCStr(pattern);
+  fw_main(pat, dictfile(self), 0, wsYield);
+  return Qnil;
+}
+
+VALUE cr(VALUE self, VALUE pattern) {
+  const char *pat = StringValueCStr(pattern);
+  fw_main(pat, dictfile(self), 1, wsYield);
+  return Qnil;
+}
+
+void Init_wordsearch() {
+  VALUE wordsearch = rb_define_class("Wordsearch", rb_cObject);
+  rb_define_method(wordsearch, "an", an, 1);
+  rb_define_method(wordsearch, "fw", fw, 1);
+  rb_define_method(wordsearch, "cr", cr, 1);
+}

data/lib/wordsearch/version.rb

@@ -0,0 +1,3 @@
+class Wordsearch
+  VERSION = "1.0.0"
+end

data/lib/wordsearch.rb

@@ -0,0 +1,20 @@
+require "wordsearch/version"
+require "wordsearch/wordsearch"
+
+class Wordsearch
+  def initialize(dictionary=ENV["ANAGRAM_DICT"])
+    @dict = dictionary
+  end
+
+  def anagrams(pattern, &block)
+    an(pattern, &block)
+  end
+
+  def find_words(pattern, &block)
+    fw(pattern, &block)
+  end
+
+  def solve_cryptogram(pattern, &block)
+    cr(pattern, &block)
+  end
+end

data/wordsearch.gemspec

@@ -0,0 +1,24 @@
+# coding: utf-8
+lib = File.expand_path('../lib', __FILE__)
+$LOAD_PATH.unshift(lib) unless $LOAD_PATH.include?(lib)
+require 'wordsearch/version'
+
+Gem::Specification.new do |spec|
+  spec.name          = "wordsearch"
+  spec.version       = Wordsearch::VERSION
+  spec.authors       = ["Pete Bevin"]
+  spec.email         = ["pete@petebevin.com"]
+  spec.summary       = %q{Search dictionary for anagrams, missing letters, etc.}
+  # spec.description   = %q{TODO: Write a longer description. Optional.}
+  spec.homepage      = ""
+  spec.license       = "MIT"
+  spec.extensions    = ["ext/wordsearch/extconf.rb"]
+
+  spec.files         = `git ls-files -z`.split("\x0")
+  spec.executables   = spec.files.grep(%r{^bin/}) { |f| File.basename(f) }
+  spec.test_files    = spec.files.grep(%r{^(test|spec|features)/})
+  spec.require_paths = ["lib", "ext"]
+
+  spec.add_development_dependency "bundler", "~> 1.5"
+  spec.add_development_dependency "rake"
+end

metadata

@@ -0,0 +1,89 @@
+--- !ruby/object:Gem::Specification
+name: wordsearch
+version: !ruby/object:Gem::Version
+  version: 1.0.0
+platform: ruby
+authors:
+- Pete Bevin
+autorequire: 
+bindir: bin
+cert_chain: []
+date: 2014-02-25 00:00:00.000000000 Z
+dependencies:
+- !ruby/object:Gem::Dependency
+  name: bundler
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - ~>
+      - !ruby/object:Gem::Version
+        version: '1.5'
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - ~>
+      - !ruby/object:Gem::Version
+        version: '1.5'
+- !ruby/object:Gem::Dependency
+  name: rake
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+description: 
+email:
+- pete@petebevin.com
+executables: []
+extensions:
+- ext/wordsearch/extconf.rb
+extra_rdoc_files: []
+files:
+- .gitignore
+- Gemfile
+- LICENSE.txt
+- README.md
+- Rakefile
+- ext/wordsearch/accent.c
+- ext/wordsearch/accent.h
+- ext/wordsearch/an.c
+- ext/wordsearch/extconf.rb
+- ext/wordsearch/fw.c
+- ext/wordsearch/wordfun.h
+- ext/wordsearch/wordsearch.c
+- lib/wordsearch.rb
+- lib/wordsearch/version.rb
+- wordsearch.gemspec
+homepage: ''
+licenses:
+- MIT
+metadata: {}
+post_install_message: 
+rdoc_options: []
+require_paths:
+- lib
+- ext
+required_ruby_version: !ruby/object:Gem::Requirement
+  requirements:
+  - - '>='
+    - !ruby/object:Gem::Version
+      version: '0'
+required_rubygems_version: !ruby/object:Gem::Requirement
+  requirements:
+  - - '>='
+    - !ruby/object:Gem::Version
+      version: '0'
+requirements: []
+rubyforge_project: 
+rubygems_version: 2.0.3
+signing_key: 
+specification_version: 4
+summary: Search dictionary for anagrams, missing letters, etc.
+test_files: []