Programming - Tower of Power BBS

Why not? There has to be at least one web design geek here.

If I get around to it* I may try making a theme or two for our little community.

Having a few of our own themes would be great, either similar to the ones on the imageboard or something completely different.
A frame view could also be done, although I personally dislike them and don't see the point for such a small set of boards.

A consummate Perl hacker might want to try his hand at generating a 'Recent Posts' window for the index page, a suggested feature similar to what the main site has already.

The site also could use a new favicon, if anyone fancys that.

>WEB DSIEGINIGN GEEK

ÖöÖöÖöÖöÖöÖöÖöÖöÖöÖöÖöÖöÖöÖöÖöÖö

A few new Pseud0ch variants were just added, with bigger margins and some more backgrounds. I find them pleasant to look at and they aren't too difficult make.
It also turns out there's zero difference between the stock Buun and VIPPER themes, so the former was canned.
Still waiting for >>1's arrival.

>There has to be at least one web design geek here.

I'm a web design geek! Unfortunately, I'm not very good at it though... :(

>>5
Go ahead and try! CSS isn't hard, the Giko theme is easily my favourite. There's probably also some old, forgotten themes out there somewhere, if you want to do some archaeology...

Also, having banners would be cool. Not too many, just one for each board. We need to spice this place up a bit!

>>6
Yeah your right! I've messed with CSS before for my site, but only recently have I been really getting more and more comfortable with it. I've actually been doing way better than I have before! Maybe I'm just underminding myself

Post your ENTERPRISE QUALITY code snippets. Java, PHP, Perl, SQL, COBOL, etc.

import java.util.*;

public class OverUnder
{
	public static void
	main(String[] args)
	{
		Random r = new Random();
		Scanner s = new Scanner(System.in);
		char g, c;
		int i, h=999;

post your current projects / interests :)

Not that long ago I wrote a Sexp-to-HTML translator, since I was dissatisfied with the complexity of the existing ones.

(defun sexp->html (sexp &optional (stream *standard-output*))
  (flet ((opening (tag)
	   (when (atom tag) (setq tag (list tag)))
	   (format stream "<~A~{ ~A=\"~A\"~}>" (car tag) (cdr tag)))
	 (closing (tag)
	   (when (atom tag) (setq tag (list tag)))
	   (format stream "</~A>" (car tag))))
    (when sexp
      (opening (car sexp))
      (mapcar (lambda (elem)
		(if (atom elem)
		    (format stream "~A" elem)

>>2 Update:

(when sexp
  (opening (car sexp))
  (when (cdr sexp)
    (mapcar (lambda (elem)
              (if (atom elem)
                  (format stream "~A" elem)
                  (sexp->html elem stream))) (cdr sexp))
    (closing (car sexp)))

Now it handles single tags, and I'm not sure why I didn't think of this earlier.

Interested in a 2D rpg with more textual interface to interaction with npcs.
Menu structure was a step back from Ultima 4 (1981) which allowed text chat with npcs.

6520 (eventually NES hopefully) emulator in Haskell. I want to do it so I can eventually make a blog post describing the process and how Haskell makes things more declarative. For the cycle accuracy, I plab ( ;) ) to use a coroutine monad to pause the instructions (e.g. LDA) at the cycle points. Eventually would like to use an indexed monad to ensure that it's impossible for it to get into an incorrect state, but that's waaaaaaaaaaay off in the future. It also uses lenses which make modelling the instructions really declarative; they are parametrized on the addressing mode:
mkAND :: Lens' ProcessorState Word8 -> (ProcessorState -> ProcessorState)
mkAND addrMode s =
s & aReg .~ r

  & flags . zFlag .~ (r == 0)
  & flags . nFlag .~ (r `testBit` 7)

where a = s ^. aReg

    m = s ^. addrMode
    r = a .&. m

An underrated component of Common Lisp is its dynamic type system. I wrote these types to ease writing more complex ones, and came up with some interesting results.

(deftype satisfiesp (function)
  (let (predicate)
    (cond ((symbolp function)
	   (setq predicate function))
	  ((functionp function)
	   (setq predicate (gensym))
	   (setf (symbol-function predicate) function))
	  ((and (consp function) (eq (car function) 'lambda))
	   (setq predicate (gensym))
	   (compile predicate function))
	  (t (error "~S is neither a lambda expression, function or symbol." function)))
    `(satisfies ,predicate)))