stowm 0.8.0

checksums.yaml

@@ -0,0 +1,7 @@
+---
+SHA1:
+  metadata.gz: 96bb5eb5199a4847a2ded83334d4dbeb3745f6df
+  data.tar.gz: 6d7080bbfe7a749cbc8816ac38993db22535a25c
+SHA512:
+  metadata.gz: 32604bed16bc9ff1871ff82032e2756b03c06d0dc580229680a70b18d16e028cb1b978f51185a4c1d891f1d1990f79b7ed42ad94506e337272dbeec84545a801
+  data.tar.gz: 4666d514921ec493b8303d34d18271db2501492c7f45c4a6741f1185a3429cae3d2469f578d1d0c6c9b29d27375ef8324a5299fb4598feb45cf3111a1d6c6734

data/README.md

@@ -0,0 +1,8 @@
+Stowm
+================
+
+Stowm is a package management tool for GNU stow
+   http://oldtype.sumibi.org/show-page/stowm
+
+This software is open source, covered by a BSD-style license.
+Please read accompanying file COPYING.

data/bin/stowm

@@ -0,0 +1,110 @@
+#!/usr/bin/env ruby
+# -*- mode: nendo; syntax: scheme ; coding: utf-8 -*-
+require 'nendo'
+$LOAD_PATH.push( File.dirname(__FILE__) + "/../lib" )
+core = Nendo::Core.new()
+core.setArgv( ARGV )
+core.loadInitFile
+core.disableRuntimeCheck( )
+core.evalStr( <<";;END-OF-SCRIPT" )
+;;;
+;;; stowm - a package management tool for GNU stow
+;;;  
+;;;   Copyright (c) 2014  Kiyoka Nishiyama  <kiyoka@sumibi.org>
+;;;   
+;;;   Redistribution and use in source and binary forms, with or without
+;;;   modification, are permitted provided that the following conditions
+;;;   are met:
+;;;   
+;;;   1. Redistributions of source code must retain the above copyright
+;;;      notice, this list of conditions and the following disclaimer.
+;;;  
+;;;   2. Redistributions in binary form must reproduce the above copyright
+;;;      notice, this list of conditions and the following disclaimer in the
+;;;      documentation and/or other materials provided with the distribution.
+;;;  
+;;;   3. Neither the name of the authors nor the names of its contributors
+;;;      may be used to endorse or promote products derived from this
+;;;      software without specific prior written permission.
+;;;  
+;;;   THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
+;;;   "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
+;;;   LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
+;;;   A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
+;;;   OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
+;;;   SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED
+;;;   TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
+;;;   PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
+;;;   LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
+;;;   NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
+;;;   SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+;;;  
+(use srfi-1)
+(use srfi-9)
+(use util.list)
+(use stowm.env)
+(use stowm.util)
+(use stowm.parseutil)
+(use stowm.listutil)
+(use stowm.specfile)
+(use stowm.main)
+
+(define (main argv)
+  ;; branch by argument
+  (let1 env (stowm-get-default-env)
+
+    ;; check the stow program
+    (if (not (stow-program env))
+        (begin
+          (STDERR.puts "Error: not found the (stow or xstow) program binary.")
+          (exit 1)))
+
+    ;; load dotfiles
+    (if (File.exist? (inifile-path env))
+        (load (inifile-path env)))
+    
+    ;; home-repos exist check
+    (if (not (Dir.exist? (home-repos env)))
+        (begin
+          (STDERR.printf "Error : repos dir [%s] nessesary to use stowm.\n" (home-repos env))
+          (exit 1)))
+
+    (let1 stowed-list (rebuild-installed-db env)
+
+      (case (length argv)
+        ((0)
+         (display-help)
+         0)
+        (else
+         (cond
+          ((stowm-regex-match #/^env/                  (car argv))
+           (print (stowm-env-to-string env)))
+          ((stowm-regex-match #/^ena?b?l?e?/           (car argv))
+           (cond
+            ((stowm-regex-match #/^[0-9]+$/            (second argv))
+             (action-by-keyword-num  env 'enable       (to-i (second argv)) stowed-list))
+            (else
+             (action-by-keyword-name env 'enable       (second argv) stowed-list))))
+          ((stowm-regex-match #/^dis?a?b?l?e?/         (car argv))
+           (cond
+            ((stowm-regex-match #/^[0-9]+$/            (second argv))
+             (action-by-keyword-num  env 'disable      (to-i (second argv)) stowed-list))
+            (else
+             (action-by-keyword-name env 'disable      (second argv) stowed-list))))
+          ((stowm-regex-match #/^reb?u?i?l?d?/         (car argv))
+           (rebuild-num  env                           (to-i (second argv)) stowed-list))
+          ((is-valid-url?                              (car argv))
+           (action-by-url env (car argv)))
+          ((stowm-regex-match #/^li?s??t?$/            (car argv))
+           (cond
+            ((< 1 (length argv))
+             (display-list stowed-list (second argv)))
+            (else
+             (display-list stowed-list #f))))
+          (else
+           (display-help)
+           0)))))))
+
+
+(main *argv*)
+;;END-OF-SCRIPT

data/lib/stowm/env.nnd

@@ -0,0 +1,61 @@
+;; #-*- mode: nendo; syntax: scheme -*-;;
+;; env record library
+
+(use srfi-9)
+
+(define-record-type <stowm-env>
+  (stowm-env pwd home home-repos stow-home local bin lib temp inifile-path db-path stow-program)
+  stowm-env?
+  (pwd pwd)                    ;; pwd
+  (home home)                  ;; "/home/xxxx/"
+  (home-repos home-repos)      ;; "/home/xxxx/stowm"
+  (stow-home stow-home)        ;; "/usr/local/stow"
+  (local local)                ;; "/usr/local"
+  (bin bin)                    ;; "/usr/local/bin"
+  (lib lib)                    ;; "/usr/local/lib"
+  (temp temp)                  ;; "/tmp/stowm"
+  (inifile-path inifile-path)  ;; ~/.stowm
+  (db-path db-path)            ;; ~/.stowm.db
+  (stow-program stow-program)  ;; "/usr/bin/stow"
+  )
+
+(define (stowm-get-default-env)
+  (stowm-env
+   (ENV.fetch "PWD")                     ;; pwd
+   (ENV.fetch "HOME")                    ;; home
+   (File.expand_path "~/stowm")          ;; "/home/xxxx/stowm"
+   "/usr/local/stow"
+   "/usr/local"
+   "/usr/local/bin"
+   "/usr/local/lib"
+   "/tmp/stowm"
+   (File.expand_path "~/.stowm")         ;; ~/.stowm
+   (File.expand_path "~/.stowm.db")      ;; ~/.stowm.db
+   (let1 lst                             ;; "/usr/bin/stow"
+       (filter-map
+        (lambda (x)
+          (let ((path1 (+ "/usr/bin/" (car x)))
+                (path2 (+ "/usr/local/bin/" (car x))))
+            (if (File.exist? path1)
+                (cons path1 (cdr x))
+                (if (File.exist? path2)
+                    (cons path2 (cdr x))))))
+        '(("xstow" . "-f") ("stow" . "")))
+     (if (< 0 (length lst))
+         (caar lst)
+         #f
+         ))))
+
+(define (stowm-env-to-string env)
+  (string-join
+   (map
+    (lambda (x)
+      (sprintf "  %-20s %-30s" (car x) (cdr x)))
+    `(
+      ("stow  home: "        . ,(stow-home env))
+      ("stow  program: "     . ,(stow-program env))
+      ("stown repository: "  . ,(home-repos env))
+      ("stowm rcfile path: " . ,(inifile-path env))
+      ("stowm db path: "     . ,(db-path env))
+      ("stowm tmp: "         . ,(temp env))))
+   "\n"))