Hex Artifact Content

Artifact f1fa196b1472429627eef89f90bb566557f2fb75:


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 49  al;'....;;...C_I
0480: 6e 69 74 69 61 6c 69 7a 65 29 0a 09 09 09 65 63  nitialize)....ec
0490: 68 6f 20 24 27 5c 74 27 27 43 4b 5f 43 5f 49 4e  ho $'\t''CK_C_IN
04a0: 49 54 49 41 4c 49 5a 45 5f 41 52 47 53 20 43 4b  ITIALIZE_ARGS CK
04b0: 5f 50 54 52 20 61 72 67 73 2c 20 6c 6f 63 61 6c  _PTR args, local
04c0: 61 72 67 73 3b 27 0a 09 09 09 3b 3b 0a 09 09 43  args;'....;;...C
04d0: 5f 47 65 74 46 75 6e 63 74 69 6f 6e 4c 69 73 74  _GetFunctionList
04e0: 29 0a 09 09 09 65 63 68 6f 20 24 27 5c 74 27 27  )....echo $'\t''
04f0: 43 4b 5f 52 56 20 72 65 74 76 61 6c 3b 27 0a 09  CK_RV retval;'..
0500: 09 09 65 63 68 6f 20 24 27 5c 74 27 27 43 4b 5f  ..echo $'\t''CK_
0510: 46 55 4e 43 54 49 4f 4e 5f 4c 49 53 54 5f 50 54  FUNCTION_LIST_PT
0520: 52 20 70 46 75 6e 63 74 69 6f 6e 4c 69 73 74 3b  R pFunctionList;
0530: 27 0a 09 09 09 3b 3b 0a 09 65 73 61 63 0a 0a 09  '....;;..esac...
0540: 65 63 68 6f 20 27 27 0a 09 65 63 68 6f 20 24 27  echo ''..echo $'
0550: 5c 74 27 27 6c 69 62 63 61 63 6b 65 79 5f 77 72  \t''libcackey_wr
0560: 61 70 5f 69 6e 69 74 28 29 3b 27 0a 0a 09 69 66  ap_init();'...if
0570: 20 5b 20 22 24 7b 66 75 6e 63 74 69 6f 6e 7d 22   [ "${function}"
0580: 20 3d 20 27 43 5f 49 6e 69 74 69 61 6c 69 7a 65   = 'C_Initialize
0590: 27 20 5d 3b 20 74 68 65 6e 0a 09 09 65 63 68 6f  ' ]; then...echo
05a0: 20 27 27 0a 09 09 65 63 68 6f 20 24 27 5c 74 27   ''...echo $'\t'
05b0: 27 69 66 20 28 70 49 6e 69 74 41 72 67 73 29 20  'if (pInitArgs) 
05c0: 7b 27 0a 09 09 65 63 68 6f 20 24 27 5c 74 5c 74  {'...echo $'\t\t
05d0: 27 27 61 72 67 73 20 3d 20 70 49 6e 69 74 41 72  ''args = pInitAr
05e0: 67 73 3b 27 0a 09 09 65 63 68 6f 20 24 27 5c 74  gs;'...echo $'\t
05f0: 5c 74 27 27 69 66 20 28 28 61 72 67 73 2d 3e 66  \t''if ((args->f
0600: 6c 61 67 73 20 26 20 43 4b 46 5f 4f 53 5f 4c 4f  lags & CKF_OS_LO
0610: 43 4b 49 4e 47 5f 4f 4b 29 20 3d 3d 20 43 4b 46  CKING_OK) == CKF
0620: 5f 4f 53 5f 4c 4f 43 4b 49 4e 47 5f 4f 4b 29 20  _OS_LOCKING_OK) 
0630: 7b 27 0a 23 65 63 68 6f 20 27 66 70 72 69 6e 74  {'.#echo 'fprint
0640: 66 28 73 74 64 65 72 72 2c 20 22 72 65 70 6c 61  f(stderr, "repla
0650: 63 69 6e 67 3d 25 70 5c 6e 22 2c 20 70 49 6e 69  cing=%p\n", pIni
0660: 74 41 72 67 73 29 3b 20 66 66 6c 75 73 68 28 73  tArgs); fflush(s
0670: 74 64 65 72 72 29 3b 20 61 62 6f 72 74 28 29 3b  tderr); abort();
0680: 27 0a 09 09 65 63 68 6f 20 24 27 5c 74 5c 74 5c  '...echo $'\t\t\
0690: 74 27 27 6d 65 6d 63 70 79 28 26 6c 6f 63 61 6c  t''memcpy(&local
06a0: 61 72 67 73 2c 20 61 72 67 73 2c 20 73 69 7a 65  args, args, size
06b0: 6f 66 28 2a 61 72 67 73 29 29 3b 27 0a 09 09 65  of(*args));'...e
06c0: 63 68 6f 20 24 27 5c 74 5c 74 5c 74 27 27 6c 6f  cho $'\t\t\t''lo
06d0: 63 61 6c 61 72 67 73 2e 43 72 65 61 74 65 4d 75  calargs.CreateMu
06e0: 74 65 78 20 3d 20 6c 69 62 63 61 63 6b 65 79 5f  tex = libcackey_
06f0: 77 72 61 70 5f 63 72 65 61 74 65 6d 75 74 65 78  wrap_createmutex
0700: 3b 27 0a 09 09 65 63 68 6f 20 24 27 5c 74 5c 74  ;'...echo $'\t\t
0710: 5c 74 27 27 6c 6f 63 61 6c 61 72 67 73 2e 44 65  \t''localargs.De
0720: 73 74 72 6f 79 4d 75 74 65 78 20 3d 20 6c 69 62  stroyMutex = lib
0730: 63 61 63 6b 65 79 5f 77 72 61 70 5f 64 65 73 74  cackey_wrap_dest
0740: 72 6f 79 6d 75 74 65 78 3b 27 0a 09 09 65 63 68  roymutex;'...ech
0750: 6f 20 24 27 5c 74 5c 74 5c 74 27 27 6c 6f 63 61  o $'\t\t\t''loca
0760: 6c 61 72 67 73 2e 4c 6f 63 6b 4d 75 74 65 78 20  largs.LockMutex 
0770: 3d 20 6c 69 62 63 61 63 6b 65 79 5f 77 72 61 70  = libcackey_wrap
0780: 5f 6c 6f 63 6b 6d 75 74 65 78 3b 27 0a 09 09 65  _lockmutex;'...e
0790: 63 68 6f 20 24 27 5c 74 5c 74 5c 74 27 27 6c 6f  cho $'\t\t\t''lo
07a0: 63 61 6c 61 72 67 73 2e 55 6e 6c 6f 63 6b 4d 75  calargs.UnlockMu
07b0: 74 65 78 20 3d 20 6c 69 62 63 61 63 6b 65 79 5f  tex = libcackey_
07c0: 77 72 61 70 5f 75 6e 6c 6f 63 6b 6d 75 74 65 78  wrap_unlockmutex
07d0: 3b 27 0a 09 09 65 63 68 6f 20 24 27 5c 74 5c 74  ;'...echo $'\t\t
07e0: 5c 74 27 27 6c 6f 63 61 6c 61 72 67 73 2e 66 6c  \t''localargs.fl
07f0: 61 67 73 20 26 3d 20 7e 43 4b 46 5f 4f 53 5f 4c  ags &= ~CKF_OS_L
0800: 4f 43 4b 49 4e 47 5f 4f 4b 3b 27 0a 09 09 65 63  OCKING_OK;'...ec
0810: 68 6f 20 24 27 5c 74 5c 74 5c 74 27 27 70 49 6e  ho $'\t\t\t''pIn
0820: 69 74 41 72 67 73 20 3d 20 26 6c 6f 63 61 6c 61  itArgs = &locala
0830: 72 67 73 3b 27 0a 09 09 65 63 68 6f 20 24 27 5c  rgs;'...echo $'\
0840: 74 5c 74 27 27 7d 27 0a 09 09 65 63 68 6f 20 24  t\t''}'...echo $
0850: 27 5c 74 27 27 7d 27 0a 09 66 69 0a 09 65 63 68  '\t''}'..fi..ech
0860: 6f 20 27 27 0a 09 65 63 68 6f 20 24 27 5c 74 27  o ''..echo $'\t'
0870: 22 66 75 6e 63 20 3d 20 64 6c 73 79 6d 28 6c 69  "func = dlsym(li
0880: 62 63 61 63 6b 65 79 5f 77 72 61 70 5f 68 61 6e  bcackey_wrap_han
0890: 64 6c 65 2c 20 5c 22 24 7b 66 75 6e 63 74 69 6f  dle, \"${functio
08a0: 6e 7d 5c 22 29 3b 22 0a 09 65 63 68 6f 20 27 27  n}\");"..echo ''
08b0: 0a 09 69 66 20 5b 20 22 24 7b 66 75 6e 63 74 69  ..if [ "${functi
08c0: 6f 6e 7d 22 20 3d 20 27 43 5f 46 69 6e 61 6c 69  on}" = 'C_Finali
08d0: 7a 65 27 20 5d 3b 20 74 68 65 6e 0a 09 09 65 63  ze' ]; then...ec
08e0: 68 6f 20 24 27 5c 74 27 22 72 65 74 76 61 6c 20  ho $'\t'"retval 
08f0: 3d 20 66 75 6e 63 28 24 61 72 67 4e 61 6d 65 73  = func($argNames
0900: 4c 69 73 74 29 3b 22 0a 09 09 65 63 68 6f 20 27  List);"...echo '
0910: 27 0a 09 09 65 63 68 6f 20 24 27 5c 74 27 27 6c  '...echo $'\t''l
0920: 69 62 63 61 63 6b 65 79 5f 77 72 61 70 5f 66 69  ibcackey_wrap_fi
0930: 6e 69 28 29 3b 27 0a 09 09 65 63 68 6f 20 27 27  ni();'...echo ''
0940: 0a 09 09 65 63 68 6f 20 24 27 5c 74 27 27 72 65  ...echo $'\t''re
0950: 74 75 72 6e 28 72 65 74 76 61 6c 29 3b 27 0a 09  turn(retval);'..
0960: 65 6c 69 66 20 5b 20 22 24 7b 66 75 6e 63 74 69  elif [ "${functi
0970: 6f 6e 7d 22 20 3d 20 27 43 5f 47 65 74 46 75 6e  on}" = 'C_GetFun
0980: 63 74 69 6f 6e 4c 69 73 74 27 20 5d 3b 20 74 68  ctionList' ]; th
0990: 65 6e 0a 09 09 65 63 68 6f 20 24 27 5c 74 27 22  en...echo $'\t'"
09a0: 72 65 74 76 61 6c 20 3d 20 66 75 6e 63 28 24 61  retval = func($a
09b0: 72 67 4e 61 6d 65 73 4c 69 73 74 29 3b 22 0a 09  rgNamesList);"..
09c0: 09 65 63 68 6f 20 27 27 0a 09 09 65 63 68 6f 20  .echo ''...echo 
09d0: 24 27 5c 74 27 27 69 66 20 28 72 65 74 76 61 6c  $'\t''if (retval
09e0: 20 3d 3d 20 43 4b 52 5f 4f 4b 29 20 7b 27 0a 09   == CKR_OK) {'..
09f0: 09 65 63 68 6f 20 24 27 5c 74 5c 74 27 27 70 46  .echo $'\t\t''pF
0a00: 75 6e 63 74 69 6f 6e 4c 69 73 74 20 3d 20 2a 70  unctionList = *p
0a10: 70 46 75 6e 63 74 69 6f 6e 4c 69 73 74 3b 27 0a  pFunctionList;'.
0a20: 09 09 66 6f 72 20 66 75 6e 63 74 69 6f 6e 20 69  ..for function i
0a30: 6e 20 22 24 7b 66 75 6e 63 74 69 6f 6e 4c 69 73  n "${functionLis
0a40: 74 5b 40 5d 7d 22 3b 20 64 6f 0a 09 09 09 65 63  t[@]}"; do....ec
0a50: 68 6f 20 24 27 5c 74 5c 74 27 22 70 46 75 6e 63  ho $'\t\t'"pFunc
0a60: 74 69 6f 6e 4c 69 73 74 2d 3e 24 7b 66 75 6e 63  tionList->${func
0a70: 74 69 6f 6e 7d 20 3d 20 24 7b 66 75 6e 63 74 69  tion} = ${functi
0a80: 6f 6e 7d 3b 22 0a 09 09 64 6f 6e 65 0a 09 09 65  on};"...done...e
0a90: 63 68 6f 20 24 27 5c 74 27 27 7d 27 0a 09 09 65  cho $'\t''}'...e
0aa0: 63 68 6f 20 27 27 0a 09 09 65 63 68 6f 20 24 27  cho ''...echo $'
0ab0: 5c 74 27 27 72 65 74 75 72 6e 28 72 65 74 76 61  \t''return(retva
0ac0: 6c 29 3b 27 0a 09 65 6c 73 65 0a 09 09 65 63 68  l);'..else...ech
0ad0: 6f 20 24 27 5c 74 27 22 72 65 74 75 72 6e 28 66  o $'\t'"return(f
0ae0: 75 6e 63 28 24 61 72 67 4e 61 6d 65 73 4c 69 73  unc($argNamesLis
0af0: 74 29 29 3b 22 0a 09 66 69 0a 09 65 63 68 6f 20  t));"..fi..echo 
0b00: 27 7d 27 0a 64 6f 6e 65 0a                       '}'.done.