char_set.sa

来自「SRI international 发布的OAA框架软件」· SA 代码 · 共 20 行

SA
20
字号
class CHAR_SET is

   include ARRAY{BOOL};

   create ( ba : ARRAY{BOOL} ) : SAME 
      pre ~void(ba) is
      res ::= new( ba.size );
      -- copy: expensive
      loop 
	 res.set!( ba.elt! );
      end;
      return res;
   end;

   member( c : CHAR ) : BOOL is
      return aget( c.int );
   end;

end;

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?