Типа подготовки строки для её парсинга в массив даблов:

Нагенерить запятых.
Навставлять элементов между запятыми.
Проверить, что не было перекрытий привставке, посчитав число запятых.
Выполнить конвертацию

Стркат требует подумать головой, чтобы сложить две строки. А (+) не требует :3
Все само переаллоцируется

Minoru
а, это да

Так что Фортран Ван Лав :3

Ну или учить флекс с бизоном

Minoru
а у тебя есть более… новые тулы? Года этак 1980-го хотя бы?

Minoru
> foxtran has left

кажется, я его достал этими шуточками :(

Утро v0.1.0-20210505!

Посоветуй ::)

Не. Спать пошел :)

Для дотнета у нас щас пишут такое, мб будет опенсорс.

А для натива можно же просто dumpbin? И зачем там PDB?

Ну вот всё это совершенно безумными способами реализовано, неудобно для обмена сообщениями. Было бы круто иметь WS-like API поверх HTTP/2, но только чтоб и на сервере, и на клиенте.

Кажется, там не получалась сделать нормально и бесплатно и чтобы для всех типов работало. Поэтому пришлось заставить платить только тех, кому это нужно.

Да, печально, но иначе никак, видимо.

Любая шапка — с дырками.

Хм, а я думал, что в Фортране всё сделано хуже, чем в C. Это интересно.

Да просто в Фортране строки указатели с размерностями запилили.

Такой вот типичный пример, почему слайсы это хорошо (ну и как примерно выглядит работа со строками в Фортране)

  !*MODULE strings DECK index_ith
  !> @brief   This function return index of i'th substring in string
  !> @details if ind is negative, backward search will be
  !>          result is equal 0 if search was failed
  !> @author  Igor S. Gerasimov
  !> @date    May, 2021 --Initial release--
  !> @param   substring - (in)
  !> @param   string    - (in)
  !> @param   ith       - (in) index of needed substring
  integer function index_ith(substring, string, ith) result(res)
    character(len=*), intent(in) :: substring, string
    integer,          intent(in) :: ith
    ! internal variables
    character(len=:), allocatable :: tmp_string
    integer :: i, diff
    res = 0
    tmp_string = string
    if(ith .gt. 0) then
      do i = 1, ith
        diff = INDEX(tmp_string, substring)
        res = res + diff
        if(diff .eq. 0) exit
        tmp_string = tmp_string(INDEX(tmp_string, substring) + 1:)
      end do
    else if(ith .lt. 0) then
      do i = -1, ith, -1
        res = INDEX(tmp_string, substring, back=.true.)
        if(res .eq. 0) exit
        tmp_string = tmp_string(:INDEX(tmp_string, substring, back=.true.) - 1)
      end do
    else
      res = 0
    end if
  end function index_ith

Это хорошо?

Это есть хорошо