qasim 0.1.11.dev.2014102811

data/mapparser.y

@@ -0,0 +1,155 @@
+
+class MapParser
+rule
+
+commands 
+	: commands command_blk SEMICOLON { puts "GOT A COMMAND" }
+	| /* none */ { puts "no command found" }
+
+command_blk
+	: global_blk
+	| server_blk
+
+server_blk
+	: SERVER STRING OBRACE server_opts EBRACE { puts "[server #{val[1]}]" }
+
+global_blk
+	: GLOBAL OBRACE global_opts EBRACE
+
+server_opts 
+	: server_opts server_opt SEMICOLON
+	| /* none */
+
+server_opt 
+	: user_opt { puts "=> user opt" }
+	| port_opt { puts "=> port opt" }
+	| automount_opt { puts "=> automount opt" }
+	| compress_opt { puts "=> compress opt" }
+	| reconnect_opt { puts "=> reconnect opt" }
+	| server_map_blk { puts "=> server_map blk" }
+
+server_map_blk
+	: MAP STRING OBRACE server_map_opts EBRACE
+
+server_map_opts
+	: server_map_opts server_map_opt SEMICOLON
+	| /* none */
+	
+server_map_opt
+	: remote_opt
+	| local_opt
+	| user_opt
+	| port_opt
+	| compress_opt
+
+user_opt 
+	: USER STRING { puts "* user = #{val[1]}" }
+
+port_opt 
+	: PORT NUMBER { puts "* port = #{val[1]}" }
+
+automount_opt 
+	: AUTOMOUNT boolean { puts "* automount = #{@bool_result}" }
+
+compress_opt 
+	: COMPRESS boolean { puts "* compress = #{@bool_result}" }
+
+reconnect_opt 
+	: RECONNECT boolean { puts ( "* reconnect = #{@bool_result}" ) }
+
+boolean
+	: BOOL_TRUE { @bool_result = true }
+	| BOOL_FALSE { @bool_result = false }
+
+end
+
+---- header ----
+
+# calc.rb : generated by racc
+#
+require 'strscan'
+#require 'map.rb'
+
+---- inner ----
+
+	def parse( str )
+		puts "parse start..."
+		tokens = []
+
+		scanner = StringScanner.new( str )
+		puts ( "scanner?" + scanner.string )
+		
+		until scanner.eos?
+			puts "scanning.. at #{scanner.pos}"
+			case
+				when m = scanner.scan( /\/\/.*$/ )
+					# comments
+				when m = scanner.scan( /(\s+|\n)/ )
+					# whitespace and newlines
+				when m = scanner.scan( /\{/ )
+					tokens.push [:OBRACE, m]
+				when m = scanner.scan( /\}/ )
+					tokens.push [:EBRACE, m]
+				when m = scanner.scan( /;/ )
+					tokens.push [:SEMICOLON, m]
+				when m = scanner.scan( /\d+/ )
+					tokens.push [:NUMBER, m]
+				when m = scanner.scan( /user/i )
+					tokens.push [:USER, m]
+				when m = scanner.scan( /automount/i )
+					tokens.push [:AUTOMOUNT, m]
+				when m = scanner.scan( /reconnect/i )
+					tokens.push [:RECONNECT, m]
+				when m = scanner.scan( /compress/i )
+					tokens.push [:COMPRESS, m]
+				when m = scanner.scan( /port/i )
+					tokens.push [:PORT, m]
+				when m = scanner.scan( /(true|1|yes)/i )
+					tokens.push [:BOOL_TRUE, m]
+				when m = scanner.scan( /(false|0|no)/i )
+					tokens.push [:BOOL_FALSE, m]
+				when m = scanner.scan( /".+?"/i )
+					tokens.push [:STRING, m]
+				when m = scanner.scan( /map/i )
+					tokens.push [:MAP, m]
+				when m = scanner.scan( /server/i )
+					tokens.push [:SERVER, m]
+				when m = scanner.scan( /./ )
+					tokens.push [:UNMATCHED, m]
+					puts "UNMATCHED #{m} after #{scanner.pre_match}"
+			end
+		end
+		puts "tokenization ok"
+		tokens.push [false, false]
+		@last_value = yyparse( tokens, :each )
+		puts "parse end... "
+	end
+
+	def on_error(error_token_id, error_value, value_stack)
+			msg = "parse error "
+			msg << "after #{value_stack.last} " if value_stack.length > 1
+			#msg << "after #{value_stack.last} " unless value_stack.empty?
+			msg << "on #{token_to_str(error_token_id)} #{error_value}"
+			raise ParseError, msg
+	end
+
+
+---- footer ----
+
+puts "GOO"
+
+bigstr = ""
+STDIN.read.split(/\n/).each do |a|
+   puts "READING #{a}"
+   bigstr = bigstr + a
+end
+
+puts "PARSING NOW..."
+
+parser = MapParser.new
+begin
+	val = parser.parse( bigstr )
+	print '= ', val, "\n"
+	rescue ParseError
+	puts $!
+end

data/qasim.gemspec

@@ -0,0 +1,34 @@
+# coding: utf-8
+lib = File.expand_path('../lib', __FILE__)
+$LOAD_PATH.unshift(lib) unless $LOAD_PATH.include?(lib)
+require 'qasim/version'
+
+Gem::Specification.new do |spec|
+  spec.name          = "qasim"
+  spec.version       = if `git branch`.split($/).include?("* develop") then
+						   Qasim::APP_VERSION + '.dev.' + Time.now.utc.strftime('%Y%m%d%H')
+					   else
+						   Qasim::APP_VERSION
+					   end
+  spec.authors       = ["Glenn Y. Rolland"]
+  spec.email         = ["glenux@glenux.net"]
+  spec.summary       = %q{Easy mount solution for SSH filesystems.}
+  spec.description   = %q{Qasim is a front-end for sshfs, the filesystem
+	client based on fuse and ssh. It provides automating and global settings
+    control for sshfs mounts.}
+  spec.homepage      = "http://glenux.github.io/qasim"
+  spec.license       = "GPL-3"
+
+  spec.files         = `git ls-files`.split($/)
+  		.concat(Dir['*/**/*_ui.rb'])
+		.concat(Dir['*/**/*_qrc.rb'])
+
+  spec.executables   = spec.files.grep(%r{^bin/}) { |f| File.basename(f) }
+  spec.test_files    = spec.files.grep(%r{^(test|spec|features)/})
+  spec.require_paths = ["lib"]
+
+  spec.add_development_dependency "bundler", "~> 1.5"
+  spec.add_development_dependency "rake"
+
+  spec.add_runtime_dependency "qtbindings", "~> 4.8.6.0"
+end

data/sshfs-mapper.completion

@@ -0,0 +1,24 @@
+#!/bin/sh
+
+_sshfsmapper_opts()
+{
+	local cur prev sshfsmapper_opts sshfsmapper_maps
+
+	COMPREPLY=()
+	cur="${COMP_WORDS[COMP_CWORD]}"
+    prev="${COMP_WORDS[COMP_CWORD-1]}"
+
+	sshfsmapper_opts='-s -h -i -l -u -a'
+	if [[ "$cur" == -* ]]; then
+		COMPREPLY=( $( compgen -W "$sshfsmapper_opts" -- $cur ) )
+	else
+		if [[ "$prev" == -s ]]; then
+			sshfsmapper_maps=$( sshfs-mapper -l 2> /dev/null )
+			COMPREPLY=( $( compgen -W "$sshfsmapper_maps" -- $cur ) )
+		else	
+			COMPREPLY=( $( compgen -W "$sshfsmapper_opts" -- $cur ) )
+		fi
+	fi
+}
+
+complete -F _sshfsmapper_opts $default sshfs-mapper

data/sshfs-mapper.sh

@@ -0,0 +1,253 @@
+#!/bin/sh
+# vim: set ts=2 sw=2 :
+set -u
+
+
+################################################################################
+##
+## Variables initializations
+##
+
+set |grep -q '^XDG_CONFIG_HOME' || XDG_CONFIG_HOME="$HOME/.config"
+SSHFS_DIR="$XDG_CONFIG_HOME/sshfs-mapper"
+SSHFS_CONFIG="$SSHFS_DIR/config"
+SSHFS_MOUNT=1
+SSHFS_HOSTS_SELECTION=0
+
+
+################################################################################
+##
+## Functions definitions
+##
+
+read_conf() {
+	local config=$1
+	local var=$2
+	local value="`eval echo \`cat $config |grep "^$2=" |sed "s/$2=//"\``"
+	echo "$value"
+}
+
+do_mount() {
+  local remotedir=$1
+  local localdir=$2
+  local remoteport=$3
+
+	set -x
+  sshfs \
+    -o allow_root \
+    -o idmap=user \
+    -o uid=`id -u` \
+    -o gid=`id -g` \
+    -o reconnect \
+    -o workaround=all \
+    -o cache_timeout=240 \
+		-o ServerAliveInterval 15 \
+		-o no_readahead \
+    -o Ciphers=arcfour \
+    -o Port=$remoteport \
+    $remotedir \
+    $localdir
+	set +x
+
+  #-o compression=yes
+}
+
+do_umount() {
+  local remotedir=$1
+  local localdir=$2
+  fusermount -u $localdir
+}
+
+do_usage() {
+  cat >&2 <<EOF
+Usage: `basename $0` [options]
+-h, --help            Show this help and exit.
+-i, --init            Initialize user configuration.
+-l, --list            List available maps.
+-a, --all             Use all maps.
+-s, --select <map>    Only use specified map.
+-u, --umount          Umount user maps (mount if not specified).
+-v, --verbose         Be verbose.
+EOF
+exit 1
+}
+
+do_initialize()
+{
+  echo "Initializing user maps..."
+  if [ -e "$SSHFS_DIR" ]; then
+    echo -e "\nERROR: Configuration directory already exists!" >&2 
+    echo "To erase your setup, please manually remove directory \"$SSHFS_DIR\" first." >&2
+    exit 1
+  else
+    mkdir -p "$SSHFS_DIR" 
+    cat > "$SSHFS_DIR/config" <<EOF
+MOUNTPOINT=\$HOME/mnt
+LINKTO=\$HOME
+EOF
+
+    cat > "$SSHFS_DIR/default.map" <<EOF
+REMOTE_USER=\$USER
+REMOTE_HOST=example.com
+REMOTE_PORT=22
+
+MAP=RemoteDocs /home/\$USER/Documents
+MAP=RemoteMusic /home/\$USER/Music
+EOF
+				echo -e "\nManually edit configuration files in \"$SSHFS_DIR\""
+				echo "to adjust sshfs-mapper configuration to your settings."
+				echo -e "\nType \"man sshfs-mapper\" to get more help."
+
+				exit 0
+				fi
+}
+
+
+################################################################################
+##
+## Parse options and mount/umount
+##
+
+SSHFS_HOST_PATTERN=" "
+SSHFS_HOST_LIMIT=0
+SSHFS_HOST_LIST=0
+SSHFS_HOST_AUTO=0
+SSHFS_VERBOSE=0
+OPTFOUND=0
+while true
+do
+  OPT=${1:-}
+  if [ -z $OPT ]; then break ; fi
+  shift
+  OPTARG=${1:-}
+  #echo "$OPT?"
+	case "$OPT" in
+		--verbose|-v) #be verbose
+			SSHFS_VERBOSE=1
+			;;
+		--all|-a)  # mount all
+			SSHFS_HOST_AUTO=1
+			OPTFOUND=1
+			;;
+		--init|-i)  # init (copy config files in user HOME)
+			do_initialize
+			OPTFOUND=1
+			;;
+		--umount|-u)  # umount
+			echo "Umounting..."
+			SSHFS_MOUNT=0
+			OPTFOUND=1
+			;;
+		--select|-s)  # only selected hosts
+			SSHFS_HOST_PATTERN="${SSHFS_HOST_PATTERN}${OPTARG} "
+			SSHFS_HOST_LIMIT=1
+			shift
+			OPTFOUND=1
+			;;
+		--list|-l)
+			SSHFS_HOST_LIST=1
+			OPTFOUND=1
+			;;
+		--help|-h)
+			do_usage
+			OPTFOUND=1
+			;;
+		*) 
+			do_usage
+			OPTFOUND=1
+			;;
+	esac
+done
+if [ $OPTFOUND -eq 0 ]; then
+  do_usage
+fi
+
+if [ ! -e $SSHFS_DIR ]; then mkdir $SSHFS_DIR ; fi
+if [ ! -e $SSHFS_DIR ]; then
+	echo -e "\nERROR: Unable to create $SSHFS_DIR" >&2
+	exit 1
+fi
+
+if [ ! -e "$SSHFS_CONFIG" ]; then
+	echo "MOUNTPOINT=\$HOME/mnt" >> "$SSHFS_CONFIG"
+fi
+if [ ! -e "$SSHFS_CONFIG" ]; then
+	echo -e "\nERROR: Unable to find config file." >&2
+	exit 1
+fi
+
+for map_file in $SSHFS_HOST_PATTERN; do
+  if [ ! -e "$SSHFS_DIR/$map_file.map" ]; then
+    echo -e "\nERROR: Unable to find map file '$map_file.map'." >&2
+  fi
+done
+
+mountpoint=$( read_conf "$SSHFS_CONFIG" MOUNTPOINT )
+if [ "x$mountpoint" = "x" ]; then
+	echo -e "\nERROR: Mountpoint undefined." >&2
+  echo "Edit mountpoint definition in \"$SSHFS_CONFIG\"" >&2
+	exit 1;
+fi
+
+is_mounted() {
+  local map_name=$1
+
+  mount | grep -q " $mountpoint/$map_name "
+  return $?
+}
+
+for map_file in `find "$SSHFS_DIR" -follow -type f -name '*.map' `; do
+  if [ $SSHFS_HOST_LIST -eq 1 ]; then
+    basename `echo ${map_file} | sed 's/.map$//'`
+    continue
+  fi
+  if [ $SSHFS_HOST_LIMIT -eq 1 ]; then
+    if ! echo "$SSHFS_HOST_PATTERN" | grep -q " `basename \`echo ${map_file} |sed s'/.map$//' \`` " ; then
+      continue
+    fi
+  else
+    if [ $SSHFS_HOST_AUTO -eq 0 ]; then
+      continue
+    fi
+  fi
+	remote_host=$( read_conf $map_file REMOTE_HOST )
+	remote_user=$( read_conf $map_file REMOTE_USER )
+	remote_port=$( read_conf $map_file REMOTE_PORT )
+	map=$( read_conf $map_file MAP )
+	echo "Map: $remote_user@$remote_host"
+
+  nc -z $remote_host $remote_port > /dev/null 2>&1
+  if [ $? != 0 ]; then
+    echo "  ERROR: can't find the server at $remote_host:$remote_port"
+    continue
+  fi
+
+  map_count=0
+  map_name=""
+  remote_dir=""
+  for map_item in $map; do
+    if [ $map_count = 0 ]; then map_name=$map_item ; fi
+    if [ $map_count = 1 ]; then remote_dir=$map_item ; fi
+    map_count=$(( ( $map_count + 1 ) % 2 ))
+    if [ $map_count = 0 ]; then
+      echo "  $map_name => $remote_dir"
+      if ! is_mounted $map_name  ; then
+        if [ $SSHFS_MOUNT = 1 ]; then
+          mkdir -p $mountpoint/$map_name
+          do_mount $remote_user@$remote_host:$remote_dir $mountpoint/$map_name $remote_port
+          rm -f $HOME/$map_name
+          ln -s $mountpoint/$map_name $HOME/$map_name
+        fi
+      else
+        if [ $SSHFS_MOUNT = 0 ]; then
+          do_umount $remote_user@$remote_host:$remote_dir $mountpoint/$map_name
+          rm -f $HOME/$map_name
+        fi
+        if [ $SSHFS_MOUNT = 1 ]; then
+           echo "    (Already mounted on $mountpoint/$map_name)"
+        fi
+      fi 
+    fi
+	done
+done
+