Content-Type: multipart/signed; boundary=Apple-Mail-2-564743778; micalg=sha1; protocol="application/pkcs7-signature"
Mime-Version: 1.0 (Apple Message framework v930.3)
References: <956A99D8-D534-4E72-B784-47F867038030@gmail.com>
Message-ID:  <6B8546AF-AA17-414A-93BF-35B38A59EEE2@gmail.com>
Date:         Thu, 12 Feb 2009 17:38:17 +1030
Reply-To: Mailing list for the LaTeX3 project
              <LATEX-L@LISTSERV.UNI-HEIDELBERG.DE>
Sender: Mailing list for the LaTeX3 project <LATEX-L@LISTSERV.UNI-HEIDELBERG.DE>
From: Will Robertson <wspr81@GMAIL.COM>
Subject: Re: token_if_expandable
To: LATEX-L@LISTSERV.UNI-HEIDELBERG.DE
In-Reply-To:  <956A99D8-D534-4E72-B784-47F867038030@gmail.com>
Precedence: list
Status: R

--Apple-Mail-2-564743778
Content-Type: text/plain;
	charset=US-ASCII;
	format=flowed;
	delsp=yes
Content-Transfer-Encoding: 7bit

On 12/02/2009, at 5:00 PM, Will Robertson wrote:

> Having some more troubles, this time with \token_if_expandable.  
> Unfortunately, the only token I can find that trips this "true" is  
> \relax or \scan_stop:, which isn't exactly what I thought the  
> intended behaviour was supposed to be.

After searching through c.t.t. for a while, I found an insane thread  
talking about this sort of thing:
   <http://groups.google.com/group/comp.text.tex/msg/2b571c53da89f86f>

Dan Luecking's comment is that
   \expandafter\ifx\noexpand#1#1
"seems a feasible test for expandability of a token".

I'm in a rush, and might be barking up the wrong tree here, but here's  
a re-implementation of \token_if_expandable that *seems* to behave in  
a more coherent manner.

The big kicker is that it only returns true for tokens that will  
expand into something else -- regardless of whether they are able to  
be fully expanded or not. And really, who could expect anything more?

Will


\def:Npn \token_if_expandable_p:N #1{
   \cs_if_exist:NTF #1 {
     \exp_after:NN \if_token_eq:NN \exp_not:N #1 #1
       \c_false \else: \c_true \fi:
   } {\c_false}
}
\def_test_function:npn {token_if_expandable:N} #1{
\if:w\token_if_expandable_p:N#1}
\token_if_expandable:NTF \FOOOO {T}{F}
\token_if_expandable:NTF a {T}{F}
\token_if_expandable:NTF \foo {T}{F}
\token_if_expandable:NTF \the {T}{F}
\par
\def\foo{bar}
\expandafter\ifx\noexpand\foo\relax T\else F\fi
\expandafter\ifx\noexpand\the\relax T\else F\fi
\expandafter\ifx\noexpand\FOOO\relax T\else F\fi
\catcode`\z=13 \def z{\write18{ls}}
\expandafter\ifx\noexpand z\relax T\else F\fi
\par
\expandafter\ifx\noexpand aa T\else F\fi
\expandafter\ifx\noexpand\message\message T\else F\fi
\expandafter\ifx\noexpand\write\write T\else F\fi


--Apple-Mail-2-564743778
Content-Disposition: attachment;
	filename=smime.p7s
Content-Type: application/pkcs7-signature;
	name=smime.p7s
Content-Transfer-Encoding: base64

MIAGCSqGSIb3DQEHAqCAMIACAQExCzAJBgUrDgMCGgUAMIAGCSqGSIb3DQEHAQAAoIIGITCCAtow
ggJDoAMCAQICECN4qE5kBXLk2f/jVDfSZPwwDQYJKoZIhvcNAQEFBQAwYjELMAkGA1UEBhMCWkEx
JTAjBgNVBAoTHFRoYXd0ZSBDb25zdWx0aW5nIChQdHkpIEx0ZC4xLDAqBgNVBAMTI1RoYXd0ZSBQ
ZXJzb25hbCBGcmVlbWFpbCBJc3N1aW5nIENBMB4XDTA5MDEyOTA1NDkxNVoXDTEwMDEyOTA1NDkx
NVowQjEfMB0GA1UEAxMWVGhhd3RlIEZyZWVtYWlsIE1lbWJlcjEfMB0GCSqGSIb3DQEJARYQd3Nw
cjgxQGdtYWlsLmNvbTCCASIwDQYJKoZIhvcNAQEBBQADggEPADCCAQoCggEBAL0BeSiAbKuqxeRN
p2qn/m8ZL+xawr/WXyPgEF0FipWgRe9l3sMXcFHokcUu0xOc97R7xkUsGcQ8EyybGHuWey6x7X1Y
xJZXnoAxqcaG+eREytoYGMIKs6BhEEogLVb2ERw3lQNVnOzanSFeGo8suMAN4zzCtqAjJiA1ph7h
1pksTgECYK5EiIZbFsB6zSDa8crNk404z1CfIA6YO8ezvjbDda+D0r8NU2tq9WS9F5IaG+bW71Ya
JegEcSZ+WF6Z+fs2MUMCLLu8n50Er0nuy4dxOmkdMRNfbeaM39dsEwjAAgcQnvPNmlJ215nZWQRH
49YowtSBOYUYq0ZylWRE6x8CAwEAAaMtMCswGwYDVR0RBBQwEoEQd3NwcjgxQGdtYWlsLmNvbTAM
BgNVHRMBAf8EAjAAMA0GCSqGSIb3DQEBBQUAA4GBABaRP8+PDYpKIRGlFgjs1HvMmJnqu4reSqp+
ulv0zJZIjIbX/sLbIsnecl9nycHfhubPdc+hDfpCqNZ2+NGQHwwoyuDl7KOdTY0BDPp3eJLio7ob
EYEr0H8rFwqfx2LWJ0G6nMhNEjLvs7sFKyriSpk++TWJnnsf86xai5m0tlOwMIIDPzCCAqigAwIB
AgIBDTANBgkqhkiG9w0BAQUFADCB0TELMAkGA1UEBhMCWkExFTATBgNVBAgTDFdlc3Rlcm4gQ2Fw
ZTESMBAGA1UEBxMJQ2FwZSBUb3duMRowGAYDVQQKExFUaGF3dGUgQ29uc3VsdGluZzEoMCYGA1UE
CxMfQ2VydGlmaWNhdGlvbiBTZXJ2aWNlcyBEaXZpc2lvbjEkMCIGA1UEAxMbVGhhd3RlIFBlcnNv
bmFsIEZyZWVtYWlsIENBMSswKQYJKoZIhvcNAQkBFhxwZXJzb25hbC1mcmVlbWFpbEB0aGF3dGUu
Y29tMB4XDTAzMDcxNzAwMDAwMFoXDTEzMDcxNjIzNTk1OVowYjELMAkGA1UEBhMCWkExJTAjBgNV
BAoTHFRoYXd0ZSBDb25zdWx0aW5nIChQdHkpIEx0ZC4xLDAqBgNVBAMTI1RoYXd0ZSBQZXJzb25h
bCBGcmVlbWFpbCBJc3N1aW5nIENBMIGfMA0GCSqGSIb3DQEBAQUAA4GNADCBiQKBgQDEpjxVc1X7
TrnKmVoeaMB1BHCd3+n/ox7svc31W/Iadr1/DDph8r9RzgHU5VAKMNcCY1osiRVwjt3J8CuFWqo/
cVbLrzwLB+fxH5E2JCoTzyvV84J3PQO+K/67GD4Hv0CAAmTXp6a7n2XRxSpUhQ9IBH+nttE8YQRA
HmQZcmC3+wIDAQABo4GUMIGRMBIGA1UdEwEB/wQIMAYBAf8CAQAwQwYDVR0fBDwwOjA4oDagNIYy
aHR0cDovL2NybC50aGF3dGUuY29tL1RoYXd0ZVBlcnNvbmFsRnJlZW1haWxDQS5jcmwwCwYDVR0P
BAQDAgEGMCkGA1UdEQQiMCCkHjAcMRowGAYDVQQDExFQcml2YXRlTGFiZWwyLTEzODANBgkqhkiG
9w0BAQUFAAOBgQBIjNFQg+oLLswNo2asZw9/r6y+whehQ5aUnX9MIbj4Nh+qLZ82L8D0HFAgk3A8
/a3hYWLD2ToZfoSxmRsAxRoLgnSeJVCUYsfbJ3FXJY3dqZw5jowgT2Vfldr394fWxghOrvbqNOUQ
Gls1TXfjViF4gtwhGTXeJLHTHUb/XV9lTzGCAxAwggMMAgEBMHYwYjELMAkGA1UEBhMCWkExJTAj
BgNVBAoTHFRoYXd0ZSBDb25zdWx0aW5nIChQdHkpIEx0ZC4xLDAqBgNVBAMTI1RoYXd0ZSBQZXJz
b25hbCBGcmVlbWFpbCBJc3N1aW5nIENBAhAjeKhOZAVy5Nn/41Q30mT8MAkGBSsOAwIaBQCgggFv
MBgGCSqGSIb3DQEJAzELBgkqhkiG9w0BBwEwHAYJKoZIhvcNAQkFMQ8XDTA5MDIxMjA3MDgxOFow
IwYJKoZIhvcNAQkEMRYEFBsLlMESrm9ofB9/NeYpEOOg0qQRMIGFBgkrBgEEAYI3EAQxeDB2MGIx
CzAJBgNVBAYTAlpBMSUwIwYDVQQKExxUaGF3dGUgQ29uc3VsdGluZyAoUHR5KSBMdGQuMSwwKgYD
VQQDEyNUaGF3dGUgUGVyc29uYWwgRnJlZW1haWwgSXNzdWluZyBDQQIQI3ioTmQFcuTZ/+NUN9Jk
/DCBhwYLKoZIhvcNAQkQAgsxeKB2MGIxCzAJBgNVBAYTAlpBMSUwIwYDVQQKExxUaGF3dGUgQ29u
c3VsdGluZyAoUHR5KSBMdGQuMSwwKgYDVQQDEyNUaGF3dGUgUGVyc29uYWwgRnJlZW1haWwgSXNz
dWluZyBDQQIQI3ioTmQFcuTZ/+NUN9Jk/DANBgkqhkiG9w0BAQEFAASCAQBIxURO/aDzcKFc2Jdh
t2IHBmN5+OUan/7fYgaAhvJtPqENwaKBXCB0qnJskct6jizNfFx4YlziIgjhAAEmx7IUDAZOybDd
wnLDImnQvxhoTWLaWtWk3zibmYB3MOZC3XXofxIVHJY5EybtrmstZz8Jg+Yn70HXe8R5he3iEILU
z3tiHaiMcY7LWj05WwgLCNkTvAvyw5UWem99cq5cLnqu8Rr/nqB6QjxdbPkn8UGS5njINragR5Er
v7Hd0d5gggQ9+KYIaM/0ar9tSBdxZ3pLzRtNMBJ3meF+b2GJsyIBPdXdzKmXlUj1eWrkdQRpu0x6
j2OTZI9Cip7qYyrgP4AjAAAAAAAA

--Apple-Mail-2-564743778--