diff options
| author | Jean-Marc Zucconi <jmz@FreeBSD.org> | 2002-02-22 23:12:23 +0000 |
|---|---|---|
| committer | Jean-Marc Zucconi <jmz@FreeBSD.org> | 2002-02-22 23:12:23 +0000 |
| commit | a84f8427e0b38d00ae4eabae6f0c6ac1f47fd28a (patch) | |
| tree | 64091a193695a8cb4daba0535751ae48a89fd4f8 /lang | |
| parent | - Update to 1.2.5 (diff) | |
Add a few functions in p2clib. This fixes bugs occuring with some pascal code.
Submitted by: joerg
Notes
Notes:
svn path=/head/; revision=55110
Diffstat (limited to 'lang')
| -rw-r--r-- | lang/p2c/Makefile | 1 | ||||
| -rw-r--r-- | lang/p2c/files/patch-a | 45 |
2 files changed, 46 insertions, 0 deletions
diff --git a/lang/p2c/Makefile b/lang/p2c/Makefile index a7ca924323de..1ed87f9338c7 100644 --- a/lang/p2c/Makefile +++ b/lang/p2c/Makefile @@ -7,6 +7,7 @@ PORTNAME= p2c PORTVERSION= 1.21a +PORTREVISION= 1 CATEGORIES= lang MASTER_SITES= ftp://ftp.clara.net/pub/mirrors/gnu/hurd/ \ ftp://ftp.u-aizu.ac.jp/pub/lang/netsw/Pascal/ \ diff --git a/lang/p2c/files/patch-a b/lang/p2c/files/patch-a new file mode 100644 index 000000000000..70a87485e835 --- /dev/null +++ b/lang/p2c/files/patch-a @@ -0,0 +1,45 @@ +--- src/loc.p2clib.c.orig Fri Feb 22 13:13:49 2002 ++++ src/loc.p2clib.c Fri Feb 22 13:12:44 2002 +@@ -4,3 +4,42 @@ + * the symbol LOCAL_INIT when you compile p2clib.c. + */ + ++/* Some Turbo "unit crt" functions. */ ++ ++#include <curses.h> ++#include <term.h> ++ ++static int terminfo_initialized; ++static char *cl, *ce; ++ ++static void initcurs() ++{ ++ if (terminfo_initialized) ++ return; ++ setupterm(0, fileno(stdout), 0); ++ ce = tgetstr("ce", 0); ++ cl = tgetstr("cl", 0); ++ terminfo_initialized = 1; ++} ++ ++void clreol() ++{ ++ initcurs(); ++ if (ce) ++ tputs(ce, 1, putchar); ++} ++ ++void clrscr() ++{ ++ initcurs(); ++ if (cl) ++ tputs(cl, 1, putchar); ++} ++ ++void delay(ms) ++int ms; ++{ ++ usleep(1000 * ms); ++} ++ ++ |