prick 0.17.0 → 0.20.1

data/doc/sh.prick

@@ -1,316 +0,0 @@
-#!/usr/bin/bash
-
-# Name
-#   prick - Database project tool
-#
-# Usage
-#   prick prepare|migrate|release
-#
-# Commands
-#   prepare NEW-RELEASE
-#       Stamps NEW-RELEASE into the database
-#   migrate [OLD-RELEASE]
-#       Create a migration from OLD-RELEASE to the prepared release.
-#       OLD-RELEASE defaults to the last registered release
-#   release
-#       Release the prepared release
-#
-# Files
-#   prick use the following sub-directories:
-#
-#       releases/
-#           <database>-<release>.dump.gz
-#           ...
-#       migrations/
-#           migrate-<from>-<to>[.sql]
-#           ...
-#
-#   The releases directory contains schema backups that makes it easy to
-#   restore a earlier release used to generated migrations. The migrations directory
-#   contains migrations from one release to another. 'prick migrate' generates
-#   a SQL migration file but you can replace it with an executable if needed
-#
-
-# TODO: Schema-only dump of database
-# pg_dump --no-owner --no-privileges --schema-only name_of_database -f schema.dump.sql
-
-
-set -e
-
-. bash.include
-
-USAGE="prepare NEW-RELEASE
-             migrate OLD-RELEASE
-             release"
-
-DB=mikras
-
-function inoa() {
-    error "Illegal number of arguments"
-}
-
-[ $# -ge 1 ] || inoa
-CMD=$1
-shift
-
-trap 'eval rm -rf $ERRFILE $TMPFILE $TMPDIR' EXIT
-ERRFILE=$(mktemp --tmpdir $PROGRAM.XXXXXXXXXX)
-TMPFILE=$(mktemp --tmpdir $PROGRAM.XXXXXXXXXX)
-TMPDIR=$(mktemp --tmpdir --directory $PROGRAM.XXXXXXXXXX)
-#echo $TMPFILE
-#echo $TMPDIR
-
-function last_release() {
-    local path=$(ls releases/$DB-*.*.*.dump.gz 2>/dev/null | tail -1)
-    local release=$(echo $path | sed -e "s/releases\/$DB-//" -e 's/\.dump\.gz$//')
-    echo ${release:-0.0.0}
-}
-
-function current_release() {
-    psql -qtAX -d $DB -c "select major || '.' || minor || '.' || patch from meta.versions"
-}
-
-function set_current_release() {
-    set -- $(echo $1 | sed 's/\./ /g')
-    local major=$1
-    local minor=$2
-    local patch=$3
-
-    psql -qtAX -d $DB -c "update meta.versions set major = $major, minor = $minor, patch = $patch"
-}
-
-function has_release() {
-    local release=$1
-    local db=$DB-$release
-    psql -qtAX -d $DB -l | grep -q "^$db|" &>/dev/null
-}
-
-function database_load() {
-    local release=$1
-    local db=$DB-$release
-    local dump=releases/$db.dump.gz
-    [ -f $dump ] || error "Can't find release dump $dump"
-    [ ! has_release ] || error "Release $release is already loaded"
-    createdb $db
-    gzip --to-stdout $dump | psql -d $db
-}
-
-function redatabase_load() {
-    local release=$1
-    local db=$DB-$release
-    local dump=releases/$db.dump.gz
-    [ -f $dump ] || error "Can't find release dump $dump"
-    [ ! has_release ] || dropdb $db
-    createdb $db
-    gzip --to-stdout $dump | psql -d $db
-}
-
-
-function prepare() {
-    local new_release=$1
-    mesg "Preparing $new_release"
-
-    [ ! -f $new_release ] || error "New release already exists: $new_release_dump"
-    set_current_release $new_release
-}
-
-function migrate() {
-    local old_release=$1
-    local new_release=$(current_release)
-    local old_release_dump=releases/$DB-$old_release.dump.gz
-    local new_release_dump=releases/$DB-$new_release_dump.gz
-    local migration=migrations/migrate-$old_release-$new_release.sql
-
-    mesg "Migrating $old_release to $new_release"
-
-    [ -f $old_release_dump ] || error "Can't find old release: $old_release_dump"
-    [ ! -f $new_release_dump ] || error "New release already exists: $new_release_dump"
-    [ "$old_release" != "$new_release" ] || 
-        error "Can't migrate $old_release to itself (did you forget to prepare the release?)"
-    [ ! -f $migration ] || error "Won't overwrite migration $migration"
-
-    has_release $old_release || database_load $old_release
-#   migra --unsafe postgresql:///$DB-$old_release postgresql:///$DB || true #>$migration 
-    migra --unsafe postgresql:///$DB-$old_release postgresql:///$DB >$migration || {
-        case $? in
-            0)
-                mesg "No changes"
-                ;;
-            2)
-                mesg "Generated $migration"
-                ;;
-            *)
-                rm -f $migration
-                fail "migra failed"
-                ;;
-        esac
-    }
-}
-
-function database() {
-    local release=$1
-    echo "$DB-$release"
-}
-
-function dumpfile() {
-    local release=$1
-    echo "releases/$DB-$release.dump.gz"
-}
-
-###
-### R E L E A S E
-###
-
-function release_default() {
-    psql -qtAX -d $DB -c "select major || '.' || minor || '.' || patch from meta.versions"
-}
-
-function release_exist() {
-    local release=$1
-    local dump=$(dumpfile $release)
-    [ -f $dump ]
-}
-
-###
-### M I G R A T I O N S
-###
-
-function migration_create() {
-    local old_release=$1
-    local new_release=$(release_default)
-}
-
-function migration_apply() {
-    echo niy
-}
-
-
-###
-### D A T A B A S E
-###
-
-function database_loaded() {
-    local release=$1
-    local db=$(database $release)
-    psql -qtAX -d $DB -l | grep -q "^$db|" &>/dev/null
-}
-
-function database_build() {
-    local release=$1
-    local db=$(database $release)
-    ! database_loaded $release || fail "Database $db is already loaded"
-    mesg "Checking out release $release"
-    git archive --format=tar $release >$TMPFILE
-    (
-        cd $TMPDIR
-        tar xf $TMPFILE
-
-        # No git access so set spec.files to []
-        sed -i -e '/^ *spec.files/,+2d' mikras_db.gemspec -e 's/spec.files/[]/' mikras_db.gemspec
-
-        mesg "Running bundle"
-        bundle &>$ERRFILE || {
-            cat $ERRFILE >&2
-            fail "bundle failed"
-        }
-
-        # Set databse name
-        sed -i "s/^DB=.*/DB=$(database $release)/" exe/build
-
-        # Quote variables properly
-        perl -pi -e 's/:(\w+)/:"\1"/g' schemas/db.sql
-
-        # Replace schemas/skuffejern/users.sql - it is not possible to drop users because we
-        # run several versions of the database
-        for file in $(ls schemas/*/users.sql 2>/dev/null); do
-            {
-                psql -qtAX -d template1 \
-                    -c "select 1 from pg_user where pg_user.usename = 'anonymous'" \
-                | grep -q 1 || psql -qtAX -d template1 -c "create user anonymous"
-                    
-                psql -qtAX -d template1 \
-                    -c "select 1 from pg_roles where pg_roles.rolname = 'skuffejern_access'" \
-                | grep -q 1 || psql -qtAX -d template1 -c "create role skuffejern_access"
-            } >$file
-        done
-            
-        mesg "Running rebuild"
-        ./rebuild &>$ERRFILE || {
-            cat $ERRFILE >&2
-            fail "rebuild failed"
-        }
-    )
-}
-
-function database_save() {
-    local release=$1
-    local db=$(database $release)
-    local dump=releases/$db.dump.gz
-    [ ! -f $dump ] || fail "Won't overwrite release file $dump"
-    # pg_dump --no-owner --no-privileges --schema-only name_of_database -f schema.dump.sql
-    pg_dump --no-owner --schema-only $db | gzip --to-stdout >$dump
-}
-
-function database_load() {
-    local release=$1
-    local db=$(database $release)
-    local dump=releases/$db.dump.gz
-    ! database_loaded $db || fail "Database $db is already loaded"
-    [ -f $dump ] || fail "Can't find release file $dump"
-    createdb $db
-    gunzip --to-stdout $dump | psql -d $db &>$ERRFILE || {
-        cat $ERRFILE
-        fail "psql failed"
-    }
-}
-
-function database_drop() {
-    local release=$1
-    local db=$(database $release)
-    dropdb $db
-}
-
-
-case $CMD in    
-    list)
-        [ $# = 0 ] || inoa
-        psql -qtAX -d template1 -l | sed -n "/mikras[-0-9.]*|/s/|.*//p"
-        ;;
-    build)
-        [ $# = 1 ] || inoa
-        database_build $1
-        ;;
-    save)
-        [ $# = 1 ] || inoa
-        database_save $1
-        ;;
-    load)
-        [ $# = 1 ] || inoa
-        database_load $1
-        ;;
-    reload)
-        [ $# = 1 ] || inoa
-        ! database_loaded $1 || database_drop $1
-        database_load $1
-        ;;
-    drop)
-        [ $# = 1 ] || inoa
-        database_drop $1
-        ;;
-    prepare)
-        [ $# = 1 ] || inoa
-        prepare $1
-        ;;
-    migrate) # TODO: prick migrate from-release to-release
-        [ $# -le 1 ] || inoa
-        migrate ${1:-$(last_release)}
-        ;;
-    release)
-        mesg "Releasing"
-        ;;
-    *)
-        error "Illegal command: '$CMD'"
-        ;;
-esac
-
-

data/lib/ext/algorithm.rb

@@ -1,14 +0,0 @@
-
-module Algorithm
-  def follow(object, sym = nil, &block)
-    sym.nil? == block_given? or raise "Can't use both symbol and block"
-    a = []
-    while object
-      a << object
-      object = block_given? ? yield(object) : object.send(sym)
-    end
-    a
-  end
-
-  module_function :follow
-end

data/lib/ext/fileutils.rb

@@ -1,26 +0,0 @@
-
-
-require 'pathname'
-
-module FileUtils
-  def self.touch_p(file)
-    dir = File.dirname(file)
-    File.exist?(dir) or FileUtils.mkdir_p(dir)
-    touch(file)
-    file
-  end
-
-  def self.ln_sr(from, to)
-    from = Pathname.new(from)
-    to_dir = File.dirname(to)
-    to_file = File.basename(to)
-    relpath = from.relative_path_from(File.dirname(to))
-    Dir.chdir(to_dir) { FileUtils.ln_s(relpath, File.basename(to)) }
-  end
-
-  def self.empty!(dir)
-    Dir.chdir(dir) {
-      FileUtils.rm_rf(Dir.children("."))
-    }
-  end
-end

data/lib/ext/forward_method.rb

@@ -1,18 +0,0 @@
-
-class Class
-  # TODO: Check for arity
-  def forward_methods(*methods, object)
-    for method in Array(methods).flatten
-      if method.to_s.end_with?("=")
-        src = "def #{method}(args) raise if #{object}.nil?; #{object}.#{method}(args) end"
-      else
-        src = "def #{method}(*args) #{object}&.#{method}(*args) end"
-      end
-      class_eval(src)
-    end
-  end
-
-  def forward_method(*args) forward_methods(*args) end
-end
-
-

data/lib/ext/pg.rb

@@ -1,18 +0,0 @@
-require 'pg'
-
-class PG::Result
-  def value() self.getvalue(0, 0) end
-
-  def each_value(&block)
-    if block_given?
-      self.each_row { |r| yield(r.first) }
-    else
-      self.each_row.map { |r| r.first }
-    end
-  end
-
-  def empty?() ntuples == 0 end
-
-  def to_a() self.values end
-end
-

data/lib/ext/shortest_path.rb

@@ -1,44 +0,0 @@
-
-module Algorithm
-  # Return (one of) the shortest path from `from` to `to` as a list of edges.
-  # `edges` is a list of arrays with from-node and to-node as the first two
-  # elements. Returns nil if no route was found
-  #
-  # The algorithm does slightly more work than it needs to because the same node
-  # can be inserted more than once into the queue of nodes to be processed
-  #
-  def self.shortest_path(edges, from, to)
-    pool = {} # Map from 'from' to map from 'to' to edge. Eg. pool[from][to] == edge-between-them
-    edges.each { |edge| (pool[edge[0]] ||= {})[edge[1]] = edge }
-
-    visited = {}
-    prev = {}
-
-    todo = [from]
-    while true
-      return nil if todo.empty?
-
-      current = todo.shift
-      break if current == to
-
-      next if visited[current]
-      visited[current] = true
-
-      next if pool[current].nil?
-      pool[current].each { |node, edge|
-        prev[node] ||= edge
-        todo << node
-      }
-    end
-
-    to_node = to
-    route = []
-    while edge = prev[to_node]
-      to_node = edge.first
-      route.unshift edge
-      break if from == to_node
-    end
-
-    route
-  end
-end

data/lib/prick/archive.rb

@@ -1,124 +0,0 @@
-
-module Prick
-  class DumpFile
-    attr_reader :project
-    attr_reader :name
-    attr_reader :file
-    attr_reader :path
-
-    def initialize(project, name)
-      @project = project
-      @name = name
-      @file = "#{project.name}-#{name}.#{DUMP_EXT}"
-      @path = File.join(CACHE_DIR, @file)
-    end
-
-    def exist?() File.exist?(path) end
-
-    def delete() FileUtils.rm_f(path) end
-  end
-end
-
-__END__
-
-
-
-  class Release
-    attr_reader :project
-    attr_reader :version
-    attr_reader :semver
-
-    # Associated Database object
-    attr_reader :database
-
-    # Name of release (eg. 'project-1.2.3')
-    attr_reader :name
-
-    # Release file (eb. 'project-1.2.3.dump.gz')
-    attr_reader :file
-
-    # Path to release file
-    def path() File.join(RELEASE_DIR, file) end
-
-    def initialize(project, version_or_semver, database: nil)
-      @project = project
-      @version, @semver = Semver::parse(version_or_semver)
-      @name = "#{@project.name}-#{@semver}"
-      @file = @name + RELEASE_DOT_EXT
-      @database = database || Database.new(@name, @project.user)
-    end
-
-    def self.glob(project)
-      "#{project.name}-*.#{RELEASE_EXT}"  
-    end
-
-    # $1 matches the version
-    def self.re(project)
-      /^#{project.name}-(#{VERSION_RE.source})$/ 
-    end
-
-    # True if the release file exists
-    def cached?() File.exist?(path) end
-
-    def build() project.build(version) end
-
-    def unbuild() FileUtils.rm_f(path) end
-
-    # True if the database exists and is loaded
-    def loaded?() database.loaded? end
-
-    # Create database and load release
-    def load(file = nil)
-      file ||= path
-      !loaded? or raise Error, "Release #{name} is already loaded"
-      database.create
-      database.load(file)
-    end
-
-    # Reload release
-    def reload(file = path) unload; load(file) end
-
-    # Delete a database. It is not an error if the database doesn't exists
-    def unload() database.drop if loaded?  end
-
-    # Remove the release file
-    def remove() FileUtils::rm_f(path) end
-
-    # Compare two release by semantic version
-    def <=>(other) self.semver <=> other.semver end
-
-    # Render self a the name of the release (eg. 'project-1.2.3')
-    def to_s() name end
-
-    # Returns self so that you can do 'release = lookup(version).ensure(:loaded)'
-    def ensure(state, expect: true)
-      value = self.send(:"#{state}?")
-      if value != expect
-        state_methods = STATES[state] or raise Error, "Can't change state to #{state.inspect}"
-        index = expect ? 0 : 1
-        self.send(state_method[index])
-      end
-      self
-    end
-  end
-
-  STATES = {
-    cached: [:build, :unbuild],
-    loaded: [:load, :unload]
-  }
-end
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-