home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 18 REXX
/
18-REXX.zip
/
rexxuuxx.zip
/
64ENCODE.PLI
< prev
next >
Wrap
Text File
|
1997-05-11
|
2KB
|
50 lines
/*********************************************************************/
/* This program is freeware, distributed as is, without any warranty */
/* of its usefulness for any purpose. You may use it freely. You may */
/* also redistribute it, provided no charge is levied beyond the */
/* price of its distribution medium. However, the author retains all */
/* intellectual property rights. */
/* */
/* */
/* Copyright (C) David W. Noon, 1995, 1997 */
/* */
/*********************************************************************/
/*************************************************
* *
* Program to encode BASE64 messages as per Unix *
* *
* Author: David W. Noon *
* December 1995 *
* *
*************************************************/
B64ENCODE:
PROC(PARM) OPTIONS(MAIN NOEXECOPS REENTRANT) REORDER;
DCL PARM CHAR(521) VAR;
%INCLUDE UUXXCODE;
DCL (i,l,p) BIN FIXED(31,0) UNSIGNED,
1 B64_Encode_struct,
2 Input_filename CHAR(260) VAR,
2 Output_filename CHAR(260) VAR,
(ADDR,LEFT,RIGHT,SEARCH,SUBSTR,TRIM,VERIFY) BUILTIN;
i = VERIFY(PARM,' ');
l = SEARCH(PARM,' ',i+1);
p = VERIFY(PARM,' ',l+1);
IF i = 0 | l = 0 | p = 0 THEN
DISPLAY('Input & output path/filenames must be given.');
ELSE
DO;
B64_Encode_struct.Input_filename = SUBSTR(PARM,i,l-i);
B64_Encode_struct.Output_filename = TRIM(SUBSTR(PARM,p));
FETCH BASE64_ENCODE TITLE('UUXXCODE/BASE64_ENCODE');
CALL BASE64_ENCODE(ADDR(B64_Encode_struct));
RELEASE BASE64_ENCODE;
END;
RETURN;
END B64ENCODE;