********************************************************************************
\n* *
\n* *
\n* SNOBOL4 Program to adapt DUKE DDP „beta code“ output *
\n* to beta code standards *
\n* (c) B.Meissner, Universitaet der Bundeswehr, Hamburg *
\n* *
\n********************************************************************************
\n-plusops 1
\n&trim = 1
\n&anchor = 1
\nnumbers = „0123456789“
\nucase = &ucase
\nlcase = &lcase
\nhtmlcodes = table(1001)
\nhtmlcodes<„rpar“> = „]1“
\nhtmlcodes<„lpar“> = „[1“
\nhtmlcodes<„lt“> = „]2“
\nhtmlcodes<„gt“> = „[2“
\nhtml_pat = pos(0) breakx(„&“) . fp len(1) break(„;“) . code „;“
\nemptypat = pos(0) span(char(32) numbers char(9)) rpos(0)
\n* REPL(S1,S2,S3) WILL DO A STRING-BY-STRING REPLACEMENT ON S1
\n* (with the anchored, improved algorithm using BREAKX):
\n*
\nDEFINE(‚REPL(S1,S2,S3)C,T,FINDC‘) :(REPL_END)
\nREPL S2 LEN(1) . C :F(FRETURN)
\nFINDC = BREAKX(C) . T S2
\nREPL_1 S1 FINDC = :F(REPL_2)
\nREPL = REPL T S3 :(REPL_1)
\nREPL_2 REPL = REPL S1 :(RETURN)
\nREPL_END
\ndefine(„html_code(string)fp,code,c“) :(html_code_end)
\nhtml_code
\n+ string ? html_pat = :f(html_code_return)
\nc = htmlcodes<code>
\nc = ident(c) “ &“ code „; “
\nhtml_code = html_code
\n+ fp
\n+ c :(html_code)
\nhtml_code_return
\n+ html_code = html_code string :(return)
\nhtml_code_end
\n*
\n*
\n* DOT_REPLACE replaces the idiosyncratic „.c 12“ etc.
\n* signs by a kind of coding ahich is more beta code conformant:
\n*
\n*
\ndefine(„dot_replace(string)ifp,numberer“) :(dot_replace_end)
\ndot_replace
\n+ string ? pos(0) breakx(„.“) . fp len(1) „c“ span(char(32))
\n+ span(numbers) . number = :f(dot_replace_ret)
\ndot_replace = dot_replace fp
\n+ dupl(char(32) „?“,number) :(dot_replace)
\ndot_replace_ret
\n+ dot_replace = dot_replace string :(return)
\ndot_replace_end
\n*
\n*
\n* Count() is used to take away leading line numbers
\n* it determines if a number is by step larger as the last
\n* counter, and if so, regards the number as the next counter
\n* (and eventually it will be removed), increasing the counter by step
\n*
\n*
\ncounter = 0
\ndefine(„count(argument,step)“) :(count_end)
\ncount eq(argument,counter + step) :f(freturn)
\ncounter = counter + step :(return)
\ncount_end
\n+ system = „Snobol4+“
\n&ERRLIMIT = 4; SETEXIT(CONTINUE)
\nsystem = host()
\n* Get system type:
\n&ERRLIMIT = 0
\nsystem =
\n+ ?(system ? breakx(„C“) „CSNOBOL“ )
\n+ „Linux“
\nsystem = ?(system ? breakx(„M“) „Macro SPITBOL“) „Spitbol“
\n*
\n* Write stand-alone modules or runtime save files:
\n*
\n*
\n* If MacroSPITBOL is present, we write an execution module:
\n*
\nident(system,“Spitbol“) exit(3,“duke.exe“)
\n*
\n* If running under Snobol4+, we open a new output channel and write a save module:
\n*
\nident(system,“Snobol4+“) output(.saveout,16,,“duke.sav“)
\nident(system,“Snobol4+“) save(16) :s(end)
\n*
\n&ERRLIMIT = 4; SETEXIT(CONTINUE)
\nparms = &parm
\n*
\n* Special command line treatment for SNOBOL4+ (program name as first parameter):
\n*
\nparms pos(0) (SPAN(SPACE) | “) break(space) rem . parms
\n*
\n* Get parameters for SPITBOL\/CSnobol4:
\n*
\nparms = host(0)
\n*
\n* Reset error limit to zero:
\n*
\n&ERRLIMIT = 0
\nterminal = „DUKE – program to normalize DDP ‚beta code'“
\nterminal = “ (c) Burkhard Meissner, 2006″
\nparms pos(0) (span(“ „) | „“) break(“ “ char(9)) . infile
\n+ span(char(32) char(9)) (break(“ “ char(9) „\/-„) | rem) . outfile
\n+ :f(nofile)
\nterminal = „Opening files:“
\nterminal = „In: “ infile
\nterminal = „Out: “ outfile
\n*
\n* Open files. We open the output file in binary mode to continue lines,
\n* if necessary:
\n* (1) SNOBOL4 Version:
\n*
\n(
\n+ ident(system,“Linux“)
\n+ ,
\n+ ident(system,“Snobol4+“)
\n+ )
\n+ :f(test_linux)
\n* open input file:
\ninput(.in,1, ,infile) :f(nofile)
\n* open output file:
\noutput(.out,2, ,outfile) :s(program_start)f(nofile)
\n*
\n* (2) SPITBOL Version:
\n*
\ntest_linux
\n+ ident(system,“Spitbol“) :f(system_error)
\nsetexit(continue)
\n&errlimit = 2
\ninput(.in,1,infile „[-l1000]“) :f(nofile)
\noutput(.out,2,outfile „[-l1000]“) :f(nofile)
\n&errlimit = 0
\nsetexit() :(program_start)
\nprogram_start
\n*
\nagain line = in :f(done)
\nnumber =
\npad =
\n(
\n+ ident(line)
\n+ ,
\n+ ?(line ? emptypat)
\n+ ) :s(again)
\nline pos(0) span(numbers) . number
\n+ (
\n+ char(9)
\n+ |
\n+ span(char(32))
\n+ ) . pad
\n+ = :f(kill_number)
\n*
\n*
\n* We determine, if line counter:
\n*
\n*
\ncount(number,5)
\n+ (
\n+ ident(pad,char(9))
\n+ ,
\n+ ident(size(pad),8 – size(number))
\n+ ) :s(kill_number)
\nline = line number pad
\nkill_number
\n+ line = dot_replace(line)
\nline = html_code(line)
\nline = repl(line,“[[„,“[4″)
\nline = repl(line,“]]“,“]4″)
\nline = repl(line,“<„,“[2″)
\nline = repl(line,“>“,“]2″)
\nline = repl(line,“[chirho“,“#322″)
\nline = replace(line,lcase,ucase)
\nout = line :(again)
\nsystem_error
\n+ terminal = „*** Unknown SNOBOL4 system – aborted ***“
\n+ :(end)
\ndone terminal = „Finished converting file“ :(end)
\nnofile
\n+ terminal = „Usage: DUKE infile outfile“ :(end)
\nend<\/p>\n","protected":false},"excerpt":{"rendered":"
******************************************************************************** * * * * * SNOBOL4 Program to adapt DUKE DDP „beta code“ output * * to beta code standards * * (c) B.Meissner, Universitaet der Bundeswehr, Hamburg * […]<\/p>\n","protected":false},"author":185,"featured_media":0,"parent":0,"menu_order":0,"comment_status":"closed","ping_status":"closed","template":"","meta":{"footnotes":""},"categories":[],"tags":[],"class_list":["post-497","page","type-page","status-publish","hentry"],"_links":{"self":[{"href":"https:\/\/www.hsu-hh.de\/hisalt\/wp-json\/wp\/v2\/pages\/497","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.hsu-hh.de\/hisalt\/wp-json\/wp\/v2\/pages"}],"about":[{"href":"https:\/\/www.hsu-hh.de\/hisalt\/wp-json\/wp\/v2\/types\/page"}],"author":[{"embeddable":true,"href":"https:\/\/www.hsu-hh.de\/hisalt\/wp-json\/wp\/v2\/users\/185"}],"replies":[{"embeddable":true,"href":"https:\/\/www.hsu-hh.de\/hisalt\/wp-json\/wp\/v2\/comments?post=497"}],"version-history":[{"count":1,"href":"https:\/\/www.hsu-hh.de\/hisalt\/wp-json\/wp\/v2\/pages\/497\/revisions"}],"predecessor-version":[{"id":498,"href":"https:\/\/www.hsu-hh.de\/hisalt\/wp-json\/wp\/v2\/pages\/497\/revisions\/498"}],"wp:attachment":[{"href":"https:\/\/www.hsu-hh.de\/hisalt\/wp-json\/wp\/v2\/media?parent=497"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.hsu-hh.de\/hisalt\/wp-json\/wp\/v2\/categories?post=497"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.hsu-hh.de\/hisalt\/wp-json\/wp\/v2\/tags?post=497"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}