From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.comp.tex.context/7826
Path: main.gmane.org!not-for-mail
From: Taco <taco@elvenkind.com>
Newsgroups: gmane.comp.tex.context
Subject: Re: "LaTeX compatibility module" (was: Non breaking small space)
Date: Wed, 8 May 2002 10:59:48 +0200
Sender: owner-ntg-context@let.uu.nl
Message-ID: <20020508105948.10da88eb.taco@elvenkind.com>
References: <200205062131.55122.angerweit@gmx.net>
	<2A6C8LINIHC2YHD31POCAKH09MJTRTQ.3cd87117@c1909372-a>
NNTP-Posting-Host: coloc-standby.netfonds.no
Mime-Version: 1.0
Content-Type: text/plain; charset=US-ASCII
Content-Transfer-Encoding: 7bit
X-Trace: main.gmane.org 1035398270 22643 80.91.224.250 (23 Oct 2002 18:37:50 GMT)
X-Complaints-To: usenet@main.gmane.org
NNTP-Posting-Date: Wed, 23 Oct 2002 18:37:50 +0000 (UTC)
Cc: angerweit@gmx.net, ntg-context@ntg.nl
Original-To: "Idris Samawi Hamid" <ishamid@attbi.com>
In-Reply-To: <2A6C8LINIHC2YHD31POCAKH09MJTRTQ.3cd87117@c1909372-a>
Xref: main.gmane.org gmane.comp.tex.context:7826
X-Report-Spam: http://spam.gmane.org/gmane.comp.tex.context:7826

Informational: here is the \newcommand definition from m-bib.tex

%D \subonderwerp{\LATEX\ support}
%D
%D \macros{newcommand}

%D Just about all databases define something that uses
%D \type{\newcommand}. This fake version does not cover
%D everything \type{\newcommand} does, but it should be
%D enough for simple definitions like the ones found in
%D \BIBTEX\ files.
%D
%D It would be cleaner to move this command
%D to some sort of \type{supp-ltx} file somewhere in
%D the future.

\def\@star@or@long#1%
   {\doifnextcharelse*{\afterassignment#1\let\next=}{#1}}

\def\newcommand{\@star@or@long\new@command}

\def\new@command#1{\@testopt{\@newcommand#1}0}

\def\@newcommand#1[#2]%
   {\doifnextcharelse[{\@xargdef#1[#2]}{\@argdef#1[#2]}}

\long\def\@argdef#1[#2]#3{\@yargdef#1\@ne{#2}{#3}}

\long\def\@xargdef#1[#2][#3]#4%
    {\@EA\def\@EA#1\@EA{%
          \@EA \do@testopt \@EA#1%
          \csname\string#1\endcsname {#3}}%
     \@EA\@yargdef
          \csname\string#1\endcsname
          \tw@ {#2}{#4}}

\def\@testopt#1#2{\doifnextcharelse[{#1}{#1[#2]}}

\def\do@testopt#1{\expandafter\@testopt }

\long\def\@yargdef#1#2#3%
 {\!!counta#3\relax
  \advance \!!counta \@ne
  \let\@hash@\relax
  \edef\!!tempa{\ifx#2\tw@ [\@hash@1]\fi}%
  \!!countb #2%
  \loop\ifnum\!!countb <\!!counta
         \edef\!!tempa{\!!tempa\@hash@\the\!!countb}%
         \advance\!!countb \@ne
  \repeat
  \let\@hash@##%
  \long\@EA\def\@EA#1\!!tempa}

\long\def\@reargdef#1[#2]{\@yargdef#1\@ne{#2}}