gratuitous inclusion of oracle in 7.0.2-RC2

[Peter M. Brigham]

On Feb 4, 2015, at 6:48 PM, Dr. Hawkins wrote:

> Can you give us some estimates (or actual numbers) for:
>> - Number of objects
>> 
> 
> Lots.
> 
> Lots and lots and lots.
> 
> :)
> 
> I don't even know how to guess.
> 
> Looks like generally 60-200 per page on the main entry stack of 12 cards,
> with about 1200 lines of code between the stack and cards.
> 
> Hmm, only 600 objects on the Chapter 13 plan; I"m surprised.
> <snip>

Here's a script I use to get the number of lines of code in my stack system. Adapt it as needed. In some of my stacks I have many cards but they all have the same backgrounds. I have only a few stacks where multiple cards have their own controls (as opposed to those belonging to a place background), so you'll have to adjust accordingly. (See the line starting "if the short name of stack s is among the items of...")

-- Peter

Peter M. Brigham
pmbrig at gmail.com
http://home.comcast.net/~pmbrig

-------------

function countScriptLines
   put the mainstack of stack "PDdata" into ms
   put the long id of stack ms into mainID
   put the number of lines of the script of mainID into totScrLines
   put the number of lines of the script of card 1 of mainID into scrLines
   add scrLines to totScrLines
   put the substacks of mainID into ssList
   repeat for each line s in ssList
      put the number of lines of the script of stack s into scrLines
      add scrLines to totScrLines
      if the short name of stack s is among the items of "PCAreferral,PCPletter," \
             & "termination" then -- two cards, with different layouts
         put the number of cards of stack s into nbrCards
      else
         put 1 into nbrCards
      end if
      repeat with c = 1 to nbrCards
         put the number of lines of the script of card c of stack s into scrLines
         add scrLines to totScrLines
         put the number of controls of card c of stack s into nbrControls
         repeat with o = 1 to nbrControls
            put the short id of control o of card c of stack s into thisCtrlID
            if c > 1 then -- second card
               -- don't duplicate shared controls
               if there is a control id thisCtrlID of card 1 of stack s then
                  next repeat
               end if
            end if
            put the long id of control o of card c of stack s into ctrID
            put the number of lines of the script of ctrID into scrLines
            add scrLines to totScrLines
         end repeat
      end repeat
   end repeat
   return totScrLines
end countScriptLines