HDISVM03 ;BPFO/JRP,HRN/ART - UUENCODE;5/31/2007
Source file <HDISVM03.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ENCODE(IN,OUT,ZERO) | ;UUEncode contents of array
; Input: IN = Array containing lines of text to encode ; (FULL GLOBAL REFERENCE) ; IN(0) = File name for encoded text ; (used when uudecoding) ; IN(1..n) = Lines of text ; IN(n,1..m) = Continuation of text when length of line ; is longer than 245 characters ; OUT = Array to put uuencoded text into ; (FULL GLOBAL REFERENCE) ; ZERO = Flag indicating if the main nodes in the input array ; store their text on a zero node. A value of 1 ; denotes that the text is stored in IN(node,0). A ; value of 0 denotes that the text is not. This only ; applies to the main nodes; IN(0) and continuation ; nodes are assumed to not use a zero node (i.e. ; IN(0,0) and IN(node,cont,0) are not valid). ; (DEFAULTS TO 0) |
|
| ENCGRID(IN,OUT,DELIMITR) | ;UUEncode contents of a grid
; Input: IN = Array containing grid cells of text to encode ; (FULL GLOBAL REFERENCE) ; IN(0) = File name for encoded text ; (used when uudecoding) ; IN(1..n,1..n) = Grid cells of text - IN(row,col)=value ; IN(n,n,1..m) = Continuation of text when length of line ; is longer than 245 characters ; OUT = Array to put uuencoded text into ; (FULL GLOBAL REFERENCE) ; DELIMITR = Delimiter character (DEFAULTS TO | (pipe)) |
|
| UUEWORK(TEXT,WORKING,OUT,OUTNODE) | ;UUEncode text & add to output
; Input: TEXT = Text to append to uuencoded output array ; WORKING = Text that hasn't been uuencoded yet as ; uuencoding is done against 45 characters ; at a time ; (PASS BY REFERENCE) ; OUT = Array to put uuencoded text into ; (FULL GLOBAL REFERENCE) ; OUTNODE = Node in OUT to store uuencoded text into ; (PASS BY REFERENCE) |
|
| UUE45(TEXT) | ;UUEncode a string of 45 characters
; Input: TEXT = String of text to uuencode (up to 45 characters) |
|
| UUE3(CHARS) | ;UUEncode 3 characters
; Input: CHARS = Characters to uuencode (up to 3 characters) |
