Class: SiSU_DigestView::Source::Scroll

Inherits:
SiSU_DigestView::Source show all
Defined in:
lib/sisu/digests.rb

Constant Summary collapse

@@dl =
nil
@@ds =
{
  digests_clean: [],
  digests_with_markup: [],
  tree: [],
  summary: [],
}

Instance Method Summary collapse

Methods inherited from SiSU_DigestView::Source

#read

Constructor Details

#initialize(particulars) ⇒ Scroll

Returns a new instance of Scroll.



122
123
124
125
126
127
128
129
130
131
132
133
# File 'lib/sisu/digests.rb', line 122

def initialize(particulars)
  @particulars=particulars
  @data,@env,@md=@particulars.ao_array,@particulars.env,@particulars.md
  SiSU_Env::FileOp.new(@md).mkdir
  @@dg ||=@env.digest(@md.opt).type
  @@dl ||=@env.digest(@md.opt).length
  @dg,@dl=@@dg,@@dl
  l=SiSU_Env::StandardiseLanguage.new(@md.opt.lng).language
  @language=l[:n]
  @tr=SiSU_Translate::Source.new(@md,@language)
  @sp=' '
end

Instance Method Details

#ao_structureObject



194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
# File 'lib/sisu/digests.rb', line 194

def ao_structure
  a=%{\nocn     digests (#{@dg}) clean text (stripped markup)}
  digests_clean(a)
  data=@data
  endnotes=nil
  data.each do |t_o|
    dgst=SiSU_TextRepresentation::ModifiedTextPlusHashDigest.new(@md,t_o).composite.dgst
    if dgst
      if t_o.is==:heading
        digests_clean("#{@sp*0}#{dgst[:ocn]}#{@sp*(8-dgst[:ocn].to_s.length)}#{dgst[:dgst_stripped_txt]} #{dgst[:is]} #{t_o.lv}")
      elsif t_o.is==:heading_insert
        digests_clean("#{@sp*0}[#{dgst[:ocn]}]#{@sp*(6-dgst[:ocn].to_s.length)}#{dgst[:dgst_stripped_txt]} #{dgst[:is]} #{t_o.lv}")
      else
        digests_clean("#{@sp*0}#{dgst[:ocn]}#{@sp*(8-dgst[:ocn].to_s.length)}#{dgst[:dgst_stripped_txt]} #{dgst[:is]}")
        if dgst[:images]
          dgst[:images].each do |img|
            digests_clean("#{@sp*8}#{img[:img_dgst]}#{@sp*66}#{img[:img_type]} #{img[:img_name]}")
          end
        end
      end
      if dgst[:endnotes]
        dgst[:endnotes].each do |en|
          digests_clean("#{@sp*8}#{en[:note_dgst]} note [#{en[:note_number]}]")
          endnotes=en[:note_number]
        end
      end
    end
  end
  b=%{\nocn     object (#{@dg}) digests (object includes its markup & endnotes (if any))}
  digests_with_markup(b)
  data.each do |t_o|
    dgst=SiSU_TextRepresentation::ModifiedTextPlusHashDigest.new(@md,t_o).composite.dgst
    if dgst
      if t_o.is==:heading
        digests_with_markup("#{@sp*0}#{dgst[:ocn]}#{@sp*(8-dgst[:ocn].to_s.length)}#{dgst[:dgst_markedup_txt]} #{dgst[:is]} #{t_o.lv}")
      elsif t_o.is==:heading_insert
        digests_with_markup("#{@sp*0}[#{dgst[:ocn]}]#{@sp*(6-dgst[:ocn].to_s.length)}#{dgst[:dgst_markedup_txt]} #{dgst[:is]} #{t_o.lv}")
      else
        digests_with_markup("#{@sp*0}#{dgst[:ocn]}#{@sp*(8-dgst[:ocn].to_s.length)}#{dgst[:dgst_markedup_txt]} #{dgst[:is]}")
      end
    end
  end
  l=Hash.new(0)
  ocn=nil
  ao_structure_tree("------------\n")
  ao_structure_tree("document structure[*]\n")
  data.each do |t_o|
    if t_o.is==:heading
      x=case t_o.ln
      when 0 then l[0] +=1
        spaces*0 << ':A'
      when 1 then l[1] +=1
        spaces*1 << ':B'
      when 2 then l[2] +=1
        spaces*2 << ':C'
      when 3 then l[3] +=1
        spaces*3 << ':D'
      when 4 then l[4] +=1
        spaces*4 << '1'
      when 5 then l[5] +=1
        spaces*5 << '2'
      when 6 then l[6] +=1
        spaces*6 << '3'
      else nil
      end
    end
    ocn=t_o.ocn if defined? t_o.ocn and t_o.is !=:heading_insert
    ao_structure_tree("#{x}\n") if x and not x.empty?
  end
  ao_structure_tree("  [*] heading levels\n")
  ao_structure_summary("------------\n")
  ao_structure_summary("document structure[*]\n")
  [0,1,2,3,4,5,6].each do |y|
    v=case y
    when 0 then ':A'
    when 1 then ':B'
    when 2 then ':C'
    when 3 then ':D'
    when 4 then '1 '
    when 5 then '2 '
    when 6 then '3 '
    end
    ao_structure_summary("#{v}            = #{l[y]}\n") if l[y] > 0
  end
  ao_structure_summary("objects (ocn) = #{ocn}\n")
  ao_structure_summary("endnotes      = #{endnotes}\n")
  ao_structure_summary("  [*] number of headers (@) and of each heading level (:A to :D and 1 to 3)\n")
end

#ao_structure_summary(f, e = '') ⇒ Object



160
161
162
163
# File 'lib/sisu/digests.rb', line 160

def ao_structure_summary(f,e='')
  puts f + e.to_s if @md.opt.act[:verbose_plus][:set]==:on
  @@ds[:summary] << f << e
end

#ao_structure_tree(f, e = '') ⇒ Object



156
157
158
159
# File 'lib/sisu/digests.rb', line 156

def ao_structure_tree(f,e='')
  puts f + e.to_s if @md.opt.act[:verbose_plus][:set]==:on
  @@ds[:tree] << f << e
end

#description(f, e = '') ⇒ Object



144
145
146
147
# File 'lib/sisu/digests.rb', line 144

def description(f,e='')
  puts f + e.to_s if @md.opt.act[:verbose_plus][:set]==:on
  @@description << f << e
end

#digests_clean(f, e = '') ⇒ Object



148
149
150
151
# File 'lib/sisu/digests.rb', line 148

def digests_clean(f,e='')
  puts f if @md.opt.act[:verbose_plus][:set]==:on
  @@ds[:digests_clean] << f + "\n"
end

#digests_with_markup(f) ⇒ Object



152
153
154
155
# File 'lib/sisu/digests.rb', line 152

def digests_with_markup(f)
  puts f if @md.opt.act[:verbose_plus][:set]==:on
  @@ds[:digests_with_markup] << f + "\n"
end

#message_digestObject



176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
# File 'lib/sisu/digests.rb', line 176

def message_digest
  @p=[]
  @g,@v,@r='','',''
  manifest="#{@env.url.root}/#{@md.fnb}/sisu_manifest.html"
  description("#{@md.title.full}\n")
  description("#{@md.author}\n")
  description("#{@md.fns}\n")
  description("----------------------------------------------\n")
  description("SiSU Document Content Certificate (Digest/DCC)\n")
  description("----------------------------------------------\n")
  description("                               #{@dg} digests\n")
  description("------------\n")
  description("Sourcefile digest:             #{@md.dgst[1]}\n")
  description("  source filename:             #{@md.fns}\n")
  description("available outputs:             #{manifest}\n")
  description("------------\n")
  description("Document Digests\n")
end

#outputObject



168
169
170
171
172
# File 'lib/sisu/digests.rb', line 168

def output
  file=SiSU_Env::FileOp.new(@md)
  filename_digest=file.write_file.hash_digest
  filename_digest << @@description.join << @@ds[:digests_clean].join << @@ds[:digests_with_markup].join << @@ds[:tree].join << @@ds[:summary].join << @@sc_info.join
end

#rcinfo(f, e = '') ⇒ Object



164
165
166
167
# File 'lib/sisu/digests.rb', line 164

def rcinfo(f,e='')
  puts f + e.to_s if @md.opt.act[:verbose_plus][:set]==:on
  @@sc_info << f << e
end

#rgx_txt(txt) ⇒ Object



173
174
175
# File 'lib/sisu/digests.rb', line 173

def rgx_txt(txt)
  txt=txt.gsub(/([()])/,"\\\\\\1")
end

#songsheetObject



134
135
136
137
138
139
140
# File 'lib/sisu/digests.rb', line 134

def songsheet
  @@description,@@ds[:digests_clean],@@ds[:digests_with_markup],@@ds[:tree],@@ds[:summary],@@sc_info=[],[],[],[],[],[]
  message_digest
  ao_structure
  supplementary
  output
end

#spacesObject



141
142
143
# File 'lib/sisu/digests.rb', line 141

def spaces
  Ax[:spaces]
end

#supplementaryObject



282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
# File 'lib/sisu/digests.rb', line 282

def supplementary
  if defined? @md.sc_number \
  and @md.sc_number
    rcinfo("------------\n")
    rcinfo("source control information\n")
    rcinfo("  (the following information while not important for document content certification\n   may help the publisher in locating the version referred to)\n")
    rcinfo("  rcs version number:            #{@md.sc_number}\n")
    if defined? @md.sc_date \
    and @md.sc_date
      rcinfo("  rcs date:                      #{@md.sc_date}\n")
    end
    if defined? @md.sc_time \
    and @md.sc_time
      rcinfo("  rcs time:                      #{@md.sc_time}\n")
    end
  end
  rcinfo("------------\n")
  rcinfo("Note: the time generated related fields (text and digests) will vary between otherwise identical document outputs\n")
end