#FEATURE by cg
class: AbstractOperatingSystem class
changed:
#domainCodeOf:
#domainSymbolOf:
--- 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