Index: head/net/anet/Makefile =================================================================== --- head/net/anet/Makefile (revision 422730) +++ head/net/anet/Makefile (revision 422731) @@ -1,57 +1,58 @@ # Created by: John Marino # $FreeBSD$ PORTNAME= anet PORTVERSION= 0.3.3 +PORTREVISION= 1 CATEGORIES= net MASTER_SITES= http://www.codelabs.ch/download/ DISTNAME= libanet-${PORTVERSION} MAINTAINER= marino@FreeBSD.org COMMENT= Networking library for Ada LICENSE= GPLv2 GMGPL LICENSE_COMB= multi USES= ada tar:bzip2 ALL_TARGET= build_lib MAKE_ARGS+= NUM_CPUS=${MAKE_JOBS_NUMBER} \ LIBRARY_KIND=static \ OS=bsd OPTIONS_DEFINE= TEST DOCS TEST_DESC= Run unit test suite before installation TEST_ALL_TARGET= tests TEST_BUILD_DEPENDS= ${LOCALBASE}/lib/gnat/ahven.gpr:devel/ahven DOCS_USES= gmake DOCS_ALL_TARGET= doc DOCS_BUILD_DEPENDS= asciidoc:textproc/asciidoc \ source-highlight:textproc/source-highlight post-patch: @${REINPLACE_CMD} -e 's|dynamic|static|g' \ ${WRKSRC}/gnat/anet.gpr @${REINPLACE_CMD} -e 's|DESTDIR|DEST2|g' \ ${WRKSRC}/doc/Makefile do-build: ${MKDIR} ${WRKSRC}/doc/html cd ${WRKSRC} && ${SETENV} ${MAKE_ENV} \ ${MAKE_CMD} ${MAKE_ARGS} ${ALL_TARGET} do-install: ${MKDIR} ${STAGEDIR}${PREFIX}/lib/gnat \ ${STAGEDIR}${PREFIX}/lib/anet \ ${STAGEDIR}${PREFIX}/include/anet ${INSTALL_DATA} ${WRKSRC}/src/*.ad[bs] ${WRKSRC}/src/bsd/*.ad[bs] \ ${STAGEDIR}${PREFIX}/include/anet ${INSTALL_DATA} ${WRKSRC}/lib/bsd/static/*.ali \ ${STAGEDIR}${PREFIX}/lib/anet ${INSTALL_DATA} ${WRKSRC}/lib/bsd/static/*.a ${STAGEDIR}${PREFIX}/lib ${INSTALL_DATA} ${WRKSRC}/gnat/anet.gpr ${STAGEDIR}${PREFIX}/lib/gnat do-install-DOCS-on: ${MKDIR} ${STAGEDIR}${DOCSDIR} (cd ${WRKSRC}/doc && ${COPYTREE_SHARE} html ${STAGEDIR}${DOCSDIR}) .include Index: head/net/anet/files/patch-add-TCP_NODELAY =================================================================== --- head/net/anet/files/patch-add-TCP_NODELAY (nonexistent) +++ head/net/anet/files/patch-add-TCP_NODELAY (revision 422731) @@ -0,0 +1,59 @@ +--- src/anet-constants.ads.orig 2016-06-29 10:26:01 UTC ++++ src/anet-constants.ads +@@ -45,6 +45,7 @@ package Anet.Constants is + -- Protocol levels -- + --------------------- + ++ IPPROTO_TCP : constant := 6; -- TCP + IPPROTO_IPV6 : constant := 41; -- IPv6 + IPPROTO_ESP : constant := 50; -- ESP + +--- src/bsd/anet-os_constants.ads.orig 2016-06-29 10:26:01 UTC ++++ src/bsd/anet-os_constants.ads +@@ -26,5 +26,6 @@ package Anet.OS_Constants is + IPV6_ADD_MEMBERSHIP : constant := 12; -- Join multicast group (IPv6) + + O_NONBLOCK : constant := 4; -- Non-blocking sockets ++ TCP_NODELAY : constant := 1; -- Don't delay send to coalesce pkts + + end Anet.OS_Constants; +--- src/anet-sockets.ads.orig 2016-06-29 10:26:01 UTC ++++ src/anet-sockets.ads +@@ -119,6 +119,12 @@ package Anet.Sockets is + Value : String); + -- Set socket option of given socket to specified string value. + ++ procedure Set_Socket_Send_Delay ++ (Socket : Socket_Type; ++ Without_Delay : Boolean); ++ -- Set Nagle's Algorithm (socket may delay sending data) ++ -- By default, sockets have the algorithm enabled and can delay sending ++ + private + + use type Interfaces.C.int; +--- src/anet-sockets.adb.orig 2016-06-29 10:26:01 UTC ++++ src/anet-sockets.adb +@@ -279,4 +279,22 @@ package body Anet.Sockets is + Value & "'"); + end Set_Socket_Option; + ++ ------------------------------------------------------------------------- ++ ++ procedure Set_Socket_Send_Delay ++ (Socket : Socket_Type; ++ Without_Delay : Boolean) ++ is ++ Val : C.int := C.int (Boolean'Pos (Without_Delay)); ++ begin ++ Errno.Check_Or_Raise ++ (Result => Thin.C_Setsockopt ++ (S => Socket.Sock_FD, ++ Level => Constants.Sys.IPPROTO_TCP, ++ Optname => OS_Constants.TCP_NODELAY, ++ Optval => Val'Address, ++ Optlen => Val'Size / 8), ++ Message => "Unable to set socket option TCP_NODELAY"); ++ end Set_Socket_Send_Delay; ++ + end Anet.Sockets; Property changes on: head/net/anet/files/patch-add-TCP_NODELAY ___________________________________________________________________ Added: fbsd:nokeywords ## -0,0 +1 ## +yes \ No newline at end of property Added: svn:eol-style ## -0,0 +1 ## +native \ No newline at end of property Added: svn:mime-type ## -0,0 +1 ## +text/plain \ No newline at end of property