Artifact 186e667799d84961f77954443e246d6f9197b5b2:

• File src/win32/lmsname.d
  • 2015-05-05 06:49:05 - part of checkin [9b639cf2d6] on branch trunk - Working version for update to 2.067.

    The problem was __gshared. Replacing it with TLS fixed the issue. Remaining problem is that "hack.d"'s CloseHandle hack is not working anymore.

    (user: kinaba) [annotate]

0000: 2f 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  /***************
0010: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0020: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0030: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0040: 2a 2a 2a 2a 2a 2a 2a 2a 5c 0d 0a 2a 20 20 20 20  ********\..*    
0050: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0060: 20 20 20 20 20 20 20 20 20 20 20 6c 6d 73 6e 61             lmsna
0070: 6d 65 2e 64 20 20 20 20 20 20 20 20 20 20 20 20  me.d            
0080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0090: 20 20 20 2a 0d 0a 2a 20 20 20 20 20 20 20 20 20     *..*         
00a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
00b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
00c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
00d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 0d                *.
00e0: 0a 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .*              
00f0: 20 20 20 20 20 20 20 20 20 57 69 6e 64 6f 77 73           Windows
0100: 20 41 50 49 20 68 65 61 64 65 72 20 6d 6f 64 75   API header modu
0110: 6c 65 20 20 20 20 20 20 20 20 20 20 20 20 20 20  le              
0120: 20 20 20 20 20 20 20 20 20 2a 0d 0a 2a 20 20 20           *..*   
0130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0150: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0170: 20 20 20 20 2a 0d 0a 2a 20 20 20 20 20 20 20 20      *..*        
0180: 20 20 20 20 20 20 20 20 20 54 72 61 6e 73 6c 61           Transla
0190: 74 65 64 20 66 72 6f 6d 20 4d 69 6e 47 57 20 57  ted from MinGW W
01a0: 69 6e 64 6f 77 73 20 68 65 61 64 65 72 73 20 20  indows headers  
01b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a                 *
01c0: 0d 0a 2a 20 20 20 20 20 20 20 20 20 20 20 20 20  ..*             
01d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
01e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
01f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0200: 20 20 20 20 20 20 20 20 20 20 2a 0d 0a 2a 20 20            *..*  
0210: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0220: 20 20 20 20 20 50 6c 61 63 65 64 20 69 6e 74 6f       Placed into
0230: 20 70 75 62 6c 69 63 20 64 6f 6d 61 69 6e 20 20   public domain  
0240: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0250: 20 20 20 20 20 2a 0d 0a 5c 2a 2a 2a 2a 2a 2a 2a       *..\*******
0260: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0270: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0280: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0290: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
02a0: 2f 0d 0a 6d 6f 64 75 6c 65 20 77 69 6e 33 32 2e  /..module win32.
02b0: 6c 6d 73 6e 61 6d 65 3b 0d 0a 0d 0a 70 72 69 76  lmsname;....priv
02c0: 61 74 65 20 69 6d 70 6f 72 74 20 77 69 6e 33 32  ate import win32
02d0: 2e 77 69 6e 64 65 66 3b 0d 0a 0d 0a 63 6f 6e 73  .windef;....cons
02e0: 74 20 54 43 48 41 52 5b 5d 0d 0a 09 53 45 52 56  t TCHAR[]...SERV
02f0: 49 43 45 5f 57 4f 52 4b 53 54 41 54 49 4f 4e 20  ICE_WORKSTATION 
0300: 20 20 20 20 20 3d 20 22 4c 61 6e 6d 61 6e 57 6f       = "LanmanWo
0310: 72 6b 73 74 61 74 69 6f 6e 22 2c 0d 0a 09 53 45  rkstation",...SE
0320: 52 56 49 43 45 5f 4c 4d 32 30 5f 57 4f 52 4b 53  RVICE_LM20_WORKS
0330: 54 41 54 49 4f 4e 20 3d 20 22 57 4f 52 4b 53 54  TATION = "WORKST
0340: 41 54 49 4f 4e 22 2c 0d 0a 09 57 4f 52 4b 53 54  ATION",...WORKST
0350: 41 54 49 4f 4e 5f 44 49 53 50 4c 41 59 5f 4e 41  ATION_DISPLAY_NA
0360: 4d 45 20 3d 20 22 57 6f 72 6b 73 74 61 74 69 6f  ME = "Workstatio
0370: 6e 22 2c 0d 0a 09 53 45 52 56 49 43 45 5f 53 45  n",...SERVICE_SE
0380: 52 56 45 52 20 20 20 20 20 20 20 20 20 20 20 3d  RVER           =
0390: 20 22 4c 61 6e 6d 61 6e 53 65 72 76 65 72 22 2c   "LanmanServer",
03a0: 0d 0a 09 53 45 52 56 49 43 45 5f 4c 4d 32 30 5f  ...SERVICE_LM20_
03b0: 53 45 52 56 45 52 20 20 20 20 20 20 3d 20 22 53  SERVER      = "S
03c0: 45 52 56 45 52 22 2c 0d 0a 09 53 45 52 56 45 52  ERVER",...SERVER
03d0: 5f 44 49 53 50 4c 41 59 5f 4e 41 4d 45 20 20 20  _DISPLAY_NAME   
03e0: 20 20 20 3d 20 22 53 65 72 76 65 72 22 2c 0d 0a     = "Server",..
03f0: 09 53 45 52 56 49 43 45 5f 42 52 4f 57 53 45 52  .SERVICE_BROWSER
0400: 20 20 20 20 20 20 20 20 20 20 3d 20 22 42 52 4f            = "BRO
0410: 57 53 45 52 22 2c 0d 0a 09 53 45 52 56 49 43 45  WSER",...SERVICE
0420: 5f 4c 4d 32 30 5f 42 52 4f 57 53 45 52 20 20 20  _LM20_BROWSER   
0430: 20 20 3d 20 53 45 52 56 49 43 45 5f 42 52 4f 57    = SERVICE_BROW
0440: 53 45 52 2c 0d 0a 09 53 45 52 56 49 43 45 5f 4d  SER,...SERVICE_M
0450: 45 53 53 45 4e 47 45 52 20 20 20 20 20 20 20 20  ESSENGER        
0460: 3d 20 22 4d 45 53 53 45 4e 47 45 52 22 2c 0d 0a  = "MESSENGER",..
0470: 09 53 45 52 56 49 43 45 5f 4c 4d 32 30 5f 4d 45  .SERVICE_LM20_ME
0480: 53 53 45 4e 47 45 52 20 20 20 3d 20 53 45 52 56  SSENGER   = SERV
0490: 49 43 45 5f 4d 45 53 53 45 4e 47 45 52 2c 0d 0a  ICE_MESSENGER,..
04a0: 09 53 45 52 56 49 43 45 5f 4e 45 54 52 55 4e 20  .SERVICE_NETRUN 
04b0: 20 20 20 20 20 20 20 20 20 20 3d 20 22 4e 45 54            = "NET
04c0: 52 55 4e 22 2c 0d 0a 09 53 45 52 56 49 43 45 5f  RUN",...SERVICE_
04d0: 4c 4d 32 30 5f 4e 45 54 52 55 4e 20 20 20 20 20  LM20_NETRUN     
04e0: 20 3d 20 53 45 52 56 49 43 45 5f 4e 45 54 52 55   = SERVICE_NETRU
04f0: 4e 2c 0d 0a 09 53 45 52 56 49 43 45 5f 53 50 4f  N,...SERVICE_SPO
0500: 4f 4c 45 52 20 20 20 20 20 20 20 20 20 20 3d 20  OLER          = 
0510: 22 53 50 4f 4f 4c 45 52 22 2c 0d 0a 09 53 45 52  "SPOOLER",...SER
0520: 56 49 43 45 5f 4c 4d 32 30 5f 53 50 4f 4f 4c 45  VICE_LM20_SPOOLE
0530: 52 20 20 20 20 20 3d 20 53 45 52 56 49 43 45 5f  R     = SERVICE_
0540: 53 50 4f 4f 4c 45 52 2c 0d 0a 09 53 45 52 56 49  SPOOLER,...SERVI
0550: 43 45 5f 41 4c 45 52 54 45 52 20 20 20 20 20 20  CE_ALERTER      
0560: 20 20 20 20 3d 20 22 41 4c 45 52 54 45 52 22 2c      = "ALERTER",
0570: 0d 0a 09 53 45 52 56 49 43 45 5f 4c 4d 32 30 5f  ...SERVICE_LM20_
0580: 41 4c 45 52 54 45 52 20 20 20 20 20 3d 20 53 45  ALERTER     = SE
0590: 52 56 49 43 45 5f 41 4c 45 52 54 45 52 2c 0d 0a  RVICE_ALERTER,..
05a0: 09 53 45 52 56 49 43 45 5f 4e 45 54 4c 4f 47 4f  .SERVICE_NETLOGO
05b0: 4e 20 20 20 20 20 20 20 20 20 3d 20 22 4e 45 54  N         = "NET
05c0: 4c 4f 47 4f 4e 22 2c 0d 0a 09 53 45 52 56 49 43  LOGON",...SERVIC
05d0: 45 5f 4c 4d 32 30 5f 4e 45 54 4c 4f 47 4f 4e 20  E_LM20_NETLOGON 
05e0: 20 20 20 3d 20 53 45 52 56 49 43 45 5f 4e 45 54     = SERVICE_NET
05f0: 4c 4f 47 4f 4e 2c 0d 0a 09 53 45 52 56 49 43 45  LOGON,...SERVICE
0600: 5f 4e 45 54 50 4f 50 55 50 20 20 20 20 20 20 20  _NETPOPUP       
0610: 20 20 3d 20 22 4e 45 54 50 4f 50 55 50 22 2c 0d    = "NETPOPUP",.
0620: 0a 09 53 45 52 56 49 43 45 5f 4c 4d 32 30 5f 4e  ..SERVICE_LM20_N
0630: 45 54 50 4f 50 55 50 20 20 20 20 3d 20 53 45 52  ETPOPUP    = SER
0640: 56 49 43 45 5f 4e 45 54 50 4f 50 55 50 2c 0d 0a  VICE_NETPOPUP,..
0650: 09 53 45 52 56 49 43 45 5f 53 51 4c 53 45 52 56  .SERVICE_SQLSERV
0660: 45 52 20 20 20 20 20 20 20 20 3d 20 22 53 51 4c  ER        = "SQL
0670: 53 45 52 56 45 52 22 2c 0d 0a 09 53 45 52 56 49  SERVER",...SERVI
0680: 43 45 5f 4c 4d 32 30 5f 53 51 4c 53 45 52 56 45  CE_LM20_SQLSERVE
0690: 52 20 20 20 3d 20 53 45 52 56 49 43 45 5f 53 51  R   = SERVICE_SQ
06a0: 4c 53 45 52 56 45 52 2c 0d 0a 09 53 45 52 56 49  LSERVER,...SERVI
06b0: 43 45 5f 52 45 50 4c 20 20 20 20 20 20 20 20 20  CE_REPL         
06c0: 20 20 20 20 3d 20 22 52 45 50 4c 49 43 41 54 4f      = "REPLICATO
06d0: 52 22 2c 0d 0a 09 53 45 52 56 49 43 45 5f 4c 4d  R",...SERVICE_LM
06e0: 32 30 5f 52 45 50 4c 20 20 20 20 20 20 20 20 3d  20_REPL        =
06f0: 20 53 45 52 56 49 43 45 5f 52 45 50 4c 2c 0d 0a   SERVICE_REPL,..
0700: 09 53 45 52 56 49 43 45 5f 52 49 50 4c 20 20 20  .SERVICE_RIPL   
0710: 20 20 20 20 20 20 20 20 20 20 3d 20 22 52 45 4d            = "REM
0720: 4f 54 45 42 4f 4f 54 22 2c 0d 0a 09 53 45 52 56  OTEBOOT",...SERV
0730: 49 43 45 5f 4c 4d 32 30 5f 52 49 50 4c 20 20 20  ICE_LM20_RIPL   
0740: 20 20 20 20 20 3d 20 53 45 52 56 49 43 45 5f 52       = SERVICE_R
0750: 49 50 4c 2c 0d 0a 09 53 45 52 56 49 43 45 5f 54  IPL,...SERVICE_T
0760: 49 4d 45 53 4f 55 52 43 45 20 20 20 20 20 20 20  IMESOURCE       
0770: 3d 20 22 54 49 4d 45 53 4f 55 52 43 45 22 2c 0d  = "TIMESOURCE",.
0780: 0a 09 53 45 52 56 49 43 45 5f 4c 4d 32 30 5f 54  ..SERVICE_LM20_T
0790: 49 4d 45 53 4f 55 52 43 45 20 20 3d 20 53 45 52  IMESOURCE  = SER
07a0: 56 49 43 45 5f 54 49 4d 45 53 4f 55 52 43 45 2c  VICE_TIMESOURCE,
07b0: 0d 0a 09 53 45 52 56 49 43 45 5f 41 46 50 20 20  ...SERVICE_AFP  
07c0: 20 20 20 20 20 20 20 20 20 20 20 20 3d 20 22 41              = "A
07d0: 46 50 22 2c 0d 0a 09 53 45 52 56 49 43 45 5f 4c  FP",...SERVICE_L
07e0: 4d 32 30 5f 41 46 50 20 20 20 20 20 20 20 20 20  M20_AFP         
07f0: 3d 20 53 45 52 56 49 43 45 5f 41 46 50 2c 0d 0a  = SERVICE_AFP,..
0800: 09 53 45 52 56 49 43 45 5f 55 50 53 20 20 20 20  .SERVICE_UPS    
0810: 20 20 20 20 20 20 20 20 20 20 3d 20 22 55 50 53            = "UPS
0820: 22 2c 0d 0a 09 53 45 52 56 49 43 45 5f 4c 4d 32  ",...SERVICE_LM2
0830: 30 5f 55 50 53 20 20 20 20 20 20 20 20 20 3d 20  0_UPS         = 
0840: 53 45 52 56 49 43 45 5f 55 50 53 2c 0d 0a 09 53  SERVICE_UPS,...S
0850: 45 52 56 49 43 45 5f 58 41 43 54 53 52 56 20 20  ERVICE_XACTSRV  
0860: 20 20 20 20 20 20 20 20 3d 20 22 58 41 43 54 53          = "XACTS
0870: 52 56 22 2c 0d 0a 09 53 45 52 56 49 43 45 5f 4c  RV",...SERVICE_L
0880: 4d 32 30 5f 58 41 43 54 53 52 56 20 20 20 20 20  M20_XACTSRV     
0890: 3d 20 53 45 52 56 49 43 45 5f 58 41 43 54 53 52  = SERVICE_XACTSR
08a0: 56 2c 0d 0a 09 53 45 52 56 49 43 45 5f 54 43 50  V,...SERVICE_TCP
08b0: 49 50 20 20 20 20 20 20 20 20 20 20 20 20 3d 20  IP            = 
08c0: 22 54 43 50 49 50 22 2c 0d 0a 09 53 45 52 56 49  "TCPIP",...SERVI
08d0: 43 45 5f 4c 4d 32 30 5f 54 43 50 49 50 20 20 20  CE_LM20_TCPIP   
08e0: 20 20 20 20 3d 20 53 45 52 56 49 43 45 5f 54 43      = SERVICE_TC
08f0: 50 49 50 2c 0d 0a 09 53 45 52 56 49 43 45 5f 4e  PIP,...SERVICE_N
0900: 42 54 20 20 20 20 20 20 20 20 20 20 20 20 20 20  BT              
0910: 3d 20 22 4e 42 54 22 2c 0d 0a 09 53 45 52 56 49  = "NBT",...SERVI
0920: 43 45 5f 4c 4d 32 30 5f 4e 42 54 20 20 20 20 20  CE_LM20_NBT     
0930: 20 20 20 20 3d 20 53 45 52 56 49 43 45 5f 4e 42      = SERVICE_NB
0940: 54 2c 0d 0a 09 53 45 52 56 49 43 45 5f 4c 4d 48  T,...SERVICE_LMH
0950: 4f 53 54 53 20 20 20 20 20 20 20 20 20 20 3d 20  OSTS          = 
0960: 22 4c 4d 48 4f 53 54 53 22 2c 0d 0a 09 53 45 52  "LMHOSTS",...SER
0970: 56 49 43 45 5f 4c 4d 32 30 5f 4c 4d 48 4f 53 54  VICE_LM20_LMHOST
0980: 53 20 20 20 20 20 3d 20 53 45 52 56 49 43 45 5f  S     = SERVICE_
0990: 4c 4d 48 4f 53 54 53 2c 0d 0a 09 53 45 52 56 49  LMHOSTS,...SERVI
09a0: 43 45 5f 54 45 4c 4e 45 54 20 20 20 20 20 20 20  CE_TELNET       
09b0: 20 20 20 20 3d 20 22 54 65 6c 6e 65 74 22 2c 0d      = "Telnet",.
09c0: 0a 09 53 45 52 56 49 43 45 5f 4c 4d 32 30 5f 54  ..SERVICE_LM20_T
09d0: 45 4c 4e 45 54 20 20 20 20 20 20 3d 20 53 45 52  ELNET      = SER
09e0: 56 49 43 45 5f 54 45 4c 4e 45 54 2c 0d 0a 09 53  VICE_TELNET,...S
09f0: 45 52 56 49 43 45 5f 53 43 48 45 44 55 4c 45 20  ERVICE_SCHEDULE 
0a00: 20 20 20 20 20 20 20 20 3d 20 22 53 63 68 65 64          = "Sched
0a10: 75 6c 65 22 2c 0d 0a 09 53 45 52 56 49 43 45 5f  ule",...SERVICE_
0a20: 4c 4d 32 30 5f 53 43 48 45 44 55 4c 45 20 20 20  LM20_SCHEDULE   
0a30: 20 3d 20 53 45 52 56 49 43 45 5f 53 43 48 45 44   = SERVICE_SCHED
0a40: 55 4c 45 2c 0d 0a 09 53 45 52 56 49 43 45 5f 4e  ULE,...SERVICE_N
0a50: 54 4c 4d 53 53 50 20 20 20 20 20 20 20 20 20 20  TLMSSP          
0a60: 3d 20 22 4e 74 4c 6d 53 73 70 22 2c 0d 0a 09 53  = "NtLmSsp",...S
0a70: 45 52 56 49 43 45 5f 44 48 43 50 20 20 20 20 20  ERVICE_DHCP     
0a80: 20 20 20 20 20 20 20 20 3d 20 22 44 48 43 50 22          = "DHCP"
0a90: 2c 0d 0a 09 53 45 52 56 49 43 45 5f 4c 4d 32 30  ,...SERVICE_LM20
0aa0: 5f 44 48 43 50 20 20 20 20 20 20 20 20 3d 20 53  _DHCP        = S
0ab0: 45 52 56 49 43 45 5f 44 48 43 50 2c 0d 0a 09 53  ERVICE_DHCP,...S
0ac0: 45 52 56 49 43 45 5f 4e 57 53 41 50 20 20 20 20  ERVICE_NWSAP    
0ad0: 20 20 20 20 20 20 20 20 3d 20 22 4e 77 53 61 70          = "NwSap
0ae0: 41 67 65 6e 74 22 2c 0d 0a 09 53 45 52 56 49 43  Agent",...SERVIC
0af0: 45 5f 4c 4d 32 30 5f 4e 57 53 41 50 20 20 20 20  E_LM20_NWSAP    
0b00: 20 20 20 3d 20 53 45 52 56 49 43 45 5f 4e 57 53     = SERVICE_NWS
0b10: 41 50 2c 0d 0a 09 4e 57 53 41 50 5f 44 49 53 50  AP,...NWSAP_DISP
0b20: 4c 41 59 5f 4e 41 4d 45 20 20 20 20 20 20 20 3d  LAY_NAME       =
0b30: 20 22 4e 57 20 53 61 70 20 41 67 65 6e 74 22 2c   "NW Sap Agent",
0b40: 0d 0a 09 53 45 52 56 49 43 45 5f 4e 57 43 53 20  ...SERVICE_NWCS 
0b50: 20 20 20 20 20 20 20 20 20 20 20 20 3d 20 22 4e              = "N
0b60: 57 43 57 6f 72 6b 73 74 61 74 69 6f 6e 22 3b 0d  WCWorkstation";.
0b70: 0a                                               .