style-script 1.0.0

data/LICENSE

@@ -0,0 +1,22 @@
+Copyright (c) Danilo Lekovic, Jeremy Ashkenas
+
+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/bin/style

@@ -0,0 +1,5 @@
+#!/usr/bin/env ruby
+
+require "#{File.dirname(__FILE__)}/../lib/style_script/command_line.rb"
+
+StyleScript::CommandLine.new

data/examples/blocks.style

@@ -0,0 +1,57 @@
+# After wycats' http://yehudakatz.com/2010/02/07/the-building-blocks-of-ruby/
+
+# Sinatra.
+get '/hello', ->
+  'Hello World'
+
+
+# Append.
+append: (location, data) ->
+  path: new Pathname location
+  throw "Location does not exist" unless path.exists()
+
+  File.open path, 'a', (file) ->
+    file.puts YAML.dump data
+
+  data
+
+
+# Rubinius' File.open implementation.
+File.open: (path, mode, block) ->
+  io: new File path, mode
+
+  return io unless block
+
+  try
+    block io
+  finally
+    try
+      io.close() unless io.closed()
+    catch error
+      # nothing, just swallow them.
+
+
+# Write.
+write: (location, data) ->
+  path = new Pathname location
+  raise "Location does not exist" unless path.exists()
+
+  File.open path, 'w', (file) ->
+    return false if Digest.MD5.hexdigest(file.read()) is data.hash()
+    file.puts YAML.dump data
+    true
+
+
+# Rails' respond_to.
+index: ->
+  people: Person.find 'all'
+
+  respond_to (format) ->
+    format.html()
+    format.xml -> render { xml: people.xml() }
+
+
+# Synchronization.
+synchronize: (block) ->
+  lock()
+  try block() finally unlock()

data/examples/code.style

@@ -0,0 +1,173 @@
+# Functions:
+square: (x) -> x * x
+
+sum: (x, y) -> x + y
+
+odd: (x) -> x % 2 isnt 0
+
+even: (x) -> x % 2 is 0
+
+run_loop: ->
+  fire_events((e) -> e.stopPropagation())
+  listen()
+  wait()
+
+# Objects:
+dense_object_literal: {one: 1, two: 2, three: 3}
+
+spaced_out_multiline_object: {
+  pi: 3.14159
+  list: [1, 2, 3, 4]
+  regex: /match[ing](every|thing|\/)/gi
+  three: new Idea()
+
+  inner_obj: {
+    freedom: -> _.freedom()
+  }
+}
+
+# Arrays:
+stooges: [{moe: 45}, {curly: 43}, {larry: 46}]
+
+exponents: [(x) -> x, (x) -> x * x, (x) -> x * x * x]
+
+empty: []
+
+multiline: [
+  'line one'
+  'line two'
+]
+
+# Conditionals and ternaries.
+if submarine.shields_up
+  full_speed_ahead()
+  fire_torpedos()
+else if submarine.sinking
+  abandon_ship()
+else
+  run_away()
+
+eldest: if 25 > 21 then liz else marge
+
+decoration: medal_of_honor if war_hero
+
+go_to_sleep() unless style
+
+# Returning early:
+race: ->
+  run()
+  walk()
+  crawl()
+  if tired then return sleep()
+  race()
+
+# Conditional assignment:
+good ||= evil
+wine &&= cheese
+
+# Nested property access and calls.
+((moon.turn(360))).shapes[3].move({x: 45, y: 30}).position['top'].offset('x')
+
+a: b: c: 5
+
+# Embedded JavaScript.
+callback(
+  `function(e) { e.stop(); }`
+)
+
+# Try/Catch/Finally/Throw.
+try
+  all_hell_breaks_loose()
+  dogs_and_cats_living_together()
+  throw "up"
+catch error
+  print(error)
+finally
+  clean_up()
+
+try all_hell_breaks_loose() catch error then print(error) finally clean_up()
+
+# While loops, break and continue.
+while demand > supply
+  sell()
+  restock()
+
+while supply > demand then buy()
+
+while true
+  break if broken
+  continue if continuing
+
+# Unary operators.
+!!true
+
+# Lexical scoping.
+v_1: 5
+change_a_and_set_b: ->
+  v_1: 10
+  v_2: 15
+v_2: 20
+
+# Array comprehensions.
+supper: food.capitalize() for food in ['toast', 'cheese', 'wine']
+
+drink(bottle) for bottle, i in ['soda', 'wine', 'lemonade'] when even(i)
+
+# Switch statements ("else" serves as a default).
+activity: switch day
+  when "Tuesday"   then eat_breakfast()
+  when "Sunday"    then go_to_church()
+  when "Saturday"  then go_to_the_park()
+  when "Wednesday"
+    if day is bingo_day
+      go_to_bingo()
+    else
+      eat_breakfast()
+      go_to_work()
+      eat_dinner()
+  else go_to_work()
+
+# Semicolons can optionally be used instead of newlines.
+wednesday: -> eat_breakfast(); go_to_work(); eat_dinner()
+
+# Array slice literals.
+zero_to_nine: [0, 1, 2, 3, 4, 5, 6, 7, 8, 9]
+three_to_six: zero_to_nine[3..6]
+
+# Multiline strings with inner quotes.
+story: "Lorem ipsum dolor \"sit\" amet, consectetuer adipiscing elit,
+sed diam nonummy nibh euismod tincidunt ut laoreet dolore magna
+aliquam erat volutpat. Ut wisi enim ad."
+
+# Inheritance and calling super.
+Animal: ->
+Animal::move: (meters) ->
+  alert(this.name + " moved " + meters + "m.")
+
+Snake: (name) -> this.name: name
+Snake extends Animal
+Snake::move: ->
+  alert('Slithering...')
+  super(5)
+
+Horse: (name) -> this.name: name
+Horse extends Animal
+Horse::move: ->
+  alert('Galloping...')
+  super(45)
+
+sam: new Snake("Sammy the Snake")
+tom: new Horse("Tommy the Horse")
+
+sam.move()
+tom.move()
+
+# Numbers.
+a_googol:   1e100
+hex:        0xff0000
+negative:   -1.0
+infinity:   Infinity
+nan:        NaN
+
+# Deleting.
+delete secret.identity

data/examples/hello.style

@@ -0,0 +1 @@
+console.log "Hey"

data/examples/poignant.style

@@ -0,0 +1,186 @@
+# Examples from the Poignant Guide.
+
+# ['toast', 'cheese', 'wine'].each { |food| print food.capitalize }
+
+['toast', 'wine', 'cheese'].each (food) -> print(food.capitalize())
+
+
+
+# class LotteryTicket
+#   def picks;           @picks;            end
+#   def picks=(var);     @picks = var;      end
+#   def purchased;       @purchased;        end
+#   def purchased=(var); @purchased = var;  end
+# end
+
+LotteryTicket: {
+  get_picks:          -> this.picks
+  set_picks:      (nums) -> this.picks: nums
+  get_purchase:       -> this.purchase
+  set_purchase: (amount) -> this.purchase: amount
+}
+
+
+
+# class << LotteryDraw
+#   def play
+#     result = LotteryTicket.new_random
+#     winners = {}
+#     @@tickets.each do |buyer, ticket_list|
+#       ticket_list.each do |ticket|
+#         score = ticket.score( result )
+#         next if score.zero?
+#         winners[buyer] ||= []
+#         winners[buyer] << [ ticket, score ]
+#       end
+#     end
+#     @@tickets.clear
+#     winners
+#   end
+# end
+
+LotteryDraw: {
+  play: ->
+    result:   LotteryTicket.new_random()
+    winners:  {}
+    this.tickets.each (buyer, ticket_list) ->
+      ticket_list.each (ticket) ->
+        score: ticket.score(result)
+        return if score is 0
+        winners[buyer] ||= []
+        winners[buyer].push([ticket, score])
+    this.tickets: {}
+    winners
+}
+
+
+
+# module WishScanner
+#   def scan_for_a_wish
+#     wish = self.read.detect do |thought|
+#       thought.index( 'wish: ' ) == 0
+#     end
+#     wish.gsub( 'wish: ', '' )
+#   end
+# end
+
+WishScanner: {
+  scan_for_a_wish: ->
+    wish: this.read().detect((thought) -> thought.index('wish: ') is 0)
+    wish.replace('wish: ', '')
+}
+
+
+
+# class Creature
+#
+#   # This method applies a hit taken during a fight.
+#   def hit( damage )
+#     p_up = rand( charisma )
+#     if p_up % 9 == 7
+#       @life += p_up / 4
+#       puts "[#{ self.class } magick powers up #{ p_up }!]"
+#     end
+#     @life -= damage
+#     puts "[#{ self.class } has died.]" if @life <= 0
+#   end
+#
+#   # This method takes one turn in a fight.
+#   def fight( enemy, weapon )
+#     if life <= 0
+#       puts "[#{ self.class } is too dead to fight!]"
+#       return
+#     end
+#
+#     # Attack the opponent
+#     your_hit = rand( strength + weapon )
+#     puts "[You hit with #{ your_hit } points of damage!]"
+#     enemy.hit( your_hit )
+#
+#     # Retaliation
+#     p enemy
+#     if enemy.life > 0
+#       enemy_hit = rand( enemy.strength + enemy.weapon )
+#       puts "[Your enemy hit with #{ enemy_hit } points of damage!]"
+#       self.hit( enemy_hit )
+#     end
+#   end
+#
+# end
+
+Creature : {
+
+  # This method applies a hit taken during a fight.
+  hit: (damage) ->
+    p_up: Math.rand(this.charisma)
+    if p_up % 9 is 7
+      this.life += p_up / 4
+      puts("[" + this.name + " magick powers up " + p_up + "!]")
+    this.life -= damage
+    if this.life <= 0 then puts("[" + this.name + " has died.]")
+
+  # This method takes one turn in a fight.
+  fight: (enemy, weapon) ->
+    if this.life <= 0 then return puts("[" + this.name + "is too dead to fight!]")
+
+    # Attack the opponent.
+    your_hit: Math.rand(this.strength + weapon)
+    puts("[You hit with " + your_hit + "points of damage!]")
+    enemy.hit(your_hit)
+
+    # Retaliation.
+    puts(enemy)
+    if enemy.life > 0
+      enemy_hit: Math.rand(enemy.strength + enemy.weapon)
+      puts("[Your enemy hit with " + enemy_hit + "points of damage!]")
+      this.hit(enemy_hit)
+
+}
+
+
+
+# # Get evil idea and swap in code words
+# print "Enter your new idea: "
+# idea = gets
+# code_words.each do |real, code|
+#   idea.gsub!( real, code )
+# end
+#
+# # Save the jibberish to a new file
+# print "File encoded.  Please enter a name for this idea: "
+# idea_name = gets.strip
+# File::open( "idea-" + idea_name + ".txt", "w" ) do |f|
+#   f << idea
+# end
+
+# Get evil idea and swap in code words
+print("Enter your new idea: ")
+idea: gets()
+code_words.each((real, code) -> idea.replace(real, code))
+
+# Save the jibberish to a new file
+print("File encoded. Please enter a name for this idea: ")
+idea_name: gets().strip()
+File.open("idea-" + idea_name + '.txt', 'w', (file) -> file.write(idea))
+
+
+
+# def wipe_mutterings_from( sentence )
+#   unless sentence.respond_to? :include?
+#     raise ArgumentError,
+#       "cannot wipe mutterings from a #{ sentence.class }"
+#   end
+#   while sentence.include? '('
+#     open = sentence.index( '(' )
+#     close = sentence.index( ')', open )
+#     sentence[open..close] = '' if close
+#   end
+# end
+
+wipe_mutterings_from: (sentence) ->
+  throw new Error("cannot wipe mutterings") unless sentence.indexOf
+  while sentence.indexOf('(') >= 0
+    open:     sentence.indexOf('(') - 1
+    close:    sentence.indexOf(')') + 1
+    sentence: sentence[0..open] + sentence[close..sentence.length]
+    sentence