Przemoc's wiki snippets
http://wiki.przemoc.net/
2010-07-07T16:00:56+02:00
FeedCreator 1.7.2-ppt DokuWiki
snippets:c
2009-12-05T20:21:54+02:00
2009-12-05T20:21:54+02:00
http://wiki.przemoc.net/snippets/c
vdiwrap.c
/*
* Copyright (C) 2009 Przemyslaw Pawelczyk <przemoc@gmail.com>
*
***** Description ************************************************************
*
* Simple (and incomplete) syscalls interposition for accessing fixed-size Sun
* xVM VirtualBox Virtual Disk Images (.vdi files), especially using sfdisk.
*
***** License ****************************************************************
*
* GNU General Public License v2, v3
*
***** Tested on ************************************…
snippets:gawk
2007-12-03T00:13:39+02:00
2007-12-03T00:13:39+02:00
http://wiki.przemoc.net/snippets/gawk
RFC formatting
Remove headers and footers
#!/usr/bin/gawk -f
{ gsub( /\x0d$/, "" ); } # remove CR
/^\x0c/ { n = -3; next; } # page-break
/\[Page [0-9]+\]$/ { # end of page
for ( i = 1; i < n + ( lf > 3 ) * 2 - 1; i++ ) # print buffer
print lines[i];
n = 0;
next;
}
/^$/ && ++lf > 2 { next; } # omit more than 2 breaks
!/^$/ { lf = 0; }
{ lines[++n] = $0; } # add current line to buffer
snippets:ruby
2007-11-17T23:50:19+02:00
2007-11-17T23:50:19+02:00
http://wiki.przemoc.net/snippets/ruby
validations.rb
module Validations # version 0.1
# International Bank Account Number
def iban?
unless /\A[A-Z]{2}\d{2} ?[A-Z\d]{4}( ?\d{4}){1,} ?\d{1,4}\z/ === self
return false
end
iban = self.gsub( / /, '' )
iban = ( iban[4..-1] + iban[0..3] ).gsub( /[A-Z]/ ) { |c| ( c[0] - 55 ).to_s }
iban.to_i % 97 == 1
end
# International Standard Book Number
def isbn?
unless [13,17].include?( self.size ) and /\A((978|979)-)?\d+-\d+-\d+-[X\d]\z/ === self
retur…
snippets:sh
2009-09-04T16:19:20+02:00
2009-09-04T16:19:20+02:00
http://wiki.przemoc.net/snippets/sh
Bash
Lockable script
#!/bin/bash
## Copyright (C) 2009 Przemyslaw Pawelczyk <przemoc@gmail.com>
## License: GNU General Public License v2, v3
#
# Lockable script boilerplate
### HEADER ###
LOCKFILE="/var/lock/`basename $0`"
LOCKFD=99
# PRIVATE
_lock() { flock -$1 $LOCKFD; }
_no_more_locking() { _lock u; _lock xn && rm -f $LOCKFILE; }
_prepare_locking() { eval "exec $LOCKFD>\"$LOCKFILE\""; trap _no_more_locking EXIT; }
# ON START
_prepare_locking
# PUBLIC
exlock_now() …