Home Libraries Author Links

systemuniquetest.c

Go to the documentation of this file.
00001 /* ***** BEGIN LICENSE BLOCK *****
00002  * Version: MPL 1.1/GPL 2.0/LGPL 2.1
00003  *
00004  * The contents of this file are subject to the Mozilla Public License Version
00005  * 1.1 (the "License"); you may not use this file except in compliance with
00006  * the License. You may obtain a copy of the License at
00007  * http://www.mozilla.org/MPL/
00008  *
00009  * Software distributed under the License is distributed on an "AS IS" basis,
00010  * WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License
00011  * for the specific language governing rights and limitations under the
00012  * License.
00013  *
00014  * The Original Code is the SysToMath C Libraries package (LibStmC).
00015  *
00016  * The Initial Developer of the Original Code is
00017  * Tom Michaelis, SysToMath.
00018  * Portions created by the Initial Developer are Copyright (C) 1994-2006
00019  * the Initial Developer. All Rights Reserved.
00020  *
00021  * Contributor(s):
00022  *
00023  * Alternatively, the contents of this file may be used under the terms of
00024  * either the GNU General Public License Version 2 or later (the "GPL"), or
00025  * the GNU Lesser General Public License Version 2.1 or later (the "LGPL"),
00026  * in which case the provisions of the GPL or the LGPL are applicable instead
00027  * of those above. If you wish to allow use of your version of this file only
00028  * under the terms of either the GPL or the LGPL, and not to allow others to
00029  * use your version of this file under the terms of the MPL, indicate your
00030  * decision by deleting the provisions above and replace them with the notice
00031  * and other provisions required by the GPL or the LGPL. If you do not delete
00032  * the provisions above, a recipient may use your version of this file under
00033  * the terms of any one of the MPL, the GPL or the LGPL.
00034  *
00035  * ***** END LICENSE BLOCK ***** */
00036 
00037 /******************************************************************************
00038  *                       First Release 1994-07-20
00039  ******************************************************************************/
00040 
00041 
00077 #include <stdio.h>
00078 #include <string.h>
00079 #include <errno.h>
00080 #include <stm/unique.h>
00081 
00082 
00087 StmAbstractType (SampleMboxType)  /* SampleSystemUnique */
00088 
00089 
00094 struct SampleMboxTypeImpl_
00095 {
00096     int counter;
00097     double value;
00098 };
00099 
00103 static int stmSampleMboxTypeInit (SampleMboxType item, void *data)
00104 {
00105     item -> counter = 0;
00106     item -> value = * (double *) data;
00107     return 0;
00108 }
00109 
00113 static int stmSampleMboxTypeDeinit (SampleMboxType item)
00114 {
00115     return 0;
00116 }
00117 
00120 StmSystemUniqueItemDefine (SampleMboxType, 100)  /* SampleSystemUnique */
00121 
00122 
00124 static StmSystemUniqueSampleMboxType sui;
00125 
00138 int main (int argc, char **argv)
00139 {
00140     pid_t child = (pid_t) -1;
00141     int i;
00142     double begval = 0.99;
00143     sui = stmSystemUniqueSampleMboxTypeCreate
00144     (
00145         &begval
00146     );
00147     if (!sui)
00148     {
00149         printf ("Process %d: stmSystemUniqueSampleMboxTypeCreate failed: %s\n",
00150                 getpid (), strerror (errno));
00151         exit (1);
00152     }
00153     if (argc == 1)
00154     {
00155         char *const childArgv [] =
00156         {
00157             argv [0],
00158             "child",
00159             NULL
00160         };
00161         if ((child = stmProcessSpawn (argv [0], childArgv, StmFalse)) < 0)
00162         {
00163             printf ("%s: stmProcessSpawn failed: %s\n",
00164                     argv [0], strerror (errno));
00165             exit (1);
00166         }
00167     }
00168     for (i = 0; i < 10; ++ i)
00169     {
00170         SampleMboxType item = stmSystemUniqueSampleMboxTypeLock (sui);
00171         if (!item)
00172         {
00173             printf ("Process %d: stmSystemUniqueSampleMboxTypeLock failed: %s\n",
00174                     getpid (), strerror (errno));
00175         }
00176         else
00177         {
00178             ++ item -> counter;
00179             item -> value = (item -> value - 0.1) * 1.25;
00180             printf ("Process %d: Counter: %d, value: %f\n",
00181                     getpid (), item -> counter, item -> value);
00182             stmSystemUniqueSampleMboxTypeUnlock (sui);
00183             stmSleepMs (10);
00184         }
00185     }
00186     stmSystemUniqueSampleMboxTypeDestroy (sui);
00187     if (child > 0)
00188     {
00189         stmProcessWait (child, NULL);
00190     }
00191     return 0;
00192 }
00193 
00194 

© Copyright Tom Michaelis 2002-2007

Distributed under the SysToMath Software License (See the accompanying file license.txt or a copy at www.SysToMath.com).