Bertrand SIMONNET | e6cd738 | 2015-07-01 15:39:44 -0700 | [diff] [blame] | 1 | # *************************************************************************** |
| 2 | # * _ _ ____ _ |
| 3 | # * Project ___| | | | _ \| | |
| 4 | # * / __| | | | |_) | | |
| 5 | # * | (__| |_| | _ <| |___ |
| 6 | # * \___|\___/|_| \_\_____| |
| 7 | # * |
Elliott Hughes | 82be86d | 2017-09-20 17:00:17 -0700 | [diff] [blame] | 8 | # * Copyright (C) 2012 - 2017, Daniel Stenberg, <daniel@haxx.se>, et al. |
Bertrand SIMONNET | e6cd738 | 2015-07-01 15:39:44 -0700 | [diff] [blame] | 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 |
Alex Deymo | 8f1a214 | 2016-06-28 14:49:26 -0700 | [diff] [blame] | 12 | # * are also available at https://curl.haxx.se/docs/copyright.html. |
Bertrand SIMONNET | e6cd738 | 2015-07-01 15:39:44 -0700 | [diff] [blame] | 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 | # |
Elliott Hughes | 82be86d | 2017-09-20 17:00:17 -0700 | [diff] [blame] | 39 | # This function might not be universally useful, nor we care about it. |
Bertrand SIMONNET | e6cd738 | 2015-07-01 15:39:44 -0700 | [diff] [blame] | 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 |
Elliott Hughes | cac3980 | 2018-04-27 16:19:43 -0700 | [diff] [blame] | 89 | # that object name is limited to 8 characters maximum. |
Bertrand SIMONNET | e6cd738 | 2015-07-01 15:39:44 -0700 | [diff] [blame] | 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 |