[CSNOBOL4] Decimal to Binary

Okay, I think this is the last of the solutions to Binary Digits. Thie one's in CSNOBOL4. Kudos to Phil Budne for maintaining and expanding this amazing programming language.

The code below, like all the ones before it, is recursive.

        DEFINE('BIN(N,STR)')              :(BIN_END)
BIN     EQ(N,0)                           :S(NZERO)
        BIN = BIN(N / 2, REMDR(N,2) STR)  :S(RETURN)
NZERO   BIN = EQ(SIZE(STR),0) '0'         :S(RETURN)
        BIN = STR                         :(RETURN)
BIN_END

        OUTPUT = BIN(0)
        OUTPUT = BIN(5)
        OUTPUT = BIN(50)
        OUTPUT = BIN(9000)
END

© Copyright Bruce M. Axtens, 2015

[EOC] End of Contract

I've got one more week and then I'm unemployed again.

I feel down. I wish there was something "cutting edge" I could do. Everything I can think of is diametrically opposed to the cutting edge, being either the blunt bit at the back of the knife or the even blunter bit on top of the chisel handle.

Who cares about MetaCard? Who cares about S*BOL but a few diehard fanatics (who are mostly older and greyer than me)? Who cares about Clipper or xHarbour but a few South Americans into retro memorabilia? As for VBScript, this is just one of thousands of websites and I'm a relative newcomer to a tool that's been around for very long time.

Eventually I'll have posted all my MoonRock BASIC, Fitted Software Tools Modula-2, Turbo Pascal 5 and Euphoria code. Whooptie do. Even if I finish my CCNA, learn Haskell, and write Kiwi CatTools equivalents ... who cares?

[SNOBOL4] Parsing text: OnLine Bible to text markup

As a SNOBOL4 script, this gets about as far as I got before getting sidetracked again into other languages. This is a filter converting the NOTES file out of my pre-OSX version of OnLine Bible into docScript, a markup language for my own version (written in REALbasic 3) of Will Duquette's brilliant Notebook.

* notes.sno * parse NOTES file, creating a docScript index page and a list of dependant * docScript pages * * NOTES contains an FF followed by a bible ref followed by a LF followed by * free text until the next FF &amp;TRIM = 1 &amp;ANCHOR = 0 C_FF = CHAR( 12 ) C_CR = CHAR( 13 ) C_LF = CHAR( 10 ) CNT = 0 OFFSET1 = 0 OFFSET2 = 0 PATH = '/Users/bruceaxt/Documents/BrainBucket/docScript/' KEYFILE = PATH "olbstuff.rbt" HDR = '^MClearEdit()^MSetSize(10)^MSetBold(false)^MSetCondense(false)^M' + 'SetExtend(false)^MSetItalic(false)^MSetOutline(false)^MSetShadow(false)^M' + 'SetUnderline(false)^MSetFont("Monaco")^MSetRed(0)^MSetGreen(0)^MSetBlue(0)^M' CVTHDR HDR '^M' = C_CR :S(CVTHDR) BUFFER = INPUT(.NOTES,IO_FINDUNIT(),'B,4096','NOTES') OUTPUT(.KEYFILE,IO_FINDUNIT(),'B',KEYFILE) DEFINE('WRITEFILE(CHUNK)OFFSET') DEFINE('SETTEXT(TEXT)') DEFINE('BLUEON()') DEFINE('BLUEOFF()') KEYFILE = "'olbstuff" C_CR HDR MAIN LINE = NOTES :F(BUFFLD) BUFFER = BUFFER LINE :(MAIN) * At this point we have BUFFER containing the entire text of the file. * Now break at every after the first FF and put that into a file. BUFFLD BUFFER C_FF @OFFSET2 :F(ENDDATA) BUFFER TAB(OFFSET2 - 1) . CHUNK LEN(1) REM . BUFFER WRITEFILE(CHUNK) NOLF CNT = CNT + 1 :(BUFFLD) <br><br>* At this point we have a chunk. Let's see whether the first line contains * anything useful ENDDATA WRITEFILE(BUFFER) * WRITECHUNK(CNT,CHUNK) ENDMAIN :(END) SETTEXT TEXT '"' = '&amp;quot;' :S(SETTEXT) SETTXT2 TEXT '&lt;' = '&amp;lt;' :S(SETTXT2) SETTXT3 TEXT '&gt;' = '&amp;gt;' :S(SETTXT3) SETTXT4 TEXT CHAR(0) = :S(SETTXT4) SETTXT5 TEXT C_LF = '&amp;return;' :S(SETTXT5) SETTEXT = 'settext("' TEXT '")' C_CR :(RETURN) BLUEON BLUEON = 'setblue(255)' C_CR :(RETURN) BLUEOFF BLUEOFF = 'setblue(0)' C_CR :(RETURN) WRITEFILE CHUNK C_LF @OFFSET :F(WF_NOLF) CHUNK TAB(OFFSET - 1) . HEADER LEN(1) REM . CHUNK CLEAN HEADER ':' = '.' :S(CLEAN) CLEAN2 HEADER ' ' = '' :S(CLEAN2) KEYFILE = SETTEXT('[') BLUEON() SETTEXT(HEADER) + BLUEOFF() SETTEXT(']&amp;return;') C_CR WF_NOLF OUTPUT(.OUTFILE,IO_FINDUNIT(),'B',PATH HEADER ".rbt") CLEAN3 TEXT C_LF = '&amp;return;' :S(CLEAN3) OUTFILE = "'" HEADER C_CR HDR SETTEXT(CHUNK) :(RETURN) END

Binary Clock - SNOBOL4

I didn't want to have something ordinary as the first post. So we do SNOBOL4. Other implementations of this algorithm can be found on the Snobol4 Wiki. define('divide(n,d)div,mod,x') :(divide_end) divide div = n / d mod = n - ( div * d ) divide = div " " mod :(return) divide_end define('binary(n)result,bin,mod') :(binary_end) binary result = divide( n, 2 ) result ? " " rem . mod bin = mod "" bin result ? break( " " ) . n differ(n,"0") :f(binary_done)s(binary) binary_done binary = bin :(return) binary_end define('format(n)') :(format_end) format format = replace( lpad( binary( n ), 4, '0' ), + "01", ".#" ) "|" :(return) format_end date() ? " " len( 1 ) . h1 len( 1 ) . h2 ":" len( 1 ) . h3 len( 1 ) . h4 output = format( h1 ) output = format( h2 ) output = format( h3 ) output = format( h4 ) end