Logo AND Algorithmique Numérique Distribuée

Public GIT Repository
no smpi won't be spared by my manic fury!
[simgrid.git] / src / smpi / smpitools.sh
1 #!/bin/sh
2
3 # Copyright (c) 2013-2014. The SimGrid Team.
4 # All rights reserved.
5
6 # This program is free software; you can redistribute it and/or modify it
7 # under the terms of the license (GNU LGPL) which comes with this package.
8
9 SAVEIFS="$IFS"
10 LISTSEP="$(printf '\b')"
11
12 # Create a temporary file, with its name of the form $1_XXX$2, where XXX is replaced by an unique string.
13 # $1: prefix, $2: suffix
14 mymktemp () {
15     tmp=$(mktemp --suffix="$2" "$1_XXXXXXXXXX" 2> /dev/null)
16     if [ -z "$tmp" ]; then
17         # mktemp failed (unsupported --suffix ?), try unsafe mode
18         tmp=$(mktemp -u "$1_XXXXXXXXXX" 2> /dev/null)
19         if [ -z "$tmp" ]; then
20             # mktemp failed again (doesn't exist ?), try very unsafe mode
21             if [ -z "${mymktemp_seq}" ]; then
22                 mymktemp_seq=$(date +%d%H%M%S)
23             fi
24             tmp="$1_$$x${mymktemp_seq}"
25             mymktemp_seq=$((mymktemp_seq + 1))
26         fi
27         tmp="${tmp}$2"
28         # create temp file, and exit if it existed before
29         sh -C -c "true > \"${tmp}\"" || exit 1
30     fi
31     echo "${tmp}"
32 }
33
34 # Add a word to the end of a list (words separated by LISTSEP)
35 # $1: list, $2...: words to add
36 list_add () {
37     local list content newcontent
38     list="$1"
39     shift
40     if [ $# -gt 0 ]; then
41         eval content=\"\${$list}\"
42         IFS="$LISTSEP"
43         newcontent="$*"
44         IFS="$SAVEIFS"
45         if [ -z "$content" ]; then
46             content="$newcontent"
47         else
48             content="$content${LISTSEP}$newcontent"
49         fi
50         eval $list=\"\${content}\"
51     fi
52 }
53
54 # Like list_add, but only if first word to add ($2) is not empty
55 list_add_not_empty () {
56     if [ -n "$2" ]; then
57         list_add "$@"
58     fi
59 }
60
61 # Set contents of a list (words separated by LISTSEP)
62 # $1: list, $2...: words to set
63 list_set () {
64     eval $1=""
65     list_add "$@"
66 }
67
68 # Get the content of a list: positional parameters ($1, $2, ...) are set to the content of the list
69 # $1: list
70 # usage:  eval $(list_get list)
71 list_get () {
72     printf 'IFS="$LISTSEP"; eval set -- \\$%s; IFS="$SAVEIFS"' "$1"
73 }