Skip to content


Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
branch: master
Fetching contributors…

Cannot retrieve contributors at this time

30 lines (23 sloc) 0.498 kb
.HLL 'tcl'
.namespace []
.sub '&pid'
.param pmc argv :slurpy
.If(argc==0, {
.local pmc getpid_c
getpid_c = dlfunc lib, 'getpid', 'i'
$I0 = getpid_c()
.If(argc==1, {
# XXX we don't track these yet.
tcl_error 'wrong # args: should be "pid ?channelId?"'
# Local Variables:
# mode: pir
# fill-column: 100
# End:
# vim: expandtab shiftwidth=4 ft=pir:
Jump to Line
Something went wrong with that request. Please try again.