fhem.pl: extern SetMagic, add AttrNum and InternalNum (Forum #38276)

git-svn-id: https://svn.fhem.de/fhem/trunk@13904 2b470e98-0d58-463d-a4d8-8e2adae1ed80

fhem/docs/commandref_frame.html

@@ -1084,10 +1084,26 @@ The following local attributes are used by a wider range of devices:
   From featurelevel 5.7 on the set and setreading command replaces:
   <ul>
   <li>[device:name] with the reading, internal or attribute of the device, if
-    both device and the reading, internal or attribute exists. You can use the
+    both device and the reading, internal or attribute exists.
-    r:, i: or a: prefix to restrict the search to one type, analogue to the
+    <ul>
-    devspec filtering.</li>
+      <li>You can use the r:, i: or a: prefix to restrict the search to one
+          type, analogue to the devspec filtering.</li>
+      <li>The suffix :d retrieves the first number and converts it to an
+          integer.</li>
+      <li>The suffix :r&lt;n&gt; retrieves the first number and rounds it to
+          &lt;n&gt; decimal places. If &lt;n&gt; is missing, then rounds it to
+          one decimal place.</li>
+      <li>The suffix :t returns the timestamp (works only for readings)</li>
+      <li>The suffix :sec returns the number of seconds since the reading was
+          set.</li>
+    </ul>
+    Example:
+    <ul>
+      set Lamp blink [blinkDummy:number] [r:blinkDummy:duration:d]
+    </ul>
+  </li>
   <li>[device:name:d] same as above, but only the number is retrieved</li>
+  <li>[device:name:sec] same as above, but only the number is retrieved</li>
   <li>{(perlExpression)} with the result of perlExpression.
     The $DEV variable is additionally available, designating the set device
     name.
@@ -1648,8 +1664,10 @@ The following local attributes are used by a wider range of devices:
         Return the reading (the value in the Readings section of "list device")
         </li><br>
       <li>
-        ReadingsNum(&lt;devicename&gt;,&lt;reading&gt;,&lt;defaultvalue&gt;)<br>
+        ReadingsNum(&lt;devicename&gt;,&lt;reading&gt;,
-        Return the reading as a number, i.e. delete non-numerical values.
+                    &lt;defaultvalue&gt;,&lt;round&gt;)<br>
+        Return the first number from a reading value.
+        Round id to &lt;round&gt; devimal places (optional parameter).
         </li><br>
       <li>ReadingsTimestamp(&lt;devicename&gt;,&lt;reading&gt;,&lt;
         defaultvalue&gt;)<br>
@@ -1670,12 +1688,24 @@ The following local attributes are used by a wider range of devices:
         { ReadingsTimestamp("wz", "measured-temp", 0)}<br>
         { AttrVal("wz", "room", "none") }<br>
         </li><br>
+      <li>
+        AttrNum(&lt;devicename&gt;,&lt;attribute&gt;,
+                    &lt;defaultvalue&gt;,&lt;round&gt;)<br>
+        Return the first number from an attribute value.
+        Round id to &lt;round&gt; devimal places (optional parameter).
+        </li><br>
       <li>
         InternalVal(&lt;devicename&gt;,&lt;property&gt;,&lt;defaultvalue&gt;)
         <br>
         Return the internal value (the value in the Internals section of "list
         device").
         </li><br>
+      <li>
+        InternalNum(&lt;devicename&gt;,&lt;property&gt;,
+                    &lt;defaultvalue&gt;,&lt;round&gt;)<br>
+        Return the first number from an internal value.
+        Round id to &lt;round&gt; devimal places (optional parameter).
+        </li><br>
       </ul>
 
 

fhem/docs/commandref_frame_DE.html

@@ -1153,10 +1153,23 @@ Die folgenden lokalen Attribute werden von mehreren Geräten verwendet:
   <ul>
   <li>[device:name] mit dem Wert des Readings, Internals oder Attributes
     f&uuml;r device, falls sowohl device, als auch Reading, Internal oder
-    Attribut existiert, und nicht leer ist. Man kann einen der Prefixe r:, i:
+    Attribut existiert, und nicht leer ist.
-    oder a: verwenden, um die Suche einzuschraenken, genau wie im devspec.</li>
+    <ul>
-  <li>[device:name:d] wie ohne :d, aber alles nicht-numerische wird
+      <li>Man kann einen der Pr&auml;fixe r:, i: oder a: verwenden, um die
-    entfernt.</li>
+         Suche einzuschr&auml;nken, genau wie im devspec.</li>
+      <li>Das Suffix :d extrahiert die erste Zahl als Ganzzahl.</li>
+      <li>Das Suffix :r&lt;n&gt; extrahiert die erste Zahl, und rundet sie auf
+         &lt;n&gt; Dezimalstellen. Falls &lt;n&gt; fehlt, dann wird auf eine
+         Dezimalstelle gerundet.</li>
+      <li>Das Suffix :t liefert den Zeitstempel des Readings</li>
+      <li>Das Suffix :sec liefert Anzahl der Sekunden seit &Auml;nderung
+          des Readings.</li>
+    </ul>
+    Beispiel:
+    <ul>
+      set Lamp blink [blinkDummy:number] [r:blinkDummy:duration:d]
+    </ul>
+    </lu>
   <li>{(perlExpression)} mit dem Ergebnis der perlExpression.
     $DEV wird dabei mit dem Namen des vom set betroffenen Ger&auml;tes ersetzt.
     </li>
@@ -1784,9 +1797,11 @@ Die folgenden lokalen Attribute werden von mehreren Ger&auml;ten verwendet:
         dem &quot;Readings&quot;-Abschnitt von "list device" angezeigt wird)
         </li><br>
       <li>
-        ReadingsNum(&lt;devicename&gt;,&lt;reading&gt;,&lt;defaultvalue&gt;)<br>
+        ReadingsNum(&lt;devicename&gt;,&lt;reading&gt;,
-        Wie ReadingsVal, l&ouml;scht aber alles, was kein Zahl ist, um den Wert
+                   &lt;defaultvalue&gt;,&lt;round&gt;)<br>
-        bei Berechnungen verwenden zu k&ouml;nnen.
+        Gibt die erste Zahl aus dem Readingswert zur&uuml;ck.
+        Falls &lt;round&gt; spezifiziert ist, wird sie auf diese Anzahl von
+        Dezimalstellen gerundet.
         </li><br>
       <li>ReadingsTimestamp(&lt;devicename&gt;,
                             &lt;reading&gt;,&lt;defaultvalue&gt;)<br>
@@ -1798,7 +1813,7 @@ Die folgenden lokalen Attribute werden von mehreren Ger&auml;ten verwendet:
         </li><br>
       <li>
         AttrVal(&lt;devicename&gt;,&lt;attribute&gt;,&lt;defaultvalue&gt;)<br>
-        Gibt die gesetzteb Attribute des Ger&auml;tes zur&uuml;ck
+        Gibt das entsprechende Attribut des Ger&auml;tes zur&uuml;ck
         <br><br>
         { Value("wz") }<br>
         { OldValue("wz") }<br>
@@ -1808,10 +1823,25 @@ Die folgenden lokalen Attribute werden von mehreren Ger&auml;ten verwendet:
         { AttrVal("wz", "room", "none") }<br>
         </li><br>
       <li>
-        InternalVal(&lt;devicename&gt;,&lt;reading&gt;,&lt;defaultvalue&gt;)<br>
+        AttrNum(&lt;devicename&gt;,&lt;attribute&gt;,
+                   &lt;defaultvalue&gt;,&lt;round&gt;)<br>
+        Gibt die erste Zahl aus dem Attributwert zur&uuml;ck.
+        Falls &lt;round&gt; spezifiziert ist, wird sie auf diese Anzahl von
+        Dezimalstellen gerundet.
+        </li><br>
+      <li>
+        InternalVal(&lt;devicename&gt;,&lt;internal&gt;,
+                    &lt;defaultvalue&gt;)<br>
         Gibt den Inhalt der &quot;internal&quot; zur&uuml;ck (den Inhalt der in
         dem &quot;Internals&quot;-Abschnitt von "list device" angezeigt wird)
         </li><br>
+      <li>
+        InternalNum(&lt;devicename&gt;,&lt;internal&gt;,
+                   &lt;defaultvalue&gt;,&lt;round&gt;)<br>
+        Gibt die erste Zahl aus dem &quot;internal&quot; zur&uuml;ck.
+        Falls &lt;round&gt; spezifiziert ist, wird sie auf diese Anzahl von
+        Dezimalstellen gerundet.
+        </li><br>
       </ul>
 
 

fhem/fhem.pl

@@ -48,6 +48,7 @@ sub AnalyzeInput($);
 sub AnalyzePerlCommand($$;$);
 sub AssignIoPort($;$);
 sub AttrVal($$$);
+sub AttrNum($$$;$);
 sub CallFn(@);
 sub CallInstanceFn(@);
 sub CheckDuplicate($$@);
@@ -70,6 +71,7 @@ sub HandleTimeout();
 sub IOWrite($@);
 sub InternalTimer($$$;$);
 sub InternalVal($$$);
+sub InternalNum($$$;$);
 sub IsDevice($;$);
 sub IsDisabled($);
 sub IsDummy($);
@@ -82,7 +84,7 @@ sub OldTimestamp($);
 sub OldValue($);
 sub OpenLogfile($);
 sub PrintHash($$);
-sub ReadingsNum($$$);
+sub ReadingsNum($$$;$);
 sub ReadingsTimestamp($$$);
 sub ReadingsVal($$$);
 sub RefreshAuthList();
@@ -1660,16 +1662,28 @@ ReplaceSetMagic($$@)       # Forum #38276
     return $all if(!$hash);
     if(!$t || $t eq "r:") {
       my $r = $hash->{READINGS};
+      if($s && ($s eq ":t" || $s eq ":sec")) {
+        return $all if (!$r || !$r->{$n});
+        $val = $r->{$n}{TIME};
+        $val = time() - time_str2num($val) if($s eq ":sec");
+        return $val;
+      }
       $val = $r->{$n}{VAL} if($r && $r->{$n});
     }
     $val = $hash->{$n}   if(!defined($val) && (!$t || $t eq "i:"));
     $val = $attr{$d}{$n} if(!defined($val) && (!$t || $t eq "a:") && $attr{$d});
     return $all if(!defined($val));
-    $val =~ s/[^-\.\d]//g if($s);
+
+    if($s && $val =~ /(-?\d+(\.\d+)?)/) {
+      $val = $1;
+      $s = ":r0" if($s eq ":d");
+      $val = round($val, defined($1) ? $1 : 1) if($s =~ /^:r(\d)?/);
+    }
     return $val;
   }
 
-  $a=~s/(\[(.:)?([a-z0-9._]+):([a-z0-9._-]+)(:d)?\])/rsmVal($1,$2,$3,$4,$5)/egi;
+  $a =~ s/(\[([ari]:)?([a-z0-9._]+):([a-z0-9._-]+)(:(t|sec|d|r|r\d))?\])/
+         rsmVal($1,$2,$3,$4,$5)/egi;
 
   $evalSpecials->{'%DEV'} = $hash->{NAME};
   $a =~ s/{\((.*?)\)}/AnalyzePerlCommand($hash->{CL},$1,1)/egs;
@@ -3938,6 +3952,16 @@ InternalVal($$$)
   return $default;
 }
 
+sub
+InternalNum($$$;$)
+{
+  my ($d,$n,$default,$round) = @_;
+  my $val = InternalVal($d,$n,$default);
+  $val = ($val =~ /(-?\d+(\.\d+)?)/ ? $1 : "");
+  $val = round($val,$round) if($round);
+  return $val;
+}
+
 sub
 ReadingsVal($$$)
 {
@@ -3952,11 +3976,12 @@ ReadingsVal($$$)
 }
 
 sub
-ReadingsNum($$$)
+ReadingsNum($$$;$)
 {
-  my ($d,$n,$default) = @_;
+  my ($d,$n,$default,$round) = @_;
   my $val = ReadingsVal($d,$n,$default);
-  $val =~ s/[^-\.\d]//g;
+  $val = ($val =~ /(-?\d+(\.\d+)?)/ ? $1 : "");
+  $val = round($val,$round) if($round);
   return $val;
 }
 
@@ -4017,6 +4042,16 @@ AttrVal($$$)
   return $default;
 }
 
+sub
+AttrNum($$$;$)
+{
+  my ($d,$n,$default,$round) = @_;
+  my $val = AttrVal($d,$n,$default);
+  $val = ($val =~ /(-?\d+(\.\d+)?)/ ? $1 : "");
+  $val = round($val,$round) if($round);
+  return $val;
+}
+
 ################################################################
 # Functions used by modules.
 sub