HDISVM04 ;BPFO/JRP - UUDECODE;5/31/2007
Source file <HDISVM04.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| DECODE(IN,OUT,FIND,ZERO) | ;UUDecode contents of text
; Input: IN = Array containing lines of text to encode ; (FULL GLOBAL REFERENCE) ; IN(1) = "begin 644 FILENAME" ; IN(2..n) = UUEncoded line of text ; IN(n+1) = "`" ; IN(n+2) = "end" ; OUT = Array to put uudecoded text into ; (FULL GLOBAL REFERENCE) ; FIND = Flag indicating if the "begin 644 FILENAME" line ; must be found. A value of 1 will cause this utility ; to order through the nodes of the array until the ; beginning line is found. A value of 0 will cause ; this utility to assume that node IN(1) is the ; beginning node. ; (DEFAULTS TO 0) ; ZERO = Flag indicating if the input array stores it's data ; on a zero node. A value of 1 denotes that the ; uuencoded data is stored in IN(node,0). A value of ; 0 denotes that the uuencoded data is not. ; (DEFAULTS TO 0) |
|
| UUD4(CHARS) | ;UUDecode 4 characters
; Input: CHARS = Characters to uudecode |
|
| APPEND(TEXT,WORKING,OUT,OUTNODE,FORCE) | ;Append text to running text
; Input: TEXT = Text to append to uudecoded output array ; WORKING = Text that hasn't been added to output array yet ; but is uudencoded. Text is added to the output ; array 245 characters at a time. ; (PASS BY REFERENCE) ; OUT = Array to put uudecoded text into ; (FULL GLOBAL REFERENCE) ; OUTNODE = Node in OUT to store uudecoded text into ; (PASS BY REFERENCE) ; FORCE = Flag indicating that a carriage return / line feed ; was encountered and all of the uudecoded text passed ; in should be stored in the output array. Passing a ; value of 1 will force storage and incrementing of ; OUTNODE. Passing a value of 0 will only store data ; in the output array if the running text exceeds 245 ; characters. ; (DEFAULTS TO 0) |
|
| STORE(TEXT,OUT,NODE) | ;Store text in uudecoded array
; Input: TEXT = Text to append to uudecoded output array ; OUT = Array to put uudecoded text into ; (FULL GLOBAL REFERENCE) ; NODE = Node in OUT to store uudecoded text into |
