-
Notifications
You must be signed in to change notification settings - Fork 3
Commit
This commit does not belong to any branch on this repository, and may belong to a fork outside of the repository.
base64 encoding, lower case quoting, aton prototype
- Loading branch information
Showing
295 changed files
with
8,236 additions
and
6,958 deletions.
There are no files selected for viewing
Empty file.
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,100 @@ | ||
| program demo_base64 | ||
| use M_io, only : filebyte | ||
| use M_strings, only : encode_base64, decode_base64 | ||
| use M_CLI2, only : set_args, iget, lget, infiles=>unnamed | ||
| ! encode data to base64 encryption as defined by RFC-4648 and print to standard output | ||
| ! usage: base64 inputfile > outputfile | ||
| ! currently stdin and stdout cannot be defined as streams, so stdin should | ||
| ! be restricted to ASCII files with a newline terminator at end, and stdout is | ||
| ! potentially subject to linelength limits of the platform. | ||
| ! reading input into memory could be expensive if the file is large | ||
| use,intrinsic :: iso_fortran_env, only : int8, int32, stderr=>ERROR_UNIT, stdout=>OUTPUT_UNIT | ||
| implicit none | ||
| integer(kind=int32) :: i, j, column, sz, pad, iostat | ||
| character(len=1),allocatable :: text(:) ! array to hold file in memory | ||
| character(len=1) :: chunk(4) | ||
| character(len=1) :: tri(3) | ||
| character(len=1),allocatable :: trilast(:) | ||
| integer :: wrap | ||
| character(len=*),parameter :: rfc4648_alphabet='ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/' | ||
| integer,parameter :: rfc4648_linelength=76 | ||
| character(len=1),parameter :: rfc4648_padding='=' | ||
| character(len=:),allocatable :: help_text(:), version_text(:) | ||
| logical :: decode | ||
| logical :: ignore_garbage | ||
| call setup() | ||
| call set_args('--wrap:w 76 --decode:d F --ignore-garbage:i F',help_text,version_text) | ||
| wrap=iget('wrap') | ||
| ignore_garbage=lget('ignore-garbage') | ||
| decode=lget('decode') | ||
| if(size(infiles).eq.0)infiles=[character(len=1):: '-'] | ||
| ! reading the file into memory can be a problem when the files are large, and this routine currently reads stdin | ||
| ! until an end-of-file while writing it to a scratch file first, which can be slow and use file space resources | ||
| ! can change it to process the file in a buffered mannner so reading from stdin is performed more efficiently | ||
| call filebyte(infiles(1),text) ! allocate character array and copy file into it and pad with two characters at end | ||
| if(.not.allocated(text))then | ||
| stop '<ERROR>*base64* text not allocated' | ||
| endif | ||
| ! non-advancing I/O is not stream I/O so this could hit a line length limit | ||
| select case(decode) | ||
| case(.false.) | ||
| write(*,fmt='(*(a))',advance='no')encode_base64(text,width=wrap) | ||
| case default | ||
| write(*,fmt='(*(a))',advance='no')decode_base64(text,ignore_garbage=ignore_garbage) | ||
| end select | ||
| contains | ||
| subroutine setup() | ||
| help_text=[ CHARACTER(LEN=128) :: & | ||
| 'NAME',& | ||
| ' b64-(1f) - [FUNIX:FILESYSTEM] encode/data specified file to stdout',& | ||
| ' using base64 encoding as defined in RFC-4648 ',& | ||
| ' (LICENSE:MIT) ',& | ||
| ' ',& | ||
| 'SYNOPSIS ',& | ||
| ' b64- [[ --decode] [ --ignore-garbage]]|[ --wrap COLS] [FILE] ',& | ||
| ' |[ --help|--version] ',& | ||
| ' ',& | ||
| 'DESCRIPTION ',& | ||
| ' b64(1f) encodes or decodes a file as described for the ',& | ||
| ' b64alphabet-encoding in RFC 4648. When decoding, whitespace characters',& | ||
| ' on input are ignored. ',& | ||
| ' ',& | ||
| ' b64(1f) takes stdin or one filename on the command line and encodes ',& | ||
| ' or decodes it onto standard output. ',& | ||
| ' ',& | ||
| ' With no FILE, or when FILE is "-", read standard input. ',& | ||
| ' ',& | ||
| ' To ignore all bytes not in the formal base64 alphabet, use ',& | ||
| ' --ignore-garbage. This option will attempt to recover from any other ',& | ||
| ' non-alphabet bytes in the encoded stream. ',& | ||
| ' ',& | ||
| 'OPTIONS ',& | ||
| ' ',& | ||
| ' filename name of file to encode ',& | ||
| ' --decode,-d decode instead of encode data ',& | ||
| ' --ignore-garbage,i when decoding, ignore non-alphabet characters ',& | ||
| ' --wrap=COLS,-w COLS wrap encoded lines after COLS characters ',& | ||
| ' (default 76). Use 0 to disable line wrapping ',& | ||
| ' --version,-v Print version information on standard output then',& | ||
| ' exit successfully. ',& | ||
| ' --help,-h Print usage information on standard output then ',& | ||
| ' exit successfully. ',& | ||
| 'EXAMPLE ',& | ||
| ' Sample commands ',& | ||
| ' ',& | ||
| ' b64 input > output.b64 ',& | ||
| ' ',& | ||
| 'SEE ALSO ',& | ||
| ' base64(1), uuencode(1), uudecode(1) ',& | ||
| ''] | ||
| version_text=[ CHARACTER(LEN=128) :: & | ||
| 'PRODUCT: GPF (General Purpose Fortran) utilities and examples',& | ||
| 'PROGRAM: b64(1f) ',& | ||
| 'DESCRIPTION: encode a file to the base 64 encoding standard defined in RFC-4648',& | ||
| 'VERSION: 1.0, 2024-11-11 ',& | ||
| 'AUTHOR: John S. Urban ',& | ||
| 'LICENSE: MIT ',& | ||
| ''] | ||
| end subroutine setup | ||
|
|
||
| end program demo_base64 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,102 @@ | ||
| program demo_base64 | ||
| use M_io, only : filebyte, putchar | ||
| use M_strings, only : encode_base64, decode_base64 | ||
| use M_CLI2, only : set_args, iget, lget, infiles=>unnamed | ||
| ! encode data to base64 encryption as defined by RFC-4648 and print to standard output | ||
| ! usage: base64 inputfile > outputfile | ||
| ! currently stdin and stdout cannot be defined as streams, so stdin should | ||
| ! be restricted to ASCII files with a newline terminator at end, and stdout is | ||
| ! potentially subject to linelength limits of the platform. | ||
| ! reading input into memory could be expensive if the file is large | ||
| use,intrinsic :: iso_fortran_env, only : int8, int32, stderr=>ERROR_UNIT, stdout=>OUTPUT_UNIT | ||
| implicit none | ||
| integer(kind=int32) :: i, j, column, sz, pad, iostat | ||
| character(len=1),allocatable :: text(:) ! array to hold file in memory | ||
| character(len=1) :: chunk(4) | ||
| character(len=1) :: tri(3) | ||
| character(len=1),allocatable :: trilast(:) | ||
| integer :: wrap | ||
| character(len=*),parameter :: rfc4648_alphabet='ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/' | ||
| integer,parameter :: rfc4648_linelength=76 | ||
| character(len=1),parameter :: rfc4648_padding='=' | ||
| character(len=:),allocatable :: help_text(:), version_text(:) | ||
| logical :: decode | ||
| logical :: ignore_garbage | ||
| call setup() | ||
| call set_args('--wrap:w 76 --decode:d F --ignore-garbage:i F',help_text,version_text) | ||
| wrap=iget('wrap') | ||
| ignore_garbage=lget('ignore-garbage') | ||
| decode=lget('decode') | ||
| if(size(infiles).eq.0)infiles=[character(len=1):: '-'] | ||
| ! reading the file into memory can be a problem when the files are large, and this routine currently reads stdin | ||
| ! until an end-of-file while writing it to a scratch file first, which can be slow and use file space resources | ||
| ! can change it to process the file in a buffered mannner so reading from stdin is performed more efficiently | ||
| call filebyte(infiles(1),text) ! allocate character array and copy file into it and pad with two characters at end | ||
| if(.not.allocated(text))then | ||
| stop '<ERROR>*base64* text not allocated' | ||
| endif | ||
| ! non-advancing I/O is not stream I/O so this could hit a line length limit | ||
| select case(decode) | ||
| case(.false.) | ||
| write(*,fmt='(*(a))',advance='no')encode_base64(text,width=wrap) | ||
| case default | ||
| write(*,fmt='(*(a))',advance='no')decode_base64(text,ignore_garbage=ignore_garbage) | ||
| end select | ||
| contains | ||
| subroutine setup() | ||
| $!@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ | ||
| $BLOCK VARIABLE --varname help_text --file b64-.1.man | ||
| NAME | ||
| b64-(1f) - [FUNIX:FILESYSTEM] encode/data specified file to stdout | ||
| using base64 encoding as defined in RFC-4648 | ||
| (LICENSE:MIT) | ||
|
|
||
| SYNOPSIS | ||
| b64- [[ --decode] [ --ignore-garbage]]|[ --wrap COLS] [FILE] | ||
| |[ --help|--version] | ||
|
|
||
| DESCRIPTION | ||
| b64(1f) encodes or decodes a file as described for the | ||
| b64alphabet-encoding in RFC 4648. When decoding, whitespace characters | ||
| on input are ignored. | ||
|
|
||
| b64(1f) takes stdin or one filename on the command line and encodes | ||
| or decodes it onto standard output. | ||
|
|
||
| With no FILE, or when FILE is "-", read standard input. | ||
|
|
||
| To ignore all bytes not in the formal base64 alphabet, use | ||
| --ignore-garbage. This option will attempt to recover from any other | ||
| non-alphabet bytes in the encoded stream. | ||
|
|
||
| OPTIONS | ||
|
|
||
| filename name of file to encode | ||
| --decode,-d decode instead of encode data | ||
| --ignore-garbage,i when decoding, ignore non-alphabet characters | ||
| --wrap=COLS,-w COLS wrap encoded lines after COLS characters | ||
| (default 76). Use 0 to disable line wrapping | ||
| --version,-v Print version information on standard output then | ||
| exit successfully. | ||
| --help,-h Print usage information on standard output then | ||
| exit successfully. | ||
| EXAMPLE | ||
| Sample commands | ||
|
|
||
| b64 input > output.b64 | ||
|
|
||
| SEE ALSO | ||
| base64(1), uuencode(1), uudecode(1) | ||
| $!@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ | ||
| $BLOCK VARIABLE --varname version_text | ||
| PRODUCT: GPF (General Purpose Fortran) utilities and examples | ||
| PROGRAM: b64(1f) | ||
| DESCRIPTION: encode a file to the base 64 encoding standard defined in RFC-4648 | ||
| VERSION: 1.0, 2024-11-11 | ||
| AUTHOR: John S. Urban | ||
| LICENSE: MIT | ||
| $BLOCK END | ||
| $!@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ | ||
| end subroutine setup | ||
|
|
||
| end program demo_base64 |
Empty file.
Empty file.
Empty file.
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Empty file.
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Oops, something went wrong.