continue to cleanup
Signed-off-by: Nico Schottelius <nico@ikn.schottelius.org>
This commit is contained in:
parent
158fbccc82
commit
4e21c23414
9 changed files with 0 additions and 59 deletions
4
old/1440disk
Executable file
4
old/1440disk
Executable file
|
|
@ -0,0 +1,4 @@
|
|||
#!/bin/bash
|
||||
fdformat /dev/fd0u1440
|
||||
mformat -s 16 -t 80 -h 2 a:
|
||||
mdir a:
|
||||
4
old/720disk
Executable file
4
old/720disk
Executable file
|
|
@ -0,0 +1,4 @@
|
|||
#!/bin/bash
|
||||
fdformat /dev/fd0h720
|
||||
mformat -s 8 -t 80 -h 2 a:
|
||||
mdir a:
|
||||
44
old/ae_parser
Executable file
44
old/ae_parser
Executable file
|
|
@ -0,0 +1,44 @@
|
|||
# Date: 15th of March 2k+1
|
||||
# Last Changed: 24th of February 2k+4
|
||||
# Author: Nico Schottelius <Nico AT Schottelius DOT Org>
|
||||
# Description: This script searches for the following strings
|
||||
# and will substitute them with the right German Characters
|
||||
#
|
||||
# _ae_ = ä
|
||||
# _ue_ = ü
|
||||
# _oe_ = ö
|
||||
# _Ae_ = Ä
|
||||
# _Oe_ = Ö
|
||||
# _Ue_ = Ü
|
||||
# _sz_ = ß (not _ss_ like it was earlier)
|
||||
#
|
||||
|
||||
|
||||
if [ $# -lt 1 ]; then
|
||||
echo `basename $0`': file(s)'
|
||||
echo 'Hey, hey guy, what to convert ?'
|
||||
exit 1
|
||||
fi
|
||||
|
||||
for mfile in $@; do
|
||||
|
||||
if [ ! -f "$mfile" ]; then
|
||||
echo "Keine Datei namens $mfile gefunden. Skip."
|
||||
break
|
||||
fi
|
||||
|
||||
# something other programs do not use
|
||||
G_STR=".`date +%s%M%U`-`basename $0`-`basename $mfile`-$$"
|
||||
|
||||
echo "Using $G_STR to convert $mfile ..."
|
||||
|
||||
cat "$mfile" | sed -e 's/_ae_/ä/g' -e 's/_ue_/ü/g' -e 's/_oe_/ö/g' \
|
||||
-e 's/_Ae_/Ä/g' -e 's/_Ue_/Ü/g' -e 's/_Oe_/Ö/g' -e 's/_sz_/ß/g' > "$G_STR"
|
||||
|
||||
if [ $? = 0 ]; then
|
||||
mv "$G_STR" "$mfile"
|
||||
else
|
||||
echo "Replacing failed, don't replace original."
|
||||
fi
|
||||
|
||||
done
|
||||
47
old/ae_to_latex
Executable file
47
old/ae_to_latex
Executable file
|
|
@ -0,0 +1,47 @@
|
|||
# Date: 15th of March 2k+1
|
||||
# Last Changed: 24th of February 2k+4
|
||||
# Author: Nico Schottelius <Nico AT Schottelius DOT Org>
|
||||
# Description: This script searches for the following strings
|
||||
# and will substitute them with the right German Characters for Latex
|
||||
#
|
||||
# \"a = ä
|
||||
# \"u = ü
|
||||
# \"o = ö
|
||||
# \"A = Ä
|
||||
# \"O_ = Ö
|
||||
# \"U = Ü
|
||||
# \ss{} = ß (not _ss_ like it was earlier)
|
||||
#
|
||||
|
||||
|
||||
if [ $# -lt 1 ]; then
|
||||
echo `basename $0`': file(s)'
|
||||
echo 'Hey, hey guy, what to convert ?'
|
||||
exit 1
|
||||
fi
|
||||
|
||||
for mfile in $@; do
|
||||
|
||||
if [ ! -f "$mfile" ]; then
|
||||
echo "Keine Datei namens $mfile gefunden. Skip."
|
||||
break
|
||||
fi
|
||||
|
||||
# something other programs do not use
|
||||
G_STR=".`date +%s%M%U`-`basename $0`-`basename $mfile`-$$"
|
||||
|
||||
echo "Using $G_STR to convert $mfile ..."
|
||||
|
||||
cat "$mfile" | sed -e 's/ä/\\"a/g' -e 's/ü/\\"u/g' -e 's/ö/\\"o/g' \
|
||||
-e 's/_ae_/\\"a/g' -e 's/_ue_/\\"u/g' -e 's/_oe_/\\"o/g' \
|
||||
-e 's/_Ae_/\\"A/g' -e 's/_Ue_/\\"U/g' -e 's/_Oe_/\\"O/g' \
|
||||
-e 's/_sz_/\ss{}/g' -e 's/ä/\\"a/g' -e 's/ü/\\"u/g' -e 's/ö/\\"o/g' \
|
||||
-e 's/Ä/\\"A/g' -e 's/Ü/\\"U/g' -e 's/Ö/\\"O/g' -e 's/ß/\\ss{}/g'>"$G_STR"
|
||||
|
||||
if [ $? = 0 ]; then
|
||||
mv "$G_STR" "$mfile"
|
||||
else
|
||||
echo "Replacing failed, don't replace original."
|
||||
fi
|
||||
|
||||
done
|
||||
1
old/ampersand_to_newline
Executable file
1
old/ampersand_to_newline
Executable file
|
|
@ -0,0 +1 @@
|
|||
cat test | perl -e 'while(<>) { s/&/\n/; print $_; }'
|
||||
21
old/netscape-alias-to-mutt-alias.awk
Executable file
21
old/netscape-alias-to-mutt-alias.awk
Executable file
|
|
@ -0,0 +1,21 @@
|
|||
# small script, which helps to make mutt alias from netscape alias
|
||||
# Author: Nico Schottelius <nico@schottelius.org>
|
||||
# Date: 12th of March 2002
|
||||
# Last Changed: same
|
||||
#
|
||||
|
||||
# alias name1 name2 name3 <emailaddr> to
|
||||
# alias name1name2name3 name1 name2 name3 <emailaddr>
|
||||
|
||||
/^alias .* <.*>$/ {
|
||||
save=ORS
|
||||
ORS=""
|
||||
line++;
|
||||
print "alias "
|
||||
for(j=2;j<NF;j++)
|
||||
print $j
|
||||
for(i=2;i<=NF;i++)
|
||||
print " " $i
|
||||
ORS=save
|
||||
print ""
|
||||
}
|
||||
Loading…
Add table
Add a link
Reference in a new issue