Return to gpmbif.gpm CVS log

Up to [Research Unix] / researchv10no / cmd / spitbol

Annotation of researchv10no/cmd/spitbol/gpmbif.gpm, revision 1.1.1.1

1.1       root        1: !
                      2: ! Built-ins for V6
                      3: !
                      4: {CODE APPEND,<AL1 AL2>}
                      5: {CODE CAPS,<REPLACE(AL1,LOWLETS,UPLETS)>}
                      6: {CODE CENTER,<?PUTBREAK(0) ?PUTCHARS((LE(T = $LINELENGTH - LSIZE(AL1),0)-
                      7:      ,DUPL(HS,T / 2)) AL1) ?PUTBREAK(0)>}
                      8: {CODE CHAR,<SUBSTR(&ALPHABET,AL1 + 1,1)>}
                      9: {CODE DATE,<SUBSTR(DATE(),1,11)>}
                     10: {CODE DBL,<OVER(AL1,AL1)>}
                     11: {CODE DISPLAY,<?(QUERY = AL1) ?(TERMINAL = )>}
                     12: {CODE DSIZE,<(LSIZE(CONVERT(MACDEF(AL1),.STRING)),LSIZE(EVAL(MACROS['D'])))>}
                     13: {CODE DUPL,<DUPL(AL1,AL2)>}
                     14: {CODE EJECT,<SUBSTR(&ALPHABET,13,1)>}
                     15: {SETQ ENDPAGE,{EJECT}}
                     16: {CODE FLUSH,<TSETSTACK[REPLACE(AL1,LOWLETS,UPLETS)] = >}
                     17: {SETQ FJ,{SET FILL}{SET JUST}}
                     18: {CODE GPMIFY,<APPLY((DIFFER(PFLG) .GPMPRINT, .GPMIFY), AL1, NULLARGS)>}
                     19: {SETQ IF,{GPMIFY <{COND {>{D 2} {D 1}<,>{D 3}<},>{D 4}<,,>{D 5}<}>}}
                     20: {SETQ IF\*,1}
                     21: {CODE INDEX,<(IDENT(AL2) 1,-
                     22:        ?(AL1 ? BREAKX(SUBSTR(AL2,1,1)) AL2 @T) (T - SIZE(AL2) + 1), 0)>}
                     23: {CODE LIN,<SET('LMG',$LMG + AL1,'T')>}
                     24: {SETQ LITERAL,{BRK}{TSET INPUT,,ENDTEXT={COND {LEQ @1},!**,,@1},-
                     25:        INFORMAT=1,FILL=1,JUST=1}}
                     26: {SETQ LOAD,{COND {LEQ @2},{TSET INPUT,@1},,-
                     27:        {TSET INPUT,@1,BEGINTEXT=!{D 2},ENDTEXT=!**}}}
                     28: {CODE LPAD,<(LE(AL2,T = LSIZE(AL1)),-
                     29:        LE(SIZE(AL[3]),1) DUPL((IDENT(AL[3]) HS, AL[3]),AL2 - T),-
                     30:        LSUBSTR(DUPL(AL[3],AL2),1,AL2 - T)) AL1>}
                     31: {SETQ NFJ,{SET FILL,1}{SET JUST,1}}
                     32: {SETQ NEWPAGE,{LS 1}{COND {GT @PAGENUM,1},-
                     33:        {LPAD PAGE~{PAGENUM},@LINELENGTH}}{LS 2}}
                     34: {SETQ OUTDENT,{BRK}{TSET.- LMG,@1}{TSET NEWLINE,{D NEWLINE}-
                     35:        <{RESTORE LMG,NEWLINE}>}}
                     36: {SETQ P,{SET LINENUM,1}}
                     37: {CODE PARA,<?PUTBREAK(1) PUTCHARS(DUPL(HS,5))>}
                     38: {CODE PREPEND,<AL2 AL1>}
                     39: {CODE QUERY,<?(QUERY = AL1) TERMINAL>}
                     40: {CODE REMDR,<REMDR(AL1,AL2)>}
                     41: {CODE REPLACE,<REPLACE(AL1,AL2,(EQ(SIZE(AL[3]),1) DUPL(AL[3],SIZE(AL2)),-
                     42:         AL[3]))>}
                     43: {SETQ RESET,{SET RMG,75}{SET LMG,10}{SET LINENUM,1}{SET PAGENUM,1}-
                     44:        {SET BIAS,0}{SET SPACING,1}{NFJ}{SET PAGELENGTH,55}-
                     45:        {SET BSLACK,0}{SET HS,~}}
                     46: {CODE RIN,<SET('RMG',$RMG - AL1,'T')>}
                     47: {CODE RPAD,<AL1 (LE(AL2,T = LSIZE(AL1)),-
                     48:        LE(SIZE(AL[3]),1) DUPL((IDENT(AL[3]) HS, AL[3]),AL2 - T),-
                     49:        LSUBSTR(DUPL(AL[3],AL2),1,AL2 - T))>}
                     50: {CODE SIZE,<LSIZE(AL1)>}
                     51: {CODE SUBSTR,<LSUBSTR(AL1,AL2,AL[3])>}
                     52: {SETQ SYSLOAD,<{LOAD SYS$LIBRARY:GPMLIB.GPM,@1}>}
                     53: {CODE T,<(GT(AL1,$LINELENGTH),LT(AL1,1),-
                     54:        (GT(AL1,T = LSIZE(LINE)),PUTBREAK(0) ?(T = 0)) -
                     55:        (LE(SIZE(AL2),1) DUPL((IDENT(AL2) HS, AL2),AL1 - (T + 1)),-
                     56:          LSUBSTR(DUPL(AL2,AL1),1,AL1 - (T + 1))))>}
                     57: {CODE UL,<(IDENT(AL1), OVER(REPLACE((IMAGES(AL[1]))[0],-
                     58:      (IDENT(AL2) REPLACE(AL1,SP,BS),REPLACE(AL1,AL2,DUPL(BS,SIZE(AL2)))),-
                     59:      DUPL('_',SIZE(AL1))),AL1))>}
                     60: {CODE +,<AL1 + AL2>}
                     61: {CODE -,<AL1 - AL2>}
                     62: {CODE *,<AL1 * AL2>}
                     63: {CODE /,<AL1 / AL2>}
                     64: {CODE ADD1,<AL1 + 1>}
                     65: {CODE SUB1,<AL1 - 1>}
                     66: 
                     67: 
                     68: 
                     69: 
                     70: 
                     71: 
                     72: 
                     73: 
                     74: 
                     75: 
                     76: 
                     77: 
                     78: 
                     79: 
                     80: 

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.