cddl/usr.sbin/dwatch/libexec/vop_create

   1 # -*- tab-width: 4 -*- ;; Emacs
   2 # vi: set filetype=sh tabstop=8 shiftwidth=8 noexpandtab :: Vi/ViM
   3 ############################################################ IDENT(1)
   4 #
   5 # $Title: dwatch(8) module for VOP_CREATE(9) [or similar] entry $
   6 # $Copyright: 2014-2018 Devin Teske. All rights reserved. $
   7 # $FreeBSD$
   8 #
   9 ############################################################ DESCRIPTION
  10 #
  11 # Print filesystem paths being operated-on by VOP_CREATE(9) [or similar]
  12 # NB: All paths are shown even if error prevents operation.
  13 #
  14 ############################################################ PROBE
  15
  16 : ${PROBE:=vfs:vop:$PROFILE:entry}
  17
  18 ############################################################ ACTIONS
  19
  20 exec 9<<EOF
  21 $PROBE /* probe ID $ID */
  22 {${TRACE:+
  23         printf("<$ID>");}
  24         this->vp = (struct vnode *)arg0;
  25         this->ncp = this->vp != NULL ?
  26                 this->vp->v_cache_dst.tqh_first : 0;
  27         this->fi_name = args[1] ? (
  28                 args[1]->a_cnp != NULL ?
  29                         stringof(args[1]->a_cnp->cn_nameptr) : ""
  30         ) : "";
  31         this->mount = this->vp != NULL ?
  32                 this->vp->v_mount : NULL; /* ptr to vfs we are in */
  33         this->fi_fs = this->mount != NULL ?
  34                 stringof(this->mount->mnt_stat.f_fstypename) : "";
  35         this->fi_mount = this->mount != NULL ?
  36                 stringof(this->mount->mnt_stat.f_mntonname) : "";
  37         this->d_name = args[0]->v_cache_dd != NULL ?
  38                 stringof(args[0]->v_cache_dd->nc_name) : "";
  39
  40         $( awk -v MAX_DEPTH=$MAX_DEPTH '
  41                 { sub(/^\\\t/, "\t") }
  42                 { buf = buf "\t" $0 "\n" }
  43                 END {
  44                         sub(/\n$/, "", buf)
  45                         $0 = buf
  46                         sub(/^[[:space:]]*/, "")
  47                         for (DEPTH = 1; DEPTH <= MAX_DEPTH + 1; DEPTH++) {
  48                                 gsub(/DEPTH/, DEPTH)
  49                                 print
  50                                 $0 = buf
  51                         }
  52                 }
  53         ' <<-EOFDEPTH
  54         this->nameDEPTH = "";
  55         EOFDEPTH
  56         )
  57 }
  58
  59 $PROBE /this->vp == 0 || this->fi_fs == 0 ||
  60         this->fi_fs == "devfs" || this->fi_fs == "" ||
  61         this->fi_name == ""/ /* probe ID $(( $ID + 1 )) */
  62 {${TRACE:+
  63         printf("<$(( $ID + 1 ))>");}
  64         this->ncp = 0;
  65 }
  66
  67 /*********************************************************/
  68
  69 $PROBE /this->ncp/ /* probe ID $(( $ID + 2 )) (depth 1) */
  70 {${TRACE:+
  71         printf("<$(( $ID + 2 ))>");}
  72         this->dvp = this->ncp->nc_dvp != NULL ?
  73                 this->ncp->nc_dvp->v_cache_dst.tqh_first : 0;
  74         this->name1 = this->dvp != 0 ? (
  75                 this->dvp->nc_name != 0 ? stringof(this->dvp->nc_name) : ""
  76         ) : "";
  77 }
  78
  79 $PROBE /this->name1 == 0 || this->fi_fs == 0 ||
  80         this->fi_fs == "devfs" || this->fi_fs == "" ||
  81         this->name1 == "/" || this->name1 == ""/ /* probe ID $(( $ID + 3 )) */
  82 {${TRACE:+
  83         printf("<$(( $ID + 3 ))>");}
  84         this->dvp = 0;
  85 }
  86
  87 /*********************************************************/
  88
  89 /*
  90  * BEGIN Pathname-depth iterators
  91  */
  92
  93 $( awk -v ID=$(( $ID + 4 )) -v MAX_DEPTH=$MAX_DEPTH '
  94         { buf = buf $0 "\n" }
  95         END {
  96                 sub(/\n$/, "", buf)
  97                 for (DEPTH = 2; DEPTH <= MAX_DEPTH; DEPTH++) {
  98                         $0 = buf
  99                         gsub(/DEPTH/, DEPTH)
 100                         gsub(/IDNUM/, ID++)
 101                         print
 102                 }
 103         }
 104 ' <<EOFDEPTH
 105 $PROBE /this->dvp/ /* probe ID IDNUM (depth DEPTH) */
 106 {${TRACE:+
 107         printf("<IDNUM>");}
 108         this->dvp = this->dvp->nc_dvp != NULL ?
 109                 this->dvp->nc_dvp->v_cache_dst.tqh_first : 0;
 110         this->nameDEPTH = this->dvp != 0 ? (
 111                 this->dvp->nc_name != 0 ? stringof(this->dvp->nc_name) : ""
 112         ) : "";
 113 }
 114
 115 EOFDEPTH
 116 )
 117
 118 $PROBE /this->dvp/ /* probe ID $(( $ID + $MAX_DEPTH + 3 )) */
 119 {${TRACE:+
 120         printf("<$(( $ID + $MAX_DEPTH + 3 ))>");}
 121         this->dvp = this->dvp->nc_dvp != NULL ?
 122                 this->dvp->nc_dvp->v_cache_dst.tqh_first : 0;
 123         this->name$(( $MAX_DEPTH + 1 )) = this->dvp != 0 ? (
 124                 this->dvp->nc_dvp != NULL ? "..." : ""
 125         ) : "";
 126 }
 127
 128 /*
 129  * END Pathname-depth iterators
 130  */
 131
 132 /*********************************************************/
 133
 134 $PROBE /this->fi_mount != 0/ /* probe ID $(( $ID + $MAX_DEPTH + 4 )) */
 135 {${TRACE:+
 136         printf("<$(( $ID + $MAX_DEPTH + 4 ))>");
 137 }
 138         /*
 139          * Join full path
 140          * NB: Up-to but not including the parent directory (joined below)
 141          */
 142         this->path = this->fi_mount;
 143         this->path = strjoin(this->path, this->fi_mount != 0 ? (
 144                 this->fi_mount == "/" ? "" : "/"
 145         ) : "/");
 146         $( awk -v MAX_DEPTH=$MAX_DEPTH '
 147                 { sub(/^\\\t/, "\t") }
 148                 { buf = buf "\t" $0 "\n" }
 149                 END {
 150                         sub(/\n$/, "", buf)
 151                         $0 = buf
 152                         sub(/^[[:space:]]*/, "")
 153                         for (N = MAX_DEPTH + 1; N > 0; N--) {
 154                                 gsub(/N/, N)
 155                                 print
 156                                 $0 = buf
 157                         }
 158                 }
 159         ' <<-EOFDEPTH
 160         this->path = strjoin(this->path,
 161         \       strjoin(this->nameN, this->nameN != "" ? "/" : ""));
 162         EOFDEPTH
 163         )
 164
 165         /* Join the parent directory name */
 166         this->path = strjoin(this->path, strjoin(this->name =
 167                 (this->d_name != 0 ? this->d_name : ""),
 168                 this->name != "" ? "/" : ""));
 169
 170         /* Join the entry name */
 171         this->path = strjoin(this->path,
 172                 this->name = (this->fi_name != 0 ? this->fi_name : ""));
 173 }
 174 EOF
 175 ACTIONS=$( cat <&9 )
 176 ID=$(( $ID + $MAX_DEPTH + 5 ))
 177
 178 ############################################################ EVENT ACTION
 179
 180 EVENT_TEST="this->fi_mount != 0"
 181
 182 ############################################################ EVENT DETAILS
 183
 184 if [ ! "$CUSTOM_DETAILS" ]; then
 185 exec 9<<EOF
 186         /*
 187          * Print full path
 188          */
 189         printf("%s", this->path);
 190 EOF
 191 EVENT_DETAILS=$( cat <&9 )
 192 fi
 193
 194 ################################################################################
 195 # END
 196 ################################################################################