projects
/
unix-history
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
tags
|
clone url
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blame
|
history
|
raw
|
HEAD
BSD 4_3 development
[unix-history]
/
usr
/
contrib
/
icon
/
src
/
lib
/
gener.icn
# GENER(2)
#
# Generators
#
# Ralph E. Griswold
#
# Last modified 7/27/83
#
procedure star(s)
suspend "" | (star(s) || !s)
end
procedure octal()
suspend (0 to 3) || (0 to 7) || (0 to 7)
end
procedure hex()
suspend !"0123456789abcdef" || !"0123456789abcdef"
end
procedure label(s,i)
suspend s || i
suspend s || (i +:= |1)
end