New example, periodic semaphores

Author: petercorke

examples/timer/Makefile

@@ -0,0 +1,9 @@
+# copy this into the codegen/exe/user folder on the target machine
+# then run it, it will build the binary in this folder
+vpath %c ../../../stl
+OBJ = thread1.o  thread2.o  thread3.o  user.o  user_initialize.o  user_terminate.o main.o stl.o
+CFLAGS += -I . -I ../../../stl
+LIBS = -ldl -lpthread -lrt
+
+user: $(OBJ)
+	$(CC) -o main -fPIC $(OBJ) $(LIBS)

examples/timer/make.m

@@ -0,0 +1,43 @@
+% make.m
+
+cfg = coder.config('exe')
+cfg.TargetLang = 'C';
+cfg.MultiInstanceCode = true;
+
+cfg.GenerateReport = true;
+%cfg.LaunchReport = true;
+
+% build options
+%cfg.GenerateExampleMain = 'DoNotGenerate';
+cfg.GenCodeOnly = true;
+
+cfg.GenerateComments = true;
+cfg.MATLABSourceComments = true;  % lots of comments
+cfg.PreserveVariableNames = 'UserNames';
+
+% want to include some files from this directory, but this doesnt work??
+cfg.CustomSource = 'main.c stl.c'
+cfg.CustomInclude = '../../stl';
+
+cfg.BuildConfiguration = 'Faster Builds';
+%cfg.BuildConfiguration = 'Debug';
+
+% would be nice if could set make -j to get some parallel building
+% happening.
+
+%for Raspberry Pi
+% hw = coder.hardware('Raspberry Pi');
+% cfg.Hardware = hw;
+% cfg.GenCodeOnly = true;
+
+cfg.PostCodeGenCommand = 'postbuild(projectName, buildInfo)';
+%{
+cfg.InlineThreshold = 0;  % tone down the aggressive inlining
+codegen user.m thread1.m -args int32(0) thread2.m thread3.m -O disable:inline -config cfg
+%}
+
+codegen user.m thread1.m  -config cfg
+%MAKE  = gmake
+%MAKE_FLAGS           = -f $(MAKEFILE) 
+% hw = coder.hardware('Raspberry Pi');
+% cfg.Hardware = hw;

examples/timer/thread1.m

@@ -0,0 +1,10 @@
+function thread1() %#codegen
+
+    stllog('hello from thread1');
+    
+    for i=1:20
+        stl.semwait(0)
+        stl.log('wakeup');
+    end
+end
+

examples/timer/user.m

@@ -0,0 +1,22 @@
+function user  %#codegen
+    
+
+    
+%     z.a = 1
+%     z.b = 2
+%     coder.cstructname(z, 'arg_t')
+
+    s1 = stl.semaphore('sem1');
+    stllog('sem id ', s1);
+    
+    t1 = launch('thread1', 0)  % pass a value to this thread
+    stllog('thread id %d', t1)
+
+    timer = stl.timer('timer1', 2.0, s1);
+    join(t1);  % wait for thread 1 to finish
+
+    
+    % done, exiting will tear down all the threads
+    
+end
+