1 # *************************************************************************** 2 # * _ _ ____ _ 3 # * Project ___| | | | _ \| | 4 # * / __| | | | |_) | | 5 # * | (__| |_| | _ <| |___ 6 # * \___|\___/|_| \_\_____| 7 # * 8 # * Copyright (C) 2012, Daniel Stenberg, <daniel (a] haxx.se>, et al. 9 # * 10 # * This software is licensed as described in the file COPYING, which 11 # * you should have received as part of this distribution. The terms 12 # * are also available at https://curl.haxx.se/docs/copyright.html. 13 # * 14 # * You may opt to use, copy, modify, merge, publish, distribute and/or sell 15 # * copies of the Software, and permit persons to whom the Software is 16 # * furnished to do so, under the terms of the COPYING file. 17 # * 18 # * This software is distributed on an "AS IS" basis, WITHOUT WARRANTY OF ANY 19 # * KIND, either express or implied. 20 # * 21 # *************************************************************************** 22 23 # 24 # This file is sourced from curl/packages/OS400/initscript.sh and 25 # other Bourne shell scripts. Keep it as portable as possible. 26 # 27 28 # 29 # curl_10char_object_name 30 # 31 # This shell function accepts a single string argument with unspecified 32 # length representing a (*.c) source file name and returns a string which 33 # is a transformation of given argument. 34 # 35 # The intended purpose of this function is to transliterate a (*.c) source 36 # file name that may be longer than 10 characters, or not, into a string 37 # with at most 10 characters which may be used as an OS/400 object name. 38 # 39 # This function might not be universally usefull, nor we care about it. 40 # 41 # It is intended to be used with libcurl's (*.c) source file names, so 42 # dependency on libcurl's source file naming scheme is acceptable and 43 # good enough for its intended use. Specifically it makes use of the fact 44 # that libcurl's (*.c) source file names which may be longer than 10 chars 45 # are conformed with underscore '_' separated substrings, or separated by 46 # other character which does not belong to the [0-9], [a-z] or [A-Z] sets. 47 # 48 # This allows repeatable and automatic short object name generation with 49 # no need for a hardcoded mapping table. 50 # 51 # Transformation is done in the following way: 52 # 53 # 1) Leading directory components are removed. 54 # 2) Leftmost dot character and any other char following it are removed. 55 # 3) Lowercase characters are transliterated to uppercase. 56 # 4) Characters not in [A-Z] or [0-9] are transliterated to underscore '_'. 57 # 5) Every sequence of one or more underscores is replaced with a single one. 58 # 6) Five leftmost substrings which end in an underscore character are 59 # replaced by the first character of each substring, while retaining 60 # the rest of the string. 61 # 7) Finally the result is truncated to 10 characters. 62 # 63 # Resulting object name may be shorter than 10 characters. 64 # 65 # Test case 1221 does unit testng of this function and also verifies 66 # that it is possible to generate distinct short object names for all 67 # curl and libcurl *.c source file names. 68 # 69 70 curl_10char_object_name() { 71 echo "${1}" | \ 72 sed -e 's:.*/::' \ 73 -e 's:[.].*::' \ 74 -e 'y:abcdefghijklmnopqrstuvwxyz:ABCDEFGHIJKLMNOPQRSTUVWXYZ:' \ 75 -e 's:[^ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890_]:_:g' \ 76 -e 's:__*:_:g' \ 77 -e 's:\([^_]\)[^_]*_\(.*\):\1\2:' \ 78 -e 's:\([^_]\)\([^_]\)[^_]*_\(.*\):\1\2\3:' \ 79 -e 's:\([^_]\)\([^_]\)\([^_]\)[^_]*_\(.*\):\1\2\3\4:' \ 80 -e 's:\([^_]\)\([^_]\)\([^_]\)\([^_]\)[^_]*_\(.*\):\1\2\3\4\5:' \ 81 -e 's:\([^_]\)\([^_]\)\([^_]\)\([^_]\)\([^_]\)[^_]*_\(.*\):\1\2\3\4\5\6:' \ 82 -e 's:^\(..........\).*:\1:' 83 } 84 85 # 86 # curl_8char_object_name 87 # 88 # Same as curl_10char_object_name() description and details above, except 89 # that object name is limited to 8 charcters maximum. 90 # 91 92 curl_8char_object_name() { 93 echo "${1}" | \ 94 sed -e 's:.*/::' \ 95 -e 's:[.].*::' \ 96 -e 'y:abcdefghijklmnopqrstuvwxyz:ABCDEFGHIJKLMNOPQRSTUVWXYZ:' \ 97 -e 's:[^ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890_]:_:g' \ 98 -e 's:__*:_:g' \ 99 -e 's:\([^_]\)[^_]*_\(.*\):\1\2:' \ 100 -e 's:\([^_]\)\([^_]\)[^_]*_\(.*\):\1\2\3:' \ 101 -e 's:\([^_]\)\([^_]\)\([^_]\)[^_]*_\(.*\):\1\2\3\4:' \ 102 -e 's:\([^_]\)\([^_]\)\([^_]\)\([^_]\)[^_]*_\(.*\):\1\2\3\4\5:' \ 103 -e 's:\([^_]\)\([^_]\)\([^_]\)\([^_]\)\([^_]\)[^_]*_\(.*\):\1\2\3\4\5\6:' \ 104 -e 's:^\(........\).*:\1:' 105 } 106 107 # end of objectname.inc 108
