1 [= AutoGen5 Template h -*- Mode: C -*- =]
2 [= (dne " * " "/* ") =]
4 [= (gpl "lustre" " * ") =]
7 * \file [= (out-name) =]
8 * The flags and collections of flags (masks) for \see struct ldlm_lock.
9 * This file is derived from flag definitions in [=(def-file)=].
10 * The format is defined in the [=(tpl-file)=] template file.
12 * \addtogroup LDLM Lustre Distributed Lock Manager
16 * The flags and collections of flags (masks) for \see struct ldlm_lock.
19 #ifndef LDLM_ALL_FLAGS_MASK
22 ;; Guile is unable to handle 64 bit unsigned ints very easily.
23 ;; BASH does just fine. Construct a shell script to compute the
24 ;; bit masks and echo out the appropriate #defines.
26 (out-push-new "script.sh")
31 fmt='#define LDLM_FL_%-16s 0x%016XULL // bit %2u
32 #define ldlm_is_%-20s LDLM_TEST_FLAG(( _l), 1ULL << %2u)
33 #define ldlm_set_%-20s LDLM_SET_FLAG(( _l), 1ULL << %2u)
34 #define ldlm_clear_%-20s LDLM_CLEAR_FLAG((_l), 1ULL << %2u)\n'
36 tmpfile=[=(base-name)=]-$$.tmp
43 bitno=[=(define temp-txt (get "f-desc"))
45 bitval=$(( 1 << $bitno ))
48 IF (< (string-length temp-txt) 72)=]
49 echo '/**' [= (raw-shell-str temp-txt) =] '*/'[=
52 { fmt -w 74 | sed 's/^/ * /;s/ *$//;$s@$@ */@'
59 dn_name=[= (string-downcase! (string->c-name! (get "f-name"))) =]'(_l)'
60 up_name=[= (string-upcase! (string->c-name! (get "f-name"))) =]
61 printf "$fmt" $up_name $bitval $bitno \
66 (( allbits += bitval ))[=
69 mask_list=${mask_list}[= f-mask =]$'\n'
70 mask_[= f-mask =]=$(( ${mask_[= f-mask =]:-0} + bitval ))[=
77 fmt='\n/** l_flags bits marked as "%s" bits */
78 #define LDLM_FL_%-22s 0x%016XULL\n'
79 printf "$fmt" all_flags ALL_FLAGS_MASK $allbits
81 for f in $(echo "$mask_list" | sort -u)
83 ucf=$(echo $f | tr a-z A-Z)_MASK
85 printf "$fmt" $f $ucf $v
89 rm -f $tmpfile script.sh[=
91 ;; The script is done. Pop off the temporary output, handing
92 ;; it to the shell for evaluation. stdout becomes the output text
99 /** test for ldlm_lock flag bit set */
100 #define LDLM_TEST_FLAG(_l, _b) (((_l)->l_flags & (_b)) != 0)
102 /** set a ldlm_lock flag bit */
103 #define LDLM_SET_FLAG(_l, _b) (((_l)->l_flags |= (_b))
105 /** clear a ldlm_lock flag bit */
106 #define LDLM_CLEAR_FLAG(_l, _b) (((_l)->l_flags &= ~(_b))
108 /** Mask of flags inherited from parent lock when doing intents. */
109 #define LDLM_INHERIT_FLAGS LDLM_FL_INHERIT_MASK
111 /** Mask of Flags sent in AST lock_flags to map into the receiving lock. */
112 #define LDLM_AST_FLAGS LDLM_FL_AST_MASK
116 #ifdef WIRESHARK_COMPILE[=
118 (sprintf "\nstatic int hf_lustre_ldlm_fl_%-20s= -1;"
119 (string-downcase! (get "f-name")) ) =][=
122 const value_string lustre_ldlm_flags_vals[] = {[=
125 (define up-name (string-upcase! (string->c-name! (get "f-name"))))
126 (sprintf "\n {LDLM_FL_%-20s \"LDLM_FL_%s\"}," (string-append up-name ",")
131 #endif /* WIRESHARK_COMPILE */
135 IF (getenv "TESTING") =][=
137 FOR flag (define len-list "")
140 (define header-name (out-name))
141 (out-push-new (string-append (base-name) ".c"))
143 (for-from 0) (for-by 1) =][=
145 (if (exist? "f-name")
147 (set! temp-str (string-upcase! (get "f-name")))
148 (set! len-list (string-append len-list (c-string
149 (sprintf "%%%us" (- 20 (string-length temp-str))) ) "\n" ))
150 (set! str-list (string-append str-list
151 (c-string temp-str) "\n" ))
154 (set! len-list (string-append len-list "NULL\n"))
155 (set! str-list (string-append str-list "NULL\n"))
163 #include "[=(. header-name)=]"
171 static char const * const fill_fmts[] = {
173 columns --spread=1 -I4 -S, --end=' };' <<_EOF_
177 printf '\nstatic char const * const flag_names[] = {\n'
178 columns --spread=1 -I4 -S, --end=' };' <<_EOF_
181 [= (shell (out-pop #t)) =]
184 print_bits(unsigned long long v)
186 static char const new_line[] = "\n";
187 char const * space_fmt = new_line + 1;
191 if ((v & ~LDLM_FL_ALL_FLAGS_MASK) != 0) {
192 unsigned long long wrong = v & ~LDLM_FL_ALL_FLAGS_MASK;
193 printf("undefined bits: 0x%016llX\n", wrong);
194 v &= LDLM_FL_ALL_FLAGS_MASK;
197 for (ix = 0; v != 0ULL; ix++, v >>= 1) {
198 if ((v & 0x1ULL) == 0)
201 printf(space_fmt, "");
202 if ((++ct & 0x03) == 0)
203 space_fmt = new_line;
205 space_fmt = fill_fmts[ix];
206 fputs(flag_names[ix], stdout);
212 cmd_ldlm_lock_flags(void)
216 unsigned long long v;
217 bool flip_val = false;
220 printf("no argument\n");
228 v = strtoull(p, &e, 0);
231 v = strtoull(p, &e, 16);
232 if ((errno != 0) || (*e != '\0')) {
233 printf("invalid number: %s\n", p);
239 v &= LDLM_FL_ALL_FLAGS_MASK;
245 char * help_ldlm_lock_flags[] = {
247 "flag bit names for ldlm_lock",
249 "The names of the bits that are set in the numeric value are printed.",
253 #ifdef LDLM_FLAGS_PROGRAM
259 usage(int ex_code, char const * msg)
262 FILE * fp = (ex_code == EXIT_SUCCESS) ? stdout : stderr;
263 args = help_ldlm_lock_flags;
265 fprintf(fp, "%s usage error: %s\n", args[0], msg);
266 fprintf(fp, "%s - %s\n", args[0], args[1]);
267 fprintf(fp, "Usage: %s %s\n", args[0], args[2]);
269 char * txt = args[ix++];
272 fprintf(fp, "%s\n", txt);
278 main(int argc, char ** argv)
281 char * av[3] = { argv[0], NULL, NULL };
286 usage(EXIT_FAILURE, "argument missing");
290 char * arg = argv[1];
294 case '-': if (arg[2] == 'h') break;
296 case 'h': usage(EXIT_SUCCESS, NULL);
305 cmd_ldlm_lock_flags();
309 #endif /* LDLM_FLAGS_PROGRAM */
316 * c-file-style: "linux"
317 * indent-tabs-mode: t
321 #endif /* LDLM_ALL_FLAGS_MASK */