OpenXM/src/kan96xx/Kan/dr.sm1 - diff

Return to dr.sm1 CVS log

Up to [local] / OpenXM / src / kan96xx / Kan

version 1.43, 2004/09/14 10:50:49

version 1.46, 2004/09/17 00:47:08

Line 1

% $OpenXM: OpenXM/src/kan96xx/Kan/dr.sm1,v 1.42 2004/09/14 02:13:29 takayama Exp $

% $OpenXM: OpenXM/src/kan96xx/Kan/dr.sm1,v 1.45 2004/09/17 00:10:41 takayama Exp $

%% dr.sm1 (Define Ring) 1994/9/25, 26

%% This file is error clean.

Line 1720

[( string .. universalNumber)

(Parse the << string >> as a universalNumber.)

(Example: (123431232123123).. /n set)

({ commands }.. executes the commands. << .. >> is equivalent to exec.)

]] putUsages

/.. { (universalNumber) data_conversion } def

/.. { dup tag 3 eq { exec } { (universalNumber) data_conversion} ifelse } def

[(dc)

[(Abbreviation of data_conversion.)

Line 4271 $ [ff ff] fromVectors :: $

Line 4272 $ [ff ff] fromVectors :: $

[(list listToArray a)

]] putUsages

/makeInfix {

% Body is moved to smacro.sm1

[(or_attr) 4 4 -1 roll ] extension

} def

[(makeInfix)

[(literal makeInfix)

(Change literal to an infix operator.)

Line 4361 $ [ff ff] fromVectors :: $

Line 4360 $ [ff ff] fromVectors :: $

[(setMinus)

[(a b setMinus c)

]] putUsages

% Define some infix operators

/~add~ { add } def /~add~ makeInfix

/~sub~ { sub } def /~sub~ makeInfix

/~mul~ { mul } def /~mul~ makeInfix

/~div~ { div } def /~div~ makeInfix

/~power~ { power } def /~power~ makeInfix

/~put~ {

dup tag 3 eq { exec } { } ifelse put

} def

/~put~ makeInfix

;