diff options
Diffstat (limited to 'src/test/ao_scheme_os.h')
| -rw-r--r-- | src/test/ao_scheme_os.h | 68 | 
1 files changed, 0 insertions, 68 deletions
| diff --git a/src/test/ao_scheme_os.h b/src/test/ao_scheme_os.h deleted file mode 100644 index ebd16bb4..00000000 --- a/src/test/ao_scheme_os.h +++ /dev/null @@ -1,68 +0,0 @@ -/* - * Copyright © 2016 Keith Packard <keithp@keithp.com> - * - * This program is free software; you can redistribute it and/or modify - * it under the terms of the GNU General Public License as published by - * the Free Software Foundation; version 2 of the License. - * - * This program is distributed in the hope that it will be useful, but - * WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU - * General Public License for more details. - * - * You should have received a copy of the GNU General Public License along - * with this program; if not, write to the Free Software Foundation, Inc., - * 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. - */ - -#ifndef _AO_LISP_OS_H_ -#define _AO_LISP_OS_H_ - -#include <stdio.h> -#include <stdlib.h> -#include <time.h> - -#define AO_LISP_POOL_TOTAL	16384 -#define AO_LISP_SAVE		1 -#define DBG_MEM_STATS		1 - -extern int ao_lisp_getc(void); - -static inline void -ao_lisp_os_flush() { -	fflush(stdout); -} - -static inline void -ao_lisp_abort(void) -{ -	abort(); -} - -static inline void -ao_lisp_os_led(int led) -{ -	printf("leds set to 0x%x\n", led); -} - -#define AO_LISP_JIFFIES_PER_SECOND	100 - -static inline void -ao_lisp_os_delay(int jiffies) -{ -	struct timespec ts = { -		.tv_sec = jiffies / AO_LISP_JIFFIES_PER_SECOND, -		.tv_nsec = (jiffies % AO_LISP_JIFFIES_PER_SECOND) * (1000000000L / AO_LISP_JIFFIES_PER_SECOND) -	}; -	nanosleep(&ts, NULL); -} - -static inline int -ao_lisp_os_jiffy(void) -{ -	struct timespec tp; -	clock_gettime(CLOCK_MONOTONIC, &tp); -	return tp.tv_sec * AO_LISP_JIFFIES_PER_SECOND + (tp.tv_nsec / (1000000000L / AO_LISP_JIFFIES_PER_SECOND)); -} - -#endif | 
