AbstractOperatingSystem.st
changeset 7713 c685886d38f3
parent 7711 e0d218633f7f
child 7716 41535a2538c9
equal deleted inserted replaced
7712:539e7a5c800a 7713:c685886d38f3
  4507      This list specifies what the Socket class supports -
  4507      This list specifies what the Socket class supports -
  4508      socket creation may still fail, if your system was built without it.
  4508      socket creation may still fail, if your system was built without it.
  4509      For backward compatibility, the returned list includes the old
  4509      For backward compatibility, the returned list includes the old
  4510      (non-AF-prefixed) symbols; these will vanish."
  4510      (non-AF-prefixed) symbols; these will vanish."
  4511 
  4511 
  4512     |list|
  4512     ^ #(
  4513 
  4513 	#AF_INET        #inet
  4514     list := OrderedCollection new.
  4514 	#AF_UNIX        #unix
  4515 
  4515 	#AF_INET6       #inet6
  4516 %{
  4516 	#AF_APPLETALK   #appletalk
  4517 #ifdef AF_INET
  4517 	#AF_DECnet      #decnet
  4518 %}.
  4518 	#AF_NS 
  4519     list add:#AF_INET.
  4519 	#AF_X25 
  4520     list add:#inet.
  4520 	#AF_SNA 
  4521 %{
  4521 	#AF_RAW 
  4522 #endif
  4522 	#AF_ISO 
  4523 %}.
  4523 	#AF_NETBIOS 
  4524 
  4524 	#AF_IPX 
  4525 %{
  4525 	#AF_AX25 
  4526 #ifdef AF_UNIX
  4526 	#AF_NETROM 
  4527 %}.
  4527 	#AF_BRIDGE 
  4528     list add:#AF_UNIX.
  4528 	#AF_BSC 
  4529     list add:#unix.
  4529 	#AF_ROSE 
  4530 %{
  4530 	#AF_IRDA 
  4531 #endif
  4531 	#AF_NETLINK 
  4532 %}.
  4532 	#AF_NETBEUI 
  4533 
  4533 	#AF_ATM 
  4534 %{
  4534 	#AF_ATMPVC 
  4535 #ifdef AF_INET6
  4535 	#AF_ATMSVC
  4536 %}.
  4536 	#AF_BAN
  4537     list add:#AF_INET6.   "/ internet v6
  4537 	#AF_VOICEVIEW
  4538     list add:#inet6.   
  4538        ) select:[:sym | (AbstractOperatingSystem domainCodeOf:sym) isNumber ]  
  4539 %{
  4539 
  4540 #endif
  4540     "
  4541 %}.
  4541      AbstractOperatingSystem supportedProtocolFamilies  
  4542 
       
  4543 %{
       
  4544 #ifdef AF_APPLETALK
       
  4545 %}.
       
  4546     list add:#AF_APPLETALK.  
       
  4547     list add:#appletalk.  
       
  4548 %{
       
  4549 #endif
       
  4550 %}.
       
  4551 
       
  4552 %{
       
  4553 #ifdef AF_DECnet
       
  4554 %}.
       
  4555     list add:#AF_DECnet.  
       
  4556     list add:#decnet.  
       
  4557 %{
       
  4558 #endif
       
  4559 %}.
       
  4560 
       
  4561 %{
       
  4562 #ifdef AF_NS
       
  4563 %}.
       
  4564     list add:#AF_NS.     "/ Xerox XNS
       
  4565 %{
       
  4566 #endif
       
  4567 %}.
       
  4568 
       
  4569 %{
       
  4570 #ifdef AF_X25
       
  4571 %}.
       
  4572     list add:#AF_X25.     
       
  4573 %{
       
  4574 #endif
       
  4575 %}.
       
  4576 
       
  4577 %{
       
  4578 #ifdef AF_SNA
       
  4579 %}.
       
  4580     list add:#AF_SNA.     "/ IBM SNA
       
  4581 %{
       
  4582 #endif
       
  4583 %}.
       
  4584 
       
  4585 %{
       
  4586 #ifdef AF_RAW
       
  4587 %}.
       
  4588     list add:#AF_RAW.     "/ RAW packets
       
  4589 %{
       
  4590 #endif
       
  4591 %}.
       
  4592 
       
  4593 %{
       
  4594 #ifdef AF_ISO
       
  4595 %}.
       
  4596     list add:#AF_ISO.    
       
  4597 %{
       
  4598 #endif
       
  4599 %}.
       
  4600 
       
  4601 %{
       
  4602 #ifdef AF_NETBIOS
       
  4603 %}.
       
  4604     list add:#AF_NETBIOS.
       
  4605 %{
       
  4606 #endif
       
  4607 %}.
       
  4608 
       
  4609 %{
       
  4610 #ifdef AF_IPX
       
  4611 %}.
       
  4612     list add:#AF_IPX.     "/ Novell IPX
       
  4613 %{
       
  4614 #endif
       
  4615 %}.
       
  4616 
       
  4617 %{
       
  4618 #ifdef AF_AX25
       
  4619 %}.
       
  4620     list add:#AF_AX25.    "/ Amateur Radio AX.25
       
  4621 %{
       
  4622 #endif
       
  4623 %}.
       
  4624 
       
  4625 %{
       
  4626 #ifdef AF_NETROM
       
  4627 %}.
       
  4628     list add:#AF_NETROM.  "/ Amateur Radio NET/ROM
       
  4629 %{
       
  4630 #endif
       
  4631 %}.
       
  4632 
       
  4633 %{
       
  4634 #ifdef AF_BRIDGE
       
  4635 %}.
       
  4636     list add:#AF_BRIDGE.  "/ multiprotocol bridge
       
  4637 %{
       
  4638 #endif
       
  4639 %}.
       
  4640 
       
  4641 %{
       
  4642 #ifdef AF_BSC
       
  4643 %}.
       
  4644     list add:#AF_BSC.     "/ BISYNC 2780/3780
       
  4645 %{
       
  4646 #endif
       
  4647 %}.
       
  4648 
       
  4649 %{
       
  4650 #ifdef AF_ROSE
       
  4651 %}.
       
  4652     list add:#AF_ROSE.    "/ Amateur Radio X.25 PLP
       
  4653 %{
       
  4654 #endif
       
  4655 %}.
       
  4656 
       
  4657 %{
       
  4658 #ifdef AF_IRDA
       
  4659 %}.
       
  4660     list add:#AF_IRDA.  "/ infrared
       
  4661 %{
       
  4662 #endif
       
  4663 %}.
       
  4664 
       
  4665 %{
       
  4666 #ifdef AF_NETLINK
       
  4667 %}.
       
  4668     list add:#AF_NETLINK.  
       
  4669 %{
       
  4670 #endif
       
  4671 %}.
       
  4672 
       
  4673 %{
       
  4674 #ifdef AF_NETBEUI
       
  4675 %}.
       
  4676     list add:#AF_NETBEUI.  
       
  4677 %{
       
  4678 #endif
       
  4679 %}.
       
  4680 
       
  4681 %{
       
  4682 #ifdef AF_ATM
       
  4683 %}.
       
  4684     list add:#AF_ATM.  "/ windose ATM
       
  4685 %{
       
  4686 #endif
       
  4687 %}.
       
  4688 
       
  4689 %{
       
  4690 #ifdef AF_ATMPVC
       
  4691 %}.
       
  4692     list add:#AF_ATMPVC.  "/ linux ATM
       
  4693 %{
       
  4694 #endif
       
  4695 %}.
       
  4696 
       
  4697 %{
       
  4698 #ifdef AF_ATMSVC
       
  4699 %}.
       
  4700     list add:#AF_ATMSVC.  "/ linux ATM
       
  4701 %{
       
  4702 #endif
       
  4703 %}.
       
  4704 
       
  4705 %{
       
  4706 #ifdef AF_BAN
       
  4707 %}.
       
  4708     list add:#AF_BAN.  "/ windose
       
  4709 %{
       
  4710 #endif
       
  4711 %}.
       
  4712 
       
  4713 %{
       
  4714 #ifdef AF_VOICEVIEW
       
  4715 %}.
       
  4716     list add:#AF_VOICEVIEW.  "/ windose
       
  4717 %{
       
  4718 #endif
       
  4719 %}.
       
  4720 
       
  4721     ^ list
       
  4722 
       
  4723     "
       
  4724      self supportedProtocolFamilies  
       
  4725     "
  4542     "
  4726 !
  4543 !
  4727 
  4544 
  4728 supportedSocketTypes
  4545 supportedSocketTypes
  4729     "return the symbolic typeName of a given numeric SOCK_xxx socket type code.
  4546     "return the symbolic typeName of a given numeric SOCK_xxx socket type code.
  4730      Return nil for invalid or unsupported socket types."
  4547      Return nil for invalid or unsupported socket types."
  4731 
  4548 
  4732     |list|
  4549 
  4733 
  4550     ^ #(
  4734     list := OrderedCollection new.
  4551 	#SOCK_STREAM
  4735 
  4552 	#SOCK_DGRAM
  4736 %{
  4553 	#SOCK_RAW
  4737 #ifdef SOCK_STREAM
  4554 	#SOCK_RDM
  4738 %}.
  4555 	#SOCK_SEQPACKET
  4739     list add:#SOCK_STREAM.
  4556 	#SOCK_PACKET 
  4740 %{
  4557        ) select:[:sym | (AbstractOperatingSystem socketTypeCodeOf:sym) isNumber ]  
  4741 #endif
  4558 
  4742 %}.
  4559     "
  4743 %{
  4560      AbstractOperatingSystem supportedSocketTypes
  4744 #ifdef SOCK_DGRAM
       
  4745 %}.
       
  4746     list add:#SOCK_DGRAM.
       
  4747 %{
       
  4748 #endif
       
  4749 %}.
       
  4750 %{
       
  4751 #ifdef SOCK_RAW
       
  4752 %}.
       
  4753     list add:#SOCK_RAW.
       
  4754 %{
       
  4755 #endif
       
  4756 %}.
       
  4757 %{
       
  4758 #ifdef SOCK_RDM
       
  4759 %}.
       
  4760     list add:#SOCK_RDM.
       
  4761 %{
       
  4762 #endif
       
  4763 %}.
       
  4764 %{
       
  4765 #ifdef SOCK_SEQPACKET
       
  4766 %}.
       
  4767     list add:#SOCK_SEQPACKET.
       
  4768 %{
       
  4769 #endif
       
  4770 %}.
       
  4771 %{
       
  4772 #ifdef SOCK_PACKET
       
  4773 %}.
       
  4774     list add:#SOCK_PACKET.
       
  4775 %{
       
  4776 #endif
       
  4777 %}.
       
  4778 
       
  4779     ^ list.
       
  4780 
       
  4781     "
       
  4782      self supportedSocketTypes
       
  4783     "
  4561     "
  4784 ! !
  4562 ! !
  4785 
  4563 
  4786 !AbstractOperatingSystem class methodsFor:'shared memory access'!
  4564 !AbstractOperatingSystem class methodsFor:'shared memory access'!
  4787 
  4565 
  5561 ! !
  5339 ! !
  5562 
  5340 
  5563 !AbstractOperatingSystem class methodsFor:'documentation'!
  5341 !AbstractOperatingSystem class methodsFor:'documentation'!
  5564 
  5342 
  5565 version
  5343 version
  5566     ^ '$Header: /cvs/stx/stx/libbasic/AbstractOperatingSystem.st,v 1.112 2003-10-28 19:55:14 cg Exp $'
  5344     ^ '$Header: /cvs/stx/stx/libbasic/AbstractOperatingSystem.st,v 1.113 2003-10-28 20:17:40 cg Exp $'
  5567 ! !
  5345 ! !
  5568 
  5346 
  5569 AbstractOperatingSystem initialize!
  5347 AbstractOperatingSystem initialize!