Mercurial > repo

annotate bin/paste @ 8026:84324c148763

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
<hppavilion[2]> mkx bin/thingwords//words ${1---eng-1M --esolangs 20} | sed -re "s/( |$)/$1\\1/g" | rainwords
author HackBot
date Wed, 11 May 2016 21:58:07 +0000
parents 56dcce63901b
children 916b38c83c3b
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
5643
56dcce63901b <tswett> revert
HackBot
parents:
diff changeset
1 #!/bin/bash
56dcce63901b <tswett> revert
HackBot
parents:
diff changeset
2 if [ "$1" ] && url "$1" 2>/dev/null # Save making a file when it already exists.
56dcce63901b <tswett> revert
HackBot
parents:
diff changeset
3 then
56dcce63901b <tswett> revert
HackBot
parents:
diff changeset
4 true
56dcce63901b <tswett> revert
HackBot
parents:
diff changeset
5 else
56dcce63901b <tswett> revert
HackBot
parents:
diff changeset
6 PASTENUM="$RANDOM"
56dcce63901b <tswett> revert
HackBot
parents:
diff changeset
7
56dcce63901b <tswett> revert
HackBot
parents:
diff changeset
8 mkdir -p $HACKENV/paste
56dcce63901b <tswett> revert
HackBot
parents:
diff changeset
9
56dcce63901b <tswett> revert
HackBot
parents:
diff changeset
10 url paste/paste."$PASTENUM"
56dcce63901b <tswett> revert
HackBot
parents:
diff changeset
11 cat -- "${1--}" > $HACKENV/paste/paste."$PASTENUM"
56dcce63901b <tswett> revert
HackBot
parents:
diff changeset
12 fi