User:Kernigh

My Favorite Languages
Language	Proficiency
Ruby	4
C	3
Java	3
Perl	3
UNIX Shell	3
AWK	2
bc	2
CMake	2
Common Lisp	2
dc	2
make	2
WML	2
C Shell	1
Factor	1!
m4	1
PicoLisp	1!
Python	1
Scala	1!
sed	1

Language proficiency:

• 4 I prefer this language.
• 3 I know much about this language. I can solve many tasks.
• 2 I know part of this language. I can solve some tasks.
• 1 I can only use this language for a few simple tasks.
• ! I never used this language until I saw it at Rosetta Code.

Contributions by Kernigh

• First 20 examples for Category:C Shell
• New task: Subtractive generator

In progress

<lang c>#include <stdio.h>

1. include <stdlib.h>

1. if defined(_WIN32)
2. include <windows.h>
3. include <process.h>

/* ARGSUSED */ unsigned __stdcall run2(void *arg) { printf(" %d\n", rand()); printf(" %d\n", rand()); printf(" %d\n", rand()); return 0; }

void run(void) { HANDLE thread; thread = (HANDLE)_beginthreadex(NULL, 0, run2, NULL, 0, NULL); if (thread) { WaitForSingleObject(thread, INFINITE); CloseHandle(thread); } else puts("Error!"); }

1. elif defined(__unix__)
2. include <pthread.h>

/* ARGSUSED */ void * run2(void *arg) { printf(" %d\n", rand()); printf(" %d\n", rand()); printf(" %d\n", rand()); return NULL; }

void run(void) { pthread_t thread; if (pthread_create(&thread, NULL, run2, NULL) || pthread_join(thread, NULL)) puts("Error!"); }

1. else
2. error Port run() to your system.
3. endif

int main() { srand(42); puts("Thread A:"); run(); puts("Thread B:"); run(); return 0; }</lang>

Thread A:
  41
  18467
  6334
Thread B:
  41
  18467
  6334