Re: Command Line Continuation
- Posted by "Igor Kachan" <kinz at peterlink.ru> Sep 19, 2004
- 477 views
Hi, Pete! You wrote: [snip] > One of the most stupid things I ever wasted > my time on is the following program, which > should scare you somewhat, but I think it > proves a point > > }}} <eucode> > -- goto.exw: usage exw goto.exw <file> > constant togo="goto" type > goto(integer > goto) return > goto= > goto end type type > goto_s(sequence > goto) return equal( > goto, > goto) end type > goto > goto_t, > goto_u procedure > goto_a( > goto > goto) > goto_t+= > goto if > goto then > goto_u= > goto end if end procedure procedure > goto_b( > goto > goto) > goto_u= > goto_u* > goto+1 > goto_a( > goto_u= > goto*5) end procedure function > goto_c( > goto > goto) > goto_b( > goto=togo[ > goto_u]) return > goto!=-1 end function procedure > goto_d( > goto > goto) > goto_u= > goto!=1 > goto_t= > goto=0 while > goto_c(getc( > goto)) do end while close( > goto) printf(1,"%d goto \'s\n", > goto_t) end procedure procedure > goto_x( > goto_s > goto) > goto_d(open( > goto[length( > goto)],"r")) end procedure > goto_x(command_line()) > </eucode> {{{ LOLLLLL! I think, Rob needs a separate section in his Archive to keep such the jokes. Submit it to Rob! Good Luck! Regards, Igor Kachan kinz at peterlink.ru