#FEATURE by cg
authorClaus Gittinger <cg@exept.de>
Mon, 04 Mar 2019 12:38:53 +0100
changeset 23835 36f239feb185
parent 23834 3edb64074d7b
child 23836 8b734f62058f
#FEATURE by cg class: AbstractOperatingSystem class changed: #domainCodeOf: #domainSymbolOf:
AbstractOperatingSystem.st
--- a/AbstractOperatingSystem.st	Mon Mar 04 11:57:04 2019 +0100
+++ b/AbstractOperatingSystem.st	Mon Mar 04 12:38:53 2019 +0100
@@ -1187,7 +1187,6 @@
     "Created: / 12.11.1998 / 14:39:20 / cg"
 ! !
 
-
 !AbstractOperatingSystem class methodsFor:'executing OS commands-public'!
 
 executeCommand:aCommandString
@@ -5607,7 +5606,7 @@
 %{  /*NOCONTEXT*/
 
     if (__isSmallInteger(aSymbolOrInteger) || aSymbolOrInteger == nil) {
-	RETURN (aSymbolOrInteger);
+        RETURN (aSymbolOrInteger);
     }
 
 #ifdef AF_INET
@@ -5786,6 +5785,35 @@
     else if (aSymbolOrInteger == @symbol(AF_SYSTEM))
        domainCode = __mkSmallInteger(AF_SYSTEM);
 #endif
+#ifdef AF_PPP
+    else if (aSymbolOrInteger == @symbol(AF_PPP))
+       domainCode = __mkSmallInteger(AF_PPP);
+#endif
+#ifdef AF_NATM
+    else if (aSymbolOrInteger == @symbol(AF_NATM))
+       domainCode = __mkSmallInteger(AF_NATM);
+#endif
+#ifdef AF_NDRV
+    else if (aSymbolOrInteger == @symbol(AF_NDRV))
+       domainCode = __mkSmallInteger(AF_NDRV);
+#endif
+#ifdef AF_SIP
+    else if (aSymbolOrInteger == @symbol(AF_SIP))
+       domainCode = __mkSmallInteger(AF_SIP);
+#endif
+#ifdef AF_UNSPEC
+    else if (aSymbolOrInteger == @symbol(AF_UNSPEC))
+       domainCode = __mkSmallInteger(AF_UNSPEC);
+#endif
+#ifdef AF_IEEE80211
+    else if (aSymbolOrInteger == @symbol(AF_IEEE80211))
+       domainCode = __mkSmallInteger(AF_IEEE80211);
+#endif
+#ifdef AF_UTUN
+    else if (aSymbolOrInteger == @symbol(AF_UTUN))
+       domainCode = __mkSmallInteger(AF_UTUN);
+#endif
+
 %}.
 
     ^ domainCode.
@@ -5796,6 +5824,8 @@
      self domainCodeOf:#AF_UNIX
      self domainCodeOf:#AF_APPLETALK
      self domainCodeOf:#AF_DECNET
+     self domainCodeOf:#AF_UNSPEC
+     self domainCodeOf:#AF_UTUN
     "
     "for backward compatibility only:
      self domainCodeOf:#inet
@@ -5804,6 +5834,8 @@
      self domainCodeOf:#appletalk
      self domainCodeOf:#decnet
     "
+
+    "Modified: / 03-03-2019 / 11:32:35 / Claus Gittinger"
 !
 
 domainSymbolOf:anInteger
@@ -5815,234 +5847,259 @@
 %{ /*NOCONTEXT*/
 
     if (__isSmallInteger(anInteger)) {
-	switch(__intVal(anInteger)) {
+        switch(__intVal(anInteger)) {
 #ifdef AF_INET
-	case AF_INET:
-	    domainSymbol = @symbol(AF_INET);
-	    break;
+        case AF_INET:
+            domainSymbol = @symbol(AF_INET);
+            break;
 #endif
 #ifdef AF_INET6
-	case AF_INET6:
-	    domainSymbol = @symbol(AF_INET6);
-	    break;
+        case AF_INET6:
+            domainSymbol = @symbol(AF_INET6);
+            break;
 #endif
 #ifdef AF_UNIX
-	case AF_UNIX:
-	    domainSymbol = @symbol(AF_UNIX);
-	    break;
+        case AF_UNIX:
+            domainSymbol = @symbol(AF_UNIX);
+            break;
 #endif
 #ifdef AF_APPLETALK
-	case AF_APPLETALK:
-	    domainSymbol = @symbol(AF_APPLETALK);
-	    break;
+        case AF_APPLETALK:
+            domainSymbol = @symbol(AF_APPLETALK);
+            break;
 #endif
 #ifdef AF_DECnet
-	case AF_DECnet:
-	    domainSymbol = @symbol(AF_DECnet);
-	    break;
+        case AF_DECnet:
+            domainSymbol = @symbol(AF_DECnet);
+            break;
 #endif
 #ifdef AF_NS
-	case AF_NS:
-	    domainSymbol = @symbol(AF_NS);
-	    break;
+        case AF_NS:
+            domainSymbol = @symbol(AF_NS);
+            break;
 #endif
 #ifdef AF_X25
-	case AF_X25:
-	    domainSymbol = @symbol(AF_X25);
-	    break;
+        case AF_X25:
+            domainSymbol = @symbol(AF_X25);
+            break;
 #endif
 #ifdef AF_SNA
-	case AF_SNA:
-	    domainSymbol = @symbol(AF_SNA);
-	    break;
+        case AF_SNA:
+            domainSymbol = @symbol(AF_SNA);
+            break;
 #endif
 #ifdef AF_RAW
-	case AF_RAW:
-	    domainSymbol = @symbol(AF_RAW);
-	    break;
+        case AF_RAW:
+            domainSymbol = @symbol(AF_RAW);
+            break;
 #endif
 #ifdef AF_ISO
-	case AF_ISO:
-	    domainSymbol = @symbol(AF_ISO);
-	    break;
+        case AF_ISO:
+            domainSymbol = @symbol(AF_ISO);
+            break;
 #endif
 #ifdef AF_ECMA
-	case AF_ECMA:
-	    domainSymbol = @symbol(AF_ECMA);
-	    break;
+        case AF_ECMA:
+            domainSymbol = @symbol(AF_ECMA);
+            break;
 #endif
 #ifdef AF_NETBIOS
-	case AF_NETBIOS:
-	    domainSymbol = @symbol(AF_NETBIOS);
-	    break;
+        case AF_NETBIOS:
+            domainSymbol = @symbol(AF_NETBIOS);
+            break;
 #endif
 #ifdef AF_IPX
 # if defined(AF_NS) && (AF_NS == AF_IPX)
 //      alias
 # else
-	case AF_IPX:
-	    domainSymbol = @symbol(AF_IPX);
-	    break;
+        case AF_IPX:
+            domainSymbol = @symbol(AF_IPX);
+            break;
 # endif
 #endif
 #ifdef AF_AX25
-	case AF_AX25:
-	    domainSymbol = @symbol(AF_AX25);
-	    break;
+        case AF_AX25:
+            domainSymbol = @symbol(AF_AX25);
+            break;
 #endif
 #ifdef AF_NETROM
-	case AF_NETROM:
-	    domainSymbol = @symbol(AF_NETROM);
-	    break;
+        case AF_NETROM:
+            domainSymbol = @symbol(AF_NETROM);
+            break;
 #endif
 #ifdef AF_BRIDGE
-	case AF_BRIDGE:
-	    domainSymbol = @symbol(AF_BRIDGE);
-	    break;
+        case AF_BRIDGE:
+            domainSymbol = @symbol(AF_BRIDGE);
+            break;
 #endif
 #ifdef AF_BSC
-	case AF_BSC:
-	    domainSymbol = @symbol(AF_BSC);
-	    break;
+        case AF_BSC:
+            domainSymbol = @symbol(AF_BSC);
+            break;
 #endif
 #ifdef AF_ROSE
-	case AF_ROSE:
-	    domainSymbol = @symbol(AF_ROSE);
-	    break;
+        case AF_ROSE:
+            domainSymbol = @symbol(AF_ROSE);
+            break;
 #endif
 #ifdef AF_IRDA
-	case AF_IRDA:
-	    domainSymbol = @symbol(AF_IRDA);
-	    break;
+        case AF_IRDA:
+            domainSymbol = @symbol(AF_IRDA);
+            break;
 #endif
 #ifdef AF_BAN
-	case AF_BAN:
-	    domainSymbol = @symbol(AF_BAN);
-	    break;
+        case AF_BAN:
+            domainSymbol = @symbol(AF_BAN);
+            break;
 #endif
 #ifdef AF_VOICEVIEW
-	case AF_VOICEVIEW:
-	    domainSymbol = @symbol(AF_VOICEVIEW);
-	    break;
+        case AF_VOICEVIEW:
+            domainSymbol = @symbol(AF_VOICEVIEW);
+            break;
 #endif
 #ifdef AF_ATM
-	case AF_ATM:
-	    domainSymbol = @symbol(AF_ATM);
-	    break;
+        case AF_ATM:
+            domainSymbol = @symbol(AF_ATM);
+            break;
 #endif
 #ifdef AF_ATMPVC
-	case AF_ATMPVC:
-	    domainSymbol = @symbol(AF_ATMPVC);
-	    break;
+        case AF_ATMPVC:
+            domainSymbol = @symbol(AF_ATMPVC);
+            break;
 #endif
 #ifdef AF_ATMSVC
-	case AF_ATMSVC:
-	    domainSymbol = @symbol(AF_ATMSVC);
-	    break;
+        case AF_ATMSVC:
+            domainSymbol = @symbol(AF_ATMSVC);
+            break;
 #endif
 #ifdef AF_SECURITY
-	case AF_SECURITY:
-	    domainSymbol = @symbol(AF_SECURITY);
-	    break;
+        case AF_SECURITY:
+            domainSymbol = @symbol(AF_SECURITY);
+            break;
 #endif
 #ifdef AF_KEY
-	case AF_KEY:
-	    domainSymbol = @symbol(AF_KEY);
-	    break;
+        case AF_KEY:
+            domainSymbol = @symbol(AF_KEY);
+            break;
 #endif
 #ifdef AF_NETLINK
-	case AF_NETLINK:
-	    domainSymbol = @symbol(AF_NETLINK);
-	    break;
+        case AF_NETLINK:
+            domainSymbol = @symbol(AF_NETLINK);
+            break;
 #endif
 #ifdef AF_PACKET
-	case AF_PACKET:
-	    domainSymbol = @symbol(AF_PACKET);
-	    break;
+        case AF_PACKET:
+            domainSymbol = @symbol(AF_PACKET);
+            break;
 #endif
 #ifdef AF_LINK
 # if AF_LINK != AF_PACKET
-	case AF_LINK:
-	    domainSymbol = @symbol(AF_LINK);
-	    break;
+        case AF_LINK:
+            domainSymbol = @symbol(AF_LINK);
+            break;
 # endif
 #endif
 #ifdef AF_ASH
-	case AF_ASH:
-	    domainSymbol = @symbol(AF_ASH);
-	    break;
+        case AF_ASH:
+            domainSymbol = @symbol(AF_ASH);
+            break;
 #endif
 #ifdef AF_ECONET
-	case AF_ECONET:
-	    domainSymbol = @symbol(AF_ECONET);
-	    break;
+        case AF_ECONET:
+            domainSymbol = @symbol(AF_ECONET);
+            break;
 #endif
 #ifdef AF_IMPLINK
-	case AF_IMPLINK:
-	    domainSymbol = @symbol(AF_IMPLINK);
-	    break;
+        case AF_IMPLINK:
+            domainSymbol = @symbol(AF_IMPLINK);
+            break;
 #endif
 #ifdef AF_PUP
-	case AF_PUP:
-	    domainSymbol = @symbol(AF_PUP);
-	    break;
+        case AF_PUP:
+            domainSymbol = @symbol(AF_PUP);
+            break;
 #endif
 #ifdef AF_CHAOS
-	case AF_CHAOS:
-	    domainSymbol = @symbol(AF_CHAOS);
-	    break;
+        case AF_CHAOS:
+            domainSymbol = @symbol(AF_CHAOS);
+            break;
 #endif
 #ifdef AF_DLI
-	case AF_DLI:
-	    domainSymbol = @symbol(AF_DLI);
-	    break;
+        case AF_DLI:
+            domainSymbol = @symbol(AF_DLI);
+            break;
 #endif
 #ifdef AF_LAT
-	case AF_LAT:
-	    domainSymbol = @symbol(AF_LAT);
-	    break;
+        case AF_LAT:
+            domainSymbol = @symbol(AF_LAT);
+            break;
 #endif
 #ifdef AF_HYLINK
-	case AF_HYLINK:
-	    domainSymbol = @symbol(AF_HYLINK);
-	    break;
+        case AF_HYLINK:
+            domainSymbol = @symbol(AF_HYLINK);
+            break;
 #endif
 #ifdef AF_FIREFOX
-	case AF_FIREFOX:
-	    domainSymbol = @symbol(AF_FIREFOX);
-	    break;
+        case AF_FIREFOX:
+            domainSymbol = @symbol(AF_FIREFOX);
+            break;
 #endif
 #ifdef AF_CLUSTER
-	case AF_CLUSTER:
-	    domainSymbol = @symbol(AF_CLUSTER);
-	    break;
+        case AF_CLUSTER:
+            domainSymbol = @symbol(AF_CLUSTER);
+            break;
 #endif
 #ifdef AF_12844
-	case AF_12844:
-	    domainSymbol = @symbol(AF_12844);
-	    break;
+        case AF_12844:
+            domainSymbol = @symbol(AF_12844);
+            break;
 #endif
 #ifdef AF_NETDES
-	case AF_NETDES:
-	    domainSymbol = @symbol(AF_NETDES);
-	    break;
+        case AF_NETDES:
+            domainSymbol = @symbol(AF_NETDES);
+            break;
 #endif
 #ifdef AF_CCITT
-	case AF_CCITT:
-	    domainSymbol = @symbol(AF_CCITT);
-	    break;
+        case AF_CCITT:
+            domainSymbol = @symbol(AF_CCITT);
+            break;
 #endif
 #ifdef AF_ISDN
-	case AF_ISDN:
-	    domainSymbol = @symbol(AF_ISDN);
-	    break;
+        case AF_ISDN:
+            domainSymbol = @symbol(AF_ISDN);
+            break;
 #endif
 #ifdef AF_SYSTEM
-	case AF_SYSTEM:
-	    domainSymbol = @symbol(AF_SYSTEM);
-	    break;
-#endif
-	}
+        case AF_SYSTEM:
+            domainSymbol = @symbol(AF_SYSTEM);
+            break;
+#endif
+#ifdef AF_UNSPEC
+        case AF_UNSPEC:
+            domainSymbol = @symbol(AF_UNSPEC);
+            break;
+#endif
+#ifdef AF_NDRV
+        case AF_NDRV:
+            domainSymbol = @symbol(AF_NDRV);
+            break;
+#endif
+#ifdef AF_PPP
+        case AF_PPP:
+            domainSymbol = @symbol(AF_PPP);
+            break;
+#endif
+#ifdef AF_IEEE80211
+        case AF_IEEE80211:
+            domainSymbol = @symbol(AF_IEEE80211);
+            break;
+#endif
+#ifdef AF_UTUN
+        case AF_UTUN:
+            domainSymbol = @symbol(AF_UTUN);
+            break;
+#endif
+        }
     }
 %}.
 
@@ -6055,7 +6112,10 @@
      self domainSymbolOf:(self domainCodeOf:#appletalk)
      self domainSymbolOf:(self domainCodeOf:#decnet)
      self domainSymbolOf:(self domainCodeOf:#raw)
-    "
+     self domainSymbolOf:(self domainCodeOf:#AF_PPP)
+    "
+
+    "Modified: / 03-03-2019 / 11:34:01 / Claus Gittinger"
 !
 
 protocolCodeOf:aSymbolOrInteger