al.fun 696 B

1234567891011121314151617181920212223242526
  1. #import std
  2. #import nat
  3. #import lag
  4. #import dir
  5. #import apt
  6. #binary+
  7. al =
  8. ~&iNC directive[
  9. mnemonic: 'alphabet',
  10. direction: _token%TMk+ ~&v?(
  11. ~&V/separation+ ^T\~&vt -+
  12. * ~&ar^& ^V\~&falrvPDPM :=ard (
  13. &ard.(filename,filenumber,location),
  14. ~&al.(filename,filenumber,location)),
  15. ^D/~&d ~&vh; -+
  16. * -+
  17. ~&V/token[lexeme: '=',semantics: ~&hthPA!],
  18. ~&iNViiNCC+ token$[lexeme: ~&,semantics: !+ !]+-,
  19. *^0 ^T\~&vL ~&d.lexeme; &&~&iNC subset\letters+-+-,
  20. <'misused #alphabet directive'>!%),
  21. help: 'bulk declare a list of identifiers as strings',
  22. parameterized: 'list-of-identifiers']