Feature/Parity: Proper error for invalid patch size

Author: LaCuneta

compiler/shared/src/main/scala/SimplePrims.scala

@@ -318,6 +318,9 @@ object SimplePrims {
         // Other
         case _: prim.etc._error => s"PrimChecks.errorPrim"
 
+        // World
+        case _: prim.etc._setpatchsize => "PrimChecks.world.setPatchSize"
+
       }
   }
 
@@ -426,7 +429,6 @@ object SimplePrims {
         case _: prim.etc._clearticks            => "world.ticker.clear"
         case _: prim.etc._clearlinks            => "world.clearLinks"
         case _: prim.etc._resizeworld           => "world.resize"
-        case _: prim.etc._setpatchsize          => "world.setPatchSize"
         case _: prim.etc._resetticks            => "world.ticker.reset"
         case _: prim.etc._tick                  => "world.ticker.tick"
         case _: prim.etc._tickadvance           => "world.ticker.tickAdvance"

engine/src/main/coffee/engine/prim-checks/checker.coffee

@@ -15,6 +15,7 @@ PatchChecks     = require('./patch-checks')
 ProcedureChecks = require('./procedure-checks')
 TaskChecks      = require('./task-checks')
 TurtleChecks    = require('./turtle-checks')
+WorldChecks     = require('./world-checks')
 Validator       = require('./validator')
 
 class Checker
@@ -36,6 +37,7 @@ class Checker
     @link      = new LinkChecks(@validator, getSelf, selfPrims)
     @task      = new TaskChecks(@validator)
     @control   = new ControlChecks(@validator)
+    @world     = new WorldChecks(@validator, world)
 
     @turtleOrLink = {
       getVariable: (sourceStart, sourceEnd, name) =>

engine/src/main/coffee/engine/prim-checks/world-checks.coffee

@@ -0,0 +1,12 @@
+# (C) Uri Wilensky. https://github.com/NetLogo/Tortoise
+
+class WorldChecks
+
+  constructor: (@validator, @world) ->
+
+  setPatchSize: (sourceStart, sourceEnd, newSize) ->
+    if newSize <= 0
+      @validator.error('set-patch-size', sourceStart, sourceEnd, 'Patch size must be greater than zero.')
+    @world.setPatchSize(newSize)
+
+module.exports = WorldChecks

engine/src/main/coffee/i18n/en_us.coffee

@@ -176,6 +176,9 @@ bundle = {
 , 'Cannot find the procedure _.': (procedureName) ->
   "Cannot find the procedure #{procedureName}."
 
+, 'Patch size must be greater than zero.': () ->
+  "Patch size must be greater than zero."
+
 }
 
 module.exports = bundle