fyi

#!/usr/bin/env fancy
# -*- fancy -*-

try {
  if: (ARGV[1]) then: {
    ident = ARGV rest join: " "
    documentation = nil
    match ident {
      case /##/ ->
        parts = ident split: "##"
        obj = parts[0] eval
        if: (parts[1]) then: |method_name| {
          method = obj method: method_name
          documentation = method documentation
        }
      case /#/ ->
        parts = ident split: "#"
        obj = parts[0] eval
        if: (parts[1]) then: |method_name| {
          method = nil
          try {
            method = obj instance_method: method_name
          } catch NoMethodError {
            # handle singleton methods if ARGV[1] is a singleton
            method = obj method: method_name
          }
          documentation = method documentation
        }
      case _ ->
        obj = ident eval
        documentation = obj documentation
    }

    "Documentation for: '#{ident}':" println
    documentation println
  } else: {
    ["Prints the documentation string for a given object or one if its methods",
     "Usage:",
     "fyi [ObjectIdentifier]",
     "fyi [ObjectIdentifier]#[MethodName]",
     "",
     "Example: fyi Array#each:"] println
  }
} catch Exception => e {
  "ERROR: #{e message}" println
}