[BACK]Return to MAXLEN.m CVS log [TXT] [DIR] Up to [Coherent Logic Development] / freem / tests
File:  [Coherent Logic Development] / freem / tests / MAXLEN.m
Revision 1.1.1.1 (vendor branch): download - view: text, annotated - select for diffs
Sun Jan 19 02:04:04 2025 UTC (6 months, 1 week ago) by snw
Branches: MAIN, CoherentLogicDevelopment
CVS tags: v0-63-1-rc1, v0-63-0-rc1, v0-63-0, v0-62-3, v0-62-2, v0-62-1, v0-62-0, start, HEAD
FreeM

    1: MAXLEN ;
    2:     S $ZTRAP="ERRH"
    3:     W "Creating an 8-character local variable name:  "
    4:     S IDENT="ABCDEFGH",@IDENT="FOO"
    5:     I ABCDEFGH="FOO" W "OK",!  E  W "MISMATCH",!
    6:     KILL
    7:     W "Creating a 256-character local variable name:  "
    8:     S $P(IDENT,"A",256)="A",@IDENT="FOO"
    9:     I @IDENT="FOO" W "OK",!  E  W "MISMATCH",!
   10:     KILL
   11:     W "Creating a 257-character local variable name:  "
   12:     S $P(IDENT,"A",257)="A",@IDENT="FOO"
   13:     I @IDENT="FOO" W "OK",!  E  W "MISMATCH",!
   14:     Q
   15: ERRH ;
   16:     W "ERROR!",!
   17:     W " $ECODE  = ",$ECODE,!
   18:     W " $ZERROR = ",$ZERROR,!
   19:     S ERCODE=$P($P($ZERROR,"<",2),">",1)
   20:     W " MESSAGE = '",$VIEW(16,ERCODE),"'",!
   21:     HALT
   22:
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>