Add some more "examples"

they're really test scripts, I should probably put them somewhere else

Author: jbboehr

examples/all-events.php

@@ -1,32 +1,34 @@
 #!/usr/bin/env php
 <?php
 
+// ok, these aren't all examples per se
+// this one lists all or available PMU events
+
 use function Perfidious\list_pmus;
 use function Perfidious\list_pmu_events;
 
 $opts = getopt('', [
-    'all',
-    'pmu:',
+    'show:',
     'help',
 ], $rest_index);
 
-$pmu = $opts['pmu'] ?? null;
+$show = $opts['show'] ?? 'present';
 
 if (array_key_exists('help', $opts)) {
     fprintf(STDERR, "Usage: " . $argv[0] . PHP_EOL);
     fprintf(STDERR, PHP_EOL);
     fprintf(STDERR, "Show event names supported by libpfm4" . PHP_EOL);
     fprintf(STDERR, PHP_EOL);
-    fprintf(STDERR, "    --all      Show all PMUs, not just active" . PHP_EOL);
-    fprintf(STDERR, "    --pmu      Search for a specific PMU" . PHP_EOL);
+    fprintf(STDERR, "    --show PMU       \"present\", \"all\", a PMU ID, or a PMU name substring" . PHP_EOL);
     exit(0);
 }
 
 foreach (list_pmus() as $pmu_info) {
-    $matches_pmu = (
-        array_key_exists('all', $opts) ||
-        !($pmu !== null && $pmu !== $pmu_info->pmu && !str_contains($pmu_info->name, $pmu))
-    );
+    $matches_pmu = match ($show) {
+        'all' => true,
+        'present' => $pmu_info->is_present,
+        default => $pmu_info->pmu === (int) $show || str_contains($pmu_info->name, (string) $show),
+    };
     if (!$matches_pmu) {
         continue;
     }

examples/estimate-overhead.php

@@ -1,6 +1,9 @@
 #!/usr/bin/env php
 <?php
 
+// ok, these aren't all examples per se
+// this one tries to estimate the overhead of calling Perfidious\Handle::read()
+
 use function Perfidious\open;
 
 $rest_index = null;

examples/memory.php

@@ -0,0 +1,61 @@
+<?php
+
+// ok, these aren't all examples per se
+// this one tries to detect leaks
+
+use function Perfidious\open;
+
+$rest_index = null;
+$opts = getopt('', [
+    'count:',
+], $rest_index);
+$pos_args = array_slice($argv, $rest_index);
+
+if (count($pos_args) <= 0) {
+    $pos_args = [
+        'perf::PERF_COUNT_HW_CPU_CYCLES:u',
+        'perf::PERF_COUNT_HW_INSTRUCTIONS:u',
+    ];
+}
+
+$start = time();
+$last = $start;
+$interval = 2;
+$end = $start + (60 * 5);
+
+$handle = open($pos_args);
+$handle->enable();
+
+$prev_memory = memory_get_usage();
+$prev_memory_real = memory_get_usage(true);
+
+do {
+    $now = time();
+    $stats = $handle->read();
+    $arr = $handle->readArray();
+
+    if ($now - $interval > $last) {
+        $handle->disable();
+
+        $last = $now;
+
+        gc_collect_cycles();
+
+        $memory = memory_get_usage();
+        $memory_real = memory_get_usage(true);
+
+        foreach ($stats->values as $k => $v) {
+            printf("%s=%d\n", $k, $v);
+        }
+
+        printf("memory=%d last_memory=%d delta_memory=%d\n", $memory, $prev_memory, $memory - $prev_memory);
+        printf("memory=%d last_memory=%d delta_memory=%d (real)\n", $memory, $prev_memory, $memory - $prev_memory);
+
+        $prev_memory = $memory;
+        $prev_memory_real = $memory_real;
+
+        $handle->enable();
+    }
+
+    usleep(100_000);
+} while ($now < $end);

examples/sieve.php

@@ -0,0 +1,51 @@
+#!/usr/bin/env php
+<?php
+
+// ok, these aren't all examples per se
+// this one runs the sieve of eratosthenes and outputs the cycles/instructions
+// array edition
+
+use function Perfidious\open;
+
+$rest_index = null;
+$opts = getopt('', [
+    'count:',
+], $rest_index);
+$pos_args = array_slice($argv, $rest_index);
+
+if (count($pos_args) <= 0) {
+    $pos_args = [
+        'perf::PERF_COUNT_HW_CPU_CYCLES:u',
+        'perf::PERF_COUNT_HW_INSTRUCTIONS:u',
+    ];
+}
+
+$count = $opts['count'] ?? 2000000;
+
+$handle = open($pos_args);
+$handle->enable();
+
+$primes = sieve($count);
+
+$handle->disable();
+$stats = $handle->read();
+
+var_dump($primes);
+var_dump($stats);
+
+function sieve(int $n)
+{
+    $lut = array_fill(0, $n, null);
+    for ($i = 2; $i < $n; $i++) {
+        for ($j = $i + $i; $j < $n; $j += $i) {
+            $lut[$j] = true;
+        }
+    }
+    $rv = [];
+    for ($i = 2; $i < $n; $i++) {
+        if (null === $lut[$i]) {
+            $rv[] = $i;
+        }
+    }
+    return $rv;
+}

examples/sieve2.php

@@ -0,0 +1,60 @@
+#!/usr/bin/env php
+<?php
+
+// ok, these aren't all examples per se
+// this one runs the sieve of eratosthenes and outputs the cycles/instructions
+// bit string edition
+
+use function Perfidious\open;
+
+$rest_index = null;
+$opts = getopt('', [
+    'count:',
+], $rest_index);
+$pos_args = array_slice($argv, $rest_index);
+
+if (count($pos_args) <= 0) {
+    $pos_args = [
+        'perf::PERF_COUNT_HW_CPU_CYCLES:u',
+        'perf::PERF_COUNT_HW_INSTRUCTIONS:u',
+    ];
+}
+
+$count = $opts['count'] ?? 2000000;
+
+$handle = open($pos_args);
+$handle->enable();
+
+$primes = sieve($count);
+
+$handle->disable();
+$stats = $handle->read();
+
+var_dump($primes);
+var_dump($stats);
+
+function sieve(int $n): array
+{
+    $n2 = ceil($n / 8);
+    $lut = str_repeat("\0", $n2);
+    for ($i = 2; $i < $n; $i++) {
+        for ($j = $i + $i; $j < $n; $j += $i) {
+            $off = intdiv($j, 8);
+            $c = ord($lut[$off]);
+            $bit = $j % 8;
+            $mask = 1 << $bit;
+            $lut[$off] = chr($c | $mask);
+        }
+    }
+    $rv = [];
+    for ($i = 2; $i < $n; $i++) {
+        $off = intdiv($i, 8);
+        $c = ord($lut[$off]);
+        $bit = $i % 8;
+        $mask = 1 << $bit;
+        if (($c & $mask) != $mask) {
+            $rv[] = $i;
+        }
+    }
+    return $rv;
+}