source: libcfa/src/bits/debug.cfa @ 746157e

ADTarm-ehast-experimentalenumforall-pointer-decayjacob/cs343-translationnew-ast-unique-exprpthread-emulationqualifiedEnum
Last change on this file since 746157e was 1c40091, checked in by Peter A. Buhr <pabuhr@…>, 5 years ago

rename cfaabi_dbg_bits_* to cfaabi_bits_*, add fd parameter to cfaabi_bits_* routines

  • Property mode set to 100644
File size: 2.2 KB
Line 
1//
2// Cforall Version 1.0.0 Copyright (C) 2016 University of Waterloo
3//
4// The contents of this file are covered under the licence agreement in the
5// file "LICENCE" distributed with Cforall.
6//
7// debug.c --
8//
9// Author           : Thierry Delisle
10// Created On       : Thu Mar 30 12:30:01 2017
11// Last Modified By : Peter A. Buhr
12// Last Modified On : Thu Nov 21 17:16:30 2019
13// Update Count     : 10
14//
15
16extern "C" {
17#include <stdio.h>
18#include <stdlib.h>
19#include <string.h>
20#include <errno.h>
21#include <stdarg.h>
22#include <unistd.h>
23}
24
25enum { buffer_size = 4096 };
26static char buffer[ buffer_size ];
27
28extern "C" {
29
30        void __cfaabi_bits_write( int fd, const char *in_buffer, int len ) {
31                // ensure all data is written
32                for ( int count = 0, retcode; count < len; count += retcode ) {
33                        in_buffer += count;
34
35                        for ( ;; ) {
36                                retcode = write( fd, in_buffer, len - count );
37
38                                // not a timer interrupt ?
39                                if ( retcode != -1 || errno != EINTR ) break;
40                        }
41
42                        if ( retcode == -1 ) _exit( EXIT_FAILURE );
43                }
44        }
45
46        void __cfaabi_bits_acquire() __attribute__((__weak__)) {}
47        void __cfaabi_bits_release() __attribute__((__weak__)) {}
48
49        void __cfaabi_bits_print_safe  ( int fd, const char fmt[], ... ) __attribute__(( format(printf, 2, 3) )) {
50                va_list args;
51
52                va_start( args, fmt );
53                __cfaabi_bits_acquire();
54
55                int len = vsnprintf( buffer, buffer_size, fmt, args );
56                __cfaabi_bits_write( fd, buffer, len );
57
58                __cfaabi_bits_release();
59                va_end( args );
60        }
61
62        void __cfaabi_bits_print_nolock( int fd, const char fmt[], ... ) __attribute__(( format(printf, 2, 3) )) {
63                va_list args;
64
65                va_start( args, fmt );
66
67                int len = vsnprintf( buffer, buffer_size, fmt, args );
68                __cfaabi_bits_write( fd, buffer, len );
69
70                va_end( args );
71        }
72
73        void __cfaabi_bits_print_vararg( int fd, const char fmt[], va_list args ) {
74                int len = vsnprintf( buffer, buffer_size, fmt, args );
75                __cfaabi_bits_write( fd, buffer, len );
76        }
77
78        void __cfaabi_bits_print_buffer( int fd, char in_buffer[], int in_buffer_size, const char fmt[], ... ) __attribute__(( format(printf, 4, 5) )) {
79                va_list args;
80
81                va_start( args, fmt );
82
83                int len = vsnprintf( in_buffer, in_buffer_size, fmt, args );
84                __cfaabi_bits_write( fd, in_buffer, len );
85
86                va_end( args );
87        }
88}
Note: See TracBrowser for help on using the repository browser.