ycn 0.0.1

data/History.txt

@@ -0,0 +1,4 @@
+== 0.0.1 2008-09-22
+
+* 1 major enhancement:
+  * Initial release

data/License.txt

@@ -0,0 +1,20 @@
+Copyright (c) 2008 FIXME full name
+
+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/Manifest.txt

@@ -0,0 +1,36 @@
+History.txt
+License.txt
+Manifest.txt
+PostInstall.txt
+README.txt
+Rakefile
+bin/ycn-gen
+config/hoe.rb
+config/requirements.rb
+lib/ycn.rb
+lib/ycn/version.rb
+lib/ycn/ycn.rb
+lib/ycn/header.rb
+lib/ycn/java_klass.rb
+lib/ycn/klass.rb
+lib/ycn/string_manip.rb
+lib/ycn/ycn_functions.rb
+script/console
+script/console.cmd
+script/destroy
+script/destroy.cmd
+script/generate
+script/generate.cmd
+script/txt2html
+script/txt2html.cmd
+setup.rb
+tasks/deployment.rake
+tasks/environment.rake
+tasks/website.rake
+test/test_helper.rb
+test/test_ycn.rb
+website/index.html
+website/index.txt
+website/javascripts/rounded_corners_lite.inc.js
+website/stylesheets/screen.css
+website/template.html.erb

data/PostInstall.txt

@@ -0,0 +1,7 @@
+
+For more information on ycn, see http://ycn.rubyforge.org
+
+NOTE: Change this information in PostInstall.txt 
+You can also delete it if you don't want it.
+
+

data/README.txt

@@ -0,0 +1,48 @@
+= ycn
+
+* FIX (url)
+
+== DESCRIPTION:
+
+FIX (describe your package)
+
+== FEATURES/PROBLEMS:
+
+* FIX (list of features or problems)
+
+== SYNOPSIS:
+
+  FIX (code sample of usage)
+
+== REQUIREMENTS:
+
+* FIX (list of requirements)
+
+== INSTALL:
+
+* FIX (sudo gem install, anything else)
+
+== LICENSE:
+
+(The MIT License)
+
+Copyright (c) 2008 FIXME full name
+
+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/Rakefile

@@ -0,0 +1,4 @@
+require 'config/requirements'
+require 'config/hoe' # setup Hoe + all gem configuration
+
+Dir['tasks/**/*.rake'].each { |rake| load rake }

data/bin/ycn-gen

@@ -0,0 +1,96 @@
+#!/usr/bin/env ruby
+
+BASE_DIR = Dir.pwd
+PROJECT_DIR = "#{BASE_DIR}/#{ARGV[0]}"
+PCG_DIR = "#{PROJECT_DIR}/pcg"
+
+Dir.mkdir(PROJECT_DIR)
+Dir.mkdir(PCG_DIR)
+
+example_file_content = <<TEXT
+require 'ycn'
+
+project = {
+  :name    => "JavaExprat4AK - Le polymorphisme, les classes " +
+              "abstraites et les interfaces.",
+  :desc    => "Gère une collection de cowboys, indiens, brigands " +
+              "et dames en détresse, ainsi que leurs boissons.",
+  :author  => "Andrew Koster",
+  
+  :package => 'cowboys et indiens'
+}
+
+Ycn.generate project, :java
+TEXT
+
+example_package_content = <<TEXT
+humain:
+  new:
+    - nom, texte_parole
+  properties:
+    String:
+      - nom
+      - boisson_favorite = "de l'eau"
+    StringBuilder:
+      - texte_parole
+  methods:
+    void:
+      parler(string): |
+        getTexteParole().append(
+          "(" + getNom() + ") - " + psParoles + "\\n")
+      commenter(string): |
+        getTexteParole().append(psCommentaire + "\\n")
+      se_presenter: |
+        parler("Bonjour, je suis " + getNom() +
+          " et j'aime " + getBoissonFavorite() + ".")
+      boire: |
+        parler("Ah! Un bon verre avec " +
+          getBoissonFavorite() + "! GLOUPS!")
+
+indien < humain:
+  new:
+    - nom, texte_parole
+    - nom, texte_parole, plumes
+  properties:
+    int:
+      - plumes = 0
+    String:
+      - totem = "Coyote"
+      - boisson_favorite = "du jus de racine"  
+  methods:
+    void:
+      se_presenter: |
+        super.sePresenter()
+        parler("Mon totem est le " + getTotem() +
+          " et j'ai " + getPlumes() + " plume(s).")
+      scalper(cowboy): |
+        pvVisagePale.seFaireScalper(this)
+        setPlumes(getPlumes() + 1)
+          
+cowboy < humain:
+  new:
+    - nom, texte_parole
+    - nom, texte_parole, popularite
+  properties:
+    int:
+      - popularite = 0
+    String:
+      - adjectif = "vaillant"
+  methods:
+    void:
+      se_presenter: |
+        super.sePresenter()
+        parler("Je suis " + getAdjectif() + " et je suis" +
+          " populaire pour la libération de " +
+          getPopularite() + " dame(s).")
+      se_faire_scalper(indien): |
+        parler("Aïe! Ma tête, " + piIndien.getNom() + " !")
+TEXT
+
+open( "#{PROJECT_DIR}/ycn_example.rb", 'w' ) { |file|
+  file.print example_file_content
+}
+
+open( "#{PCG_DIR}/cowboys_et_indiens.yml", 'w' ) { |file|
+  file.print example_package_content
+}

data/config/hoe.rb

@@ -0,0 +1,74 @@
+require 'ycn/version'
+
+AUTHOR = 'Andrew Koster'  # can also be an array of Authors
+EMAIL = "ak_avenger@hotmail.com"
+DESCRIPTION = "Yaml Class Notation (YCN)"
+GEM_NAME = 'ycn' # what ppl will type to install your gem
+RUBYFORGE_PROJECT = 'ycn' # The unix name for your project
+HOMEPATH = "http://#{RUBYFORGE_PROJECT}.rubyforge.org"
+DOWNLOAD_PATH = "http://rubyforge.org/projects/#{RUBYFORGE_PROJECT}"
+EXTRA_DEPENDENCIES = [
+#  ['activesupport', '>= 1.3.1']
+['configatron', '>= 1.2.1']
+]    # An array of rubygem dependencies [name, version]
+
+@config_file = 'C:/.rubyforge/user-config.yml'
+@config = nil
+RUBYFORGE_USERNAME = "naturalcode"
+def rubyforge_username
+  unless @config
+    begin
+      @config = YAML.load(File.read(File.expand_path(@config_file)))
+    rescue
+      puts <<-EOS
+ERROR: No rubyforge config file found: #{@config_file}
+Run 'rubyforge setup' to prepare your env for access to Rubyforge
+ - See http://newgem.rubyforge.org/rubyforge.html for more details
+      EOS
+      exit
+    end
+  end
+  RUBYFORGE_USERNAME.replace @config["username"]
+end
+
+
+REV = nil
+# UNCOMMENT IF REQUIRED:
+# REV = YAML.load(`svn info`)['Revision']
+VERS = Ycn::VERSION::STRING + (REV ? ".#{REV}" : "")
+RDOC_OPTS = ['--quiet', '--title', 'ycn documentation',
+    "--opname", "index.html",
+    "--line-numbers",
+    "--main", "README",
+    "--inline-source"]
+
+class Hoe
+  def extra_deps
+    @extra_deps.reject! { |x| Array(x).first == 'hoe' }
+    @extra_deps
+  end
+end
+
+# Generate all the Rake tasks
+# Run 'rake -T' to see list of generated tasks (from gem root directory)
+$hoe = Hoe.new(GEM_NAME, VERS) do |p|
+  p.developer(AUTHOR, EMAIL)
+  p.description = DESCRIPTION
+  p.summary = DESCRIPTION
+  p.url = HOMEPATH
+  p.rubyforge_name = RUBYFORGE_PROJECT if RUBYFORGE_PROJECT
+  p.test_globs = ["test/**/test_*.rb"]
+  p.clean_globs |= ['**/.*.sw?', '*.gem', '.config', '**/.DS_Store']  #An array of file patterns to delete on clean.
+
+  # == Optional
+  p.changes = p.paragraphs_of("History.txt", 0..1).join("\n\n")
+  #p.extra_deps = EXTRA_DEPENDENCIES
+
+    #p.spec_extras = {}    # A hash of extra values to set in the gemspec.
+  end
+
+CHANGES = $hoe.paragraphs_of('History.txt', 0..1).join("\\n\\n")
+PATH    = (RUBYFORGE_PROJECT == GEM_NAME) ? RUBYFORGE_PROJECT : "#{RUBYFORGE_PROJECT}/#{GEM_NAME}"
+$hoe.remote_rdoc_dir = File.join(PATH.gsub(/^#{RUBYFORGE_PROJECT}\/?/,''), 'rdoc')
+$hoe.rsync_args = '-av --delete --ignore-errors'
+$hoe.spec.post_install_message = File.open(File.dirname(__FILE__) + "/../PostInstall.txt").read rescue ""

data/config/requirements.rb

@@ -0,0 +1,15 @@
+require 'fileutils'
+include FileUtils
+
+require 'rubygems'
+%w[rake hoe newgem rubigen].each do |req_gem|
+  begin
+    require req_gem
+  rescue LoadError
+    puts "This Rakefile requires the '#{req_gem}' RubyGem."
+    puts "Installation: gem install #{req_gem} -y"
+    exit
+  end
+end
+
+$:.unshift(File.join(File.dirname(__FILE__), %w[.. lib]))

data/lib/ycn/header.rb

@@ -0,0 +1,10 @@
+module Header
+  def self.configure_from hash
+    configatron do |c|
+      c.program_name = hash[:name]
+      c.author_name  = hash[:author]
+      c.description  = hash[:desc]
+      c.package      = hash[:pack]
+    end
+  end
+end

data/lib/ycn/java_klass.rb

@@ -0,0 +1,169 @@
+module JavaKlass
+  def java_header 
+    text = <<HEAD
+Programme :    #{configatron.program_name}
+Auteur(s) :    #{configatron.author_name}
+Date :         #{Time.now.day}/#{Time.now.month}/#{Time.now.year}
+Description :  #{configatron.description}
+HEAD
+
+    '/*' + text.split("\n").map{ |l|
+      "\n *  #{l}"
+    }.join + "\n */\n"
+  end
+  
+  def to_java
+    java_header+
+    java_package+
+    java_imports+
+    java_class_declaration+
+    java_properties+
+    java_constructors+
+    java_methods+
+    java_g_s_etters+
+    java_bottom
+  end
+  
+  def java_package
+    @package ? "\npackage pcg#{camelize @package};\n" : ''
+  end
+  
+  def java_imports
+    text = ''
+    if properties
+      text += properties.keys.map{ |type|
+        type == 'Date' ? "\nimport java.util.Date;\n" : nil
+      }.join
+    end
+    text
+  end
+  
+  def java_class_declaration
+<<TEXT
+
+public class #{name}#{" extends #{parent.name}" if parent}
+{
+TEXT
+  end
+  
+  def java_properties
+    text = ''
+    
+    if properties
+      properties.each_pair do |type, prop_names|
+        if prop_names.class == Array
+          empty_set = true
+          
+          text += prop_names.map { |name|
+            if prop_default_overrides[name]
+              ''
+            else
+              empty_set = false
+              name_displayed = styled_var :riki, name, :g, type
+              value_assignment = prop_defaults[name] ? " = #{prop_defaults[name]}" : nil
+              
+              "  private #{type} #{name_displayed}#{value_assignment};\n"
+            end
+          }.join# + (empty_set ? '' : "\n")
+          
+        end
+      end
+    end
+    
+    text = (text == '') ? '' : "\n#{text}"
+  end
+  
+  def java_constructors
+    text = <<TEXT
+    
+  // Constructeur par défaut
+  public #{name}()
+  {#{_java_prop_default_overrides}
+TEXT
+    #~ text += 
+    text += "#{"\n" unless prop_default_overrides.keys.size > 0}  }\n"
+    if construct_params
+      #~ pp construct_params
+      text += construct_params.map{ |constructor|
+        "\n  public #{name}(" +
+        constructor.map { |param|
+          type = find_type(param)
+          "#{type} #{styled_var :riki, param, :p, type}"
+        }.join(', ') + ")\n  {\n" +
+        constructor.map { |param|
+          type = find_type(param)
+          "    set#{camelize param}(#{styled_var :riki, param, :p, type});"
+        }.join("\n") +
+        _java_prop_default_overrides + "\n  }\n"
+      }.join
+    end
+    text
+  end
+  
+  def _java_prop_default_overrides
+    p = prop_default_overrides.keys.map { |property|
+      "\n    super.set#{camelize property}(#{prop_default_overrides[property]});"
+    }.join("\n")
+  end
+  
+  def java_methods
+    text = ""
+    #~ puts "#{pp(methods)}"
+    if methods.class == Hash
+      methods.each_pair do |type, meth|
+        #~ puts 't' + type
+        if meth.class == Hash
+          meth.each_pair { |m, contents|
+            
+            if method_params[m]
+              parameters = method_params[m].map{ |item|
+                "#{camelize item} #{styled_var :riki, item, :p, item}"
+              }.join(', ')
+            end
+            
+            text += "\n  public #{type} #{low_camelize m}(" +
+            "#{parameters if parameters})\n" +
+            "  {\n#{contents.split("\n").map{ |l| "    #{l}#{';' if !(l =~ /(\+|\{|\}|\()\z/)}"}.join("\n") if contents}\n  }\n"
+          }
+        else
+          puts "Warning! No method type for #{type}"
+        end
+      end
+      
+    else
+      
+    end
+    text
+  end
+  
+  def java_g_s_etters
+    text = ''
+    if properties
+      properties.each_pair do |type, prop_names|
+        text += prop_names.map { |name|
+          unless prop_default_overrides[name]
+<<TEXT
+
+  public #{type} get#{camelize name}()
+  {
+    return #{styled_var :riki, name, :g, type };
+  }
+  
+  public void set#{camelize name}(#{type} #{styled_var :riki, name, :p, type})
+  {
+    #{styled_var :riki, name, :g, type } = #{styled_var :riki, name, :p, type}; 
+  }
+TEXT
+          else
+            ''
+          end
+        }.join
+      end
+    end
+    text
+  end
+  
+  def java_bottom
+    '}'
+  end
+end

data/lib/ycn/klass.rb

@@ -0,0 +1,95 @@
+require "ycn/java_klass"
+require "ycn/string_manip"
+
+class Klass
+  attr_accessor :name, :parent, :properties, :methods,
+  :method_params, :construct_params, :prop_defaults,
+  :prop_default_overrides
+  
+  include JavaKlass
+  include StringManip
+  
+  def initialize name, parent, properties, methods,
+  construct_params=nil, package=nil
+  
+    @name = camelize(name)
+    @parent = parent ? camelize(parent) : nil
+    @properties = properties
+    @methods = methods
+    _extract_method_params
+    @construct_params = _organize_constructor_params(construct_params)
+    @package = package
+  end
+  
+  def _extract_method_params
+    return nil unless @methods
+    @method_params = {}
+    
+    @methods.each_pair do |type, meths|
+      meths.each_key do |m|
+        if m =~ /\(.+\)/
+          m_parameters =
+            /\(.*\)/.match(m).
+              to_s[1..-2].split(/ |, /)
+          
+          m_name_only = m.dup.sub!(/\(.*\)/, '')
+          
+          meths.store(m_name_only, meths[m])
+          meths.delete(m)
+          @method_params.store(m_name_only, m_parameters)
+        end
+      end
+    end
+  end
+  
+  def _organize_constructor_params params_array
+    return nil unless params_array
+    params_array.map{ |params| params.split(/ |, /) }
+  end
+  
+  def extract_default_values
+    @prop_defaults = {}
+    return nil unless @properties
+    
+    @properties.each_pair do |type, props|
+      props.map! do |p|
+        if /[^(\s*=\s*)]+\s*=\s*/.match(p)
+          default_value = p.sub(/[^(\s*=\s*)]+\s*=\s*/, '')
+          p.sub!(/\s*=\s*.*/, '')
+          @prop_defaults.store(p, default_value)
+        end
+        p
+      end
+    end
+  end
+  
+  def fix_default_overrides
+    @prop_default_overrides = {}
+    return nil unless @parent && @prop_defaults
+    
+    @prop_defaults.each_pair do |property, value|
+      type = find_type(property)
+      
+      if @parent.properties && @parent.properties[type]
+        if @parent.properties[type].include? property
+          @prop_default_overrides[property] =
+            @prop_defaults.delete property
+        end
+      end
+    end
+  end
+  
+  def find_type property_name
+    prop_hash = {}
+    return nil unless @properties
+    
+    @properties.each_pair do |type, props|
+      props.each { |p| prop_hash.store(p, type) }
+    end
+    
+    type = prop_hash[property_name]
+    
+    (!type && parent) ?
+      parent.find_type(property_name) : type
+  end
+end

data/lib/ycn/string_manip.rb

@@ -0,0 +1,31 @@
+module StringManip
+  def styled_var style, variable_name, scope=nil, type=nil
+    {
+    :riki => Proc.new do
+      s = scope.to_s.slice(0..0)
+      t = type.to_s.slice(0..0)
+      "#{s}#{t}".downcase + camelize(variable_name)
+    end
+    }[style].call
+  end
+  
+  def camelize string
+    string.gsub('_', ' ').split(' ').map { |word|
+      word.capitalize
+    }.join
+  end
+  
+  def low_camelize string
+    w = 0
+    string.gsub('_', ' ').split(' ').map { |word|
+      w += 1
+      w == 1 ? word.downcase : word.capitalize
+    }.join
+  end
+  
+  def self.camelize string
+    string.gsub('_', ' ').split(' ').map { |word|
+      word.capitalize
+    }.join
+  end
+end

data/lib/ycn/version.rb

@@ -0,0 +1,9 @@
+module Ycn
+  module VERSION #:nodoc:
+    MAJOR = 0
+    MINOR = 0
+    TINY  = 1
+
+    STRING = [MAJOR, MINOR, TINY].join('.')
+  end
+end

data/lib/ycn/ycn.rb

@@ -0,0 +1,47 @@
+module Ycn
+  def self.generate project_hash, language
+    puts 'moo'
+    $base_dir = Dir.pwd
+
+    require 'yaml'
+    require 'configatron'
+    require 'ycn/klass'
+    require 'ycn/ycn_functions'
+    require 'ycn/header'
+    require 'ycn/string_manip'
+    
+    Header.configure_from project_hash
+    project_hash[:package] =
+      project_hash[:package].to_s.gsub(' ', '_')
+    configatron { |c| c.package = project_hash[:package] }
+
+    classes_yaml = YAML::load(
+      correct_for_blank_last_method( open(
+      "#{$base_dir}/pcg/#{project_hash[:package]}.yml", 'r')))
+
+    classes = []
+
+    classes_yaml.each_pair do |class_name, attr_hash|
+      classes << attribute_hash_to_class( class_name, attr_hash )
+    end
+
+    fix_inheritance_and_overrides classes
+
+    generation_dir = "#{$base_dir}/generated_code"
+    package_name = "pcg#{StringManip::camelize configatron.package}"
+    output_dir = "#{generation_dir}/#{package_name}"
+    
+    Dir.mkdir generation_dir unless File.exists? generation_dir
+    Dir.mkdir output_dir     unless File.exists? output_dir
+    
+    classes.each do |klass|
+      file_name = "#{klass.name}.#{extension[language]}"
+      
+      File.open( "#{output_dir}/#{file_name}", 'w' ) { |f|
+        output = eval("klass.to_#{language.to_s.downcase}")
+        puts output + "\n"
+        f.print output
+      }
+    end
+  end
+end