I've attached a work-in-process, utf8.apl
When I created this library my objective was to simply read and write
utf8 text files without the overhead of FILE_IO. As I've worked on other
projects and discovered a file related need I inserted here.
The very simplicity is now undermined.
Do I
1. Ignore simplicity and just keep adding useful stuff here.
2. Create a new work space to supplement FILE_IO
3. Lobby the powers that be to add somethings to FILE_IO
4. Learn how to fish and retire for APL.
Thanx in advance for you imput
w
#! /usr/local/bin/apl --script
⍝ ********************************************************************
⍝ utf8 workspace to read and write utf8 files
⍝ Copyright (C) 2019 Bill Daly
⍝ This program is free software: you can redistribute it and/or modify
⍝ it under the terms of the GNU General Public License as published by
⍝ the Free Software Foundation, either version 3 of the License, or
⍝ (at your option) any later version.
⍝ This program is distributed in the hope that it will be useful,
⍝ but WITHOUT ANY WARRANTY; without even the implied warranty of
⍝ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
⍝ GNU General Public License for more details.
⍝ You should have received a copy of the GNU General Public License
⍝ along with this program. If not, see <http://www.gnu.org/licenses/>.
⍝ ********************************************************************
)copy 1 utl utl∆es
∇err←txt utf8∆write fname;fh;size
⍝ Function to write utf8 files
utl∆es (0>fh ←'w' ⎕FIO[3] fname)/fname,' NOT FOUND.'
size←txt ⎕FIO[23] fh
err←⎕FIO[4] fh
∇
∇txt← utf8∆read fname;fh;size;stat;sink
⍝ Function to read utf8 files
utl∆es (0>fh←'r' ⎕FIO[3] fname)/fname,' NOT FOUND.'
stat←⎕FIO[18] fh
txt←⎕ucs stat[8] ⎕FIO[6] fh
sink←⎕FIO[4] fh
⎕es (0≠sink)/'Error closing ',fname
∇
∇flist←utf8∆dir path
⍝ Function lists files in path (but not . or ..).
flist ← ⎕FIO[29] path
∇
∇txt utf8∆pipe cmd;ph;sink
⍝ Function to pipe text to an operating system command.
ph←'w' ⎕FIO[24] cmd
sink←{⍵ ⎕FIO[43] ph}¨txt
sink←⎕FIO[25] ph
⎕es (0≠sink)/'Error ',(⍕sink),' while closing pipe to ',cmd
∇
∇txt←utf8∆sh cmd;ph;sink
⍝ Function to pipe text from a shell command.
ph←'r' ⎕FIO[24] cmd
txt←⍬
st:
→(0=⍴sink←5000 ⎕FIO[41] ph)/end
txt←txt,sink
→st
end:
txt←⎕ucs txt
sink←⎕fio[25] ph
∇
∇b←dir utf8∆file_exists fname;count
⍝ Function tests for the existance of a file.
count←''⍴⍴dir←utf8∆dir dir
b←count ≥ dir utl∆listSearch fname
∇
∇ z←utf8∆rm fname;handle
⍝ Function to remove a file.
z←⎕fio[19] fname
∇
∇Z←utf8⍙metadata
Z←0 2⍴⍬
Z←Z⍪'Author' 'Bill Daly'
Z←Z⍪'BugEmail' 'b...@dalywebandedit.com'
Z←Z⍪'Documentation' 'commments in file.'
Z←Z⍪'Download' 'https://sourceforge.net/projects/apl-library'
Z←Z⍪'License' 'GPL v3.0'
Z←Z⍪'Portability' 'L3'
Z←Z⍪'Provides' 'Functions to read and write utf8 files.'
Z←Z⍪'Requires' ''
Z←Z⍪'Version' '0 1 2'
Z←Z⍪'Last update' '2019-02-11'
∇
