iankelling.org Git - small-misc-bash/blob - dircp

   1 #!/bin/bash
   2 # I, Ian Kelling, follow the GNU license recommendations at
   3 # https://www.gnu.org/licenses/license-recommendations.en.html. They
   4 # recommend that small programs, < 300 lines, be licensed under the
   5 # Apache License 2.0. This file contains or is part of one or more small
   6 # programs. If a small program grows beyond 300 lines, I plan to switch
   7 # its license to GPL.
   8
   9 # Copyright 2024 Ian Kelling
  10
  11 # Licensed under the Apache License, Version 2.0 (the "License");
  12 # you may not use this file except in compliance with the License.
  13 # You may obtain a copy of the License at
  14
  15 #     http://www.apache.org/licenses/LICENSE-2.0
  16
  17 # Unless required by applicable law or agreed to in writing, software
  18 # distributed under the License is distributed on an "AS IS" BASIS,
  19 # WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
  20 # See the License for the specific language governing permissions and
  21 # limitations under the License.
  22
  23
  24 dircp() {
  25     local help="Usage: dircp [-h|--help] DIR TARGET
  26 Copy a directory structure
  27 Doesn't overwrite any existing files."
  28     case $1 in
  29         -h|--help) echo "$help"; return ;;
  30     esac
  31     [[ $# == 2 ]] || { echo "error: need 2 arguments, got $@"; return 1; }
  32     [[ -d $1 ]] || { echo "error: $1 is not a directory"; return 1; }
  33     if [[ -e $2 && ! -d $2 ]]; then
  34         echo "error: $2 exists and is not a directory"
  35         return 1
  36     fi
  37     while read -rd ''; do
  38         mkdir -p "$2/$REPLY"
  39     done < <(find "$1" -type d -printf '%P\0')
  40 }
  41 dircp "$@"