108 lines
4.3 KiB
PHP
108 lines
4.3 KiB
PHP
|
# ***************************************************************************
|
||
|
|
# * _ _ ____ _
|
||
|
|
# * Project ___| | | | _ \| |
|
||
|
|
# * / __| | | | |_) | |
|
||
|
|
# * | (__| |_| | _ <| |___
|
||
|
|
# * \___|\___/|_| \_\_____|
|
||
|
|
# *
|
||
|
|
# * Copyright (C) 2012 - 2017, Daniel Stenberg, <daniel@haxx.se>, et al.
|
||
|
|
# *
|
||
|
|
# * This software is licensed as described in the file COPYING, which
|
||
|
|
# * you should have received as part of this distribution. The terms
|
||
|
|
# * are also available at https://curl.haxx.se/docs/copyright.html.
|
||
|
|
# *
|
||
|
|
# * You may opt to use, copy, modify, merge, publish, distribute and/or sell
|
||
|
|
# * copies of the Software, and permit persons to whom the Software is
|
||
|
|
# * furnished to do so, under the terms of the COPYING file.
|
||
|
|
# *
|
||
|
|
# * This software is distributed on an "AS IS" basis, WITHOUT WARRANTY OF ANY
|
||
|
|
# * KIND, either express or implied.
|
||
|
|
# *
|
||
|
|
# ***************************************************************************
|
||
|
|
|
||
|
|
#
|
||
|
|
# This file is sourced from curl/packages/OS400/initscript.sh and
|
||
|
|
# other Bourne shell scripts. Keep it as portable as possible.
|
||
|
|
#
|
||
|
|
|
||
|
|
#
|
||
|
|
# curl_10char_object_name
|
||
|
|
#
|
||
|
|
# This shell function accepts a single string argument with unspecified
|
||
|
|
# length representing a (*.c) source file name and returns a string which
|
||
|
|
# is a transformation of given argument.
|
||
|
|
#
|
||
|
|
# The intended purpose of this function is to transliterate a (*.c) source
|
||
|
|
# file name that may be longer than 10 characters, or not, into a string
|
||
|
|
# with at most 10 characters which may be used as an OS/400 object name.
|
||
|
|
#
|
||
|
|
# This function might not be universally useful, nor we care about it.
|
||
|
|
#
|
||
|
|
# It is intended to be used with libcurl's (*.c) source file names, so
|
||
|
|
# dependency on libcurl's source file naming scheme is acceptable and
|
||
|
|
# good enough for its intended use. Specifically it makes use of the fact
|
||
|
|
# that libcurl's (*.c) source file names which may be longer than 10 chars
|
||
|
|
# are conformed with underscore '_' separated substrings, or separated by
|
||
|
|
# other character which does not belong to the [0-9], [a-z] or [A-Z] sets.
|
||
|
|
#
|
||
|
|
# This allows repeatable and automatic short object name generation with
|
||
|
|
# no need for a hardcoded mapping table.
|
||
|
|
#
|
||
|
|
# Transformation is done in the following way:
|
||
|
|
#
|
||
|
|
# 1) Leading directory components are removed.
|
||
|
|
# 2) Leftmost dot character and any other char following it are removed.
|
||
|
|
# 3) Lowercase characters are transliterated to uppercase.
|
||
|
|
# 4) Characters not in [A-Z] or [0-9] are transliterated to underscore '_'.
|
||
|
|
# 5) Every sequence of one or more underscores is replaced with a single one.
|
||
|
|
# 6) Five leftmost substrings which end in an underscore character are
|
||
|
|
# replaced by the first character of each substring, while retaining
|
||
|
|
# the rest of the string.
|
||
|
|
# 7) Finally the result is truncated to 10 characters.
|
||
|
|
#
|
||
|
|
# Resulting object name may be shorter than 10 characters.
|
||
|
|
#
|
||
|
|
# Test case 1221 does unit testng of this function and also verifies
|
||
|
|
# that it is possible to generate distinct short object names for all
|
||
|
|
# curl and libcurl *.c source file names.
|
||
|
|
#
|
||
|
|
|
||
|
|
curl_10char_object_name() {
|
||
|
|
echo "${1}" | \
|
||
|
|
sed -e 's:.*/::' \
|
||
|
|
-e 's:[.].*::' \
|
||
|
|
-e 'y:abcdefghijklmnopqrstuvwxyz:ABCDEFGHIJKLMNOPQRSTUVWXYZ:' \
|
||
|
|
-e 's:[^ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890_]:_:g' \
|
||
|
|
-e 's:__*:_:g' \
|
||
|
|
-e 's:\([^_]\)[^_]*_\(.*\):\1\2:' \
|
||
|
|
-e 's:\([^_]\)\([^_]\)[^_]*_\(.*\):\1\2\3:' \
|
||
|
|
-e 's:\([^_]\)\([^_]\)\([^_]\)[^_]*_\(.*\):\1\2\3\4:' \
|
||
|
|
-e 's:\([^_]\)\([^_]\)\([^_]\)\([^_]\)[^_]*_\(.*\):\1\2\3\4\5:' \
|
||
|
|
-e 's:\([^_]\)\([^_]\)\([^_]\)\([^_]\)\([^_]\)[^_]*_\(.*\):\1\2\3\4\5\6:' \
|
||
|
|
-e 's:^\(..........\).*:\1:'
|
||
|
|
}
|
||
|
|
|
||
|
|
#
|
||
|
|
# curl_8char_object_name
|
||
|
|
#
|
||
|
|
# Same as curl_10char_object_name() description and details above, except
|
||
|
|
# that object name is limited to 8 characters maximum.
|
||
|
|
#
|
||
|
|
|
||
|
|
curl_8char_object_name() {
|
||
|
|
echo "${1}" | \
|
||
|
|
sed -e 's:.*/::' \
|
||
|
|
-e 's:[.].*::' \
|
||
|
|
-e 'y:abcdefghijklmnopqrstuvwxyz:ABCDEFGHIJKLMNOPQRSTUVWXYZ:' \
|
||
|
|
-e 's:[^ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890_]:_:g' \
|
||
|
|
-e 's:__*:_:g' \
|
||
|
|
-e 's:\([^_]\)[^_]*_\(.*\):\1\2:' \
|
||
|
|
-e 's:\([^_]\)\([^_]\)[^_]*_\(.*\):\1\2\3:' \
|
||
|
|
-e 's:\([^_]\)\([^_]\)\([^_]\)[^_]*_\(.*\):\1\2\3\4:' \
|
||
|
|
-e 's:\([^_]\)\([^_]\)\([^_]\)\([^_]\)[^_]*_\(.*\):\1\2\3\4\5:' \
|
||
|
|
-e 's:\([^_]\)\([^_]\)\([^_]\)\([^_]\)\([^_]\)[^_]*_\(.*\):\1\2\3\4\5\6:' \
|
||
|
|
-e 's:^\(........\).*:\1:'
|
||
|
|
}
|
||
|
|
|
||
|
|
# end of objectname.inc
|