ckb-script 1.1.0

CKB component to run the type/lock scripts
Documentation 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33

#include "ckb_syscalls.h"

#ifdef DEBUG
#include <stdio.h>
#else
#define ckb_debug(...)
#define sprintf(...)
#endif

void try_pause() { syscall(2178, 0, 0, 0, 0, 0, 0); }

int current_cycles() { return syscall(2042, 0, 0, 0, 0, 0, 0); }

int main() {
#ifdef DEBUG
    char message[2048];
#endif
    int prev = current_cycles();
    int curr;
    for (int i = 0; i < 4096; i++) {
        curr = current_cycles();
        sprintf(message, "prev = %d, curr = %d", prev, curr);
        ckb_debug(message);
        if (i > 16) {
            try_pause();
        }
        if (curr <= prev) {
            return -1;
        }
        prev = curr;
    }
    return CKB_SUCCESS;
}