File 0008-Erlang-OTP-18-compatable-map-type-syntax.p... of Package cpg

Overview Repositories Revisions Requests Users Attributes Meta

File 0008-Erlang-OTP-18-compatable-map-type-syntax.patch of Package cpg (Revision 815d7ef2979cc14480ae529843d17321)

Currently displaying revision 815d7ef2979cc14480ae529843d17321 , Show latest

From d6dd811794f6fc7d252d3513e34070afe5a5b6b6 Mon Sep 17 00:00:00 2001
From: Led <ledest@gmail.com>
Date: Mon, 29 Oct 2018 14:28:11 +0200
Subject: [PATCH 08/13] Erlang/OTP 18 compatable map type syntax

---
 src/cpg.erl              | 12 ++++++++++++
 src/cpg_node_monitor.erl |  8 ++++++++
 2 files changed, 20 insertions(+)

diff --git a/src/cpg.erl b/src/cpg.erl
index 8b67aa8..b50959d 100644
--- a/src/cpg.erl
+++ b/src/cpg.erl
@@ -200,6 +200,17 @@
         names :: list(name())
     }).
 
+-ifdef(ERLANG_OTP_VERSION_18).
+-record(state,
+    {
+        scope :: scope(), % locally registered process name
+        groups :: cpg_data:state(), % GroupName -> #cpg_data{}
+        monitors = #{} :: #{pid() => #state_monitor{}},
+        node_monitors = #{} :: #{node() => cpg_node_monitor:process()},
+        callbacks = undefined :: undefined | pid(),
+        listen :: visible | all
+    }).
+-else.
 -record(state,
     {
         scope :: scope(), % locally registered process name
@@ -209,6 +220,7 @@
         callbacks = undefined :: undefined | pid(),
         listen :: visible | all
     }).
+-endif.
 
 -compile({inline,
           [{join_impl, 4},
diff --git a/src/cpg_node_monitor.erl b/src/cpg_node_monitor.erl
index 67e8429..21bfd36 100644
--- a/src/cpg_node_monitor.erl
+++ b/src/cpg_node_monitor.erl
@@ -49,11 +49,19 @@
 -export([init/1, handle_call/3, handle_cast/2, handle_info/2,
          code_change/3, terminate/2]).
 
+-ifdef(ERLANG_OTP_VERSION_18).
+-record(state,
+    {
+        parent :: pid(),
+        monitors :: #{pid() => reference()}
+    }).
+-else.
 -record(state,
     {
         parent :: pid(),
         monitors :: #{pid() := reference()}
     }).
+-endif.
 
 -type process() :: pid().
 -export_type([process/0]).
-- 
2.16.4

Places

File 0008-Erlang-OTP-18-compatable-map-type-syntax.patch of Package cpg (Revision 815d7ef2979cc14480ae529843d17321)

Places