Hex Artifact Content

Artifact d43bff44b654ee21b05f21c9e66b6c34f0a83bbc:


0000: 23 21 20 2f 75 73 72 2f 62 69 6e 2f 65 6e 76 20  #! /usr/bin/env 
0010: 62 61 73 68 0a 0a 63 64 20 22 24 28 64 69 72 6e  bash..cd "$(dirn
0020: 61 6d 65 20 22 24 7b 42 41 53 48 5f 53 4f 55 52  ame "${BASH_SOUR
0030: 43 45 5b 30 5d 7d 22 29 22 20 7c 7c 20 65 78 69  CE[0]}")" || exi
0040: 74 20 31 0a 0a 63 61 74 20 6c 69 62 63 61 63 6b  t 1..cat libcack
0050: 65 79 5f 77 72 61 70 2e 63 2e 69 6e 0a 0a 66 75  ey_wrap.c.in..fu
0060: 6e 63 74 69 6f 6e 4c 69 73 74 3d 28 29 0a 77 68  nctionList=().wh
0070: 69 6c 65 20 49 46 53 3d 27 27 20 72 65 61 64 20  ile IFS='' read 
0080: 2d 72 20 6c 69 6e 65 3b 20 64 6f 0a 09 66 75 6e  -r line; do..fun
0090: 63 74 69 6f 6e 3d 22 24 28 65 63 68 6f 20 22 24  ction="$(echo "$
00a0: 7b 6c 69 6e 65 7d 22 20 7c 20 63 75 74 20 2d 66  {line}" | cut -f
00b0: 20 32 20 2d 64 20 2c 20 7c 20 63 75 74 20 2d 66   2 -d , | cut -f
00c0: 20 31 20 2d 64 20 27 29 27 20 7c 20 73 65 64 20   1 -d ')' | sed 
00d0: 27 73 40 20 2a 40 40 67 27 29 22 0a 0a 09 69 66  's@ *@@g')"...if
00e0: 20 5b 20 22 24 7b 66 75 6e 63 74 69 6f 6e 7d 22   [ "${function}"
00f0: 20 3d 20 27 43 5f 4c 6f 67 69 6e 4d 75 74 65 78   = 'C_LoginMutex
0100: 41 72 67 27 20 5d 3b 20 74 68 65 6e 0a 09 09 63  Arg' ]; then...c
0110: 6f 6e 74 69 6e 75 65 0a 09 66 69 0a 0a 09 66 75  ontinue..fi...fu
0120: 6e 63 74 69 6f 6e 4c 69 73 74 3d 28 22 24 7b 66  nctionList=("${f
0130: 75 6e 63 74 69 6f 6e 4c 69 73 74 5b 40 5d 7d 22  unctionList[@]}"
0140: 20 22 24 7b 66 75 6e 63 74 69 6f 6e 7d 22 29 0a   "${function}").
0150: 64 6f 6e 65 20 3c 20 3c 28 67 72 65 70 20 27 5e  done < <(grep '^
0160: 43 4b 5f 44 45 46 49 4e 45 5f 46 55 4e 43 54 49  CK_DEFINE_FUNCTI
0170: 4f 4e 27 20 2e 2e 2f 63 61 63 6b 65 79 2e 63 29  ON' ../cackey.c)
0180: 0a 0a 67 72 65 70 20 27 5e 43 4b 5f 44 45 46 49  ..grep '^CK_DEFI
0190: 4e 45 5f 46 55 4e 43 54 49 4f 4e 27 20 2e 2e 2f  NE_FUNCTION' ../
01a0: 63 61 63 6b 65 79 2e 63 20 7c 20 77 68 69 6c 65  cackey.c | while
01b0: 20 49 46 53 3d 27 27 20 72 65 61 64 20 2d 72 20   IFS='' read -r 
01c0: 6c 69 6e 65 3b 20 64 6f 0a 09 66 75 6e 63 74 69  line; do..functi
01d0: 6f 6e 3d 22 24 28 65 63 68 6f 20 22 24 7b 6c 69  on="$(echo "${li
01e0: 6e 65 7d 22 20 7c 20 63 75 74 20 2d 66 20 32 20  ne}" | cut -f 2 
01f0: 2d 64 20 2c 20 7c 20 63 75 74 20 2d 66 20 31 20  -d , | cut -f 1 
0200: 2d 64 20 27 29 27 20 7c 20 73 65 64 20 27 73 40  -d ')' | sed 's@
0210: 20 2a 40 40 67 27 29 22 0a 0a 09 69 66 20 5b 20   *@@g')"...if [ 
0220: 22 24 7b 66 75 6e 63 74 69 6f 6e 7d 22 20 3d 20  "${function}" = 
0230: 27 43 5f 4c 6f 67 69 6e 4d 75 74 65 78 41 72 67  'C_LoginMutexArg
0240: 27 20 5d 3b 20 74 68 65 6e 0a 09 09 63 6f 6e 74  ' ]; then...cont
0250: 69 6e 75 65 0a 09 66 69 0a 0a 09 61 72 67 73 3d  inue..fi...args=
0260: 22 24 28 65 63 68 6f 20 22 24 7b 6c 69 6e 65 7d  "$(echo "${line}
0270: 22 20 7c 20 63 75 74 20 2d 66 20 33 20 2d 64 20  " | cut -f 3 -d 
0280: 27 28 27 20 7c 20 63 75 74 20 2d 66 20 31 20 2d  '(' | cut -f 1 -
0290: 64 20 27 29 27 20 7c 20 74 72 20 27 2c 27 20 24  d ')' | tr ',' $
02a0: 27 5c 6e 27 20 7c 20 73 65 64 20 27 73 40 5e 20  '\n' | sed 's@^ 
02b0: 2a 40 40 27 29 22 0a 09 61 72 67 4e 61 6d 65 73  *@@')"..argNames
02c0: 3d 28 29 0a 09 77 68 69 6c 65 20 72 65 61 64 20  =()..while read 
02d0: 61 72 67 54 79 70 65 20 61 72 67 4e 61 6d 65 3b  argType argName;
02e0: 20 64 6f 0a 09 09 61 72 67 4e 61 6d 65 73 3d 28   do...argNames=(
02f0: 22 24 7b 61 72 67 4e 61 6d 65 73 5b 40 5d 7d 22  "${argNames[@]}"
0300: 20 22 24 7b 61 72 67 4e 61 6d 65 7d 22 29 0a 09   "${argName}")..
0310: 64 6f 6e 65 20 3c 3c 3c 22 24 7b 61 72 67 73 7d  done <<<"${args}
0320: 22 0a 0a 09 61 72 67 4e 61 6d 65 73 4c 69 73 74  "...argNamesList
0330: 3d 27 27 0a 09 66 6f 72 20 61 72 67 4e 61 6d 65  =''..for argName
0340: 20 69 6e 20 22 24 7b 61 72 67 4e 61 6d 65 73 5b   in "${argNames[
0350: 40 5d 7d 22 3b 20 64 6f 0a 09 09 61 72 67 4e 61  @]}"; do...argNa
0360: 6d 65 73 4c 69 73 74 3d 22 24 7b 61 72 67 4e 61  mesList="${argNa
0370: 6d 65 73 4c 69 73 74 7d 2c 20 24 7b 61 72 67 4e  mesList}, ${argN
0380: 61 6d 65 7d 22 0a 09 64 6f 6e 65 0a 09 61 72 67  ame}"..done..arg
0390: 4e 61 6d 65 73 4c 69 73 74 3d 22 24 28 65 63 68  NamesList="$(ech
03a0: 6f 20 22 24 7b 61 72 67 4e 61 6d 65 73 4c 69 73  o "${argNamesLis
03b0: 74 7d 22 20 7c 20 63 75 74 20 2d 63 20 33 2d 29  t}" | cut -c 3-)
03c0: 22 0a 0a 09 65 63 68 6f 20 27 27 0a 09 65 63 68  "...echo ''..ech
03d0: 6f 20 22 24 7b 6c 69 6e 65 7d 22 0a 09 65 63 68  o "${line}"..ech
03e0: 6f 20 24 27 5c 74 27 22 43 4b 5f 52 56 20 28 2a  o $'\t'"CK_RV (*
03f0: 66 75 6e 63 29 28 24 28 65 63 68 6f 20 22 24 7b  func)($(echo "${
0400: 61 72 67 73 7d 22 20 7c 20 74 72 20 24 27 5c 6e  args}" | tr $'\n
0410: 27 20 27 2c 27 20 7c 20 73 65 64 20 27 73 40 2c  ' ',' | sed 's@,
0420: 2a 24 40 40 3b 73 40 2c 40 2c 20 40 67 27 29 29  *$@@;s@,@, @g'))
0430: 3b 22 0a 09 63 61 73 65 20 22 24 7b 66 75 6e 63  ;"..case "${func
0440: 74 69 6f 6e 7d 22 20 69 6e 0a 09 09 43 5f 46 69  tion}" in...C_Fi
0450: 6e 61 6c 69 7a 65 29 0a 09 09 09 65 63 68 6f 20  nalize)....echo 
0460: 24 27 5c 74 27 27 43 4b 5f 52 56 20 72 65 74 76  $'\t''CK_RV retv
0470: 61 6c 3b 27 0a 09 09 09 3b 3b 0a 09 09 43 5f 47  al;'....;;...C_G
0480: 65 74 46 75 6e 63 74 69 6f 6e 4c 69 73 74 29 0a  etFunctionList).
0490: 09 09 09 65 63 68 6f 20 24 27 5c 74 27 27 43 4b  ...echo $'\t''CK
04a0: 5f 52 56 20 72 65 74 76 61 6c 3b 27 0a 09 09 09  _RV retval;'....
04b0: 65 63 68 6f 20 24 27 5c 74 27 27 43 4b 5f 46 55  echo $'\t''CK_FU
04c0: 4e 43 54 49 4f 4e 5f 4c 49 53 54 5f 50 54 52 20  NCTION_LIST_PTR 
04d0: 70 46 75 6e 63 74 69 6f 6e 4c 69 73 74 3b 27 0a  pFunctionList;'.
04e0: 09 09 09 3b 3b 0a 09 65 73 61 63 0a 0a 09 65 63  ...;;..esac...ec
04f0: 68 6f 20 27 27 0a 09 65 63 68 6f 20 24 27 5c 74  ho ''..echo $'\t
0500: 27 27 6c 69 62 63 61 63 6b 65 79 5f 77 72 61 70  ''libcackey_wrap
0510: 5f 69 6e 69 74 28 29 3b 27 0a 0a 09 65 63 68 6f  _init();'...echo
0520: 20 27 27 0a 09 65 63 68 6f 20 24 27 5c 74 27 22   ''..echo $'\t'"
0530: 66 75 6e 63 20 3d 20 64 6c 73 79 6d 28 6c 69 62  func = dlsym(lib
0540: 63 61 63 6b 65 79 5f 77 72 61 70 5f 68 61 6e 64  cackey_wrap_hand
0550: 6c 65 2c 20 5c 22 24 7b 66 75 6e 63 74 69 6f 6e  le, \"${function
0560: 7d 5c 22 29 3b 22 0a 09 65 63 68 6f 20 27 27 0a  }\");"..echo ''.
0570: 09 69 66 20 5b 20 22 24 7b 66 75 6e 63 74 69 6f  .if [ "${functio
0580: 6e 7d 22 20 3d 20 27 43 5f 46 69 6e 61 6c 69 7a  n}" = 'C_Finaliz
0590: 65 27 20 5d 3b 20 74 68 65 6e 0a 09 09 65 63 68  e' ]; then...ech
05a0: 6f 20 24 27 5c 74 27 22 72 65 74 76 61 6c 20 3d  o $'\t'"retval =
05b0: 20 66 75 6e 63 28 24 61 72 67 4e 61 6d 65 73 4c   func($argNamesL
05c0: 69 73 74 29 3b 22 0a 09 09 65 63 68 6f 20 27 27  ist);"...echo ''
05d0: 0a 09 09 65 63 68 6f 20 24 27 5c 74 27 27 6c 69  ...echo $'\t''li
05e0: 62 63 61 63 6b 65 79 5f 77 72 61 70 5f 66 69 6e  bcackey_wrap_fin
05f0: 69 28 29 3b 27 0a 09 09 65 63 68 6f 20 27 27 0a  i();'...echo ''.
0600: 09 09 65 63 68 6f 20 24 27 5c 74 27 27 72 65 74  ..echo $'\t''ret
0610: 75 72 6e 28 72 65 74 76 61 6c 29 3b 27 0a 09 65  urn(retval);'..e
0620: 6c 69 66 20 5b 20 22 24 7b 66 75 6e 63 74 69 6f  lif [ "${functio
0630: 6e 7d 22 20 3d 20 27 43 5f 47 65 74 46 75 6e 63  n}" = 'C_GetFunc
0640: 74 69 6f 6e 4c 69 73 74 27 20 5d 3b 20 74 68 65  tionList' ]; the
0650: 6e 0a 09 09 65 63 68 6f 20 24 27 5c 74 27 22 72  n...echo $'\t'"r
0660: 65 74 76 61 6c 20 3d 20 66 75 6e 63 28 24 61 72  etval = func($ar
0670: 67 4e 61 6d 65 73 4c 69 73 74 29 3b 22 0a 09 09  gNamesList);"...
0680: 65 63 68 6f 20 27 27 0a 09 09 65 63 68 6f 20 24  echo ''...echo $
0690: 27 5c 74 27 27 69 66 20 28 72 65 74 76 61 6c 20  '\t''if (retval 
06a0: 3d 3d 20 43 4b 52 5f 4f 4b 29 20 7b 27 0a 09 09  == CKR_OK) {'...
06b0: 65 63 68 6f 20 24 27 5c 74 5c 74 27 27 70 46 75  echo $'\t\t''pFu
06c0: 6e 63 74 69 6f 6e 4c 69 73 74 20 3d 20 2a 70 70  nctionList = *pp
06d0: 46 75 6e 63 74 69 6f 6e 4c 69 73 74 3b 27 0a 09  FunctionList;'..
06e0: 09 66 6f 72 20 66 75 6e 63 74 69 6f 6e 20 69 6e  .for function in
06f0: 20 22 24 7b 66 75 6e 63 74 69 6f 6e 4c 69 73 74   "${functionList
0700: 5b 40 5d 7d 22 3b 20 64 6f 0a 09 09 09 65 63 68  [@]}"; do....ech
0710: 6f 20 24 27 5c 74 5c 74 27 22 70 46 75 6e 63 74  o $'\t\t'"pFunct
0720: 69 6f 6e 4c 69 73 74 2d 3e 24 7b 66 75 6e 63 74  ionList->${funct
0730: 69 6f 6e 7d 20 3d 20 24 7b 66 75 6e 63 74 69 6f  ion} = ${functio
0740: 6e 7d 3b 22 0a 09 09 64 6f 6e 65 0a 09 09 65 63  n};"...done...ec
0750: 68 6f 20 24 27 5c 74 27 27 7d 27 0a 09 09 65 63  ho $'\t''}'...ec
0760: 68 6f 20 27 27 0a 09 09 65 63 68 6f 20 24 27 5c  ho ''...echo $'\
0770: 74 27 27 72 65 74 75 72 6e 28 72 65 74 76 61 6c  t''return(retval
0780: 29 3b 27 0a 09 65 6c 73 65 0a 09 09 65 63 68 6f  );'..else...echo
0790: 20 24 27 5c 74 27 22 72 65 74 75 72 6e 28 66 75   $'\t'"return(fu
07a0: 6e 63 28 24 61 72 67 4e 61 6d 65 73 4c 69 73 74  nc($argNamesList
07b0: 29 29 3b 22 0a 09 66 69 0a 09 65 63 68 6f 20 27  ));"..fi..echo '
07c0: 7d 27 0a 64 6f 6e 65 0a                          }'.done.