Wrap procedure comments

#pragma TextEncoding = "UTF-8"
#pragma rtGlobals=3
#pragma IndependentModule = WrapText
#pragma version=1.01

// If your lengthy procedure comments often end up looking a bit like
// this, you
// may find this code snippet useful. To use, copy, wrapScrap(), paste.

menu "Edit"
    "Comment wrap clipboard/4", /Q, WrapText#wrapScrap()
    "Unwrap clipboard/5", /Q, WrapText#unwrapScrap()
end

function wrapScrap()   
    putscraptext commentWrap(getscraptext(), 72)   
end

function unwrapScrap() 
    putscraptext commentUnwrap(getscraptext()) 
end

// returns string wrapped at V_wrap characters, commented,
// and indented to match indent at start of s_in.
function /T commentWrap(s_in, v_wrap)
    string s_in
    variable v_wrap
   
    string s_out="", s_char=""
   
    s_in=replacestring("\t", s_in, "   ")
   
    // try to guess how far we want to indent comment
    variable indent=0
    for(indent=0;indent<25;indent+=1)
        if(!stringmatch(s_in[indent], " "))
            break
        endif
    endfor
   
    s_in=replacestring("//", s_in, " ")
    s_in=replacestring("\r", s_in, " ")
   
    // condense whitespace
    variable len
    do
        len=strlen(s_in)
        s_in=replacestring("  ", s_in, " ")
    while(strlen(s_in)!=len)
   
    variable i=0,j=0,k=0
    // i is character count in s_in
    // j is character count in current line of s_out
    do
        s_char=s_in[i]
        i+=1
        if(j==0)
            for(k=0;k<indent;k+=1,j+=1)
                s_out+=" "
            endfor 
            s_out+="// "
            j+=3
            if (!stringmatch(s_char, " "))
                s_out+=s_char
                j+=1
            endif  
        elseif (j>v_wrap)
            if(!stringmatch(s_char, " "))  
                do
                    j-=1
                    if (stringmatch(s_out[strlen(s_out)-(v_wrap+1-j)], " "))
                        break
                    endif
                while(j>indent+3)
                if(j>indent+3)
                    s_out=s_out[0,strlen(s_out)-(v_wrap+1-j)]
                    i-=(v_wrap+1-j)
                endif
            endif      
            s_out+="\r"
            j=0
        else
            s_out+=s_char
            j+=1
        endif
    while(i<len)
    s_out=replacestring("   ", s_out, "\t")
   
    return s_out   
end

// returns unwrapped string with comment indicators removed
function /T commentUnwrap(s)
    string s
   
    s=replacestring("\t", s, "   ")
    s=replacestring("//", s, "")
    s=replacestring("\r\r", s, "<$$> ")
    s=replacestring("\r", s, " ")
    s=replacestring("<$$>", s, "\r\r")
   
    // condense whitespace
    variable len
    do
        len=strlen(s)
        s=replacestring("  ", s, " ")
    while(strlen(s)!=len)
   
    do
        len=strlen(s)
        s=replacestring("\r ", s, "\r")
    while(strlen(s)!=len)
   
    do
        s[0,0]=selectstring(stringmatch (s[0]," "), s[0], "")
    while(strlen(s) && stringmatch(s[0], " "))
   
    return s
end