home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 11 / 11.iso / n / n001 / 2.ddi / EXAMPLES / FREEMEM / COMMON / FREEMEM.RPC
Encoding:
Text File  |  1989-12-11  |  1.9 KB  |  50 lines
  1. %h{
  2. /*                                                                            *
  3.  *                                                                            *
  4.  *                  Copyright 1987, 1988, 1989 Netwise, Inc.                  *
  5.  *                              All Rights Reserved                           *
  6.  *   This software contains information which is proprietary to and a trade   *
  7.  *   secret of Netwise, Inc. It is not to be used, reproduced, or disclosed   *
  8.  *   except as authorized in your license agreement.                          *
  9.  *                                                                            *
  10.  *                          Restricted Rights Legend                          *
  11.  *   Use, duplication,  or  disclosure  by the  Government  is  subject  to   *
  12.  *   restrictions as set forth in subparagraph (c)(1)(ii) of the Rights  in   *
  13.  *   Technical Data and  Computer Software clause  at 252.227-7013, or  the   *
  14.  *   equivalent Government clause for other agencies.                         *
  15.  *   Contractor: Netwise, Inc., Boulder, CO 80301 USA                         *
  16.  *                                                                            *
  17.  */ 
  18. %}
  19.  
  20. /*
  21.  * File: freemem\common\freemem.rpc
  22.  *
  23.  * This RPC file runs in the following environment:
  24.  *    NetWare RPC 1.0, NetWare 2.1 or higher, DOS 3.3
  25.  *
  26.  * This is the RPC Specification File for the freemem example.
  27.  */
  28.  
  29. /* This declaration defines an implicit, non-persistent process binding. 
  30.  * server_name is a predefined binding type (typedef char *server_name)
  31.  */
  32. extern server_name [bind in] sname;    
  33.  
  34. /* Specification of the get_string() remote procedure.  This procedure returns
  35.  * a character string in the global variable 'string'.
  36.  */
  37.  
  38. int
  39. get_string(int num)
  40. {
  41.     extern char [out] *string  (*$0 == '\0'); 
  42.  
  43.     Server_stub: {
  44.         Exit: {
  45.             /* free the dynamically allocated memory */
  46.             free(string);
  47.         }
  48.     }
  49. }
  50.