When I merged APL Library into the gnu-apl code, I dropped the workspace
wp because I thought it too idiosyncratic. I'm now regretting that.
wp is a workspace to send a printout of an array to the printer. The
routines that format that array require declaring some information used
in assembling the page header for the report. Thus the first step in
preparing a variable that includes the array to be processed with the
information for the header. The info file distributed with gnu-apl
still has the documentation for this workspace.
If none of this rings a bell, I've attached the workspace, html.apl
(which is copied into wp) and and example session.
Has any one used this contraption? Is it useful? Should I convince
Jürgen to merge into gnu-apl?
Your thoughts would be appreciated.
Bill Daly
#! /usr/local/bin/apl --script
⍝ ********************************************************************
⍝ $Id: $
⍝ $desc: Provides functions to tag items and build an html file. $
⍝ ********************************************************************
⍝ Copyright (C) 2017 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/>.
⍝ html workspace
⍝ This is a workspace to create html files. html is a text markup scheme
⍝ used by the world wide web. At its most basic level html is a
⍝ collection of tags, that is a word enclosed in angle brackets, which
⍝ instruct a web browser how to display the text.
)copy_once 3 DALY/xml
html5∆closedTagList←4⍴0
((⎕IO+0)⊃html5∆closedTagList)←2⍴'br'
((⎕IO+1)⊃html5∆closedTagList)←2⍴'hr'
((⎕IO+2)⊃html5∆closedTagList)←4⍴'meta'
((⎕io+3)⊃html5∆closedTagList)←3⍴'col'
html5∆tagList←35⍴0
html5∆tagList[0+⍳34]←'a∘∘∘∘∘∘∘∘∘∘∘∘∘∘∘∘∘∘∘∘∘∘∘∘∘∘∘∘∘∘∘∘∘'
((⎕IO+1)⊃html5∆tagList)←1⍴'b'
((⎕IO+2)⊃html5∆tagList)←10⍴'blockquote'
((⎕IO+3)⊃html5∆tagList)←4⍴'body'
((⎕IO+4)⊃html5∆tagList)←7⍴'caption'
((⎕IO+5)⊃html5∆tagList)←4⍴'cite'
((⎕IO+6)⊃html5∆tagList)←3⍴'div'
((⎕IO+7)⊃html5∆tagList)←2⍴'em'
((⎕IO+8)⊃html5∆tagList)←6⍴'footer'
((⎕IO+9)⊃html5∆tagList)←2⍴'h1'
((⎕IO+10)⊃html5∆tagList)←2⍴'h2'
((⎕IO+11)⊃html5∆tagList)←2⍴'h3'
((⎕IO+12)⊃html5∆tagList)←2⍴'h4'
((⎕IO+13)⊃html5∆tagList)←2⍴'h5'
((⎕IO+14)⊃html5∆tagList)←4⍴'head'
((⎕IO+15)⊃html5∆tagList)←6⍴'header'
((⎕IO+16)⊃html5∆tagList)←2⍴'hr'
((⎕IO+17)⊃html5∆tagList)←4⍴'html'
((⎕IO+18)⊃html5∆tagList)←1⍴'i'
((⎕IO+19)⊃html5∆tagList)←2⍴'li'
((⎕IO+20)⊃html5∆tagList)←4⍴'link'
((⎕IO+21)⊃html5∆tagList)←3⍴'nav'
((⎕IO+22)⊃html5∆tagList)←1⍴'p'
((⎕IO+23)⊃html5∆tagList)←3⍴'pre'
((⎕IO+24)⊃html5∆tagList)←4⍴'span'
((⎕IO+25)⊃html5∆tagList)←6⍴'strong'
((⎕IO+26)⊃html5∆tagList)←5⍴'style'
((⎕IO+27)⊃html5∆tagList)←2⍴'td'
((⎕IO+28)⊃html5∆tagList)←2⍴'th'
((⎕IO+29)⊃html5∆tagList)←5⍴'thead'
((⎕IO+30)⊃html5∆tagList)←2⍴'tr'
((⎕IO+31)⊃html5∆tagList)←5⍴'title'
((⎕IO+32)⊃html5∆tagList)←5⍴'table'
((⎕IO+33)⊃html5∆tagList)←5⍴'thead'
((⎕IO+34)⊃html5∆tagList)←8⍴'colgroup'
(⊂'html') xml∆MkTagFns ¨ html5∆tagList
(⊂'html') xml∆MkClosedTagFns ¨ html5∆closedTagList
∇Z←html⍙metadata
Z←0 2⍴⍬
Z←Z⍪'Author' 'Bill Daly'
Z←Z⍪'BugEmail' 'b...@dalywebandedit.com'
Z←Z⍪'Documentation' 'doc/apl-library.info'
Z←Z⍪'Download'
'https://sourceforge.net/p/apl-library/code/ci/master/tree/html.apl'
Z←Z⍪'License' 'GPL v3.0'
Z←Z⍪'Portability' 'L3'
Z←Z⍪'Provides' ''
Z←Z⍪'Requires' ''
Z←Z⍪'Version' '0 1 2'
Z←Z⍪'Last update' '2019-07-01'
∇
#! /usr/local/bin/apl --script
⍝ ********************************************************************
⍝ wp2.apl Workspace to print reports
⍝ 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_once 5 DALY/utl
)copy_once 3 DALY/lex
)copy_once 5 DALY/utf8
)copy_once 1 html
)copy_once 3 DALY/fmt
⍝ ********************************************************************
⍝ Report methods
⍝ ********************************************************************
∇rpt←wp∆init id
⍝ Function returns a blank report
rpt←lex∆init
rpt←rpt lex∆assign 'Id' id
rpt←rpt lex∆assign (⊂'Data'),⊂ 1 1 ⍴0
rpt←rpt lex∆assign 'Head_ln01' 'Uknown'
rpt←rpt lex∆assign 'Head_ln02' 'Empty'
rpt←rpt lex∆assign 'Head_ln03' 'mm/dd/yyyy'
rpt←rpt lex∆assign (⊂'Author' ),⊂2⊃,⎕env 'USER'
rpt←rpt lex∆assign 'Initials' 1
rpt←rpt lex∆assign 'Function' ''
rpt←rpt lex∆assign (⊂'Stylesheet'),⊂wp∆defaultSS
rpt←rpt lex∆assign (⊂'Attributes'),⊂1 1 ⍴⊂wp∆attr∆init
rpt←rpt lex∆assign (⊂'DefaultFormat'),⊂(lex∆init)lex∆assign 'Format' 'CF14.2'
∇
∇b←wp∆is rpt;keys;ix;lb;test_keys
⍝ Predicate tests whether rpt is a workpaper.
→(~b←lex∆is rpt)/0
keys←lex∆keys wp∆init 'test'
test_keys←lex∆keys rpt
lb←((⍴test_keys)⍴st),ed
ix←1
st:
→(~b←keys utl∆member ix⊃test_keys)/0
→lb[ix←ix+1]
ed:
∇
∇Id←wp∆getId rpt
⍝ Function returns the report Id.
Id←rpt lex∆lookup 'Id'
∇
∇rpt←old wp∆setId Id
⍝ Function sets the report Id.
rpt←old lex∆assign 'Id' Id
∇
∇data←wp∆getData rpt
⍝ Function returns the report's data
data←rpt lex∆lookup 'Data'
∇
∇ rpt←old wp∆setData data;attr;shape;ix
⍝ Function adds data to the report and conforms the attribute array
⍝ to that data
rpt←old lex∆assign 'Data' data
attr←,(shape←⍴data)↑wp∆getAttributes old
→(∨/ix←0=∊{⍴⍴⍵}¨attr)/save_attr
attr[ix/⍳⍴attr]←⊂wp∆attr∆init
attr←shape⍴attr
save_attr:
rpt←rpt lex∆assign 'Attributes' attr
∇
∇ attr←wp∆getAttributes rpt
⍝ Function returns the data attributes
attr←rpt lex∆lookup 'Attributes'
∇
∇ rpt←old wp∆setAttributes attr;data
⍝ Function stores data attributes
data←old lex∆lookup 'Data'
utl∆es (~∧/(⍴data)=⍴attr)/'ATTRIBUTES MUST BE THE SAME SIZE AND SHAPE AS TH
DATA'
rpt←old lex∆assign 'Attributes' attr
∇
∇attr←wp∆getStylesheet rpt
⍝ Function returns the reports's stylesheet
attr←rpt lex∆lookup 'Stylesheet'
∇
∇rpt←old wp∆setStylesheet sheet
⍝ Function sets the stylesheet for the report
rpt←old lex∆assign 'Stylesheet' sheet
∇
∇author←wp∆getAuthor rpt
⍝ Function returns the author of the report
author←rpt lex∆lookup 'Author'
∇
∇rpt←old wp∆setAuthor author
⍝ Function sets the author of the report. wp∆init uses the username
⍝ from the environment.
rpt←old lex∆assign 'Author' author
∇
∇fmt←wp∆getDefaultFormat rpt
⍝ Function returns the default format string for the report
fmt←rpt lex∆lookup 'DefaultFormat'
∇
∇rpt←old wp∆setDefaultFormat fmt
⍝ Function sets the optional default format
rpt←old lex∆assign 'DefaultFormat' fmt
∇
∇hd←wp∆getHeading rpt;lines
⍝ Function returns a list of the heading lines
lines←((⊂rpt) lex∆haskey ¨lines)/lines←{'Head_ln','00'⍕⍵}¨⍳6
hd←(⊂rpt) lex∆lookup ¨ lines
∇
∇rpt←old wp∆setHeading hd;ln;lb
⍝ Function sets a list of lines
⍎(2=⍴⍴hd)/'hd←⊂[2]hd'
ln←1
lb←((⍴hd)⍴st),ed
st: old←old lex∆assign (⊂'Head_ln','00'⍕ln),hd[ln]
→lb[ln←ln+1]
ed:rpt←old
∇
∇initials←wp∆getInitialFlag wp
⍝ Function returns the boolean initial flag
initials←wp lex∆lookup 'Initials'
∇
∇rpt←old wp∆setInitialFlag initials
⍝ Function sets the boolean initial flag
utl∆es (~utl∆numberp initials)/'INITIAL FLAG MUST BE BOOLEAN'
initials←~~initials
rpt←old lex∆assign 'Initials' initials
∇
⍝ ∇rpt←wp∆newSchema old
⍝ ⍝ Function adds header lines from an old schema report.
⍝ rpt←old
⍝ ⍎(rpt lex∆haskey 'Entity')/'rpt←rpt lex∆assign (⊂''Head_ln01''),⊂rpt
lex∆lookup ''Entity'''
⍝ ⍎(rpt lex∆haskey 'Title')/'rpt←rpt lex∆assign (⊂''Head_ln02''),⊂rpt
lex∆lookup ''Title'''
⍝ ⍎(rpt lex∆haskey 'Period')/'rpt←rpt lex∆assign (⊂''Head_ln03''),⊂rpt
lex∆lookup ''Period'''
⍝ ∇
⍝ Function replaced with wp∆convert. wld 20220501
∇txt←attr wp∆∆txtCell val;fs
⍝ Funcion returns a numberic cell as text
→(attr lex∆haskey 'format')/hf
txt←⍕val
→0
hf:
→(fmt∆STSC fs ← attr lex∆lookup 'format')/stsc
txt←fs⍕val
→0
stsc:
txt←fs fmt val
→0
∇
⍝ ********************************************************************
⍝ Functions to assemble an html report
⍝ ********************************************************************
∇html←wp∆html∆assemble wp;dat;size;hattr;ibattr;thead;tbody;hhead;attrs;colgrp
⍝ Function to assemble an html page from a workpaper
wp←wp∆convert wp
size←⍴dat←wp lex∆lookup 'Data'
⍝ Asemble table heading
→(wp lex∆lookup 'Initials')/IBlock
NoIBlock:
thead←size wp∆html∆headWithoutInitals wp
→body
IBlock:
thead←size wp∆html∆assemble∆head wp
→body
body:
⍝ Assemble body
tbody←wp∆html∆assemble∆body wp
⍝ Assemble html head
hhead←(html∆title wp lex∆lookup 'Head_ln02'),html∆style wp∆assemble∆css wp
lex∆lookup 'Stylesheet'
hhead←hhead, html∆meta (lex∆init) lex∆assign 'charset' 'UTF8'
hhead←html∆head hhead
⍝ Assemble documetn
→(wp lex∆haskey 'Footer')/withFoot
html←html∆html hhead, html∆body html∆table thead, tbody
→0
withFoot:
html←html∆html hhead, html∆body (html∆table
thead,tbody),wp∆html∆assemble∆footer wp
→0
∇
∇thead← size wp∆html∆assemble∆head wp;hattr;ibattr;lrattr
⍝ Function to asemble the report heading for wp∆html∆assemble
hattr←(lex∆init) lex∆assign 'class' 'page-head'
hattr←hattr lex∆assign (⊂'colspan'),⊂ ⍕size[2]-1
ibattr←(lex∆init) lex∆assign 'class' 'initial-block'
lrattr←((lex∆init) lex∆assign 'class' 'last-head')lex∆assign
(⊂'colspan'),⊂⍕size[2]
thead←⎕av[11],html∆tr (hattr wp∆html∆∆td wp lex∆lookup 'Head_ln01'),ibattr
wp∆html∆∆td wp lex∆lookup 'Id'
thead←thead,⎕av[11],html∆tr (hattr wp∆html∆∆td wp lex∆lookup
'Head_ln02'),ibattr wp∆html∆∆td wp lex∆lookup 'Author'
thead←thead,⎕av[11],html∆tr (hattr wp∆html∆∆td wp lex∆lookup
'Head_ln03'),ibattr wp∆html∆∆td utl∆today
thead←thead,⎕av[11],html∆tr lrattr wp∆html∆∆td ' '
thead←html∆thead thead
∇
∇thead←size wp∆html∆headWithoutInitals wp;hattr;lrattr
⍝ Function returns heading lines with an initial block
hattr←(lex∆init) lex∆assign 'class' 'page-head'
hattr←hattr lex∆assign (⊂'colspan'),⊂ ⍕size[2]-1
lrattr←((lex∆init) lex∆assign 'class' 'last-head')lex∆assign
(⊂'colspan'),⊂⍕size[2]
thead←⎕av[11],html∆tr (hattr wp∆html∆∆td wp lex∆lookup 'Head_ln01')
thead←thead,⎕av[11],html∆tr (hattr wp∆html∆∆td wp lex∆lookup 'Head_ln02')
thead←thead,⎕av[11],html∆tr (hattr wp∆html∆∆td wp lex∆lookup 'Head_ln03')
thead←thead,⎕av[11],html∆tr lrattr wp∆html∆∆td ' '
thead←html∆thead thead
∇
∇ln←w wp∆text∆center txt;indent
⍝ Function returns txt centered on width w. If w is not supplied,
⍝ centered on ⎕pw
→(2=⎕nc 'w')/w_defined
w←⎕pw
w_defined:
indent←(⌊(w-⍴txt←,txt)÷2)⍴' '
ln←indent,txt,indent
∇
∇tbody←wp∆html∆assemble∆body wp;a;f;d
⍝ Function to assemble the report body for wp∆html∆assemble
shape←⍴d ←wp lex∆lookup 'Data'
a←wp lex∆lookup 'Attributes'
→(0=⍴f←wp lex∆lookup 'Function')/pr01
d←⍎'a ',f,' d'
pr01:
d←,d
a←,a
tbody←∊⎕av[11],¨html∆tr ¨ ∊¨ ⊂[2] size⍴ a wp∆html∆∆td ¨ ,d
∇
∇tfoot←wp∆html∆assemble∆footer wp
⍝ Function to assemble the footer
tfoot←html∆footer wp lex∆lookup 'Footer'
∇
∇txt←attr wp∆html∆∆td val;fs
⍝ Function to format numeric data and return an html td element.
txt←(attr lex∆drop 'format')html∆td attr wp∆∆txtCell val
∇
∇sheet←wp∆assemble∆css ss;lb;ix;classes;props;cur
⍝ Function assembles a cascading style sheet
lb←((⍴classes←lex∆keys ss)⍴st),ed
ix←1
st:
→('body' utl∆stringEquals cur←ix⊃classes)/s1
props←ss lex∆lookup cur
ss←ss lex∆drop cur
ss←ss lex∆assign (⊂'.',cur),⊂props
s1:→lb[ix←ix+1]
ed:
sheet← xml∆mkSheet ss
∇
⍝ ********************************************************************
⍝ Methods to assemble a text report
⍝ ********************************************************************
∇txt←wp∆txt∆assemble wp;shape;head
⍝ function returns a workpaper formated as text
wp←wp∆convert wp
→(wp lex∆lookup 'Initials')/IBlock
NoIBlock:
head←wp∆txt∆headWithoutInitials wp
→body
IBlock:
head←wp∆txt∆assemble∆head wp
→body
body:
txt←head,wp∆txt∆assemble∆body wp
→(~wp lex∆haskey 'Footer')/0
txt←txt,wp∆txt∆assemble∆footer wp
∇
∇thead←wp∆txt∆assemble∆head wp;author;today;id
⍝ Function to assemble the text report heading
id←wp lex∆lookup 'Id'
today←utl∆today
author←wp lex∆lookup 'Author'
thead←((-⍴id)↓wp∆text∆center wp lex∆lookup 'Head_ln01'),id,⎕tc[3]
thead←thead,((-⍴author)↓wp∆text∆center wp lex∆lookup
'Head_ln02'),author,⎕tc[3]
thead←thead,((-⍴today)↓wp∆text∆center wp lex∆lookup
'Head_ln03'),today,2⍴⎕tc[3]
∇
∇thead←wp∆txt∆headWithoutInitials wp
⍝ Functions assembles a text report heading with the initial block
thead←(wp∆text∆center wp lex∆lookup 'Head_ln01'),⎕tc[3]
thead←thead,(wp∆text∆center wp lex∆lookup 'Head_ln02'),⎕tc[3]
thead←thead,(wp∆text∆center wp lex∆lookup 'Head_ln03'),⎕tc[3]
∇
∇tbody←wp∆txt∆assemble∆body wp;dat;a;ix;f;shape
⍝ Function to assemble the body of a text reppr
shape←⍴dat ←wp lex∆lookup 'Data'
a←wp lex∆lookup 'Attributes'
→(0=⍴f←wp lex∆lookup 'Function')/pr01
dat←⍎'a ',f,' dat'
pr01:
a←,a
dat←,dat
ix←(utl∆numberp ¨ dat)/⍳×/shape
dat[ix]←a[ix] wp∆∆txtCell ¨ dat[ix]
tbody←1⌽,⎕tc[3],utl∆concatColumns shape⍴dat
∇
∇tfoot←wp∆txt∆assemble∆footer wp
⍝ Function to assemble the footer for a text rendering
tfoot ← (wp∆text∆center wp lex∆lookup 'Footer'),⎕tc[3]
∇
⍝ ********************************************************************
⍝ Data array methods
⍝ ********************************************************************
∇ val←rpt wp∆dt∆getCellValue ix;row;col;data;shape
⍝ Function returns the value of cell in the data array
→(1 ≠ ⍴⍴ix)/error
→(2 ≠ ⍴ix)/error
shape←⍴data←rpt lex∆lookup 'Data'
→(shape[1]<row←ix[1])/err2
→(shape[2]<col←ix[2])/err3
val←data[row;col]
→0
error:
utl∆es 'The location in the data array is a two element vector of row, column'
→0
err2:
utl∆es 'The maximum row value is ',⍕shape[1]
→0
err3:
utl∆es 'The maximum column value is ',⍕shape[2]
→0
∇
∇rpt←old wp∆dt∆setCellValue ix;val;row;col;data;shape
⍝ Function returns the value of cell in the data array
→(1 ≠ ⍴⍴ix)/error
→(3 ≠ ⍴ix)/error
shape←⍴data←old lex∆lookup 'Data'
→(shape[1]<row←ix[1])/err2
→(shape[2]<col←ix[2])/err3
val←ix[3]
data[row;col]←val
rpt←old lex∆assign 'Data' data
→0
error:
utl∆es 'The right argument is row,column,value.'
→0
err2:
utl∆es 'The maximum row value is ',⍕shape[1]
→0
err3:
utl∆es 'The maximum column value is ',⍕shape[2]
→0
∇
∇dt←rpt wp∆dt∆getQuadData ix
⍝ Function returns the data in a rectagular area described in the
⍝ right argument as First_Row,First_Column,Last_Row,Last_column
dt←rpt lex∆lookup 'Data'
ix←dt utl∆quad ix
dt←dt[1⊃ix;2⊃ix]
∇
∇rpt←old wp∆dt∆setQuadData la;ix;new;dt
⍝ Function sets the data in a rectangular area of the data. la is
⍝ First_Row, First_Col, Last_row, Last_colmn, new_data.
dt←old lex∆lookup 'Data'
ix←dt utl∆quad la[⍳4]
new←5⊃la
→(multiple,assignment)[⎕io+0=⍴⍴new]
multiple:
utl∆es(~∧/(∊⍴¨ix)=⍴new)/'SHAPE OF NEW DATA IS NOT DESCRIBED BY ',⍕ix
assignment:
dt[1⊃ix;2⊃ix]←new
rpt←old lex∆assign 'Data' dt
∇
⍝ ********************************************************************
⍝ Attribute methods. The attribute array is the same size and shape
⍝ as the data. Each cell contains a lexicon of attributes for that
⍝ cell.
⍝ ********************************************************************
∇ val←rpt wp∆attr∆getCellAttr ix;row;col;attr;shape
⍝ Function returns the value of cell in the attr array
→(1 ≠ ⍴⍴ix)/error
→(2 ≠ ⍴ix)/error
shape←⍴attr←rpt lex∆lookup 'Attributes'
→(shape[1]<row←ix[1])/err2
→(shape[2]<col←ix[2])/err3
val←attr[row;col]
→0
error:
utl∆es 'The location in the attr array is a two element vector of row, column'
→0
err2:
utl∆es 'The maximum row value is ',⍕shape[1]
→0
err3:
utl∆es 'The maximum column value is ',⍕shape[2]
→0
∇
∇rpt←old wp∆attr∆setCellAttr ix;val;row;col;attr;shape
⍝ Function returns the value of cell in the data array
→(1 ≠ ⍴⍴ix)/error
→(3 ≠ ⍴ix)/error
shape←⍴attr←old lex∆lookup 'Attributes'
→(shape[1]<row←ix[1])/err2
→(shape[2]<col←ix[2])/err3
val←ix[3]
attr[row;col]←val
rpt←old lex∆assign 'Attributes' attr
→0
error:
utl∆es 'The right argument is row,column,value.'
→0
err2:
utl∆es 'The maximum row value is ',⍕shape[1]
→0
err3:
utl∆es 'The maximum column value is ',⍕shape[2]
→0
∇
∇att←wp∆attr∆init
⍝ Function returns an attribute lexicon for the array.
att←lex∆init
∇
∇att←rpt wp∆attr∆default ix;val
⍝ Function returns an attribute lexicon based on the value of the
⍝ cell.
val←rpt wp∆dt∆getCellValue ix
att←wp∆attr∆init
→(utl∆stringp val)/0
att←att lex∆assign 'class' 'number'
→(~rpt lex∆haskey 'DefaultFormat')/0
att←att lex∆assign (⊂'format'),⊂rpt lex∆lookup 'DefaultFormat'
→0
∇
∇dt←rpt wp∆attr∆getQuadAttr ix
⍝ Function returns the data in a rectagular area described in the
⍝ right argument as First_Row,First_Column,Last_Row,Last_column
dt←rpt lex∆lookup 'Attributes'
ix←dt utl∆quad ix
dt←dt[1⊃ix;2⊃ix]
∇
∇rpt←old wp∆attr∆setQuadAttr la;ix;new;attr;stest
⍝ Function sets the data in a rectangular area of the data. la is
⍝ First_Row, First_Col, Last_row, Last_colmn, new_data.
attr←old lex∆lookup 'Attributes'
ix←attr utl∆quad la[⍳4]
→(multiple,single)[⎕io+lex∆is 5⊃la]
single:
new←la[5]
→assignment
multiple:
new←5⊃la
stest←~∧/(la[1]>0),(la[2]>0),la[3 4]≤⍴attr
utl∆es stest/'SHAPE OF ATTRIBUTES IS LESS THAN THE RECTAGLE ',⍕la[⍳4]
utl∆es(~∧/(∊⍴¨ix)=⍴new)/'SHAPE OF NEW DATA IS NOT DESCRIBED BY ',⍕ix
→assignment
assignment:
attr[1⊃ix;2⊃ix]←new
rpt←old lex∆assign 'Attributes' attr
∇
⍝ ********************************************************************
⍝ Stylesheet methods
⍝ ********************************************************************
∇ss←wp∆ss∆default old
⍝ Method assigns the default stylesheet to a workpaper
ss←old lex∆assign 'Stylesheet' wp∆defaultSS
∇
∇ss←wp∆ss∆init
⍝ Function sets up a new, empty stylesheet
ss←lex∆init
∇
∇ss←old wp∆ss∆assignClass class
⍝ Function assigns a class to the stylesheet
ss←old lex∆assign class
∇
∇txt←wp∆ss∆css ss;selectors;classes;values
selectors←lex∆keys ss
values← (⊂ss) lex∆lookup ¨ selectors
classes←⊂[2] selectors,((⍴selectors),1)⍴values
txt←⎕av[11] utl∆join wp∆ssc∆cssRule ¨ classes
∇
⍝ ********************************************************************
⍝ Stylesheet class methods. A class is a selector and a lexicon of
⍝ stylesheet properties.
⍝ ********************************************************************
∇class←wp∆ssc∆init name
⍝ Function creates a class
class← name lex∆init
∇
∇class←old wp∆ssc∆assignProp property;good
⍝ Function adds or replaces a property
→(~good←2 = ⍴ property)/bad
→(~good←wp∆ssp∆propertyp 1⊃property)/bad
→(~good←utl∆stringp 2⊃property)/bad
class←old[1],⊂(2⊃old) lex∆assign property
→0
bad: utl∆es '"',property,'" is not valid.'
→0
∇
∇txt←wp∆ssc∆cssClass class;name;lx;keys
⍝ Function renders a class for a css style sheet
name←1⊃class ◊ lx ← 2⊃class
keys←lex∆keys lx
txt←⎕av[11] utl∆join {(⎕av[10],⍵,':'⎕av[10]),(lx lex∆lookup ⍵),';'}¨lex∆keys
lx
txt←name,' {',⎕av[11],txt,'}'
∇
⍝ ********************************************************************
⍝ Stylesheet property methods. A property is a name--value pair
⍝ ********************************************************************
∇b←wp∆ssp∆propertyp property
⍝ Function confirms that property is valid
→(~b←utl∆stringp property)/0
b←(⍴wp∆ssp∆propertyList)≥wp∆ssp∆propertyList utl∆listSearch property
∇
∇txt←wp∆ssp∆cssProperty property
⍝ Function renders a property for a style tag or style sheet.
txt←⎕av[10],(1⊃property),':',⎕av[10],(2⊃property),';',⎕av[11]
∇
⍝ ********************************************************************
⍝ Conversion from old data model
⍝ ********************************************************************
⍝ ∇ wp←wp∆convert old
⍝ ⍝ Function converts from the old attribute list to the new
⍝ wp←wp∆init wp∆getId old
⍝ wp←wp wp∆setHeading (⊂old lex∆lookup 'Entity'),(⊂old lex∆lookup
'Title'),⊂old lex∆lookup 'Period'
⍝ wp←wp wp∆setAuthor old lex∆lookup 'Author'
⍝ wp←wp wp∆setData wp∆getData old
⍝ wp←wp wp∆setAttributes wp∆getAttributes old
⍝ wp←wp wp∆setStylesheet wp∆getStylesheet old
⍝ ∇
∇ wp←wp∆convert old
⍝ Function converts from the old attribute list to the new
wp←old
→(~wp lex∆haskey 'Entity')/h2
wp←wp lex∆assign (⊂'Head_ln01'),⊂wp lex∆lookup 'Entity'
h2:
→(~wp lex∆haskey 'Title')/h3
wp←wp lex∆assign (⊂'Head_ln02'),⊂wp lex∆lookup 'Title'
h3:
→(~wp lex∆haskey 'Period')/0
wp←lex∆assign (⊂'Head_ln02'),⊂wp lex∆lookup 'Period'
∇
⍝ ********************************************************************
⍝ Other matters
⍝ ********************************************************************
∇ss←wp∆defaultSS;r1;r2;r3;r4;r5;r6;r7;r8
⍝ Function returns the default stylesheet
ss←wp∆ss∆init
r1←wp∆ssc∆init 'body'
r1←r1 wp∆ssc∆assignProp 'font' '12pt sans-serif'
r1←r1 wp∆ssc∆assignProp 'text-align' 'left'
r1←r1 wp∆ssc∆assignProp 'border' 'none 2pt black'
ss←ss wp∆ss∆assignClass r1
⍝ ********************************************************************
r2←wp∆ssc∆init 'colhead'
r2←r2 wp∆ssc∆assignProp 'text-align' 'center'
r2←r2 wp∆ssc∆assignProp 'font-size' '8pt'
ss←ss wp∆ss∆assignClass r2
⍝ ********************************************************************
r3←wp∆ssc∆init 'number'
r3←r3 wp∆ssc∆assignProp 'text-align' 'right'
ss←ss wp∆ss∆assignClass r3
⍝ ********************************************************************
r4←wp∆ssc∆init 'page-head'
r4←r4 wp∆ssc∆assignProp 'font-size' 'large'
r4←r4 wp∆ssc∆assignProp 'font-weight' 'bold'
r4←r4 wp∆ssc∆assignProp 'text-align' 'center'
r4←r4 wp∆ssc∆assignProp 'width' '90%'
ss←ss wp∆ss∆assignClass r4
⍝ ********************************************************************
r5←wp∆ssc∆init 'initial-block'
r5←r5 wp∆ssc∆assignProp 'font-size' 'small'
r5←r5 wp∆ssc∆assignProp 'border' 'solid 1pt black'
r5←r5 wp∆ssc∆assignProp 'text-align' 'right'
r5←r5 wp∆ssc∆assignProp 'width' '10%'
ss←ss wp∆ss∆assignClass r5
⍝ ********************************************************************
r6←wp∆ssc∆init 'last-head'
r6←r6 wp∆ssc∆assignProp 'font-size' 'large'
r6←r6 wp∆ssc∆assignProp 'font-weight' 'bold'
r6←r6 wp∆ssc∆assignProp 'height' '36pt'
r6←r6 wp∆ssc∆assignProp 'vertical-align' 'top'
ss←ss wp∆ss∆assignClass r6
⍝ ********************************************************************
r7←wp∆ssc∆init 'subtotal'
r7←r7 wp∆ssc∆assignProp 'text-align' 'right'
r7←r7 wp∆ssc∆assignProp 'border-top' 'solid 1px black'
r7←r7 wp∆ssc∆assignProp 'padding-bottom' '2em'
ss←ss wp∆ss∆assignClass r7
⍝ ********************************************************************
r8←wp∆ssc∆init 'grandtotal'
r8←r8 wp∆ssc∆assignProp 'text-align' 'right'
r8←r8 wp∆ssc∆assignProp 'border-bottom' 'double 1px black'
r8←r8 wp∆ssc∆assignProp 'border-top' 'solid 1px black'
ss←ss wp∆ss∆assignClass r8
∇
∇Z←wp⍙metadata
Z←0 2⍴⍬
Z←Z⍪'Author' 'Bill Daly'
Z←Z⍪'BugEmail' 'b...@dalywebandedit.com'
Z←Z⍪'Documentation' 'doc/apl-library.info'
Z←Z⍪'Download' 'https://sourceforge.net/p/apl-library'
Z←Z⍪'License' 'GPL v3.0'
Z←Z⍪'Portability' 'L5'
Z←Z⍪'Provides' ''
Z←Z⍪'Requires' 'utl, lex, utf8, html, fmt'
Z←Z⍪'Version' '0 2 3'
Z←Z⍪'Last update' '2022-02-07'
∇
wp∆ssp∆propertyList←111⍴0 ⍝ prolog ≡1
(wp∆ssp∆propertyList)[⍳17]←00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
(wp∆ssp∆propertyList)[17+⍳16]←00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
(wp∆ssp∆propertyList)[33+⍳16]←00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
(wp∆ssp∆propertyList)[49+⍳16]←00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
(wp∆ssp∆propertyList)[65+⍳16]←00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
(wp∆ssp∆propertyList)[81+⍳16]←00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
(wp∆ssp∆propertyList)[97+⍳14]←00 00 00 00 00 00 00 00 00 00 00 00 00 00
((⎕IO+0)⊃wp∆ssp∆propertyList)←'background'
((⎕IO+1)⊃wp∆ssp∆propertyList)←'background-attachment'
((⎕IO+2)⊃wp∆ssp∆propertyList)←'background-color'
((⎕IO+3)⊃wp∆ssp∆propertyList)←'background-image'
((⎕IO+4)⊃wp∆ssp∆propertyList)←'background-position'
((⎕IO+5)⊃wp∆ssp∆propertyList)←'background-position-x'
((⎕IO+6)⊃wp∆ssp∆propertyList)←'background-position-y'
((⎕IO+7)⊃wp∆ssp∆propertyList)←'background-repeat'
((⎕IO+8)⊃wp∆ssp∆propertyList)←'border'
((⎕IO+9)⊃wp∆ssp∆propertyList)←'border-bottom'
((⎕IO+10)⊃wp∆ssp∆propertyList)←'border-bottom-color'
((⎕IO+11)⊃wp∆ssp∆propertyList)←'border-bottom-style'
((⎕IO+12)⊃wp∆ssp∆propertyList)←'border-bottom-width'
((⎕IO+13)⊃wp∆ssp∆propertyList)←'border-collapse'
((⎕IO+14)⊃wp∆ssp∆propertyList)←'border-color'
((⎕IO+15)⊃wp∆ssp∆propertyList)←'border-left'
((⎕IO+16)⊃wp∆ssp∆propertyList)←'border-left-color'
((⎕IO+17)⊃wp∆ssp∆propertyList)←'border-left-style'
((⎕IO+18)⊃wp∆ssp∆propertyList)←'border-left-width'
((⎕IO+19)⊃wp∆ssp∆propertyList)←'border-right'
((⎕IO+20)⊃wp∆ssp∆propertyList)←'border-right-color'
((⎕IO+21)⊃wp∆ssp∆propertyList)←'border-right-style'
((⎕IO+22)⊃wp∆ssp∆propertyList)←'border-right-width'
((⎕IO+23)⊃wp∆ssp∆propertyList)←'border-spacing'
((⎕IO+24)⊃wp∆ssp∆propertyList)←'border-style'
((⎕IO+25)⊃wp∆ssp∆propertyList)←'border-top'
((⎕IO+26)⊃wp∆ssp∆propertyList)←'border-top-color'
((⎕IO+27)⊃wp∆ssp∆propertyList)←'border-top-style'
((⎕IO+28)⊃wp∆ssp∆propertyList)←'border-top-width'
((⎕IO+29)⊃wp∆ssp∆propertyList)←'border-width'
((⎕IO+30)⊃wp∆ssp∆propertyList)←'caption-side'
((⎕IO+31)⊃wp∆ssp∆propertyList)←'clear'
((⎕IO+32)⊃wp∆ssp∆propertyList)←'color'
((⎕IO+33)⊃wp∆ssp∆propertyList)←'direction'
((⎕IO+34)⊃wp∆ssp∆propertyList)←'display'
((⎕IO+35)⊃wp∆ssp∆propertyList)←'empty-cells'
((⎕IO+36)⊃wp∆ssp∆propertyList)←'float'
((⎕IO+37)⊃wp∆ssp∆propertyList)←'font'
((⎕IO+38)⊃wp∆ssp∆propertyList)←'font-family'
((⎕IO+39)⊃wp∆ssp∆propertyList)←'font-size'
((⎕IO+40)⊃wp∆ssp∆propertyList)←'font-size-adjust'
((⎕IO+41)⊃wp∆ssp∆propertyList)←'font-stretch'
((⎕IO+42)⊃wp∆ssp∆propertyList)←'font-style'
((⎕IO+43)⊃wp∆ssp∆propertyList)←'font-variant'
((⎕IO+44)⊃wp∆ssp∆propertyList)←'font-weight'
((⎕IO+45)⊃wp∆ssp∆propertyList)←'height'
((⎕IO+46)⊃wp∆ssp∆propertyList)←'left'
((⎕IO+47)⊃wp∆ssp∆propertyList)←'letter-spacing'
((⎕IO+48)⊃wp∆ssp∆propertyList)←'line-break'
((⎕IO+49)⊃wp∆ssp∆propertyList)←'line-height'
((⎕IO+50)⊃wp∆ssp∆propertyList)←'list-style'
((⎕IO+51)⊃wp∆ssp∆propertyList)←'list-style-image'
((⎕IO+52)⊃wp∆ssp∆propertyList)←'list-style-position'
((⎕IO+53)⊃wp∆ssp∆propertyList)←'list-style-type'
((⎕IO+54)⊃wp∆ssp∆propertyList)←'margin'
((⎕IO+55)⊃wp∆ssp∆propertyList)←'margin-bottom'
((⎕IO+56)⊃wp∆ssp∆propertyList)←'margin-left'
((⎕IO+57)⊃wp∆ssp∆propertyList)←'margin-right'
((⎕IO+58)⊃wp∆ssp∆propertyList)←'margin-top'
((⎕IO+59)⊃wp∆ssp∆propertyList)←'marker-offset'
((⎕IO+60)⊃wp∆ssp∆propertyList)←'max-height'
((⎕IO+61)⊃wp∆ssp∆propertyList)←'max-width'
((⎕IO+62)⊃wp∆ssp∆propertyList)←'min-height'
((⎕IO+63)⊃wp∆ssp∆propertyList)←'min-width'
((⎕IO+64)⊃wp∆ssp∆propertyList)←'orphans'
((⎕IO+65)⊃wp∆ssp∆propertyList)←'outline'
((⎕IO+66)⊃wp∆ssp∆propertyList)←'outline-color'
((⎕IO+67)⊃wp∆ssp∆propertyList)←'outline-style'
((⎕IO+68)⊃wp∆ssp∆propertyList)←'outline-width'
((⎕IO+69)⊃wp∆ssp∆propertyList)←'overflow'
((⎕IO+70)⊃wp∆ssp∆propertyList)←'overflow-X'
((⎕IO+71)⊃wp∆ssp∆propertyList)←'overflow-Y'
((⎕IO+72)⊃wp∆ssp∆propertyList)←'padding'
((⎕IO+73)⊃wp∆ssp∆propertyList)←'padding-bottom'
((⎕IO+74)⊃wp∆ssp∆propertyList)←'padding-left'
((⎕IO+75)⊃wp∆ssp∆propertyList)←'padding-right'
((⎕IO+76)⊃wp∆ssp∆propertyList)←'padding-top'
((⎕IO+77)⊃wp∆ssp∆propertyList)←'page'
((⎕IO+78)⊃wp∆ssp∆propertyList)←'page-break-after'
((⎕IO+79)⊃wp∆ssp∆propertyList)←'page-break-before'
((⎕IO+80)⊃wp∆ssp∆propertyList)←'page-break-inside'
((⎕IO+81)⊃wp∆ssp∆propertyList)←'position'
((⎕IO+82)⊃wp∆ssp∆propertyList)←'quotes'
((⎕IO+83)⊃wp∆ssp∆propertyList)←'right'
((⎕IO+84)⊃wp∆ssp∆propertyList)←'size'
((⎕IO+85)⊃wp∆ssp∆propertyList)←'stress'
((⎕IO+86)⊃wp∆ssp∆propertyList)←'table-layout'
((⎕IO+87)⊃wp∆ssp∆propertyList)←'text-align'
((⎕IO+88)⊃wp∆ssp∆propertyList)←'text-align-last'
((⎕IO+89)⊃wp∆ssp∆propertyList)←'text-decoration'
((⎕IO+90)⊃wp∆ssp∆propertyList)←'text-indent'
((⎕IO+91)⊃wp∆ssp∆propertyList)←'text-justify'
((⎕IO+92)⊃wp∆ssp∆propertyList)←'text-overflow'
((⎕IO+93)⊃wp∆ssp∆propertyList)←'text-shadow'
((⎕IO+94)⊃wp∆ssp∆propertyList)←'text-transform'
((⎕IO+95)⊃wp∆ssp∆propertyList)←'text-autospace'
((⎕IO+96)⊃wp∆ssp∆propertyList)←'text-kashida-space'
((⎕IO+97)⊃wp∆ssp∆propertyList)←'text-underline-position'
((⎕IO+98)⊃wp∆ssp∆propertyList)←'top'
((⎕IO+99)⊃wp∆ssp∆propertyList)←'vertical-align'
((⎕IO+100)⊃wp∆ssp∆propertyList)←'visibility'
((⎕IO+101)⊃wp∆ssp∆propertyList)←'white-space'
((⎕IO+102)⊃wp∆ssp∆propertyList)←'widows'
((⎕IO+103)⊃wp∆ssp∆propertyList)←'width'
((⎕IO+104)⊃wp∆ssp∆propertyList)←'word-break'
((⎕IO+105)⊃wp∆ssp∆propertyList)←'word-spacing'
((⎕IO+106)⊃wp∆ssp∆propertyList)←'word-wrap'
((⎕IO+107)⊃wp∆ssp∆propertyList)←'writing-mode'
((⎕IO+108)⊃wp∆ssp∆propertyList)←'z-index'
((⎕IO+109)⊃wp∆ssp∆propertyList)←'zoom'
((⎕IO+110)⊃wp∆ssp∆propertyList)←' ' ⍝ proto 1
((⎕IO+110)⊃wp∆ssp∆propertyList)←0⍴((⎕IO+110)⊃wp∆ssp∆propertyList) ⍝ proto 2
#! /usr/local/bin/apl --script
⍝ ********************************************************************
⍝ wp_example_session.apl; Script to demonstrate how to use workspace wp.
⍝ 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/>.
⍝ ********************************************************************
)load 1 wp
)copy_once 5 DALY/import
)copy_once 5 DALY/export
)copy_once 5 DALY/find_test_data
)copy_once 5 FILE_IO
sink←FIO∆mkdir_777 '/tmp/wp_test'
t1←import∆file test_data,'/RestrAccts.txt'
t2←wp∆init 'Acct 1320'
t2←t2 wp∆setData t1
t2←t2 wp∆setHeading 'Sec. 202 Partners' 'Reserve for Replacements' 'Year Ended
12/31/2018'
t2←t2 lex∆assign 'Author' 'amd'
t2←t2 wp∆attr∆setQuadAttr 1 1 1 8,⊂lex∆from_alist 'class' 'colhead'
t2←t2 wp∆attr∆setQuadAttr 2 3 22 8,⊂lex∆from_alist 'class' 'number' 'format'
'BM/(/N/)/CF12.2'
⍝ We need to place a line above the total, and a double line
⍝ below. Hence a new class for the style sheet.
tr1←wp∆ssc∆init 'total'
tr1←tr1 wp∆ssc∆assignProp 'border-top' 'solid 1pt black'
tr1←tr1 wp∆ssc∆assignProp 'border-bottom' 'double 3pt black'
tr1←tr1 wp∆ssc∆assignProp 'text-align' 'right'
t2←t2 wp∆setStylesheet (wp∆getStylesheet t2) wp∆ss∆assignClass tr1
t2←t2 wp∆attr∆setQuadAttr 12 3 12 8,⊂lex∆from_alist 'class' 'total' 'format'
'M/(/N/)/CF12.2'
⍝ Create html file from t2
(wp∆html∆assemble t2) utf8∆write '/tmp/wp_test/test01_wp.html'
⍝ Create a plant ledger
pl←wp∆init 'Plant Ledger'
pl←pl wp∆setData import∆file test_data,'/plant_ledger.txt'
pl←pl wp∆setHeading 'Bad Example, Inc.' 'Plant Ledger' '12/31/2018'
pl←pl wp∆attr∆setQuadAttr 1 1 1 6,⊂lex∆from_alist 'class' 'colhead'
pl←pl wp∆attr∆setQuadAttr 2 1 25 1,⊂lex∆from_alist 'class' 'number' 'format'
'I5'
pl←pl wp∆attr∆setQuadAttr 2 4 25 4,⊂lex∆from_alist 'class' 'number' 'format'
'CF10.2'
pl←pl wp∆attr∆setQuadAttr 2 5 25 5,⊂lex∆from_alist 'class' 'number' 'format'
'I3'
pl←pl wp∆setInitialFlag 0
⍝ Create file from pl
(wp∆html∆assemble pl) utf8∆write '/tmp/wp_test/test02_wp.html'
⍝ Create a trial balance
extb←wp∆init 'TB'
extb←extb wp∆setHeading 'Example Sec 202 Housing' 'Trial Balance' '12/31/2018'
extb←extb wp∆setData import∆file test_data,'/example_tb.txt'
extb←extb wp∆attr∆setQuadAttr 1 1 1 3 ,⊂lex∆from_alist 'class' 'colhead'
extb←extb wp∆attr∆setQuadAttr 2 3 182 3,⊂lex∆from_alist 'class' 'number'
'format' 'BM/(/N/)/CF14.2'
extb←extb wp∆attr∆setQuadAttr 2 1 181 1,⊂lex∆from_alist 'class' 'number'
'format' 'I6'
extb←extb wp∆attr∆setQuadAttr 182 3 182 3 ,⊂lex∆from_alist 'class' 'total'
'format' 'BM/(/N/)/CF14.2'
extb←extb wp∆setStylesheet (wp∆getStylesheet extb) wp∆ss∆assignClass tr1
⍝ Create a file from extb
(wp∆html∆assemble extb) utf8∆write '/tmp/wp_test/test03_wp.html'
⍞←'Files test01_wp∆tml, test02_wp.html, and test03_wp.html are saved in
/tmp/wp_test',⎕TC[3]
