mirror/freebsd-ports
1
0
Fork 0
mirror of https://git.FreeBSD.org/ports.git synced 2025-01-11 07:22:22 +00:00
Code Issues Releases Activity

Korean version of GNU editing macros.

Browse Source 
PR:		ports/6011
Submitted by:	CHOI Junho <junker@jazz.snu.ac.kr>
This commit is contained in:
Jun Kuriyama 1998-05-17 22:26:00 +00:00
parent 824afe869e
commit 3367e70dd1
Notes: svn2git 2021-03-31 03:12:20 +00:00 
svn path=/head/; revision=11027
11 changed files with 2286 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

44
korean/hanemacs/Makefile Normal file
View File

@ -0,0 +1,44 @@
# New ports collection makefile for: hanemacs
# Version required: 19.34b-2
# Date created: 12 Mar 1998
# Whom: CHOI Junho <junker@jazz.snu.ac.kr>
#
# $Id$
#
DISTNAME= hanemacs-19.34b-1
PKGNAME= ko-hanemacs-19.34b1
CATEGORIES= korean editors
MASTER_SITES= ftp://ftp.kaist.ac.kr/pub/hangul/editor/HanEmacs/ \
ftp://ftp.kreonet.re.kr/pub/hangul/cair-archive/editor/HanEmacs/
MAINTAINER= junker@jazz.snu.ac.kr
WRKSRC= ${WRKDIR}/hanemacs-19.34
GNU_CONFIGURE= yes
USE_GMAKE= yes
CONFIGURE_ARGS= i386--freebsd --with-x-toolkit --prefix=${PREFIX}
STRIP=
MAN1= emacs.1 etags.1 ctags.1
pre-build:
@cd ${WRKSRC}; \
for file in \
hanemacs.README hanemacs_manual.ks \
hanemacs_manual.ps hanemacs_manual.txt; do \
${CP} $$file etc/; \
done; \
${CP} ${FILESDIR}/site-init.el lisp/
post-install:
.for file in hanemacs-19.34 emacsclient etags ctags b2m
strip ${PREFIX}/bin/${file}
.endfor
if [ ! -f ${PREFIX}/info/dir ]; then \
${SED} -ne '1,/Menu:/p' /usr/share/info/dir > ${PREFIX}/info/dir; \
fi
.for info in emacs vip viper forms gnus mh-e cl sc dired-x ediff ccmode message
install-info ${PREFIX}/info/${info} ${PREFIX}/info/dir
.endfor
.include <bsd.port.mk>

1
korean/hanemacs/distinfo Normal file
View File

@ -0,0 +1 @@
MD5 (hanemacs-19.34b-1.tar.gz) = 4804e68794084a4a638bf434115ed09b

199
korean/hanemacs/files/patch-aa Normal file
View File

@ -0,0 +1,199 @@
--- ./man/vip.texi.org Fri Jun 16 15:31:11 1995
+++ ./man/vip.texi Tue May 20 01:28:33 1997
@@ -2,6 +2,10 @@
@setfilename ../info/vip
@settitle VIP
+@dircategory The Emacs editor and associated tools
+@direntry
+* VIP: (vip). A VI-emulation for Emacs.
+@end direntry
@iftex
@finalout
--- ./man/emacs.texi.org Mon Aug 19 21:15:12 1996
+++ ./man/emacs.texi Tue May 20 01:20:11 1997
@@ -49,6 +49,11 @@
@settitle GNU Emacs Manual
@setfilename ../info/emacs
@synindex pg cp
+@dircategory The Emacs editor and associated tools
+@direntry
+* Emacs: (emacs). The extensible self-documenting text editor.
+@end direntry
+
@c
@c in general, keep the following line commented out, unless doing a
@c copy of this manual that will be published. the manual should go
--- ./man/viper.texi.org Wed Aug 7 10:59:45 1996
+++ ./man/viper.texi Tue May 20 01:29:17 1997
@@ -4,6 +4,10 @@
\input texinfo
@setfilename ../info/viper
+@dircategory The Emacs editor and associated tools
+@direntry
+* VIPER: (viper). The new VI-emulation mode in Emacs-19.29.
+@end direntry
@iftex
@finalout
--- ./man/forms.texi.org Sat Mar 23 06:42:27 1996
+++ ./man/forms.texi Tue May 20 01:22:37 1997
@@ -9,6 +9,11 @@
@syncodeindex vr cp
@syncodeindex fn cp
@syncodeindex ky cp
+@dircategory The Emacs editor and associated tools
+@direntry
+* Forms: (forms). Emacs package for editing data bases
+ by filling in forms.
+@end direntry
@iftex
@finalout
@setchapternewpage odd
--- ./man/gnus.texi.org Wed Jun 26 14:49:29 1996
+++ ./man/gnus.texi Tue May 20 01:23:15 1997
@@ -5,6 +5,11 @@
@synindex fn cp
@synindex vr cp
@synindex pg cp
+@dircategory The Emacs editor and associated tools
+@direntry
+* GNUS: (gnus). The news reader GNUS.
+@end direntry
+
@iftex
@finalout
@end iftex
--- ./man/mh-e.texi.org Sun Aug 4 00:00:29 1996
+++ ./man/mh-e.texi Tue May 20 01:23:49 1997
@@ -4,6 +4,10 @@
@setfilename ../info/mh-e
@settitle mh-e
@c %**end of header
+@dircategory The Emacs editor and associated tools
+@direntry
+* MH-E: (mh-e). Emacs interface to the MH mail system.
+@end direntry
@setchapternewpage odd
--- ./man/cl.texi.org Mon Apr 15 21:36:53 1996
+++ ./man/cl.texi Tue May 20 01:24:18 1997
@@ -2,6 +2,12 @@
@setfilename ../info/cl
@settitle Common Lisp Extensions
+@dircategory The Emacs editor and associated tools
+@direntry
+* CL: (cl). Partial Common Lisp support for Emacs Lisp.
+@end direntry
+
+
@iftex
@finalout
@end iftex
--- ./man/sc.texi.org Thu Jan 4 12:55:23 1996
+++ ./man/sc.texi Tue May 20 01:25:13 1997
@@ -3,6 +3,12 @@
@comment %**start of header (This is for running Texinfo on a region.)
@setfilename ../info/sc
@settitle Supercite Version 3.1 User's Manual
+@dircategory The Emacs editor and associated tools
+@direntry
+* SC: (sc). Supercite lets you cite parts of messages
+ you're replying to, in flexible ways.
+@end direntry
+
@iftex
@finalout
@end iftex
--- ./man/dired-x.texi.org Thu Jan 4 12:54:19 1996
+++ ./man/dired-x.texi Tue May 20 01:25:55 1997
@@ -18,6 +18,11 @@
@setfilename ../info/dired-x
@c dired-x.el REVISION NUMBER
@settitle Dired Extra Version 2 User's Manual
+@dircategory The Emacs editor and associated tools
+@direntry
+* Dired-X: (dired-x). Dired Extra Features.
+@end direntry
+
@iftex
@finalout
@end iftex
--- ./man/ediff.texi.org Fri Jun 21 20:00:04 1996
+++ ./man/ediff.texi Tue May 20 01:26:29 1997
@@ -10,6 +10,11 @@
@synindex vr cp
@synindex fn cp
@synindex pg cp
+@dircategory The Emacs editor and associated tools
+@direntry
+* Ediff: (ediff). A comprehensive visual interface to diff
+ and patch.
+@end direntry
@iftex
@finalout
@end iftex
--- ./man/cc-mode.texi.org Sun Aug 4 21:56:21 1996
+++ ./man/cc-mode.texi Tue May 20 01:27:18 1997
@@ -9,6 +9,12 @@
@settitle CC-MODE Version 4 Documentation
@footnotestyle end
+@dircategory The Emacs editor and associated tools
+@direntry
+* CC mode: (ccmode). The GNU Emacs mode for editing C, C++,
+ Objective-C and Java code.
+@end direntry
+
@comment !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
@comment @setchapternewpage odd !! we don't want blank pages !!
@comment %**end of header (This is for running Texinfo on a region)
--- ./man/message.texi.org Wed Jun 26 14:49:43 1996
+++ ./man/message.texi Sat Dec 13 17:46:31 1997
@@ -5,6 +5,10 @@
@synindex fn cp
@synindex vr cp
@synindex pg cp
+@dircategory The Emacs editor and associated tools
+@direntry
+* Message: (message). Editing mail and news messages.
+@end direntry
@iftex
@finalout
@end iftex
--- ./man/Makefile.in.org Thu Jun 27 15:27:19 1996
+++ ./man/Makefile.in Tue Apr 15 00:29:52 1997
@@ -13,7 +13,7 @@
# The makeinfo program is part of the Texinfo distribution.
MAKEINFO = makeinfo
INFO_TARGETS = ../info/emacs ../info/ccmode ../info/cl ../info/dired-x \
- ../info/ediff ../info/forms ../info/gnus ../info/info \
+ ../info/ediff ../info/forms ../info/gnus \
../info/mh-e ../info/sc ../info/vip ../info/viper \
../info/message
DVI_TARGETS = emacs.dvi cc-mode.dvi cl.dvi dired-x.dvi ediff.dvi forms.dvi \
@@ -66,6 +66,7 @@
${srcdir}/gnu1.texi \
${srcdir}/glossary.texi
+all: info
info: $(INFO_TARGETS)
dvi: $(DVI_TARGETS)
@@ -74,12 +75,6 @@
# in srcdir. There is no provision for Info files
# to exist in the build directory.
# In a distribution of Emacs, the Info files should be up to date.
-
-../info/info: ${INFOSOURCES}
- cd $(srcdir); $(MAKEINFO) --no-split info.texi
-
-info.dvi: ${INFOSOURCES}
- TEXINPUTS="$(srcdir) $(TEXINPUTS)"; $(TEXI2DVI) ${srcdir}/info.texi
../info/emacs: ${EMACSSOURCES}
cd $(srcdir); $(MAKEINFO) emacs.texi

11
korean/hanemacs/files/patch-ab Normal file
View File

@ -0,0 +1,11 @@
--- ./src/xrdb.c.org Sat Apr 8 21:54:08 1995
+++ ./src/xrdb.c Mon Sep 11 21:53:29 1995
@@ -361,7 +361,7 @@
/* Producing databases for individual sources. */
-#define X_DEFAULT_SEARCH_PATH "/usr/lib/X11/%L/%T/%N%C%S:/usr/lib/X11/%l/%T/%N%C%S:/usr/lib/X11/%T/%N%C%S:/usr/lib/X11/%L/%T/%N%S:/usr/lib/X11/%l/%T/%N%S:/usr/lib/X11/%T/%N%S"
+#define X_DEFAULT_SEARCH_PATH "/usr/X11R6/lib/X11/%L/%T/%N%C%S:/usr/X11R6/lib/X11/%l/%T/%N%C%S:/usr/X11R6/lib/X11/%T/%N%C%S:/usr/X11R6/lib/X11/%L/%T/%N%S:/usr/X11R6/lib/X11/%l/%T/%N%S:/usr/X11R6/lib/X11/%T/%N%S"
static XrmDatabase
get_system_app (class)

38
korean/hanemacs/files/patch-ac Normal file
View File

@ -0,0 +1,38 @@
--- src/s/freebsd.h.orig Sun Jun 9 13:14:32 1996
+++ src/s/freebsd.h Wed Dec 3 17:36:40 1997
@@ -33,9 +33,16 @@
#define LIBS_DEBUG
#define LIBS_SYSTEM -lutil
-#define LIBS_TERMCAP -ltermcap
#define LIB_GCC -lgcc
+#ifdef HAVE_LIBNCURSES
+#define TERMINFO
+#define LIBS_TERMCAP -lncurses
+#else
+#define LIBS_TERMCAP -ltermcap
+#endif
+
+
#define SYSV_SYSTEM_DIR
/* freebsd has POSIX-style pgrp behavior. */
@@ -46,7 +53,7 @@
#define LD_SWITCH_SYSTEM -e start -dc -dp
#define HAVE_TEXT_START /* No need to define `start_of_text'. */
#define START_FILES pre-crt0.o /usr/lib/crt0.o
-#define UNEXEC unexsunos4.o
+#define UNEXEC unexfreebsd.o
#define RUN_TIME_REMAP
#ifndef N_TRELOFF
@@ -80,6 +87,8 @@
#define BSD 199103
#elif __FreeBSD__ == 2
#define BSD 199306
+#elif __FreeBSD__ == 3
+#define BSD 199506
#endif
#define WAITTYPE int

695
korean/hanemacs/files/patch-ad Normal file
View File

@ -0,0 +1,695 @@
--- src/unexfreebsd.c.orig Wed Dec 3 17:28:14 1997
+++ src/unexfreebsd.c Wed Dec 3 17:34:02 1997
@@ -0,0 +1,692 @@
+/* Code to do an unexec for FreeBSD for a temacs linked -Bdynamic.
+ Derived from unexnetbsd.c, which was derived from unexsunos4.c
+ Copyright (C) 1992, 1993 Free Software Foundation, Inc.
+
+This file is part of XEmacs.
+
+XEmacs 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; either version 2, or (at your option) any
+later version.
+
+XEmacs 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 XEmacs; see the file COPYING. If not, write to
+the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+Boston, MA 02111-1307, USA. */
+
+/* Synched up with: Not in FSF? */
+
+/*
+Created 29-Oct-92 by Harlan Sexton
+Tweaked 06-Aug-93 by Dean Michaels to work with sun3.
+Converted 01-Dec-93 by Paul Mackerras to work with NetBSD shared libraries.
+Tweaked 26-Feb-94 by Shawn Carey for use with FreeBSD-1.1 shared libraries.
+*/
+
+/********************** Included .h Files **************************/
+
+#include <config.h>
+
+#include <stdarg.h>
+#include <sys/param.h>
+#include <sys/mman.h>
+#include <sys/file.h>
+#include <sys/stat.h>
+#include <sys/types.h>
+#include <string.h>
+#include <stdio.h>
+#include <a.out.h>
+#include <unistd.h>
+#include <ctype.h>
+#include <stab.h>
+#include <dirent.h>
+#include <link.h>
+
+/********************** Macros *************************************/
+
+#define SYS_ERR strerror(errno)
+
+#define MASK_UP(x,p_of_two) \
+ ((((unsigned long) (x)) + ((p_of_two) - 1)) & (~((p_of_two) - 1)))
+
+#define MASK_DOWN(x,p_of_two) (((unsigned long) (x)) & (~((p_of_two) - 1)))
+
+/********************** Typedefs and Structs ***********************/
+
+struct translation_struct
+{
+ long txtaddr;
+ long txtoff;
+ long dataddr;
+ long datoff;
+ long bssaddr;
+ long endaddr;
+};
+
+/********************** Function Prototypes/Declarations ***********/
+
+static void unexec_error (const char *m, int use_errno, ...);
+static int unexec_open (char *filename, int flag, int mode);
+static caddr_t unexec_mmap (int fd, size_t len, int prot, int flags);
+static long unexec_seek (int fd, long position);
+static void unexec_read (int fd, long position, char *buf, int bytes);
+static void unexec_write (int fd, long position, char *buf, int bytes);
+static void unexec_pad (int fd, int bytes);
+static void unexec_fstat (int fd, struct stat *statptr);
+static void unexec_fchmod (int fd, int mode);
+static long unexec_addr_to_offset (long addr, struct translation_struct *ts);
+static void copy_relocation_site (struct relocation_info *ri,
+ caddr_t from_base_addr,
+ caddr_t to_base_addr,
+ struct translation_struct *ts);
+static void reset_symtab (struct nlist *start, struct nlist *end,
+ char *strtab, long edata_value, long end_value,
+ int shlib_image);
+static void reset_ldso_symtab (struct nzlist *start, struct nzlist *end,
+ char *strtab, long edata_value, long end_value,
+ int shlib_image);
+int run_time_remap (char *dummy);
+
+/********************** Variables **********************************/
+
+/* for reporting error messages from system calls */
+extern int errno;
+extern int _DYNAMIC;
+extern char **environ;
+
+static unsigned long sbrk_of_0_at_unexec;
+
+/*******************************************************************/
+
+static void
+unexec_error (const char *fmt, int use_errno, ...)
+{
+ const char *err_msg = SYS_ERR;
+ va_list args;
+
+ fprintf (stderr, "unexec - ");
+ va_start (args, use_errno);
+ vfprintf (stderr, fmt, args);
+ va_end (args);
+
+ if (use_errno)
+ fprintf (stderr, ": %s", err_msg);
+ fprintf (stderr, "\n");
+ exit (1);
+ return;
+}
+
+static int
+unexec_open (char *filename, int flag, int mode)
+{
+ int fd;
+
+ errno = 0;
+
+ fd = open (filename, flag, mode);
+
+ if (fd < 0)
+ unexec_error ("Failure opening file %s", 1, filename);
+ return fd;
+}
+
+static caddr_t
+unexec_mmap (int fd, size_t len, int prot, int flags)
+{
+ caddr_t return_val;
+
+ unexec_seek (fd, 0);
+ errno = 0;
+ return_val = mmap (0, len, prot, flags, fd, 0);
+
+ if (return_val == (caddr_t) -1)
+ unexec_error ("Failure mmap'ing file", 1);
+ return return_val;
+}
+
+
+static long
+unexec_seek (int fd, long position)
+{
+ long seek_value;
+
+ if (fd <= 0)
+ unexec_error ("No file open in which to seek", 0);
+
+ errno = 0;
+
+ if (position < 0)
+ seek_value = (long) lseek (fd, 0, L_INCR);
+ else
+ seek_value = (long) lseek (fd, position, L_SET);
+
+ if (seek_value < 0)
+ unexec_error ("Failed to do a seek to 0x%x in %s", 1,
+ position, "unexec() output file");
+
+ return seek_value;
+}
+
+static void
+unexec_read (int fd, long position, char *buf, int bytes)
+{
+ int n_read;
+ int remains = bytes;
+ position = unexec_seek (fd, position);
+
+ if (bytes < 0)
+ unexec_error ("Attempted read of %d bytes", 0, bytes);
+
+ errno = 0;
+
+ while (remains > 0)
+ {
+ n_read = read (fd, buf, remains);
+ if (n_read <= 0)
+ unexec_error ("Read failed for 0x%x bytes at offset 0x%x in %s",
+ 1, bytes, position, "unexec() output file");
+ buf += n_read;
+ remains -= n_read;
+ }
+
+ return;
+}
+
+static void
+unexec_write (int fd, long position, char *buf, int bytes)
+{
+ int n_written;
+ int remains = bytes;
+ position = unexec_seek (fd, position);
+
+ if (bytes < 0)
+ unexec_error ("Attempted write of %d bytes in %s",
+ 0, bytes, "unexec() output file");
+
+ errno = 0;
+
+ while (remains > 0)
+ {
+ n_written = write (fd, buf, remains);
+ if (n_written <= 0)
+ unexec_error ("Write failed for 0x%x bytes at offset 0x%x in %s",
+ 1, bytes, position, "unexec() output file");
+ buf += n_written;
+ remains -= n_written;
+ }
+
+ return;
+}
+
+static void
+unexec_pad (int fd, int bytes)
+{
+ if (bytes > 0)
+ {
+ char buf[1024];
+ int remaining = bytes;
+
+ memset (buf, 0, sizeof (buf));
+
+ while (remaining > 0)
+ {
+ int this_write = (remaining > sizeof(buf))?sizeof(buf):remaining;
+ unexec_write (fd, -1, buf, this_write);
+ remaining -= this_write;
+ }
+ }
+}
+
+static void
+unexec_fstat (int fd, struct stat *statptr)
+{
+ errno = 0;
+ if (-1 == fstat (fd, statptr))
+ unexec_error ("fstat() failed for descriptor %d", 1, fd);
+ return;
+}
+
+static void
+unexec_fchmod (int fd, int mode)
+{
+ errno = 0;
+ if (-1 == fchmod (fd, mode))
+ unexec_error ("fchmod() failed for descriptor %d", 1, fd);
+ return;
+}
+
+static long
+unexec_addr_to_offset (long addr, struct translation_struct *ts)
+
+{
+ if ((addr < ts->txtaddr) || (addr >= ts->bssaddr))
+ return -1;
+ else if (addr >= ts->dataddr)
+ return ((long) ((addr - ts->dataddr) + ts->datoff));
+ else
+ return ((long) ((addr - ts->txtaddr) + ts->txtoff));
+}
+
+
+/*
+ * "LD.SO" DATA AND SYMBOL TABLE OPERATIONS
+ */
+
+static void
+copy_relocation_site (struct relocation_info *ri,
+ caddr_t from_base_addr,
+ caddr_t to_base_addr,
+ struct translation_struct *ts)
+{
+ long offset;
+ caddr_t from, to;
+
+ /* We can get relocation sites in the bss region, for objects whose
+ contents are copied from a shared library. We don't need or want
+ to restore these at present. */
+#ifndef sparc
+ if (ri->r_copy)
+ return;
+#else
+ /* Struct relocation_info_sparc doesn't have member r_copy.
+ Instead, we use the address to check if this is run-time-copied. */
+ if (ri->r_address >= ts->bssaddr && ri->r_address < ts->endaddr)
+ return;
+#endif
+
+ offset = unexec_addr_to_offset (ri->r_address, ts);
+ if (offset == -1)
+ unexec_error ("bad relocation address 0x%x (0x%x)", 0, ri->r_address,
+ ((long *)ri)[1]);
+
+ from = from_base_addr + offset;
+ to = to_base_addr + offset;
+ /* This stuff should be in a md_ file somewhere... */
+#ifndef sparc
+ switch (ri->r_length)
+ {
+ case 0:
+ *((char *) to) = *((char *) from);
+ break;
+ case 1:
+ *((short *) to) = *((short *) from);
+ break;
+ case 2:
+ *((long *) to) = *((long *) from);
+ break;
+ default:
+ unexec_error ("unknown reloc length %d seen during unexec()",
+ 0, ri->r_length);
+ break;
+ }
+#else /* sparc */
+ switch (ri->r_type)
+ {
+ case RELOC_8:
+ case RELOC_DISP8:
+ *((char *) to) = *((char *) from);
+ break;
+ case RELOC_16:
+ case RELOC_DISP16:
+ *((short *) to) = *((short *) from);
+ break;
+ case RELOC_LO10:
+ case RELOC_13:
+ case RELOC_22:
+ case RELOC_HI22:
+ case RELOC_WDISP22:
+ case RELOC_WDISP30:
+ case RELOC_32:
+ case RELOC_DISP32:
+ case RELOC_GLOB_DAT:
+ *((long *) to) = *((long *) from);
+ break;
+ case RELOC_JMP_SLOT:
+ {
+ long *target = (long *) to;
+ long *source = (long *) from;
+ *target = *source;
+ target++;
+ source++;
+ *target = *source;
+ target++;
+ source++;
+ *target = *source;
+ }
+ break;
+ default:
+ unexec_error ("unknown reloc type %d seen during unexec()",
+ 0, ri->r_type);
+ break;
+ }
+#endif /* sparc */
+}
+
+static void
+reset_symtab (struct nlist *start, struct nlist *end, char *strtab,
+ long edata_value, long end_value, int shlib_image)
+{
+ struct nlist *tmp = start;
+ int found_edata = 0;
+ int found_end = 0;
+
+ while (tmp < end)
+ {
+ int type = tmp->n_type;
+
+ if ((type == (N_UNDF | N_EXT)) &&
+ (tmp->n_value != 0))
+ unexec_error ("unexec'ing image has COMMON symbols in it -- we quit!",
+ 0);
+
+ if (!(type & N_STAB))
+ {
+ if (!found_edata &&
+ (type == (N_EXT | N_DATA)) &&
+ tmp->n_un.n_strx &&
+ !strcmp ("_edata", strtab + tmp->n_un.n_strx))
+ {
+ tmp->n_value = edata_value;
+ found_edata = 1;
+ }
+
+
+ if ((type & N_TYPE) == N_BSS)
+ {
+ if (!found_end &&
+ (type == (N_EXT | N_BSS)) &&
+ tmp->n_un.n_strx &&
+ !strcmp ("_end", strtab + tmp->n_un.n_strx))
+ {
+ tmp->n_value = end_value;
+ found_end = 1;
+ }
+ else if (type & N_EXT)
+ tmp->n_type = N_DATA | N_EXT;
+ else
+ tmp->n_type = N_DATA;
+ }
+
+ /* the way things are being handled here, having sbrk() in the
+ image is fatal for an image linked with shared lib's (although
+ the code could be modified to support it), but this should
+ never happen anyway */
+ if (shlib_image &&
+ (type == (N_EXT | N_TEXT)) &&
+ tmp->n_un.n_strx &&
+ !strcmp ("_sbrk", strtab + tmp->n_un.n_strx))
+ unexec_error ("unexec'd shlib image has sbrk() in it -- we quit!",
+ 0);
+ }
+
+ tmp++;
+ }
+}
+
+static void
+reset_ldso_symtab (struct nzlist *start, struct nzlist *end, char *strtab,
+ long edata_value, long end_value, int shlib_image)
+{
+ struct nzlist *tmp = start;
+ int found_edata = 0;
+ int found_end = 0;
+
+ while (tmp < end) {
+ int type = tmp->nz_type;
+/*
+ * the following code breaks under FreeBSD-1.1-BETA, but everything
+ * seems to work perfectly if it's commented out. This did not break
+ * anything until the changes to ld.so were made.
+ */
+/*
+ if ((type == (N_UNDF | N_EXT)) && (tmp->nz_value != 0))
+ unexec_error("unexec'ing image has COMMON symbols in rel -- we quit!",0);
+*/
+ if (!(type & N_STAB)) {
+ if (!found_edata &&
+ (type == (N_EXT | N_DATA)) &&
+ !strcmp ("_edata", strtab + tmp->nz_strx)) {
+ tmp->nz_value = edata_value;
+ found_edata = 1;
+ }
+
+ if ((type & N_TYPE) == N_BSS) {
+ if (!found_end &&
+ (type == (N_EXT | N_BSS)) &&
+ !strcmp ("_end", strtab + tmp->nz_strx)) {
+ tmp->nz_value = end_value;
+ found_end = 1;
+ } else if (type & N_EXT)
+ tmp->nz_type = N_DATA | N_EXT;
+ else
+ tmp->nz_type = N_DATA;
+ }
+
+ /* the way things are being handled here, having sbrk() in the
+ image is fatal for an image linked with shared lib's (although
+ the code could be modified to support it), but this should
+ never happen anyway */
+ if (shlib_image &&
+ (type == (N_EXT | N_TEXT)) &&
+ !strcmp ("_sbrk", strtab + tmp->nz_strx))
+ unexec_error("unexec'd shlib image has sbrk() ref -- we quit!", 0);
+ }
+ tmp++;
+ }
+}
+
+extern int getpagesize (void);
+
+/*
+ * EXPORTED FUNCTIONS
+ */
+
+/* this has to be a global variable to prevent the optimizers from
+ * assuming that it can not be 0.
+*/
+static void *dynamic_addr = (void *) &_DYNAMIC;
+
+int
+unexec (char *new_name, char *old_name,
+ unsigned int emacs_edata, unsigned int dummy1, unsigned int dummy2)
+{
+ /* ld.so data */
+ struct _dynamic *ld = 0;
+ struct section_dispatch_table *ld2 = 0;
+ /* old and new state */
+ int old_fd;
+ int new_fd;
+ caddr_t old_base_addr;
+ caddr_t new_base_addr;
+ struct exec old_hdr;
+ struct exec new_hdr;
+ struct stat old_buf;
+ struct stat new_buf;
+ /* some process specific "constants" */
+ unsigned long n_pagsiz, new_edata;
+ long page_size = getpagesize ();
+ caddr_t plt_end;
+ caddr_t current_break = (caddr_t) sbrk (0);
+
+ if (!page_size)
+ unexec_error ("unexec() failed because we can't get the size of a page!",
+ 0);
+
+ /* see if this is a -Bdynamic image -- if so, find ld.so structures */
+ if (dynamic_addr)
+ {
+ ld = (struct _dynamic *) dynamic_addr;
+ ld2 = ld->d_un.d_sdt;
+ if (ld->d_version < LD_VERSION_BSD)
+ unexec_error ("%s linked with obsolete version of ld -- we quit!",
+ 0, old_name);
+ }
+
+ /* open the old and new files, figuring out how big the old one is
+ so that we can map it in */
+ old_fd = unexec_open (old_name, O_RDONLY, 0);
+ new_fd = unexec_open (new_name, O_RDWR | O_CREAT | O_TRUNC, 0666);
+
+ /* setup the header and the statbuf for old_fd */
+ unexec_read (old_fd, 0, (char *) &old_hdr, sizeof (old_hdr));
+ unexec_fstat (old_fd, &old_buf);
+
+
+ /* set up some important constants */
+ n_pagsiz = __LDPGSZ;
+ if (dynamic_addr)
+ plt_end = (caddr_t) MASK_UP (ld2->sdt_plt + ld2->sdt_plt_sz, sizeof (double));
+ else
+ plt_end = (caddr_t) N_DATADDR (old_hdr);
+
+#if 0
+ /* never write protect the variable "environ", defined in /lib/crt0.o, and
+ set in process.c and callproc.c */
+ mprotect_bottom_addr = ((unsigned long) &environ) + sizeof (char **);
+ /* never protect ABOVE the end of data emacs_edata specified */
+ mprotect_top_addr = MIN (emacs_edata, N_DATADDR (old_hdr) + old_hdr.a_data);
+#endif
+
+ /* Set up the image of the old file */
+ old_base_addr = unexec_mmap (old_fd, old_buf.st_size, PROT_READ,
+ MAP_FILE | MAP_PRIVATE);
+ close (old_fd);
+
+ /* set up the new exec */
+ new_hdr = old_hdr;
+ new_edata = (unsigned long) MASK_UP (current_break, n_pagsiz);
+ new_hdr.a_data = new_edata - ((unsigned long) N_DATADDR (old_hdr));
+ new_hdr.a_bss = 0;
+
+ /* set up this variable, in case we want to reset "the break"
+ when restarting */
+ sbrk_of_0_at_unexec = ((unsigned long) MASK_UP (current_break, n_pagsiz));
+
+ /* Write out the first approximation to the new file. The sizes of
+ each section will be correct, but there will be a number of
+ corrections that will need to be made. */
+ {
+ long old_datoff = N_DATOFF (old_hdr);
+ long old_dataddr = N_DATADDR (old_hdr);
+ long new_treloff = N_RELOFF (new_hdr);
+ long old_treloff = N_RELOFF (old_hdr);
+ long ld_so_size = ((unsigned long) plt_end) - old_dataddr;
+ long real_data_size = current_break - plt_end;
+ long pad_size =
+ MASK_UP (current_break, n_pagsiz) - ((unsigned long) current_break);
+
+
+ /* First, write the text segment with new header -- copy everything until
+ the start of the data segment from the old file, and then go back and
+ write the new header. */
+ unexec_write (new_fd, 0, old_base_addr, old_datoff + ld_so_size);
+ unexec_write (new_fd, 0, (char *) &new_hdr, sizeof (new_hdr));
+
+ /* Copy the rest of the data segment from the running image. */
+ unexec_write (new_fd, old_datoff + ld_so_size,
+ plt_end, real_data_size);
+
+ /* pad out the data segment */
+ unexec_pad (new_fd, pad_size);
+
+ /* Finally, copy the symbol table information from the old file. */
+ unexec_write (new_fd, new_treloff,
+ old_base_addr + old_treloff,
+ old_buf.st_size - old_treloff);
+ }
+
+
+ /* Next, map in the output file so that we can jump around fixing it
+ up. We retain the old file so that we can refer to it. */
+ unexec_fstat (new_fd, &new_buf);
+ new_base_addr = unexec_mmap (new_fd,
+ MASK_UP (new_buf.st_size, page_size),
+ PROT_READ | PROT_WRITE,
+ MAP_FILE | MAP_SHARED);
+
+
+
+ /* We need to do 2 things. First, make sure that _edata and _end (and
+ hence, curbrk) are set to the correct values. At the same time, for
+ neatness and to help with debugging, mark all the types of all ld.so
+ and nm BSS symbols in the new file to be DATA, and make sure that
+ there are no COMMON symbols in the output file, as any references to
+ these can lose really big. Second, reset all of the ld.so "relocation
+ sites" in the new file to have the values that appear in the old file
+ -- the failure to do this was the biggest loser in the old version of
+ this code. */
+
+ /* STEP 1 */
+ /* Reset the regular symbol table first. */
+ reset_symtab ((struct nlist *) (new_base_addr + N_SYMOFF(new_hdr)),
+ (struct nlist *) (new_base_addr + N_SYMOFF(new_hdr) +
+ new_hdr.a_syms),
+ (char *) (new_base_addr + N_STROFF(new_hdr)),
+ new_edata, new_edata,
+ !!dynamic_addr);
+
+ /* Now reset the ld.so symbol table. */
+ if (dynamic_addr)
+ {
+ struct translation_struct ts;
+ struct relocation_info *tmp, *end;
+ caddr_t syms, strings;
+
+ /* set up the structure that we use to translate addresses in the
+ old file into file offsets */
+ ts.txtaddr = N_TXTADDR (old_hdr);
+ ts.txtoff = N_TXTOFF (old_hdr);
+ ts.dataddr = N_DATADDR (old_hdr);
+ ts.datoff = N_DATOFF (old_hdr);
+ ts.bssaddr = N_DATADDR (old_hdr) + old_hdr.a_data;
+ ts.endaddr = ts.bssaddr + old_hdr.a_bss;
+
+ syms = new_base_addr + unexec_addr_to_offset(ld2->sdt_nzlist, &ts);
+ strings = new_base_addr + unexec_addr_to_offset(ld2->sdt_strings, &ts);
+ reset_ldso_symtab ((struct nzlist *) syms, (struct nzlist *) strings,
+ (char *) strings,
+ new_edata, new_edata,
+ !!dynamic_addr);
+
+ /* STEP 2 */
+ tmp = (struct relocation_info *)
+ (old_base_addr + unexec_addr_to_offset(ld2->sdt_rel, &ts));
+ end = (struct relocation_info *)
+ (old_base_addr + unexec_addr_to_offset(ld2->sdt_hash, &ts));
+ while (tmp < end)
+ {
+ copy_relocation_site (tmp, old_base_addr, new_base_addr, &ts);
+ tmp++;
+ }
+ }
+
+ /* get rid of the mmap-ed file space and make the output file
+ executable -- then quit */
+ munmap (new_base_addr, MASK_UP (new_buf.st_size, page_size));
+ munmap (old_base_addr, MASK_UP (old_buf.st_size, page_size));
+ unexec_fchmod (new_fd, 0755);
+ close (new_fd);
+ return 0;
+}
+
+
+int
+run_time_remap (char *dummy)
+{
+ unsigned long current_sbrk = (unsigned long) sbrk (0);
+
+ if (sbrk_of_0_at_unexec > current_sbrk)
+ {
+ errno = 0;
+ if (brk ((caddr_t) sbrk_of_0_at_unexec))
+ fprintf (stderr, "failed to change brk addr to 0x%lx: %s\n",
+ sbrk_of_0_at_unexec, SYS_ERR);
+ }
+
+ return 0;
+}

205
korean/hanemacs/files/patch-ae Normal file
View File

@ -0,0 +1,205 @@
diff -uNr hanemacs-19.34-old/Makefile.in Makefile.in
--- hanemacs-19.34-old/Makefile.in Tue Oct 29 13:19:31 1996
+++ Makefile.in Fri Mar 13 08:39:14 1998
@@ -184,7 +184,7 @@
# Subdirectories to make recursively. `lisp' is not included
# because the compiled lisp files are part of the distribution
# and you cannot remake them without installing Emacs first.
-SUBDIR = lib-src src
+SUBDIR = lib-src src man
# The makefiles of the directories in $SUBDIR.
SUBDIR_MAKEFILES = lib-src/Makefile man/Makefile src/Makefile oldXMenu/Makefile lwlib/Makefile
@@ -307,11 +307,11 @@
$(MAKE) install $(MFLAGS) prefix=${prefix} \
exec_prefix=${exec_prefix} bindir=${bindir} \
libexecdir=${libexecdir} archlibdir=${archlibdir})
- ${INSTALL_PROGRAM} src/hanemacs ${bindir}/emacs-${version}
+ ${INSTALL_PROGRAM} src/hanemacs ${bindir}/hanemacs-${version}
### hanemacs ###
- -chmod 1755 ${bindir}/emacs-${version}
+ -chmod 1755 ${bindir}/hanemacs-${version}
rm -f ${bindir}/$(EMACS)
- -ln ${bindir}/emacs-${version} ${bindir}/$(EMACS)
+ -ln ${bindir}/hanemacs-${version} ${bindir}/$(EMACS)
### Install the files that are machine-independent.
### Most of them come straight from the distribution;
@@ -369,14 +369,8 @@
if [ `(cd ${srcdir}/info && /bin/pwd)` != `(cd ${infodir} && /bin/pwd)` ]; \
then \
(cd ${infodir}; \
- if [ -f dir ]; then \
- if [ ! -f dir.old ]; then mv -f dir dir.old; \
- else mv -f dir dir.bak; fi; \
- fi; \
cd ${srcdir}/info ; \
- (cd $${thisdir}; ${INSTALL_DATA} ${srcdir}/info/dir ${infodir}/dir); \
- (cd $${thisdir}; chmod a+r ${infodir}/dir); \
- for f in ccmode* cl* dired-x* ediff* emacs* forms* gnus* info* message* mh-e* sc* vip*; do \
+ for f in ccmode* cl* dired-x* ediff* emacs* forms* gnus* message* mh-e* sc* vip*; do \
(cd $${thisdir}; \
${INSTALL_DATA} ${srcdir}/info/$$f ${infodir}/$$f; \
chmod a+r ${infodir}/$$f); \
@@ -421,15 +415,15 @@
* ) rm -rf $${dir} ;; \
esac ; \
case $${dir} in \
- ${datadir}/emacs/${version}/* ) \
- rm -rf ${datadir}/emacs/${version} \
+ ${datadir}/hanemacs/${version}/* ) \
+ rm -rf ${datadir}/hanemacs/${version} \
;; \
esac ; \
fi ; \
done
- (cd ${infodir} && rm -f cl* dired-x* ediff* emacs* forms* gnus* info* mh-e* sc* vip*)
+ (cd ${infodir} && rm -f cl* dired-x* ediff* emacs* forms* gnus* mh-e* sc* vip*)
(cd ${man1dir} && rm -f emacs.1 etags.1 ctags.1)
- (cd ${bindir} && rm -f emacs-${version} $(EMACS))
+ (cd ${bindir} && rm -f hanemacs-${version} $(EMACS))
FRC:
diff -uNr hanemacs-19.34-old/configure configure
--- hanemacs-19.34-old/configure Tue Oct 29 13:29:53 1996
+++ configure Fri Mar 13 08:25:33 1998
@@ -536,14 +536,14 @@
-lispdir='${datadir}/emacs/${version}/lisp'
-locallisppath='${datadir}/emacs/${version}/site-lisp:'\
-'${datadir}/emacs/site-lisp'
+lispdir='${datadir}/hanemacs/${version}/lisp'
+locallisppath='${datadir}/hanemacs/${version}/site-lisp:'\
+'${datadir}/hanemacs/site-lisp'
lisppath='${locallisppath}:${lispdir}'
-etcdir='${datadir}/emacs/${version}/etc'
-lockdir='${sharedstatedir}/emacs/lock'
-archlibdir='${libexecdir}/emacs/${version}/${configuration}'
-docdir='${datadir}/emacs/${version}/etc'
+etcdir='${datadir}/hanemacs/${version}/etc'
+lockdir='${sharedstatedir}/hanemacs/lock'
+archlibdir='${libexecdir}/hanemacs/${version}/${configuration}'
+docdir='${datadir}/hanemacs/${version}/etc'
# Check whether --with-gcc or --without-gcc was given.
if test "${with_gcc+set}" = set; then
diff -uNr hanemacs-19.34-old/src/Makefile.in src/Makefile.in
--- hanemacs-19.34-old/src/Makefile.in Tue Oct 29 15:29:07 1996
+++ src/Makefile.in Fri Mar 13 08:29:12 1998
@@ -1050,7 +1050,7 @@
rm -f ../etc/DOC
/*** hanemacs ***/
clean: mostlyclean
- rm -f emacs-* hanemacs
+ rm -f emacs-* hanemacs*
/**/# This is used in making a distribution.
/**/# Do not use it on development directories!
distclean: clean
@@ -1060,7 +1060,7 @@
@echo "it deletes files that may require special tools to rebuild."
rm -f TAGS
versionclean:
- -rm -f emacs emacs-* ../etc/DOC*
+ -rm -f emacs hanemacs* emacs-* ../etc/DOC*
extraclean: distclean
-rm -f *~ \#* m/?*~ s/?*~
diff -uNr hanemacs-19.34-old/src/emacs.c src/emacs.c
--- hanemacs-19.34-old/src/emacs.c Tue Oct 29 16:59:06 1996
+++ src/emacs.c Fri Mar 13 08:25:34 1998
@@ -44,6 +44,9 @@
#include "blockinput.h"
#include "syssignal.h"
#include "process.h"
+#include "hangul.h"
+
+int font_ks_mode;
#ifndef O_RDWR
#define O_RDWR 2
@@ -608,7 +611,7 @@
}
#if defined (hanemacs_self_display) && defined (HAVE_X_WINDOWS)
{
- extern int font_ks_mode;
+ font_ks_mode = 1;
if (argmatch (argv, argc, "-ks", "--ks", 3, NULL, &skip_args))
font_ks_mode = 0;
}
diff -uNr hanemacs-19.34-old/src/handisp.c src/handisp.c
--- hanemacs-19.34-old/src/handisp.c Tue Oct 29 15:39:28 1996
+++ src/handisp.c Fri Mar 13 08:25:34 1998
@@ -26,7 +26,6 @@
#include "hangul.h"
int han_johab_font;
-int font_ks_mode = 't';
int
check_hangul_font (font)
@@ -36,10 +35,14 @@
han_johab_font = 1;
else if (strstr (font, "JOHAB"))
han_johab_font = 1;
- else if (strstr (font, "ksc5601.1987"))
+ else if (strstr (font, "ksc5601.1987")){
han_johab_font = 0;
- else if (strstr (font, "KSC5601.1987"))
+ font_ks_mode = 0;
+ }
+ else if (strstr (font, "KSC5601.1987")){
han_johab_font = 0;
+ font_ks_mode = 0;
+ }
else
error ("Hangul Font is not defined.\n");
@@ -286,7 +289,7 @@
{
if (!han_johab_mode)
{
- if (font_ks_mode == 't')
+ if (font_ks_mode == 1)
strcpy ((char *) des, src);
else
{
@@ -305,7 +308,7 @@
{
n = convert_jstring_to_wstring (src, des, len);
- if (font_ks_mode != 't')
+ if (font_ks_mode != 1)
{
int i = n;
XChar2b *ptr = des;
diff -uNr hanemacs-19.34-old/src/hangul.h src/hangul.h
--- hanemacs-19.34-old/src/hangul.h Tue Oct 29 15:39:28 1996
+++ src/hangul.h Fri Mar 13 08:25:34 1998
@@ -62,3 +62,4 @@
extern int han_johab_mode; /* default KSC5601 */
extern int han_kbd_kind; /* default 2 bulsik */
extern int han_kbd_state; /* default English */
+extern int font_ks_mode; /* font type */
diff -uNr hanemacs-19.34-old/src/xfns.c src/xfns.c
--- hanemacs-19.34-old/src/xfns.c Tue Oct 29 18:24:10 1996
+++ src/xfns.c Fri Mar 13 08:25:35 1998
@@ -3245,14 +3245,9 @@
if (STRINGP (hfont))
hfont = x_new_font (f, XSTRING (hfont)->data);
if (!STRINGP (hfont))
- hfont = x_new_font (f, "-kaist-philgi-bold-r-normal--16-160-75-75-c-160-johabsh-1");
+ hfont = x_new_font (f, "-kaist-iyagi-bold-r-normal--16-160-75-75-c-160-johabsh-1");
if (!STRINGP (hfont))
- {
- extern int font_ks_mode;
- hfont = x_new_font (f, "-daewoo-mincho-medium-r-normal--16-120-100-100-c-160-ksc5601.1987-0");
- if (STRINGP (hfont))
- font_ks_mode = 0;
- }
+ hfont = x_new_font (f, "-daewoo-mincho-medium-r-normal--16-120-100-100-c-160-ksc5601.1987-0");
if (!STRINGP (hfont))
hfont = x_new_font (f, "-kaist-philgi-bold-r-normal--16-160-75-75-c-160-johabsh-1");
if (!STRINGP (hfont))

19
korean/hanemacs/files/site-init.el Normal file
View File

@ -0,0 +1,19 @@
;;; site-init.el -- site-dependent initialization file
;;
;; This init file is needed for FreeBSD ports of hanemacs
;;
;; 12 Mar 1998 CHOI Junho <junker@jazz.snu.ac.kr>
;;
; to display hangul char in X-window
(cond
((and
(boundp 'emacs-major-version)
(= emacs-major-version 19)
(= emacs-minor-version 34))
(standard-display-european t)
(set-input-mode (car (current-input-mode)) (nth 1 (current-input-mode)) 0)
))
;;; site-init.el ends here

1
korean/hanemacs/pkg-comment Normal file
View File

@ -0,0 +1 @@
Korean version of GNU editing macros.

11
korean/hanemacs/pkg-descr Normal file
View File

@ -0,0 +1,11 @@
Hanemacs-19.34b
---------------
GNU Emacs is a self-documenting, customizable, extensible real-time
display editor. Hanemacs is an emacs clone enabling Korean language
display and input. It is fully compatible with emacs-19.34b.
Hanemacs can use Johab, KSC5601-1987.0 fonts.
--
Ports by CHOI Junho <junker@jazz.snu.ac.kr>

1062
korean/hanemacs/pkg-plist Normal file
View File

File diff suppressed because it is too large Load Diff