VE Lua Documentation

      for _, substate in pairs(item.substates) do
        if string.sub(M.state.currentUIState, 1, #substate) == substate then
          M.state.activeItem = item.id

  -- -- remove leading slash from state
  -- if type(state) == "string" and string.sub(state, 1, 1) == "/" then
  --   state = string.sub(state, 2)

  -- if type(state) == "string" and string.sub(state, 1, 1) == "/" then
  --   state = string.sub(state, 2)
  -- end

  -- -- TODO: popup check is a hack for now. maybe we can check popup state from lua instead
  -- if not opened or M.state.currentUIState == state or (type(state) == "string" and string.sub(state, 1, 5) == "popup") then
  --   return

            local filepath = currentMaterial:getField(k, i)
            if tmp ~= "" and string.sub(filepath, 1, 1) ~= '/' then
              filepath = "/"..filepath

    if out.pidvid then
      out.pid = out.pidvid:sub(1, 4)
      out.vid = out.pidvid:sub(5, 8)

      out.pid = out.pidvid:sub(1, 4)
      out.vid = out.pidvid:sub(5, 8)
    end

      if info.vendorName then
        if string.lower(string.sub(name, 1, string.len(info.vendorName))) == string.lower(info.vendorName) then
          name = string.sub(name, string.len(info.vendorName) + 1)

        if string.lower(string.sub(name, 1, string.len(info.vendorName))) == string.lower(info.vendorName) then
          name = string.sub(name, string.len(info.vendorName) + 1)
          name = name:gsub("^%s+", "") -- strip whitespaces

    if minimapImage:startswith("/") then
      minimapImage = minimapImage:sub(2)
    end

      local dir, _, _ = path.split(file)
      local spotId = level .."/".. string.sub(dir, #levelSpotsDir+1, -2)
      -- main data

      local oidx = 6 * info
      info = sub(vmdef.bcnames, oidx+1, oidx+6)
    end

  if hex:len() == 3 then
    return {(tonumber("0x"..hex:sub(1,1))*17)/255, (tonumber("0x"..hex:sub(2,2))*17)/255, (tonumber("0x"..hex:sub(3,3))*17)/255, 1}
  else

  if hex:len() == 3 then
    return {(tonumber("0x"..hex:sub(1,1))*17)/255, (tonumber("0x"..hex:sub(2,2))*17)/255, (tonumber("0x"..hex:sub(3,3))*17)/255, 1}
  else

  if hex:len() == 3 then
    return {(tonumber("0x"..hex:sub(1,1))*17)/255, (tonumber("0x"..hex:sub(2,2))*17)/255, (tonumber("0x"..hex:sub(3,3))*17)/255, 1}
  else

  else
    return {tonumber("0x"..hex:sub(1,2))/255, tonumber("0x"..hex:sub(3,4))/255, tonumber("0x"..hex:sub(5,6))/255, 1}
  end

  else
    return {tonumber("0x"..hex:sub(1,2))/255, tonumber("0x"..hex:sub(3,4))/255, tonumber("0x"..hex:sub(5,6))/255, 1}
  end

  else
    return {tonumber("0x"..hex:sub(1,2))/255, tonumber("0x"..hex:sub(3,4))/255, tonumber("0x"..hex:sub(5,6))/255, 1}
  end

  if string.len(defVal) > 100 then
    defVal = string.sub(defVal, 1, 100) .. "..."
  end

    local dir, filename, ext = path.split(files[i])
    local fileNameNoExt = string.sub(filename, 1, -6)
    local inventoryId = tonumber(fileNameNoExt)

      if inputLength >= is.stringLength then
        local subStr = inputString:sub(inputLength - is.stringLength + 1)
        if subStr == is.string then

    if inputLength > 16 then
      inputString = inputString:sub(2)
    end

      local len = str:byte(i)
      array[#array + 1] = str:sub(i + 1, i + len)
      i = i + len + 1

local function patt_error (s, i)
  local msg = (#s < i + 20) and s:sub(i)
                             or s:sub(i,i+20) .. "..."

  local msg = (#s < i + 20) and s:sub(i)
                             or s:sub(i,i+20) .. "..."
  msg = ("pattern error near '%s'"):format(msg)

  local e = #c + i
  if s:sub(i, e - 1) == c then return e else return nil end
end

  for i = 1, string.len(text) do
    local c = string.sub(text, i, i)
    if c == ' ' then

        for dx = 1, string.len(cl[dy]) do
          local cf = string.sub(cl[dy], dx, dx)
          if cf ~= ' ' then

    local _, fn, ext = path.split(room.file, true)
    local name = generateObjectNameForClass('Prefab', string.format("%s - %d - ", string.sub(fn, 1, string.len(fn) - string.len(ext)-1), i))
    local scenetreeObject = spawnPrefab(name , self.mgr.savedDir .. room.file, "0 0 0", "0 0 1 0", "1 1 1", false)

    local infend = si + 6
    if sub(s, si, infend) == "1#INF00" then
      return math.huge, infend + 1

      local pm = byte(s, si - 1)
      jsonError(string.format("Invalid number: '%s'", sub(s, si - ((pm == 45 or pm == 43) and 1 or 0), infend)), si)
    end

    end
    r = tonumber(sub(s, si, i - 1))
    if r == nil then

      local pm = byte(s, si - 1)
      jsonError(string.format("Invalid number: '%s'", sub(s, si - ((pm == 45 or pm == 43) and 1 or 0), i-1)), si)
    end

  if ch == 34 then -- "
    return sub(s, si1, i - 2), i
  end

    i = i - 1
    key = sub(s, si, i)

  -- collapse anything below bindings that has less than 4 items
  return path:sub(1,10) == '/bindings/' and tableSize(item) < 4
end

    for _, wp in ipairs(scenario.lapConfig) do
      if wp:sub(1,12) ~= '__generated_' then -- only process non-generated WPs
        if scenario.nodes[wp] == nil then

      if type(entry) == 'string' then
        if not tableContains(triggers, entry) and not tableContains(waypoints, entry) and entry:sub(1,12) ~= '__generated_' then
          log('E', logTag, 'Lapconfig entry is Invalid! It should be either a Trigger or Waypoint: '..entry)

    local rdnNumber = math.random(1, #randomStringChars)
    res = res .. string.sub(randomStringChars, rdnNumber, rdnNumber)
  end

    local _, filename, extension = path.split(layerData.decalColorTexturePath)
    colorMapTextureString = string.sub(filename, 1, #filename - (#extension + 1))
  elseif layerData.type == M.layerTypes.textureFill then

    if filename ~= "" then
      colorMapTextureString = string.sub(filename, 1, #filename - (#extension + 1))
    end

    if filename ~= "" then
      normalMapTextureString = string.sub(filename, 1, #filename - (#extension + 1))
    end

    if filename ~= "" then
      metallicMapTextureString = string.sub(filename, 1, #filename - (#extension + 1))
    end

    if filename ~= "" then
      roughnessMapTextureString = string.sub(filename, 1, #filename - (#extension + 1))
    end

    if filename ~= "" then
      alphaMapTextureString = string.sub(filename, 1, #filename - (#extension + 1))
    end

    while string.endswith(missionData.description, "\n") do
      missionData.description = string.sub(missionData.description, 1, -2)
    end

  --dump(missionId)
  missionId = string.sub(missionDir, #missionsDir+1)
  missionData.id = missionId

      local missionDir, _, _ = path.split(missionInfo)
      missionDir = string.sub(missionDir,0,-2)
      local missionData = loadMission(missionDir)

  for _, file in ipairs(files) do
    local gen = require(file:sub(0,-5))
    gen.generate = gen.generate or nop

      local dirname, fn, e = path.splitWithoutExt(filename, true)
      local path = dirname:sub(string.len(stateTemplatePath) + 1)

        local moduleName = fn
        --local requireFilename = string.sub(filename, 1, string.len(filename) - 4)
        local lectionData = {}

      if not pos2 then
        im.Text(label:sub(pos1))
        break

      elseif pos1 < pos2 then
        im.Text(label:sub(pos1, pos2 - 1))
        im.SameLine()

      local pos3 = pos2 + highlightLowerLen
      im.TextColored(matchColor, label:sub(pos2, pos3))
      im.SameLine()

  if string.sub(path, 1, size) == newPathNotSetString then
    return false

  for hash, asset in pairs(assetsByHash) do
    if string.sub(asset.targetPath, 1, size) == newPathNotSetString then
      return false

    modePrefix = "S"
  elseif string.sub(automaticHandling.mode, 1, 1) == "M" then
    modePrefix = "M"

  local manualModeIndex
  if string.sub(automaticHandling.mode, 1, 1) == "M" then
    manualModeIndex = string.sub(automaticHandling.mode, 2)

  if string.sub(automaticHandling.mode, 1, 1) == "M" then
    manualModeIndex = string.sub(automaticHandling.mode, 2)
  end

    if string.find(automaticHandling.mode, "M") then
      local gearIndex = tonumber(string.sub(automaticHandling.mode, 2))
      gearRatio = gearbox.gearRatios[gearIndex]

    if string.find(automaticHandling.mode, "M") then
      local gearIndex = tonumber(string.sub(automaticHandling.mode, 2))
      gearRatio = gearbox.gearRatios[gearIndex]

  local isManualMode = string.sub(automaticHandling.mode, 1, 1) == "M"
  --enforce things like L and M modes

  for i = 1, modeCount do
    local mode = modes:sub(i, i)
    if automaticHandling.availableModeLookup[mode] then

  if not mission then
    mission = gameplay_missions_missions.getMissionById(string.sub(missionId, 1, -3))
  end

        local src = f
        local dst = dir1 .. filename:sub(1, -4) .. 'cdae'
        local dstData = '' -- dir1 .. filename:sub(1, -4) .. 'meshes.json' -- do not use this feature for now

        local dst = dir1 .. filename:sub(1, -4) .. 'cdae'
        local dstData = '' -- dir1 .. filename:sub(1, -4) .. 'meshes.json' -- do not use this feature for now
        local cacheFilename = nil

  if slashPos then
    nameString = nameString:sub(slashPos + 1)
  end

  if lastSeparator then
    return path:sub(1, lastSeparator)
  end

  for i = 1, modeCount do
    local mode = modes:sub(i, i)
    if automaticHandling.availableModeLookup[mode] then

local function handleMSModes(desiredMode)
  local firstLetter = desiredMode:sub(1, 1)
  if firstLetter == "S" then

  elseif firstLetter == "M" then
    local gearIndex = desiredMode:sub(2, desiredMode:len())
    desiredMode = "M"

      --get the base this mode relates to
      local modeBaseName = impulseMode.modeName:sub(1, modeNameLength - 1)
      --we need to actually have the base mode for this to work

local string, io = assert( string ), assert( io )
local V = string.sub( assert( _VERSION ), -4 )
local _G = assert( _G )

  for i = 1, p do
    if string.sub( s, i, i ) == "\n" then
      lno = lno + 1

  for i = sol, #s do
    if string.sub( s, i, i ) == "\n" then
      eol = i - 1

  end
  return string.sub( s, sol, eol ), lno, sol
end

  if #line > clen then
    line = string.sub( line, 1, clen ) .. "..."
  end

    local _,lno = string.gsub( s, "\n", "\n" )
    if string.sub( s, -1, -1 ) ~= "\n" then lno = lno + 1 end
    local msg = ": parse error at "

function epnf.parsestring( g, str, ... )
  local s = string.sub( str, 1, 20 )
  if #s < #str then s = s .. "..." end

  for k, v in pairs(jbeamData) do
    if k:sub(1, #"configuration_") == "configuration_" then
      tableMergeRecursive(configData, v)

        local _, file, _ = path.split(filePath)
        local fileName = file:sub(1, -5)
        if not factoryBlackList[fileName] then

        local v = deviceJbeamData[device.name][k]
        if k:sub(1, 12) == "deformGroups" then --check for magic prefix
          local delim = "_" --underscore is used as the delim (eg "deformGroups_turbo")

    if string.startswith(actionName, prefix) then
      actionName = string.sub(actionName, 1+string.len(prefix))
    else

  for k, v in ipairs(vizHelper) do
    vizHelper[k] = string.sub(v, string.len(artPath) + 1)
  end

    local filename = filepath:match("[^/]*.lua$")
    local name = filename:sub(0, #filename - 4)
    local enabled = false

  --   local _, fn, e = path.split(file)
  --   local name = fn:sub(1,#fn - #e - 1)
  --   local read = jsonReadFile(name)

      local _, fn, e = path.split(file)
      editorTracks[i] = fn:sub(1,#fn - #e - 1)
  end

  local levelDir = path.dirname(levelPath)
  if string.sub(levelDir, -1) ~= '/' then
    levelDir = levelDir.."/"

  campaign.previews = {
    imageExistsDefault(campaign.sourcePath..'/'..campaign.sourcePath:sub(index)..'.jpg')
  }

    return ColorF(v.r / 255, v.g / 255, v.b / 255, v.a / 255)
  elseif type(v) == 'string' and string.len(v) > 7 and v:sub(1,1) == '#' then
    v = v:gsub("#","")

    v = v:gsub("#","")
    return ColorF(tonumber("0x"..v:sub(1,2)) / 255, tonumber("0x"..v:sub(3,4)) / 255, tonumber("0x"..v:sub(5,6)) / 255, tonumber("0x"..v:sub(7,8)) / 255)
  end

    v = v:gsub("#","")
    return ColorF(tonumber("0x"..v:sub(1,2)) / 255, tonumber("0x"..v:sub(3,4)) / 255, tonumber("0x"..v:sub(5,6)) / 255, tonumber("0x"..v:sub(7,8)) / 255)
  end

    v = v:gsub("#","")
    return ColorF(tonumber("0x"..v:sub(1,2)) / 255, tonumber("0x"..v:sub(3,4)) / 255, tonumber("0x"..v:sub(5,6)) / 255, tonumber("0x"..v:sub(7,8)) / 255)
  end

    v = v:gsub("#","")
    return ColorF(tonumber("0x"..v:sub(1,2)) / 255, tonumber("0x"..v:sub(3,4)) / 255, tonumber("0x"..v:sub(5,6)) / 255, tonumber("0x"..v:sub(7,8)) / 255)
  end

    return color(v.r, v.g, v.b, v.a)
  elseif type(v) == 'string' and string.len(v) > 7 and v:sub(1,1) == '#' then
    v = v:gsub("#","")

    v = v:gsub("#","")
    return color(tonumber("0x"..v:sub(1,2)), tonumber("0x"..v:sub(3,4)), tonumber("0x"..v:sub(5,6)), tonumber("0x"..v:sub(7,8)))
  elseif v == nil then

    v = v:gsub("#","")
    return color(tonumber("0x"..v:sub(1,2)), tonumber("0x"..v:sub(3,4)), tonumber("0x"..v:sub(5,6)), tonumber("0x"..v:sub(7,8)))
  elseif v == nil then

    v = v:gsub("#","")
    return color(tonumber("0x"..v:sub(1,2)), tonumber("0x"..v:sub(3,4)), tonumber("0x"..v:sub(5,6)), tonumber("0x"..v:sub(7,8)))
  elseif v == nil then

    v = v:gsub("#","")
    return color(tonumber("0x"..v:sub(1,2)), tonumber("0x"..v:sub(3,4)), tonumber("0x"..v:sub(5,6)), tonumber("0x"..v:sub(7,8)))
  elseif v == nil then

function string.startswith(String,Start)
  return string.sub(String,1,string.len(Start))==Start
end

function string.endswith(String,End)
  return End=='' or string.sub(String,-string.len(End))==End
end

  local result = str:gsub("([A-Z])", " %1")
  return string.upper(result:sub(1, 1)) .. result:sub(2)
end

  local result = str:gsub("([A-Z])", " %1")
  return string.upper(result:sub(1, 1)) .. result:sub(2)
end

  for k, expectedType in ipairs(expectedTypes) do
    local isOptional = expectedType:sub(0,9) == "optional:"
    local sanitizedExpectedType = isOptional and expectedType:sub(10, #expectedType) or expectedType

    local isOptional = expectedType:sub(0,9) == "optional:"
    local sanitizedExpectedType = isOptional and expectedType:sub(10, #expectedType) or expectedType
    local actualType = type(data[k])

  while true do
    if filename == "" or string.sub(filename, -1) == "/" then
      break

    end
    filename = string.sub(filename, 1, -2)
  end

  for _, lvlPath in ipairs(FS:findFiles('/levels/', '*', 0, false, true)) do
    table.insert(ret, string.lower(lvlPath:sub(9)))
  end

    if string.len(line) > 0 then
      local firstChar = string.sub(line, 1, 1)
      if firstChar ~= '#' and firstChar ~= ';' and firstChar ~= '/' then

                console.warn( 'THREE.Vector2: .sub() now only accepts one argument. Use .subVectors( a, b ) instead.' );
                return this.subVectors( v, w );

                console.warn( 'THREE.Vector3: .sub() now only accepts one argument. Use .subVectors( a, b ) instead.' );
                return this.subVectors( v, w );

                return this.sub( v1 );

                return this.sub( v1.copy( normal ).multiplyScalar( 2 * this.dot( normal ) ) );

                console.warn( 'THREE.Vector4: .sub() now only accepts one argument. Use .subVectors( a, b ) instead.' );
                return this.subVectors( v, w );

                this.min.copy( center ).sub( halfSize );
                this.max.copy( center ).add( halfSize );

            this.min.sub( vector );
            this.max.add( vector );

                var clampedPoint = v1.copy( point ).clamp( this.min, this.max );
                return clampedPoint.sub( point ).length();

                target.sub( this.center ).normalize();
                target.multiplyScalar( this.radius ).add( this.center );

            this.direction.copy( v ).sub( this.origin ).normalize();

                segCenter.copy( v0 ).add( v1 ).multiplyScalar( 0.5 );
                segDir.copy( v1 ).sub( v0 ).normalize();
                diff.copy( this.origin ).sub( segCenter );

                segDir.copy( v1 ).sub( v0 ).normalize();
                diff.copy( this.origin ).sub( segCenter );

                    vector3.setFromMatrixPosition( light.target.matrixWorld );
                    uniforms.direction.sub( vector3 );
                    uniforms.direction.transformDirection( viewMatrix );

                    vector3.setFromMatrixPosition( light.target.matrixWorld );
                    uniforms.direction.sub( vector3 );
                    uniforms.direction.transformDirection( viewMatrix );

            var vec = pt2.clone().sub( pt1 );
            return vec.normalize();

            point.copy( this.v2 ).sub( this.v1 );
            point.multiplyScalar( t ).add( this.v1 );

        var tangent = this.v2.clone().sub( this.v1 );

            point.copy( this.v2 ).sub( this.v1 );
            point.multiplyScalar( t ).add( this.v1 );

                this.ray.origin.setFromMatrixPosition( camera.matrixWorld );
                this.ray.direction.set( coords.x, coords.y, 0.5 ).unproject( camera ).sub( this.ray.origin ).normalize();

                var halfSize = v1.copy( size ).multiplyScalar( 0.5 );
                this.min.copy( center ).sub( halfSize );
                this.max.copy( center ).add( halfSize );

            this.min.sub( vector );
            this.max.add( vector );

                var clampedPoint = v1.copy( point ).clamp( this.min, this.max );
                return clampedPoint.sub( point ).length();

            this.cone.lookAt( vector2.sub( vector ) );

        local _, fileNameWithExt, _ = path.split(file)
        local fileName = fileNameWithExt:sub(1, -5)
        local storageFactoryPath = "energyStorage/" .. fileName

        if not pos2 then
          M.Text(label:sub(pos1))
          break

        elseif pos1 < pos2 then
          M.Text(label:sub(pos1, pos2 - 1))
          M.SameLine()

        local pos3 = pos2 + highlightLowerLen
        M.TextColored(matchColor, label:sub(pos2, pos3))
        M.SameLine()

      local scenetreeObject = spawnPrefab("prefab_temp_" .. filename ..os.time(), f, "0 0 0 ", "0 0 1", "1 1 1")
      local short = f:sub(levelPartLength)
      local dirInLevel, _,_ = path.splitWithoutExt(short)

  for s in actionData:gmatch("[^\n]+") do
    table.insert(lines, s:sub(1, toolTipMaxWidth)) -- limit width
  end

  end
  if string.sub(args.level, string.len(args.level)) ~= '/' then args.level = args.level .. '/' end -- make sure there is always a trailing slash in the level

    for i = 1, headercount do
      header[i] = #header[i] > 0 and tostring(header[i]):sub(1, 1) or "_"
    end

  filename = filename or self.headernym or format
  if filename:sub(-4, -4) ~= '.' then
    filename = string.format("%s_%s.%s", filename, os.date("%Y-%m-%dT%H_%M_%S"), format)

      until (c == 34 and byte(s, i+1) ~= 34) or c == nil -- "
      val = sub(s, si+1, i - 1):gsub('""', '"')
      repeat i=i+1; c = byte(s,i) until c~=32 and c~=9 -- space tab

      end
      val = sub(s, si, i - 1)
      if testnum then val = tonumber(val) or val end

            local filename = data.filepath
            extensions.tech_openDriveExporter.export(filename:sub(1, -(#".xodr" + 1)))
            exportedFilename = FS:virtual2Native(filename)

            local filename = data.filepath
            extensions.tech_openStreetMapExporter.export(filename:sub(1, -(#".osm" + 1)))
            osmExportedFilename = FS:virtual2Native(filename)

            sumo_filename = filename
            extensions.tech_sumoExporter.export(sumo_filename:sub(1, -(#".xml" + 1)))
            sumoExportedFilename = FS:virtual2Native(sumo_filename)

  __index = function(tbl, key)
    local val = varWrapper.vars['$' .. key:sub(5)]
    if type(val) == "table" then return val.val else return val end

  --strip leading "$=" from expression and replace all occurences of "$" with "_" (as these are used for lua variable names)
  expr = expr:sub(3):gsub('%$', 'var_')

  --strip leading "$=" from expression and replace all occurences of "$" with "_" (as these are used for lua variable names)
  expr = expr:sub(3):gsub('%$', 'var_')

    __index = function(tbl, key)
      local val = varWrapper.vars['$' .. key:sub(5)]
      if type(val) == "table" then return val.val else return val end

  --strip leading "$=" from expression and replace all occurences of "$" with "_" (as these are used for lua variable names)
  expr = expr:sub(3):gsub('%$', 'var_')

          }}
          local fn =self.mgr.savedDir.. self.mgr.savedFilename:sub(0,-10)..'json'
          jsonWriteFile(fn, scenarioJson, true, 20)

                  local nodeData = readFile('/lua/ge/extensions/flowgraph/newNodeTemplate.lua')
                  nodeData = nodeData:gsub("New Node Template", data.filename:sub(1,-5)) -- change name
                  data.filepath = data.filepath:gsub(".lua","Node.lua") -- add Node for customNodes system

local function _isTextureCookerFilepath(filepath)
  if not string.sub(filepath, -4) == ".png" then return false end
  return string.match(filepath, "%.color%.png$") or string.match(filepath, "%.normal%.png$") or string.match(filepath, "%.data%.png$")

  if not FS:fileExists(filepath) then
    if filepath:sub(1, 1) == '@' then
      local filepathIn = filepath

    elseif _isTextureCookerFilepath(filepath) then
      filepath = string.sub(filepath, 1, -5) .. ".dds"
    else

  local dir, filename, ext = path.splitWithoutExt(filepath)
  if filename:endswith(".dds") then filename = filename:sub(1, -5) end

  for _, anchorName in ipairs(obj:getAnchorNames()) do -- Check if any anchor points have the nail prefix.
    if anchorName:sub(1, 5) == anchorPrefixStr .. '.' then
      return true

    if particleDataName then
      stringList = stringList:sub(last+1)
      local particleData = scenetree.findObject(particleDataName)

    if particleDataName then
      stringList = stringList:sub(last+1)
    else

  local first, last, _ = string.find(particles, "(" .. particle:getName() .. ")")
  local newParticles = string.sub(particles, 1, first-1)
  newParticles = newParticles .. string.sub(particles, last+1)

  local newParticles = string.sub(particles, 1, first-1)
  newParticles = newParticles .. string.sub(particles, last+1)
  newParticles = cleanTabs(newParticles)

local function reInitOnFileChange(filename)
  local requireFilename = string.sub(filename, 1, string.len(filename) - 4)
  log("I","flowgraphManager","Reloading Node: " .. tostring(requireFilename))

  -- check basic nodes
  if filename:sub(1, string.len(nodePath)) == nodePath then
    reInitOnFileChange(filename)

  -- check custom nodes
  if filename:sub(string.len(filename)-7,string.len(filename)) == 'Node.lua' then
    for _,manager in ipairs(managers) do

      local dirname, fn, e = path.split(filename)
      local path = dirname:sub(string.len(nodePath) + 1)
      local pathArgs = split(path, '/')

      end
      local moduleName = string.sub(fn, 1, string.len(fn) - 4)
      local requireFilename = string.sub(filename, 1, string.len(filename) - 4)

      local moduleName = string.sub(fn, 1, string.len(fn) - 4)
      local requireFilename = string.sub(filename, 1, string.len(filename) - 4)

      local dirname, fn, e = path.splitWithoutExt(filename, true)
      local path = dirname:sub(string.len(stateTemplatePath) + 1)
      if path ~= "" then

        local moduleName = fn
        --local requireFilename = string.sub(filename, 1, string.len(filename) - 4)
        local stateData = {}

    -- separate digits if not a multiple of rounding threshold
    distStr = distStr:sub(1, 1) .. " " .. distStr:sub(2)
  end

    -- separate digits if not a multiple of rounding threshold
    distStr = distStr:sub(1, 1) .. " " .. distStr:sub(2)
  end

  while true do
    c = ctx.str:sub(ctx.pos, ctx.pos)
    if c ~= chr or not c or c == '' then

  while true do
    c = ctx.str:sub(ctx.pos, ctx.pos)
    ctx.pos = ctx.pos + 1

  }
  if num_str:sub(1, 1) == '+' then
    node.prefixPlus = true

  end
  node.addPostfixDot = num_str:sub(num_len, num_len) == '.'
  _addNode(ctx, node)

  while true do
    c = ctx.str:sub(ctx.pos, ctx.pos)
    ctx.pos = ctx.pos + 1

    end
    local nextChar = ctx.str:sub(ctx.pos, ctx.pos)
    if c == '\n' then

  while true do
    c = ctx.str:sub(ctx.pos, ctx.pos)
    ctx.pos = ctx.pos + 1

    end
    if c == '*' and ctx.str:sub(ctx.pos, ctx.pos) == '/' then
      ctx.pos = ctx.pos + 1

    local chr = ctx.str:sub(ctx.pos, ctx.pos)
    local posSaved = ctx.pos

      ctx.pos = ctx.pos + 1
    elseif chr == 't' and ctx.str:sub(ctx.pos, ctx.pos + 3) == 'true' then
      _addNode(ctx, {'bool', true})

      ctx.pos = ctx.pos + 4
    elseif chr == 'f' and ctx.str:sub(ctx.pos, ctx.pos + 4) == 'false' then
      _addNode(ctx, {'bool', false})

      ctx.pos = ctx.pos + 1
    elseif chr == '\r' and ctx.str:sub(ctx.pos + 1, ctx.pos + 1) == '\n' then
      _addNode(ctx, {'newline_windows'})

      ctx.pos = ctx.pos + 1
    elseif chr == '/' and ctx.str:sub(ctx.pos + 1, ctx.pos + 1) == '/' then
      _parse_comment(ctx)

      _parse_comment(ctx)
    elseif chr == '/' and ctx.str:sub(ctx.pos + 1, ctx.pos + 1) == '*' then
      _parse_comment_multiline(ctx)

  if slashPos then
    nameString = nameString:sub(slashPos + 1)
  end

        if key ~= "fieldName" and string.startswith(key, "fieldName") then
          table.insert(ret, {label = string.sub(key, 10), fieldName = elem[key], elemLabel = elem.label})
        end

    if not pos2 then
      im.Text(label:sub(pos1))
      break

    elseif pos1 < pos2 then
      im.Text(label:sub(pos1, pos2 - 1))
      im.SameLine()

    local pos3 = pos2 + highlightLowerLen
    im.TextColored(matchColor, label:sub(pos2, pos3))
    im.SameLine()

    if match:find(t..": ") ~= nil then
      return t, string.sub(match, #t+3)
    end

    if match:find(t..":") ~= nil then
      return t, string.sub(match, #t+2)
    end

  { // this state is used to display top/info-bar in menus
    path: "/menu.:sub(.*)?",
    name: "menu",

    if txt:len() > 10 then
      im.Text(txt:sub(1,10).."...")
    else

  -- the directory needs a leading and trailing slash
  if vehicleDir:sub(1, 1) ~= '/' then
    vehicleDir = '/' .. vehicleDir

  end
  if vehicleDir:sub(-1, -1) ~= '/' then
    vehicleDir = vehicleDir .. '/'

  if j then
    local m = _G[string.sub(funName, 1, j - 1)]
    if type(m) == "table" then

    if type(m) == "table" then
      f = m[string.sub(funName, j + 1)]
    end

  local infoDir, _, _ = path.split(filePath)
  branch.dir = string.sub(infoDir, 1, -1)  -- Remove trailing '/'
  branch.id = ""

  local folders = {'domains'}
  for folder in string.gmatch(string.sub(infoDir, #branchesDir, -2), "[^/]+") do
      table.insert(folders, folder)

  local folders = {'domains'}
  for folder in string.gmatch(string.sub(infoDir, #branchesDir, -2), "[^/]+") do
      table.insert(folders, folder)

local function absolute_path(base_path, relative_path)
    if string.sub(relative_path, 1, 1) == "/" then return relative_path end
    local path = string.gsub(base_path, "[^/]*$", "")

    end
    if string.sub(path, 1, 1) == "/" then parsed.is_absolute = 1 end
    if string.sub(path, -1, -1) == "/" then parsed.is_directory = 1 end

    if string.sub(path, 1, 1) == "/" then parsed.is_absolute = 1 end
    if string.sub(path, -1, -1) == "/" then parsed.is_directory = 1 end
    return parsed

    if dir and filename and ext and string.lower(ext) == "pc" then
      local pcfn = filename:sub(1, #filename - 3)
      res.configs[pcfn] = { Configuration = pcfn}

    for _, filename in ipairs(jfiles) do
      if string.lower(filename:sub(-18)) == '.paintlibrary.json' then
        table.insert(filesPaints, filename)

        table.insert(filesPaints, filename)
      elseif string.lower(filename:sub(-5)) == '.json' then
        table.insert(filesJson, filename)

        table.insert(filesJson, filename)
      elseif string.lower(filename:sub(-3)) == '.pc' then
        table.insert(filesPC, filename)

        table.insert(filesPC, filename)
      elseif string.lower(filename:sub(-4)) == '.png' or string.lower(filename:sub(-4)) == '.jpg' then
        filesImages[filename] = true

        table.insert(filesPC, filename)
      elseif string.lower(filename:sub(-4)) == '.png' or string.lower(filename:sub(-4)) == '.jpg' then
        filesImages[filename] = true

    for _, filename in ipairs(jfiles) do
      if string.lower(filename:sub(-18)) == '.paintlibrary.json' then
        table.insert(filesPaints, filename)

        table.insert(filesAll, filename)
      elseif string.lower(filename:sub(-5)) == '.json' then
        table.insert(filesJson, filename)

        table.insert(filesAll, filename)
      elseif string.lower(filename:sub(-3)) == '.pc' then
        table.insert(filesPC, filename)

        table.insert(filesAll, filename)
      elseif string.lower(filename:sub(-4)) == '.png' or string.lower(filename:sub(-4)) == '.jpg' then
        filesImages[filename] = true

        table.insert(filesAll, filename)
      elseif string.lower(filename:sub(-4)) == '.png' or string.lower(filename:sub(-4)) == '.jpg' then
        filesImages[filename] = true

  local vehicleDirectory = path or '/vehicles/' .. model .. '/'
  if string.sub(vehicleDirectory, -1) ~= '/' then vehicleDirectory = vehicleDirectory .. '/' end
  local res = FS:findFiles(vehicleDirectory, '*.jbeam', -1, false, false) -- recursive search

    return 'BeamNG - Official'
  elseif string.sub(path, -3) == '.pc' then
    return 'Custom'

    local fLower = string.lower(filename)
    if string.sub(fLower, -5) == '.json'
    or string.sub(fLower, -6) == '.jbeam'

    if string.sub(fLower, -5) == '.json'
    or string.sub(fLower, -6) == '.jbeam'
    or string.sub(fLower, -3) == '.pc'

    or string.sub(fLower, -6) == '.jbeam'
    or string.sub(fLower, -3) == '.pc'
    or string.sub(fLower, -4) == '.jpg'

    or string.sub(fLower, -3) == '.pc'
    or string.sub(fLower, -4) == '.jpg'
    or string.sub(fLower, -4) == '.png' then

    or string.sub(fLower, -4) == '.jpg'
    or string.sub(fLower, -4) == '.png' then
      anyCacheFileModified = true

    if string.len(k) > 31 then
      local newk = string.sub(k, 1, 30)
      log('E', 'ge.environment.reloadGroundModels', 'Ground model name too long: "' .. tostring(k) .. '" is longer than the supported 31 characters. It will be cut to "' .. tostring(newk) .. '")')

          local e = ext:lower()
          if e:sub(1,1) ~= "." then e = "." .. e end
          extBlacklist[e] = true

            local spath = stockMatches[i]
            if spath:sub(1, #currentLevelRoot) ~= currentLevelRoot then
              filtered[#filtered + 1] = spath

            local spath = modMatches[i]
            if spath:sub(1, #currentLevelRoot) ~= currentLevelRoot then
              filtered[#filtered + 1] = spath

  for k, v in pairs(jbeamData) do
    if k:sub(1, #"configuration_") == "configuration_" then
      tableMergeRecursive(configData, v)

  local manualModeIndex
  if string.sub(automaticHandling.mode, 1, 1) == "M" then
    manualModeIndex = string.sub(automaticHandling.mode, 2)

  if string.sub(automaticHandling.mode, 1, 1) == "M" then
    manualModeIndex = string.sub(automaticHandling.mode, 2)
  end

  for i = 1, modeCount do
    local mode = modes:sub(i, i)
    if automaticHandling.availableModeLookup[mode] then

    local infend = si + 6
    if sub(s, si, infend) == "1#INF00" then
      return math.huge, infend + 1

      local pm = byte(s, si - 1)
      jsonError(string.format("Invalid number: '%s'", sub(s, si - ((pm == 45 or pm == 43) and 1 or 0), infend)), si)
    end

    end
    r = tonumber(sub(s, si, i - 1))
    if r == nil then

      local pm = byte(s, si - 1)
      jsonError(string.format("Invalid number: '%s'", sub(s, si - ((pm == 45 or pm == 43) and 1 or 0), i-1)), si)
    end

  if ch == 34 then -- "
    return sub(s, si1, i - 2), i
  end

    i = i - 1
    key = sub(s, si, i)

  for _, v in pairs(loadedControllers) do
    if v.typeName:sub(1, #path) == path then
      table.insert(controllers, v)

  local previewFile = m.previewFile
  if previewFile:sub(1, 1) == "/" then
      previewFile = previewFile:sub(2)

  if previewFile:sub(1, 1) == "/" then
      previewFile = previewFile:sub(2)
  end

    if attributeName:endswith("Reputation") then
      local orgId = attributeName:sub(1, -11)
      career_career.interactWithOrganization(orgId)

  local state = gearStateLookup[string.sub(electrics.values.gear or "", 1, 1)] or 0
  if electrics.values.ignitionLevel <= 0 then

local function applyInputs(leverState, parkButtonState)
  local gear = string.sub(electrics.values.gear or "", 1, 1)

local function updateHardwareState(dt)
  local state = gearStateLookup[string.sub(electrics.values.gear or "", 1, 1)] or 0
  if electrics.values.ignitionLevel <= 0 then

  if levelPath:find('main.level.json') and not FS:fileExists(levelPath) then
    local newName = levelPath:sub(0, levelPath:find('main.level.json') - 1)
    if FS:directoryExists(newName) then

          local fn_short = string.sub(filename, string.len(trackFilePath) + 1)
          fn_short = string.sub(fn_short, 1, string.len(fn_short) - string.len(trackFileExt))

          local fn_short = string.sub(filename, string.len(trackFilePath) + 1)
          fn_short = string.sub(fn_short, 1, string.len(fn_short) - string.len(trackFileExt))
          if im.Button(fn_short) then

  local _, _, ext = path.split(fileName)
  local fileNameNoExt = string.sub(fileName, 1, -(ext:len() + 1))
  if not FS:fileExists(fileNameNoExt .. "png") and not FS:fileExists(fileNameNoExt .. "dds") then

    else
      local newPath = string.sub(folders[i], oldNameLength + 2)
      newPath = newName .. newPath

    if not pos2 then
      im.Text(label:sub(pos1))
      break

    elseif pos1 < pos2 then
      im.Text(label:sub(pos1, pos2 - 1))
      im.SameLine()

    local pos3 = pos2 + highlightLowerLen
    im.TextColored(matchColor, label:sub(pos2, pos3))
    im.SameLine()

  im.Text("Activity: "..(self.mgr.activity and "yes" or "no"))
  im.TextColored(self.mgr.activity and colorEnabled or colorDisabled, self.mgr.activity and ("..."..self.mgr.activity.id:sub(-15)) or "(standalone)")
end

  fileCache = {}
  if currentPath:sub(1,1) ~= "/" then currentPath = "/" .. currentPath end
  if currentPath:sub(-1) ~= "/" then currentPath = currentPath.."/" end

  if currentPath:sub(1,1) ~= "/" then currentPath = "/" .. currentPath end
  if currentPath:sub(-1) ~= "/" then currentPath = currentPath.."/" end
  currentPath = currentPath:gsub("/+", "/")   -- Reducing multiple slashes to avoid trimmed list names

    local s = FS:stat(fn)
    s.name = string.sub(fn, pathLen)
    s.name = string.gsub(s.name, "/(.*)", "%1") -- strip leading /

        if lastSep then
          parentFolder = currentPath:sub(1, currentPath:len()-lastSep+1 )
        end

    if #self.string > 10 then
      im.Text(self.string:sub(1,10).. "...")
    else

    if txt:len() > 16 then
      im.Text(txt:sub(1,16).."...")
    else

            end
          until response:sub(#response-3) == '\r\n\r\n'
          read_io:stop(loop)

  local _, fn, e = path.split(file)
  return fn:sub(1, #fn - #dynDecalsExtension)
end

    local dir, fileName, fileExt = path.split(decalColorTexturePath)
    name = string.sub(fileName, 1, #fileName - (#fileExt + 1))
  end

  --print("guessing function name")
  if type(info.source) == "string" and info.source:sub(1,1) == "@" then
    local file, err = io_open(info.source:sub(2), "r")

  if type(info.source) == "string" and info.source:sub(1,1) == "@" then
    local file, err = io_open(info.source:sub(2), "r")
    if not file then

      if _M.max_string_output_len > 0 and stringlen > _M.max_string_output_len then
        self:add_f("%s%s = string[%d/%d]: %q (more...)\n", prefix, name, _M.max_string_output_len, stringlen, string.sub(tostring(value), 1, _M.max_string_output_len))
      else

        local source = info.source
        if source:sub(2,7) == "string" then
          source = source:sub(9)    -- uno m�s, por el espacio que viene (string "Baragent.Main", por ejemplo)

        if source:sub(2,7) == "string" then
          source = source:sub(9)    -- uno m�s, por el espacio que viene (string "Baragent.Main", por ejemplo)
        end

      local function_name = m_user_known_functions[info.func] or m_known_functions[info.func] or info.name
      if source:sub(2, 7) == "string" then
        source = source:sub(9)

      if source:sub(2, 7) == "string" then
        source = source:sub(9)
      end

      local function_type = (info.namewhat == "") and "function" or info.namewhat
      if info.source and info.source:sub(1, 1) == "@" then
        dumper:add_f("\n(%d) %s:%d %s (%s)", level_to_show, info.source:sub(2), info.currentline, function_name, function_type)

      if info.source and info.source:sub(1, 1) == "@" then
        dumper:add_f("\n(%d) %s:%d %s (%s)", level_to_show, info.source:sub(2), info.currentline, function_name, function_type)
      elseif info.source and info.source:sub(1,1) == '#' then

        dumper:add_f("\n(%d) %s:%d %s (%s)", level_to_show, info.source:sub(2), info.currentline, function_name, function_type)
      elseif info.source and info.source:sub(1,1) == '#' then
        dumper:add_f("\n(%d) Lua %s '%s' at template '%s:%d'%s", level_to_show, function_type, function_name, info.source:sub(2), info.currentline, was_guessed and " (best guess)" or "")

      elseif info.source and info.source:sub(1,1) == '#' then
        dumper:add_f("\n(%d) Lua %s '%s' at template '%s:%d'%s", level_to_show, function_type, function_name, info.source:sub(2), info.currentline, was_guessed and " (best guess)" or "")
      else

      else
        dumper:add_f("\n(%d) %s:%d: %s", level_to_show, source:sub(2, -3), info.currentline, function_name)
      end

      local function_name = m_user_known_functions[info.func] or m_known_functions[info.func] or info.name
      if source:sub(2, 7) == "string" then
        source = source:sub(9)

      if source:sub(2, 7) == "string" then
        source = source:sub(9)
      end

      local function_type = (info.namewhat == "") and "function" or info.namewhat
      if info.source and info.source:sub(1, 1) == "@" then
        dumper:add_f("(%d) Lua %s '%s' at file '%s:%d'%s\n", level_to_show, function_type, function_name, info.source:sub(2), info.currentline, was_guessed and " (best guess)" or "")

      if info.source and info.source:sub(1, 1) == "@" then
        dumper:add_f("(%d) Lua %s '%s' at file '%s:%d'%s\n", level_to_show, function_type, function_name, info.source:sub(2), info.currentline, was_guessed and " (best guess)" or "")
      elseif info.source and info.source:sub(1,1) == '#' then

        dumper:add_f("(%d) Lua %s '%s' at file '%s:%d'%s\n", level_to_show, function_type, function_name, info.source:sub(2), info.currentline, was_guessed and " (best guess)" or "")
      elseif info.source and info.source:sub(1,1) == '#' then
        dumper:add_f("(%d) Lua %s '%s' at template '%s:%d'%s\n", level_to_show, function_type, function_name, info.source:sub(2), info.currentline, was_guessed and " (best guess)" or "")

      elseif info.source and info.source:sub(1,1) == '#' then
        dumper:add_f("(%d) Lua %s '%s' at template '%s:%d'%s\n", level_to_show, function_type, function_name, info.source:sub(2), info.currentline, was_guessed and " (best guess)" or "")
      else

  end
  wheelNamesString = wheelNamesString:sub(0, wheelNamesString:len() - 2)

    -- Validate event name format: must start with lowercase and be camelCase
    local firstChar = event.name:sub(1, 1)
    if firstChar:upper() == firstChar then

                                    local stringend = ", "
                                    txtstring = string.sub(txtstring, 1, #txtstring - #stringend)
                                  end

  local dir, fn, ext = path.split(file, true)
  fn = fn:sub(0,fn:len()-ext:len()-1)

        for i=1, #v2.displayObjects  do
          local char = priceStr:sub(i, i)
          -- force 9/10 in US signs

        let delta = new THREE.Vector3;
        this._boundingBox.clampPoint(this._controls.target, delta).setZ(0).sub(this._controls.target);
        this._controls.target.add(delta);

  for s in actionData:gmatch("[^\n]+") do
    table.insert(lines, s:sub(1, toolTipMaxWidth)) -- limit width
  end

      -- is it a node material?
      if valuePart:sub(1,3) == "NM_" then
        ival = particles.getMaterialIDByName(materials, valuePart:sub(4))

      if valuePart:sub(1,3) == "NM_" then
        ival = particles.getMaterialIDByName(materials, valuePart:sub(4))
        --log('D', "jbeam.replaceSpecialValues", "replaced "..valuePart.." with "..ival)

  --   --   --if it's not in either table, it's forbidden and we abort parsing
  --   s = s:sub(1, (s:find("%.") or (s:len() + 1)) - 1)
  --   if not (customElectricsEnv[s] or keyworkdWhiteListLookup[s]) then

    local _, siteName = path.split(site)
    if name == string.sub(siteName, 0, -12) then
      return site

  local str = hashStringSHA1(s)
  return str:sub(1, 16)
end

  if thepath:sub(-1) == "/" then
    thepath = thepath:sub(1, -2)

  if thepath:sub(-1) == "/" then
    thepath = thepath:sub(1, -2)
  end

  if dirname:sub(-1) == "/" then
    dirname = dirname:sub(1, -2)

  if dirname:sub(-1) == "/" then
    dirname = dirname:sub(1, -2)
  end

  local hash = hashStringSHA1(randomStr)
  return string.sub(hash, 1, 8)
end

  if hex:len() == 3 then
    return (tonumber("0x"..hex:sub(1,1))*17)/255, (tonumber("0x"..hex:sub(2,2))*17)/255, (tonumber("0x"..hex:sub(3,3))*17)/255
  else

  if hex:len() == 3 then
    return (tonumber("0x"..hex:sub(1,1))*17)/255, (tonumber("0x"..hex:sub(2,2))*17)/255, (tonumber("0x"..hex:sub(3,3))*17)/255
  else

  if hex:len() == 3 then
    return (tonumber("0x"..hex:sub(1,1))*17)/255, (tonumber("0x"..hex:sub(2,2))*17)/255, (tonumber("0x"..hex:sub(3,3))*17)/255
  else

  else
    return tonumber("0x"..hex:sub(1,2))/255, tonumber("0x"..hex:sub(3,4))/255, tonumber("0x"..hex:sub(5,6))/255
  end

  else
    return tonumber("0x"..hex:sub(1,2))/255, tonumber("0x"..hex:sub(3,4))/255, tonumber("0x"..hex:sub(5,6))/255
  end

  else
    return tonumber("0x"..hex:sub(1,2))/255, tonumber("0x"..hex:sub(3,4))/255, tonumber("0x"..hex:sub(5,6))/255
  end

  else
    local _,level,_ = path.split(path.split(levelPath):sub(1, -2))
    M.level = level

  for _, file in ipairs(files) do
    local aConds = require(file:sub(0,-5))
    for key, value in pairs(aConds) do

    local anchorName = anchorNames[i]
    if anchorName:sub(1, 9) == anchorPrefixStrWithDot then
      table.clear(tmpParts) -- Clear the reusable table.

  for i = 1, #col do
    local char = col:sub(i, i):byte()
    if char < 65 or char > 90 then

  -- collapse anything below bindings that has less than 4 items
  return path:sub(1,10) == '/bindings/' and tableSize(item) < 4
end

        info.vidpid = filename:upper()
        vendorId = filename:upper():sub(5, 8)
      else

      else
        vendorId = info.vidpid:upper():sub(5, 8)
      end

    if first>textStart and self._call.text then
      local text = sub(xml,textStart,first-1)
      if options.stripWhitespace then

      sourceFile = fgMgr.savedDir .. name .. '.json'
      if string.sub(sourceFile, 1, 1) ~= '/' then
        sourceFile = '/' .. sourceFile

  local dir = vdata.vehicleDirectory
  if string.sub(dir, -1) ~= '/' then dir = dir .. '/' end

  for _, file in pairs(FS:findFiles(materialSettings.directory, "*.dds", -1, true, false)) do
    local fileWithoutExtension = string.sub(file, 1, string.len(file) - 4)
    local textureType = string.sub(fileWithoutExtension, string.len(fileWithoutExtension) - 1, string.len(fileWithoutExtension))

    local fileWithoutExtension = string.sub(file, 1, string.len(file) - 4)
    local textureType = string.sub(fileWithoutExtension, string.len(fileWithoutExtension) - 1, string.len(fileWithoutExtension))
    local path = {}

    local path = {}
    for str in string.gmatch(string.sub(fileWithoutExtension, 1, string.len(fileWithoutExtension) - 2), "([^'/']+)") do
      table.insert( path, str )

   else -- glow map
      local texType = string.sub(fileWithoutExtension, string.len(fileWithoutExtension) - 4, string.len(fileWithoutExtension))
      if texType == "decal" then

        local path = {}
        for str in string.gmatch(string.sub(fileWithoutExtension, 1, string.len(fileWithoutExtension) - 6), "([^'/']+)") do
          table.insert( path, str )

  if editor.uiIconImageButton(editor.icons.undo, im.ImVec2(16,16), style.buttonColorBase, nil, nil, "resetMaterialButton") then
    local materialLetter = string.sub(materials.matNames[materialSettings.selectedMaterial[0]+1],14,14)
    tb.materialUtil.resetMaterialsToDefault(materialLetter)

    local mat = tb.getPieceInfo(index, sub).materialInfo.centerMesh or 'track_editor_A_center'
    mat = string.sub(mat, 0, 15)
    materialSettings.selectedMaterial[0] = indexOf(materials.matNames,mat)-1

    local mat = tb.getIntersection(name).centerMat or 'track_editor_A_center'
    mat = string.sub(mat, 0, 15)
    materialSettings.selectedMaterial[0] = indexOf(materials.matNames,mat)-1

    -- TODO: clear up hack with filepaths (issue when loading a FG as a mission)
    local path = dirname:sub(string.len(customNodePath) + string.find(dirname, customNodePath, 1, true))
    local pathArgs = split(path, '/')

    end
    local moduleName = string.sub(fn, 1, string.len(fn) - 4)
    local requireFilename = string.sub(filename, 1, string.len(filename) - 4)

    local moduleName = string.sub(fn, 1, string.len(fn) - 4)
    local requireFilename = string.sub(filename, 1, string.len(filename) - 4)
    local status, node = pcall(rerequire, requireFilename)

        return function()
            local chunk = string.sub(s, i, i+_M.BLOCKSIZE-1)
            i = i + _M.BLOCKSIZE

    local dir, filename, ext = path.split(file)
    local fontName = string.sub(filename, 1, #filename - #fontAtlasJsonExtension)
    local success = false

    local path, filename, ext = path.split(fontPath)
    local fontName = string.sub(filename, 1, #filename - (#ext + 1))
    if not tableContains(generatedFontAtlases, fontName) then

  elseif fieldTypeName == "TypeCommand" then
    if imgui.Button(fieldValue:sub(1,20)) then
      editor.newTextEditorInstance(self.selectedIds, fieldName)

  if slashPos then
    nameString = nameString:sub(slashPos + 1)
  end

function replace_char(pos, str, r)
  return str:sub(1, pos-1) .. r .. str:sub(pos+1)
end

function replace_char(pos, str, r)
  return str:sub(1, pos-1) .. r .. str:sub(pos+1)
end

function isPlayerVehConfig(vpath)
  local osSep = package.config:sub(1,1)
  if not shipping_build and FS:getGamePath() == FS:getUserPath() then return false end --make sure you don't delete official config

    local k = math.random(1, sl)
    res = res .. string.sub(ascii, k, k)
  end

  if slashPos then
    nameString = nameString:sub(slashPos + 1)
  end

    if index == 1 then
      local short = string.sub(name,length+1,string.len(name))
      local underscoreIndex = string.find(short,"_")

      if underscoreIndex and underscoreIndex >= 0 then
        local rdId = tonumber(string.sub(short,1,underscoreIndex-1))
        if not idId then

        if not idId then
          local obj = scenetree.findObject(string.sub(short,1,underscoreIndex-1))
          if obj then

        end
        local rdIdx = tonumber(string.sub(short,underscoreIndex+1,string.len(short)))
        return rdId, rdIdx

    M.state.levelName = M.state.levelName:gsub("_", " ")
    M.state.levelName = string.gsub(" "..M.state.levelName, "%W%l", string.upper):sub(2)
    msgFormat()

        local dataString = jsonEncodePretty(data)
        dataString = dataString:sub(3, dataString:len() - 2)
        setClipboard(dataString)

  if im.InputText("##MaterialNameInput", terrainMtlCopyProxy.nameInput, nil, im.flags(im.InputTextFlags_CharsNoBlank)) then
    local firstChar = tonumber(string.sub(ffi.string(terrainMtlCopyProxy.nameInput), 1, 1))
    if firstChar and type(firstChar) == "number" then

    end
    r = tonumber(sub(s, seridx + 1, i - 1))
  end

  seridx = strs + strlen
  return sub(s, strs, seridx-1), byte(s, seridx), seridx
end

      resultTable[name] = {}
      stringList = stringList:sub(last+1)
    else

  for j=1,#msg,64 do
    local chunk = msg:sub(j,j+63)
    assert(#chunk==64,#chunk)

  for k, option in ipairs(options) do
    local name = string.lower(string.sub(option, 8))
    print(string.format([[#if defined(%s)]], option))

    for k, func in pairs(node) do
      if string.sub(k, 1, 2) == 'on' and type(func) == 'function' then
        self.hookExists[k] = true

  local vehicleSpeed = electrics.values.wheelspeed or 0
  local speedLimit = (type(gearName) == "string" and gearName:sub(1, 1) == "R") and topSpeedLimitReverse or topSpeedLimit
  if speedLimit > 0 then

      local s = d.source
      if s:sub(1,1) == '@' then s = s:sub(2) end
      if not s:find(extPath) and s ~= 'lua/ge/extensions/core/jobsystem.lua' and s ~= 'lua/common/luaCore.lua' and s ~= '=[C]' then

      local s = d.source
      if s:sub(1,1) == '@' then s = s:sub(2) end
      if not s:find(extPath) and s ~= 'lua/ge/extensions/core/jobsystem.lua' and s ~= 'lua/common/luaCore.lua' and s ~= '=[C]' then

      extPath = extName
      if string.sub(extPath, 1, 1) == '/' then -- strip leading '/' if present
        extPath = string.gsub(extPath, "/(.*)", "%1")

  if string.sub(extPath, 1, 1) == '/' then
    extPath = string.gsub(extPath, "/(.*)", "%1") -- strip leading '/' if present

  for _,luaFilename in pairs(luaFiles) do
    load(luaFilename:sub(1,-5))  -- strip '.lua'
  end

      -- without it, vehicle extensions like custom_input would come out as custom/input which is wrong
      loadAtRoot(file:sub(1,-5), "")
    end

          -- grab specified root
          root = string.sub(extName, 1, string.find(extName, "_") - 1)
        end

    for k, func in pairs(m) do
      if string.sub(k, 1, 2) == 'on' and type(func) == 'function' then
        if not hookLists[k] then hookLists[k] = {} end

--			lo('?? for_INST:'..tostring(k.parent.attr.name))
		local s = string.sub(k.attr.url,2)
		if dgeo[s] then

--				U.dump(k.attr,'?? for_ATTR:'..tostring(k.attr.semantic))
			dsem[k.attr['source']:sub(2)] = k.attr.semantic
		end

--			lo('?? kid_name:'..i..':'..tostring(k.name)..':'..tostring(k.attr.semantic))
			dsem[k.attr['source']:sub(2)] = k.attr.semantic
		end