Changeset 13371 for lang/hsp

Show
Ignore:
Timestamp:
06/07/08 11:02:11 (5 years ago)
Author:
fujidig
Message:

インデントをタブに統一

Location:
lang/hsp/misc/hsp2hs
Files:
2 modified

Legend:

Unmodified
Added
Removed

  • lang/hsp/misc/hsp2hs/mod_hsp2hs.hsp

    r13323 r13371  
    3939        docptr = 0 
    4040        repeat 
    41             getstr dln, doc, docptr 
    42             if strsize == 0 : break 
    43             docptr += strsize 
    44             dlnptr = 0 
    45  
    46             dlnptr += spnspace(dln, dlnptr) 
    47             if peek(dln, dlnptr) == 0 : continue 
    48  
    49             if is_tag_started == 0 & peek(dln, dlnptr) != '@' { 
     41                getstr dln, doc, docptr 
     42                if strsize == 0 : break 
     43                docptr += strsize 
     44                dlnptr = 0 
     45 
     46                dlnptr += spnspace(dln, dlnptr) 
     47                if peek(dln, dlnptr) == 0 : continue 
     48 
     49                if is_tag_started == 0 & peek(dln, dlnptr) != '@' { 
    5050                        // �O���X�y�[�X���Ă��܂��d�l���ƃX�N���v�g��������ɖ����H�i�X�y�[�X�ƃ^�u�̍��ʉ�����΂����H�j 
    5151                        astr = strmid(dln, dlnptr, 9999) 
    … …  
    5555                        } else { 
    5656                                if inst == "" { 
    57                                     inst = astr 
     57                                        inst = astr 
    5858                                } else { 
    59                                     inst += "\n" + astr 
     59                                        inst += "\n" + astr 
    6060                                } 
    6161                        } 
    6262                        continue 
    63             } 
    64  
    65             if peek(dln, dlnptr) != '@' : continue 
    66             is_tag_started = 1 
    67             dlnptr ++ // '@' 
    68             ;dlnptr += spnspace(dln, dlnptr) 
    69             dlnptr += scanident(dln, dlnptr, tag) 
    70             dlnptr += spnspace(dln, dlnptr) 
    71  
    72             switch tag 
    73             case "param" 
     63                } 
     64 
     65                if peek(dln, dlnptr) != '@' : continue 
     66                is_tag_started = 1 
     67                dlnptr ++ // '@' 
     68                ;dlnptr += spnspace(dln, dlnptr) 
     69                dlnptr += scanident(dln, dlnptr, tag) 
     70                dlnptr += spnspace(dln, dlnptr) 
     71 
     72                switch tag 
     73                case "param" 
    7474                        dlnptr += scanident(dln, dlnptr, dprm_names.dprms_cnt) 
    7575                        dlnptr += spnspace(dln, dlnptr) 
    … …  
    7878                        dprms_cnt ++ 
    7979                        swbreak 
    80             case "href" 
     80                case "href" 
    8181                        hrefs.hrefs_cnt = strmid(dln, dlnptr, 9999) 
    8282                        stripstr hrefs.hrefs_cnt 
    8383                        hrefs_cnt ++ 
    8484                        swbreak 
    85             default 
     85                default 
    8686                        i = -1 
    8787                        repeat TAG_MAX 
    … …  
    9090                        if i == -1 : swbreak 
    9191                        tags.i = strmid(dln, dlnptr, 9999) 
    92             swend 
     92                swend 
    9393        loop 
    9494        return 
    … …  
    102102 */ 
    103103#deffunc hsp2hs var src, var dest 
    104     if inited == 0 { // ����        inited = 1 
    105         tag_names = "author", "date", "ver", "url", "note", "type", "group", "port", "portinf", "sample" 
    106     } 
    107     dest = "" 
    108     srcptr_n = 0 
    109      
    110     #enum STATUS_DEFAULT = 1 
    111     #enum STATUS_DOC1 // ; ==hspmodule== �` ; ==/hspmodule== 
    112     #enum STATUS_DOC2 // /** �` */ 
    113     #enum STATUS_DOCEND // �h�L�������g�I�� 
    114     status = STATUS_DEFAULT 
    115     doc_start_lineno = -1 
    116      
    117     repeat 
    118         srcptr = srcptr_n 
    119         getstr ln, src, srcptr 
    120         if strsize == 0 & status != STATUS_DOCEND : break 
    121         srcptr_n = srcptr + strsize 
     104        if inited == 0 { // ����                inited = 1 
     105                tag_names = "author", "date", "ver", "url", "note", "type", "group", "port", "portinf", "sample" 
     106        } 
     107        dest = "" 
     108        srcptr_n = 0 
     109         
     110#enum STATUS_DEFAULT = 1 
     111#enum STATUS_DOC1 // ; ==hspmodule== �` ; ==/hspmodule== 
     112#enum STATUS_DOC2 // /** �` */ 
     113#enum STATUS_DOCEND // �h�L�������g�I�� 
     114        status = STATUS_DEFAULT 
     115        doc_start_lineno = -1 
     116         
     117        repeat 
     118                srcptr = srcptr_n 
     119                getstr ln, src, srcptr 
     120                if strsize == 0 & status != STATUS_DOCEND : break 
     121                srcptr_n = srcptr + strsize 
    122122                lnptr = 0 
    123123                 
    124124*redo 
    125          
    126         if status == STATUS_DEFAULT | status == STATUS_DOC1 { 
    127                 lnptr += spnspace(ln, lnptr) 
    128                 if peek(ln, lnptr) != ';' { 
    129                         status = STATUS_DEFAULT 
    130                 } else { 
     125                 
     126                if status == STATUS_DEFAULT | status == STATUS_DOC1 { 
     127                        lnptr += spnspace(ln, lnptr) 
     128                        if peek(ln, lnptr) != ';' { 
     129                                status = STATUS_DEFAULT 
     130                        } else { 
    131131                                lnptr ++ 
    132132                                lnptr += spnspace(ln, lnptr) 
    … …  
    146146                                } 
    147147                        } 
    148         } 
    149         if status == STATUS_DEFAULT | status == STATUS_DOC2 { 
    150                 lnptr += spnspace(ln, lnptr) 
    151                 if status == STATUS_DOC2 { 
    152                         ins = instr(ln, lnptr, "*/") 
    153                          
    154                         if peek(ln, lnptr) == '*' & ins != 0 { 
    155                                 lnptr ++ 
    156                                 ins -- 
    157                                 sz = spnspace(ln, lnptr) 
    158                                 lnptr += sz 
    159                                 ins -= sz 
    160                         } 
    161                         sz = 9999 
    162                         if ins >= 0 : sz = ins 
    163                         doc += strmid(ln, lnptr, sz) + "\n" 
    164                         if ins >= 0 : status = STATUS_DOCEND 
    165                         continue 
    166                 } 
     148                } 
     149                if status == STATUS_DEFAULT | status == STATUS_DOC2 { 
     150                        lnptr += spnspace(ln, lnptr) 
     151                        if status == STATUS_DOC2 { 
     152                                ins = instr(ln, lnptr, "*/") 
     153                                 
     154                                if peek(ln, lnptr) == '*' & ins != 0 { 
     155                                        lnptr ++ 
     156                                        ins -- 
     157                                        sz = spnspace(ln, lnptr) 
     158                                        lnptr += sz 
     159                                        ins -= sz 
     160                                } 
     161                                sz = 9999 
     162                                if ins >= 0 : sz = ins 
     163                                doc += strmid(ln, lnptr, sz) + "\n" 
     164                                if ins >= 0 : status = STATUS_DOCEND 
     165                                continue 
     166                        } 
    167167                        if strmid(ln, lnptr, 3) == "/**" { 
    168168                                lnptr += 3 
    … …  
    175175                if status == STATUS_DEFAULT : continue 
    176176 
    177                     // �h�L�������g��� 
     177                // �h�L�������g��� 
    178178                if status != STATUS_DOCEND : continue 
    179179                doc_analyze 
    180180                status = STATUS_DEFAULT 
    181181 
    182         // ����� 
    183  
    184         if doc_start_lineno == 0 { 
    185             // �t�@�C���擪 
    186             dest += "%dll\n" 
    187             dest += summary + "\n" 
    188             dest += "\n" 
    189             repeat TAG_MAX 
    190                 if peek(tags.cnt) == 0 : continue 
    191                 dest += "%" + tag_names.cnt + "\n" 
    192                 dest += tags.cnt + "\n" 
    193                 dest += "\n" 
    194             loop 
    195             continue 
    196         } 
    197  
    198         lnptr = spnspace(ln, lnptr) 
    199         if peek(ln, lnptr) != '#' : continue 
    200         lnptr ++ 
    201         lnptr += spnspace(ln, lnptr) 
    202         lnptr += scanident(ln, lnptr, ident) 
    203         if ident != "deffunc" & ident != "defcfunc" : continue 
    204         ctype = ident == "defcfunc" 
    205         lnptr += spnspace(ln, lnptr) 
    206         lnptr += scanident(ln, lnptr, funcname) 
    207         lnptr += spnspace(ln, lnptr) 
    208  
    209         // �����X�g��� 
    210         prm_types = "" 
    211         prm_names = "" 
    212         prms_cnt = 0 
    213  
    214         repeat 
    215             if cnt != 0 { 
    216                 if peek(ln, lnptr) != ',' : break 
    217                 lnptr ++ 
    218             } 
    219             lnptr += spnspace(ln, lnptr) 
    220             sz = scanident(ln, lnptr, prm_type) 
    221             if sz == 0 : break 
    222             lnptr += sz 
    223             lnptr += spnspace(ln, lnptr) 
    224             sz = scanident(ln, lnptr, prm_name) 
    225             if sz == 0 : break 
    226             lnptr += sz 
    227             lnptr += spnspace(ln, lnptr) 
    228             if prm_type == "local" : continue 
    229             prm_types.cnt = prm_type 
    230             prm_names.cnt = prm_name 
    231             prms_cnt ++ 
    232         loop 
    233  
    234         // TODO : �h�L�������g�̃p�����[�^���Ǝ�ۂ̉����X�g��r���Ĉ����ȂLjႦ�Όx�� 
    235  
    236         prm = "" 
    237         prm_list = "" 
    238         repeat dprms_cnt ;limit(dprms_cnt, 0, prms_cnt) 
    239             if cnt { 
    240                 prm += ", " 
    241                 prm_list += "\n" 
    242             } 
    243             prm += dprm_names.cnt 
    244             prm_list += dprm_names.cnt + "\t: " + dprm_summaries.cnt 
    245         loop 
    246         if ctype : prm = "(" + prm + ")" 
    247  
    248         dest += "%index\n" 
    249         dest += funcname + "\n" 
    250         dest += summary + "\n" 
    251         dest += "\n" 
    252         dest += "%prm\n" 
    253         dest += prm + "\n" 
    254         dest += prm_list + "\n" 
    255         dest += "\n" 
    256         dest += "%inst\n" 
    257         dest += inst + "\n" 
    258         dest += "\n" 
    259         if hrefs_cnt { 
    260             dest += "%href\n" 
    261             repeat hrefs_cnt 
    262                 dest += hrefs.cnt + "\n" 
    263             loop 
    264             dest += "\n" 
    265         } 
    266         repeat TAG_MAX 
    267             if peek(tags.cnt) == 0 : continue 
    268             dest += "%" + tag_names.cnt + "\n" 
    269             dest += tags.cnt + "\n" 
    270             dest += "\n" 
    271         loop 
    272     loop 
    273     return 
     182                // ����� 
     183 
     184                if doc_start_lineno == 0 { 
     185                        // �t�@�C���擪 
     186                        dest += "%dll\n" 
     187                        dest += summary + "\n" 
     188                        dest += "\n" 
     189                        repeat TAG_MAX 
     190                                if peek(tags.cnt) == 0 : continue 
     191                                dest += "%" + tag_names.cnt + "\n" 
     192                                dest += tags.cnt + "\n" 
     193                                dest += "\n" 
     194                        loop 
     195                        continue 
     196                } 
     197 
     198                lnptr = spnspace(ln, lnptr) 
     199                if peek(ln, lnptr) != '#' : continue 
     200                lnptr ++ 
     201                lnptr += spnspace(ln, lnptr) 
     202                lnptr += scanident(ln, lnptr, ident) 
     203                if ident != "deffunc" & ident != "defcfunc" : continue 
     204                ctype = ident == "defcfunc" 
     205                lnptr += spnspace(ln, lnptr) 
     206                lnptr += scanident(ln, lnptr, funcname) 
     207                lnptr += spnspace(ln, lnptr) 
     208 
     209                // �����X�g��� 
     210                prm_types = "" 
     211                prm_names = "" 
     212                prms_cnt = 0 
     213 
     214                repeat 
     215                        if cnt != 0 { 
     216                                if peek(ln, lnptr) != ',' : break 
     217                                lnptr ++ 
     218                        } 
     219                        lnptr += spnspace(ln, lnptr) 
     220                        sz = scanident(ln, lnptr, prm_type) 
     221                        if sz == 0 : break 
     222                        lnptr += sz 
     223                        lnptr += spnspace(ln, lnptr) 
     224                        sz = scanident(ln, lnptr, prm_name) 
     225                        if sz == 0 : break 
     226                        lnptr += sz 
     227                        lnptr += spnspace(ln, lnptr) 
     228                        if prm_type == "local" : continue 
     229                        prm_types.cnt = prm_type 
     230                        prm_names.cnt = prm_name 
     231                        prms_cnt ++ 
     232                loop 
     233 
     234                // TODO : �h�L�������g�̃p�����[�^���Ǝ�ۂ̉����X�g��r���Ĉ����ȂLjႦ�Όx�� 
     235 
     236                prm = "" 
     237                prm_list = "" 
     238                repeat dprms_cnt ;limit(dprms_cnt, 0, prms_cnt) 
     239                        if cnt { 
     240                                prm += ", " 
     241                                prm_list += "\n" 
     242                        } 
     243                        prm += dprm_names.cnt 
     244                        prm_list += dprm_names.cnt + "\t: " + dprm_summaries.cnt 
     245                loop 
     246                if ctype : prm = "(" + prm + ")" 
     247 
     248                dest += "%index\n" 
     249                dest += funcname + "\n" 
     250                dest += summary + "\n" 
     251                dest += "\n" 
     252                dest += "%prm\n" 
     253                dest += prm + "\n" 
     254                dest += prm_list + "\n" 
     255                dest += "\n" 
     256                dest += "%inst\n" 
     257                dest += inst + "\n" 
     258                dest += "\n" 
     259                if hrefs_cnt { 
     260                        dest += "%href\n" 
     261                        repeat hrefs_cnt 
     262                                dest += hrefs.cnt + "\n" 
     263                        loop 
     264                        dest += "\n" 
     265                } 
     266                repeat TAG_MAX 
     267                        if peek(tags.cnt) == 0 : continue 
     268                        dest += "%" + tag_names.cnt + "\n" 
     269                        dest += tags.cnt + "\n" 
     270                        dest += "\n" 
     271                loop 
     272        loop 
     273        return 
    274274#global 
    275275#endif 

  • lang/hsp/misc/hsp2hs/mod_strutils.hsp

    r13099 r13371  
    1818 */ 
    1919#defcfunc spnspace var s, int p 
    20     repeat 
    21         c = peek(s, p + cnt) 
    22         if c != ' ' & c != '\t' { 
    23             i = cnt 
    24             break 
    25         } 
    26     loop 
    27     return i 
     20        repeat 
     21                c = peek(s, p + cnt) 
     22                if c != ' ' & c != '\t' { 
     23                        i = cnt 
     24                        break 
     25                } 
     26        loop 
     27        return i 
    2828 
    2929/** 
    … …  
    3737 */ 
    3838#defcfunc scanident var s, int p, var d 
    39     // TODO : �S�p������ �ȂǂɑΉ� 
    40     c = peek(s, p) 
    41     if (c < 'A' | c > 'Z') & c != '_' & (c < 'a' | c > 'z') { 
    42         d = "" 
    43         return 0 
    44     } 
    45     repeat ,1 
    46         c = peek(s, p + cnt) 
    47         if (c < '0' | c > '9') & (c < 'A' | c > 'Z') & c != '_' & (c < 'a' | c > 'z') { 
    48             i = cnt 
    49             break 
    50         } 
    51     loop 
    52     d = strmid(s, p, i) 
    53     return i 
     39        // TODO : �S�p������ �ȂǂɑΉ� 
     40        c = peek(s, p) 
     41        if (c < 'A' | c > 'Z') & c != '_' & (c < 'a' | c > 'z') { 
     42                d = "" 
     43                return 0 
     44        } 
     45        repeat ,1 
     46                c = peek(s, p + cnt) 
     47                if (c < '0' | c > '9') & (c < 'A' | c > 'Z') & c != '_' & (c < 'a' | c > 'z') { 
     48                        i = cnt 
     49                        break 
     50                } 
     51        loop 
     52        d = strmid(s, p, i) 
     53        return i 
    5454 
    5555/** 
    … …  
    5959 */ 
    6060#deffunc stripstr var s 
    61     l = strlen(s) 
    62     // ����X�y�[�X 
    63     // TODO : 2 �o�C�g������2 �o�C�g�ڂ��X�y�[�X���u�A������R�[�h�ɂȂ邱�Ƃ͂��肦�Ȃ����m�F 
    64     repeat l, 1 
    65         knt = l - cnt 
    66         c = peek(s, knt) 
    67         if c != ' ' & c != '\t' & c != 13 & c != 10 { 
    68             break 
    69         } 
    70     loop 
    71     l = knt+1 
    72     poke s, l 
    73     // �擪�̃X�y�[�X 
    74     repeat 
    75         c = peek(s, cnt) 
    76         if c != ' ' & c != '\t' & c != 13 & c != 10 { 
    77             i = cnt 
    78             break 
    79         } 
    80     loop 
    81     if i : memcpy s, s, l-i+1, 0, i 
    82     return 
     61        l = strlen(s) 
     62        // ����X�y�[�X 
     63        // TODO : 2 �o�C�g������2 �o�C�g�ڂ��X�y�[�X���u�A������R�[�h�ɂȂ邱�Ƃ͂��肦�Ȃ����m�F 
     64        repeat l, 1 
     65                knt = l - cnt 
     66                c = peek(s, knt) 
     67                if c != ' ' & c != '\t' & c != 13 & c != 10 { 
     68                        break 
     69                } 
     70        loop 
     71        l = knt+1 
     72        poke s, l 
     73        // �擪�̃X�y�[�X 
     74        repeat 
     75                c = peek(s, cnt) 
     76                if c != ' ' & c != '\t' & c != 13 & c != 10 { 
     77                        i = cnt 
     78                        break 
     79                } 
     80        loop 
     81        if i : memcpy s, s, l-i+1, 0, i 
     82        return 
    8383 
    8484#global