Gammon Forum

#include <stdio.h>

int main ()
  {
  char buf [1000];
  char * buf2 = (char *) malloc (1000);
  printf ("buf is %i bytes.\n", sizeof (buf));
  printf ("buf2 is %i bytes.\n", sizeof (buf2));
  return 0;

 }

         char lbuf[MAX_INPUT_LENGTH + 4]; /* invis level string + buf */

... and later ...

            snprintf( lbuf, MAX_STRING_LENGTH, "(%d) ", ( !IS_NPC( ch ) ) ? ch->pcdata->wizinvis : ch->mobinvis );

            snprintf( lbuf, sizeof ( lbuf ), "(%d) ", ( !IS_NPC( ch ) ) ? ch->pcdata->wizinvis : ch->mobinvis );

-- pattern to detect a function declaration
pat = "[%a_]+%s+%*?%s*([%a%d_]+)%s*%b().-(%b{})"

olddir = "C:\\smaugfuss\\src\\"

snprintf1 = "snprintf%s*%(%s*([%a%d_]+)%s*,%s*("
snprintf2 = "snprintf%s*%(%s*([%a%d_]+)%s*%+%s*strlen%s*%(%s*%1%s*%)%s*,%s*("

found = 0
not_found = 0

replacements = {
    { find = snprintf1 .. "%d+)%s*,",
    },

    { find = snprintf1 .. "MAX_%u+_LENGTH)%s*,",
    },

    { find = snprintf1 .. "SMST)%s*,",
    },

    { find = snprintf1 .. "LGST)%s*,",
    },

    { find = snprintf1 .. "IMC_BUFF_SIZE)%s*,",
    },

    { find = snprintf2 .. "IMC_BUFF_SIZE)%s*%-%s*strlen%s*%(%s*%1%s*%)%s*,",
    },

    { find = snprintf2 .. "%(?%s*MAX_%u+_LENGTH)%s*%-%s*strlen%s*%(%s*%1%s*%)%s*%)?%s*,",
    },

    { find = snprintf2 .. "LGST)%s*%-%s*strlen%s*%(%s*%1%s*%)%s*,",
    },
    
  }  -- end replacements table


function check_arg (s, size)
  match = string.find (saved_body,
                       "char%s+" .. s .. "%s*%[%s*" ..
                       size .. "%s*%]")
  if match then
    found = found + 1
  else
    not_found = not_found + 1
    key = s .. ":" .. size
    if not reported [key] then
      reported [key] = true
      ColourNote ("white", "red", 
                  "Cannot find declaration for " .. s .. " (size " .. size ..
                  ") in function " .. saved_name
                 )
    end -- if not already reported it
  end -- if

end -- check_arg

function process_function (name, body)
--  Note (" +++ function: " .. name)
  reported = {}
  saved_name = name -- in case we need to report it
  saved_body = body -- move to global scope for check_arg

  -- check each change
  for k, v in ipairs (replacements) do
     s, count = string.gsub (body, v.find, check_arg)
     file_count = file_count + count
  end -- for each replacement

end -- process_function

function process_file (name)
  local f, s
  file_count = 0

  print ("Processing: " .. name)
  f = assert (io.open (olddir .. name, "rb"))  -- open input
  s = f:read ("*a")  -- read all of it
  f:close ()  -- close it

  -- fix up imc strange function defs

  s = string.gsub (s, "PFUN%( ([%a%d_]+) %)",
                   "void %1( IMC_PACKET *q, char *packet )")
  s = string.gsub (s, "IMC_CMD%( ([%a%d_]+) %)",
                   "void %1( CHAR_DATA *ch, char *argument )")

  s = string.gsub (s, "'}'", "")  -- confuses function finding

  string.gsub (s, pat, process_function)
 
  print (" -- " .. file_count .. " changes found")
end -- process_file 

print (string.rep ("-", 60))

local t = assert (utils.readdir (olddir .. "*.c"))
local k

for k in pairs (t) do
  process_file (k)
end -- for

Note ("Matches found = ", found)
Note ("No declaration found = ", not_found)