Си — Говнокод.ру

Си / Говнокод #27541

0

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42

/* https://fstarlang.github.io/lowstar/html/Introduction.html#the-essence-of-low

Consider the following very simple program:

module Intro

module P = LowStar.Printf
module C = LowStar.Comment
module B = LowStar.Buffer

open FStar.HyperStack.ST
open LowStar.BufferOps

let main (): St Int32.t =
  push_frame ();
  let b: B.buffer UInt32.t = B.alloca 0ul 8ul in
  b.(0ul) <- 255ul;
  C.comment "Calls to printf are desugared via meta-programming";
  let s = "from Low*!" in
  P.(printf "Hello from %s\nbuffer contents: %xul\n"
    s 8ul b done);
  pop_frame ();
  0l

....

Once compiled by the KreMLin compiler, we obtain the following C code:
*/

int32_t main()
{
  uint32_t b[8U] = { 0U };
  b[0U] = (uint32_t)255U;
  /* Calls to printf are desugared via meta-programming */
  Prims_string s = "from Low*!";
  LowStar_Printf_print_string("Hello from ");
  LowStar_Printf_print_string(s);
  LowStar_Printf_print_string("\nbuffer contents: ");
  LowStar_Printf_print_lmbuffer_u32((uint32_t)8U, (uint32_t *)b);
  LowStar_Printf_print_string("\n");
  return (int32_t)0;
}

Какая-то компилируемая в сишку хренотень с завтипами, разрабатываемая в Microsoft Research

j123123, 29 Июля 2021

Комментарии (66)

Си / Говнокод #27535

−1

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38

void* execute_thread(void* arg)
{
    int i;
    int interval;

    //Период контроля времени задаётся с точностью в 10мс.
    //Контролировать в данной реализации таймера точность в 1мс не имеет смысла,
    //так как это почти не возможно и, как правило, не требуется,
    //а крутить проверку таймеров с такой частотой только "пожерать" ресурсы процессора.

    struct timespec sleep_period = {0,9999999}; //Период, почти 10 мс

    do {
        for(i=0;i<n_timers;i++){
            if(timers[i]->enable == false){
                //Если таймер не активный, то присваиваем ему начальное значение
                clock_gettime(CLOCK_REALTIME, &timers[i]->time_before);
            }
        }
        //Засыпаем на 10мс
        nanosleep(&sleep_period , NULL);

        for(i=0;i<n_timers;i++){
            if(timers[i]->enable == true){
                //Получаем текущее значение времени.
                clock_gettime(CLOCK_REALTIME, &timers[i]->time_after);
                //Вычисляем прошедшее время ожидания
                interval = ((timers[i]->time_after.tv_sec-timers[i]->time_before.tv_sec)*1000000000 
                            +timers[i]->time_after.tv_nsec-timers[i]->time_before.tv_nsec)/1000000; 
                //Проверяем условие, если ОК, то обновляем время и формируем событие
                if(interval >= timers[i]->interval){
                    clock_gettime(CLOCK_REALTIME, &timers[i]->time_before);
                    timers[i]->listener->on_time(timers[i]);
                }
            }
        }
     } while (terminate == false);
}

https://habr.com/ru/post/569392/
> Объектно-ориентированное программирование на Си без плюсов. Часть 2. Таймер

PolinaAksenova, 24 Июля 2021

Комментарии (6)

Си / Говнокод #27525

0

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45

#include <stdio.h>
#include <stdlib.h>
#include <inttypes.h>

typedef struct list list;

struct list
{
  list* next;
  uint32_t data;
};

#define ADD_LIST(ptr, val) \
do { \
  (ptr)->next = (list *)alloca(sizeof(list)); \
  (ptr)->next->data = val; \
  (ptr)->next->next = NULL;\
} while (0)

// https://gcc.gnu.org/onlinedocs/gcc/Statement-Exprs.html
#define INIT_LIST(val) \
({ \
  list *INIT_LIST = (list *)alloca(sizeof(list)); \
  INIT_LIST->data = val; \
  INIT_LIST->next = NULL; \
  INIT_LIST; \
})


int main(void)
{
  list *a = INIT_LIST(5);
  ADD_LIST(a,10);
  ADD_LIST(a->next,15);
  ADD_LIST(a->next->next,20);
  ADD_LIST(a->next->next->next,25);
  ADD_LIST(a->next->next->next->next,30);

  for(list *ptr = a; ptr != NULL; ptr = ptr->next)
  {
    printf("%d ", ptr->data);
  }

  return EXIT_SUCCESS;
}

А можно ли в крестоговне так сделать без Сишного Препроцессора?

j123123, 19 Июля 2021

Комментарии (96)

Си / Говнокод #27516

+4

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35

while (1) {
    uint16_t state = in(USB_BASE + USB_ISTR);
    if (state & 0x8000) {
        uint16_t epstat = in(USB_BASE + USB_EP0R);
        if (epstat & 0x8000) {
            // RX done
            if (epstat & 0x0800) {
                // setup
                if ((usbRead(0x180) == 0x80) && (usbRead(0x181) == 0x06)) {
                    uint16_t maxlen = (usbRead(0x187) << 8) | usbRead(0x186);
                    if (usbRead(0x183) == 0x01) {
                        // send device descriptor
                        copyToUsb(0x0100, deviceDescriptor, sizeof(deviceDescriptor));
                        if (sizeof(deviceDescriptor) < maxlen)
                            maxlen = sizeof(deviceDescriptor);
                        out(USB_SRAM_BASE + 0x04, 0x9000 + maxlen); // TX count
                        // STAT_TX=11 (valid)
                        if ((in(USB_BASE + USB_EP0R) & 0x0010) != 0x0010)
                            out(USB_BASE + USB_EP0R, 0x0210);
                        if ((in(USB_BASE + USB_EP0R) & 0x0020) != 0x0020)
                            out(USB_BASE + USB_EP0R, 0x0220);
                    } else if (usbRead(0x183) == 0x02) {
                        // send config descriptor
                        copyToUsb(0x0100, configDescriptor, sizeof(configDescriptor));
                        if (sizeof(configDescriptor) < maxlen)
                            maxlen = sizeof(configDescriptor);
                        out(USB_SRAM_BASE + 0x04, 0x9000 + maxlen); // TX count
                        // STAT_TX=11 (valid)
                        if ((in(USB_BASE + USB_EP0R) & 0x0010) != 0x0010)
                            out(USB_BASE + USB_EP0R, 0x0210);
                        if ((in(USB_BASE + USB_EP0R) & 0x0020) != 0x0020)
                            out(USB_BASE + USB_EP0R, 0x0220);
                    } else {

// ... и ещё сотня строк в том же духе ...

Иногда в меня вселяется дух PHP...

bormand, 13 Июля 2021

Комментарии (30)

Си / Говнокод #27515

+1

001
002
003
004
005
006
007
008
009
010
011
012
013
014
015
016
017
018
019
020
021
022
023
024
025
026
027
028
029
030
031
032
033
034
035
036
037
038
039
040
041
042
043
044
045
046
047
048
049
050
051
052
053
054
055
056
057
058
059
060
061
062
063
064
065
066
067
068
069
070
071
072
073
074
075
076
077
078
079
080
081
082
083
084
085
086
087
088
089
090
091
092
093
094
095
096
097
098
099
100

// https://github.com/shanecoughlan/OpenGEM/blob/ac06b1a3fec3f3e8defcaaf7ea0338c38c3cef46/source/OpenGEM-7-RC3-SDK/OpenGEM-7-SDK/GEM%20AES%20AND%20SOURCE%20CODE/FreeGEM%20AES%203.0%20(source%20code)/GEMEVLIB.C#L143
/*
*	Do a multi-wait on the specified events.
*/
	WORD
ev_multi(flags, pmo1, pmo2, tmcount, buparm, mebuff, prets)
	REG WORD	flags;
	REG MOBLK	*pmo1;
	MOBLK		*pmo2;
	LONG		tmcount;
	LONG		buparm;
	LPVOID		mebuff;
	WORD		prets[];
{
	QPB		m;
	REG EVSPEC	which;
	REG WORD	what;
	REG CQUEUE	*pc;
#if MULTIAPP
	WORD		evbuff[8];
	WORD		pid;
	SHELL		*psh;
	LONG		ljunk;

	pid = rlr->p_pid;
	psh = &sh[pid];
	if ( psh->sh_state & SHRINK )		/* shrink accessory	*/
	{
	  if (pr_shrink(pid, TRUE, &ljunk, &ljunk))
	    ap_exit(TRUE); /* if no swap space terminate acc */ 
	  psh->sh_state &= ~SHRINK;
	}
#endif

						/* say nothing has 	*/
						/*   happened yet	*/
	what = 0x0;
		 				/* do a pre-check for a	*/
						/*   keystroke & then	*/
						/*   clear out the forkq*/
	chkkbd();
	forker();
						/*   a keystroke	*/
	if (flags & MU_KEYBD)
	{
						/* if a character is 	*/
						/*   ready then get it	*/
	  pc = &rlr->p_cda->c_q;
	  if ( pc->c_cnt )
	  {
	    prets[4] = (UWORD) dq(pc);
	    what |= MU_KEYBD;
	  }
	}
						/* if we own the mouse	*/
						/*   then do quick chks	*/
	if ( rlr == gl_mowner )
	{
						/* quick check button	*/
	  if (flags & MU_BUTTON)
	  {
	    if ( (mtrans > 1) &&
		 (downorup(pr_button, buparm)) )
	    {
	      what |= MU_BUTTON;
	      prets[5] = pr_mclick;
	    }
	    else
	    {
	      if ( downorup(button, buparm) )
	      {
	        what |= MU_BUTTON;
	        prets[5] = mclick;
	      }
	    }
	  }
						/* quick check mouse rec*/
	  if ( ( flags & MU_M1 ) &&	
	       ( in_mrect(pmo1) ) )
	      what |= MU_M1;
						/* quick check mouse rec*/
	  if ( ( flags & MU_M2 ) &&
	       ( in_mrect(pmo2) ) )
	      what |= MU_M2;
	}
						/* quick check timer	*/
	if (flags & MU_TIMER)
	{
	  if ( tmcount == 0x0L )
	    what |= MU_TIMER;
	}
						/* quick check message	*/
	if (flags & MU_MESAG)
	{
	  if ( rlr->p_qindex > 0 )
	  {
#if MULTIAPP
	    ap_rdwr(MU_MESAG, rlr, 16, ADDR(&evbuff[0]) );
#endif
#if SINGLAPP

Уххх бля

j123123, 13 Июля 2021

Комментарии (10)

Си / Говнокод #27496

0

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <stdbool.h>
#include <math.h>

#define width 65
#define height 25

char mas[height][width+1];

typedef struct {
  int x, y, w;
} TRocket;

TRocket racket;

typedef struct {  float x, y;  int ix, iy;  float alfa;  float speed;} TBall;

TBall ball;

int hitCnt = 0;int maxHitCnt = 0;

void init(int level)
{  for(int w=0; w<width; w++)   mas[0][w] = '#';  strncpy(mas[1], mas[0], width)  for(int w=1; w < width-1; w++)   mas[1][w] = ' ';  for(int h=2; h < height; h++)    strncpy(mas[h], mas[1], width);
  if(level == 1)
  {
    for(int w=10; w < width-10; w++)
      mas[5][w] = '#';
  }
}

void show()
{
  for(int x=0; x<height; x++)
  {
    printf("%s", mas[x]);   if(x == 3)
      printf("   hit: %d", hitCnt);
    if(x == 4)     printf("   max: %d", maxHitCnt);
    printf("\n");
  }
}

void initRocket()
{
  racket.w = 7;
  racket.x = (width - racket.w) / 2;
  racket.y = height - 1;
}

void initBall()
{
  moveBall(2.0, 2.0);
  ball.alfa = -1;
  ball.speed = 0.5;
}

void putBall()
{
  mas[ball.iy][ball.ix] = '*';
}

void moveBall(float x, float y)
{
  ball.x = x;
  ball.y = y;
  ball.ix = (int)ball.x;
  ball.iy = (int)ball.y;
}

void autoMoveBall()
{
  if(ball.alfa < 0) ball.alfa += M_PI*2;
  if(ball.alfa > M_PI*2) ball.alfa -= M_PI*2;
  TBall bl = ball;
  moveBall(ball.x + cos(ball.alfa) * ball.speed,
           ball.y + sin(ball.alfa) * ball.speed);
  if(mas[ball.iy][ball.ix] == '#' || mas[ball.iy][ball.ix] == '@')
  {
    if(mas[ball.iy][ball.ix] == '@')

ебаный рот!

rom4ik, 03 Июля 2021

Комментарии (14)

Си / Говнокод #27494

+2

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28

/*
https://habr.com/ru/post/523688/

Так как мы работаем с макросистемой C/C++, то аналог функций — макрос, этой
абстракцией мы и будем пользоваться. Мы будем передавать идентификатор первого
рекурсивного макроса в следующий рекурсивный макрос, и тот, в свою очередь, по
мере завершения своего исполнения будет передавать поток исполнения в первый
рекурсивный макрос, так называемое продолжение. Нам также понадобиться терминальное
продолжение — ML99_PRIV_REC_STOP — оно будет являться продолжением, поставляющимся
в самый-самый первый рекурсивный макрос, ведь логично, что никуда, кроме как
закончить исполнение программы на данном месте, нам перепрыгивать не нужно. Жилка
двигателя рекурсии — это цепочка из макросов-раскрывателей следующего вида:
*/

#define ML99_PRIV_REC_0(choice, ...)    ML99_PRIV_REC_NEXT(1, choice)(__VA_ARGS__)
#define ML99_PRIV_REC_1(choice, ...)    ML99_PRIV_REC_NEXT(2, choice)(__VA_ARGS__)
#define ML99_PRIV_REC_2(choice, ...)    ML99_PRIV_REC_NEXT(3, choice)(__VA_ARGS__)
#define ML99_PRIV_REC_3(choice, ...)    ML99_PRIV_REC_NEXT(4, choice)(__VA_ARGS__)
#define ML99_PRIV_REC_4(choice, ...)    ML99_PRIV_REC_NEXT(5, choice)(__VA_ARGS__)
#define ML99_PRIV_REC_5(choice, ...)    ML99_PRIV_REC_NEXT(6, choice)(__VA_ARGS__)
#define ML99_PRIV_REC_6(choice, ...)    ML99_PRIV_REC_NEXT(7, choice)(__VA_ARGS__)
#define ML99_PRIV_REC_7(choice, ...)    ML99_PRIV_REC_NEXT(8, choice)(__VA_ARGS__)
#define ML99_PRIV_REC_8(choice, ...)    ML99_PRIV_REC_NEXT(9, choice)(__VA_ARGS__)
#define ML99_PRIV_REC_9(choice, ...)    ML99_PRIV_REC_NEXT(10, choice)(__VA_ARGS__)
//...


//И так до 1023:

Интересно, этот чувак сидит на говнокоде?

j123123, 03 Июля 2021

Комментарии (12)

Си / Говнокод #27477

+3

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30

#include <stdio.h>
#include <stdlib.h>

#define DEREF(x) ({*(x);})
#define PTR(x) ({&(x);})
#define PTR_T(x) typeof(typeof(x) *)
#define DEREF_T(x) typeof( ({typeof(x) DEREF_T; *DEREF_T;}) )


void add5(PTR_T(int) a)
{
  DEREF(a)+= 5;
}

int main(void)
{
  int a = 0;
  printf("%d\n", a);
  add5(PTR(a));
  printf("%d\n", a);
  
  int b = 5;
  PTR_T(b) b_p = PTR(b); // int *
  printf("%d\n", DEREF(b_p) );
  
  DEREF_T(b_p) c = 666; // int
  printf("%d", c);
  
  return EXIT_SUCCESS;
}

https://govnokod.ru/27476#comment637183

ASD_77:
потому что я люблю Си и С++ но ненажижу * и & ... поэтому я решил исправить этот недочет в мире

Исправил, проверь. Компилится только в GCC, всё-таки Clang не 100% совместим c гнутыми расширениями.

j123123, 21 Июня 2021

Комментарии (64)

Си / Говнокод #27420

+2

001
002
003
004
005
006
007
008
009
010
011
012
013
014
015
016
017
018
019
020
021
022
023
024
025
026
027
028
029
030
031
032
033
034
035
036
037
038
039
040
041
042
043
044
045
046
047
048
049
050
051
052
053
054
055
056
057
058
059
060
061
062
063
064
065
066
067
068
069
070
071
072
073
074
075
076
077
078
079
080
081
082
083
084
085
086
087
088
089
090
091
092
093
094
095
096
097
098
099
100

#include <stdio.h>
#include <stdlib.h>
#define RW(a, c) for(src = (a);src < (c); src++, dst++){*dst=*src;} 
void *pairscan(char *p)
{
  size_t p_count = 1;
  do {
    if(*p == 'P') {
      p_count++;
    }
    else {
      p_count--;
    }
    p++;
  } while(p_count != 0);
  return p;
}


void rewrite(char *src, char *dst)
{
  int p_r = 0;
  while(*src == 'P') {
    *dst = *src;
    src++; dst++;
    if (p_r < 3)
    {
      p_r++;
    }
  }
  if(*src == 'I') {
    if(p_r < 1) {
      while(*src != 0) {
        *dst = *src;
        src++; dst++;
      }
      *dst = 0;
      return;
    }
    dst--;
    src++;
    //src = pairscan(src+1);
    while(*src != 0) {
      *dst = *src;
      src++; dst++;
    }
    *dst = 0;
    return;
  }
  if(*src == 'K') {
    if(p_r < 2)
    {
      while(*src != 0) {
        *dst = *src;
        src++; dst++;
      }
      *dst = 0;
      return;
    }
    dst-=2;
    char *exp1 = pairscan(src+1);
    char *exp2 = pairscan(exp1);
    RW(src+1,exp1);
    for(; src < exp2; src++){}
    while(*src != 0) {
      *dst = *src;
      src++; dst++;
    }
    *dst = 0;
    return;
  }
  if(*src == 'S') {
    if(p_r < 3) {
      while(*src != 0){
        *dst = *src;
        src++; dst++;
      }
      *dst = 0;
      return;
    }
    dst-=1;
    char *exp1 = pairscan(src+1);
    char *exp2 = pairscan(exp1);
    char *exp3 = pairscan(exp2);
    RW(src+1,exp1);
    RW(exp2,exp3);    
    *dst = 'P';
    dst++;
    RW(exp1,exp2);
    RW(exp2,exp3);
    while(*src != 0) {
      *dst = *src;
      src++; dst++;
    }
    *dst = 0;
    return;
  }
  *dst = 0;
  return;
}

Кобенаторная логика
SKI combinator calculus

j123123, 11 Мая 2021

Комментарии (35)

Си / Говнокод #27407

0

001
002
003
004
005
006
007
008
009
010
011
012
013
014
015
016
017
018
019
020
021
022
023
024
025
026
027
028
029
030
031
032
033
034
035
036
037
038
039
040
041
042
043
044
045
046
047
048
049
050
051
052
053
054
055
056
057
058
059
060
061
062
063
064
065
066
067
068
069
070
071
072
073
074
075
076
077
078
079
080
081
082
083
084
085
086
087
088
089
090
091
092
093
094
095
096
097
098
099
100

// https://github.com/sergev/bkunix/blob/master/src/bin/pwd.c
void
cat(name)
	char *name;
{
	register int i, j;

	i = -1;
	while (name[++i] != 0);
	if ((off+i+2) > 511) {
		write(2, "pwd: too long path\n", 19);
		exit(1);
	}
	for (j=off+1; j>=0; --j)
		path[j+i+1] = path[j];
	off=i+off+1;
	path[i] = '/';
	for (--i; i>=0; --i)
		path[i] = name[i];
}

char * ckroot(dev, ino)
int dev, ino;
{
	DIR * dir;
	struct stat st;
	register struct dirent * d;
	chdir("/");
	dir = opendir("/");
	do {
		d = readdir(dir);
		if (! d) {
			return "[mount point]";
		}
		stat(d->d_name, &st);
	} while (st.st_dev != dev || st.st_ino != ino);
	closedir(dir);
	return d->d_name;
}

int
main()
{
	int rdev, rino;
	DIR *dir;
	struct stat dot, dotdot;
	register struct dirent *d;

	stat("/", &dot);
	rdev = dot.st_dev;
	rino = dot.st_ino;
/*printf ("/ dev=%d ino=%d\n", rdev, (int) rino);*/
	for (;;) {
		stat(".", &dot);
/*printf (". dev=%d ino=%d\n", (int) dot.st_dev, (int) dot.st_ino);*/
		if (dot.st_ino == rino && dot.st_dev == rdev)
			break;
		dir = opendir("..");
		if (! dir) {
			write(2, "pwd: cannot open ..\n", 20);
			return 1;
		}
		stat("..", &dotdot);
/*printf (".. dev=%d ino=%d\n", (int) dotdot.st_dev, (int) dotdot.st_ino);*/
		chdir("..");
		if (dot.st_dev == dotdot.st_dev) {
			if (dot.st_ino == dotdot.st_ino) {
				cat(ckroot(dot.st_dev, dot.st_ino));
				break;
			}
			do {
				d = readdir(dir);
				if (! d) {
					write(2, "read error in ..\n", 17);
					return 1;
				}
			} while (d->d_ino != dot.st_ino);
		} else {
			do {
				d = readdir(dir);
				if (! d) {
					write(2, "read error in ..\n", 17);
					return 1;
				}
				stat(d->d_name, &dotdot);
/*printf ("%.14s dev=%d ino=%d\n", d->d_name, (int) dotdot.st_dev, (int) dotdot.st_ino);*/
			} while (dotdot.st_ino != dot.st_ino ||
				dotdot.st_dev != dot.st_dev);
		}
		closedir(dir);
		cat(d->d_name);
/*path[off] = 0; printf ("pwd %s\n", path);*/
	}
	write(1, "/", 1);
	if (off < 0)
		off = 0;
	path[off] = '\n';
	write(1, path, off + 1);
	return 0;
}

какой pwd )))

j123123, 09 Мая 2021

Комментарии (15)

Говнокод: по колено в коде.