开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > 查看源码
PRPERF.C
资源名称：MSDN_VC98.zip　[点击查看]
上传用户：bangxh
上传日期：2007-01-31
资源大小：42235k
文件大小：31k
源码类别：

Windows编程

开发平台：

Visual C++

PRPERF.C：源码内容
  1. /*++
  3. Copyright (c) 1994-1997  Microsoft Corporation
  5. Module Name: prperf.c
  8. Abstract: This Sample Windows Socket Application demonstrates use of
  9.           the AppleTalk PAP Protocol. Both a server and a client
  10.           application are included in this source file. The client
  11.           app reads a file and sends the contents to the server. The
  12.           server writes out the received bytes to another file.
  15. --*/
  17. #include <windows.h>
  19. #include <stdlib.h>
  20. #include <string.h>
  21. #include <stdio.h>
  22. #include <ctype.h>
  23. #include <time.h>
  25. //
  26. // the following header contains appletalk specific definitions.
  27. // should be included for AppleTalk Windows Socket Applications
  28. //
  29. #include <atalkwsh.h>
  30. #include "prsamp.h"
  32. #define SOCKET_COUNT                    32
  34. #define DEF_SERVER_NAME                 "Windows Adsp"
  35. #define DEF_SERVER_TYPE                 "Windows Sockets"
  36. #define DEF_SERVER_ZONE                 "*"
  37. #define BLOCKSIZE                       4096
  39. #define DEF_QUEUE_LEN                   5
  40. #define ENTITY_LEN                      32
  42. CHAR    gServerName[ENTITY_LEN]         = DEF_SERVER_NAME;
  43. CHAR    gServerType[ENTITY_LEN]         = DEF_SERVER_TYPE;
  44. CHAR    gServerZone[ENTITY_LEN]         = DEF_SERVER_ZONE;
  45. CHAR    gProtocolName[10]               = "ADSP";
  46. INT     NumTimes                        = 5;
  47. CHAR    gFileName[256];
  49. LPSTR   pServerName   = gServerName;
  50. LPSTR   pServerType   = gServerType;
  51. LPSTR   pServerZone   = gServerZone;
  52. LPSTR   pProtocolName = gProtocolName;
  53. LPSTR   pFileName     = gFileName;
  56. HANDLE  gFileHandle;
  57. WSADATA WsaData;
  59. SYSTEMTIME    SystemStartTime;
  60. SYSTEMTIME    SystemEndTime;
  61. FILETIME      FileTime;
  63. BOOL fFileSpecified = FALSE;
  64. BOOL fVerify = FALSE;
  65. BOOL fRandom = FALSE;
  66. BOOL fRDM    = FALSE;
  68. int loop = 1, looptot;
  69. double Throughput, AvgThroughPut, MinThroughPut, MaxThroughPut;
  71. CHAR DataString[] = {"0123456789abcdefghijklmnopqrstuvwxyz~!@#$%^&*()_+"};
  73. #define NANOPOWER    1000000000
  75. //#define DEBUG  
  77. typedef struct Sock_Info {
  78.    int     sock_typ;
  79.    int     prototyp;
  80.    SOCKET  nsock;
  81. } *PTEST_INFO, test_info;
  83. _cdecl main (IN SHORT argc, IN PSZ argv[])
  84. {
  86.    register char p;
  87.    register char *ptr;
  88.    int i, r;
  89.    BOOL fClient = FALSE;
  90.    BOOL fServer = FALSE;
  92.    for(i = 1; i < argc; i++)
  93.    {
  94.        p = argv[i][0];
  96.        if (p == '/' || p == '-')          // option string
  97.        {
  98.            p = argv[i][1];
  100.            switch(tolower(p))
  101.            {
  102.                case 'n':
  103.                    ptr = argv[i]+2;
  104.                    if(*ptr == '')
  105.                        usage();
  106.                    while(*pServerName++ = *ptr++);
  107.                    break;
  108.                case 't':
  109.                    ptr = argv[i]+2;
  110.                    if(*ptr == '')
  111.                        usage();
  112.                    while(*pServerType++ = *ptr++);
  113.                    break;
  114.                case 'z':
  115.                    ptr = argv[i]+2;
  116.                    if(*ptr == '')
  117.                        usage();
  118.                    while(*pServerZone++ = *ptr++);
  119.                    break;
  120.                case 's':
  121.                    ptr = argv[i]+2;
  122.                    if(*ptr != '')
  123.                        usage();
  124.                    if(fClient == TRUE)
  125.                        usage();
  126.                    fServer = TRUE;
  127.                    break;
  128.                case 'c':
  129.                    ptr = argv[i]+2;
  130.                    if(*ptr != '')
  131.                        usage();
  132.                    if(fServer == TRUE)
  133.                        usage();
  134.                    fClient = TRUE;
  135.                    break;
  136.                case 'p':
  137.                    ptr = argv[i]+2;
  138.                    if(*ptr == '')
  139.                        usage();
  140.                    while(*pProtocolName++ = *ptr++);
  141.                    break;
  142.                case 'b':
  143.                    ptr=argv[i]+2;
  144.                    if(*ptr == '')
  145.                        usage();
  146.                    NumTimes = atoi(ptr);
  147.                    break;
  148.                case 'f':
  149.                    ptr = argv[i]+2;
  150.                    if(*ptr == '')
  151.                        usage();
  152.                    while(*pFileName++ = *ptr++);
  153.                    fFileSpecified = TRUE;
  154.                    break;
  155.                case 'l':
  156.                    ptr = argv[i]+2;
  157.                    if(*ptr == '')
  158.                        usage();
  159.                    loop = atoi(ptr);
  160.                    break;
  161.                case 'v':
  162.                    ptr = argv[i]+2;
  163.                    if(*ptr != '')
  164.                        usage();
  165.                    fVerify = TRUE;
  166.                    break;
  167.                case 'r':
  168.                    ptr = argv[i]+2;
  169.                    if(*ptr != '')
  170.                        usage();
  171.                    fRandom = TRUE;
  172.                    break;
  173.                case 'y':
  174.                    ptr = argv[i]+2;
  175.                    if(*ptr != '')
  176.                        usage();
  177.                    fRDM = TRUE;
  178.                    break;
  179.                case '?':
  180.                default:
  181.                    usage();
  183.            }
  184.        }
  185.        else
  186.        {
  187.            usage();
  188.        }
  190.    }
  192. #ifdef DEBUG
  193.    printf("Server Name %sn", gServerName);
  194.    printf("Server Type %sn", gServerType);
  195.    printf("Server Zone %sn", gServerZone);
  196. #endif
  197.    printf("%s throughput measurementn", gProtocolName);
  199.    if(stricmp(gProtocolName, "ADSP") && stricmp(gProtocolName, "PAP"))
  200.    {
  201.        printf("Invalid Protocol Specifiedn");
  202.        exit(1);
  203.    }
  206.    if(!(fClient || fServer))
  207.        usage();
  209.    r = WSAStartup(0x0101, &WsaData);
  210.    if (r == SOCKET_ERROR)
  211.    {
  212.        printf("Startup failed!n");
  213.        WSACleanup();
  214.        return(0);
  215.    }
  217.    if(fClient)
  218.    {
  219.        BOOL DClnt;
  221.        looptot = 0;
  222.        MaxThroughPut = 0;
  223.        AvgThroughPut = 0;
  224.        if(fFileSpecified)
  225.            printf("Ignoring -f option for client.n");
  226.        while (looptot < loop)
  227.        {
  228.            DClnt = DoClient();
  229.            if(DClnt)
  230.            {
  231.                if ((looptot == 0) || (MinThroughPut > Throughput))
  232.                    MinThroughPut = Throughput;
  234.                if (MaxThroughPut < Throughput)
  235.                    MaxThroughPut = Throughput;
  237.                AvgThroughPut = ((AvgThroughPut * looptot) + Throughput)
  238.                                / (looptot+1);
  239.                printf("Loop %2d/%d Throughput Cur/Min/Max/Ave :", ++looptot, loop);
  240.                printf(" %6.2f/%6.2f/%6.2f/%6.2fnnn", Throughput,
  241.                                                         MinThroughPut,
  242.                                                         MaxThroughPut,
  243.                                                         AvgThroughPut);
  244.                Throughput = 0.0;
  245.            }
  246.            else
  247.                break;
  248.        }
  249.    }
  251.    if(fServer)
  252.        DoServer();
  254.    WSACleanup();
  255.    return(0);
  256. }
  259. /******************************************************************************
  260.  
  261.  Function - DoServer()
  263.  Calling Function - main();
  265.  Comments - This section of code calls the Server side of the application.
  266.             
  267. ******************************************************************************/
  270. BOOL DoServer()
  271. {
  272.    BOOL   fRet = FALSE;
  274.    do
  275.    {
  277. //
  278. // register the name specified on the command line  or use the
  279. // defaults.
  280. //
  282.        fRet = OpenSocketRegisterAndListen();
  285.    }while(FALSE);
  287.    return(fRet);
  289. }
  292. /******************************************************************************
  293.  
  294.  Function - OpenSocketRegisterAndListen()
  296.  Calling Function - DoServer();
  298.  Comments - This section of code controls the Server side of the application.
  299.             
  300. ******************************************************************************/
  302. BOOL OpenSocketRegisterAndListen()
  303. {
  305.    int                  r = 0;         // return from socket calls
  306.    int                  pass_no = 1;
  307.    BOOL                 fRet = TRUE;
  308.    SOCKET               sock, newsock; // SOCKET descriptor
  309.    SOCKADDR_AT          atalkaddr;     // See atalkwsh.h
  310.    WSH_REGISTER_NAME    nbpname;       // structure for registering NBP name
  311.                                        // see atalkwsh.h
  312.    fd_set               readfds;       // fd_set strutture for select call
  313.    int                  addrlen;
  314.    PTEST_INFO           test;
  315.    int                  sockettype = SOCK_STREAM;
  316.    int                  protocoltype = ATPROTO_ADSP;
  317.    int                  NumBytesRecvd = 0;
  318.    unsigned long        ThreadId;
  324. //
  325. // open a appletalk socket. The protocol family should be AF_APPLETALK,
  326. // the socket type can be SOCK_STREAM or SOCK_RDM, and the ProtocolType
  327. // for PAP socket must be ATPROTO_PAP. Note that opening a socket does
  328. // not yet create an endpoint on the AppleTalk Protocol. A bind must
  329. // happen before this socket can be used with AppleTalk;
  330. //
  332.    do
  333.    {
  334.        if(!stricmp(gProtocolName, "PAP"))
  335.        {
  336.            sockettype = SOCK_RDM;
  337.            protocoltype = ATPROTO_PAP;
  338.        }
  339.        else if (fRDM)
  340.            sockettype = SOCK_RDM;
  343.        sock = socket(AF_APPLETALK, sockettype, protocoltype);
  345.        if(sock == INVALID_SOCKET)
  346.        {
  347.            printf("Open Socket: Error = %ldn", WSAGetLastError());
  348.            r = -1;
  349.            break;
  350.        }
  352.        atalkaddr.sat_socket = 0;
  353.        atalkaddr.sat_family = AF_APPLETALK;
  355.        r = bind(sock, (struct sockaddr *)&atalkaddr, sizeof(SOCKADDR_AT));
  357.        if(r < 0)
  358.        {
  359.            printf("Bind:Error = %dn", WSAGetLastError());
  360.            break;
  361.        }
  363.        //
  364.        // end point has now been created on the AppleTalk Protocol
  365.        // now register the name that the client will look up.
  366.        //
  368.        strcpy(nbpname.ObjectName, gServerName);
  369.        nbpname.ObjectNameLen = strlen(gServerName);
  371.        strcpy(nbpname.TypeName, gServerType);
  372.        nbpname.TypeNameLen = strlen(gServerType);
  374.        strcpy(nbpname.ZoneName, "*");
  375.        nbpname.ZoneNameLen = strlen("*");
  377.        printf("Registering %s:%s@%sn", nbpname.ObjectName,
  378.                                         nbpname.TypeName,
  379.                                         nbpname.ZoneName);
  382.        r = setsockopt(sock,                         // socket descriptor
  383.                      SOL_APPLETALK,                 // socket level - always SOL_APPLETALK
  384.                      SO_REGISTER_NAME,              // socket option
  385.                      (char *)&nbpname,              // nbp name structure
  386.                      sizeof(WSH_NBP_NAME));         // size of nbp name structure
  389.        if(r < 0)
  390.        {
  391.            printf("Register Name: Error = %dn", WSAGetLastError());
  392.            break;
  393.        }
  395.    }while(FALSE);
  397.    if(r == SOCKET_ERROR)
  398.    {
  399.        closesocket(sock);
  400.        return(FALSE);
  401.    }
  403. //
  404. // Post a listen on this socket. The default queue length is 5
  405. //
  407.    r =  listen(sock, DEF_QUEUE_LEN);
  409.    if(r < 0)
  410.    {
  411.        printf("Listen:Error = %dn", WSAGetLastError());
  412.        return FALSE;
  413.    }
  416. //
  417. // listen is successful. select the socket for reading
  418. //
  420.    do
  421.    {
  423.        FD_ZERO(&readfds);            // clear set
  424.        FD_SET(sock, &readfds);       // add sock to set
  426. //
  427. // this is a blocking select. Select will complete when
  428. // a client connects.
  429. //
  431.        r = select(0, &readfds, NULL, NULL, NULL);
  433.        if(r == SOCKET_ERROR)
  434.        {
  435.            printf("Select: Error = %dn", WSAGetLastError());
  436.            fRet = FALSE;
  437.            break;
  438.        }
  440.        if ( r == 0)
  441.        {
  442.            printf("Select: no sockets availablen");
  443.            fRet = FALSE;
  444.            break;
  445.        }
  447. //
  448. // Accept an incoming request.
  449. //
  451.        addrlen = sizeof(SOCKADDR_AT);
  452.        newsock = accept(sock, (struct sockaddr *)&atalkaddr, &addrlen);
  454.        if(newsock == INVALID_SOCKET)
  455.        {
  456.            printf("Accept: Socket Error = %dn", WSAGetLastError());
  458.            fRet = FALSE;
  459.            break;
  460.        }
  462. #ifdef DEBUG
  463. //       printf("Accept Succeededn");
  464. #endif
  467.        if(r == SOCKET_ERROR)
  468.        {
  469.            fRet = FALSE;
  470.            break;
  471.        }
  474.        test = (PTEST_INFO) LocalAlloc(LPTR, sizeof(test_info));  
  475.        test->sock_typ = sockettype;
  476.        test->prototyp = protocoltype;
  477.        test->nsock = newsock;
  478.          
  479.        if( ! CreateThread(NULL, 0, (LPTHREAD_START_ROUTINE)PerfThread,
  480.                             (PTEST_INFO) test, 0, & ThreadId ) )
  481.        {
  482.            fprintf(stderr,"CreateThread NULL 0 PerfThread %d 0 %d 0 %lx",
  483.                         test->sock_typ, test->prototyp, (unsigned long) & ThreadId);
  484.            exit(1);
  485.         }
  487.        if (fRet == FALSE)
  488.            break;
  490.    }while (TRUE);
  493.    closesocket(sock);
  495.    //
  496.    // send all done
  497.    //
  499.    return(TRUE);
  501. }
  504. /******************************************************************************
  505.  
  506.  Function - PerfThread()
  508.  Calling Function - OpenSocketRegisterAndListen();
  510.  Comments - This section of code controls the Server side Recieve and Verification
  511.             for the application.
  512.             
  513. ******************************************************************************/
  516. unsigned long PerfThread( PTEST_INFO lpvTest )
  517. {
  518.    int     r;                          // return from socket calls
  519.    int     recvflags = 0;              // see WSARecvEx call
  520.    CHAR    recvbuf[4096];              // recv buffer
  521.    long    blockmode = 1;              // see ioctlsocket call
  522.    BOOL    fRet = TRUE;
  523.    int     NumBytesRecvd = 0, pass_no = 1;
  524.    SOCKET  newsock = lpvTest->nsock;   // SOCKET descriptor
  525.    int     sockettype = lpvTest->sock_typ;
  526.    int     protocoltype = lpvTest->prototyp;
  528.    //
  529.    // make socket non blocking. As far as possible, use non
  530.    // blocking sockets to improve performance of app.
  531.    //
  532.    //
  534.    r = ioctlsocket(newsock, FIONBIO, &blockmode);
  536.    if( r == SOCKET_ERROR)
  537.    {
  538.        printf("ioctlsocket: error = %dn", WSAGetLastError());
  539.        fRet = FALSE;
  540.        return(FALSE);
  541.    }
  543.    do
  544.    {
  547.        //
  548.        // Prime a Read here. This will enable the receive to complete
  549.        // This is PAP specific. For other AppleTalk protocols -
  550.        // ADSP and DDP a recv can be posted directly
  551.        //
  553.        if(!stricmp(gProtocolName, "PAP"))
  554.        {
  556.            r = setsockopt(newsock,
  557.                           SOL_APPLETALK,
  558.                           SO_PAP_PRIME_READ,
  559.                           recvbuf,
  560.                           sizeof(recvbuf));
  562.            if( r < 0)
  563.            {
  564.                printf("primeread: error = %dn", WSAGetLastError());
  565.                fRet = FALSE;
  566.                break;
  568.            }
  569.        }
  571.        fRet = CheckForRecv(newsock);
  573.        if(fRet == FALSE)
  574.            break;
  576.        r = WSARecvEx(newsock,recvbuf,sizeof(recvbuf), &recvflags);
  579.        if ((sockettype == SOCK_RDM) && (r < sizeof(recvbuf)))
  580.        {
  581.            printf("Did not receive entire messagen");
  582.            fRet = FALSE;
  583.            break;
  584.        }
  586.        if( r == SOCKET_ERROR)
  587.        {
  589.            if (WSAGetLastError() == WSAEWOULDBLOCK)
  590.                continue;
  591.            else
  592.            {
  593.                if(WSAGetLastError() == WSAENOTCONN || WSAGetLastError() == WSAEFAULT)
  594.                    break;
  595.                printf("recv: error = %dn", WSAGetLastError());
  596.                fRet = FALSE;
  597.                break;
  598.            }
  600.        }
  602. #ifdef DEBUG
  603. //       printf("Recvd %d bytesn", r);
  604. #endif
  606.        if (fVerify)
  607.        {
  608.            int rr, pos = 0;
  611.            do
  612.            {
  613.                fRet = CheckForSend(newsock);
  615.                if (fRet == FALSE)
  616.                {
  617.                    printf("send select errorn");
  618.                    break;
  619.                }
  621.                rr = send(newsock, &recvbuf[pos], r-pos, 0);   
  622.                
  623.                if ( rr < 0 )
  624.                {
  625.                    if(WSAGetLastError() == WSAEWOULDBLOCK)
  626.                    {  
  627.                        printf("Send: error = WSAEWOULDBLOCKn");
  628.                        continue;
  629.                    }
  630.                    else
  631.                    {
  632.                        printf("send: error = %dn", WSAGetLastError());
  633.                        break;
  634.                    }
  636.                }
  638. #ifdef DEBUG
  639. //            printf("Bytes Sent %dn", rr);
  640. #endif
  642.                pos += rr;
  644.                if (pos >= r)
  645.                    break;
  647.            } while(TRUE);
  649.        }  // endif Verify
  652.        NumBytesRecvd += r;
  654.        //
  655.        // reset the recv flags for the next WSARecvEx
  656.        //
  657.        recvflags = 0;
  659.    }while(TRUE);
  661.    printf("Total Number of Bytes Received = %d n",NumBytesRecvd);
  663.    closesocket(newsock);
  664.    LocalFree(lpvTest);
  666.    return(TRUE);
  667. }
  669. /******************************************************************************
  670.  
  671.  Function - DoClient()
  673.  Calling Function - main();
  675.  Comments - This section of code controls the Client side of the application.
  676.             
  677. ******************************************************************************/
  679. BOOL DoClient()
  680. {
  681.    int                  r = 0;             // return code
  682.    BOOL                 fRet = FALSE;      //
  683.    int                  charcnt;           // count of bytes read from file
  684.    CHAR                 LookupBuffer[512]; // LookUp results return buffer
  685.    PCHAR                ptupleBuffer;
  686.    PWSH_LOOKUP_NAME     pLookup;
  687.    PWSH_NBP_TUPLE       pTempTuple;
  688.    SOCKADDR_AT          ataddress;
  689.    DWORD                WrittenSize;
  690.    SOCKET               clntsock;
  691.    long                 blockmode = 1;          // for ioctlsocket
  692.    int                  BytesTransferred = 0;
  693.    HLOCAL               memhandle;
  694.    LPSTR                DataPtr, DataStartPtr, DataEndPtr;
  695.    DWORD                hourdiff;          //, minutediff, seconddiff;
  696.    double               StartSecond, EndSecond,ElapsedSeconds;
  697.    int                  sockettype = SOCK_STREAM;
  698.    int                  prototype = ATPROTO_ADSP;
  699.    int                  i, rndbuf;
  701.    if(!stricmp(gProtocolName, "PAP"))
  702.    {
  703.        sockettype = SOCK_RDM;
  704.        prototype = ATPROTO_PAP;
  705.    }
  706.    else if (fRDM)
  707.        sockettype = SOCK_RDM;
  709.    if (fRandom)
  710.        rndbuf = rand() % strlen(DataString) + 1;
  711.    else
  712.        rndbuf = strlen(DataString);
  714.    do
  715.    {
  716.        //
  717.        // See socket call in OpenSocketRegisterAndListen for desc
  718.        //
  719.        clntsock = socket(AF_APPLETALK, sockettype, prototype);
  721.        if(clntsock == INVALID_SOCKET)
  722.        {
  723.            printf("Open Socket: Error = %ldn", WSAGetLastError());
  724.            r = -1;
  725.            break;
  727.        }
  729.        ataddress.sat_socket = 0;
  730.        ataddress.sat_family = AF_APPLETALK;
  733.        r = bind(clntsock, (struct sockaddr *)&ataddress, sizeof(SOCKADDR_AT));
  735.        if(r < 0)
  736.        {
  737.            printf("Bind:Error = %dn", WSAGetLastError());
  738.            break;
  739.        }
  741.        //
  742.        // end point has now been created on the AppleTalk Protocol.
  743.        // lookup the server name.
  744.        //
  747.        pLookup = (PWSH_LOOKUP_NAME)LookupBuffer;
  749.        strcpy(pLookup->LookupTuple.NbpName.ObjectName, gServerName);
  750.        pLookup->LookupTuple.NbpName.ObjectNameLen = strlen(gServerName);
  752.        strcpy(pLookup->LookupTuple.NbpName.TypeName,  gServerType);
  753.        pLookup->LookupTuple.NbpName.TypeNameLen = strlen(gServerType);
  755.        strcpy(pLookup->LookupTuple.NbpName.ZoneName, gServerZone);
  756.        pLookup->LookupTuple.NbpName.ZoneNameLen = strlen(gServerZone);
  758. #ifdef DEBUG
  759.        printf("Looking up %s:%s@%sn",pLookup->LookupTuple.NbpName.ObjectName,
  760.                                       pLookup->LookupTuple.NbpName.TypeName,
  761.                                       pLookup->LookupTuple.NbpName.ZoneName);
  762. #endif
  764.        WrittenSize = sizeof(LookupBuffer);
  766.        r = getsockopt(clntsock, SOL_APPLETALK, SO_LOOKUP_NAME,
  767.                       (char*)LookupBuffer,
  768.                       &WrittenSize);
  770.        if(r != NO_ERROR)
  771.        {
  772.            printf("getsockopt:error = %dn", WSAGetLastError());
  773.            break;
  775.        }
  777.        if (pLookup->NoTuples <= 0)
  778.        {
  779.            printf("LookupName failed - no tuples foundn");
  780.            r=-1;
  781.            break;
  782.        }
  784.        ptupleBuffer = (char *)pLookup+sizeof(WSH_LOOKUP_NAME);
  785.        pTempTuple = (PWSH_NBP_TUPLE)ptupleBuffer;
  787.        ataddress.sat_family = AF_APPLETALK;
  788.        ataddress.sat_net = pTempTuple[0].Address.Network;
  789.        ataddress.sat_node = pTempTuple[0].Address.Node;
  790.        ataddress.sat_socket = pTempTuple[0].Address.Socket;
  792. #ifdef DEBUG
  793.        printf("server address = %lx.%lx.%lx.n", ataddress.sat_net,
  794.                                                  ataddress.sat_node,
  795.                                                  ataddress.sat_socket);
  796. #endif
  799.        //
  800.        // lookup succeeded. Use the address in ataddress to connect to the
  801.        // server
  802.        //
  804.        r =  connect(clntsock, (struct sockaddr *)&ataddress, sizeof(SOCKADDR_AT));
  806.        if(r < 0)
  807.        {
  808.            printf("connect: error = %dn", WSAGetLastError());
  809.            break;
  810.        }
  812. #ifdef DEBUG
  813. //       printf("Connect Succeededn");
  814. #endif
  817.    }while(FALSE);
  819.    if(r < 0)
  820.    {
  821.        closesocket(clntsock);
  822.        return(FALSE);
  823.    }
  825.    //
  826.    //  Set Socket to non blocking mode
  827.    //
  829.    r = ioctlsocket(clntsock, FIONBIO, &blockmode);
  831. #ifdef DEBUG
  832. //       printf("ioctlsocket Succeededn");
  833. #endif
  835.    if( r == SOCKET_ERROR)
  836.    {
  837.        printf("ioctlsocket: error = %dn", WSAGetLastError());
  838.        return FALSE;
  839.    }
  841.    //
  842.    // Fill Up Send Buffer with Data
  843.    //
  844.    memhandle = LocalAlloc(LPTR, BLOCKSIZE);
  845.    if(memhandle == NULL)
  846.    {
  847.        printf("LocalAlloc Failed %dn", GetLastError());
  848.        return(FALSE);
  849.    }
  850.    DataPtr = LocalLock(memhandle);
  851.    DataStartPtr = DataPtr;
  852.    DataEndPtr = DataPtr + LocalSize(memhandle);
  854.    //
  855.    // fill the buffer with Data
  856.    //
  857.    while((DataStartPtr + rndbuf) <= DataEndPtr)
  858.    {
  859.        memcpy(DataStartPtr, DataString,rndbuf);
  860.        DataStartPtr+= rndbuf;
  861.    }
  863.    if(DataStartPtr != DataEndPtr)
  864.        memcpy(DataStartPtr, DataString, DataEndPtr-DataStartPtr-1);
  866.    *DataEndPtr = '';
  868.    fRet = CheckForSend(clntsock);
  870.    if(fRet == FALSE)
  871.        return FALSE;
  873.    GetLocalTime(&SystemStartTime);
  875. #ifdef DEBUG
  876.    printf("Data Size = %dn", lstrlen(DataPtr));
  877. //   printf("Base Data sent: %sn",DataStartPtr);
  878.    printf("Start Time:%d:%2d:%2d:%2dt", SystemStartTime.wHour,
  879.                                          SystemStartTime.wMinute,
  880.                                          SystemStartTime.wSecond,
  881.                                          SystemStartTime.wMilliseconds);
  882. #endif
  884.    for( i= 0; i < NumTimes; i++)
  885.    {
  886.        //
  887.        // Can I send - CheckForSend calls select to find if we can send
  888.        // without blocking
  889.        //
  890.        DataStartPtr = DataPtr;
  892.        do
  893.        {
  894.            fRet = CheckForSend(clntsock);
  896.            if(fRet == FALSE)
  897.            {
  898.                printf("send select errorn");
  899.                break;
  900.            }
  902.            charcnt = DataEndPtr - DataStartPtr;
  904.            if(charcnt == 0)
  905.                break;
  907.            r = send(clntsock, DataStartPtr, charcnt, 0);
  910.            if ( r < 0 )
  911.            {
  913.                if(WSAGetLastError() == WSAEWOULDBLOCK)
  914.                {
  915.                    printf("send: wouldblockn");
  916.                    continue;
  917.                }
  918.                else
  919.                {
  920.                    printf("send: error = %dn", WSAGetLastError());
  921.                    fRet = FALSE;
  922.                    break;
  923.                }
  925.            }
  926.            else
  927.            { 
  928.            
  929. #ifdef DEBUG
  930. //               printf("Sent %d bytesn",r);
  931. #endif
  933.                if ((fVerify) && (DataStartPtr + r == DataEndPtr))
  934.                {
  935.                    CHAR buffer[4096];
  936.                    int recvflag = 0;
  937.                    int rr, pos = 0;
  939.            //
  940.            // Prime a Read here. This will enable the receive to complete
  941.            // This is PAP specific. For other AppleTalk protocols -
  942.            // ADSP and DDP a recv can be posted directly
  943.            //
  945.                    if(!stricmp(gProtocolName, "PAP"))
  946.                    {
  948.                        rr = setsockopt(clntsock,
  949.                                       SOL_APPLETALK,
  950.                                       SO_PAP_PRIME_READ,
  951.                                       buffer,
  952.                                       sizeof(buffer));
  954.                        if( rr < 0)
  955.                        {
  956.                            printf("primeread: error = %dn", WSAGetLastError());
  957.                            fRet = FALSE;
  958.                            break;
  959.                        }
  960.                    }
  962.                    do
  963.                    {
  965.                        fRet = CheckForRecv(clntsock);
  967.                        if(fRet == FALSE)
  968.                            break;
  970.                        rr = WSARecvEx(clntsock, &buffer[pos], sizeof(buffer)-pos, &recvflag);
  972.                        if( rr == SOCKET_ERROR)
  973.                        {
  974.                            if (WSAGetLastError() == WSAEWOULDBLOCK)
  975.                                continue;
  976.                            else
  977.                            {
  978.                                printf("recv: error = %dn", WSAGetLastError());
  979.                                fRet = FALSE;
  980.                                break;
  981.                            }
  982.                        }
  984.                        pos += rr;
  986. #ifdef DEBUG
  987. //                       printf("Recv'd %d bytesn",rr);
  988. #endif
  990.                        if ((recvflag == 0) || (sockettype == SOCK_RDM) || 
  991.                            (pos == sizeof(buffer)))
  992.                            break;
  993.                        recvflag = 0;
  995.                    } while(TRUE);
  998.                    if ((memcmp(DataPtr, buffer, 4096) != 0) && (fRet != FALSE))
  999.                    {
  1000.                        printf("Strings do not comparen");
  1001. #ifdef DEBUG
  1002. //                       printf("Data sent: n%sn",DataPtr);
  1003. //                       printf("Data recv'd: n%sn",buffer);
  1004. #endif
  1006.                    }
  1009.                } // IF (fVerify)
  1011.                BytesTransferred += r;
  1012.                DataStartPtr += r;
  1014.                if(DataStartPtr == DataEndPtr)
  1015.                    break;
  1017.            } // IF send() PASSED
  1019.        }while(TRUE);
  1021.        if(fRet == FALSE)
  1022.            break;
  1024.    } // FOR
  1026.    GetLocalTime(&SystemEndTime);
  1028. #ifdef DEBUG
  1029.    printf("End Time:%d:%2d:%2d:%2dt", SystemEndTime.wHour,
  1030.                                        SystemEndTime.wMinute,
  1031.                                        SystemEndTime.wSecond,
  1032.                                        SystemEndTime.wMilliseconds);
  1033. #endif
  1035.    //
  1036.    // calculate the difference
  1037.    //
  1039.    hourdiff = SystemEndTime.wHour - SystemStartTime.wHour;
  1041.    StartSecond = (SystemStartTime.wHour * 3600) +
  1042.                  (SystemStartTime.wMinute * 60) +
  1043.                  SystemStartTime.wSecond +
  1044.                  (SystemStartTime.wMilliseconds * 0.001);
  1046.    EndSecond = 0;
  1048.    if(SystemEndTime.wMonth != SystemStartTime.wMonth)
  1049.    {
  1050.        EndSecond = (SystemEndTime.wDay * 24) * 3600;
  1051.        switch (SystemStartTime.wMonth)
  1052.        {
  1053.            case 1:
  1054.            case 3:
  1055.            case 5:
  1056.            case 7:
  1057.            case 8:
  1058.            case 10:
  1059.            case 12:
  1060.                    EndSecond = ((31 - SystemStartTime.wDay) * 24) + EndSecond;
  1061.                    break;
  1062.            case 4:
  1063.            case 6:
  1064.            case 9:
  1065.            case 11:
  1066.                    EndSecond = ((30 - SystemStartTime.wDay) * 24) + EndSecond;
  1067.                    break;
  1068.            case 2:
  1069.                    if((SystemStartTime.wYear % 400 == 0) || 
  1070.                       ((SystemStartTime.wYear % 4 == 0) &&
  1071.                        (SystemStartTime.wYear % 100 != 0)))
  1072.                        EndSecond = ((29 - SystemStartTime.wDay) *
  1073.                                      24) + EndSecond;
  1074.                    else
  1075.                        EndSecond = ((28 - SystemStartTime.wDay) *
  1076.                                      24) + EndSecond;
  1077.                    break;
  1078.        }
  1079.    }
  1080.    else
  1081.        if(SystemEndTime.wDay > SystemStartTime.wDay)
  1082.        {
  1083.            EndSecond = ((SystemEndTime.wDay - SystemStartTime.wDay) * 24) * 3600;
  1084.        }
  1086.    EndSecond = EndSecond + (SystemEndTime.wHour * 3600) +
  1087.                (SystemEndTime.wMinute * 60) + SystemEndTime.wSecond +
  1088.                (SystemEndTime.wMilliseconds * 0.001);
  1090.    ElapsedSeconds = EndSecond-StartSecond;
  1092. #ifdef DEBUG
  1093.    printf("Elapsed Time (secs) = %6.3fn", ElapsedSeconds);
  1094.    printf("Bytes Transferred = %ldn", BytesTransferred);
  1095.    printf("Send All Donen");
  1096. #endif
  1099.    if(ElapsedSeconds !=0)
  1100.    {
  1101.        Throughput = (BytesTransferred)/(ElapsedSeconds) ;
  1103. #ifdef DEBUG
  1104.        printf("Throughput (bytes/sec) = %6.2fn", Throughput);
  1105. #endif
  1107.    }
  1109.    printf("n");
  1111.    closesocket(clntsock);
  1113.    LocalFree(memhandle);
  1114.    return(TRUE);
  1116. }  
  1120. BOOL CheckForSend(SOCKET s)
  1121. {
  1123.    fd_set writefds;
  1124.    int r;
  1127. #ifdef DEBUG
  1128.    printf("ttChecking for Send..n");
  1129. #endif
  1131.    FD_ZERO(&writefds);
  1132.    FD_SET(s, &writefds);
  1134.    //
  1135.    // indefinite wait select
  1136.    //
  1137.    r =  select(0, NULL, &writefds, NULL, NULL);
  1139.    if( r != 1)
  1140.    {
  1141.        printf("select:error = %dn", WSAGetLastError());
  1142.        return(FALSE);
  1143.    }
  1144.    return(TRUE);
  1145. }
  1146.   
  1147.   
  1148.   
  1149. BOOL CheckForRecv(SOCKET s)
  1150. {
  1152.    fd_set readfds;
  1153.    int r;
  1155.    FD_ZERO(&readfds);
  1156.    FD_SET(s, &readfds);
  1158. #ifdef DEBUG
  1159.    printf("ttChecking for Recv..n");
  1160. #endif
  1162.    r =  select(0, &readfds, NULL, NULL, NULL);
  1164.    if( r != 1)
  1165.    {
  1166.        printf("select:error = %dn", WSAGetLastError());
  1167.        return(FALSE);
  1168.    }
  1169.    return(TRUE);
  1170. }
  1172. void usage()
  1173. {
  1175.    printf("prperf -s/c <options>n");
  1176.    printf("t-s/ct Server/Clientn");
  1177.    printf("t-nt Server Namen");
  1178.    printf("t-tt Server Type n");
  1179.    printf("t-zt Server Zone n");
  1180.    printf("t-pt Protocol Name (ADSP/PAP)n");
  1181.    printf("t-ft File Name for data to be saved (server only) n");
  1182.    printf("t-bt Number of times to send a 4k buffer (Default = 5) n");
  1183.    printf("t-lt Number of times to re-start prperf (Default = 1) (Client only)n");
  1184.    printf("t-vt Verify Integraty of data transmission. n");
  1185.    printf("t-rt Randomize the size of the base data string. n");
  1186.    printf("t-yt Change ADSP to use SOCK_RDM instead of SOCK_STREAM. n");
  1187.    printf("n");
  1188.    exit(1);
  1190. }