1 # ***************************************************************************
3 # * Project ___| | | | _ \| |
4 # * / __| | | | |_) | |
5 # * | (__| |_| | _ <| |___
6 # * \___|\___/|_| \_\_____|
8 # * Copyright (C) 2012, Daniel Stenberg, <daniel@haxx.se>, et al.
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.
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.
18 # * This software is distributed on an "AS IS" basis, WITHOUT WARRANTY OF ANY
19 # * KIND, either express or implied.
21 # ***************************************************************************
24 # This file is sourced from curl/packages/OS400/initscript.sh and
25 # other Bourne shell scripts. Keep it as portable as possible.
29 # curl_10char_object_name
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.
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.
39 # This function might not be universally usefull, nor we care about it.
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.
48 # This allows repeatable and automatic short object name generation with
49 # no need for a hardcoded mapping table.
51 # Transformation is done in the following way:
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.
63 # Resulting object name may be shorter than 10 characters.
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.
70 curl_10char_object_name() {
74 -e 'y:abcdefghijklmnopqrstuvwxyz:ABCDEFGHIJKLMNOPQRSTUVWXYZ:' \
75 -e 's:[^ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890_]:_: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:'
86 # curl_8char_object_name
88 # Same as curl_10char_object_name() description and details above, except
89 # that object name is limited to 8 charcters maximum.
92 curl_8char_object_name() {
96 -e 'y:abcdefghijklmnopqrstuvwxyz:ABCDEFGHIJKLMNOPQRSTUVWXYZ:' \
97 -e 's:[^ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890_]:_: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:'
107 # end of objectname.inc