Schema (legacy): add units

dss-extensions · Mar 5, 2024 · 9362666 · 9362666
1 parent 94b304e
commit 9362666
Showing 1 changed file with 11 additions and 0 deletions.
diff --git a/src/CAPI/CAPI_Schema.pas b/src/CAPI/CAPI_Schema.pas
@@ -1143,6 +1143,7 @@ function prepareClassSchema(clsidx: Integer; cls: TDSSClass; enumIds: TClassName
     poffset2: PtrInt;
     param2: TJSONData;
     prop: TJSONObject;
+    units: String;
 begin
     props := TJSONArray.Create();
     localEnums := TJSONArray.Create();
@@ -1222,6 +1223,16 @@ function prepareClassSchema(clsidx: Integer; cls: TDSSClass; enumIds: TClassName
             if (PropertyType[i] = TPropertyType.DeprecatedAndRemoved) or (TPropertyFlag.Deprecated in PropertyFlags[i]) then
                 prop.Add('deprecationMessage', PropertyDeprecatedMessage[i]);
 
+            units := extractUnits(PropertyFlags[i]);
+            if units <> '' then
+            begin
+                if units = 'ToD-hour' then
+                begin
+                    units := 'hour (0-24)';
+                end;
+                prop.Add('units', units);
+            end;
+
             props.Add(prop);
         end;