A.I.M. Jagged Alliance2

Добро пожаловать, Гость. Пожалуйста, выберите:
Вход || Регистрация.
19.04.2024 в 08:46:15

Главная Главная Помощь Помощь Поиск Поиск Участники Участники Вход Вход Регистрация Регистрация
A.I.M. « "Стиль" исходников Ja2 »
   A.I.M.
   Обсуждаем игры
   Гробокопатели
(Модераторы: Терапевт, ThunderBird)
   "Стиль" исходников Ja2
« Предыдущая Тема | Следующая Тема »
  Тема:  "Стиль" исходников Ja2             Страниц: 1 Прочитано 1745 раз
TSS
[PainKiller]
Небесный Всадник

RTFM!


WWW

Пол:
Репутация: +11
"Стиль" исходников Ja2
« от 20.07.2004 в 17:18:03 »

Не знаю, у кого какой стиль написания кода, но у меня явно отличается от Sir-Tech
Посему, если у кого взгляды совпадают с моими, я написали маленький макрос к VS.NET 2002/2003 для переформатирования кода.
 
Выглядит он так:
 
    Sub JA2_SRC_ReformatDocument()
 
   Dim objSel As TextSelection = DTE.ActiveDocument.Selection
 
   Dim props As Properties = DTE.Properties("TextEditor", "C/C++")
   Dim oldPropVal As Object = props.Item("IndentStyle").Value
   props.Item("IndentStyle").Value = INDENT_NONE
 
   Dim r As StringReader = Nothing
   Dim w As StringWriter = Nothing
   Dim s As String
   Dim bInIfDefBlock As Boolean = False
 
   Try
  objSel.SelectAll()
  r = New StringReader(objSel.Text)
  w = New StringWriter
 
  s = r.ReadLine()
  Dim iBlanks As Integer = 0
  While (Not s Is Nothing)
 
      s = s.Trim()
      If s.Length <> 0 Then
     iBlanks = 0
 
     If s.StartsWith("#ifdef") Then
    bInIfDefBlock = True
     ElseIf s.StartsWith("#endif") Then
    bInIfDefBlock = False
     ElseIf s.StartsWith("#include") And True = bInIfDefBlock Then
    s = s.Replace("#", "#" & vbTab)
     End If
 
     If Not s.StartsWith("#define") Then
    ' replace all other stuff
    s = s.Replace("( ", " (").Replace(" )", ")")
    s = s.Replace("[ ", "[").Replace(" ]", "]")
    s = s.Replace("  ", " ")
     End If
     w.WriteLine(s)
      Else
     If iBlanks = 0 Then w.WriteLine("")
     iBlanks = iBlanks + 1
      End If
 
      s = r.ReadLine()
  End While
 
  objSel.SelectAll()
  objSel.Delete()
  objSel.DestructiveInsert(w.ToString)
  objSel.SelectAll()
  objSel.SmartFormat()
  objSel.StartOfDocument()
 
   Catch exc As System.Exception
  MsgBox(exc.ToString)
 
   Finally
  If Not r Is Nothing Then
      r.Close()
      r = Nothing
  End If
  If Not w Is Nothing Then
      w.Close()
      w = Nothing
  End If
 
  props.Item("IndentStyle").Value = oldPropVal
   End Try
 
    End Sub
 
Просто вызываете макрос в открытом исходнике и получаете более-менее (на мой взгляд) читаемый код.
Зарегистрирован

Signed, [TSS] /Positive Technologies/
Bezumnij_Kovrik
[Обезбашенный ковролин]
Неназываемый

JaFall Team


WWW Ё-мэйл

Пол:
Репутация: +390
Re: "Стиль" исходников Ja2
« Ответ #1 от 20.07.2004 в 17:49:12 »

2TSS: А как его юзать?
Зарегистрирован

Весь софт для редактирования Джа2!
http://ja2.org/
Также, Вы найдете здесь исходники игры ;)
"Беда, коль ПЗС начнет фигачить доктор, А пендицит кромсать - радист!" (ц) Крылов-Лямлюм.

TSS
[PainKiller]
Небесный Всадник

RTFM!


WWW

Пол:
Репутация: +11
Re: "Стиль" исходников Ja2
« Ответ #2 от 20.07.2004 в 17:55:49 »

2Bezumnij_Kovrik: У тебя какая Visual Studio ?
Данная фенька подойдет только для (Help->About...):
Microsoft Developer Environment 2002 (VS.NET 2002)
Microsoft Developer Environment 2003 (VS.NET 2003)
Microsoft Developer Environment 2005 (VS.NET 2005)
Если ты являешься счасливым обладателем одного из вышеперчисленных продуктов, тогда твой путь лежит в Tools->Macros->Macros IDE; далее добавляешь код куда-нить (новый модуль, или уже существующий), Далее в Tools->Macros->Macro Explorer находишь макрос и делаешь "дык-дык" (double click, RightClick->Run)
Зарегистрирован

Signed, [TSS] /Positive Technologies/
TSS
[PainKiller]
Небесный Всадник

RTFM!


WWW

Пол:
Репутация: +11
Re: "Стиль" исходников Ja2
« Ответ #3 от 20.07.2004 в 17:57:28 »

BTW, если найду шестую студию могу попробовать сделать тоже самое и в ней. Код макроса, если ты заметил -- VB; возможности шестой студии особливо не помню, но SmartFormat() в ней вроде не было, а остальное -- было...
Зарегистрирован

Signed, [TSS] /Positive Technologies/
Bezumnij_Kovrik
[Обезбашенный ковролин]
Неназываемый

JaFall Team


WWW Ё-мэйл

Пол:
Репутация: +390
Re: "Стиль" исходников Ja2
« Ответ #4 от 20.07.2004 в 19:05:01 »

2TSS: У меня 6я студия как раз...
Зарегистрирован

Весь софт для редактирования Джа2!
http://ja2.org/
Также, Вы найдете здесь исходники игры ;)
"Беда, коль ПЗС начнет фигачить доктор, А пендицит кромсать - радист!" (ц) Крылов-Лямлюм.

Artem
[13-й воин]
Прирожденный Джаец

Ап, и черти у ног моих сели...


WWW Ё-мэйл

Пол:
Репутация: +441
Re: "Стиль" исходников Ja2
« Ответ #5 от 22.07.2004 в 10:51:20 »

2TSS: Ты учти, что ВС6 наиболее распространена и популярна. Сам я в ней полный чайник, поэтому придётся тебе всех консультировать.... ;D
Зарегистрирован

Artem13.gif
http://www.aap13.narod.ru
И пули, что найдет тебя,
Ты не услышишь,
А остальные мимо пролетят

WISDOM
[Я тоже не знаю где ЧАВО !]
Полный псих

БЫСТРЫЙ И МЕРТВЫЙ


Ё-мэйл

Пол:
Репутация: +80
Re: "Стиль" исходников Ja2
« Ответ #6 от 24.07.2004 в 17:11:11 »

       Доброго дня!
 
2TSS:
То ли лыжи не едут,то ли...,в общем не работает у меня Макрос :-[.
Прога ругается на-Sub JA2_SRC_ReformatDocument(),(подчеркивает волнистой линией)и  
пишет-"Statement is not valid in a namespace."
Все вроде сделал,как ты советовал-Tools->Macros->Macros IDE;  
Единственное-КУДУ КОД ПИСАТЬ,внутрь самого модуля,или после него-ЕСЛИ НЕ
ТРУДНО- НАПИШИ ПОЖАЛУЙСТА ПОДРОБНО :-/,Я не програмер,и всех тонкостей не знаю!
Да,у меня Microsoft Developer Environment 2002 (VS.NET 2002) версия 7.0.9466.0
Зарегистрирован

Мафия убивает выстрелами в упор
Mr Evil
[С бобровой тушкой :)]
Иван

Я страшный, но общительный.


Ё-мэйл

Пол:
Репутация: +114
Re: "Стиль" исходников Ja2
« Ответ #7 от 06.05.2005 в 11:47:18 »

Ну не знаю я куда написать. :(   Если такой вопрос уже задавали, прошу прощения за флуд.  :) Мне нужно узнать возможно ли в ja создать многоэтажные здания, если да - как, если нет - почему? Если не кто не знает, то где можно узнать? Заранее спасибо.
Зарегистрирован

"Если земляне не будут постоянно
тренировать губы, у них начнут работать мозги."
Дуглас Адамс

ShadowOfGhost
[13-й воин]
Прирожденный Джаец

Ап, и черти у ног моих сели...


WWW Ё-мэйл

Пол:
Репутация: +441
Re: "Стиль" исходников Ja2
« Ответ #8 от 06.05.2005 в 13:14:36 »

Уууу, а как нам хочется!!! Довольно проблемматично это судя по отчетам БК. А глубоко копать пока что некому...
Зарегистрирован

Artem13.gif
http://www.aap13.narod.ru
И пули, что найдет тебя,
Ты не услышишь,
А остальные мимо пролетят

GreenEyeMan
[Добрый волшебник]
Псих

Истина как-то тут, а я ее где-то там.


Ё-мэйл

Пол:
Репутация: +274
Re: "Стиль" исходников Ja2
« Ответ #9 от 09.11.2005 в 16:53:37 »

Не подскажет ли кто-нибудь вот по такому делу:
 графика в игре поддерживает только 256 цветов, а можно эту планку поднять? Или это нереально в принципе?
Зарегистрирован

Я счастлив, а остальное побоку. :)


bugmonster
[Баги! Баги везде!]
Source

ПРОГРАММИРЫ НЕ УЧИТЫВАЛИ ЭТУ СИТУАЦИЮ




Пол:
Репутация: +1337
Re: "Стиль" исходников Ja2
« Ответ #10 от 09.11.2005 в 17:16:56 »

2GreenEyeMan: Игра поддерживает 64536 цветов. 256 цветов имеют графические ресурсы. Если с тайлами что-то другое проблематично т.к. палитра используется для изменения освещённости, то с имаджами предметов в инвентаре проблем не должно быть.
Зарегистрирован

Восславим же радость и мужество,
Труда и науки содружество
Восславим мудрую партию,
Помолимся за неё.

А Пентагон в свои руки поганые,
Пусть возьмёт свои доллары сраные
И в ж... себе затолкает

Strax5
[Пятижды пуганый]
Прирожденный Джаец

Дорогу осилит бегущий


Ё-мэйл

Пол:
Репутация: +647
Re: "Стиль" исходников Ja2
« Ответ #11 от 24.01.2006 в 12:16:36 »

2bugmonster:  
 
А можешь хоть на пальцах объяснить для "особо одаренных" как это реализовано?
Зарегистрирован

Страниц: 1  Послать Тему Послать Тему Печатать Печатать

« Предыдущая Тема | Следующая Тема »

Статистика. Размер данных: 42049 GZip: off
A.I.M. » Powered by YaBB Modification 4 (v.4.0.0-pre)!
YaBB © 2000-2003. All Rights Reserved.