<html><head><meta http-equiv="Content-Type" content="text/html charset=utf-8"></head><body style="word-wrap: break-word; -webkit-nbsp-mode: space; -webkit-line-break: after-white-space;" class=""><span class="" style="font-family: monospace; white-space: pre-wrap;">  > </span><span style="white-space: pre-wrap; font-family: monospace;" class="">></span><span style="white-space: pre-wrap; font-family: monospace;" class=""> In the entire PO2013 system with850 procedures (of which</span><div class=""><span style="white-space: pre-wrap; font-family: monospace;" class="">  > > only 17 are </span><span style="white-space: pre-wrap; font-family: monospace;" class="">local ones), </span><span style="white-space: pre-wrap; font-family: monospace;" class="">there is only ONE local TYPE</span></div><div class=""><span style="white-space: pre-wrap; font-family: monospace;" class="">  > > declaration </span><span style="font-family: monospace; white-space: pre-wrap;" class="">and only 8 local CONST </span><span style="white-space: pre-wrap; font-family: monospace;" class="">declarations.</span></div><div class=""><div class=""><font face="monospace" class=""><span style="white-space: pre-wrap;" class="">
  > Since this example has been cited several times now: I think</span></font></div><div class=""><font face="monospace" class=""><span style="white-space: pre-wrap;" class="">  > that it tells more about the programming style preferred by</span></font></div><div class=""><font face="monospace" class=""><span style="white-space: pre-wrap;" class="">  > Niklaus Wirth than about the actual value of local declarations.</span></font><div class=""><font face="monospace" class=""><span class="" style="white-space: pre-wrap;">  > Being able to declare types locally is not so much about</span></font></div><div class=""><font face="monospace" class=""><span class="" style="white-space: pre-wrap;">  > information  </span></font><span style="white-space: pre-wrap; font-family: monospace;" class="">hiding as it is making the code easier to understand.</span><div class=""><div class=""><span class="" style="font-family: monospace; white-space: pre-wrap;"><br class=""></span></div><div class=""><font face="monospace" class=""><span style="white-space: pre-wrap;" class="">That may be true. OTOH, the authors of System 3 (ETH Oberon),</span></font></div><div class=""><font face="monospace" class=""><span style="white-space: pre-wrap;" class="">Oberon V4 (Linz Oberon) and A2 (formerly) - all considerably</span></font></div><div class=""><font face="monospace" class=""><span style="white-space: pre-wrap;" class="">larger systems and Original Oberon - also don’t seem to use</span></font></div><div class=""><span style="white-space: pre-wrap; font-family: monospace;" class="">local procedures or locally declared types very much. And </span><span style="font-family: monospace; white-space: pre-wrap;" class="">I</span></div><div class=""><span style="font-family: monospace; white-space: pre-wrap;" class="">don’t think the authors of these systems blindly follow someone</span></div><div class=""><span style="font-family: monospace; white-space: pre-wrap;" class="">else’s programming style.</span></div><div class=""><font face="monospace" class=""><span style="white-space: pre-wrap;" class=""><br class=""></span></font></div><div class=""><font face="monospace" class=""><span style="white-space: pre-wrap;" class=""><br class=""></span></font></div><div class=""><span style="white-space: pre-wrap; font-family: monospace;" class=""><br class=""></span></div><div class=""><br class=""></div><div class=""><br class=""></div><div class=""><br class=""></div></div></div></div></div></body></html>