34 lines
1.2 KiB
Bash
Executable File
34 lines
1.2 KiB
Bash
Executable File
#!/bin/bash
|
|
for i in `find -name '*-6-11' -or -name '*-6-12' -or -name '*-6-90.0.29'`; do
|
|
echo "${i%-6-*}"
|
|
done | sort -u | while read pathmain; do
|
|
echo "$pathmain"
|
|
main="$(basename "$pathmain")"
|
|
|
|
if test -e "${pathmain}-6-11"; then eleven="(my-include \"${main}-6-11\")";
|
|
else eleven="(begin)"; fi
|
|
|
|
if test -e "${pathmain}-6-12"; then twelve="(my-include \"${main}-6-12\")";
|
|
elif test -e "${pathmain}-6-12.deleted"; then twelve="(begin)";
|
|
else twelve="$eleven"; fi
|
|
|
|
if test -e "${pathmain}-6-90-0-29"; then twentynine="(my-include \"${main}-6-90-0-29\")";
|
|
elif test -e "${pathmain}-6-90-0-29.deleted"; then twelve="(begin)";
|
|
else twentynine="$twelve"; fi
|
|
|
|
cat > "$pathmain" <<EOF
|
|
#lang racket/base
|
|
(#%require version-case
|
|
(for-syntax (only racket/base version)
|
|
(only racket/base #%app #%datum))
|
|
stxparse-info/my-include)
|
|
(version-case
|
|
[(version< (version) "6.11.0.900")
|
|
$eleven]
|
|
[(version< (version) "6.90.0.29")
|
|
$twelve]
|
|
[else
|
|
$twentynine])
|
|
EOF
|
|
done
|